diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-05 11:00:05 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-05 11:00:05 -0700 |
| commit | d3a9db3aff54ea485f409eaaef3d8f56ad77f0dc (patch) | |
| tree | 60858669ff7c5a5b041e4dacb8ffffa0a4b3e68a | |
| parent | f13576b5d273ef9175e938b15f55bb1ead22fb1d (diff) | |
| download | mu-d3a9db3aff54ea485f409eaaef3d8f56ad77f0dc.tar.gz | |
6958
141 files changed, 46411 insertions, 39524 deletions
diff --git a/html/001help.cc.html b/html/001help.cc.html index 52cd0df3..9edab617 100644 --- a/html/001help.cc.html +++ b/html/001help.cc.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; } .CommentedCode { color: #8a8a8a; } +.PreProc { color: #c000c0; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.PreProc { color: #c000c0; } .cSpecial { color: #008000; } --> </style> @@ -63,10 +63,10 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: This should give you a sense for what to look forward to in later layers.</span> <span id="L3" class="LineNr"> 3 </span> <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">:(before "End Commandline Parsing")</span> -<span id="L5" class="LineNr"> 5 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc <= <span class="Constant">1</span> || <a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"--help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc <= <span class="Constant">1</span> || <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"--help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L6" class="LineNr"> 6 </span> <span class="Comment">//: this is the functionality later layers will provide</span> <span id="L7" class="LineNr"> 7 </span> <span class="Comment">// currently no automated tests for commandline arg parsing</span> -<span id="L8" class="LineNr"> 8 </span> cerr << get<span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">);</span> +<span id="L8" class="LineNr"> 8 </span> cerr << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">);</span> <span id="L9" class="LineNr"> 9 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span><span class="Delimiter">}</span> <span id="L11" class="LineNr"> 11 </span> @@ -74,7 +74,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr"> 13 </span><span class="Comment">//: Options always begin with '--' and are always the first arguments. An</span> <span id="L14" class="LineNr"> 14 </span><span class="Comment">//: option will never follow a non-option.</span> <span id="L15" class="LineNr"> 15 </span><span class="Normal">char</span>** <a href='001help.cc.html#L15'>arg</a> = &argv[<span class="Constant">1</span>]<span class="Delimiter">;</span> -<span id="L16" class="LineNr"> 16 </span><span class="Normal">while</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L106'>starts_with</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L16" class="LineNr"> 16 </span><span class="Normal">while</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L17" class="LineNr"> 17 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">)</span> <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">;</span> <span class="Comment">// no-op branch just so any further additions can consistently always start with 'else'</span> <span id="L19" class="LineNr"> 19 </span> <span class="Comment">// End Commandline Options(*arg)</span> @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span> --argc<span class="Delimiter">;</span> ++argv<span class="Delimiter">;</span> ++arg<span class="Delimiter">;</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L25" class="LineNr"> 25 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>argc == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L27" class="LineNr"> 27 </span> cerr << <span class="Constant">"help on what?\n"</span><span class="Delimiter">;</span> <span id="L28" class="LineNr"> 28 </span> <a href='001help.cc.html#L46'>help_contents</a><span class="Delimiter">();</span> @@ -91,8 +91,8 @@ if ('onhashchange' in window) { <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr"> 31 </span> string key<span class="Delimiter">(</span>argv[<span class="Constant">2</span>]<span class="Delimiter">);</span> <span id="L32" class="LineNr"> 32 </span> <span class="Comment">// End Help Special-cases(key)</span> -<span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> cerr << get<span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">);</span> +<span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> cerr << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">);</span> <span id="L35" class="LineNr"> 35 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> @@ -111,7 +111,7 @@ if ('onhashchange' in window) { <span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> <span id="L52" class="LineNr"> 52 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L53" class="LineNr"> 53 </span>map<string<span class="Delimiter">,</span> string> <span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">;</span> +<span id="L53" class="LineNr"> 53 </span>map<string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">;</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L55" class="LineNr"> 55 </span><span class="PreProc">#include </span><span class="Constant"><map></span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">using</span> std::map<span class="Delimiter">;</span> @@ -119,7 +119,7 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span><a href='001help.cc.html#L60'>init_help</a><span class="Delimiter">();</span> <span id="L59" class="LineNr"> 59 </span><span class="Delimiter">:(code)</span> <span id="L60" class="LineNr"> 60 </span><span class="Normal">void</span> <a href='001help.cc.html#L60'>init_help</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">,</span> +<span id="L61" class="LineNr"> 61 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">,</span> <span id="L62" class="LineNr"> 62 </span> <span class="Constant">"bootstrap: the bootstrap translator for SubX.\n"</span> <span id="L63" class="LineNr"> 63 </span> <span class="Constant">"This program also wraps some miscellaneous useful functionality:\n"</span> <span id="L64" class="LineNr"> 64 </span> <span class="Constant">" - an x86 emulator: `bootstrap run`\n"</span> @@ -142,196 +142,192 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== Debugging aids\n"</span> <span id="L82" class="LineNr"> 82 </span> <span class="Constant">"- Add '--trace' to any of these commands to save a <a href='003trace.cc.html#L96'>trace</a> to disk at the end.\n"</span> <span id="L83" class="LineNr"> 83 </span> <span class="Constant">" This can <a href='011run.cc.html#L82'>run</a> out of memory for long-running commands.\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"- Add '--debug' to add information to traces. 'bootstrap --debug translate'\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" will save metadata to disk that 'bootstrap --trace run' uses to make traces\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" more informative.\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"- Add '--dump --trace' to emit a <a href='003trace.cc.html#L96'>trace</a> incrementally to stderr.\n"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">" This approach will work even for long-running programs.\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">" (Though the combination of flags is counter-intuitive and can probably\n"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">" be improved.)\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"Options starting with '--' must always come before any other arguments.\n"</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"To start learning how to write SubX programs, see Readme.md (particularly\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"the section on the x86 instruction set) and then <a href='011run.cc.html#L82'>run</a>:\n"</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">" bootstrap help\n"</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">);</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Comment">// End Help Texts</span> -<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="Delimiter">:(code)</span> -<span id="L102" class="LineNr">102 </span><span class="Normal">bool</span> <a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span><span class="Normal">char</span>* s<span class="Delimiter">,</span> <span class="Normal">const</span> <span class="Normal">char</span>* lit<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="Identifier">return</span> strncmp<span class="Delimiter">(</span>s<span class="Delimiter">,</span> lit<span class="Delimiter">,</span> strlen<span class="Delimiter">(</span>lit<span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> -<span id="L106" class="LineNr">106 </span><span class="Normal">bool</span> <a href='001help.cc.html#L106'>starts_with</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> <span class="Normal">const</span> string& pat<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> string::const_iterator a=s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> b=pat<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> -<span id="L108" class="LineNr">108 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> a!=s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && b!=pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++a<span class="Delimiter">,</span> ++b<span class="Delimiter">)</span> -<span id="L109" class="LineNr">109 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*a != *b<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L110" class="LineNr">110 </span> <span class="Identifier">return</span> b == pat<span class="Delimiter">.</span>end<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="Comment">//: I'll throw some style conventions here for want of a better place for them.</span> -<span id="L114" class="LineNr">114 </span><span class="Comment">//: As a rule I hate style guides. Do what you want, that's my motto. But since</span> -<span id="L115" class="LineNr">115 </span><span class="Comment">//: we're dealing with C/C++, the one big thing we want to avoid is undefined</span> -<span id="L116" class="LineNr">116 </span><span class="Comment">//: behavior. If a compiler ever encounters undefined behavior it can make</span> -<span id="L117" class="LineNr">117 </span><span class="Comment">//: your program do anything it wants.</span> -<span id="L118" class="LineNr">118 </span><span class="Comment">//:</span> -<span id="L119" class="LineNr">119 </span><span class="Comment">//: For reference, my checklist of undefined behaviors to watch out for:</span> -<span id="L120" class="LineNr">120 </span><span class="Comment">//: out-of-bounds access</span> -<span id="L121" class="LineNr">121 </span><span class="Comment">//: uninitialized variables</span> -<span id="L122" class="LineNr">122 </span><span class="Comment">//: use after free</span> -<span id="L123" class="LineNr">123 </span><span class="Comment">//: dereferencing invalid pointers: null, a new of size 0, others</span> -<span id="L124" class="LineNr">124 </span><span class="Comment">//:</span> -<span id="L125" class="LineNr">125 </span><span class="Comment">//: casting a large number to a type too small to hold it</span> -<span id="L126" class="LineNr">126 </span><span class="Comment">//:</span> -<span id="L127" class="LineNr">127 </span><span class="Comment">//: integer overflow</span> -<span id="L128" class="LineNr">128 </span><span class="Comment">//: division by zero and other undefined expressions</span> -<span id="L129" class="LineNr">129 </span><span class="Comment">//: left-shift by negative count</span> -<span id="L130" class="LineNr">130 </span><span class="Comment">//: shifting values by more than or equal to the number of bits they contain</span> -<span id="L131" class="LineNr">131 </span><span class="Comment">//: bitwise operations on signed numbers</span> -<span id="L132" class="LineNr">132 </span><span class="Comment">//:</span> -<span id="L133" class="LineNr">133 </span><span class="Comment">//: Converting pointers to types of different alignment requirements</span> -<span id="L134" class="LineNr">134 </span><span class="Comment">//: T* -> void* -> T*: defined</span> -<span id="L135" class="LineNr">135 </span><span class="Comment">//: T* -> U* -> T*: defined if non-function pointers and alignment requirements are same</span> -<span id="L136" class="LineNr">136 </span><span class="Comment">//: function pointers may be cast to other function pointers</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"- Add '--debug' to emit additional debug information during translation.\n"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 'bootstrap --debug translate' will save metadata to disk that\n"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 'bootstrap --trace run' uses to make traces more informative.\n"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"\n"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"Options starting with '--' must always come before any other arguments.\n"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"\n"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"To start learning how to write SubX programs, see Readme.md (particularly\n"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"the section on the x86 instruction set) and then <a href='011run.cc.html#L82'>run</a>:\n"</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Constant">" bootstrap help\n"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">);</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Comment">// End Help Texts</span> +<span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span> +<span id="L97" class="LineNr"> 97 </span><span class="Delimiter">:(code)</span> +<span id="L98" class="LineNr"> 98 </span><span class="Normal">bool</span> <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span><span class="Normal">char</span>* s<span class="Delimiter">,</span> <span class="Normal">const</span> <span class="Normal">char</span>* lit<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Identifier">return</span> strncmp<span class="Delimiter">(</span>s<span class="Delimiter">,</span> lit<span class="Delimiter">,</span> strlen<span class="Delimiter">(</span>lit<span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="Normal">bool</span> <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> <span class="Normal">const</span> string& pat<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span> string::const_iterator a=s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> b=pat<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> a!=s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && b!=pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++a<span class="Delimiter">,</span> ++b<span class="Delimiter">)</span> +<span id="L105" class="LineNr">105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*a != *b<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L106" class="LineNr">106 </span> <span class="Identifier">return</span> b == pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> +<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> +<span id="L109" class="LineNr">109 </span><span class="Comment">//: I'll throw some style conventions here for want of a better place for them.</span> +<span id="L110" class="LineNr">110 </span><span class="Comment">//: As a rule I hate style guides. Do what you want, that's my motto. But since</span> +<span id="L111" class="LineNr">111 </span><span class="Comment">//: we're dealing with C/C++, the one big thing we want to avoid is undefined</span> +<span id="L112" class="LineNr">112 </span><span class="Comment">//: behavior. If a compiler ever encounters undefined behavior it can make</span> +<span id="L113" class="LineNr">113 </span><span class="Comment">//: your program do anything it wants.</span> +<span id="L114" class="LineNr">114 </span><span class="Comment">//:</span> +<span id="L115" class="LineNr">115 </span><span class="Comment">//: For reference, my checklist of undefined behaviors to watch out for:</span> +<span id="L116" class="LineNr">116 </span><span class="Comment">//: out-of-bounds access</span> +<span id="L117" class="LineNr">117 </span><span class="Comment">//: uninitialized variables</span> +<span id="L118" class="LineNr">118 </span><span class="Comment">//: use after free</span> +<span id="L119" class="LineNr">119 </span><span class="Comment">//: dereferencing invalid pointers: null, a new of size 0, others</span> +<span id="L120" class="LineNr">120 </span><span class="Comment">//:</span> +<span id="L121" class="LineNr">121 </span><span class="Comment">//: casting a large number to a type too small to hold it</span> +<span id="L122" class="LineNr">122 </span><span class="Comment">//:</span> +<span id="L123" class="LineNr">123 </span><span class="Comment">//: integer overflow</span> +<span id="L124" class="LineNr">124 </span><span class="Comment">//: division by zero and other undefined expressions</span> +<span id="L125" class="LineNr">125 </span><span class="Comment">//: left-shift by negative count</span> +<span id="L126" class="LineNr">126 </span><span class="Comment">//: shifting values by more than or equal to the number of bits they contain</span> +<span id="L127" class="LineNr">127 </span><span class="Comment">//: bitwise operations on signed numbers</span> +<span id="L128" class="LineNr">128 </span><span class="Comment">//:</span> +<span id="L129" class="LineNr">129 </span><span class="Comment">//: Converting pointers to types of different alignment requirements</span> +<span id="L130" class="LineNr">130 </span><span class="Comment">//: T* -> void* -> T*: defined</span> +<span id="L131" class="LineNr">131 </span><span class="Comment">//: T* -> U* -> T*: defined if non-function pointers and alignment requirements are same</span> +<span id="L132" class="LineNr">132 </span><span class="Comment">//: function pointers may be cast to other function pointers</span> +<span id="L133" class="LineNr">133 </span><span class="Comment">//:</span> +<span id="L134" class="LineNr">134 </span><span class="Comment">//: Casting a numeric value into a value that can't be represented by the target type (either directly or via static_cast)</span> +<span id="L135" class="LineNr">135 </span><span class="Comment">//:</span> +<span id="L136" class="LineNr">136 </span><span class="Comment">//: To guard against these, some conventions:</span> <span id="L137" class="LineNr">137 </span><span class="Comment">//:</span> -<span id="L138" class="LineNr">138 </span><span class="Comment">//: Casting a numeric value into a value that can't be represented by the target type (either directly or via static_cast)</span> +<span id="L138" class="LineNr">138 </span><span class="Comment">//: 0. Initialize all primitive variables in functions and constructors.</span> <span id="L139" class="LineNr">139 </span><span class="Comment">//:</span> -<span id="L140" class="LineNr">140 </span><span class="Comment">//: To guard against these, some conventions:</span> -<span id="L141" class="LineNr">141 </span><span class="Comment">//:</span> -<span id="L142" class="LineNr">142 </span><span class="Comment">//: 0. Initialize all primitive variables in functions and constructors.</span> +<span id="L140" class="LineNr">140 </span><span class="Comment">//: 1. Minimize use of pointers and pointer arithmetic. Avoid 'new' and</span> +<span id="L141" class="LineNr">141 </span><span class="Comment">//: 'delete' as far as possible. Rely on STL to perform memory management to</span> +<span id="L142" class="LineNr">142 </span><span class="Comment">//: avoid use-after-free issues (and memory leaks).</span> <span id="L143" class="LineNr">143 </span><span class="Comment">//:</span> -<span id="L144" class="LineNr">144 </span><span class="Comment">//: 1. Minimize use of pointers and pointer arithmetic. Avoid 'new' and</span> -<span id="L145" class="LineNr">145 </span><span class="Comment">//: 'delete' as far as possible. Rely on STL to perform memory management to</span> -<span id="L146" class="LineNr">146 </span><span class="Comment">//: avoid use-after-free issues (and memory leaks).</span> -<span id="L147" class="LineNr">147 </span><span class="Comment">//:</span> -<span id="L148" class="LineNr">148 </span><span class="Comment">//: 2. Avoid naked arrays to avoid out-of-bounds access. Never use operator[]</span> -<span id="L149" class="LineNr">149 </span><span class="Comment">//: except with map. Use at() with STL vectors and so on.</span> -<span id="L150" class="LineNr">150 </span><span class="Comment">//:</span> -<span id="L151" class="LineNr">151 </span><span class="Comment">//: 3. Valgrind all the things.</span> +<span id="L144" class="LineNr">144 </span><span class="Comment">//: 2. Avoid naked arrays to avoid out-of-bounds access. Never use operator[]</span> +<span id="L145" class="LineNr">145 </span><span class="Comment">//: except with map. Use at() with STL vectors and so on.</span> +<span id="L146" class="LineNr">146 </span><span class="Comment">//:</span> +<span id="L147" class="LineNr">147 </span><span class="Comment">//: 3. Valgrind all the things.</span> +<span id="L148" class="LineNr">148 </span><span class="Comment">//:</span> +<span id="L149" class="LineNr">149 </span><span class="Comment">//: 4. Avoid unsigned numbers. Not strictly an undefined-behavior issue, but</span> +<span id="L150" class="LineNr">150 </span><span class="Comment">//: the extra range doesn't matter, and it's one less confusing category of</span> +<span id="L151" class="LineNr">151 </span><span class="Comment">//: interaction gotchas to worry about.</span> <span id="L152" class="LineNr">152 </span><span class="Comment">//:</span> -<span id="L153" class="LineNr">153 </span><span class="Comment">//: 4. Avoid unsigned numbers. Not strictly an undefined-behavior issue, but</span> -<span id="L154" class="LineNr">154 </span><span class="Comment">//: the extra range doesn't matter, and it's one less confusing category of</span> -<span id="L155" class="LineNr">155 </span><span class="Comment">//: interaction gotchas to worry about.</span> -<span id="L156" class="LineNr">156 </span><span class="Comment">//:</span> -<span id="L157" class="LineNr">157 </span><span class="Comment">//: Corollary: don't use the size() method on containers, since it returns an</span> -<span id="L158" class="LineNr">158 </span><span class="Comment">//: unsigned and that'll cause warnings about mixing signed and unsigned,</span> -<span id="L159" class="LineNr">159 </span><span class="Comment">//: yadda-yadda. Instead use this macro below to perform an unsafe cast to</span> -<span id="L160" class="LineNr">160 </span><span class="Comment">//: signed. We'll just give up immediately if a container's ever too large.</span> -<span id="L161" class="LineNr">161 </span><span class="Comment">//: Basically, Mu is not concerned about this being a little slower than it</span> -<span id="L162" class="LineNr">162 </span><span class="Comment">//: could be. (<a href="https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7)">https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7)</a></span> -<span id="L163" class="LineNr">163 </span><span class="Comment">//:</span> -<span id="L164" class="LineNr">164 </span><span class="Comment">//: Addendum to corollary: We're going to uniformly use int everywhere, to</span> -<span id="L165" class="LineNr">165 </span><span class="Comment">//: indicate that we're oblivious to number size, and since Clang on 32-bit</span> -<span id="L166" class="LineNr">166 </span><span class="Comment">//: platforms doesn't yet support multiplication over 64-bit integers, and</span> -<span id="L167" class="LineNr">167 </span><span class="Comment">//: since multiplying two integers seems like a more common situation to end</span> -<span id="L168" class="LineNr">168 </span><span class="Comment">//: up in than integer overflow.</span> -<span id="L169" class="LineNr">169 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L170" class="LineNr">170 </span><span class="PreProc">#define SIZE(</span><span class="Special">X</span><span class="PreProc">) (assert((</span><span class="Special">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size() < (</span><span class="Constant">1LL</span><span class="PreProc"><<(</span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="Normal">int</span><span class="PreProc">)*</span><span class="Constant">8</span><span class="PreProc">-</span><span class="Constant">2</span><span class="PreProc">)))</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>((</span><span class="Special">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size()))</span> -<span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span><span class="Comment">//: 5. Integer overflow is guarded against at runtime using the -ftrapv flag</span> -<span id="L173" class="LineNr">173 </span><span class="Comment">//: to the compiler, supported by Clang (GCC version only works sometimes:</span> -<span id="L174" class="LineNr">174 </span><span class="Comment">//: <a href="http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work).">http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work).</a></span> -<span id="L175" class="LineNr">175 </span><span class="Delimiter">:(before "atexit(<a href='000organization.cc.html#L150'>reset</a>)")</span> -<span id="L176" class="LineNr">176 </span><a href='001help.cc.html#L181'>initialize_signal_handlers</a><span class="Delimiter">();</span> <span class="Comment">// not always necessary, but doesn't hurt</span> -<span id="L177" class="LineNr">177 </span><span class="CommentedCode">//? cerr << INT_MAX+1 << '\n'; // test overflow</span> -<span id="L178" class="LineNr">178 </span><span class="CommentedCode">//? assert(false); // test SIGABRT</span> -<span id="L179" class="LineNr">179 </span><span class="Delimiter">:(code)</span> -<span id="L180" class="LineNr">180 </span><span class="Comment">// based on <a href="https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c">https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c</a></span> -<span id="L181" class="LineNr">181 </span><span class="Normal">void</span> <a href='001help.cc.html#L181'>initialize_signal_handlers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr">182 </span> <span class="Normal">struct</span> sigaction action<span class="Delimiter">;</span> -<span id="L183" class="LineNr">183 </span> bzero<span class="Delimiter">(</span>&action<span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span>action<span class="Delimiter">));</span> -<span id="L184" class="LineNr">184 </span> action<span class="Delimiter">.</span>sa_sigaction = <a href='001help.cc.html#L189'>dump_and_exit</a><span class="Delimiter">;</span> -<span id="L185" class="LineNr">185 </span> sigemptyset<span class="Delimiter">(</span>&action<span class="Delimiter">.</span>sa_mask<span class="Delimiter">);</span> -<span id="L186" class="LineNr">186 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGABRT</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// assert() failure or integer overflow on linux (with -ftrapv)</span> -<span id="L187" class="LineNr">187 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGILL</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// integer overflow on OS X (with -ftrapv)</span> -<span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span><span class="Normal">void</span> <a href='001help.cc.html#L189'>dump_and_exit</a><span class="Delimiter">(</span><span class="Normal">int</span> sig<span class="Delimiter">,</span> siginfo_t* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <span class="Normal">void</span>* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>sig<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">case</span> <span class="Constant">SIGABRT</span>: -<span id="L192" class="LineNr">192 </span> <span class="PreProc">#ifndef __APPLE__</span> -<span id="L193" class="LineNr">193 </span> cerr << <span class="Constant">"SIGABRT: might be an integer overflow if it wasn't an assert() failure\n"</span><span class="Delimiter">;</span> -<span id="L194" class="LineNr">194 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">#endif</span> -<span id="L196" class="LineNr">196 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L197" class="LineNr">197 </span> <span class="Normal">case</span> <span class="Constant">SIGILL</span>: -<span id="L198" class="LineNr">198 </span> <span class="PreProc">#ifdef __APPLE__</span> -<span id="L199" class="LineNr">199 </span> cerr << <span class="Constant">"SIGILL: most likely caused by integer overflow\n"</span><span class="Delimiter">;</span> -<span id="L200" class="LineNr">200 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">#endif</span> -<span id="L202" class="LineNr">202 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L203" class="LineNr">203 </span> <span class="Normal">default</span>: -<span id="L204" class="LineNr">204 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L205" class="LineNr">205 </span> <span class="Delimiter">}</span> -<span id="L206" class="LineNr">206 </span><span class="Delimiter">}</span> -<span id="L207" class="LineNr">207 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L208" class="LineNr">208 </span><span class="PreProc">#include </span><span class="Constant"><signal.h></span> -<span id="L209" class="LineNr">209 </span> -<span id="L210" class="LineNr">210 </span><span class="Comment">//: 6. Map's operator[] being non-const is fucking evil.</span> -<span id="L211" class="LineNr">211 </span><span class="Delimiter">:(before "Globals")</span> <span class="Comment">// can't generate prototypes for these</span> -<span id="L212" class="LineNr">212 </span><span class="Comment">// from <a href="http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map">http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map</a></span> -<span id="L213" class="LineNr">213 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type& get<span class="Delimiter">(</span><span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L214" class="LineNr">214 </span> <span class="Normal">typename</span> <span class="Special">T</span>::iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> -<span id="L215" class="LineNr">215 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> -<span id="L217" class="LineNr">217 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> -<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type <span class="Normal">const</span>& get<span class="Delimiter">(</span><span class="Normal">const</span> <span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr">222 </span> <span class="Normal">typename</span> <span class="Special">T</span>::const_iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> -<span id="L223" class="LineNr">223 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> -<span id="L225" class="LineNr">225 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> -<span id="L227" class="LineNr">227 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> +<span id="L153" class="LineNr">153 </span><span class="Comment">//: Corollary: don't use the size() method on containers, since it returns an</span> +<span id="L154" class="LineNr">154 </span><span class="Comment">//: unsigned and that'll cause warnings about mixing signed and unsigned,</span> +<span id="L155" class="LineNr">155 </span><span class="Comment">//: yadda-yadda. Instead use this macro below to perform an unsafe cast to</span> +<span id="L156" class="LineNr">156 </span><span class="Comment">//: signed. We'll just give up immediately if a container's ever too large.</span> +<span id="L157" class="LineNr">157 </span><span class="Comment">//: Basically, Mu is not concerned about this being a little slower than it</span> +<span id="L158" class="LineNr">158 </span><span class="Comment">//: could be. (<a href="https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7">https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7</a>)</span> +<span id="L159" class="LineNr">159 </span><span class="Comment">//:</span> +<span id="L160" class="LineNr">160 </span><span class="Comment">//: Addendum to corollary: We're going to uniformly use int everywhere, to</span> +<span id="L161" class="LineNr">161 </span><span class="Comment">//: indicate that we're oblivious to number size, and since Clang on 32-bit</span> +<span id="L162" class="LineNr">162 </span><span class="Comment">//: platforms doesn't yet support multiplication over 64-bit integers, and</span> +<span id="L163" class="LineNr">163 </span><span class="Comment">//: since multiplying two integers seems like a more common situation to end</span> +<span id="L164" class="LineNr">164 </span><span class="Comment">//: up in than integer overflow.</span> +<span id="L165" class="LineNr">165 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L166" class="LineNr">166 </span><span class="PreProc">#define SIZE(</span><span class="SpecialChar">X</span><span class="PreProc">) (assert((</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size() < (</span><span class="Constant">1LL</span><span class="PreProc"><<(</span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="Normal">int</span><span class="PreProc">)*</span><span class="Constant">8</span><span class="PreProc">-</span><span class="Constant">2</span><span class="PreProc">)))</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>((</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size()))</span> +<span id="L167" class="LineNr">167 </span> +<span id="L168" class="LineNr">168 </span><span class="Comment">//: 5. Integer overflow is guarded against at runtime using the -ftrapv flag</span> +<span id="L169" class="LineNr">169 </span><span class="Comment">//: to the compiler, supported by Clang (GCC version only works sometimes:</span> +<span id="L170" class="LineNr">170 </span><span class="Comment">//: <a href="http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work">http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work</a>).</span> +<span id="L171" class="LineNr">171 </span><span class="Delimiter">:(before "atexit(<a href='000organization.cc.html#L150'>reset</a>)")</span> +<span id="L172" class="LineNr">172 </span><a href='001help.cc.html#L177'>initialize_signal_handlers</a><span class="Delimiter">();</span> <span class="Comment">// not always necessary, but doesn't hurt</span> +<span id="L173" class="LineNr">173 </span><span class="CommentedCode">//? cerr << INT_MAX+1 << '\n'; // test overflow</span> +<span id="L174" class="LineNr">174 </span><span class="CommentedCode">//? assert(false); // test SIGABRT</span> +<span id="L175" class="LineNr">175 </span><span class="Delimiter">:(code)</span> +<span id="L176" class="LineNr">176 </span><span class="Comment">// based on <a href="https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c">https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c</a></span> +<span id="L177" class="LineNr">177 </span><span class="Normal">void</span> <a href='001help.cc.html#L177'>initialize_signal_handlers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="Normal">struct</span> sigaction action<span class="Delimiter">;</span> +<span id="L179" class="LineNr">179 </span> bzero<span class="Delimiter">(</span>&action<span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span>action<span class="Delimiter">));</span> +<span id="L180" class="LineNr">180 </span> action<span class="Delimiter">.</span>sa_sigaction = <a href='001help.cc.html#L185'>dump_and_exit</a><span class="Delimiter">;</span> +<span id="L181" class="LineNr">181 </span> sigemptyset<span class="Delimiter">(</span>&action<span class="Delimiter">.</span>sa_mask<span class="Delimiter">);</span> +<span id="L182" class="LineNr">182 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGABRT</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// assert() failure or integer overflow on linux (with -ftrapv)</span> +<span id="L183" class="LineNr">183 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGILL</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// integer overflow on OS X (with -ftrapv)</span> +<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> +<span id="L185" class="LineNr">185 </span><span class="Normal">void</span> <a href='001help.cc.html#L185'>dump_and_exit</a><span class="Delimiter">(</span><span class="Normal">int</span> sig<span class="Delimiter">,</span> siginfo_t* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <span class="Normal">void</span>* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>sig<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="Normal">case</span> <span class="Constant">SIGABRT</span>: +<span id="L188" class="LineNr">188 </span> <span class="PreProc">#ifndef __APPLE__</span> +<span id="L189" class="LineNr">189 </span> cerr << <span class="Constant">"SIGABRT: might be an integer overflow if it wasn't an assert() failure\n"</span><span class="Delimiter">;</span> +<span id="L190" class="LineNr">190 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">#endif</span> +<span id="L192" class="LineNr">192 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">case</span> <span class="Constant">SIGILL</span>: +<span id="L194" class="LineNr">194 </span> <span class="PreProc">#ifdef __APPLE__</span> +<span id="L195" class="LineNr">195 </span> cerr << <span class="Constant">"SIGILL: most likely caused by integer overflow\n"</span><span class="Delimiter">;</span> +<span id="L196" class="LineNr">196 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L197" class="LineNr">197 </span> <span class="PreProc">#endif</span> +<span id="L198" class="LineNr">198 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L199" class="LineNr">199 </span> <span class="Normal">default</span>: +<span id="L200" class="LineNr">200 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L204" class="LineNr">204 </span><span class="PreProc">#include </span><span class="Constant"><signal.h></span> +<span id="L205" class="LineNr">205 </span> +<span id="L206" class="LineNr">206 </span><span class="Comment">//: 6. Map's operator[] being non-const is fucking evil.</span> +<span id="L207" class="LineNr">207 </span><span class="Delimiter">:(before "Globals")</span> <span class="Comment">// can't generate prototypes for these</span> +<span id="L208" class="LineNr">208 </span><span class="Comment">// from <a href="http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map">http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map</a></span> +<span id="L209" class="LineNr">209 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type& get<span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> +<span id="L211" class="LineNr">211 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> +<span id="L213" class="LineNr">213 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L214" class="LineNr">214 </span> <span class="Delimiter">}</span> +<span id="L215" class="LineNr">215 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> +<span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> +<span id="L217" class="LineNr">217 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& get<span class="Delimiter">(</span><span class="Normal">const</span> <span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L218" class="LineNr">218 </span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::const_iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> +<span id="L219" class="LineNr">219 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> +<span id="L221" class="LineNr">221 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L222" class="LineNr">222 </span> <span class="Delimiter">}</span> +<span id="L223" class="LineNr">223 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> +<span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L226" class="LineNr">226 </span> map[key] = value<span class="Delimiter">;</span> +<span id="L227" class="LineNr">227 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> <span id="L228" class="LineNr">228 </span><span class="Delimiter">}</span> -<span id="L229" class="LineNr">229 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> map[key] = value<span class="Delimiter">;</span> -<span id="L231" class="LineNr">231 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">bool</span> <a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="Identifier">return</span> map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> != map<span class="Delimiter">.</span>end<span class="Delimiter">();</span> -<span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> -<span id="L236" class="LineNr">236 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type& <a href='001help.cc.html#L236'>get_or_insert</a><span class="Delimiter">(</span><span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span><span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="Special">T</span>> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="Special">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L240" class="LineNr">240 </span> assert<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> == map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L241" class="LineNr">241 </span> map[key] = value<span class="Delimiter">;</span> -<span id="L242" class="LineNr">242 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L243" class="LineNr">243 </span><span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span><span class="Comment">//: The contract: any container that relies on get_or_insert should never call</span> -<span id="L245" class="LineNr">245 </span><span class="Comment">//: contains_key.</span> -<span id="L246" class="LineNr">246 </span> -<span id="L247" class="LineNr">247 </span><span class="Comment">//: 7. istreams are a royal pain in the arse. You have to be careful about</span> -<span id="L248" class="LineNr">248 </span><span class="Comment">//: what subclass you try to putback into. You have to watch out for the pesky</span> -<span id="L249" class="LineNr">249 </span><span class="Comment">//: failbit and badbit. Just avoid eof() and use this helper instead.</span> -<span id="L250" class="LineNr">250 </span><span class="Delimiter">:(code)</span> -<span id="L251" class="LineNr">251 </span><span class="Normal">bool</span> <a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L252" class="LineNr">252 </span> <span class="Identifier">return</span> in && !in<span class="Delimiter">.</span>eof<span class="Delimiter">();</span> -<span id="L253" class="LineNr">253 </span><span class="Delimiter">}</span> -<span id="L254" class="LineNr">254 </span> -<span id="L255" class="LineNr">255 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L256" class="LineNr">256 </span><span class="PreProc">#include </span><span class="Constant"><assert.h></span> -<span id="L257" class="LineNr">257 </span> -<span id="L258" class="LineNr">258 </span><span class="PreProc">#include </span><span class="Constant"><iostream></span> -<span id="L259" class="LineNr">259 </span><span class="Normal">using</span> std::istream<span class="Delimiter">;</span> -<span id="L260" class="LineNr">260 </span><span class="Normal">using</span> std::ostream<span class="Delimiter">;</span> -<span id="L261" class="LineNr">261 </span><span class="Normal">using</span> std::iostream<span class="Delimiter">;</span> -<span id="L262" class="LineNr">262 </span><span class="Normal">using</span> std::cin<span class="Delimiter">;</span> -<span id="L263" class="LineNr">263 </span><span class="Normal">using</span> std::cout<span class="Delimiter">;</span> -<span id="L264" class="LineNr">264 </span><span class="Normal">using</span> std::cerr<span class="Delimiter">;</span> -<span id="L265" class="LineNr">265 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> +<span id="L229" class="LineNr">229 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">bool</span> <a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L230" class="LineNr">230 </span> <span class="Identifier">return</span> map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> != map<span class="Delimiter">.</span>end<span class="Delimiter">();</span> +<span id="L231" class="LineNr">231 </span><span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type& <a href='001help.cc.html#L232'>get_or_insert</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L233" class="LineNr">233 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> assert<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> == map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L237" class="LineNr">237 </span> map[key] = value<span class="Delimiter">;</span> +<span id="L238" class="LineNr">238 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> +<span id="L239" class="LineNr">239 </span><span class="Delimiter">}</span> +<span id="L240" class="LineNr">240 </span><span class="Comment">//: The contract: any container that relies on get_or_insert should never call</span> +<span id="L241" class="LineNr">241 </span><span class="Comment">//: contains_key.</span> +<span id="L242" class="LineNr">242 </span> +<span id="L243" class="LineNr">243 </span><span class="Comment">//: 7. istreams are a royal pain in the arse. You have to be careful about</span> +<span id="L244" class="LineNr">244 </span><span class="Comment">//: what subclass you try to putback into. You have to watch out for the pesky</span> +<span id="L245" class="LineNr">245 </span><span class="Comment">//: failbit and badbit. Just avoid eof() and use this helper instead.</span> +<span id="L246" class="LineNr">246 </span><span class="Delimiter">:(code)</span> +<span id="L247" class="LineNr">247 </span><span class="Normal">bool</span> <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L248" class="LineNr">248 </span> <span class="Identifier">return</span> in && !in<span class="Delimiter">.</span>eof<span class="Delimiter">();</span> +<span id="L249" class="LineNr">249 </span><span class="Delimiter">}</span> +<span id="L250" class="LineNr">250 </span> +<span id="L251" class="LineNr">251 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L252" class="LineNr">252 </span><span class="PreProc">#include </span><span class="Constant"><assert.h></span> +<span id="L253" class="LineNr">253 </span> +<span id="L254" class="LineNr">254 </span><span class="PreProc">#include </span><span class="Constant"><iostream></span> +<span id="L255" class="LineNr">255 </span><span class="Normal">using</span> std::istream<span class="Delimiter">;</span> +<span id="L256" class="LineNr">256 </span><span class="Normal">using</span> std::ostream<span class="Delimiter">;</span> +<span id="L257" class="LineNr">257 </span><span class="Normal">using</span> std::iostream<span class="Delimiter">;</span> +<span id="L258" class="LineNr">258 </span><span class="Normal">using</span> std::cin<span class="Delimiter">;</span> +<span id="L259" class="LineNr">259 </span><span class="Normal">using</span> std::cout<span class="Delimiter">;</span> +<span id="L260" class="LineNr">260 </span><span class="Normal">using</span> std::cerr<span class="Delimiter">;</span> +<span id="L261" class="LineNr">261 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> +<span id="L262" class="LineNr">262 </span> +<span id="L263" class="LineNr">263 </span><span class="PreProc">#include </span><span class="Constant"><string.h></span> +<span id="L264" class="LineNr">264 </span><span class="PreProc">#include </span><span class="Constant"><string></span> +<span id="L265" class="LineNr">265 </span><span class="Normal">using</span> std::string<span class="Delimiter">;</span> <span id="L266" class="LineNr">266 </span> -<span id="L267" class="LineNr">267 </span><span class="PreProc">#include </span><span class="Constant"><string.h></span> -<span id="L268" class="LineNr">268 </span><span class="PreProc">#include </span><span class="Constant"><string></span> -<span id="L269" class="LineNr">269 </span><span class="Normal">using</span> std::string<span class="Delimiter">;</span> -<span id="L270" class="LineNr">270 </span> -<span id="L271" class="LineNr">271 </span><span class="PreProc">#include </span><span class="Constant"><algorithm></span> -<span id="L272" class="LineNr">272 </span><span class="Normal">using</span> std::min<span class="Delimiter">;</span> -<span id="L273" class="LineNr">273 </span><span class="Normal">using</span> std::max<span class="Delimiter">;</span> +<span id="L267" class="LineNr">267 </span><span class="PreProc">#include </span><span class="Constant"><algorithm></span> +<span id="L268" class="LineNr">268 </span><span class="Normal">using</span> std::min<span class="Delimiter">;</span> +<span id="L269" class="LineNr">269 </span><span class="Normal">using</span> std::max<span class="Delimiter">;</span> </pre> </body> </html> diff --git a/html/002test.cc.html b/html/002test.cc.html index 13e7959d..8af1961d 100644 --- a/html/002test.cc.html +++ b/html/002test.cc.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .CommentedCode { color: #8a8a8a; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> @@ -73,40 +73,40 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="Normal">typedef</span> <span class="Normal">void</span> <span class="Delimiter">(</span>*test_fn<span class="Delimiter">)(</span><span class="Normal">void</span><span class="Delimiter">);</span> <span id="L13" class="LineNr"> 13 </span><span class="Delimiter">:(before "Globals")</span> <span id="L14" class="LineNr"> 14 </span><span class="Comment">// move a global ahead into types that we can't generate an extern declaration for</span> -<span id="L15" class="LineNr"> 15 </span><span class="Normal">const</span> <a href='002test.cc.html#L12'>test_fn</a> <span class="Special"><a href='002test.cc.html#L15'>Tests</a></span>[] = <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span><span class="Normal">const</span> <a href='002test.cc.html#L12'>test_fn</a> <span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[] = <span class="Delimiter">{</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">#include </span><span class="Constant">"test_list"</span> <span class="Comment">// auto-generated; see 'build*' scripts</span> <span id="L17" class="LineNr"> 17 </span><span class="Delimiter">};</span> <span id="L18" class="LineNr"> 18 </span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L20" class="LineNr"> 20 </span><span class="Normal">bool</span> <span class="Special"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L21" class="LineNr"> 21 </span><span class="Normal">bool</span> <span class="Special"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// set this to false inside any test to indicate failure</span> +<span id="L20" class="LineNr"> 20 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L21" class="LineNr"> 21 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// set this to false inside any test to indicate failure</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L24" class="LineNr"> 24 </span><span class="PreProc">#define CHECK(</span><span class="Special">X</span><span class="PreProc">) \</span> -<span id="L25" class="LineNr"> 25 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && !(</span><span class="Special">X</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L26" class="LineNr"> 26 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="Special">X</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L27" class="LineNr"> 27 </span><span class="PreProc"> </span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L24" class="LineNr"> 24 </span><span class="PreProc">#define CHECK(</span><span class="SpecialChar">X</span><span class="PreProc">) \</span> +<span id="L25" class="LineNr"> 25 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && !(</span><span class="SpecialChar">X</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L26" class="LineNr"> 26 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="SpecialChar">X</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L27" class="LineNr"> 27 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L28" class="LineNr"> 28 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L29" class="LineNr"> 29 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span><span class="PreProc">#define CHECK_EQ(</span><span class="Special">X</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Special">Y</span><span class="PreProc">) \</span> -<span id="L32" class="LineNr"> 32 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && (</span><span class="Special">X</span><span class="PreProc">) != (</span><span class="Special">Y</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L33" class="LineNr"> 33 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="Special">X</span><span class="PreProc"> << </span><span class="Constant">" == "</span><span class="PreProc"> << #</span><span class="Special">Y</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L34" class="LineNr"> 34 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << (</span><span class="Special">X</span><span class="PreProc">) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> BEWARE: multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> -<span id="L35" class="LineNr"> 35 </span><span class="PreProc"> </span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">#define CHECK_EQ(</span><span class="SpecialChar">X</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="SpecialChar">Y</span><span class="PreProc">) \</span> +<span id="L32" class="LineNr"> 32 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && (</span><span class="SpecialChar">X</span><span class="PreProc">) != (</span><span class="SpecialChar">Y</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="SpecialChar">X</span><span class="PreProc"> << </span><span class="Constant">" == "</span><span class="PreProc"> << #</span><span class="SpecialChar">Y</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << (</span><span class="SpecialChar">X</span><span class="PreProc">) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> BEWARE: multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> +<span id="L35" class="LineNr"> 35 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L36" class="LineNr"> 36 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L37" class="LineNr"> 37 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span> <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L40" class="LineNr"> 40 </span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <span id="L42" class="LineNr"> 42 </span><span class="Delimiter">:(before "End Commandline Parsing")</span> -<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"test"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Special"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> --argc<span class="Delimiter">;</span> ++argv<span class="Delimiter">;</span> <span class="Comment">// shift 'test' out of commandline args</span> +<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"test"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L44" class="LineNr"> 44 </span> <span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> --argc<span class="Delimiter">;</span> ++argv<span class="Delimiter">;</span> <span class="Comment">// shift 'test' out of commandline args</span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> <span id="L47" class="LineNr"> 47 </span><span class="Delimiter">:(before "End Main")</span> -<span id="L48" class="LineNr"> 48 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L20'>Run_tests</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L49" class="LineNr"> 49 </span> <span class="Comment">// Test Runs</span> <span id="L50" class="LineNr"> 50 </span> <span class="Comment">// we run some tests and then exit; assume no state need be maintained afterward</span> <span id="L51" class="LineNr"> 51 </span> @@ -114,10 +114,10 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// End Test Run Initialization</span> <span id="L54" class="LineNr"> 54 </span> <span class="Normal">time_t</span> t<span class="Delimiter">;</span> time<span class="Delimiter">(</span>&t<span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> cerr << <span class="Constant">"C tests: "</span> << ctime<span class="Delimiter">(</span>&t<span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L57" class="LineNr"> 57 </span><span class="CommentedCode">//? cerr << "running " << Test_names[i] << '\n';</span> <span id="L58" class="LineNr"> 58 </span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">'.'</span><span class="Delimiter">;</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">'.'</span><span class="Delimiter">;</span> <span id="L60" class="LineNr"> 60 </span> <span class="Normal">else</span> ++num_failures<span class="Delimiter">;</span> <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> cerr << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> @@ -140,28 +140,28 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Delimiter">:(code)</span> <span id="L81" class="LineNr"> 81 </span><span class="Normal">void</span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span><span class="Normal">size_t</span> i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> cerr << <span class="Constant">"no test "</span> << i << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L84" class="LineNr"> 84 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr"> 86 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// End Test Setup</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">(</span>*<span class="Special"><a href='002test.cc.html#L15'>Tests</a></span>[i]<span class="Delimiter">)();</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">(</span>*<span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[i]<span class="Delimiter">)();</span> <span id="L89" class="LineNr"> 89 </span> <span class="Comment">// End Test Teardown</span> <span id="L90" class="LineNr"> 90 </span><span class="Delimiter">}</span> <span id="L91" class="LineNr"> 91 </span> <span id="L92" class="LineNr"> 92 </span><span class="Comment">//: Convenience: run a single test</span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "Globals")</span> <span id="L94" class="LineNr"> 94 </span><span class="Comment">// Names for each element of the 'Tests' global, respectively.</span> -<span id="L95" class="LineNr"> 95 </span><span class="Normal">const</span> string <span class="Special"><a href='002test.cc.html#L95'>Test_names</a></span>[] = <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span><span class="Normal">const</span> string <span class="SpecialChar"><a href='002test.cc.html#L95'>Test_names</a></span>[] = <span class="Delimiter">{</span> <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">#include </span><span class="Constant">"test_name_list"</span> <span class="Comment">// auto-generated; see 'build*' scripts</span> <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">};</span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(after "Test Runs")</span> <span id="L99" class="LineNr"> 99 </span>string <a href='002test.cc.html#L99'>maybe_single_test_to_run</a> = argv[argc-<span class="Constant">1</span>]<span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L95'>Test_names</a></span>[i] == <a href='002test.cc.html#L99'>maybe_single_test_to_run</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L95'>Test_names</a></span>[i] == <a href='002test.cc.html#L99'>maybe_single_test_to_run</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L102" class="LineNr">102 </span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">".\n"</span><span class="Delimiter">;</span> +<span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">".\n"</span><span class="Delimiter">;</span> <span id="L104" class="LineNr">104 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> diff --git a/html/003trace.cc.html b/html/003trace.cc.html index 6a9800d3..7c259d19 100644 --- a/html/003trace.cc.html +++ b/html/003trace.cc.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; } .cSpecial { color: #008000; } +.PreProc { color: #c000c0; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SalientComment { color: #0000af; } --> </style> @@ -130,7 +130,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span><span class="SalientComment">//:: == Core data structures</span> <span id="L70" class="LineNr"> 70 </span> <span id="L71" class="LineNr"> 71 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L72" class="LineNr"> 72 </span>trace_stream* <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L72" class="LineNr"> 72 </span>trace_stream* <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L73" class="LineNr"> 73 </span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">:(before "End Types")</span> <span id="L75" class="LineNr"> 75 </span><span class="Normal">struct</span> trace_stream <span class="Delimiter">{</span> @@ -154,7 +154,7 @@ if ('onhashchange' in window) { <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L94" class="LineNr"> 94 </span><span class="Comment">// No brackets around the expansion so that it prints nothing if Trace_stream</span> <span id="L95" class="LineNr"> 95 </span><span class="Comment">// isn't initialized.</span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define trace(</span><span class="Delimiter">...</span><span class="PreProc">) !</span><span class="Special">Trace_stream</span><span class="PreProc"> ? cerr : </span><span class="Special">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define trace(</span><span class="Delimiter">...</span><span class="PreProc">) !</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? cerr : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(before "End trace_stream Fields")</span> <span id="L99" class="LineNr"> 99 </span><span class="Comment">// accumulator for current trace_line</span> @@ -167,11 +167,11 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="Comment">//: Some constants.</span> <span id="L108" class="LineNr">108 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span class="Comment">// include constants in all cleaved compilation units</span> -<span id="L109" class="LineNr">109 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="Special"><a href='003trace.cc.html#L109'>Max_depth</a></span> = <span class="Constant">9999</span><span class="Delimiter">;</span> +<span id="L109" class="LineNr">109 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span> = <span class="Constant">9999</span><span class="Delimiter">;</span> <span id="L110" class="LineNr">110 </span><span class="Delimiter">:(before "End trace_stream Constructor")</span> <span id="L111" class="LineNr">111 </span>curr_stream = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L112" class="LineNr">112 </span><a href='003trace.cc.html#L102'>curr_depth</a> = <span class="Special"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> -<span id="L113" class="LineNr">113 </span><a href='003trace.cc.html#L104'>collect_depth</a> = <span class="Special"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> +<span id="L112" class="LineNr">112 </span><a href='003trace.cc.html#L102'>curr_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> +<span id="L113" class="LineNr">113 </span><a href='003trace.cc.html#L104'>collect_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> <span id="L114" class="LineNr">114 </span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span id="L116" class="LineNr">116 </span><span class="Normal">struct</span> trace_line <span class="Delimiter">{</span> @@ -192,7 +192,7 @@ if ('onhashchange' in window) { <span id="L131" class="LineNr">131 </span> <span id="L132" class="LineNr">132 </span>string <a href='003trace.cc.html#L132'>unescape_newline</a><span class="Delimiter">(</span>string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> std::stringstream ss<span class="Delimiter">;</span> -<span id="L134" class="LineNr">134 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> == <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> <span id="L136" class="LineNr">136 </span> ss << <span class="Constant">"\\n"</span><span class="Delimiter">;</span> <span id="L137" class="LineNr">137 </span> <span class="Normal">else</span> @@ -208,7 +208,7 @@ if ('onhashchange' in window) { <span id="L147" class="LineNr">147 </span><span class="Comment">//: Starting a new trace line.</span> <span id="L148" class="LineNr">148 </span><span class="Delimiter">:(before "End trace_stream Methods")</span> <span id="L149" class="LineNr">149 </span>ostream& stream<span class="Delimiter">(</span>string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L150" class="LineNr">150 </span> <span class="Identifier">return</span> stream<span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">,</span> label<span class="Delimiter">);</span> +<span id="L150" class="LineNr">150 </span> <span class="Identifier">return</span> stream<span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">,</span> label<span class="Delimiter">);</span> <span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span>ostream& stream<span class="Delimiter">(</span><span class="Normal">int</span> <a href='003trace.cc.html#L119'>depth</a><span class="Delimiter">,</span> string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -225,7 +225,7 @@ if ('onhashchange' in window) { <span id="L164" class="LineNr">164 </span><span class="Normal">struct</span> end <span class="Delimiter">{};</span> <span id="L165" class="LineNr">165 </span><span class="Delimiter">:(code)</span> <span id="L166" class="LineNr">166 </span>ostream& <span class="Normal">operator</span><<<span class="Delimiter">(</span>ostream& os<span class="Delimiter">,</span> end <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> +<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> <span id="L168" class="LineNr">168 </span> <span class="Identifier">return</span> os<span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> <span id="L170" class="LineNr">170 </span> @@ -234,7 +234,7 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr">173 </span><span class="Normal">struct</span> <a href='003trace.cc.html#L173'>die</a> <span class="Delimiter">{};</span> <span id="L174" class="LineNr">174 </span><span class="Delimiter">:(code)</span> <span id="L175" class="LineNr">175 </span>ostream& <span class="Normal">operator</span><<<span class="Delimiter">(</span>ostream& <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <a href='003trace.cc.html#L173'>die</a> <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> +<span id="L176" class="LineNr">176 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> <span id="L177" class="LineNr">177 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L178" class="LineNr">178 </span><span class="Delimiter">}</span> <span id="L179" class="LineNr">179 </span> @@ -246,285 +246,285 @@ if ('onhashchange' in window) { <span id="L185" class="LineNr">185 </span> string curr_contents = curr_stream<span class="Delimiter">-></span>str<span class="Delimiter">();</span> <span id="L186" class="LineNr">186 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!curr_contents<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L187" class="LineNr">187 </span> <a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>trace_line<span class="Delimiter">(</span>curr_contents<span class="Delimiter">,</span> <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span><a href='003trace.cc.html#L101'>curr_label</a><span class="Delimiter">),</span> <a href='003trace.cc.html#L102'>curr_depth</a><span class="Delimiter">));</span> <span class="Comment">// preserve indent in contents</span> -<span id="L188" class="LineNr">188 </span> <span class="Comment">// maybe incrementally dump trace</span> +<span id="L188" class="LineNr">188 </span> <span class="Comment">// maybe print this line to stderr</span> <span id="L189" class="LineNr">189 </span> trace_line& t = <a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>back<span class="Delimiter">();</span> -<span id="L190" class="LineNr">190 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L245'>should_incrementally_print_trace</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L243'>should_incrementally_print_trace</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L143'>dump_trace_line</a><span class="Delimiter">(</span>cerr<span class="Delimiter">,</span> t<span class="Delimiter">);</span> <span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> <span class="Comment">// Hack: on 'bootstrap --trace --dump', emit only to stderr, not 'last_run'.</span> -<span id="L194" class="LineNr">194 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L485'>Dump_trace</a></span><span class="Delimiter">)</span> <a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>pop_back<span class="Delimiter">();</span> <span class="Comment">// economize on memory</span> -<span id="L195" class="LineNr">195 </span> <span class="Comment">// End trace Commit</span> -<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="Comment">// clean up</span> -<span id="L199" class="LineNr">199 </span> <span class="Normal">delete</span> curr_stream<span class="Delimiter">;</span> -<span id="L200" class="LineNr">200 </span> curr_stream = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L201" class="LineNr">201 </span> <a href='003trace.cc.html#L101'>curr_label</a><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> -<span id="L202" class="LineNr">202 </span> <a href='003trace.cc.html#L102'>curr_depth</a> = <span class="Special"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> -<span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span> <span class="Comment">// End trace Commit</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="Comment">// clean up</span> +<span id="L197" class="LineNr">197 </span> <span class="Normal">delete</span> curr_stream<span class="Delimiter">;</span> +<span id="L198" class="LineNr">198 </span> curr_stream = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L101'>curr_label</a><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> +<span id="L200" class="LineNr">200 </span> <a href='003trace.cc.html#L102'>curr_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> +<span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span> +<span id="L203" class="LineNr">203 </span><span class="SalientComment">//:: == Initializing the trace in tests</span> <span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="SalientComment">//:: == Initializing the trace in tests</span> -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L208" class="LineNr">208 </span><span class="PreProc">#define START_TRACING_UNTIL_END_OF_SCOPE lease_tracer leased_tracer</span><span class="Delimiter">;</span> -<span id="L209" class="LineNr">209 </span><span class="Delimiter">:(before "End Test Setup")</span> -<span id="L210" class="LineNr">210 </span><a href='003trace.cc.html#L208'>START_TRACING_UNTIL_END_OF_SCOPE</a> -<span id="L211" class="LineNr">211 </span> -<span id="L212" class="LineNr">212 </span><span class="Comment">//: Trace_stream is a resource, lease_tracer uses RAII to manage it.</span> -<span id="L213" class="LineNr">213 </span><span class="Delimiter">:(before "End Types")</span> -<span id="L214" class="LineNr">214 </span><span class="Normal">struct</span> lease_tracer <span class="Delimiter">{</span> -<span id="L215" class="LineNr">215 </span> lease_tracer<span class="Delimiter">();</span> -<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L220'>~lease_tracer</a><span class="Delimiter">();</span> -<span id="L217" class="LineNr">217 </span><span class="Delimiter">};</span> -<span id="L218" class="LineNr">218 </span><span class="Delimiter">:(code)</span> -<span id="L219" class="LineNr">219 </span>lease_tracer::lease_tracer<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span class="Delimiter">}</span> -<span id="L220" class="LineNr">220 </span>lease_tracer::<a href='003trace.cc.html#L220'>~lease_tracer</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> <span class="Normal">delete</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">;</span> -<span id="L222" class="LineNr">222 </span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L223" class="LineNr">223 </span><span class="Delimiter">}</span> +<span id="L205" class="LineNr">205 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">#define START_TRACING_UNTIL_END_OF_SCOPE lease_tracer leased_tracer</span><span class="Delimiter">;</span> +<span id="L207" class="LineNr">207 </span><span class="Delimiter">:(before "End Test Setup")</span> +<span id="L208" class="LineNr">208 </span><a href='003trace.cc.html#L206'>START_TRACING_UNTIL_END_OF_SCOPE</a> +<span id="L209" class="LineNr">209 </span> +<span id="L210" class="LineNr">210 </span><span class="Comment">//: Trace_stream is a resource, lease_tracer uses RAII to manage it.</span> +<span id="L211" class="LineNr">211 </span><span class="Delimiter">:(before "End Types")</span> +<span id="L212" class="LineNr">212 </span><span class="Normal">struct</span> lease_tracer <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> lease_tracer<span class="Delimiter">();</span> +<span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L218'>~lease_tracer</a><span class="Delimiter">();</span> +<span id="L215" class="LineNr">215 </span><span class="Delimiter">};</span> +<span id="L216" class="LineNr">216 </span><span class="Delimiter">:(code)</span> +<span id="L217" class="LineNr">217 </span>lease_tracer::lease_tracer<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span>lease_tracer::<a href='003trace.cc.html#L218'>~lease_tracer</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L219" class="LineNr">219 </span> <span class="Normal">delete</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">;</span> +<span id="L220" class="LineNr">220 </span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> +<span id="L222" class="LineNr">222 </span> +<span id="L223" class="LineNr">223 </span><span class="SalientComment">//:: == Errors and warnings using traces</span> <span id="L224" class="LineNr">224 </span> -<span id="L225" class="LineNr">225 </span><span class="SalientComment">//:: == Errors and warnings using traces</span> -<span id="L226" class="LineNr">226 </span> -<span id="L227" class="LineNr">227 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L228" class="LineNr">228 </span><span class="PreProc">#define raise (!</span><span class="Special">Trace_stream</span><span class="PreProc"> ? (++</span><span class="Special">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="Special">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Special">Error_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"error"</span><span class="PreProc">))</span> -<span id="L229" class="LineNr">229 </span><span class="PreProc">#define warn (!</span><span class="Special">Trace_stream</span><span class="PreProc"> ? (++</span><span class="Special">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="Special">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Special">Warn_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"warn"</span><span class="PreProc">))</span> -<span id="L230" class="LineNr">230 </span> -<span id="L231" class="LineNr">231 </span><span class="Comment">//: Print errors and warnings to the screen by default.</span> -<span id="L232" class="LineNr">232 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span class="Comment">// include constants in all cleaved compilation units</span> -<span id="L233" class="LineNr">233 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="Special"><a href='003trace.cc.html#L233'>Error_depth</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L234" class="LineNr">234 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="Special"><a href='003trace.cc.html#L234'>Warn_depth</a></span> = <span class="Constant">1</span><span class="Delimiter">;</span> -<span id="L235" class="LineNr">235 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L236" class="LineNr">236 </span><span class="Normal">int</span> <span class="Special">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print errors or warnings to screen</span> -<span id="L237" class="LineNr">237 </span><span class="Normal">int</span> <span class="Special">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print warnings to screen</span> -<span id="L238" class="LineNr">238 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L239" class="LineNr">239 </span><span class="Special">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L240" class="LineNr">240 </span><span class="Special">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L241" class="LineNr">241 </span><span class="Comment">//: Never dump warnings in tests</span> -<span id="L242" class="LineNr">242 </span><span class="Delimiter">:(before "End Test Setup")</span> -<span id="L243" class="LineNr">243 </span><span class="Special">Hide_warnings</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L244" class="LineNr">244 </span><span class="Delimiter">:(code)</span> -<span id="L245" class="LineNr">245 </span><span class="Normal">bool</span> trace_stream::<a href='003trace.cc.html#L245'>should_incrementally_print_trace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="Special"><a href='003trace.cc.html#L233'>Error_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L247" class="LineNr">247 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special">Hide_warnings</span> && !<span class="Special">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="Special"><a href='003trace.cc.html#L234'>Warn_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L248" class="LineNr">248 </span> <span class="Comment">// End Incremental Trace Print Conditions</span> -<span id="L249" class="LineNr">249 </span> <span class="Identifier">return</span> <span class="Constant">false</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="Delimiter">:(before "End trace_stream Methods")</span> -<span id="L252" class="LineNr">252 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L245'>should_incrementally_print_trace</a><span class="Delimiter">();</span> -<span id="L253" class="LineNr">253 </span> -<span id="L254" class="LineNr">254 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L255" class="LineNr">255 </span><span class="Normal">int</span> <span class="Special"><a href='003trace.cc.html#L255'>Trace_errors</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// used only when Trace_stream is NULL</span> -<span id="L256" class="LineNr">256 </span> -<span id="L257" class="LineNr">257 </span><span class="Comment">// Fail tests that displayed (unexpected) errors.</span> -<span id="L258" class="LineNr">258 </span><span class="Comment">// Expected errors should always be hidden and silently checked for.</span> -<span id="L259" class="LineNr">259 </span><span class="Delimiter">:(before "End Test Teardown")</span> -<span id="L260" class="LineNr">260 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span> && !<span class="Special">Hide_errors</span> && <a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="Special"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> -<span id="L263" class="LineNr">263 </span><span class="Delimiter">:(code)</span> -<span id="L264" class="LineNr">264 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="Identifier">return</span> <span class="Special"><a href='003trace.cc.html#L255'>Trace_errors</a></span> > <span class="Constant">0</span> || trace_count<span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">)</span> > <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L266" class="LineNr">266 </span><span class="Delimiter">}</span> -<span id="L267" class="LineNr">267 </span> -<span id="L268" class="LineNr">268 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L269" class="LineNr">269 </span><span class="Comment">// If we aren't yet sure how to deal with some corner case, use assert_for_now</span> -<span id="L270" class="LineNr">270 </span><span class="Comment">// to indicate that it isn't an inviolable invariant.</span> -<span id="L271" class="LineNr">271 </span><span class="PreProc">#define assert_for_now assert</span> -<span id="L272" class="LineNr">272 </span><span class="PreProc">#define raise_for_now raise</span> -<span id="L273" class="LineNr">273 </span> -<span id="L274" class="LineNr">274 </span><span class="SalientComment">//:: == Other assertions on traces</span> -<span id="L275" class="LineNr">275 </span><span class="Comment">//: Primitives:</span> -<span id="L276" class="LineNr">276 </span><span class="Comment">//: - CHECK_TRACE_CONTENTS(lines)</span> -<span id="L277" class="LineNr">277 </span><span class="Comment">//: Assert that the trace contains the given lines (separated by newlines)</span> -<span id="L278" class="LineNr">278 </span><span class="Comment">//: in order. There can be other intervening lines between them.</span> -<span id="L279" class="LineNr">279 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN(line)</span> -<span id="L280" class="LineNr">280 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN(label, contents)</span> -<span id="L281" class="LineNr">281 </span><span class="Comment">//: Assert that the trace doesn't contain the given (single) line.</span> -<span id="L282" class="LineNr">282 </span><span class="Comment">//: - CHECK_TRACE_COUNT(label, count)</span> -<span id="L283" class="LineNr">283 </span><span class="Comment">//: Assert that the trace contains exactly 'count' lines with the given</span> -<span id="L284" class="LineNr">284 </span><span class="Comment">//: 'label'.</span> -<span id="L285" class="LineNr">285 </span><span class="Comment">//: - CHECK_TRACE_CONTAINS_ERRORS()</span> -<span id="L286" class="LineNr">286 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN_ERRORS()</span> -<span id="L287" class="LineNr">287 </span><span class="Comment">//: - trace_count_prefix(label, prefix)</span> -<span id="L288" class="LineNr">288 </span><span class="Comment">//: Count the number of trace lines with the given 'label' that start with</span> -<span id="L289" class="LineNr">289 </span><span class="Comment">//: the given 'prefix'.</span> -<span id="L290" class="LineNr">290 </span> -<span id="L291" class="LineNr">291 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L292" class="LineNr">292 </span><span class="PreProc">#define CHECK_TRACE_CONTENTS(</span><span class="Delimiter">...</span><span class="PreProc">) check_trace_contents(__FUNCTION__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__FILE__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__LINE__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> +<span id="L225" class="LineNr">225 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L226" class="LineNr">226 </span><span class="PreProc">#define raise (!</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? (++</span><span class="SpecialChar">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="SpecialChar">Error_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"error"</span><span class="PreProc">))</span> +<span id="L227" class="LineNr">227 </span><span class="PreProc">#define warn (!</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? (++</span><span class="SpecialChar">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="SpecialChar">Warn_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"warn"</span><span class="PreProc">))</span> +<span id="L228" class="LineNr">228 </span> +<span id="L229" class="LineNr">229 </span><span class="Comment">//: Print errors and warnings to the screen by default.</span> +<span id="L230" class="LineNr">230 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span class="Comment">// include constants in all cleaved compilation units</span> +<span id="L231" class="LineNr">231 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L231'>Error_depth</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L232" class="LineNr">232 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L232'>Warn_depth</a></span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L233" class="LineNr">233 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L234" class="LineNr">234 </span><span class="Normal">int</span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print errors or warnings to screen</span> +<span id="L235" class="LineNr">235 </span><span class="Normal">int</span> <span class="SpecialChar">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print warnings to screen</span> +<span id="L236" class="LineNr">236 </span><span class="Delimiter">:(before "End Reset")</span> +<span id="L237" class="LineNr">237 </span><span class="SpecialChar">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L238" class="LineNr">238 </span><span class="SpecialChar">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L239" class="LineNr">239 </span><span class="Comment">//: Never dump warnings in tests</span> +<span id="L240" class="LineNr">240 </span><span class="Delimiter">:(before "End Test Setup")</span> +<span id="L241" class="LineNr">241 </span><span class="SpecialChar">Hide_warnings</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L242" class="LineNr">242 </span><span class="Delimiter">:(code)</span> +<span id="L243" class="LineNr">243 </span><span class="Normal">bool</span> trace_stream::<a href='003trace.cc.html#L243'>should_incrementally_print_trace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="SpecialChar"><a href='003trace.cc.html#L231'>Error_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L245" class="LineNr">245 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Hide_warnings</span> && !<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="SpecialChar"><a href='003trace.cc.html#L232'>Warn_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L246" class="LineNr">246 </span> <span class="Comment">// End Incremental Trace Print Conditions</span> +<span id="L247" class="LineNr">247 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L248" class="LineNr">248 </span><span class="Delimiter">}</span> +<span id="L249" class="LineNr">249 </span><span class="Delimiter">:(before "End trace_stream Methods")</span> +<span id="L250" class="LineNr">250 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L243'>should_incrementally_print_trace</a><span class="Delimiter">();</span> +<span id="L251" class="LineNr">251 </span> +<span id="L252" class="LineNr">252 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L253" class="LineNr">253 </span><span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L253'>Trace_errors</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// used only when Trace_stream is NULL</span> +<span id="L254" class="LineNr">254 </span> +<span id="L255" class="LineNr">255 </span><span class="Comment">// Fail tests that displayed (unexpected) errors.</span> +<span id="L256" class="LineNr">256 </span><span class="Comment">// Expected errors should always be hidden and silently checked for.</span> +<span id="L257" class="LineNr">257 </span><span class="Delimiter">:(before "End Test Teardown")</span> +<span id="L258" class="LineNr">258 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> && !<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L260" class="LineNr">260 </span><span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span><span class="Delimiter">:(code)</span> +<span id="L262" class="LineNr">262 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="Identifier">return</span> <span class="SpecialChar"><a href='003trace.cc.html#L253'>Trace_errors</a></span> > <span class="Constant">0</span> || trace_count<span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">)</span> > <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> +<span id="L265" class="LineNr">265 </span> +<span id="L266" class="LineNr">266 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L267" class="LineNr">267 </span><span class="Comment">// If we aren't yet sure how to deal with some corner case, use assert_for_now</span> +<span id="L268" class="LineNr">268 </span><span class="Comment">// to indicate that it isn't an inviolable invariant.</span> +<span id="L269" class="LineNr">269 </span><span class="PreProc">#define assert_for_now assert</span> +<span id="L270" class="LineNr">270 </span><span class="PreProc">#define raise_for_now raise</span> +<span id="L271" class="LineNr">271 </span> +<span id="L272" class="LineNr">272 </span><span class="SalientComment">//:: == Other assertions on traces</span> +<span id="L273" class="LineNr">273 </span><span class="Comment">//: Primitives:</span> +<span id="L274" class="LineNr">274 </span><span class="Comment">//: - CHECK_TRACE_CONTENTS(lines)</span> +<span id="L275" class="LineNr">275 </span><span class="Comment">//: Assert that the trace contains the given lines (separated by newlines)</span> +<span id="L276" class="LineNr">276 </span><span class="Comment">//: in order. There can be other intervening lines between them.</span> +<span id="L277" class="LineNr">277 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN(line)</span> +<span id="L278" class="LineNr">278 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN(label, contents)</span> +<span id="L279" class="LineNr">279 </span><span class="Comment">//: Assert that the trace doesn't contain the given (single) line.</span> +<span id="L280" class="LineNr">280 </span><span class="Comment">//: - CHECK_TRACE_COUNT(label, count)</span> +<span id="L281" class="LineNr">281 </span><span class="Comment">//: Assert that the trace contains exactly 'count' lines with the given</span> +<span id="L282" class="LineNr">282 </span><span class="Comment">//: 'label'.</span> +<span id="L283" class="LineNr">283 </span><span class="Comment">//: - CHECK_TRACE_CONTAINS_ERRORS()</span> +<span id="L284" class="LineNr">284 </span><span class="Comment">//: - CHECK_TRACE_DOESNT_CONTAIN_ERRORS()</span> +<span id="L285" class="LineNr">285 </span><span class="Comment">//: - trace_count_prefix(label, prefix)</span> +<span id="L286" class="LineNr">286 </span><span class="Comment">//: Count the number of trace lines with the given 'label' that start with</span> +<span id="L287" class="LineNr">287 </span><span class="Comment">//: the given 'prefix'.</span> +<span id="L288" class="LineNr">288 </span> +<span id="L289" class="LineNr">289 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L290" class="LineNr">290 </span><span class="PreProc">#define CHECK_TRACE_CONTENTS(</span><span class="Delimiter">...</span><span class="PreProc">) check_trace_contents(__FUNCTION__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__FILE__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__LINE__</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> +<span id="L291" class="LineNr">291 </span> +<span id="L292" class="LineNr">292 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN(</span><span class="Delimiter">...</span><span class="PreProc">) CHECK(trace_doesnt_contain(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">))</span> <span id="L293" class="LineNr">293 </span> -<span id="L294" class="LineNr">294 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN(</span><span class="Delimiter">...</span><span class="PreProc">) CHECK(trace_doesnt_contain(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">))</span> -<span id="L295" class="LineNr">295 </span> -<span id="L296" class="LineNr">296 </span><span class="PreProc">#define CHECK_TRACE_COUNT(label</span><span class="Delimiter">,</span><span class="PreProc"> count) \</span> -<span id="L297" class="LineNr">297 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && trace_count(label) != (count)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L298" class="LineNr">298 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): trace_count of "</span><span class="PreProc"> << label << </span><span class="Constant">" should be "</span><span class="PreProc"> << count << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L299" class="LineNr">299 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << trace_count(label) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> -<span id="L300" class="LineNr">300 </span><span class="PreProc"> <a href='003trace.cc.html#L437'>DUMP</a>(label)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L301" class="LineNr">301 </span><span class="PreProc"> </span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L302" class="LineNr">302 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> -<span id="L303" class="LineNr">303 </span><span class="PreProc"> </span><span class="Delimiter">}</span> -<span id="L304" class="LineNr">304 </span> -<span id="L305" class="LineNr">305 </span><span class="PreProc">#define CHECK_TRACE_CONTAINS_ERRORS() CHECK(trace_contains_errors())</span> -<span id="L306" class="LineNr">306 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN_ERRORS() \</span> -<span id="L307" class="LineNr">307 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && <a href='003trace.cc.html#L264'>trace_contains_errors</a>()) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L308" class="LineNr">308 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): unexpected errors\n"</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L309" class="LineNr">309 </span><span class="PreProc"> <a href='003trace.cc.html#L437'>DUMP</a>(</span><span class="Constant">"error"</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L310" class="LineNr">310 </span><span class="PreProc"> </span><span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L311" class="LineNr">311 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L312" class="LineNr">312 </span><span class="PreProc"> </span><span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> -<span id="L314" class="LineNr">314 </span><span class="Comment">// Allow tests to ignore trace lines generated during setup.</span> -<span id="L315" class="LineNr">315 </span><span class="PreProc">#define CLEAR_TRACE </span><span class="Normal">delete</span><span class="PreProc"> </span><span class="Special">Trace_stream</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Special">Trace_stream</span><span class="PreProc"> = </span><span class="Normal">new</span><span class="PreProc"> trace_stream</span> -<span id="L316" class="LineNr">316 </span> -<span id="L317" class="LineNr">317 </span><span class="Delimiter">:(code)</span> -<span id="L318" class="LineNr">318 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L318'>check_trace_contents</a><span class="Delimiter">(</span>string FUNCTION<span class="Delimiter">,</span> string <span class="Normal">FILE</span><span class="Delimiter">,</span> <span class="Normal">int</span> LINE<span class="Delimiter">,</span> string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L319" class="LineNr">319 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L320" class="LineNr">320 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L321" class="LineNr">321 </span> vector<string> expected_lines = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">"\n"</span><span class="Delimiter">);</span> -<span id="L322" class="LineNr">322 </span> <span class="Normal">int</span> curr_expected_line = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L323" class="LineNr">323 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> -<span id="L324" class="LineNr">324 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L325" class="LineNr">325 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L326" class="LineNr">326 </span> string label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">;</span> -<span id="L327" class="LineNr">327 </span> <a href='003trace.cc.html#L388'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> -<span id="L328" class="LineNr">328 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L329" class="LineNr">329 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L330" class="LineNr">330 </span> string t = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">);</span> -<span id="L331" class="LineNr">331 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> != <a href='003trace.cc.html#L132'>unescape_newline</a><span class="Delimiter">(</span>t<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L332" class="LineNr">332 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L333" class="LineNr">333 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> -<span id="L334" class="LineNr">334 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L335" class="LineNr">335 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L336" class="LineNr">336 </span> <a href='003trace.cc.html#L388'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> -<span id="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="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L401'>line_exists_anywhere</a><span class="Delimiter">(</span>label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L340" class="LineNr">340 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): <a href='011run.cc.html#L121'>line</a> ["</span> << label << <span class="Constant">": "</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] out of order in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> -<span id="L341" class="LineNr">341 </span> <a href='003trace.cc.html#L437'>DUMP</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">);</span> -<span id="L342" class="LineNr">342 </span> <span class="Delimiter">}</span> -<span id="L343" class="LineNr">343 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L344" class="LineNr">344 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): missing ["</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> -<span id="L345" class="LineNr">345 </span> <a href='003trace.cc.html#L437'>DUMP</a><span class="Delimiter">(</span>label<span class="Delimiter">);</span> -<span id="L346" class="LineNr">346 </span> <span class="Delimiter">}</span> -<span id="L347" class="LineNr">347 </span> <span class="Special"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L348" class="LineNr">348 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> -<span id="L350" class="LineNr">350 </span> -<span id="L351" class="LineNr">351 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L351'>trace_doesnt_contain</a><span class="Delimiter">(</span>string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L352" class="LineNr">352 </span> vector<string> tmp = <a href='003trace.cc.html#L424'>split_first</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">": "</span><span class="Delimiter">);</span> -<span id="L353" class="LineNr">353 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>tmp<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L354" class="LineNr">354 </span> <a href='003trace.cc.html#L228'>raise</a> << expected << <span class="Constant">": missing label or <a href='003trace.cc.html#L117'>contents</a> in <a href='003trace.cc.html#L96'>trace</a> line\n"</span> << end<span class="Delimiter">();</span> -<span id="L355" class="LineNr">355 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> -<span id="L356" class="LineNr">356 </span> <span class="Delimiter">}</span> -<span id="L357" class="LineNr">357 </span> <span class="Identifier">return</span> trace_count<span class="Delimiter">(</span>tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> -<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="Normal">int</span> trace_count<span class="Delimiter">(</span>string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="Identifier">return</span> trace_count<span class="Delimiter">(</span>label<span class="Delimiter">,</span> <span class="Constant">""</span><span class="Delimiter">);</span> -<span id="L362" class="LineNr">362 </span><span class="Delimiter">}</span> -<span id="L363" class="LineNr">363 </span> -<span id="L364" class="LineNr">364 </span><span class="Normal">int</span> trace_count<span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string <a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L365" class="LineNr">365 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L366" class="LineNr">366 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L367" class="LineNr">367 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L368" class="LineNr">368 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L369" class="LineNr">369 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a> == <span class="Constant">""</span> || <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> -<span id="L370" class="LineNr">370 </span> ++result<span class="Delimiter">;</span> -<span id="L371" class="LineNr">371 </span> <span class="Delimiter">}</span> -<span id="L372" class="LineNr">372 </span> <span class="Delimiter">}</span> -<span id="L373" class="LineNr">373 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</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="Normal">int</span> <a href='003trace.cc.html#L376'>trace_count_prefix</a><span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string prefix<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L377" class="LineNr">377 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L378" class="LineNr">378 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L379" class="LineNr">379 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L380" class="LineNr">380 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L106'>starts_with</a><span class="Delimiter">(</span><a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">),</span> <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>prefix<span class="Delimiter">)))</span> -<span id="L382" class="LineNr">382 </span> ++result<span class="Delimiter">;</span> -<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> -<span id="L384" class="LineNr">384 </span> <span class="Delimiter">}</span> -<span id="L385" class="LineNr">385 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> -<span id="L387" class="LineNr">387 </span> -<span id="L388" class="LineNr">388 </span><span class="Normal">void</span> <a href='003trace.cc.html#L388'>split_label_contents</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> string* label<span class="Delimiter">,</span> string* <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L389" class="LineNr">389 </span> <span class="Normal">static</span> <span class="Normal">const</span> string delim<span class="Delimiter">(</span><span class="Constant">": "</span><span class="Delimiter">);</span> -<span id="L390" class="LineNr">390 </span> <span class="Normal">size_t</span> pos = s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> -<span id="L391" class="LineNr">391 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>pos == string::npos<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L392" class="LineNr">392 </span> *label = <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L393" class="LineNr">393 </span> *contents = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> -<span id="L394" class="LineNr">394 </span> <span class="Delimiter">}</span> -<span id="L395" class="LineNr">395 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L396" class="LineNr">396 </span> *label = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> pos<span class="Delimiter">));</span> -<span id="L397" class="LineNr">397 </span> *contents = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span>pos+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">)));</span> -<span id="L398" class="LineNr">398 </span> <span class="Delimiter">}</span> -<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="Normal">bool</span> <a href='003trace.cc.html#L401'>line_exists_anywhere</a><span class="Delimiter">(</span><span class="Normal">const</span> string& label<span class="Delimiter">,</span> <span class="Normal">const</span> string& <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L402" class="LineNr">402 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L403" class="LineNr">403 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L404" class="LineNr">404 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L405" class="LineNr">405 </span> <span class="Delimiter">}</span> -<span id="L406" class="LineNr">406 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> -<span id="L408" class="LineNr">408 </span> -<span id="L409" class="LineNr">409 </span>vector<string> <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span>string s<span class="Delimiter">,</span> string delim<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L410" class="LineNr">410 </span> vector<string> result<span class="Delimiter">;</span> -<span id="L411" class="LineNr">411 </span> <span class="Normal">size_t</span> begin=<span class="Constant">0</span><span class="Delimiter">,</span> end=s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> -<span id="L412" class="LineNr">412 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><span class="Constant">true</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L413" class="LineNr">413 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>end == string::npos<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L414" class="LineNr">414 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> begin<span class="Delimiter">,</span> string::npos<span class="Delimiter">));</span> -<span id="L415" class="LineNr">415 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L416" class="LineNr">416 </span> <span class="Delimiter">}</span> -<span id="L417" class="LineNr">417 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> begin<span class="Delimiter">,</span> end-begin<span class="Delimiter">));</span> -<span id="L418" class="LineNr">418 </span> begin = end+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> -<span id="L419" class="LineNr">419 </span> end = s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">,</span> begin<span class="Delimiter">);</span> -<span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> -<span id="L421" class="LineNr">421 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L422" class="LineNr">422 </span><span class="Delimiter">}</span> -<span id="L423" class="LineNr">423 </span> -<span id="L424" class="LineNr">424 </span>vector<string> <a href='003trace.cc.html#L424'>split_first</a><span class="Delimiter">(</span>string s<span class="Delimiter">,</span> string delim<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L425" class="LineNr">425 </span> vector<string> result<span class="Delimiter">;</span> -<span id="L426" class="LineNr">426 </span> <span class="Normal">size_t</span> end=s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> -<span id="L427" class="LineNr">427 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">,</span> end<span class="Delimiter">));</span> -<span id="L428" class="LineNr">428 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>end != string::npos<span class="Delimiter">)</span> -<span id="L429" class="LineNr">429 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> end+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">),</span> string::npos<span class="Delimiter">));</span> -<span id="L430" class="LineNr">430 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L431" class="LineNr">431 </span><span class="Delimiter">}</span> +<span id="L294" class="LineNr">294 </span><span class="PreProc">#define CHECK_TRACE_COUNT(label</span><span class="Delimiter">,</span><span class="PreProc"> count) \</span> +<span id="L295" class="LineNr">295 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && trace_count(label) != (count)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L296" class="LineNr">296 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): trace_count of "</span><span class="PreProc"> << label << </span><span class="Constant">" should be "</span><span class="PreProc"> << count << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L297" class="LineNr">297 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << trace_count(label) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> +<span id="L298" class="LineNr">298 </span><span class="PreProc"> <a href='003trace.cc.html#L435'>DUMP</a>(label)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L299" class="LineNr">299 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L300" class="LineNr">300 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> +<span id="L301" class="LineNr">301 </span><span class="PreProc"> </span><span class="Delimiter">}</span> +<span id="L302" class="LineNr">302 </span> +<span id="L303" class="LineNr">303 </span><span class="PreProc">#define CHECK_TRACE_CONTAINS_ERRORS() CHECK(trace_contains_errors())</span> +<span id="L304" class="LineNr">304 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN_ERRORS() \</span> +<span id="L305" class="LineNr">305 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && <a href='003trace.cc.html#L262'>trace_contains_errors</a>()) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L306" class="LineNr">306 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): unexpected errors\n"</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L307" class="LineNr">307 </span><span class="PreProc"> <a href='003trace.cc.html#L435'>DUMP</a>(</span><span class="Constant">"error"</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L308" class="LineNr">308 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L309" class="LineNr">309 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L310" class="LineNr">310 </span><span class="PreProc"> </span><span class="Delimiter">}</span> +<span id="L311" class="LineNr">311 </span> +<span id="L312" class="LineNr">312 </span><span class="Comment">// Allow tests to ignore trace lines generated during setup.</span> +<span id="L313" class="LineNr">313 </span><span class="PreProc">#define CLEAR_TRACE </span><span class="Normal">delete</span><span class="PreProc"> </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> = </span><span class="Normal">new</span><span class="PreProc"> trace_stream</span> +<span id="L314" class="LineNr">314 </span> +<span id="L315" class="LineNr">315 </span><span class="Delimiter">:(code)</span> +<span id="L316" class="LineNr">316 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L316'>check_trace_contents</a><span class="Delimiter">(</span>string FUNCTION<span class="Delimiter">,</span> string <span class="Normal">FILE</span><span class="Delimiter">,</span> <span class="Normal">int</span> LINE<span class="Delimiter">,</span> string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L317" class="LineNr">317 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L318" class="LineNr">318 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L319" class="LineNr">319 </span> vector<string> expected_lines = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">"\n"</span><span class="Delimiter">);</span> +<span id="L320" class="LineNr">320 </span> <span class="Normal">int</span> curr_expected_line = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L321" class="LineNr">321 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> +<span id="L322" class="LineNr">322 </span> ++curr_expected_line<span class="Delimiter">;</span> +<span id="L323" class="LineNr">323 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L324" class="LineNr">324 </span> string label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">;</span> +<span id="L325" class="LineNr">325 </span> <a href='003trace.cc.html#L386'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> +<span id="L326" class="LineNr">326 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L327" class="LineNr">327 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L328" class="LineNr">328 </span> string t = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">);</span> +<span id="L329" class="LineNr">329 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> != <a href='003trace.cc.html#L132'>unescape_newline</a><span class="Delimiter">(</span>t<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L330" class="LineNr">330 </span> ++curr_expected_line<span class="Delimiter">;</span> +<span id="L331" class="LineNr">331 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> +<span id="L332" class="LineNr">332 </span> ++curr_expected_line<span class="Delimiter">;</span> +<span id="L333" class="LineNr">333 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L334" class="LineNr">334 </span> <a href='003trace.cc.html#L386'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> +<span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> +<span id="L336" class="LineNr">336 </span> +<span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L399'>line_exists_anywhere</a><span class="Delimiter">(</span>label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): <a href='011run.cc.html#L121'>line</a> ["</span> << label << <span class="Constant">": "</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] out of order in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> +<span id="L339" class="LineNr">339 </span> <a href='003trace.cc.html#L435'>DUMP</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">);</span> +<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): missing ["</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> +<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L435'>DUMP</a><span class="Delimiter">(</span>label<span class="Delimiter">);</span> +<span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> +<span id="L345" class="LineNr">345 </span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L346" class="LineNr">346 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L347" class="LineNr">347 </span><span class="Delimiter">}</span> +<span id="L348" class="LineNr">348 </span> +<span id="L349" class="LineNr">349 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L349'>trace_doesnt_contain</a><span class="Delimiter">(</span>string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L350" class="LineNr">350 </span> vector<string> tmp = <a href='003trace.cc.html#L422'>split_first</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">": "</span><span class="Delimiter">);</span> +<span id="L351" class="LineNr">351 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>tmp<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L352" class="LineNr">352 </span> <a href='003trace.cc.html#L226'>raise</a> << expected << <span class="Constant">": missing label or <a href='003trace.cc.html#L117'>contents</a> in <a href='003trace.cc.html#L96'>trace</a> line\n"</span> << end<span class="Delimiter">();</span> +<span id="L353" class="LineNr">353 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> +<span id="L354" class="LineNr">354 </span> <span class="Delimiter">}</span> +<span id="L355" class="LineNr">355 </span> <span class="Identifier">return</span> trace_count<span class="Delimiter">(</span>tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L356" class="LineNr">356 </span><span class="Delimiter">}</span> +<span id="L357" class="LineNr">357 </span> +<span id="L358" class="LineNr">358 </span><span class="Normal">int</span> trace_count<span class="Delimiter">(</span>string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L359" class="LineNr">359 </span> <span class="Identifier">return</span> trace_count<span class="Delimiter">(</span>label<span class="Delimiter">,</span> <span class="Constant">""</span><span class="Delimiter">);</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="Normal">int</span> trace_count<span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string <a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L364" class="LineNr">364 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L365" class="LineNr">365 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L366" class="LineNr">366 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L367" class="LineNr">367 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a> == <span class="Constant">""</span> || <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> +<span id="L368" class="LineNr">368 </span> ++result<span class="Delimiter">;</span> +<span id="L369" class="LineNr">369 </span> <span class="Delimiter">}</span> +<span id="L370" class="LineNr">370 </span> <span class="Delimiter">}</span> +<span id="L371" class="LineNr">371 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L372" class="LineNr">372 </span><span class="Delimiter">}</span> +<span id="L373" class="LineNr">373 </span> +<span id="L374" class="LineNr">374 </span><span class="Normal">int</span> <a href='003trace.cc.html#L374'>trace_count_prefix</a><span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string prefix<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L375" class="LineNr">375 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L376" class="LineNr">376 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L377" class="LineNr">377 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L378" class="LineNr">378 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span><a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">),</span> <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>prefix<span class="Delimiter">)))</span> +<span id="L380" class="LineNr">380 </span> ++result<span class="Delimiter">;</span> +<span id="L381" class="LineNr">381 </span> <span class="Delimiter">}</span> +<span id="L382" class="LineNr">382 </span> <span class="Delimiter">}</span> +<span id="L383" class="LineNr">383 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L384" class="LineNr">384 </span><span class="Delimiter">}</span> +<span id="L385" class="LineNr">385 </span> +<span id="L386" class="LineNr">386 </span><span class="Normal">void</span> <a href='003trace.cc.html#L386'>split_label_contents</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> string* label<span class="Delimiter">,</span> string* <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L387" class="LineNr">387 </span> <span class="Normal">static</span> <span class="Normal">const</span> string delim<span class="Delimiter">(</span><span class="Constant">": "</span><span class="Delimiter">);</span> +<span id="L388" class="LineNr">388 </span> <span class="Normal">size_t</span> pos = s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> +<span id="L389" class="LineNr">389 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>pos == string::npos<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L390" class="LineNr">390 </span> *label = <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L391" class="LineNr">391 </span> *contents = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> +<span id="L392" class="LineNr">392 </span> <span class="Delimiter">}</span> +<span id="L393" class="LineNr">393 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L394" class="LineNr">394 </span> *label = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> pos<span class="Delimiter">));</span> +<span id="L395" class="LineNr">395 </span> *contents = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span>pos+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">)));</span> +<span id="L396" class="LineNr">396 </span> <span class="Delimiter">}</span> +<span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> +<span id="L398" class="LineNr">398 </span> +<span id="L399" class="LineNr">399 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L399'>line_exists_anywhere</a><span class="Delimiter">(</span><span class="Normal">const</span> string& label<span class="Delimiter">,</span> <span class="Normal">const</span> string& <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L400" class="LineNr">400 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L401" class="LineNr">401 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L402" class="LineNr">402 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L403" class="LineNr">403 </span> <span class="Delimiter">}</span> +<span id="L404" class="LineNr">404 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<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>vector<string> <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span>string s<span class="Delimiter">,</span> string delim<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L408" class="LineNr">408 </span> vector<string> result<span class="Delimiter">;</span> +<span id="L409" class="LineNr">409 </span> <span class="Normal">size_t</span> begin=<span class="Constant">0</span><span class="Delimiter">,</span> end=s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> +<span id="L410" class="LineNr">410 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><span class="Constant">true</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L411" class="LineNr">411 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>end == string::npos<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L412" class="LineNr">412 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> begin<span class="Delimiter">,</span> string::npos<span class="Delimiter">));</span> +<span id="L413" class="LineNr">413 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L414" class="LineNr">414 </span> <span class="Delimiter">}</span> +<span id="L415" class="LineNr">415 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> begin<span class="Delimiter">,</span> end-begin<span class="Delimiter">));</span> +<span id="L416" class="LineNr">416 </span> begin = end+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> +<span id="L417" class="LineNr">417 </span> end = s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">,</span> begin<span class="Delimiter">);</span> +<span id="L418" class="LineNr">418 </span> <span class="Delimiter">}</span> +<span id="L419" class="LineNr">419 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L420" class="LineNr">420 </span><span class="Delimiter">}</span> +<span id="L421" class="LineNr">421 </span> +<span id="L422" class="LineNr">422 </span>vector<string> <a href='003trace.cc.html#L422'>split_first</a><span class="Delimiter">(</span>string s<span class="Delimiter">,</span> string delim<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L423" class="LineNr">423 </span> vector<string> result<span class="Delimiter">;</span> +<span id="L424" class="LineNr">424 </span> <span class="Normal">size_t</span> end=s<span class="Delimiter">.</span>find<span class="Delimiter">(</span>delim<span class="Delimiter">);</span> +<span id="L425" class="LineNr">425 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">,</span> end<span class="Delimiter">));</span> +<span id="L426" class="LineNr">426 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>end != string::npos<span class="Delimiter">)</span> +<span id="L427" class="LineNr">427 </span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span>s<span class="Delimiter">,</span> end+SIZE<span class="Delimiter">(</span>delim<span class="Delimiter">),</span> string::npos<span class="Delimiter">));</span> +<span id="L428" class="LineNr">428 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L429" class="LineNr">429 </span><span class="Delimiter">}</span> +<span id="L430" class="LineNr">430 </span> +<span id="L431" class="LineNr">431 </span><span class="SalientComment">//:: == Helpers for debugging using traces</span> <span id="L432" class="LineNr">432 </span> -<span id="L433" class="LineNr">433 </span><span class="SalientComment">//:: == Helpers for debugging using traces</span> -<span id="L434" class="LineNr">434 </span> -<span id="L435" class="LineNr">435 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L436" class="LineNr">436 </span><span class="Comment">// To debug why a test is failing, dump its trace using '?'.</span> -<span id="L437" class="LineNr">437 </span><span class="PreProc">#define DUMP(label) </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="Special">Trace_stream</span><span class="PreProc">) cerr << </span><span class="Special">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">readable_contents(label)</span><span class="Delimiter">;</span> -<span id="L438" class="LineNr">438 </span> -<span id="L439" class="LineNr">439 </span><span class="Comment">// To add temporary prints to the trace, use 'dbg'.</span> -<span id="L440" class="LineNr">440 </span><span class="Comment">// `git log` should never show any calls to 'dbg'.</span> -<span id="L441" class="LineNr">441 </span><span class="PreProc">#define dbg trace(</span><span class="Constant">0</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"a"</span><span class="PreProc">)</span> -<span id="L442" class="LineNr">442 </span> -<span id="L443" class="LineNr">443 </span><span class="Comment">//: Dump the entire trace to file where it can be browsed offline.</span> -<span id="L444" class="LineNr">444 </span><span class="Comment">//: Dump the trace as it happens; that way you get something even if the</span> -<span id="L445" class="LineNr">445 </span><span class="Comment">//: program crashes.</span> -<span id="L446" class="LineNr">446 </span> -<span id="L447" class="LineNr">447 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L448" class="LineNr">448 </span>ofstream <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">;</span> -<span id="L449" class="LineNr">449 </span><span class="Delimiter">:(before "End Commandline Options(*arg)")</span> -<span id="L450" class="LineNr">450 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--trace"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L451" class="LineNr">451 </span> cerr << <span class="Constant">"saving <a href='003trace.cc.html#L96'>trace</a> to 'last_run'\n"</span><span class="Delimiter">;</span> -<span id="L452" class="LineNr">452 </span> <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"last_run"</span><span class="Delimiter">);</span> -<span id="L453" class="LineNr">453 </span> <span class="Comment">// Add a dummy line up top; otherwise the `browse_trace` tool currently has</span> -<span id="L454" class="LineNr">454 </span> <span class="Comment">// no way to expand any lines above an error.</span> -<span id="L455" class="LineNr">455 </span> <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span> << <span class="Constant">" 0 dummy: start\n"</span><span class="Delimiter">;</span> -<span id="L456" class="LineNr">456 </span> <span class="Comment">// End --trace Settings</span> -<span id="L457" class="LineNr">457 </span><span class="Delimiter">}</span> -<span id="L458" class="LineNr">458 </span><span class="Delimiter">:(before "End <a href='003trace.cc.html#L96'>trace</a> Commit")</span> -<span id="L459" class="LineNr">459 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L143'>dump_trace_line</a><span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">,</span> t<span class="Delimiter">);</span> +<span id="L433" class="LineNr">433 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L434" class="LineNr">434 </span><span class="Comment">// To debug why a test is failing, dump its trace using '?'.</span> +<span id="L435" class="LineNr">435 </span><span class="PreProc">#define DUMP(label) </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar">Trace_stream</span><span class="PreProc">) cerr << </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">readable_contents(label)</span><span class="Delimiter">;</span> +<span id="L436" class="LineNr">436 </span> +<span id="L437" class="LineNr">437 </span><span class="Comment">// To add temporary prints to the trace, use 'dbg'.</span> +<span id="L438" class="LineNr">438 </span><span class="Comment">// `git log` should never show any calls to 'dbg'.</span> +<span id="L439" class="LineNr">439 </span><span class="PreProc">#define dbg trace(</span><span class="Constant">0</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"a"</span><span class="PreProc">)</span> +<span id="L440" class="LineNr">440 </span> +<span id="L441" class="LineNr">441 </span><span class="Comment">//: Dump the entire trace to file where it can be browsed offline.</span> +<span id="L442" class="LineNr">442 </span><span class="Comment">//: Dump the trace as it happens; that way you get something even if the</span> +<span id="L443" class="LineNr">443 </span><span class="Comment">//: program crashes.</span> +<span id="L444" class="LineNr">444 </span> +<span id="L445" class="LineNr">445 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L446" class="LineNr">446 </span>ofstream <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">;</span> +<span id="L447" class="LineNr">447 </span><span class="Delimiter">:(before "End Commandline Options(*arg)")</span> +<span id="L448" class="LineNr">448 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--trace"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L449" class="LineNr">449 </span> cerr << <span class="Constant">"saving <a href='003trace.cc.html#L96'>trace</a> to 'last_run'\n"</span><span class="Delimiter">;</span> +<span id="L450" class="LineNr">450 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"last_run"</span><span class="Delimiter">);</span> +<span id="L451" class="LineNr">451 </span> <span class="Comment">// Add a dummy line up top; otherwise the `browse_trace` tool currently has</span> +<span id="L452" class="LineNr">452 </span> <span class="Comment">// no way to expand any lines above an error.</span> +<span id="L453" class="LineNr">453 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span> << <span class="Constant">" 0 dummy: start\n"</span><span class="Delimiter">;</span> +<span id="L454" class="LineNr">454 </span> <span class="Comment">// End --trace Settings</span> +<span id="L455" class="LineNr">455 </span><span class="Delimiter">}</span> +<span id="L456" class="LineNr">456 </span><span class="Delimiter">:(before "End <a href='003trace.cc.html#L96'>trace</a> Commit")</span> +<span id="L457" class="LineNr">457 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L458" class="LineNr">458 </span> <a href='003trace.cc.html#L143'>dump_trace_line</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">,</span> t<span class="Delimiter">);</span> +<span id="L459" class="LineNr">459 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>pop_back<span class="Delimiter">();</span> <span class="Comment">// economize on memory</span> <span id="L461" class="LineNr">461 </span><span class="Delimiter">}</span> <span id="L462" class="LineNr">462 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L463" class="LineNr">463 </span>atexit<span class="Delimiter">(</span><a href='003trace.cc.html#L465'>cleanup_main</a><span class="Delimiter">);</span> <span id="L464" class="LineNr">464 </span><span class="Delimiter">:(code)</span> <span id="L465" class="LineNr">465 </span><span class="Normal">void</span> <a href='003trace.cc.html#L465'>cleanup_main</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L466" class="LineNr">466 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">)</span> <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L466" class="LineNr">466 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> <span id="L467" class="LineNr">467 </span> <span class="Comment">// End cleanup_main</span> <span id="L468" class="LineNr">468 </span><span class="Delimiter">}</span> <span id="L469" class="LineNr">469 </span> @@ -543,13 +543,13 @@ if ('onhashchange' in window) { <span id="L482" class="LineNr">482 </span><span class="Comment">//: Particularly useful when juggling multiple trace streams, like when</span> <span id="L483" class="LineNr">483 </span><span class="Comment">//: debugging sandboxes.</span> <span id="L484" class="LineNr">484 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L485" class="LineNr">485 </span><span class="Normal">bool</span> <span class="Special"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L485" class="LineNr">485 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L486" class="LineNr">486 </span><span class="Delimiter">:(before "End Commandline Options(*arg)")</span> -<span id="L487" class="LineNr">487 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--dump"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L488" class="LineNr">488 </span> <span class="Special"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L487" class="LineNr">487 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--dump"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L488" class="LineNr">488 </span> <span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L489" class="LineNr">489 </span><span class="Delimiter">}</span> <span id="L490" class="LineNr">490 </span><span class="Delimiter">:(before "End Incremental Trace Print Conditions")</span> -<span id="L491" class="LineNr">491 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L485'>Dump_trace</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L491" class="LineNr">491 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L492" class="LineNr">492 </span> <span id="L493" class="LineNr">493 </span><span class="Comment">//: Miscellaneous helpers.</span> <span id="L494" class="LineNr">494 </span> diff --git a/html/003trace.test.cc.html b/html/003trace.test.cc.html index c885cafd..ba949d58 100644 --- a/html/003trace.test.cc.html +++ b/html/003trace.test.cc.html @@ -56,14 +56,14 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L1'>test_trace_check_compares</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> -<span id="L3" class="LineNr"> 3 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer: foo"</span><span class="Delimiter">);</span> +<span id="L3" class="LineNr"> 3 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer: foo"</span><span class="Delimiter">);</span> <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="Normal">void</span> <a href='003trace.test.cc.html#L6'>test_trace_check_ignores_other_layers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> <span id="L8" class="LineNr"> 8 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 2"</span><span class="Delimiter">)</span> << <span class="Constant">"bar"</span> << end<span class="Delimiter">();</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> -<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"test layer 2: foo"</span><span class="Delimiter">);</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> +<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"test layer 2: foo"</span><span class="Delimiter">);</span> <span id="L11" class="LineNr"> 11 </span><span class="Delimiter">}</span> <span id="L12" class="LineNr"> 12 </span> <span id="L13" class="LineNr"> 13 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L13'>test_trace_check_ignores_leading_whitespace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -75,30 +75,30 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr"> 19 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L19'>test_trace_check_ignores_other_lines</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L20" class="LineNr"> 20 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> <span id="L21" class="LineNr"> 21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"bar"</span> << end<span class="Delimiter">();</span> -<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> +<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> <span id="L25" class="LineNr"> 25 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L25'>test_trace_check_ignores_other_lines2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> <span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"bar"</span> << end<span class="Delimiter">();</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: bar"</span><span class="Delimiter">);</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: bar"</span><span class="Delimiter">);</span> <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L31'>test_trace_ignores_trailing_whitespace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo\n"</span> << end<span class="Delimiter">();</span> -<span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> +<span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> <span id="L36" class="LineNr"> 36 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L36'>test_trace_ignores_trailing_whitespace2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo "</span> << end<span class="Delimiter">();</span> -<span id="L38" class="LineNr"> 38 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> +<span id="L38" class="LineNr"> 38 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> <span id="L40" class="LineNr"> 40 </span> <span id="L41" class="LineNr"> 41 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L41'>test_trace_orders_across_layers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> <span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 2"</span><span class="Delimiter">)</span> << <span class="Constant">"bar"</span> << end<span class="Delimiter">();</span> <span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"qux"</span> << end<span class="Delimiter">();</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo\n"</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo\n"</span> <span id="L46" class="LineNr"> 46 </span> <span class="Constant">"test layer 2: bar\n"</span> <span id="L47" class="LineNr"> 47 </span> <span class="Constant">"test layer 1: qux\n"</span><span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span><span class="Delimiter">}</span> @@ -122,7 +122,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L67'>test_trace_unescapes_newlines</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"f\no\no\n"</span> << end<span class="Delimiter">();</span> -<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: f\\no\\no"</span><span class="Delimiter">);</span> +<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: f\\no\\no"</span><span class="Delimiter">);</span> <span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="Comment">// pending: DUMP tests</span> @@ -138,26 +138,26 @@ if ('onhashchange' in window) { <span id="L82" class="LineNr"> 82 </span><span class="Comment">// can't check trace because trace methods call 'split'</span> <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L84'>test_split_returns_at_least_one_elem</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> vector<string> result = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> +<span id="L85" class="LineNr"> 85 </span> vector<string> result = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> <span id="L86" class="LineNr"> 86 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>size<span class="Delimiter">(),</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L87" class="LineNr"> 87 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> <span class="Constant">""</span><span class="Delimiter">);</span> <span id="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="Normal">void</span> <a href='003trace.test.cc.html#L90'>test_split_returns_entire_input_when_no_delim</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> vector<string> result = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span><span class="Constant">"abc"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> +<span id="L91" class="LineNr"> 91 </span> vector<string> result = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span><span class="Constant">"abc"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> <span id="L92" class="LineNr"> 92 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>size<span class="Delimiter">(),</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L93" class="LineNr"> 93 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> <span class="Constant">"abc"</span><span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L96'>test_split_works</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> vector<string> result = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,def"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> +<span id="L97" class="LineNr"> 97 </span> vector<string> result = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,def"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> <span id="L98" class="LineNr"> 98 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>size<span class="Delimiter">(),</span> <span class="Constant">2</span><span class="Delimiter">);</span> <span id="L99" class="LineNr"> 99 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> <span class="Constant">"abc"</span><span class="Delimiter">);</span> <span id="L100" class="LineNr">100 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">),</span> <span class="Constant">"def"</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="Normal">void</span> <a href='003trace.test.cc.html#L103'>test_split_works2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> vector<string> result = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,def,ghi"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> +<span id="L104" class="LineNr">104 </span> vector<string> result = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,def,ghi"</span><span class="Delimiter">,</span> <span class="Constant">","</span><span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>size<span class="Delimiter">(),</span> <span class="Constant">3</span><span class="Delimiter">);</span> <span id="L106" class="LineNr">106 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> <span class="Constant">"abc"</span><span class="Delimiter">);</span> <span id="L107" class="LineNr">107 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">),</span> <span class="Constant">"def"</span><span class="Delimiter">);</span> @@ -165,7 +165,7 @@ if ('onhashchange' in window) { <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="Normal">void</span> <a href='003trace.test.cc.html#L111'>test_split_handles_multichar_delim</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> vector<string> result = <a href='003trace.cc.html#L409'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,,def,,ghi"</span><span class="Delimiter">,</span> <span class="Constant">",,"</span><span class="Delimiter">);</span> +<span id="L112" class="LineNr">112 </span> vector<string> result = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span><span class="Constant">"abc,,def,,ghi"</span><span class="Delimiter">,</span> <span class="Constant">",,"</span><span class="Delimiter">);</span> <span id="L113" class="LineNr">113 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>size<span class="Delimiter">(),</span> <span class="Constant">3</span><span class="Delimiter">);</span> <span id="L114" class="LineNr">114 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> <span class="Constant">"abc"</span><span class="Delimiter">);</span> <span id="L115" class="LineNr">115 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>result<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">),</span> <span class="Constant">"def"</span><span class="Delimiter">);</span> diff --git a/html/010vm.cc.html b/html/010vm.cc.html index 467b78b6..171dfd1e 100644 --- a/html/010vm.cc.html +++ b/html/010vm.cc.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.cSpecial { color: #008000; } +.PreProc { color: #c000c0; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } .SalientComment { color: #0000af; } --> </style> @@ -64,7 +64,7 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span> <span id="L4" class="LineNr"> 4 </span><span class="SalientComment">//:: registers</span> <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: assume segment registers are hard-coded to 0</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment">//: no floating-point, MMX, etc. yet</span> +<span id="L6" class="LineNr"> 6 </span><span class="Comment">//: no MMX, etc.</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(before "End Types")</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">enum</span> <span class="Delimiter">{</span> @@ -83,380 +83,393 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span> <span class="Normal">uint32_t</span> u<span class="Delimiter">;</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">};</span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L25" class="LineNr"> 25 </span><a href='010vm.cc.html#L20'>reg</a> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[NUM_INT_REGISTERS] = <span class="Delimiter">{</span> <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">}</span> <span class="Delimiter">};</span> +<span id="L25" class="LineNr"> 25 </span><a href='010vm.cc.html#L20'>reg</a> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[NUM_INT_REGISTERS] = <span class="Delimiter">{</span> <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">}</span> <span class="Delimiter">};</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">uint32_t</span> <a href='010vm.cc.html#L26'>EIP</a> = <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// preserve null pointer</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L28" class="LineNr"> 28 </span>bzero<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">));</span> +<span id="L28" class="LineNr"> 28 </span>bzero<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">));</span> <span id="L29" class="LineNr"> 29 </span><a href='010vm.cc.html#L26'>EIP</a> = <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// preserve null pointer</span> <span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L32" class="LineNr"> 32 </span>cerr << <span class="Constant">" registers\n"</span><span class="Delimiter">;</span> -<span id="L33" class="LineNr"> 33 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L34" class="LineNr"> 34 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"registers"</span><span class="Delimiter">,</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Constant">"SubX currently supports eight 32-bit integer registers. From 0 to 7, they are:\n"</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Constant">" <a href='010vm.cc.html#L10'>EAX</a> <a href='010vm.cc.html#L11'>ECX</a> <a href='010vm.cc.html#L12'>EDX</a> <a href='010vm.cc.html#L13'>EBX</a> <a href='010vm.cc.html#L14'>ESP</a> <a href='010vm.cc.html#L15'>EBP</a> <a href='010vm.cc.html#L16'>ESI</a> EDI\n"</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"ESP contains the top of the stack.\n"</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Constant">"\n"</span> -<span id="L39" class="LineNr"> 39 </span> <span class="Constant">"-- 8-bit registers\n"</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Constant">"Some instructions operate on eight *overlapping* 8-bit registers.\n"</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"From 0 to 7, they are:\n"</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">" AL CL DL BL AH CH DH BH\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"The 8-bit registers overlap with the 32-bit ones. AL is the lowest signicant byte\n"</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Constant">"of <a href='010vm.cc.html#L10'>EAX</a>, AH is the second lowest significant byte, and so on.\n"</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">"\n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"For example, if <a href='010vm.cc.html#L13'>EBX</a> contains 0x11223344, then BL contains 0x44, and BH contains 0x33.\n"</span> +<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">:(before "End Types")</span> +<span id="L32" class="LineNr"> 32 </span><span class="Normal">const</span> <span class="Normal">int</span> <a href='010vm.cc.html#L32'>NUM_XMM_REGISTERS</a> = <span class="Constant">8</span><span class="Delimiter">;</span> +<span id="L33" class="LineNr"> 33 </span><span class="Normal">float</span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">0.0</span> <span class="Delimiter">};</span> +<span id="L34" class="LineNr"> 34 </span><span class="Normal">const</span> string <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">"XMM0"</span><span class="Delimiter">,</span> <span class="Constant">"XMM1"</span><span class="Delimiter">,</span> <span class="Constant">"XMM2"</span><span class="Delimiter">,</span> <span class="Constant">"XMM3"</span><span class="Delimiter">,</span> <span class="Constant">"XMM4"</span><span class="Delimiter">,</span> <span class="Constant">"XMM5"</span><span class="Delimiter">,</span> <span class="Constant">"XMM6"</span><span class="Delimiter">,</span> <span class="Constant">"XMM7"</span> <span class="Delimiter">};</span> +<span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Reset")</span> +<span id="L36" class="LineNr"> 36 </span>bzero<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span><span class="Delimiter">));</span> +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> +<span id="L39" class="LineNr"> 39 </span>cerr << <span class="Constant">" registers\n"</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> +<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"registers"</span><span class="Delimiter">,</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"SubX supports 16 registers: eight 32-bit integer registers and eight single-precision\n"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"floating-point registers. From 0 to 7, they are:\n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" integer: <a href='010vm.cc.html#L10'>EAX</a> <a href='010vm.cc.html#L11'>ECX</a> <a href='010vm.cc.html#L12'>EDX</a> <a href='010vm.cc.html#L13'>EBX</a> <a href='010vm.cc.html#L14'>ESP</a> <a href='010vm.cc.html#L15'>EBP</a> <a href='010vm.cc.html#L16'>ESI</a> EDI\n"</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" floating point: XMM0 XMM1 XMM2 XMM3 XMM4 XMM5 XMM6 XMM7\n"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"ESP contains the top of the stack.\n"</span> <span id="L47" class="LineNr"> 47 </span> <span class="Constant">"\n"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"There is no way to access bytes within <a href='010vm.cc.html#L14'>ESP</a>, <a href='010vm.cc.html#L15'>EBP</a>, <a href='010vm.cc.html#L16'>ESI</a> or EDI.\n"</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"\n"</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"For complete details consult the IA-32 software developer's manual, volume 2,\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"table 2-2, \"</span><span class="Constant">32</span>-bit addressing forms with the ModR/<span class="Special">M</span> byte\<span class="Constant">".\n"</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"It is included in this repository as 'modrm.pdf'.\n"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"The register encodings are described in the top row of the table, but you'll need\n"</span> -<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"to spend some time with it.\n"</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Constant">"\n"</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"-- flag registers\n"</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"Various instructions (particularly 'compare') modify one or more of four 1-bit\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"'flag' registers, as a side-effect:\n"</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"- the sign flag (SF): usually set if an arithmetic result is negative, or\n"</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Constant">" <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"- the zero flag (<a href='010vm.cc.html#L80'>ZF</a>): usually set if a result is zero, or <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"- the carry flag (<a href='010vm.cc.html#L81'>CF</a>): usually set if an arithmetic result overflows by just one bit.\n"</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Constant">" Useful for operating on unsigned numbers.\n"</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"- the overflow flag (<a href='010vm.cc.html#L82'>OF</a>): usually set if an arithmetic result overflows by more\n"</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Constant">" than one bit. Useful for operating on signed numbers.\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"The flag bits are read by conditional jumps.\n"</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"\n"</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"For complete details on how different instructions update the flags, consult the IA-32\n"</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86,">https://c9x.me/x86,</a>\n"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"though of course you'll need to be careful to ignore instructions and flag registers\n"</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"that SubX doesn't support.\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"It isn't simple, but if this is the processor you have running on your computer.\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"Might as well get good at it.\n"</span> -<span id="L75" class="LineNr"> 75 </span><span class="Delimiter">);</span> -<span id="L76" class="LineNr"> 76 </span> -<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L78" class="LineNr"> 78 </span><span class="Comment">// the subset of x86 flag registers we care about</span> -<span id="L79" class="LineNr"> 79 </span><span class="Normal">bool</span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// sign flag</span> -<span id="L80" class="LineNr"> 80 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// zero flag</span> -<span id="L81" class="LineNr"> 81 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// carry flag</span> -<span id="L82" class="LineNr"> 82 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// overflow flag</span> -<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L84" class="LineNr"> 84 </span>SF = <a href='010vm.cc.html#L80'>ZF</a> = <a href='010vm.cc.html#L81'>CF</a> = <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"-- 8-bit registers\n"</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"Some instructions operate on eight *overlapping* 8-bit registers.\n"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"From 0 to 7, they are:\n"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">" AL CL DL BL AH CH DH BH\n"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"The 8-bit registers overlap with the 32-bit ones. AL is the lowest signicant byte\n"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"of <a href='010vm.cc.html#L10'>EAX</a>, AH is the second lowest significant byte, and so on.\n"</span> +<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"\n"</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Constant">"For example, if <a href='010vm.cc.html#L13'>EBX</a> contains 0x11223344, then BL contains 0x44, and BH contains 0x33.\n"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"\n"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"There is no way to access bytes within <a href='010vm.cc.html#L14'>ESP</a>, <a href='010vm.cc.html#L15'>EBP</a>, <a href='010vm.cc.html#L16'>ESI</a> or EDI.\n"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"\n"</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"For complete details consult the IA-32 software developer's manual, volume 2,\n"</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Constant">"table 2-2, \"</span><span class="Constant">32</span>-bit addressing forms with the ModR/<span class="SpecialChar">M</span> byte\<span class="Constant">".\n"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"It is included in this repository as 'modrm.pdf'.\n"</span> +<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"The register encodings are described in the top row of the table, but you'll need\n"</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Constant">"to spend some time with it.\n"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"\n"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"-- flag registers\n"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"Various instructions (particularly 'compare') modify one or more of four 1-bit\n"</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"'flag' registers, as a side-effect:\n"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"- the sign flag (SF): usually set if an arithmetic result is negative, or\n"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"- the zero flag (<a href='010vm.cc.html#L89'>ZF</a>): usually set if a result is zero, or <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"- the carry flag (<a href='010vm.cc.html#L90'>CF</a>): usually set if an arithmetic result overflows by just one bit.\n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" Useful for operating on unsigned numbers.\n"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"- the overflow flag (<a href='010vm.cc.html#L91'>OF</a>): usually set if an arithmetic result overflows by more\n"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" than one bit. Useful for operating on signed numbers.\n"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"The flag bits are read by conditional jumps.\n"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"\n"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"For complete details on how different instructions update the flags, consult the IA-32\n"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>,\n"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"though of course you'll need to be careful to ignore instructions and flag registers\n"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"that SubX doesn't support.\n"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"\n"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"It isn't simple, but if this is the processor you have running on your computer.\n"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"Might as well get good at it.\n"</span> +<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">);</span> <span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="SalientComment">//:: simulated RAM</span> -<span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">:(before "End Types")</span> -<span id="L89" class="LineNr"> 89 </span><span class="Normal">const</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a> = <span class="Constant">0x1000000</span><span class="Delimiter">;</span> <span class="Comment">// 16MB</span> -<span id="L90" class="LineNr"> 90 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L90'>align_upwards</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> x<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> align<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Identifier">return</span> <span class="Delimiter">(</span>x+align-<span class="Constant">1</span><span class="Delimiter">)</span> & -<span class="Delimiter">(</span>align<span class="Delimiter">);</span> -<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> -<span id="L93" class="LineNr"> 93 </span> -<span id="L94" class="LineNr"> 94 </span><span class="Comment">// Like in real-world Linux, we'll allocate RAM for our programs in disjoint</span> -<span id="L95" class="LineNr"> 95 </span><span class="Comment">// slabs called VMAs or Virtual Memory Areas.</span> -<span id="L96" class="LineNr"> 96 </span><span class="Normal">struct</span> vma <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Normal">uint32_t</span> start<span class="Delimiter">;</span> <span class="Comment">// inclusive</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Normal">uint32_t</span> end<span class="Delimiter">;</span> <span class="Comment">// exclusive</span> -<span id="L99" class="LineNr"> 99 </span> vector<<span class="Normal">uint8_t</span>> <a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span> vma<span class="Delimiter">(</span><span class="Normal">uint32_t</span> s<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> e<span class="Delimiter">)</span> :start<span class="Delimiter">(</span>s<span class="Delimiter">),</span> end<span class="Delimiter">(</span>e<span class="Delimiter">)</span> <span class="Delimiter">{}</span> -<span id="L101" class="LineNr">101 </span> vma<span class="Delimiter">(</span><span class="Normal">uint32_t</span> s<span class="Delimiter">)</span> :start<span class="Delimiter">(</span>s<span class="Delimiter">),</span> end<span class="Delimiter">(</span><a href='010vm.cc.html#L90'>align_upwards</a><span class="Delimiter">(</span>s+<span class="Constant">1</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a><span class="Delimiter">))</span> <span class="Delimiter">{}</span> -<span id="L102" class="LineNr">102 </span> <span class="Normal">bool</span> <a href='010vm.cc.html#L102'>match</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="Identifier">return</span> a >= start && a < end<span class="Delimiter">;</span> -<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> <span class="Normal">bool</span> <a href='010vm.cc.html#L105'>match32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="Identifier">return</span> a >= start && a+<span class="Constant">4</span> <= end<span class="Delimiter">;</span> -<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> -<span id="L108" class="LineNr">108 </span> <span class="Normal">uint8_t</span>& data<span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L109" class="LineNr">109 </span> assert<span class="Delimiter">(</span><a href='010vm.cc.html#L102'>match</a><span class="Delimiter">(</span>a<span class="Delimiter">));</span> -<span id="L110" class="LineNr">110 </span> <span class="Normal">uint32_t</span> result_index = a-start<span class="Delimiter">;</span> -<span id="L111" class="LineNr">111 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> <= result_index+<span class="Comment">/*</span><span class="Comment">largest <a href='011run.cc.html#L127'>word</a> size that can be accessed in one instruction</span><span class="Comment">*/</span><span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Normal">int</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> <span class="Normal">const</span> <span class="Normal">int</span> align = <span class="Constant">0x1000</span><span class="Delimiter">;</span> -<span id="L113" class="LineNr">113 </span> <span class="Normal">uint32_t</span> result_size = result_index + <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// size needed for result_index to be valid</span> -<span id="L114" class="LineNr">114 </span> <span class="Normal">uint32_t</span> new_size = <a href='010vm.cc.html#L90'>align_upwards</a><span class="Delimiter">(</span>result_size<span class="Delimiter">,</span> align<span class="Delimiter">);</span> -<span id="L115" class="LineNr">115 </span> <span class="Comment">// grow at least 2x to maintain some amortized complexity guarantees</span> -<span id="L116" class="LineNr">116 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_size < <a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> * <span class="Constant">2</span><span class="Delimiter">)</span> -<span id="L117" class="LineNr">117 </span> new_size = <a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> * <span class="Constant">2</span><span class="Delimiter">;</span> -<span id="L118" class="LineNr">118 </span> <span class="Comment">// never grow past the stated limit</span> -<span id="L119" class="LineNr">119 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_size > end-start<span class="Delimiter">)</span> -<span id="L120" class="LineNr">120 </span> new_size = end-start<span class="Delimiter">;</span> -<span id="L121" class="LineNr">121 </span> <a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">.</span>resize<span class="Delimiter">(</span>new_size<span class="Delimiter">);</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L99'>_data</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>result_index<span class="Delimiter">);</span> -<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> -<span id="L125" class="LineNr">125 </span> <span class="Normal">void</span> <a href='010vm.cc.html#L125'>grow_until</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> new_end_address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_end_address < end<span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L127" class="LineNr">127 </span> <span class="Comment">// Ugly: vma knows about the global Memory list of vmas</span> -<span id="L128" class="LineNr">128 </span> <span class="Normal">void</span> <a href='010vm.cc.html#L135'>sanity_check</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> start<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> end<span class="Delimiter">);</span> -<span id="L129" class="LineNr">129 </span> <a href='010vm.cc.html#L135'>sanity_check</a><span class="Delimiter">(</span>start<span class="Delimiter">,</span> new_end_address<span class="Delimiter">);</span> -<span id="L130" class="LineNr">130 </span> end = new_end_address<span class="Delimiter">;</span> -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">}</span> -<span id="L132" class="LineNr">132 </span> <span class="Comment">// End vma Methods</span> -<span id="L133" class="LineNr">133 </span><span class="Delimiter">};</span> -<span id="L134" class="LineNr">134 </span><span class="Delimiter">:(code)</span> -<span id="L135" class="LineNr">135 </span><span class="Normal">void</span> <a href='010vm.cc.html#L135'>sanity_check</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> start<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> end<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> <span class="Normal">bool</span> dup_found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L138" class="LineNr">138 </span> <span class="Normal">const</span> vma& curr = <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start == start<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> assert<span class="Delimiter">(</span>!dup_found<span class="Delimiter">);</span> -<span id="L141" class="LineNr">141 </span> dup_found = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> -<span id="L143" class="LineNr">143 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start > start<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> assert<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start > end<span class="Delimiter">);</span> -<span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start < start<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L147" class="LineNr">147 </span> assert<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>end < start<span class="Delimiter">);</span> -<span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> -<span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> -<span id="L150" class="LineNr">150 </span><span class="Delimiter">}</span> -<span id="L151" class="LineNr">151 </span> -<span id="L152" class="LineNr">152 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L153" class="LineNr">153 </span><span class="Comment">// RAM is made of VMAs.</span> -<span id="L154" class="LineNr">154 </span>vector<vma> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">;</span> -<span id="L155" class="LineNr">155 </span><span class="Delimiter">:(code)</span> -<span id="L156" class="LineNr">156 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L157" class="LineNr">157 </span><span class="Normal">uint32_t</span> <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// when the program executes past this address in tests we'll stop the test</span> -<span id="L158" class="LineNr">158 </span><span class="Comment">// The stack grows downward. Can't increase its size for now.</span> -<span id="L159" class="LineNr">159 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L160" class="LineNr">160 </span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> -<span id="L161" class="LineNr">161 </span><span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L162" class="LineNr">162 </span><span class="Delimiter">:(code)</span> -<span id="L163" class="LineNr">163 </span><span class="Comment">// These helpers depend on Mem being laid out contiguously (so you can't use a</span> -<span id="L164" class="LineNr">164 </span><span class="Comment">// map, etc.) and on the host also being little-endian.</span> -<span id="L165" class="LineNr">165 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">uint8_t</span>* handle = <a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span class="Comment">// error messages get printed here</span> -<span id="L167" class="LineNr">167 </span> <span class="Identifier">return</span> handle ? *handle : <span class="Constant">0</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="Normal">inline</span> <span class="Normal">int8_t</span> <a href='010vm.cc.html#L169'>read_mem_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int8_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L171" class="LineNr">171 </span><span class="Delimiter">}</span> -<span id="L172" class="LineNr">172 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="Normal">uint32_t</span>* handle = <a href='010vm.cc.html#L199'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span class="Comment">// error messages get printed here</span> -<span id="L174" class="LineNr">174 </span> <span class="Identifier">return</span> handle ? *handle : <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span><span class="Normal">inline</span> <span class="Normal">int32_t</span> <a href='010vm.cc.html#L176'>read_mem_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L178" class="LineNr">178 </span><span class="Delimiter">}</span> -<span id="L179" class="LineNr">179 </span> -<span id="L180" class="LineNr">180 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span>* <a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L181" class="LineNr">181 </span> <span class="Normal">uint8_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L182" class="LineNr">182 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L183" class="LineNr">183 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L102'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L184" class="LineNr">184 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L185" class="LineNr">185 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> -<span id="L186" class="LineNr">186 </span> result = &<span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">)</span> <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> -<span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L192" class="LineNr">192 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> -<span id="L194" class="LineNr">194 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L195" class="LineNr">195 </span><span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span><span class="Normal">inline</span> <span class="Normal">int8_t</span>* <a href='010vm.cc.html#L196'>mem_addr_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L197" class="LineNr">197 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">int8_t</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L198" class="LineNr">198 </span><span class="Delimiter">}</span> -<span id="L199" class="LineNr">199 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span>* <a href='010vm.cc.html#L199'>mem_addr_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="Normal">uint32_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L201" class="LineNr">201 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L202" class="LineNr">202 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L105'>match32</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L203" class="LineNr">203 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L204" class="LineNr">204 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> -<span id="L205" class="LineNr">205 </span> result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>&<span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L206" class="LineNr">206 </span> <span class="Delimiter">}</span> -<span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L209" class="LineNr">209 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">)</span> <span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> -<span id="L210" class="LineNr">210 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L211" class="LineNr">211 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"The entire 4-byte <a href='011run.cc.html#L127'>word</a> should be initialized and lie in a single segment.\n"</span> << end<span class="Delimiter">();</span> -<span id="L212" class="LineNr">212 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L213" class="LineNr">213 </span> <span class="Delimiter">}</span> -<span id="L214" class="LineNr">214 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L215" class="LineNr">215 </span><span class="Delimiter">}</span> -<span id="L216" class="LineNr">216 </span><span class="Normal">inline</span> <span class="Normal">int32_t</span>* <a href='010vm.cc.html#L216'>mem_addr_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L217" class="LineNr">217 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">int32_t</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L199'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L218" class="LineNr">218 </span><span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span><span class="Comment">// helper for some syscalls. But read-only.</span> -<span id="L220" class="LineNr">220 </span><span class="Normal">inline</span> <span class="Normal">const</span> <span class="Normal">char</span>* <a href='010vm.cc.html#L220'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">const</span> <span class="Normal">char</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> -<span id="L222" class="LineNr">222 </span><span class="Delimiter">}</span> -<span id="L223" class="LineNr">223 </span><span class="Normal">inline</span> string <a href='010vm.cc.html#L223'>mem_addr_string</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> size<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L225" class="LineNr">225 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < size<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> -<span id="L226" class="LineNr">226 </span> out << <a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>addr+i<span class="Delimiter">);</span> -<span id="L227" class="LineNr">227 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> -<span id="L228" class="LineNr">228 </span><span class="Delimiter">}</span> -<span id="L229" class="LineNr">229 </span> -<span id="L230" class="LineNr">230 </span> -<span id="L231" class="LineNr">231 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L231'>write_mem_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L232" class="LineNr">232 </span> <span class="Normal">uint8_t</span>* handle = <a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L233" class="LineNr">233 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> -<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> -<span id="L235" class="LineNr">235 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L235'>write_mem_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">int8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <span class="Normal">int8_t</span>* handle = <a href='010vm.cc.html#L196'>mem_addr_i8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L237" class="LineNr">237 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span><span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L239'>write_mem_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L240" class="LineNr">240 </span> <span class="Normal">uint32_t</span>* handle = <a href='010vm.cc.html#L199'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L241" class="LineNr">241 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> +<span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L87" class="LineNr"> 87 </span><span class="Comment">// the subset of x86 flag registers we care about</span> +<span id="L88" class="LineNr"> 88 </span><span class="Normal">bool</span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// sign flag</span> +<span id="L89" class="LineNr"> 89 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// zero flag</span> +<span id="L90" class="LineNr"> 90 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// carry flag</span> +<span id="L91" class="LineNr"> 91 </span><span class="Normal">bool</span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// overflow flag</span> +<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">:(before "End Reset")</span> +<span id="L93" class="LineNr"> 93 </span>SF = <a href='010vm.cc.html#L89'>ZF</a> = <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L94" class="LineNr"> 94 </span> +<span id="L95" class="LineNr"> 95 </span><span class="SalientComment">//:: simulated RAM</span> +<span id="L96" class="LineNr"> 96 </span> +<span id="L97" class="LineNr"> 97 </span><span class="Delimiter">:(before "End Types")</span> +<span id="L98" class="LineNr"> 98 </span><span class="Normal">const</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a> = <span class="Constant">0x1000000</span><span class="Delimiter">;</span> <span class="Comment">// 16MB</span> +<span id="L99" class="LineNr"> 99 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L99'>align_upwards</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> x<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> align<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L100" class="LineNr">100 </span> <span class="Identifier">return</span> <span class="Delimiter">(</span>x+align-<span class="Constant">1</span><span class="Delimiter">)</span> & -<span class="Delimiter">(</span>align<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="Comment">// Like in real-world Linux, we'll allocate RAM for our programs in disjoint</span> +<span id="L104" class="LineNr">104 </span><span class="Comment">// slabs called VMAs or Virtual Memory Areas.</span> +<span id="L105" class="LineNr">105 </span><span class="Normal">struct</span> vma <span class="Delimiter">{</span> +<span id="L106" class="LineNr">106 </span> <span class="Normal">uint32_t</span> start<span class="Delimiter">;</span> <span class="Comment">// inclusive</span> +<span id="L107" class="LineNr">107 </span> <span class="Normal">uint32_t</span> end<span class="Delimiter">;</span> <span class="Comment">// exclusive</span> +<span id="L108" class="LineNr">108 </span> vector<<span class="Normal">uint8_t</span>> <a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">;</span> +<span id="L109" class="LineNr">109 </span> vma<span class="Delimiter">(</span><span class="Normal">uint32_t</span> s<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> e<span class="Delimiter">)</span> :start<span class="Delimiter">(</span>s<span class="Delimiter">),</span> end<span class="Delimiter">(</span>e<span class="Delimiter">)</span> <span class="Delimiter">{}</span> +<span id="L110" class="LineNr">110 </span> vma<span class="Delimiter">(</span><span class="Normal">uint32_t</span> s<span class="Delimiter">)</span> :start<span class="Delimiter">(</span>s<span class="Delimiter">),</span> end<span class="Delimiter">(</span><a href='010vm.cc.html#L99'>align_upwards</a><span class="Delimiter">(</span>s+<span class="Constant">1</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">))</span> <span class="Delimiter">{}</span> +<span id="L111" class="LineNr">111 </span> <span class="Normal">bool</span> <a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="Identifier">return</span> a >= start && a < end<span class="Delimiter">;</span> +<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> +<span id="L114" class="LineNr">114 </span> <span class="Normal">bool</span> <a href='010vm.cc.html#L114'>match32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="Identifier">return</span> a >= start && a+<span class="Constant">4</span> <= end<span class="Delimiter">;</span> +<span id="L116" class="LineNr">116 </span> <span class="Delimiter">}</span> +<span id="L117" class="LineNr">117 </span> <span class="Normal">uint8_t</span>& data<span class="Delimiter">(</span><span class="Normal">uint32_t</span> a<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> assert<span class="Delimiter">(</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>a<span class="Delimiter">));</span> +<span id="L119" class="LineNr">119 </span> <span class="Normal">uint32_t</span> result_index = a-start<span class="Delimiter">;</span> +<span id="L120" class="LineNr">120 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> <= result_index+<span class="Comment">/*</span><span class="Comment">largest <a href='011run.cc.html#L127'>word</a> size that can be accessed in one instruction</span><span class="Comment">*/</span><span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Normal">int</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> <span class="Normal">const</span> <span class="Normal">int</span> align = <span class="Constant">0x1000</span><span class="Delimiter">;</span> +<span id="L122" class="LineNr">122 </span> <span class="Normal">uint32_t</span> result_size = result_index + <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// size needed for result_index to be valid</span> +<span id="L123" class="LineNr">123 </span> <span class="Normal">uint32_t</span> new_size = <a href='010vm.cc.html#L99'>align_upwards</a><span class="Delimiter">(</span>result_size<span class="Delimiter">,</span> align<span class="Delimiter">);</span> +<span id="L124" class="LineNr">124 </span> <span class="Comment">// grow at least 2x to maintain some amortized complexity guarantees</span> +<span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_size < <a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> * <span class="Constant">2</span><span class="Delimiter">)</span> +<span id="L126" class="LineNr">126 </span> new_size = <a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">.</span>size<span class="Delimiter">()</span> * <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L127" class="LineNr">127 </span> <span class="Comment">// never grow past the stated limit</span> +<span id="L128" class="LineNr">128 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_size > end-start<span class="Delimiter">)</span> +<span id="L129" class="LineNr">129 </span> new_size = end-start<span class="Delimiter">;</span> +<span id="L130" class="LineNr">130 </span> <a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">.</span>resize<span class="Delimiter">(</span>new_size<span class="Delimiter">);</span> +<span id="L131" class="LineNr">131 </span> <span class="Delimiter">}</span> +<span id="L132" class="LineNr">132 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L108'>_data</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>result_index<span class="Delimiter">);</span> +<span id="L133" class="LineNr">133 </span> <span class="Delimiter">}</span> +<span id="L134" class="LineNr">134 </span> <span class="Normal">void</span> <a href='010vm.cc.html#L134'>grow_until</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> new_end_address<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_end_address < end<span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L136" class="LineNr">136 </span> <span class="Comment">// Ugly: vma knows about the global Memory list of vmas</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">void</span> <a href='010vm.cc.html#L144'>sanity_check</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> start<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> end<span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span> <a href='010vm.cc.html#L144'>sanity_check</a><span class="Delimiter">(</span>start<span class="Delimiter">,</span> new_end_address<span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span> end = new_end_address<span class="Delimiter">;</span> +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> +<span id="L141" class="LineNr">141 </span> <span class="Comment">// End vma Methods</span> +<span id="L142" class="LineNr">142 </span><span class="Delimiter">};</span> +<span id="L143" class="LineNr">143 </span><span class="Delimiter">:(code)</span> +<span id="L144" class="LineNr">144 </span><span class="Normal">void</span> <a href='010vm.cc.html#L144'>sanity_check</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> start<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> end<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="Normal">bool</span> dup_found = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L146" class="LineNr">146 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="Normal">const</span> vma& curr = <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L148" class="LineNr">148 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start == start<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L149" class="LineNr">149 </span> assert<span class="Delimiter">(</span>!dup_found<span class="Delimiter">);</span> +<span id="L150" class="LineNr">150 </span> dup_found = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> +<span id="L152" class="LineNr">152 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start > start<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L153" class="LineNr">153 </span> assert<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start > end<span class="Delimiter">);</span> +<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start < start<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> assert<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>end < start<span class="Delimiter">);</span> +<span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> +<span id="L158" class="LineNr">158 </span> <span class="Delimiter">}</span> +<span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> +<span id="L161" class="LineNr">161 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L162" class="LineNr">162 </span><span class="Comment">// RAM is made of VMAs.</span> +<span id="L163" class="LineNr">163 </span>vector<vma> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">;</span> +<span id="L164" class="LineNr">164 </span><span class="Delimiter">:(code)</span> +<span id="L165" class="LineNr">165 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L166" class="LineNr">166 </span><span class="Normal">uint32_t</span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// when the program executes past this address in tests we'll stop the test</span> +<span id="L167" class="LineNr">167 </span><span class="Comment">// The stack grows downward. Can't increase its size for now.</span> +<span id="L168" class="LineNr">168 </span><span class="Delimiter">:(before "End Reset")</span> +<span id="L169" class="LineNr">169 </span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> +<span id="L170" class="LineNr">170 </span><span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L171" class="LineNr">171 </span><span class="Delimiter">:(code)</span> +<span id="L172" class="LineNr">172 </span><span class="Comment">// These helpers depend on Mem being laid out contiguously (so you can't use a</span> +<span id="L173" class="LineNr">173 </span><span class="Comment">// map, etc.) and on the host also being little-endian.</span> +<span id="L174" class="LineNr">174 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="Normal">uint8_t</span>* handle = <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span class="Comment">// error messages get printed here</span> +<span id="L176" class="LineNr">176 </span> <span class="Identifier">return</span> handle ? *handle : <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L177" class="LineNr">177 </span><span class="Delimiter">}</span> +<span id="L178" class="LineNr">178 </span><span class="Normal">inline</span> <span class="Normal">int8_t</span> <a href='010vm.cc.html#L178'>read_mem_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L179" class="LineNr">179 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int8_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> +<span id="L181" class="LineNr">181 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="Normal">uint32_t</span>* handle = <a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span class="Comment">// error messages get printed here</span> +<span id="L183" class="LineNr">183 </span> <span class="Identifier">return</span> handle ? *handle : <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> +<span id="L185" class="LineNr">185 </span><span class="Normal">inline</span> <span class="Normal">int32_t</span> <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L187" class="LineNr">187 </span><span class="Delimiter">}</span> +<span id="L188" class="LineNr">188 </span><span class="Normal">inline</span> <span class="Normal">float</span> <a href='010vm.cc.html#L188'>read_mem_f32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">float</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> +<span id="L192" class="LineNr">192 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span>* <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">uint8_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L194" class="LineNr">194 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> +<span id="L197" class="LineNr">197 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> +<span id="L198" class="LineNr">198 </span> result = &<span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> +<span id="L201" class="LineNr">201 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L202" class="LineNr">202 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L204" class="LineNr">204 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L205" class="LineNr">205 </span> <span class="Delimiter">}</span> +<span id="L206" class="LineNr">206 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L207" class="LineNr">207 </span><span class="Delimiter">}</span> +<span id="L208" class="LineNr">208 </span><span class="Normal">inline</span> <span class="Normal">int8_t</span>* <a href='010vm.cc.html#L208'>mem_addr_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L209" class="LineNr">209 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">int8_t</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L210" class="LineNr">210 </span><span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span>* <a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="Normal">uint32_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L213" class="LineNr">213 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L114'>match32</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L215" class="LineNr">215 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> +<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> +<span id="L217" class="LineNr">217 </span> result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>&<span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> +<span id="L220" class="LineNr">220 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L223" class="LineNr">223 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L226" class="LineNr">226 </span><span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span><span class="Normal">inline</span> <span class="Normal">int32_t</span>* <a href='010vm.cc.html#L227'>mem_addr_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">int32_t</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L229" class="LineNr">229 </span><span class="Delimiter">}</span> +<span id="L230" class="LineNr">230 </span><span class="Normal">inline</span> <span class="Normal">float</span>* <a href='010vm.cc.html#L230'>mem_addr_f32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L231" class="LineNr">231 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">float</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> +<span id="L233" class="LineNr">233 </span><span class="Comment">// helper for some syscalls. But read-only.</span> +<span id="L234" class="LineNr">234 </span><span class="Normal">inline</span> <span class="Normal">const</span> <span class="Normal">char</span>* <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="Identifier">return</span> <span class="Normal">reinterpret_cast</span><<span class="Normal">const</span> <span class="Normal">char</span>*><span class="Delimiter">(</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L236" class="LineNr">236 </span><span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span><span class="Normal">inline</span> string <a href='010vm.cc.html#L237'>mem_addr_string</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> size<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L239" class="LineNr">239 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < size<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> +<span id="L240" class="LineNr">240 </span> out << <a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>addr+i<span class="Delimiter">);</span> +<span id="L241" class="LineNr">241 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> -<span id="L243" class="LineNr">243 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L243'>write_mem_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">int32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="Normal">int32_t</span>* handle = <a href='010vm.cc.html#L216'>mem_addr_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L245" class="LineNr">245 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> -<span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> -<span id="L247" class="LineNr">247 </span> -<span id="L248" class="LineNr">248 </span><span class="Normal">inline</span> <span class="Normal">bool</span> <a href='010vm.cc.html#L248'>already_allocated</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L250" class="LineNr">250 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L251" class="LineNr">251 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L102'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L252" class="LineNr">252 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L253" class="LineNr">253 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> -<span id="L254" class="LineNr">254 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L255" class="LineNr">255 </span> <span class="Delimiter">}</span> -<span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> -<span id="L257" class="LineNr">257 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> -<span id="L259" class="LineNr">259 </span> -<span id="L260" class="LineNr">260 </span><span class="SalientComment">//:: core interpreter loop</span> -<span id="L261" class="LineNr">261 </span> -<span id="L262" class="LineNr">262 </span><span class="Delimiter">:(code)</span> -<span id="L263" class="LineNr">263 </span><span class="Comment">// skeleton of how x86 instructions are decoded</span> -<span id="L264" class="LineNr">264 </span><span class="Normal">void</span> <a href='010vm.cc.html#L264'>run_one_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="Normal">uint8_t</span> op=<span class="Constant">0</span><span class="Delimiter">,</span> op2=<span class="Constant">0</span><span class="Delimiter">,</span> op3=<span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L266" class="LineNr">266 </span> <span class="Comment">// Run One Instruction</span> -<span id="L267" class="LineNr">267 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L268" class="LineNr">268 </span> <a href='010vm.cc.html#L329'>dump_registers</a><span class="Delimiter">();</span> -<span id="L269" class="LineNr">269 </span> <span class="Comment">// End Dump Info for Instruction</span> -<span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> -<span id="L271" class="LineNr">271 </span> <span class="Normal">uint32_t</span> inst_start_address = <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">;</span> -<span id="L272" class="LineNr">272 </span> op = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L273" class="LineNr">273 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << inst_start_address << <span class="Constant">" opcode: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L274" class="LineNr">274 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L275" class="LineNr">275 </span> <span class="Normal">case</span> <span class="Constant">0xf4</span>: <span class="Comment">// hlt</span> -<span id="L276" class="LineNr">276 </span> <a href='010vm.cc.html#L26'>EIP</a> = <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span><span class="Delimiter">;</span> -<span id="L277" class="LineNr">277 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L278" class="LineNr">278 </span> <span class="Comment">// End Single-Byte Opcodes</span> -<span id="L279" class="LineNr">279 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: -<span id="L280" class="LineNr">280 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="Comment">// End Two-Byte Opcodes Starting With 0f</span> -<span id="L282" class="LineNr">282 </span> <span class="Normal">default</span>: -<span id="L283" class="LineNr">283 </span> cerr << <span class="Constant">"unrecognized second opcode after 0f: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L284" class="LineNr">284 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L285" class="LineNr">285 </span> <span class="Delimiter">}</span> -<span id="L286" class="LineNr">286 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L287" class="LineNr">287 </span> <span class="Normal">case</span> <span class="Constant">0xf2</span>: -<span id="L288" class="LineNr">288 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> <span class="Comment">// End Two-Byte Opcodes Starting With f2</span> -<span id="L290" class="LineNr">290 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: -<span id="L291" class="LineNr">291 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op3 = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L292" class="LineNr">292 </span> <span class="Comment">// End Three-Byte Opcodes Starting With f2 0f</span> -<span id="L293" class="LineNr">293 </span> <span class="Normal">default</span>: -<span id="L294" class="LineNr">294 </span> cerr << <span class="Constant">"unrecognized third opcode after f2 0f: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op3<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L295" class="LineNr">295 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L296" class="LineNr">296 </span> <span class="Delimiter">}</span> -<span id="L297" class="LineNr">297 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L298" class="LineNr">298 </span> <span class="Normal">default</span>: -<span id="L299" class="LineNr">299 </span> cerr << <span class="Constant">"unrecognized second opcode after f2: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L300" class="LineNr">300 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> -<span id="L302" class="LineNr">302 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L303" class="LineNr">303 </span> <span class="Normal">case</span> <span class="Constant">0xf3</span>: -<span id="L304" class="LineNr">304 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L305" class="LineNr">305 </span> <span class="Comment">// End Two-Byte Opcodes Starting With f3</span> -<span id="L306" class="LineNr">306 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: -<span id="L307" class="LineNr">307 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op3 = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="Comment">// End Three-Byte Opcodes Starting With f3 0f</span> -<span id="L309" class="LineNr">309 </span> <span class="Normal">default</span>: -<span id="L310" class="LineNr">310 </span> cerr << <span class="Constant">"unrecognized third opcode after f3 0f: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op3<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L311" class="LineNr">311 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L314" class="LineNr">314 </span> <span class="Normal">default</span>: -<span id="L315" class="LineNr">315 </span> cerr << <span class="Constant">"unrecognized second opcode after f3: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L316" class="LineNr">316 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> -<span id="L318" class="LineNr">318 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L319" class="LineNr">319 </span> <span class="Normal">default</span>: -<span id="L320" class="LineNr">320 </span> cerr << <span class="Constant">"unrecognized opcode: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L321" class="LineNr">321 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L322" class="LineNr">322 </span> <span class="Delimiter">}</span> -<span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> -<span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L326" class="LineNr">326 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>EIP++<span class="Delimiter">);</span> -<span id="L327" class="LineNr">327 </span><span class="Delimiter">}</span> -<span id="L328" class="LineNr">328 </span> -<span id="L329" class="LineNr">329 </span><span class="Normal">void</span> <a href='010vm.cc.html#L329'>dump_registers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L330" class="LineNr">330 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L331" class="LineNr">331 </span> out << <span class="Constant">"regs: "</span><span class="Delimiter">;</span> -<span id="L332" class="LineNr">332 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='010vm.cc.html#L18'>NUM_INT_REGISTERS</a><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L333" class="LineNr">333 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">" "</span><span class="Delimiter">;</span> -<span id="L334" class="LineNr">334 </span> out << i << <span class="Constant">": "</span> << std::hex << std::setw<span class="Delimiter">(</span><span class="Constant">8</span><span class="Delimiter">)</span> << std::setfill<span class="Delimiter">(</span><span class="Constant">'_'</span><span class="Delimiter">)</span> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[i]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L243" class="LineNr">243 </span> +<span id="L244" class="LineNr">244 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L244'>write_mem_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L245" class="LineNr">245 </span> <span class="Normal">uint8_t</span>* handle = <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L246" class="LineNr">246 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> +<span id="L247" class="LineNr">247 </span><span class="Delimiter">}</span> +<span id="L248" class="LineNr">248 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L248'>write_mem_i8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">int8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L249" class="LineNr">249 </span> <span class="Normal">int8_t</span>* handle = <a href='010vm.cc.html#L208'>mem_addr_i8</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L250" class="LineNr">250 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> +<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L253" class="LineNr">253 </span> <span class="Normal">uint32_t</span>* handle = <a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L254" class="LineNr">254 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> +<span id="L255" class="LineNr">255 </span><span class="Delimiter">}</span> +<span id="L256" class="LineNr">256 </span><span class="Normal">inline</span> <span class="Normal">void</span> <a href='010vm.cc.html#L256'>write_mem_i32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">,</span> <span class="Normal">int32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L257" class="LineNr">257 </span> <span class="Normal">int32_t</span>* handle = <a href='010vm.cc.html#L227'>mem_addr_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L258" class="LineNr">258 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>handle != <span class="Constant">NULL</span><span class="Delimiter">)</span> *handle = val<span class="Delimiter">;</span> +<span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> +<span id="L260" class="LineNr">260 </span> +<span id="L261" class="LineNr">261 </span><span class="Normal">inline</span> <span class="Normal">bool</span> <a href='010vm.cc.html#L261'>already_allocated</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L264" class="LineNr">264 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> +<span id="L266" class="LineNr">266 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> +<span id="L267" class="LineNr">267 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> <span class="Delimiter">}</span> +<span id="L270" class="LineNr">270 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> +<span id="L272" class="LineNr">272 </span> +<span id="L273" class="LineNr">273 </span><span class="SalientComment">//:: core interpreter loop</span> +<span id="L274" class="LineNr">274 </span> +<span id="L275" class="LineNr">275 </span><span class="Delimiter">:(code)</span> +<span id="L276" class="LineNr">276 </span><span class="Comment">// skeleton of how x86 instructions are decoded</span> +<span id="L277" class="LineNr">277 </span><span class="Normal">void</span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L278" class="LineNr">278 </span> <span class="Normal">uint8_t</span> op=<span class="Constant">0</span><span class="Delimiter">,</span> op2=<span class="Constant">0</span><span class="Delimiter">,</span> op3=<span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L279" class="LineNr">279 </span> <span class="Comment">// Run One Instruction</span> +<span id="L280" class="LineNr">280 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L281" class="LineNr">281 </span> <a href='010vm.cc.html#L342'>dump_registers</a><span class="Delimiter">();</span> +<span id="L282" class="LineNr">282 </span> <span class="Comment">// End Dump Info for Instruction</span> +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> +<span id="L284" class="LineNr">284 </span> <span class="Normal">uint32_t</span> inst_start_address = <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">;</span> +<span id="L285" class="LineNr">285 </span> op = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L286" class="LineNr">286 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << inst_start_address << <span class="Constant">" opcode: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L287" class="LineNr">287 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L288" class="LineNr">288 </span> <span class="Normal">case</span> <span class="Constant">0xf4</span>: <span class="Comment">// hlt</span> +<span id="L289" class="LineNr">289 </span> <a href='010vm.cc.html#L26'>EIP</a> = <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">;</span> +<span id="L290" class="LineNr">290 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L291" class="LineNr">291 </span> <span class="Comment">// End Single-Byte Opcodes</span> +<span id="L292" class="LineNr">292 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: +<span id="L293" class="LineNr">293 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L294" class="LineNr">294 </span> <span class="Comment">// End Two-Byte Opcodes Starting With 0f</span> +<span id="L295" class="LineNr">295 </span> <span class="Normal">default</span>: +<span id="L296" class="LineNr">296 </span> cerr << <span class="Constant">"unrecognized second opcode after 0f: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L297" class="LineNr">297 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L298" class="LineNr">298 </span> <span class="Delimiter">}</span> +<span id="L299" class="LineNr">299 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L300" class="LineNr">300 </span> <span class="Normal">case</span> <span class="Constant">0xf2</span>: +<span id="L301" class="LineNr">301 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L302" class="LineNr">302 </span> <span class="Comment">// End Two-Byte Opcodes Starting With f2</span> +<span id="L303" class="LineNr">303 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: +<span id="L304" class="LineNr">304 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op3 = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L305" class="LineNr">305 </span> <span class="Comment">// End Three-Byte Opcodes Starting With f2 0f</span> +<span id="L306" class="LineNr">306 </span> <span class="Normal">default</span>: +<span id="L307" class="LineNr">307 </span> cerr << <span class="Constant">"unrecognized third opcode after f2 0f: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op3<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L308" class="LineNr">308 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L309" class="LineNr">309 </span> <span class="Delimiter">}</span> +<span id="L310" class="LineNr">310 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L311" class="LineNr">311 </span> <span class="Normal">default</span>: +<span id="L312" class="LineNr">312 </span> cerr << <span class="Constant">"unrecognized second opcode after f2: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L313" class="LineNr">313 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L314" class="LineNr">314 </span> <span class="Delimiter">}</span> +<span id="L315" class="LineNr">315 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L316" class="LineNr">316 </span> <span class="Normal">case</span> <span class="Constant">0xf3</span>: +<span id="L317" class="LineNr">317 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op2 = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L318" class="LineNr">318 </span> <span class="Comment">// End Two-Byte Opcodes Starting With f3</span> +<span id="L319" class="LineNr">319 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: +<span id="L320" class="LineNr">320 </span> <span class="Normal">switch</span><span class="Delimiter">(</span>op3 = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L321" class="LineNr">321 </span> <span class="Comment">// End Three-Byte Opcodes Starting With f3 0f</span> +<span id="L322" class="LineNr">322 </span> <span class="Normal">default</span>: +<span id="L323" class="LineNr">323 </span> cerr << <span class="Constant">"unrecognized third opcode after f3 0f: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op3<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L324" class="LineNr">324 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L325" class="LineNr">325 </span> <span class="Delimiter">}</span> +<span id="L326" class="LineNr">326 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L327" class="LineNr">327 </span> <span class="Normal">default</span>: +<span id="L328" class="LineNr">328 </span> cerr << <span class="Constant">"unrecognized second opcode after f3: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op2<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L329" class="LineNr">329 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L330" class="LineNr">330 </span> <span class="Delimiter">}</span> +<span id="L331" class="LineNr">331 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L332" class="LineNr">332 </span> <span class="Normal">default</span>: +<span id="L333" class="LineNr">333 </span> cerr << <span class="Constant">"unrecognized opcode: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L334" class="LineNr">334 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> out << <span class="Constant">" -- SF: "</span> << SF << <span class="Constant">"; <a href='010vm.cc.html#L80'>ZF</a>: "</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; <a href='010vm.cc.html#L81'>CF</a>: "</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; <a href='010vm.cc.html#L82'>OF</a>: "</span> << <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">;</span> -<span id="L337" class="LineNr">337 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << out<span class="Delimiter">.</span>str<span class="Delimiter">()</span> << end<span class="Delimiter">();</span> -<span id="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="Comment">//: start tracking supported opcodes</span> -<span id="L341" class="LineNr">341 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L342" class="LineNr">342 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">;</span> -<span id="L343" class="LineNr">343 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">;</span> -<span id="L344" class="LineNr">344 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="Special"><a href='010vm.cc.html#L344'>Name_f3</a></span><span class="Delimiter">;</span> -<span id="L345" class="LineNr">345 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="Special"><a href='010vm.cc.html#L345'>Name_f3_0f</a></span><span class="Delimiter">;</span> -<span id="L346" class="LineNr">346 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L347" class="LineNr">347 </span><a href='010vm.cc.html#L349'>init_op_names</a><span class="Delimiter">();</span> -<span id="L348" class="LineNr">348 </span><span class="Delimiter">:(code)</span> -<span id="L349" class="LineNr">349 </span><span class="Normal">void</span> <a href='010vm.cc.html#L349'>init_op_names</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L350" class="LineNr">350 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">"halt (hlt)"</span><span class="Delimiter">);</span> -<span id="L351" class="LineNr">351 </span> <span class="Comment">// End Initialize Op Names</span> -<span id="L352" class="LineNr">352 </span><span class="Delimiter">}</span> -<span id="L353" class="LineNr">353 </span> -<span id="L354" class="LineNr">354 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Special-cases(key)")</span> -<span id="L355" class="LineNr">355 </span><span class="Normal">if</span> <span class="Delimiter">(</span>key == <span class="Constant">"opcodes"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L356" class="LineNr">356 </span> cerr << <span class="Constant">"Opcodes currently supported by SubX:\n"</span><span class="Delimiter">;</span> -<span id="L357" class="LineNr">357 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L358" class="LineNr">358 </span> cerr << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L359" class="LineNr">359 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L360" class="LineNr">360 </span> cerr << <span class="Constant">" 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L361" class="LineNr">361 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="Special"><a href='010vm.cc.html#L344'>Name_f3</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='010vm.cc.html#L344'>Name_f3</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L362" class="LineNr">362 </span> cerr << <span class="Constant">" f3 "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L363" class="LineNr">363 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="Special"><a href='010vm.cc.html#L345'>Name_f3_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='010vm.cc.html#L345'>Name_f3_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L364" class="LineNr">364 </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="L365" class="LineNr">365 </span> cerr << <span class="Constant">"Run `bootstrap help instructions` for details on <a href='011run.cc.html#L122'>words</a> like 'r32' and 'disp8'.\n"</span> -<span id="L366" class="LineNr">366 </span> <span class="Constant">"For complete details on these instructions, consult the IA-32 manual (volume 2).\n"</span> -<span id="L367" class="LineNr">367 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86.">https://c9x.me/x86.</a>\n"</span> -<span id="L368" class="LineNr">368 </span> <span class="Constant">"The mnemonics in brackets will help you locate each instruction.\n"</span><span class="Delimiter">;</span> -<span id="L369" class="LineNr">369 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L370" class="LineNr">370 </span><span class="Delimiter">}</span> -<span id="L371" class="LineNr">371 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L372" class="LineNr">372 </span>cerr << <span class="Constant">" opcodes\n"</span><span class="Delimiter">;</span> -<span id="L373" class="LineNr">373 </span> -<span id="L374" class="LineNr">374 </span><span class="Comment">//: Helpers for managing trace depths</span> -<span id="L375" class="LineNr">375 </span><span class="Comment">//:</span> -<span id="L376" class="LineNr">376 </span><span class="Comment">//: We're going to use trace depths primarily to segment code running at</span> -<span id="L377" class="LineNr">377 </span><span class="Comment">//: different frames of the call stack. This will make it easy for the trace</span> -<span id="L378" class="LineNr">378 </span><span class="Comment">//: browser to collapse over entire calls.</span> -<span id="L379" class="LineNr">379 </span><span class="Comment">//:</span> -<span id="L380" class="LineNr">380 </span><span class="Comment">//: Errors will be at depth 0.</span> -<span id="L381" class="LineNr">381 </span><span class="Comment">//: Warnings will be at depth 1.</span> -<span id="L382" class="LineNr">382 </span><span class="Comment">//: SubX instructions will occupy depth 2 and up to Max_depth, organized by</span> -<span id="L383" class="LineNr">383 </span><span class="Comment">//: stack frames. Each instruction's internal details will be one level deeper</span> -<span id="L384" class="LineNr">384 </span><span class="Comment">//: than its 'main' depth. So 'call' instruction details will be at the same</span> -<span id="L385" class="LineNr">385 </span><span class="Comment">//: depth as the instructions of the function it calls.</span> -<span id="L386" class="LineNr">386 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L387" class="LineNr">387 </span><span class="Normal">extern</span> <span class="Normal">const</span> <span class="Normal">int</span> <span class="Special"><a href='010vm.cc.html#L387'>Initial_callstack_depth</a></span> = <span class="Constant">2</span><span class="Delimiter">;</span> -<span id="L388" class="LineNr">388 </span><span class="Normal">int</span> <span class="Special">Callstack_depth</span> = <span class="Special"><a href='010vm.cc.html#L387'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> -<span id="L389" class="LineNr">389 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L390" class="LineNr">390 </span><span class="Special">Callstack_depth</span> = <span class="Special"><a href='010vm.cc.html#L387'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> -<span id="L391" class="LineNr">391 </span> -<span id="L392" class="LineNr">392 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L393" class="LineNr">393 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> -<span id="L394" class="LineNr">394 </span><span class="PreProc">#define HEXBYTE std::hex << std::setw(</span><span class="Constant">2</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> -<span id="L395" class="LineNr">395 </span><span class="PreProc">#define HEXWORD std::hex << std::setw(</span><span class="Constant">8</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> -<span id="L396" class="LineNr">396 </span><span class="Comment">// ugly that iostream doesn't print uint8_t as an integer</span> -<span id="L397" class="LineNr">397 </span><span class="PreProc">#define NUM(</span><span class="Special">X</span><span class="PreProc">) </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>(</span><span class="Special">X</span><span class="PreProc">)</span> -<span id="L398" class="LineNr">398 </span><span class="PreProc">#include </span><span class="Constant"><stdint.h></span> +<span id="L336" class="LineNr">336 </span><span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> +<span id="L338" class="LineNr">338 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L339" class="LineNr">339 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>EIP++<span class="Delimiter">);</span> +<span id="L340" class="LineNr">340 </span><span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> +<span id="L342" class="LineNr">342 </span><span class="Normal">void</span> <a href='010vm.cc.html#L342'>dump_registers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L343" class="LineNr">343 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L344" class="LineNr">344 </span> out << <span class="Constant">"regs: "</span><span class="Delimiter">;</span> +<span id="L345" class="LineNr">345 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='010vm.cc.html#L18'>NUM_INT_REGISTERS</a><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">" "</span><span class="Delimiter">;</span> +<span id="L347" class="LineNr">347 </span> out << i << <span class="Constant">": "</span> << std::hex << std::setw<span class="Delimiter">(</span><span class="Constant">8</span><span class="Delimiter">)</span> << std::setfill<span class="Delimiter">(</span><span class="Constant">'_'</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[i]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> +<span id="L349" class="LineNr">349 </span> out << <span class="Constant">" -- SF: "</span> << SF << <span class="Constant">"; <a href='010vm.cc.html#L89'>ZF</a>: "</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; <a href='010vm.cc.html#L90'>CF</a>: "</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; <a href='010vm.cc.html#L91'>OF</a>: "</span> << <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> +<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << out<span class="Delimiter">.</span>str<span class="Delimiter">()</span> << end<span class="Delimiter">();</span> +<span id="L351" class="LineNr">351 </span><span class="Delimiter">}</span> +<span id="L352" class="LineNr">352 </span> +<span id="L353" class="LineNr">353 </span><span class="Comment">//: start tracking supported opcodes</span> +<span id="L354" class="LineNr">354 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L355" class="LineNr">355 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">;</span> +<span id="L356" class="LineNr">356 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">;</span> +<span id="L357" class="LineNr">357 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">;</span> +<span id="L358" class="LineNr">358 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">;</span> +<span id="L359" class="LineNr">359 </span><span class="Delimiter">:(before "End One-time Setup")</span> +<span id="L360" class="LineNr">360 </span><a href='010vm.cc.html#L362'>init_op_names</a><span class="Delimiter">();</span> +<span id="L361" class="LineNr">361 </span><span class="Delimiter">:(code)</span> +<span id="L362" class="LineNr">362 </span><span class="Normal">void</span> <a href='010vm.cc.html#L362'>init_op_names</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">"halt (hlt)"</span><span class="Delimiter">);</span> +<span id="L364" class="LineNr">364 </span> <span class="Comment">// End Initialize Op Names</span> +<span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> +<span id="L366" class="LineNr">366 </span> +<span id="L367" class="LineNr">367 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Special-cases(key)")</span> +<span id="L368" class="LineNr">368 </span><span class="Normal">if</span> <span class="Delimiter">(</span>key == <span class="Constant">"opcodes"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L369" class="LineNr">369 </span> cerr << <span class="Constant">"Opcodes currently supported by SubX:\n"</span><span class="Delimiter">;</span> +<span id="L370" class="LineNr">370 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L371" class="LineNr">371 </span> cerr << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L372" class="LineNr">372 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L373" class="LineNr">373 </span> cerr << <span class="Constant">" 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L374" class="LineNr">374 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L375" class="LineNr">375 </span> cerr << <span class="Constant">" f3 "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L376" class="LineNr">376 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L377" class="LineNr">377 </span> cerr << <span class="Constant">" f3 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L378" class="LineNr">378 </span> cerr << <span class="Constant">"Run `bootstrap help instructions` for details on <a href='011run.cc.html#L122'>words</a> like 'r32' and 'disp8'.\n"</span> +<span id="L379" class="LineNr">379 </span> <span class="Constant">"For complete details on these instructions, consult the IA-32 manual (volume 2).\n"</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>.\n"</span> +<span id="L381" class="LineNr">381 </span> <span class="Constant">"The mnemonics in brackets will help you locate each instruction.\n"</span><span class="Delimiter">;</span> +<span id="L382" class="LineNr">382 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> +<span id="L385" class="LineNr">385 </span>cerr << <span class="Constant">" opcodes\n"</span><span class="Delimiter">;</span> +<span id="L386" class="LineNr">386 </span> +<span id="L387" class="LineNr">387 </span><span class="Comment">//: Helpers for managing trace depths</span> +<span id="L388" class="LineNr">388 </span><span class="Comment">//:</span> +<span id="L389" class="LineNr">389 </span><span class="Comment">//: We're going to use trace depths primarily to segment code running at</span> +<span id="L390" class="LineNr">390 </span><span class="Comment">//: different frames of the call stack. This will make it easy for the trace</span> +<span id="L391" class="LineNr">391 </span><span class="Comment">//: browser to collapse over entire calls.</span> +<span id="L392" class="LineNr">392 </span><span class="Comment">//:</span> +<span id="L393" class="LineNr">393 </span><span class="Comment">//: Errors will be at depth 0.</span> +<span id="L394" class="LineNr">394 </span><span class="Comment">//: Warnings will be at depth 1.</span> +<span id="L395" class="LineNr">395 </span><span class="Comment">//: SubX instructions will occupy depth 2 and up to Max_depth, organized by</span> +<span id="L396" class="LineNr">396 </span><span class="Comment">//: stack frames. Each instruction's internal details will be one level deeper</span> +<span id="L397" class="LineNr">397 </span><span class="Comment">//: than its 'main' depth. So 'call' instruction details will be at the same</span> +<span id="L398" class="LineNr">398 </span><span class="Comment">//: depth as the instructions of the function it calls.</span> +<span id="L399" class="LineNr">399 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L400" class="LineNr">400 </span><span class="Normal">extern</span> <span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span> = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L401" class="LineNr">401 </span><span class="Normal">int</span> <span class="SpecialChar">Callstack_depth</span> = <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> +<span id="L402" class="LineNr">402 </span><span class="Delimiter">:(before "End Reset")</span> +<span id="L403" class="LineNr">403 </span><span class="SpecialChar">Callstack_depth</span> = <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> +<span id="L404" class="LineNr">404 </span> +<span id="L405" class="LineNr">405 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L406" class="LineNr">406 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> +<span id="L407" class="LineNr">407 </span><span class="PreProc">#define HEXBYTE std::hex << std::setw(</span><span class="Constant">2</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> +<span id="L408" class="LineNr">408 </span><span class="PreProc">#define HEXWORD std::hex << std::setw(</span><span class="Constant">8</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> +<span id="L409" class="LineNr">409 </span><span class="Comment">// ugly that iostream doesn't print uint8_t as an integer</span> +<span id="L410" class="LineNr">410 </span><span class="PreProc">#define NUM(</span><span class="SpecialChar">X</span><span class="PreProc">) </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>(</span><span class="SpecialChar">X</span><span class="PreProc">)</span> +<span id="L411" class="LineNr">411 </span><span class="PreProc">#include </span><span class="Constant"><stdint.h></span> </pre> </body> </html> diff --git a/html/011run.cc.html b/html/011run.cc.html index 84c3d680..1109b35a 100644 --- a/html/011run.cc.html +++ b/html/011run.cc.html @@ -16,12 +16,12 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SalientComment { color: #0000af; } --> </style> @@ -64,7 +64,7 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="Comment">//: the VM. That comes later.)</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"syntax"</span><span class="Delimiter">,</span> +<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"syntax"</span><span class="Delimiter">,</span> <span id="L8" class="LineNr"> 8 </span> <span class="Constant">"SubX programs consist of <a href='011run.cc.html#L106'>segments</a>, each segment in turn consisting of lines.\n"</span> <span id="L9" class="LineNr"> 9 </span> <span class="Constant">"Line-endings are significant; each <a href='011run.cc.html#L121'>line</a> should contain a single\n"</span> <span id="L10" class="LineNr"> 10 </span> <span class="Constant">"instruction, macro or directive.\n"</span> @@ -79,8 +79,8 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"The resulting binary starts running code from a label called 'Entry'\n"</span> <span id="L20" class="LineNr"> 20 </span> <span class="Constant">"in the code segment.\n"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Constant">"\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"Segments with the same <a href='011run.cc.html#L111'>name</a> get merged together. This rule helps keep functions and\n"</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"their data close together in .subx files.\n"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"Segments with the same <a href='011run.cc.html#L111'>name</a> get merged together. This rule helps keep functions\n"</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"and their data close together in .subx files.\n"</span> <span id="L24" class="LineNr"> 24 </span> <span class="Constant">"You don't have to specify the starting address after the first time.\n"</span> <span id="L25" class="LineNr"> 25 </span> <span class="Constant">"\n"</span> <span id="L26" class="LineNr"> 26 </span> <span class="Constant">"Lines consist of a series of words. Words can contain arbitrary metadata\n"</span> @@ -128,7 +128,7 @@ if ('onhashchange' in window) { <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// and are otherwise ignored.</span> <span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">);</span> <span id="L70" class="LineNr"> 70 </span> <span class="Comment">// This program, when run, causes the following events in the trace:</span> -<span id="L71" class="LineNr"> 71 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L71" class="LineNr"> 71 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L72" class="LineNr"> 72 </span> <span class="Constant">"load: 0x00000001 -> b8\n"</span> <span id="L73" class="LineNr"> 73 </span> <span class="Constant">"load: 0x00000002 -> 0a\n"</span> <span id="L74" class="LineNr"> 74 </span> <span class="Constant">"load: 0x00000003 -> 0b\n"</span> @@ -144,18 +144,18 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span> istringstream in<span class="Delimiter">(</span>text_bytes<span class="Delimiter">);</span> <span id="L85" class="LineNr"> 85 </span> <span class="Comment">// Loading Test Program</span> <span id="L86" class="LineNr"> 86 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// if any stage raises errors, stop immediately</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// if any stage raises errors, stop immediately</span> <span id="L88" class="LineNr"> 88 </span> <span class="Comment">// Running Test Program</span> <span id="L89" class="LineNr"> 89 </span> <a href='011run.cc.html#L248'>load</a><span class="Delimiter">(</span>p<span class="Delimiter">);</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L91" class="LineNr"> 91 </span> <span class="Comment">// convenience to keep tests concise: 'Entry' label need not be provided</span> <span id="L92" class="LineNr"> 92 </span> <span class="Comment">// not allowed in real programs</span> <span id="L93" class="LineNr"> 93 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a><span class="Delimiter">)</span> <span id="L94" class="LineNr"> 94 </span> <a href='010vm.cc.html#L26'>EIP</a> = p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a><span class="Delimiter">;</span> <span id="L95" class="LineNr"> 95 </span> <span class="Normal">else</span> <span id="L96" class="LineNr"> 96 </span> <a href='010vm.cc.html#L26'>EIP</a> = find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">)-></span>start<span class="Delimiter">;</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span><span class="Delimiter">)</span> -<span id="L98" class="LineNr"> 98 </span> <a href='010vm.cc.html#L264'>run_one_instruction</a><span class="Delimiter">();</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">)</span> +<span id="L98" class="LineNr"> 98 </span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">();</span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span> <span id="L101" class="LineNr">101 </span><span class="SalientComment">//:: core data structures</span> @@ -196,7 +196,7 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span><span class="Normal">void</span> parse<span class="Delimiter">(</span>istream& fin<span class="Delimiter">,</span> program& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> segment* curr_segment = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L138" class="LineNr">138 </span> vector<line> l<span class="Delimiter">;</span> -<span id="L139" class="LineNr">139 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L140" class="LineNr">140 </span> string line_data<span class="Delimiter">;</span> <span id="L141" class="LineNr">141 </span> <a href='011run.cc.html#L121'>line</a> curr<span class="Delimiter">;</span> <span id="L142" class="LineNr">142 </span> getline<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> line_data<span class="Delimiter">);</span> @@ -204,7 +204,7 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"line: "</span> << line_data << end<span class="Delimiter">();</span> <span id="L145" class="LineNr">145 </span> <span class="Comment">// End Line Parsing Special-cases(line_data -> l)</span> <span id="L146" class="LineNr">146 </span> istringstream lin<span class="Delimiter">(</span>line_data<span class="Delimiter">);</span> -<span id="L147" class="LineNr">147 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>lin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>lin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L148" class="LineNr">148 </span> string word_data<span class="Delimiter">;</span> <span id="L149" class="LineNr">149 </span> lin >> word_data<span class="Delimiter">;</span> <span id="L150" class="LineNr">150 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>word_data<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -227,8 +227,8 @@ if ('onhashchange' in window) { <span id="L167" class="LineNr">167 </span> curr_segment = &out<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>back<span class="Delimiter">();</span> <span id="L168" class="LineNr">168 </span> curr_segment<span class="Delimiter">-></span><a href='011run.cc.html#L111'>name</a> = segment_name<span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span> curr_segment<span class="Delimiter">-></span>start = seg_start<span class="Delimiter">;</span> -<span id="L170" class="LineNr">170 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L171" class="LineNr">171 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"starts at address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << curr_segment<span class="Delimiter">-></span>start << end<span class="Delimiter">();</span> +<span id="L170" class="LineNr">170 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L171" class="LineNr">171 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"starts at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << curr_segment<span class="Delimiter">-></span>start << end<span class="Delimiter">();</span> <span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> <span id="L173" class="LineNr">173 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Comment">// skip rest of line</span> <span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> @@ -248,7 +248,7 @@ if ('onhashchange' in window) { <span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> <span id="L189" class="LineNr">189 </span> <span id="L190" class="LineNr">190 </span>segment* find<span class="Delimiter">(</span>program& p<span class="Delimiter">,</span> <span class="Normal">const</span> string& segment_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L192" class="LineNr">192 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> == segment_name<span class="Delimiter">)</span> <span id="L193" class="LineNr">193 </span> <span class="Identifier">return</span> &p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> @@ -258,7 +258,7 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr">198 </span><span class="Normal">void</span> <a href='011run.cc.html#L198'>flush</a><span class="Delimiter">(</span>segment* s<span class="Delimiter">,</span> vector<line>& <a href='011run.cc.html#L113'>lines</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L199" class="LineNr">199 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L200" class="LineNr">200 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"input does not start with a '==' section header\n"</span> << end<span class="Delimiter">();</span> +<span id="L201" class="LineNr">201 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"input does not start with a '==' section header\n"</span> << end<span class="Delimiter">();</span> <span id="L202" class="LineNr">202 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"flushing segment"</span> << end<span class="Delimiter">();</span> @@ -277,9 +277,9 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span><span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span> <span id="L219" class="LineNr">219 </span><span class="Normal">void</span> <a href='011run.cc.html#L219'>sanity_check_program_segment</a><span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>start == addr<span class="Delimiter">)</span> -<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"can't have multiple segments starting at address 0x"</span> << HEXWORD << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't have multiple segments starting at address 0x"</span> << HEXWORD << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> <span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> <span id="L225" class="LineNr">225 </span> @@ -291,14 +291,14 @@ if ('onhashchange' in window) { <span id="L231" class="LineNr">231 </span><span class="Delimiter">}</span> <span id="L232" class="LineNr">232 </span> <span id="L233" class="LineNr">233 </span><span class="Normal">void</span> <a href='011run.cc.html#L233'>test_detect_duplicate_segments</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L234" class="LineNr">234 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L235" class="LineNr">235 </span> parse<span class="Delimiter">(</span> <span id="L236" class="LineNr">236 </span> <span class="Constant">"== segment1 0xee\n"</span> <span id="L237" class="LineNr">237 </span> <span class="Constant">"ab\n"</span> <span id="L238" class="LineNr">238 </span> <span class="Constant">"== segment2 0xee\n"</span> <span id="L239" class="LineNr">239 </span> <span class="Constant">"cd\n"</span> <span id="L240" class="LineNr">240 </span> <span class="Delimiter">);</span> -<span id="L241" class="LineNr">241 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L241" class="LineNr">241 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L242" class="LineNr">242 </span> <span class="Constant">"error: can't have multiple segments starting at address 0x000000ee\n"</span> <span id="L243" class="LineNr">243 </span> <span class="Delimiter">);</span> <span id="L244" class="LineNr">244 </span><span class="Delimiter">}</span> @@ -307,38 +307,38 @@ if ('onhashchange' in window) { <span id="L247" class="LineNr">247 </span> <span id="L248" class="LineNr">248 </span><span class="Normal">void</span> <a href='011run.cc.html#L248'>load</a><span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L249" class="LineNr">249 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">)</span> == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L250" class="LineNr">250 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"no code to run\n"</span> << end<span class="Delimiter">();</span> +<span id="L250" class="LineNr">250 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no code to run\n"</span> << end<span class="Delimiter">();</span> <span id="L251" class="LineNr">251 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">}</span> <span id="L253" class="LineNr">253 </span> <span class="Comment">// Ensure segments are disjoint.</span> <span id="L254" class="LineNr">254 </span> set<<span class="Normal">uint32_t</span>> overlap<span class="Delimiter">;</span> -<span id="L255" class="LineNr">255 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L255" class="LineNr">255 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L256" class="LineNr">256 </span> <span class="Normal">const</span> segment& seg = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L257" class="LineNr">257 </span> <span class="Normal">uint32_t</span> addr = seg<span class="Delimiter">.</span>start<span class="Delimiter">;</span> <span id="L258" class="LineNr">258 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!already_allocated<span class="Delimiter">(</span>addr<span class="Delimiter">))</span> -<span id="L259" class="LineNr">259 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>seg<span class="Delimiter">.</span>start<span class="Delimiter">));</span> -<span id="L260" class="LineNr">260 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"loading segment "</span> << i << <span class="Constant">" from "</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> -<span id="L261" class="LineNr">261 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>seg<span class="Delimiter">.</span>start<span class="Delimiter">));</span> +<span id="L260" class="LineNr">260 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"loading segment "</span> << i << <span class="Constant">" from "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> +<span id="L261" class="LineNr">261 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> <span class="Normal">const</span> line& l = seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> k = <span class="Constant">0</span><span class="Delimiter">;</span> k < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++k<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> k = <span class="Constant">0</span><span class="Delimiter">;</span> k < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++k<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L264" class="LineNr">264 </span> <span class="Normal">const</span> word& w = l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>k<span class="Delimiter">);</span> <span id="L265" class="LineNr">265 </span> <span class="Normal">uint8_t</span> val = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L266" class="LineNr">266 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L266" class="LineNr">266 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L267" class="LineNr">267 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span>addr<span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L268" class="LineNr">268 </span> <a href='010vm.cc.html#L231'>write_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">,</span> val<span class="Delimiter">);</span> +<span id="L268" class="LineNr">268 </span> <a href='010vm.cc.html#L244'>write_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">,</span> val<span class="Delimiter">);</span> <span id="L269" class="LineNr">269 </span> overlap<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>addr<span class="Delimiter">);</span> -<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span><a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> << end<span class="Delimiter">();</span> +<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span><a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> << end<span class="Delimiter">();</span> <span id="L271" class="LineNr">271 </span> ++addr<span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> <span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> <span id="L274" class="LineNr">274 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L111'>name</a> == <span class="Constant">"code"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L275" class="LineNr">275 </span> <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> = addr<span class="Delimiter">;</span> +<span id="L275" class="LineNr">275 </span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = addr<span class="Delimiter">;</span> <span id="L276" class="LineNr">276 </span> <span class="Delimiter">}</span> <span id="L277" class="LineNr">277 </span> <span class="Delimiter">}</span> <span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> <span id="L279" class="LineNr">279 </span> <span id="L280" class="LineNr">280 </span><span class="Normal">const</span> segment* find<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> <span class="Normal">const</span> string& segment_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L281" class="LineNr">281 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L282" class="LineNr">282 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> == segment_name<span class="Delimiter">)</span> <span id="L283" class="LineNr">283 </span> <span class="Identifier">return</span> &p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <span class="Delimiter">}</span> @@ -347,41 +347,41 @@ if ('onhashchange' in window) { <span id="L287" class="LineNr">287 </span> <span id="L288" class="LineNr">288 </span><span class="Normal">uint8_t</span> <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L289" class="LineNr">289 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L449'>contains_uppercase</a><span class="Delimiter">(</span>s<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L290" class="LineNr">290 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"uppercase hex not allowed: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L290" class="LineNr">290 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"uppercase hex not allowed: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L291" class="LineNr">291 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L292" class="LineNr">292 </span> <span class="Delimiter">}</span> <span id="L293" class="LineNr">293 </span> istringstream in<span class="Delimiter">(</span>s<span class="Delimiter">);</span> <span id="L294" class="LineNr">294 </span> <span class="Normal">int</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L295" class="LineNr">295 </span> in >> std::hex >> result<span class="Delimiter">;</span> <span id="L296" class="LineNr">296 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L297" class="LineNr">297 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> +<span id="L297" class="LineNr">297 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> <span id="L298" class="LineNr">298 </span> <span class="Identifier">return</span> <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> <span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result > <span class="Constant">0xff</span> || result < -<span class="Constant">0x8f</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L301" class="LineNr">301 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> +<span id="L301" class="LineNr">301 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> <span id="L302" class="LineNr">302 </span> <span class="Identifier">return</span> <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> <span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> <span id="L304" class="LineNr">304 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">uint8_t</span>><span class="Delimiter">(</span>result<span class="Delimiter">);</span> <span id="L305" class="LineNr">305 </span><span class="Delimiter">}</span> <span id="L306" class="LineNr">306 </span> <span id="L307" class="LineNr">307 </span><span class="Normal">void</span> <a href='011run.cc.html#L307'>test_number_too_large</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L308" class="LineNr">308 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L309" class="LineNr">309 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> <span id="L310" class="LineNr">310 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L311" class="LineNr">311 </span> <span class="Constant">"01 cab\n"</span> <span id="L312" class="LineNr">312 </span> <span class="Delimiter">);</span> -<span id="L313" class="LineNr">313 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L313" class="LineNr">313 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L314" class="LineNr">314 </span> <span class="Constant">"error: token 'cab' is not a hex byte\n"</span> <span id="L315" class="LineNr">315 </span> <span class="Delimiter">);</span> <span id="L316" class="LineNr">316 </span><span class="Delimiter">}</span> <span id="L317" class="LineNr">317 </span> <span id="L318" class="LineNr">318 </span><span class="Normal">void</span> <a href='011run.cc.html#L318'>test_invalid_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L319" class="LineNr">319 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L319" class="LineNr">319 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L320" class="LineNr">320 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> <span id="L321" class="LineNr">321 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L322" class="LineNr">322 </span> <span class="Constant">"01 cx\n"</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">);</span> -<span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L325" class="LineNr">325 </span> <span class="Constant">"error: token 'cx' is not a hex byte\n"</span> <span id="L326" class="LineNr">326 </span> <span class="Delimiter">);</span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">}</span> @@ -391,16 +391,16 @@ if ('onhashchange' in window) { <span id="L331" class="LineNr">331 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L332" class="LineNr">332 </span> <span class="Constant">"01 -02\n"</span> <span id="L333" class="LineNr">333 </span> <span class="Delimiter">);</span> -<span id="L334" class="LineNr">334 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L334" class="LineNr">334 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> <span id="L336" class="LineNr">336 </span> <span id="L337" class="LineNr">337 </span><span class="Normal">void</span> <a href='011run.cc.html#L337'>test_negative_number_too_small</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L338" class="LineNr">338 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L339" class="LineNr">339 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> <span id="L340" class="LineNr">340 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L341" class="LineNr">341 </span> <span class="Constant">"01 -12345\n"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> -<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L344" class="LineNr">344 </span> <span class="Constant">"error: token '-12345' is not a hex byte\n"</span> <span id="L345" class="LineNr">345 </span> <span class="Delimiter">);</span> <span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> @@ -410,7 +410,7 @@ if ('onhashchange' in window) { <span id="L350" class="LineNr">350 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L351" class="LineNr">351 </span> <span class="Constant">"0x01 -0x02\n"</span> <span id="L352" class="LineNr">352 </span> <span class="Delimiter">);</span> -<span id="L353" class="LineNr">353 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L353" class="LineNr">353 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> <span id="L355" class="LineNr">355 </span> <span id="L356" class="LineNr">356 </span><span class="Normal">void</span> <a href='011run.cc.html#L356'>test_repeated_segment_merges_data</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -420,7 +420,7 @@ if ('onhashchange' in window) { <span id="L360" class="LineNr">360 </span> <span class="Constant">"== code\n"</span> <span class="Comment">// again</span> <span id="L361" class="LineNr">361 </span> <span class="Constant">"33 44\n"</span> <span id="L362" class="LineNr">362 </span> <span class="Delimiter">);</span> -<span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L364" class="LineNr">364 </span> <span class="Constant">"parse: new segment 'code'\n"</span> <span id="L365" class="LineNr">365 </span> <span class="Constant">"parse: appending to segment 'code'\n"</span> <span id="L366" class="LineNr">366 </span> <span class="Comment">// first segment</span> @@ -433,22 +433,22 @@ if ('onhashchange' in window) { <span id="L373" class="LineNr">373 </span><span class="Delimiter">}</span> <span id="L374" class="LineNr">374 </span> <span id="L375" class="LineNr">375 </span><span class="Normal">void</span> <a href='011run.cc.html#L375'>test_error_on_missing_segment_header</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L376" class="LineNr">376 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L376" class="LineNr">376 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> <span id="L378" class="LineNr">378 </span> <span class="Constant">"01 02\n"</span> <span id="L379" class="LineNr">379 </span> <span class="Delimiter">);</span> -<span id="L380" class="LineNr">380 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L380" class="LineNr">380 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L381" class="LineNr">381 </span> <span class="Constant">"error: input does not start with a '==' section header\n"</span> <span id="L382" class="LineNr">382 </span> <span class="Delimiter">);</span> <span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> <span id="L384" class="LineNr">384 </span> <span id="L385" class="LineNr">385 </span><span class="Normal">void</span> <a href='011run.cc.html#L385'>test_error_on_uppercase_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L386" class="LineNr">386 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L386" class="LineNr">386 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L387" class="LineNr">387 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> <span id="L388" class="LineNr">388 </span> <span class="Constant">"== code\n"</span> <span id="L389" class="LineNr">389 </span> <span class="Constant">"01 Ab\n"</span> <span id="L390" class="LineNr">390 </span> <span class="Delimiter">);</span> -<span id="L391" class="LineNr">391 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L391" class="LineNr">391 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L392" class="LineNr">392 </span> <span class="Constant">"error: uppercase hex not allowed: Ab\n"</span> <span id="L393" class="LineNr">393 </span> <span class="Delimiter">);</span> <span id="L394" class="LineNr">394 </span><span class="Delimiter">}</span> @@ -458,22 +458,22 @@ if ('onhashchange' in window) { <span id="L398" class="LineNr">398 </span> program p<span class="Delimiter">;</span> <span id="L399" class="LineNr">399 </span> istringstream in<span class="Delimiter">(</span>text_bytes<span class="Delimiter">);</span> <span id="L400" class="LineNr">400 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> -<span id="L401" class="LineNr">401 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// if any stage raises errors, stop immediately</span> +<span id="L401" class="LineNr">401 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// if any stage raises errors, stop immediately</span> <span id="L402" class="LineNr">402 </span> <a href='011run.cc.html#L248'>load</a><span class="Delimiter">(</span>p<span class="Delimiter">);</span> <span id="L403" class="LineNr">403 </span><span class="Delimiter">}</span> <span id="L404" class="LineNr">404 </span> <span id="L405" class="LineNr">405 </span><span class="SalientComment">//:: run</span> <span id="L406" class="LineNr">406 </span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L408" class="LineNr">408 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L10'>EAX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L408" class="LineNr">408 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L10'>EAX</a> (mov)"</span><span class="Delimiter">);</span> <span id="L409" class="LineNr">409 </span> <span id="L410" class="LineNr">410 </span><span class="Comment">//: our first opcode</span> <span id="L411" class="LineNr">411 </span> <span id="L412" class="LineNr">412 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L413" class="LineNr">413 </span><span class="Normal">case</span> <span class="Constant">0xb8</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to EAX</span> <span id="L414" class="LineNr">414 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L415" class="LineNr">415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << src << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> -<span id="L416" class="LineNr">416 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> +<span id="L415" class="LineNr">415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> +<span id="L416" class="LineNr">416 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> <span id="L417" class="LineNr">417 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L418" class="LineNr">418 </span><span class="Delimiter">}</span> <span id="L419" class="LineNr">419 </span> @@ -484,14 +484,14 @@ if ('onhashchange' in window) { <span id="L424" class="LineNr">424 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L425" class="LineNr">425 </span> <span class="Constant">" b8 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to EAX</span> <span id="L426" class="LineNr">426 </span> <span class="Delimiter">);</span> -<span id="L427" class="LineNr">427 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L427" class="LineNr">427 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L428" class="LineNr">428 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to EAX\n"</span> <span id="L429" class="LineNr">429 </span> <span class="Delimiter">);</span> <span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> <span id="L431" class="LineNr">431 </span> <span id="L432" class="LineNr">432 </span><span class="Comment">// read a 32-bit int in little-endian order from the instruction stream</span> <span id="L433" class="LineNr">433 </span><span class="Normal">int32_t</span> <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L434" class="LineNr">434 </span> <span class="Normal">int32_t</span> result = <a href='010vm.cc.html#L176'>read_mem_i32</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> +<span id="L434" class="LineNr">434 </span> <span class="Normal">int32_t</span> result = <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L435" class="LineNr">435 </span> EIP+=<span class="Constant">4</span><span class="Delimiter">;</span> <span id="L436" class="LineNr">436 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L437" class="LineNr">437 </span><span class="Delimiter">}</span> @@ -501,13 +501,13 @@ if ('onhashchange' in window) { <span id="L441" class="LineNr">441 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L442" class="LineNr">442 </span> ostringstream out<span class="Delimiter">;</span> <span id="L443" class="LineNr">443 </span> out << w<span class="Delimiter">.</span>data<span class="Delimiter">;</span> -<span id="L444" class="LineNr">444 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L444" class="LineNr">444 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L445" class="LineNr">445 </span> out << <span class="Constant">" /"</span> << w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L446" class="LineNr">446 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L447" class="LineNr">447 </span><span class="Delimiter">}</span> <span id="L448" class="LineNr">448 </span> <span id="L449" class="LineNr">449 </span><span class="Normal">bool</span> <a href='011run.cc.html#L449'>contains_uppercase</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L450" class="LineNr">450 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L451" class="LineNr">451 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isupper<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L452" class="LineNr">452 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L453" class="LineNr">453 </span><span class="Delimiter">}</span> diff --git a/html/012elf.cc.html b/html/012elf.cc.html index b6d04368..44ae55e3 100644 --- a/html/012elf.cc.html +++ b/html/012elf.cc.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; } .CommentedCode { color: #8a8a8a; } +.PreProc { color: #c000c0; } .LineNr { } +.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } -.PreProc { color: #c000c0; } .cSpecial { color: #008000; } --> </style> @@ -65,32 +65,32 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Main")</span> <span id="L6" class="LineNr"> 6 </span>assert<span class="Delimiter">(</span>argc > <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L7" class="LineNr"> 7 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="Comment">// Outside of tests, traces must be explicitly requested.</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"=== Starting to run"</span> << end<span class="Delimiter">();</span> <span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>argc <= <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Not enough arguments provided.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Not enough arguments provided.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">}</span> <span id="L14" class="LineNr"> 14 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L15" class="LineNr"> 15 </span> cerr << std::hex<span class="Delimiter">;</span> <span id="L16" class="LineNr"> 16 </span> <a href='012elf.cc.html#L24'>load_elf</a><span class="Delimiter">(</span>argv[<span class="Constant">2</span>]<span class="Delimiter">,</span> argc<span class="Delimiter">,</span> argv<span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span><span class="Delimiter">)</span> <span class="Comment">// weak final-gasp termination check</span> -<span id="L18" class="LineNr"> 18 </span> <a href='010vm.cc.html#L264'>run_one_instruction</a><span class="Delimiter">();</span> -<span id="L19" class="LineNr"> 19 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"executed past end of the world: "</span> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">" vs "</span> << <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">)</span> <span class="Comment">// weak final-gasp termination check</span> +<span id="L18" class="LineNr"> 18 </span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">();</span> +<span id="L19" class="LineNr"> 19 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"executed past end of the world: "</span> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">" vs "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L20" class="LineNr"> 20 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(code)</span> <span id="L24" class="LineNr"> 24 </span><span class="Normal">void</span> <a href='012elf.cc.html#L24'>load_elf</a><span class="Delimiter">(</span><span class="Normal">const</span> string& filename<span class="Delimiter">,</span> <span class="Normal">int</span> argc<span class="Delimiter">,</span> <span class="Normal">char</span>* argv[]<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="Normal">int</span> fd = open<span class="Delimiter">(</span>filename<span class="Delimiter">.</span>c_str<span class="Delimiter">(),</span> O_RDONLY<span class="Delimiter">);</span> -<span id="L26" class="LineNr"> 26 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fd < <span class="Constant">0</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L228'>raise</a> << filename<span class="Delimiter">.</span>c_str<span class="Delimiter">()</span> << <span class="Constant">": open"</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fd < <span class="Constant">0</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << filename<span class="Delimiter">.</span>c_str<span class="Delimiter">()</span> << <span class="Constant">": open"</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L27" class="LineNr"> 27 </span> <span class="Normal">off_t</span> size = lseek<span class="Delimiter">(</span>fd<span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">,</span> <span class="Constant">SEEK_END</span><span class="Delimiter">);</span> <span id="L28" class="LineNr"> 28 </span> lseek<span class="Delimiter">(</span>fd<span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">,</span> <span class="Constant">SEEK_SET</span><span class="Delimiter">);</span> <span id="L29" class="LineNr"> 29 </span> <span class="Normal">uint8_t</span>* elf_contents = <span class="Normal">static_cast</span><<span class="Normal">uint8_t</span>*><span class="Delimiter">(</span>malloc<span class="Delimiter">(</span>size<span class="Delimiter">));</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents == <span class="Constant">NULL</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"malloc("</span> << size << <span class="Constant">')'</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents == <span class="Constant">NULL</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"malloc("</span> << size << <span class="Constant">')'</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L31" class="LineNr"> 31 </span> <span class="Normal">ssize_t</span> read_size = read<span class="Delimiter">(</span>fd<span class="Delimiter">,</span> elf_contents<span class="Delimiter">,</span> size<span class="Delimiter">);</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>size != read_size<span class="Delimiter">)</span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"read → "</span> << size << <span class="Constant">" (!= "</span> << read_size << <span class="Constant">')'</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>size != read_size<span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"read → "</span> << size << <span class="Constant">" (!= "</span> << read_size << <span class="Constant">')'</span> << <a href='012elf.cc.html#L179'>perr</a><span class="Delimiter">()</span> << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L33" class="LineNr"> 33 </span> <a href='012elf.cc.html#L37'>load_elf_contents</a><span class="Delimiter">(</span>elf_contents<span class="Delimiter">,</span> size<span class="Delimiter">,</span> argc<span class="Delimiter">,</span> argv<span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span> free<span class="Delimiter">(</span>elf_contents<span class="Delimiter">);</span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> @@ -99,22 +99,22 @@ if ('onhashchange' in window) { <span id="L38" class="LineNr"> 38 </span> <span class="Normal">uint8_t</span> magic[<span class="Constant">5</span>] = <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">};</span> <span id="L39" class="LineNr"> 39 </span> memcpy<span class="Delimiter">(</span>magic<span class="Delimiter">,</span> elf_contents<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> <span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>memcmp<span class="Delimiter">(</span>magic<span class="Delimiter">,</span> <span class="Constant">"\177ELF"</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">)</span> != <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Invalid ELF file; starts with \"" << magic << '"</span>' << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid ELF file; starts with \"" << magic << '"</span>' << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents[<span class="Constant">4</span>] != <span class="Constant">1</span><span class="Delimiter">)</span> -<span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Only 32-bit ELF files (4-byte words; virtual addresses up to 4GB) supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only 32-bit ELF files (4-byte words; virtual addresses up to 4GB) supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents[<span class="Constant">5</span>] != <span class="Constant">1</span><span class="Delimiter">)</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Only little-endian ELF files supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only little-endian ELF files supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// unused: remaining 10 bytes of e_ident</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">uint32_t</span> e_machine_type = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">16</span>]<span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_machine_type != <span class="Constant">0x00030002</span><span class="Delimiter">)</span> -<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"ELF type/machine 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << e_machine_type << <span class="Constant">" isn't i386 executable\n"</span> << die<span class="Delimiter">();</span> +<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"ELF type/machine 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << e_machine_type << <span class="Constant">" isn't i386 executable\n"</span> << die<span class="Delimiter">();</span> <span id="L50" class="LineNr"> 50 </span> <span class="Comment">// unused: e_version. We only support version 1, and later versions will be backwards compatible.</span> <span id="L51" class="LineNr"> 51 </span> <span class="Normal">uint32_t</span> e_entry = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">24</span>]<span class="Delimiter">);</span> <span id="L52" class="LineNr"> 52 </span> <span class="Normal">uint32_t</span> e_phoff = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">28</span>]<span class="Delimiter">);</span> <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// unused: e_shoff</span> <span id="L54" class="LineNr"> 54 </span> <span class="Comment">// unused: e_flags</span> <span id="L55" class="LineNr"> 55 </span> <span class="Normal">uint32_t</span> e_ehsize = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">40</span>]<span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize < <span class="Constant">52</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Invalid binary; ELF header too small\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize < <span class="Constant">52</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; ELF header too small\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L57" class="LineNr"> 57 </span> <span class="Normal">uint32_t</span> e_phentsize = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">42</span>]<span class="Delimiter">);</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">uint32_t</span> e_phnum = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">44</span>]<span class="Delimiter">);</span> <span id="L59" class="LineNr"> 59 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << e_phnum << <span class="Constant">" entries in the program header, each "</span> << e_phentsize << <span class="Constant">" bytes long"</span> << end<span class="Delimiter">();</span> @@ -128,75 +128,75 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// initialize code and stack</span> <span id="L69" class="LineNr"> 69 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">));</span> +<span id="L70" class="LineNr"> 70 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">));</span> <span id="L71" class="LineNr"> 71 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> <span id="L72" class="LineNr"> 72 </span> <span class="Comment">// The stack grows downward.</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">;</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBP]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">;</span> +<span id="L74" class="LineNr"> 74 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBP]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L75" class="LineNr"> 75 </span> <a href='010vm.cc.html#L26'>EIP</a> = e_entry<span class="Delimiter">;</span> <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span> <span class="Comment">// initialize args on stack</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// no envp for now</span> <span id="L79" class="LineNr"> 79 </span> <span class="Comment">// we wastefully use a separate page of memory for argv</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">));</span> +<span id="L80" class="LineNr"> 80 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">));</span> <span id="L81" class="LineNr"> 81 </span> <span class="Normal">uint32_t</span> argv_data = <a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">;</span> <span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = argc-<span class="Constant">1</span><span class="Delimiter">;</span> i >= <span class="Comment">/*</span><span class="Comment">skip 'subx_bin' and 'run'</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">;</span> --i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>argv_data<span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j <= strlen<span class="Delimiter">(</span>argv[i]<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span>argv_data<span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> <span class="Comment">// don't bother comparing ARGV and STACK</span> -<span id="L86" class="LineNr"> 86 </span> <a href='010vm.cc.html#L231'>write_mem_u8</a><span class="Delimiter">(</span>argv_data<span class="Delimiter">,</span> argv[i][j]<span class="Delimiter">);</span> +<span id="L86" class="LineNr"> 86 </span> <a href='010vm.cc.html#L244'>write_mem_u8</a><span class="Delimiter">(</span>argv_data<span class="Delimiter">,</span> argv[i][j]<span class="Delimiter">);</span> <span id="L87" class="LineNr"> 87 </span> argv_data += <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="Normal">char</span><span class="Delimiter">);</span> -<span id="L88" class="LineNr"> 88 </span> assert<span class="Delimiter">(</span>argv_data < <a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a> + <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> +<span id="L88" class="LineNr"> 88 </span> assert<span class="Delimiter">(</span>argv_data < <a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a> + <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> <span id="L91" class="LineNr"> 91 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>argc-<span class="Comment">/*</span><span class="Comment">skip 'subx_bin' and 'run'</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">);</span> <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">void</span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u -= <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"The stack overflowed its segment. "</span> +<span id="L95" class="LineNr"> 95 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u -= <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"The stack overflowed its segment. "</span> <span id="L98" class="LineNr"> 98 </span> << <span class="Constant">"Maybe SPACE_FOR_SEGMENT should be larger? "</span> <span id="L99" class="LineNr"> 99 </span> << <span class="Constant">"Or you need to carve out an exception for the stack segment "</span> <span id="L100" class="LineNr">100 </span> << <span class="Constant">"to be larger.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pushing value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << val << end<span class="Delimiter">();</span> -<span id="L104" class="LineNr">104 </span> <a href='010vm.cc.html#L239'>write_mem_u32</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> val<span class="Delimiter">);</span> +<span id="L102" class="LineNr">102 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pushing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> val<span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="Normal">void</span> <a href='012elf.cc.html#L107'>load_segment_from_program_header</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span>* elf_contents<span class="Delimiter">,</span> <span class="Normal">int</span> segment_index<span class="Delimiter">,</span> <span class="Normal">size_t</span> size<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> offset<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> e_ehsize<span class="Delimiter">,</span> set<<span class="Normal">uint32_t</span>>& overlap<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L108" class="LineNr">108 </span> <span class="Normal">uint32_t</span> p_type = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset]<span class="Delimiter">);</span> <span id="L109" class="LineNr">109 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"program header at offset "</span> << offset << <span class="Constant">": type "</span> << p_type << end<span class="Delimiter">();</span> <span id="L110" class="LineNr">110 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_type != <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"ignoring segment at offset "</span> << offset << <span class="Constant">" of non PT_LOAD type "</span> << p_type << <span class="Constant">" (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf)">http://refspecs.linuxbase.org/elf/elf.pdf)</a>"</span> << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"ignoring segment at offset "</span> << offset << <span class="Constant">" of non PT_LOAD type "</span> << p_type << <span class="Constant">" (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf">http://refspecs.linuxbase.org/elf/elf.pdf</a>)"</span> << end<span class="Delimiter">();</span> <span id="L112" class="LineNr">112 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span class="Normal">uint32_t</span> p_offset = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">4</span>]<span class="Delimiter">);</span> <span id="L115" class="LineNr">115 </span> <span class="Normal">uint32_t</span> p_vaddr = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">8</span>]<span class="Delimiter">);</span> -<span id="L116" class="LineNr">116 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize > p_vaddr<span class="Delimiter">)</span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Invalid binary; program header overlaps ELF header\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L116" class="LineNr">116 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize > p_vaddr<span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; program header overlaps ELF header\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L117" class="LineNr">117 </span> <span class="Comment">// unused: p_paddr</span> <span id="L118" class="LineNr">118 </span> <span class="Normal">uint32_t</span> p_filesz = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">16</span>]<span class="Delimiter">);</span> <span id="L119" class="LineNr">119 </span> <span class="Normal">uint32_t</span> p_memsz = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">20</span>]<span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_filesz != p_memsz<span class="Delimiter">)</span> -<span id="L121" class="LineNr">121 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Can't yet handle segments where p_filesz != p_memsz (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf)">http://refspecs.linuxbase.org/elf/elf.pdf)</a>\n"</span> << die<span class="Delimiter">();</span> +<span id="L121" class="LineNr">121 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Can't yet handle segments where p_filesz != p_memsz (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf">http://refspecs.linuxbase.org/elf/elf.pdf</a>)\n"</span> << die<span class="Delimiter">();</span> <span id="L122" class="LineNr">122 </span> <span id="L123" class="LineNr">123 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_offset + p_filesz > size<span class="Delimiter">)</span> -<span id="L124" class="LineNr">124 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Invalid binary; segment at offset "</span> << offset << <span class="Constant">" is too large: wants to end at "</span> << p_offset+p_filesz << <span class="Constant">" but the file ends at "</span> << size << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> -<span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_memsz >= <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"Code segment too small for SubX; for now please manually increase SEGMENT_ALIGNMENT.\n"</span> << end<span class="Delimiter">();</span> +<span id="L124" class="LineNr">124 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; segment at offset "</span> << offset << <span class="Constant">" is too large: wants to end at "</span> << p_offset+p_filesz << <span class="Constant">" but the file ends at "</span> << size << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_memsz >= <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Code segment too small for SubX; for now please manually increase SEGMENT_ALIGNMENT.\n"</span> << end<span class="Delimiter">();</span> <span id="L127" class="LineNr">127 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L128" class="LineNr">128 </span> <span class="Delimiter">}</span> <span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"blitting file offsets ("</span> << p_offset << <span class="Constant">", "</span> << <span class="Delimiter">(</span>p_offset+p_filesz<span class="Delimiter">)</span> << <span class="Constant">") to addresses ("</span> << p_vaddr << <span class="Constant">", "</span> << <span class="Delimiter">(</span>p_vaddr+p_memsz<span class="Delimiter">)</span> << <span class="Constant">')'</span> << end<span class="Delimiter">();</span> <span id="L130" class="LineNr">130 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>size > p_memsz<span class="Delimiter">)</span> size = p_memsz<span class="Delimiter">;</span> -<span id="L131" class="LineNr">131 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>p_vaddr<span class="Delimiter">));</span> +<span id="L131" class="LineNr">131 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>p_vaddr<span class="Delimiter">));</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < p_filesz<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L134" class="LineNr">134 </span> <a href='010vm.cc.html#L231'>write_mem_u8</a><span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">,</span> elf_contents[p_offset+i]<span class="Delimiter">);</span> +<span id="L134" class="LineNr">134 </span> <a href='010vm.cc.html#L244'>write_mem_u8</a><span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">,</span> elf_contents[p_offset+i]<span class="Delimiter">);</span> <span id="L135" class="LineNr">135 </span> overlap<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">);</span> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>segment_index == <span class="Constant">0</span> && <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> < p_vaddr+p_memsz<span class="Delimiter">)</span> -<span id="L138" class="LineNr">138 </span> <span class="Special"><a href='010vm.cc.html#L157'>End_of_program</a></span> = p_vaddr+p_memsz<span class="Delimiter">;</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>segment_index == <span class="Constant">0</span> && <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> < p_vaddr+p_memsz<span class="Delimiter">)</span> +<span id="L138" class="LineNr">138 </span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = p_vaddr+p_memsz<span class="Delimiter">;</span> <span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(before "End Includes")</span> @@ -218,14 +218,14 @@ if ('onhashchange' in window) { <span id="L157" class="LineNr">157 </span><span class="Delimiter">:(before "End Dump Info for Instruction")</span> <span id="L158" class="LineNr">158 </span><span class="CommentedCode">//? dump_stack(); // slow</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">:(code)</span> -<span id="L160" class="LineNr">160 </span><span class="Normal">void</span> <a href='012elf.cc.html#L160'>dump_stack</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L160" class="LineNr">160 </span><span class="Normal">void</span> dump_stack<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L162" class="LineNr">162 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> -<span id="L163" class="LineNr">163 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = AFTER_STACK-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">" <=== ESP"</span> << end<span class="Delimiter">();</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">40</span><span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> -<span id="L167" class="LineNr">167 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L162" class="LineNr">162 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> +<span id="L163" class="LineNr">163 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = AFTER_STACK-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">" <=== ESP"</span> << end<span class="Delimiter">();</span> +<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">40</span><span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> +<span id="L167" class="LineNr">167 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> <span id="L169" class="LineNr">169 </span> <span id="L170" class="LineNr">170 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span>* p<span class="Delimiter">)</span> <span class="Delimiter">{</span> diff --git a/html/013direct_addressing.cc.html b/html/013direct_addressing.cc.html index 0c6e188a..6ed4363f 100644 --- a/html/013direct_addressing.cc.html +++ b/html/013direct_addressing.cc.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } +.SpecialChar { color: #d70000; } +.CommentedCode { color: #8a8a8a; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } -.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SalientComment { color: #0000af; } --> </style> @@ -62,19 +62,19 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: operating directly on a register</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">"add r32 to rm32 (add)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">"add r32 to rm32 (add)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L7'>test_add_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L13" class="LineNr"> 13 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> <span id="L14" class="LineNr"> 14 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> -<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: storing 0x00000011\n"</span> @@ -83,37 +83,37 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L24" class="LineNr"> 24 </span><span class="Normal">case</span> <span class="Constant">0x01</span>: <span class="Delimiter">{</span> <span class="Comment">// add r32 to r/m32</span> -<span id="L25" class="LineNr"> 25 </span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L25" class="LineNr"> 25 </span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L28" class="LineNr"> 28 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L31" class="LineNr"> 31 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> + <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L33" class="LineNr"> 33 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L31" class="LineNr"> 31 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L33" class="LineNr"> 33 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span> <span class="Comment">// set CF</span> <span id="L35" class="LineNr"> 35 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L38" class="LineNr"> 38 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L38" class="LineNr"> 38 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L40" class="LineNr"> 40 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L42" class="LineNr"> 42 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> <span id="L44" class="LineNr"> 44 </span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">:(code)</span> <span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L46'>test_add_r32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L47" class="LineNr"> 47 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L48" class="LineNr"> 48 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L51" class="LineNr"> 51 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L52" class="LineNr"> 52 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> -<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> @@ -122,15 +122,15 @@ if ('onhashchange' in window) { <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L63'>test_add_r32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L64" class="LineNr"> 64 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L65" class="LineNr"> 65 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L66" class="LineNr"> 66 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L67" class="LineNr"> 67 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L69" class="LineNr"> 69 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> <span id="L70" class="LineNr"> 70 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">);</span> -<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> @@ -139,14 +139,14 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">}</span> <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L80'>test_add_r32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L81" class="LineNr"> 81 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L82" class="LineNr"> 82 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L83" class="LineNr"> 83 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L84" class="LineNr"> 84 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> <span id="L86" class="LineNr"> 86 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">);</span> -<span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L89" class="LineNr"> 89 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> @@ -165,12 +165,12 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr"> 104 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L105" class="LineNr"> 105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L106" class="LineNr"> 106 </span> <span class="Comment">// mod 3 is just register direct addressing</span> -<span id="L107" class="LineNr"> 107 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m32 is "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L108" class="LineNr"> 108 </span> <span class="Identifier">return</span> &<span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L107" class="LineNr"> 107 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m32 is "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L108" class="LineNr"> 108 </span> <span class="Identifier">return</span> &<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L109" class="LineNr"> 109 </span> <span class="Delimiter">}</span> <span id="L110" class="LineNr"> 110 </span> <span class="Normal">uint32_t</span> addr = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L176'>read_mem_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L112" class="LineNr"> 112 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L216'>mem_addr_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L112" class="LineNr"> 112 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L227'>mem_addr_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span id="L113" class="LineNr"> 113 </span><span class="Delimiter">}</span> <span id="L114" class="LineNr"> 114 </span> <span id="L115" class="LineNr"> 115 </span><span class="Comment">// beware: will eventually have side-effects</span> @@ -182,11 +182,11 @@ if ('onhashchange' in window) { <span id="L121" class="LineNr"> 121 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>mod<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L122" class="LineNr"> 122 </span> <span class="Normal">case</span> <span class="Constant">3</span>: <span id="L123" class="LineNr"> 123 </span> <span class="Comment">// mod 3 is just register direct addressing</span> -<span id="L124" class="LineNr"> 124 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"unexpected direct addressing mode\n"</span> << end<span class="Delimiter">();</span> +<span id="L124" class="LineNr"> 124 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unexpected direct addressing mode\n"</span> << end<span class="Delimiter">();</span> <span id="L125" class="LineNr"> 125 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L126" class="LineNr"> 126 </span> <span class="Comment">// End Mod Special-cases(addr)</span> <span id="L127" class="LineNr"> 127 </span> <span class="Normal">default</span>: -<span id="L128" class="LineNr"> 128 </span> cerr << <span class="Constant">"unrecognized mod bits: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>mod<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L128" class="LineNr"> 128 </span> cerr << <span class="Constant">"unrecognized mod bits: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>mod<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L129" class="LineNr"> 129 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L130" class="LineNr"> 130 </span> <span class="Delimiter">}</span> <span id="L131" class="LineNr"> 131 </span> <span class="Comment">//: other mods are indirect, and they'll set addr appropriately</span> @@ -204,26 +204,26 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr"> 143 </span> <span class="Normal">case</span> <span class="Constant">5</span>: <span class="Identifier">return</span> <span class="Constant">"EBP"</span><span class="Delimiter">;</span> <span id="L144" class="LineNr"> 144 </span> <span class="Normal">case</span> <span class="Constant">6</span>: <span class="Identifier">return</span> <span class="Constant">"ESI"</span><span class="Delimiter">;</span> <span id="L145" class="LineNr"> 145 </span> <span class="Normal">case</span> <span class="Constant">7</span>: <span class="Identifier">return</span> <span class="Constant">"EDI"</span><span class="Delimiter">;</span> -<span id="L146" class="LineNr"> 146 </span> <span class="Normal">default</span>: <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"invalid register "</span> << r << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L146" class="LineNr"> 146 </span> <span class="Normal">default</span>: <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"invalid register "</span> << r << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Identifier">return</span> <span class="Constant">""</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="Delimiter">}</span> <span id="L149" class="LineNr"> 149 </span> <span id="L150" class="LineNr"> 150 </span><span class="SalientComment">//:: subtract</span> <span id="L151" class="LineNr"> 151 </span> <span id="L152" class="LineNr"> 152 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L153" class="LineNr"> 153 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">"subtract r32 from rm32 (sub)"</span><span class="Delimiter">);</span> +<span id="L153" class="LineNr"> 153 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">"subtract r32 from rm32 (sub)"</span><span class="Delimiter">);</span> <span id="L154" class="LineNr"> 154 </span> <span id="L155" class="LineNr"> 155 </span><span class="Delimiter">:(code)</span> <span id="L156" class="LineNr"> 156 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L156'>test_subtract_r32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr"> 157 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> -<span id="L158" class="LineNr"> 158 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L157" class="LineNr"> 157 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L158" class="LineNr"> 158 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L159" class="LineNr"> 159 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L160" class="LineNr"> 160 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L161" class="LineNr"> 161 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L162" class="LineNr"> 162 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L163" class="LineNr"> 163 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L164" class="LineNr"> 164 </span> <span class="Delimiter">);</span> -<span id="L165" class="LineNr"> 165 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L165" class="LineNr"> 165 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L166" class="LineNr"> 166 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> <span id="L167" class="LineNr"> 167 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L168" class="LineNr"> 168 </span> <span class="Constant">"run: storing 0x00000009\n"</span> @@ -232,37 +232,37 @@ if ('onhashchange' in window) { <span id="L171" class="LineNr"> 171 </span> <span id="L172" class="LineNr"> 172 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L173" class="LineNr"> 173 </span><span class="Normal">case</span> <span class="Constant">0x29</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract r32 from r/m32</span> -<span id="L174" class="LineNr"> 174 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L174" class="LineNr"> 174 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L175" class="LineNr"> 175 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L176" class="LineNr"> 176 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" from r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L176" class="LineNr"> 176 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" from r/m32"</span> << end<span class="Delimiter">();</span> <span id="L177" class="LineNr"> 177 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L178" class="LineNr"> 178 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L178" class="LineNr"> 178 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L179" class="LineNr"> 179 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L180" class="LineNr"> 180 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L181" class="LineNr"> 181 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L182" class="LineNr"> 182 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L180" class="LineNr"> 180 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L181" class="LineNr"> 181 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L182" class="LineNr"> 182 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L183" class="LineNr"> 183 </span> <span class="Comment">// set CF</span> <span id="L184" class="LineNr"> 184 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L185" class="LineNr"> 185 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L186" class="LineNr"> 186 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L187" class="LineNr"> 187 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L188" class="LineNr"> 188 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L185" class="LineNr"> 185 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L186" class="LineNr"> 186 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L187" class="LineNr"> 187 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L188" class="LineNr"> 188 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L189" class="LineNr"> 189 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L190" class="LineNr"> 190 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L190" class="LineNr"> 190 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L191" class="LineNr"> 191 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L192" class="LineNr"> 192 </span><span class="Delimiter">}</span> <span id="L193" class="LineNr"> 193 </span> <span id="L194" class="LineNr"> 194 </span><span class="Delimiter">:(code)</span> <span id="L195" class="LineNr"> 195 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L195'>test_subtract_r32_from_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L196" class="LineNr"> 196 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> -<span id="L197" class="LineNr"> 197 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L196" class="LineNr"> 196 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L197" class="LineNr"> 197 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L198" class="LineNr"> 198 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L199" class="LineNr"> 199 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L200" class="LineNr"> 200 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L201" class="LineNr"> 201 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L202" class="LineNr"> 202 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L203" class="LineNr"> 203 </span> <span class="Delimiter">);</span> -<span id="L204" class="LineNr"> 204 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L204" class="LineNr"> 204 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L205" class="LineNr"> 205 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> <span id="L206" class="LineNr"> 206 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L207" class="LineNr"> 207 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> @@ -271,15 +271,15 @@ if ('onhashchange' in window) { <span id="L210" class="LineNr"> 210 </span><span class="Delimiter">}</span> <span id="L211" class="LineNr"> 211 </span> <span id="L212" class="LineNr"> 212 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L212'>test_subtract_r32_from_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr"> 213 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L214" class="LineNr"> 214 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L213" class="LineNr"> 213 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L214" class="LineNr"> 214 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L215" class="LineNr"> 215 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L217" class="LineNr"> 217 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L218" class="LineNr"> 218 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L219" class="LineNr"> 219 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L220" class="LineNr"> 220 </span> <span class="Delimiter">);</span> -<span id="L221" class="LineNr"> 221 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L221" class="LineNr"> 221 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> <span id="L223" class="LineNr"> 223 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L224" class="LineNr"> 224 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> @@ -288,15 +288,15 @@ if ('onhashchange' in window) { <span id="L227" class="LineNr"> 227 </span><span class="Delimiter">}</span> <span id="L228" class="LineNr"> 228 </span> <span id="L229" class="LineNr"> 229 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L229'>test_subtract_r32_from_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L230" class="LineNr"> 230 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L231" class="LineNr"> 231 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L230" class="LineNr"> 230 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L231" class="LineNr"> 231 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L232" class="LineNr"> 232 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L233" class="LineNr"> 233 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L234" class="LineNr"> 234 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L235" class="LineNr"> 235 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L236" class="LineNr"> 236 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L237" class="LineNr"> 237 </span> <span class="Delimiter">);</span> -<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L239" class="LineNr"> 239 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> <span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> @@ -307,19 +307,19 @@ if ('onhashchange' in window) { <span id="L246" class="LineNr"> 246 </span><span class="SalientComment">//:: multiply</span> <span id="L247" class="LineNr"> 247 </span> <span id="L248" class="LineNr"> 248 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L249" class="LineNr"> 249 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">"negate/multiply/divide rm32 (with <a href='010vm.cc.html#L10'>EAX</a> and <a href='010vm.cc.html#L12'>EDX</a> if necessary) depending on subop (neg/mul/idiv)"</span><span class="Delimiter">);</span> +<span id="L249" class="LineNr"> 249 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">"negate/multiply/divide rm32 (with <a href='010vm.cc.html#L10'>EAX</a> and <a href='010vm.cc.html#L12'>EDX</a> if necessary) depending on subop (neg/mul/idiv)"</span><span class="Delimiter">);</span> <span id="L250" class="LineNr"> 250 </span> <span id="L251" class="LineNr"> 251 </span><span class="Delimiter">:(code)</span> <span id="L252" class="LineNr"> 252 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L252'>test_multiply_EAX_by_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr"> 253 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L254" class="LineNr"> 254 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L253" class="LineNr"> 253 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L254" class="LineNr"> 254 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L255" class="LineNr"> 255 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L257" class="LineNr"> 257 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L258" class="LineNr"> 258 </span> <span class="Constant">" f7 e1 \n"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L259" class="LineNr"> 259 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop mul) 001 (src ECX)</span> <span id="L260" class="LineNr"> 260 </span> <span class="Delimiter">);</span> -<span id="L261" class="LineNr"> 261 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L261" class="LineNr"> 261 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L263" class="LineNr"> 263 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> <span id="L264" class="LineNr"> 264 </span> <span class="Constant">"run: subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32\n"</span> @@ -329,25 +329,25 @@ if ('onhashchange' in window) { <span id="L268" class="LineNr"> 268 </span> <span id="L269" class="LineNr"> 269 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L270" class="LineNr"> 270 </span><span class="Normal">case</span> <span class="Constant">0xf7</span>: <span class="Delimiter">{</span> -<span id="L271" class="LineNr"> 271 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L272" class="LineNr"> 272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L271" class="LineNr"> 271 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L272" class="LineNr"> 272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L273" class="LineNr"> 273 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L274" class="LineNr"> 274 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L275" class="LineNr"> 275 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L276" class="LineNr"> 276 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// mul unsigned EAX by r/m32</span> -<span id="L277" class="LineNr"> 277 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32"</span> << end<span class="Delimiter">();</span> -<span id="L278" class="LineNr"> 278 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> * <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> -<span id="L279" class="LineNr"> 279 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = result & <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> -<span id="L280" class="LineNr"> 280 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = result >> <span class="Constant">32</span><span class="Delimiter">;</span> -<span id="L281" class="LineNr"> 281 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u != <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L282" class="LineNr"> 282 </span> <a href='010vm.cc.html#L81'>CF</a> = <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">;</span> -<span id="L283" class="LineNr"> 283 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L284" class="LineNr"> 284 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L277" class="LineNr"> 277 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L278" class="LineNr"> 278 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> * <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> +<span id="L279" class="LineNr"> 279 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = result & <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> +<span id="L280" class="LineNr"> 280 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = result >> <span class="Constant">32</span><span class="Delimiter">;</span> +<span id="L281" class="LineNr"> 281 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u != <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L282" class="LineNr"> 282 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> +<span id="L283" class="LineNr"> 283 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L284" class="LineNr"> 284 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L285" class="LineNr"> 285 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L286" class="LineNr"> 286 </span> <span class="Delimiter">}</span> <span id="L287" class="LineNr"> 287 </span> <span class="Comment">// End Op f7 Subops</span> <span id="L288" class="LineNr"> 288 </span> <span class="Normal">default</span>: -<span id="L289" class="LineNr"> 289 </span> cerr << <span class="Constant">"unrecognized subop for opcode f7: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L289" class="LineNr"> 289 </span> cerr << <span class="Constant">"unrecognized subop for opcode f7: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L290" class="LineNr"> 290 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L291" class="LineNr"> 291 </span> <span class="Delimiter">}</span> <span id="L292" class="LineNr"> 292 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -356,19 +356,19 @@ if ('onhashchange' in window) { <span id="L295" class="LineNr"> 295 </span><span class="Comment">//:</span> <span id="L296" class="LineNr"> 296 </span> <span id="L297" class="LineNr"> 297 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L298" class="LineNr"> 298 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 into r32 (imul)"</span><span class="Delimiter">);</span> +<span id="L298" class="LineNr"> 298 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 into r32 (imul)"</span><span class="Delimiter">);</span> <span id="L299" class="LineNr"> 299 </span> <span id="L300" class="LineNr"> 300 </span><span class="Delimiter">:(code)</span> <span id="L301" class="LineNr"> 301 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L301'>test_multiply_r32_into_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L302" class="LineNr"> 302 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L303" class="LineNr"> 303 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L302" class="LineNr"> 302 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L303" class="LineNr"> 303 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L304" class="LineNr"> 304 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L305" class="LineNr"> 305 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L306" class="LineNr"> 306 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L307" class="LineNr"> 307 </span> <span class="Constant">" 0f af d8 \n"</span> <span class="Comment">// subtract EBX into EAX</span> <span id="L308" class="LineNr"> 308 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L309" class="LineNr"> 309 </span> <span class="Delimiter">);</span> -<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L311" class="LineNr"> 311 </span> <span class="Constant">"run: multiply <a href='010vm.cc.html#L13'>EBX</a> by r/m32\n"</span> <span id="L312" class="LineNr"> 312 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L313" class="LineNr"> 313 </span> <span class="Constant">"run: storing 0x00000008\n"</span> @@ -377,17 +377,17 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr"> 316 </span> <span id="L317" class="LineNr"> 317 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L318" class="LineNr"> 318 </span><span class="Normal">case</span> <span class="Constant">0xaf</span>: <span class="Delimiter">{</span> <span class="Comment">// multiply r32 by r/m32</span> -<span id="L319" class="LineNr"> 319 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L319" class="LineNr"> 319 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L320" class="LineNr"> 320 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << <span class="Constant">" by r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << <span class="Constant">" by r/m32"</span> << end<span class="Delimiter">();</span> <span id="L322" class="LineNr"> 322 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L323" class="LineNr"> 323 </span> <span class="Normal">int32_t</span> result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> -<span id="L324" class="LineNr"> 324 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> -<span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> -<span id="L326" class="LineNr"> 326 </span> <a href='010vm.cc.html#L81'>CF</a> = <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">;</span> -<span id="L327" class="LineNr"> 327 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L328" class="LineNr"> 328 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> -<span id="L329" class="LineNr"> 329 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L323" class="LineNr"> 323 </span> <span class="Normal">int32_t</span> result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> +<span id="L324" class="LineNr"> 324 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> +<span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> +<span id="L326" class="LineNr"> 326 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> +<span id="L327" class="LineNr"> 327 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L328" class="LineNr"> 328 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> +<span id="L329" class="LineNr"> 329 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L330" class="LineNr"> 330 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L331" class="LineNr"> 331 </span><span class="Delimiter">}</span> <span id="L332" class="LineNr"> 332 </span> @@ -395,14 +395,14 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr"> 334 </span> <span id="L335" class="LineNr"> 335 </span><span class="Delimiter">:(code)</span> <span id="L336" class="LineNr"> 336 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L336'>test_negate_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr"> 337 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L337" class="LineNr"> 337 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L338" class="LineNr"> 338 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L339" class="LineNr"> 339 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L340" class="LineNr"> 340 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L341" class="LineNr"> 341 </span> <span class="Constant">" f7 db \n"</span> <span class="Comment">// negate EBX</span> <span id="L342" class="LineNr"> 342 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop negate) 011 (dest EBX)</span> <span id="L343" class="LineNr"> 343 </span> <span class="Delimiter">);</span> -<span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: subop: negate\n"</span> @@ -412,37 +412,37 @@ if ('onhashchange' in window) { <span id="L351" class="LineNr"> 351 </span> <span id="L352" class="LineNr"> 352 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L353" class="LineNr"> 353 </span><span class="Normal">case</span> <span class="Constant">3</span>: <span class="Delimiter">{</span> <span class="Comment">// negate r/m32</span> -<span id="L354" class="LineNr"> 354 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: negate"</span> << end<span class="Delimiter">();</span> +<span id="L354" class="LineNr"> 354 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: negate"</span> << end<span class="Delimiter">();</span> <span id="L355" class="LineNr"> 355 </span> <span class="Comment">// one case that can overflow</span> <span id="L356" class="LineNr"> 356 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">)</span> == <span class="Constant">0x80000000</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L357" class="LineNr"> 357 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"overflow"</span> << end<span class="Delimiter">();</span> +<span id="L357" class="LineNr"> 357 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"overflow"</span> << end<span class="Delimiter">();</span> <span id="L358" class="LineNr"> 358 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L359" class="LineNr"> 359 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L360" class="LineNr"> 360 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L359" class="LineNr"> 359 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L360" class="LineNr"> 360 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L361" class="LineNr"> 361 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L362" class="LineNr"> 362 </span> <span class="Delimiter">}</span> <span id="L363" class="LineNr"> 363 </span> <span class="Normal">int32_t</span> result = -<span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> <span id="L364" class="LineNr"> 364 </span> SF = <span class="Delimiter">(</span>result >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L365" class="LineNr"> 365 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L366" class="LineNr"> 366 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L367" class="LineNr"> 367 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>*arg1 != <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L365" class="LineNr"> 365 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L366" class="LineNr"> 366 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L367" class="LineNr"> 367 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>*arg1 != <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L369" class="LineNr"> 369 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L370" class="LineNr"> 370 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L370" class="LineNr"> 370 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L371" class="LineNr"> 371 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L372" class="LineNr"> 372 </span><span class="Delimiter">}</span> <span id="L373" class="LineNr"> 373 </span> <span id="L374" class="LineNr"> 374 </span><span class="Delimiter">:(code)</span> <span id="L375" class="LineNr"> 375 </span><span class="Comment">// negate can overflow in exactly one situation</span> <span id="L376" class="LineNr"> 376 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L376'>test_negate_can_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L377" class="LineNr"> 377 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// INT_MIN</span> +<span id="L377" class="LineNr"> 377 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// INT_MIN</span> <span id="L378" class="LineNr"> 378 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L379" class="LineNr"> 379 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L380" class="LineNr"> 380 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L381" class="LineNr"> 381 </span> <span class="Constant">" f7 db \n"</span> <span class="Comment">// negate EBX</span> <span id="L382" class="LineNr"> 382 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop negate) 011 (dest EBX)</span> <span id="L383" class="LineNr"> 383 </span> <span class="Delimiter">);</span> -<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L385" class="LineNr"> 385 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L386" class="LineNr"> 386 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L387" class="LineNr"> 387 </span> <span class="Constant">"run: subop: negate\n"</span> @@ -453,16 +453,16 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr"> 392 </span><span class="SalientComment">//:: divide with remainder</span> <span id="L393" class="LineNr"> 393 </span> <span id="L394" class="LineNr"> 394 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L394'>test_divide_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr"> 395 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L396" class="LineNr"> 396 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L397" class="LineNr"> 397 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L395" class="LineNr"> 395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L396" class="LineNr"> 396 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L397" class="LineNr"> 397 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L398" class="LineNr"> 398 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L399" class="LineNr"> 399 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L400" class="LineNr"> 400 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L401" class="LineNr"> 401 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L402" class="LineNr"> 402 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L403" class="LineNr"> 403 </span> <span class="Delimiter">);</span> -<span id="L404" class="LineNr"> 404 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L404" class="LineNr"> 404 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L406" class="LineNr"> 406 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> <span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> @@ -473,30 +473,30 @@ if ('onhashchange' in window) { <span id="L412" class="LineNr"> 412 </span> <span id="L413" class="LineNr"> 413 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L414" class="LineNr"> 414 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// divide EDX:EAX by r/m32, storing quotient in EAX and remainder in EDX</span> -<span id="L415" class="LineNr"> 415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX"</span> << end<span class="Delimiter">();</span> -<span id="L416" class="LineNr"> 416 </span> <span class="Normal">int64_t</span> dividend = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">((</span><span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">32</span><span class="Delimiter">)</span> | <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L415" class="LineNr"> 415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX"</span> << end<span class="Delimiter">();</span> +<span id="L416" class="LineNr"> 416 </span> <span class="Normal">int64_t</span> dividend = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">((</span><span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">32</span><span class="Delimiter">)</span> | <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L417" class="LineNr"> 417 </span> <span class="Normal">int32_t</span> divisor = *arg1<span class="Delimiter">;</span> <span id="L418" class="LineNr"> 418 </span> assert<span class="Delimiter">(</span>divisor != <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L419" class="LineNr"> 419 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = dividend/divisor<span class="Delimiter">;</span> <span class="Comment">// quotient</span> -<span id="L420" class="LineNr"> 420 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = dividend%divisor<span class="Delimiter">;</span> <span class="Comment">// remainder</span> +<span id="L419" class="LineNr"> 419 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = dividend/divisor<span class="Delimiter">;</span> <span class="Comment">// quotient</span> +<span id="L420" class="LineNr"> 420 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = dividend%divisor<span class="Delimiter">;</span> <span class="Comment">// remainder</span> <span id="L421" class="LineNr"> 421 </span> <span class="Comment">// flag state undefined</span> -<span id="L422" class="LineNr"> 422 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"quotient: 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L423" class="LineNr"> 423 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"remainder: 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L422" class="LineNr"> 422 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"quotient: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L423" class="LineNr"> 423 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"remainder: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L424" class="LineNr"> 424 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L425" class="LineNr"> 425 </span><span class="Delimiter">}</span> <span id="L426" class="LineNr"> 426 </span> <span id="L427" class="LineNr"> 427 </span><span class="Delimiter">:(code)</span> <span id="L428" class="LineNr"> 428 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L428'>test_divide_EAX_by_negative_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr"> 429 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L430" class="LineNr"> 430 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L431" class="LineNr"> 431 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = -<span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L429" class="LineNr"> 429 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L430" class="LineNr"> 430 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L431" class="LineNr"> 431 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = -<span class="Constant">3</span><span class="Delimiter">;</span> <span id="L432" class="LineNr"> 432 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L433" class="LineNr"> 433 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L434" class="LineNr"> 434 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L435" class="LineNr"> 435 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L436" class="LineNr"> 436 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L437" class="LineNr"> 437 </span> <span class="Delimiter">);</span> -<span id="L438" class="LineNr"> 438 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L438" class="LineNr"> 438 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L439" class="LineNr"> 439 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L440" class="LineNr"> 440 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> <span id="L441" class="LineNr"> 441 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> @@ -506,16 +506,16 @@ if ('onhashchange' in window) { <span id="L445" class="LineNr"> 445 </span><span class="Delimiter">}</span> <span id="L446" class="LineNr"> 446 </span> <span id="L447" class="LineNr"> 447 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L447'>test_divide_negative_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L448" class="LineNr"> 448 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L449" class="LineNr"> 449 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// sign extend</span> -<span id="L450" class="LineNr"> 450 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L448" class="LineNr"> 448 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L449" class="LineNr"> 449 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// sign extend</span> +<span id="L450" class="LineNr"> 450 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L451" class="LineNr"> 451 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L452" class="LineNr"> 452 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L453" class="LineNr"> 453 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L454" class="LineNr"> 454 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L455" class="LineNr"> 455 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">);</span> -<span id="L457" class="LineNr"> 457 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L457" class="LineNr"> 457 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L458" class="LineNr"> 458 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L459" class="LineNr"> 459 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> <span id="L460" class="LineNr"> 460 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> @@ -525,16 +525,16 @@ if ('onhashchange' in window) { <span id="L464" class="LineNr"> 464 </span><span class="Delimiter">}</span> <span id="L465" class="LineNr"> 465 </span> <span id="L466" class="LineNr"> 466 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L466'>test_divide_negative_EDX_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L467" class="LineNr"> 467 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// lower 32 bits are clear</span> -<span id="L468" class="LineNr"> 468 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L469" class="LineNr"> 469 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x40000000</span><span class="Delimiter">;</span> <span class="Comment">// 2^30 (largest positive power of 2)</span> +<span id="L467" class="LineNr"> 467 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// lower 32 bits are clear</span> +<span id="L468" class="LineNr"> 468 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L469" class="LineNr"> 469 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x40000000</span><span class="Delimiter">;</span> <span class="Comment">// 2^30 (largest positive power of 2)</span> <span id="L470" class="LineNr"> 470 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L472" class="LineNr"> 472 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L473" class="LineNr"> 473 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L474" class="LineNr"> 474 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L475" class="LineNr"> 475 </span> <span class="Delimiter">);</span> -<span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> <span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> @@ -546,19 +546,19 @@ if ('onhashchange' in window) { <span id="L485" class="LineNr"> 485 </span><span class="SalientComment">//:: shift left</span> <span id="L486" class="LineNr"> 486 </span> <span id="L487" class="LineNr"> 487 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L488" class="LineNr"> 488 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by CL bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> +<span id="L488" class="LineNr"> 488 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by CL bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> <span id="L489" class="LineNr"> 489 </span> <span id="L490" class="LineNr"> 490 </span><span class="Delimiter">:(code)</span> <span id="L491" class="LineNr"> 491 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L491'>test_shift_left_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L492" class="LineNr"> 492 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> -<span id="L493" class="LineNr"> 493 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L492" class="LineNr"> 492 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> +<span id="L493" class="LineNr"> 493 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L494" class="LineNr"> 494 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L495" class="LineNr"> 495 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L496" class="LineNr"> 496 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L497" class="LineNr"> 497 </span> <span class="Constant">" d3 e3 \n"</span> <span class="Comment">// shift EBX left by CL bits</span> <span id="L498" class="LineNr"> 498 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop shift left) 011 (dest EBX)</span> <span id="L499" class="LineNr"> 499 </span> <span class="Delimiter">);</span> -<span id="L500" class="LineNr"> 500 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L500" class="LineNr"> 500 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L501" class="LineNr"> 501 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L502" class="LineNr"> 502 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L503" class="LineNr"> 503 </span> <span class="Constant">"run: subop: shift left by CL bits\n"</span> @@ -568,32 +568,32 @@ if ('onhashchange' in window) { <span id="L507" class="LineNr"> 507 </span> <span id="L508" class="LineNr"> 508 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L509" class="LineNr"> 509 </span><span class="Normal">case</span> <span class="Constant">0xd3</span>: <span class="Delimiter">{</span> -<span id="L510" class="LineNr"> 510 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L511" class="LineNr"> 511 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L510" class="LineNr"> 510 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L511" class="LineNr"> 511 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L512" class="LineNr"> 512 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L513" class="LineNr"> 513 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L514" class="LineNr"> 514 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L515" class="LineNr"> 515 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// shift left r/m32 by CL</span> -<span id="L516" class="LineNr"> 516 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> -<span id="L517" class="LineNr"> 517 </span> <span class="Normal">uint8_t</span> count = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L516" class="LineNr"> 516 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> +<span id="L517" class="LineNr"> 517 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L518" class="LineNr"> 518 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L519" class="LineNr"> 519 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L520" class="LineNr"> 520 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L521" class="LineNr"> 521 </span> <span class="Normal">bool</span> pnsb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x40000000</span><span class="Delimiter">);</span> -<span id="L522" class="LineNr"> 522 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> +<span id="L522" class="LineNr"> 522 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> <span id="L523" class="LineNr"> 523 </span> <span class="Delimiter">}</span> <span id="L524" class="LineNr"> 524 </span> <span class="Normal">int32_t</span> result = <span class="Delimiter">(</span>*arg1 << count<span class="Delimiter">);</span> -<span id="L525" class="LineNr"> 525 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L525" class="LineNr"> 525 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L526" class="LineNr"> 526 </span> SF = <span class="Delimiter">(</span>result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L527" class="LineNr"> 527 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>*arg1 << <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x80000000</span><span class="Delimiter">;</span> -<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L527" class="LineNr"> 527 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>*arg1 << <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x80000000</span><span class="Delimiter">;</span> +<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L529" class="LineNr"> 529 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L530" class="LineNr"> 530 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L530" class="LineNr"> 530 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L531" class="LineNr"> 531 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">}</span> <span id="L533" class="LineNr"> 533 </span> <span class="Comment">// End Op d3 Subops</span> <span id="L534" class="LineNr"> 534 </span> <span class="Normal">default</span>: -<span id="L535" class="LineNr"> 535 </span> cerr << <span class="Constant">"unrecognized subop for opcode d3: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L535" class="LineNr"> 535 </span> cerr << <span class="Constant">"unrecognized subop for opcode d3: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L536" class="LineNr"> 536 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L537" class="LineNr"> 537 </span> <span class="Delimiter">}</span> <span id="L538" class="LineNr"> 538 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -603,15 +603,15 @@ if ('onhashchange' in window) { <span id="L542" class="LineNr"> 542 </span> <span id="L543" class="LineNr"> 543 </span><span class="Delimiter">:(code)</span> <span id="L544" class="LineNr"> 544 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L544'>test_shift_right_arithmetic_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L545" class="LineNr"> 545 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> -<span id="L546" class="LineNr"> 546 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L545" class="LineNr"> 545 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L546" class="LineNr"> 546 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L547" class="LineNr"> 547 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L548" class="LineNr"> 548 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L549" class="LineNr"> 549 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L550" class="LineNr"> 550 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L551" class="LineNr"> 551 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">);</span> -<span id="L553" class="LineNr"> 553 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L553" class="LineNr"> 553 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L556" class="LineNr"> 556 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -621,29 +621,29 @@ if ('onhashchange' in window) { <span id="L560" class="LineNr"> 560 </span> <span id="L561" class="LineNr"> 561 </span><span class="Delimiter">:(before "End Op d3 Subops")</span> <span id="L562" class="LineNr"> 562 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> -<span id="L564" class="LineNr"> 564 </span> <span class="Normal">uint8_t</span> count = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> +<span id="L564" class="LineNr"> 564 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L565" class="LineNr"> 565 </span> *arg1 = <span class="Delimiter">(</span>*arg1 >> count<span class="Delimiter">);</span> -<span id="L566" class="LineNr"> 566 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L566" class="LineNr"> 566 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L567" class="LineNr"> 567 </span> SF = <span class="Delimiter">(</span>*arg1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L568" class="LineNr"> 568 </span> <span class="Comment">// OF is only defined if count is 1</span> -<span id="L569" class="LineNr"> 569 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L569" class="LineNr"> 569 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L570" class="LineNr"> 570 </span> <span class="Comment">// CF undefined</span> -<span id="L571" class="LineNr"> 571 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L571" class="LineNr"> 571 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L572" class="LineNr"> 572 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L573" class="LineNr"> 573 </span><span class="Delimiter">}</span> <span id="L574" class="LineNr"> 574 </span> <span id="L575" class="LineNr"> 575 </span><span class="Delimiter">:(code)</span> <span id="L576" class="LineNr"> 576 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L576'>test_shift_right_arithmetic_odd_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L577" class="LineNr"> 577 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> -<span id="L578" class="LineNr"> 578 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L577" class="LineNr"> 577 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L578" class="LineNr"> 578 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L579" class="LineNr"> 579 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L580" class="LineNr"> 580 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L581" class="LineNr"> 581 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L582" class="LineNr"> 582 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L583" class="LineNr"> 583 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L584" class="LineNr"> 584 </span> <span class="Delimiter">);</span> -<span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -653,15 +653,15 @@ if ('onhashchange' in window) { <span id="L592" class="LineNr"> 592 </span><span class="Delimiter">}</span> <span id="L593" class="LineNr"> 593 </span> <span id="L594" class="LineNr"> 594 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L594'>test_shift_right_arithmetic_negative_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L595" class="LineNr"> 595 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> -<span id="L596" class="LineNr"> 596 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L595" class="LineNr"> 595 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> +<span id="L596" class="LineNr"> 596 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L597" class="LineNr"> 597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L599" class="LineNr"> 599 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L600" class="LineNr"> 600 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L601" class="LineNr"> 601 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">);</span> -<span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -674,15 +674,15 @@ if ('onhashchange' in window) { <span id="L613" class="LineNr"> 613 </span> <span id="L614" class="LineNr"> 614 </span><span class="Delimiter">:(code)</span> <span id="L615" class="LineNr"> 615 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L615'>test_shift_right_logical_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L616" class="LineNr"> 616 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> -<span id="L617" class="LineNr"> 617 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L616" class="LineNr"> 616 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L617" class="LineNr"> 617 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L618" class="LineNr"> 618 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L619" class="LineNr"> 619 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L620" class="LineNr"> 620 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L621" class="LineNr"> 621 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L622" class="LineNr"> 622 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L623" class="LineNr"> 623 </span> <span class="Delimiter">);</span> -<span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L627" class="LineNr"> 627 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -693,35 +693,35 @@ if ('onhashchange' in window) { <span id="L632" class="LineNr"> 632 </span> <span id="L633" class="LineNr"> 633 </span><span class="Delimiter">:(before "End Op d3 Subops")</span> <span id="L634" class="LineNr"> 634 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, padding zeroes</span> -<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> -<span id="L636" class="LineNr"> 636 </span> <span class="Normal">uint8_t</span> count = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> +<span id="L636" class="LineNr"> 636 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L637" class="LineNr"> 637 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L638" class="LineNr"> 638 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L639" class="LineNr"> 639 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L640" class="LineNr"> 640 </span> <span class="Normal">bool</span> pnsb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x40000000</span><span class="Delimiter">);</span> -<span id="L641" class="LineNr"> 641 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> +<span id="L641" class="LineNr"> 641 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> <span id="L642" class="LineNr"> 642 </span> <span class="Delimiter">}</span> <span id="L643" class="LineNr"> 643 </span> <span class="Normal">uint32_t</span>* uarg1 = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>arg1<span class="Delimiter">);</span> <span id="L644" class="LineNr"> 644 </span> *uarg1 = <span class="Delimiter">(</span>*uarg1 >> count<span class="Delimiter">);</span> -<span id="L645" class="LineNr"> 645 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*uarg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L645" class="LineNr"> 645 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*uarg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L646" class="LineNr"> 646 </span> <span class="Comment">// result is always positive by definition</span> <span id="L647" class="LineNr"> 647 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L648" class="LineNr"> 648 </span> <span class="Comment">// CF undefined</span> -<span id="L649" class="LineNr"> 649 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L649" class="LineNr"> 649 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L650" class="LineNr"> 650 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L651" class="LineNr"> 651 </span><span class="Delimiter">}</span> <span id="L652" class="LineNr"> 652 </span> <span id="L653" class="LineNr"> 653 </span><span class="Delimiter">:(code)</span> <span id="L654" class="LineNr"> 654 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L654'>test_shift_right_logical_odd_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L655" class="LineNr"> 655 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> -<span id="L656" class="LineNr"> 656 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L655" class="LineNr"> 655 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L656" class="LineNr"> 656 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L657" class="LineNr"> 657 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L658" class="LineNr"> 658 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L659" class="LineNr"> 659 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L660" class="LineNr"> 660 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L661" class="LineNr"> 661 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L662" class="LineNr"> 662 </span> <span class="Delimiter">);</span> -<span id="L663" class="LineNr"> 663 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L663" class="LineNr"> 663 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L664" class="LineNr"> 664 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L665" class="LineNr"> 665 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L666" class="LineNr"> 666 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -731,15 +731,15 @@ if ('onhashchange' in window) { <span id="L670" class="LineNr"> 670 </span><span class="Delimiter">}</span> <span id="L671" class="LineNr"> 671 </span> <span id="L672" class="LineNr"> 672 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L672'>test_shift_right_logical_negative_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L673" class="LineNr"> 673 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> -<span id="L674" class="LineNr"> 674 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L673" class="LineNr"> 673 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> +<span id="L674" class="LineNr"> 674 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L675" class="LineNr"> 675 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L676" class="LineNr"> 676 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L677" class="LineNr"> 677 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L678" class="LineNr"> 678 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L679" class="LineNr"> 679 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L680" class="LineNr"> 680 </span> <span class="Delimiter">);</span> -<span id="L681" class="LineNr"> 681 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L681" class="LineNr"> 681 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L682" class="LineNr"> 682 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L683" class="LineNr"> 683 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L684" class="LineNr"> 684 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -750,19 +750,19 @@ if ('onhashchange' in window) { <span id="L689" class="LineNr"> 689 </span><span class="SalientComment">//:: and</span> <span id="L690" class="LineNr"> 690 </span> <span id="L691" class="LineNr"> 691 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L692" class="LineNr"> 692 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> +<span id="L692" class="LineNr"> 692 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> <span id="L693" class="LineNr"> 693 </span> <span id="L694" class="LineNr"> 694 </span><span class="Delimiter">:(code)</span> <span id="L695" class="LineNr"> 695 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L695'>test_and_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L696" class="LineNr"> 696 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L697" class="LineNr"> 697 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x000000ff</span><span class="Delimiter">;</span> +<span id="L696" class="LineNr"> 696 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L697" class="LineNr"> 697 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x000000ff</span><span class="Delimiter">;</span> <span id="L698" class="LineNr"> 698 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L699" class="LineNr"> 699 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L700" class="LineNr"> 700 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L701" class="LineNr"> 701 </span> <span class="Constant">" 21 d8 \n"</span> <span class="Comment">// and EBX with destination EAX</span> <span id="L702" class="LineNr"> 702 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L703" class="LineNr"> 703 </span> <span class="Delimiter">);</span> -<span id="L704" class="LineNr"> 704 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L704" class="LineNr"> 704 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L705" class="LineNr"> 705 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L706" class="LineNr"> 706 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> @@ -771,38 +771,38 @@ if ('onhashchange' in window) { <span id="L710" class="LineNr"> 710 </span> <span id="L711" class="LineNr"> 711 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L712" class="LineNr"> 712 </span><span class="Normal">case</span> <span class="Constant">0x21</span>: <span class="Delimiter">{</span> <span class="Comment">// and r32 with r/m32</span> -<span id="L713" class="LineNr"> 713 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L713" class="LineNr"> 713 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L714" class="LineNr"> 714 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L715" class="LineNr"> 715 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L715" class="LineNr"> 715 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L716" class="LineNr"> 716 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L717" class="LineNr"> 717 </span> <span class="Comment">// difference</span> <span id="L718" class="LineNr"> 718 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L719" class="LineNr"> 719 </span> *signed_arg1 &= <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L719" class="LineNr"> 719 </span> *signed_arg1 &= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L721" class="LineNr"> 721 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L722" class="LineNr"> 722 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L723" class="LineNr"> 723 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L724" class="LineNr"> 724 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L725" class="LineNr"> 725 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L722" class="LineNr"> 722 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L723" class="LineNr"> 723 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L724" class="LineNr"> 724 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L725" class="LineNr"> 725 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L726" class="LineNr"> 726 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L727" class="LineNr"> 727 </span><span class="Delimiter">}</span> <span id="L728" class="LineNr"> 728 </span> <span id="L729" class="LineNr"> 729 </span><span class="SalientComment">//:: or</span> <span id="L730" class="LineNr"> 730 </span> <span id="L731" class="LineNr"> 731 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L732" class="LineNr"> 732 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> +<span id="L732" class="LineNr"> 732 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> <span id="L733" class="LineNr"> 733 </span> <span id="L734" class="LineNr"> 734 </span><span class="Delimiter">:(code)</span> <span id="L735" class="LineNr"> 735 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L735'>test_or_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L736" class="LineNr"> 736 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L737" class="LineNr"> 737 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L736" class="LineNr"> 736 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L737" class="LineNr"> 737 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L738" class="LineNr"> 738 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L739" class="LineNr"> 739 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L740" class="LineNr"> 740 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L741" class="LineNr"> 741 </span> <span class="Constant">" 09 d8 \n"</span> <span class="Comment">// or EBX with destination EAX</span> <span id="L742" class="LineNr"> 742 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L743" class="LineNr"> 743 </span> <span class="Delimiter">);</span> -<span id="L744" class="LineNr"> 744 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L744" class="LineNr"> 744 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L745" class="LineNr"> 745 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L746" class="LineNr"> 746 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L747" class="LineNr"> 747 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> @@ -811,38 +811,38 @@ if ('onhashchange' in window) { <span id="L750" class="LineNr"> 750 </span> <span id="L751" class="LineNr"> 751 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L752" class="LineNr"> 752 </span><span class="Normal">case</span> <span class="Constant">0x09</span>: <span class="Delimiter">{</span> <span class="Comment">// or r32 with r/m32</span> -<span id="L753" class="LineNr"> 753 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L753" class="LineNr"> 753 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L754" class="LineNr"> 754 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L755" class="LineNr"> 755 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L755" class="LineNr"> 755 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L756" class="LineNr"> 756 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L757" class="LineNr"> 757 </span> <span class="Comment">// difference</span> <span id="L758" class="LineNr"> 758 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L759" class="LineNr"> 759 </span> *signed_arg1 |= <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L760" class="LineNr"> 760 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L759" class="LineNr"> 759 </span> *signed_arg1 |= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L760" class="LineNr"> 760 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L761" class="LineNr"> 761 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L762" class="LineNr"> 762 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L763" class="LineNr"> 763 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L764" class="LineNr"> 764 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L765" class="LineNr"> 765 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L762" class="LineNr"> 762 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L763" class="LineNr"> 763 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L764" class="LineNr"> 764 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L765" class="LineNr"> 765 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L766" class="LineNr"> 766 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L767" class="LineNr"> 767 </span><span class="Delimiter">}</span> <span id="L768" class="LineNr"> 768 </span> <span id="L769" class="LineNr"> 769 </span><span class="SalientComment">//:: xor</span> <span id="L770" class="LineNr"> 770 </span> <span id="L771" class="LineNr"> 771 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L772" class="LineNr"> 772 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> +<span id="L772" class="LineNr"> 772 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> <span id="L773" class="LineNr"> 773 </span> <span id="L774" class="LineNr"> 774 </span><span class="Delimiter">:(code)</span> <span id="L775" class="LineNr"> 775 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L775'>test_xor_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L776" class="LineNr"> 776 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L777" class="LineNr"> 777 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbc0d0</span><span class="Delimiter">;</span> +<span id="L776" class="LineNr"> 776 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L777" class="LineNr"> 777 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbc0d0</span><span class="Delimiter">;</span> <span id="L778" class="LineNr"> 778 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L780" class="LineNr"> 780 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 31 d8 \n"</span> <span class="Comment">// xor EBX with destination EAX</span> <span id="L782" class="LineNr"> 782 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">);</span> -<span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: storing 0xa0b0ccdd\n"</span> @@ -851,19 +851,19 @@ if ('onhashchange' in window) { <span id="L790" class="LineNr"> 790 </span> <span id="L791" class="LineNr"> 791 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L792" class="LineNr"> 792 </span><span class="Normal">case</span> <span class="Constant">0x31</span>: <span class="Delimiter">{</span> <span class="Comment">// xor r32 with r/m32</span> -<span id="L793" class="LineNr"> 793 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L793" class="LineNr"> 793 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L794" class="LineNr"> 794 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L795" class="LineNr"> 795 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L795" class="LineNr"> 795 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L796" class="LineNr"> 796 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L797" class="LineNr"> 797 </span> <span class="Comment">// difference</span> <span id="L798" class="LineNr"> 798 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L799" class="LineNr"> 799 </span> *signed_arg1 ^= <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L800" class="LineNr"> 800 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L799" class="LineNr"> 799 </span> *signed_arg1 ^= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L800" class="LineNr"> 800 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L801" class="LineNr"> 801 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L802" class="LineNr"> 802 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L803" class="LineNr"> 803 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L804" class="LineNr"> 804 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L802" class="LineNr"> 802 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L803" class="LineNr"> 803 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L804" class="LineNr"> 804 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L806" class="LineNr"> 806 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L807" class="LineNr"> 807 </span><span class="Delimiter">}</span> <span id="L808" class="LineNr"> 808 </span> @@ -871,14 +871,14 @@ if ('onhashchange' in window) { <span id="L810" class="LineNr"> 810 </span> <span id="L811" class="LineNr"> 811 </span><span class="Delimiter">:(code)</span> <span id="L812" class="LineNr"> 812 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L812'>test_not_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L813" class="LineNr"> 813 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0f0f00ff</span><span class="Delimiter">;</span> +<span id="L813" class="LineNr"> 813 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0f0f00ff</span><span class="Delimiter">;</span> <span id="L814" class="LineNr"> 814 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L815" class="LineNr"> 815 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L816" class="LineNr"> 816 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L817" class="LineNr"> 817 </span> <span class="Constant">" f7 d3 \n"</span> <span class="Comment">// not EBX</span> <span id="L818" class="LineNr"> 818 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 010 (subop not) 011 (dest EBX)</span> <span id="L819" class="LineNr"> 819 </span> <span class="Delimiter">);</span> -<span id="L820" class="LineNr"> 820 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L820" class="LineNr"> 820 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L821" class="LineNr"> 821 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L822" class="LineNr"> 822 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L823" class="LineNr"> 823 </span> <span class="Constant">"run: subop: not\n"</span> @@ -888,9 +888,9 @@ if ('onhashchange' in window) { <span id="L827" class="LineNr"> 827 </span> <span id="L828" class="LineNr"> 828 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L829" class="LineNr"> 829 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// not r/m32</span> -<span id="L830" class="LineNr"> 830 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: not"</span> << end<span class="Delimiter">();</span> +<span id="L830" class="LineNr"> 830 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: not"</span> << end<span class="Delimiter">();</span> <span id="L831" class="LineNr"> 831 </span> *arg1 = ~<span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> -<span id="L832" class="LineNr"> 832 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L832" class="LineNr"> 832 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L833" class="LineNr"> 833 </span> <span class="Comment">// no flags affected</span> <span id="L834" class="LineNr"> 834 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L835" class="LineNr"> 835 </span><span class="Delimiter">}</span> @@ -898,19 +898,19 @@ if ('onhashchange' in window) { <span id="L837" class="LineNr"> 837 </span><span class="SalientComment">//:: compare (cmp)</span> <span id="L838" class="LineNr"> 838 </span> <span id="L839" class="LineNr"> 839 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L840" class="LineNr"> 840 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if rm32 < r32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L840" class="LineNr"> 840 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if rm32 < r32 (cmp)"</span><span class="Delimiter">);</span> <span id="L841" class="LineNr"> 841 </span> <span id="L842" class="LineNr"> 842 </span><span class="Delimiter">:(code)</span> <span id="L843" class="LineNr"> 843 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L843'>test_compare_r32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L844" class="LineNr"> 844 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L845" class="LineNr"> 845 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L844" class="LineNr"> 844 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L845" class="LineNr"> 845 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L846" class="LineNr"> 846 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L847" class="LineNr"> 847 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L848" class="LineNr"> 848 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L849" class="LineNr"> 849 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> -<span id="L850" class="LineNr"> 850 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L850" class="LineNr"> 850 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L851" class="LineNr"> 851 </span> <span class="Delimiter">);</span> -<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L853" class="LineNr"> 853 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L854" class="LineNr"> 854 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L855" class="LineNr"> 855 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> @@ -919,35 +919,35 @@ if ('onhashchange' in window) { <span id="L858" class="LineNr"> 858 </span> <span id="L859" class="LineNr"> 859 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L860" class="LineNr"> 860 </span><span class="Normal">case</span> <span class="Constant">0x39</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if r/m32 < r32</span> -<span id="L861" class="LineNr"> 861 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L861" class="LineNr"> 861 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L862" class="LineNr"> 862 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L863" class="LineNr"> 863 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L863" class="LineNr"> 863 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L864" class="LineNr"> 864 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L865" class="LineNr"> 865 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = *signed_arg1 - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L865" class="LineNr"> 865 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = *signed_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L866" class="LineNr"> 866 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L867" class="LineNr"> 867 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L868" class="LineNr"> 868 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> signed_full_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L869" class="LineNr"> 869 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_difference != signed_full_difference<span class="Delimiter">);</span> +<span id="L867" class="LineNr"> 867 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L868" class="LineNr"> 868 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> signed_full_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L869" class="LineNr"> 869 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_difference != signed_full_difference<span class="Delimiter">);</span> <span id="L870" class="LineNr"> 870 </span> <span class="Comment">// set CF</span> <span id="L871" class="LineNr"> 871 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L872" class="LineNr"> 872 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L873" class="LineNr"> 873 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> unsigned_full_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L874" class="LineNr"> 874 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != unsigned_full_difference<span class="Delimiter">);</span> -<span id="L875" class="LineNr"> 875 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L872" class="LineNr"> 872 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L873" class="LineNr"> 873 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> unsigned_full_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L874" class="LineNr"> 874 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != unsigned_full_difference<span class="Delimiter">);</span> +<span id="L875" class="LineNr"> 875 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L876" class="LineNr"> 876 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L877" class="LineNr"> 877 </span><span class="Delimiter">}</span> <span id="L878" class="LineNr"> 878 </span> <span id="L879" class="LineNr"> 879 </span><span class="Delimiter">:(code)</span> <span id="L880" class="LineNr"> 880 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L880'>test_compare_r32_with_r32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L881" class="LineNr"> 881 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> -<span id="L882" class="LineNr"> 882 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L881" class="LineNr"> 881 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L882" class="LineNr"> 882 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L883" class="LineNr"> 883 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L884" class="LineNr"> 884 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L885" class="LineNr"> 885 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L886" class="LineNr"> 886 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> -<span id="L887" class="LineNr"> 887 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L887" class="LineNr"> 887 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L888" class="LineNr"> 888 </span> <span class="Delimiter">);</span> -<span id="L889" class="LineNr"> 889 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L889" class="LineNr"> 889 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L890" class="LineNr"> 890 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L891" class="LineNr"> 891 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L892" class="LineNr"> 892 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> @@ -955,15 +955,15 @@ if ('onhashchange' in window) { <span id="L894" class="LineNr"> 894 </span><span class="Delimiter">}</span> <span id="L895" class="LineNr"> 895 </span> <span id="L896" class="LineNr"> 896 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L896'>test_compare_r32_with_r32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L897" class="LineNr"> 897 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> -<span id="L898" class="LineNr"> 898 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L897" class="LineNr"> 897 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L898" class="LineNr"> 898 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L899" class="LineNr"> 899 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L900" class="LineNr"> 900 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L901" class="LineNr"> 901 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L902" class="LineNr"> 902 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> -<span id="L903" class="LineNr"> 903 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L903" class="LineNr"> 903 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L904" class="LineNr"> 904 </span> <span class="Delimiter">);</span> -<span id="L905" class="LineNr"> 905 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L905" class="LineNr"> 905 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L906" class="LineNr"> 906 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L907" class="LineNr"> 907 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L908" class="LineNr"> 908 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> @@ -971,15 +971,15 @@ if ('onhashchange' in window) { <span id="L910" class="LineNr"> 910 </span><span class="Delimiter">}</span> <span id="L911" class="LineNr"> 911 </span> <span id="L912" class="LineNr"> 912 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L912'>test_compare_r32_with_r32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L913" class="LineNr"> 913 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> -<span id="L914" class="LineNr"> 914 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L913" class="LineNr"> 913 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L914" class="LineNr"> 914 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> <span id="L915" class="LineNr"> 915 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L916" class="LineNr"> 916 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L917" class="LineNr"> 917 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L918" class="LineNr"> 918 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> -<span id="L919" class="LineNr"> 919 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L919" class="LineNr"> 919 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L920" class="LineNr"> 920 </span> <span class="Delimiter">);</span> -<span id="L921" class="LineNr"> 921 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L921" class="LineNr"> 921 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L922" class="LineNr"> 922 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L923" class="LineNr"> 923 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L924" class="LineNr"> 924 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> @@ -987,15 +987,15 @@ if ('onhashchange' in window) { <span id="L926" class="LineNr"> 926 </span><span class="Delimiter">}</span> <span id="L927" class="LineNr"> 927 </span> <span id="L928" class="LineNr"> 928 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L928'>test_compare_r32_with_r32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L929" class="LineNr"> 929 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> -<span id="L930" class="LineNr"> 930 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L929" class="LineNr"> 929 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L930" class="LineNr"> 930 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> <span id="L931" class="LineNr"> 931 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L932" class="LineNr"> 932 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L933" class="LineNr"> 933 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L934" class="LineNr"> 934 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> -<span id="L935" class="LineNr"> 935 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L935" class="LineNr"> 935 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">);</span> -<span id="L937" class="LineNr"> 937 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L937" class="LineNr"> 937 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L938" class="LineNr"> 938 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L939" class="LineNr"> 939 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L940" class="LineNr"> 940 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> @@ -1003,15 +1003,15 @@ if ('onhashchange' in window) { <span id="L942" class="LineNr"> 942 </span><span class="Delimiter">}</span> <span id="L943" class="LineNr"> 943 </span> <span id="L944" class="LineNr"> 944 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L944'>test_compare_r32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L945" class="LineNr"> 945 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L946" class="LineNr"> 946 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L945" class="LineNr"> 945 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L946" class="LineNr"> 946 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L947" class="LineNr"> 947 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L948" class="LineNr"> 948 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L949" class="LineNr"> 949 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L950" class="LineNr"> 950 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX and EBX</span> -<span id="L951" class="LineNr"> 951 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L951" class="LineNr"> 951 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L952" class="LineNr"> 952 </span> <span class="Delimiter">);</span> -<span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L954" class="LineNr"> 954 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L955" class="LineNr"> 955 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> @@ -1021,18 +1021,18 @@ if ('onhashchange' in window) { <span id="L960" class="LineNr"> 960 </span><span class="SalientComment">//:: copy (mov)</span> <span id="L961" class="LineNr"> 961 </span> <span id="L962" class="LineNr"> 962 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L963" class="LineNr"> 963 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">"copy r32 to rm32 (mov)"</span><span class="Delimiter">);</span> +<span id="L963" class="LineNr"> 963 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">"copy r32 to rm32 (mov)"</span><span class="Delimiter">);</span> <span id="L964" class="LineNr"> 964 </span> <span id="L965" class="LineNr"> 965 </span><span class="Delimiter">:(code)</span> <span id="L966" class="LineNr"> 966 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L966'>test_copy_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L967" class="LineNr"> 967 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L967" class="LineNr"> 967 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> <span id="L968" class="LineNr"> 968 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L969" class="LineNr"> 969 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L970" class="LineNr"> 970 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L971" class="LineNr"> 971 </span> <span class="Constant">" 89 d8 \n"</span> <span class="Comment">// copy EBX to EAX</span> <span id="L972" class="LineNr"> 972 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">);</span> -<span id="L974" class="LineNr"> 974 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L974" class="LineNr"> 974 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L975" class="LineNr"> 975 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L976" class="LineNr"> 976 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L977" class="LineNr"> 977 </span> <span class="Constant">"run: storing 0x000000af\n"</span> @@ -1041,31 +1041,31 @@ if ('onhashchange' in window) { <span id="L980" class="LineNr"> 980 </span> <span id="L981" class="LineNr"> 981 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L982" class="LineNr"> 982 </span><span class="Normal">case</span> <span class="Constant">0x89</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r32 to r/m32</span> -<span id="L983" class="LineNr"> 983 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L983" class="LineNr"> 983 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L984" class="LineNr"> 984 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L985" class="LineNr"> 985 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L985" class="LineNr"> 985 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L986" class="LineNr"> 986 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L987" class="LineNr"> 987 </span> *dest = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rsrc]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L988" class="LineNr"> 988 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *dest << end<span class="Delimiter">();</span> +<span id="L987" class="LineNr"> 987 </span> *dest = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rsrc]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> +<span id="L988" class="LineNr"> 988 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *dest << end<span class="Delimiter">();</span> <span id="L989" class="LineNr"> 989 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L990" class="LineNr"> 990 </span><span class="Delimiter">}</span> <span id="L991" class="LineNr"> 991 </span> <span id="L992" class="LineNr"> 992 </span><span class="SalientComment">//:: xchg</span> <span id="L993" class="LineNr"> 993 </span> <span id="L994" class="LineNr"> 994 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L995" class="LineNr"> 995 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"swap the <a href='003trace.cc.html#L117'>contents</a> of r32 and rm32 (xchg)"</span><span class="Delimiter">);</span> +<span id="L995" class="LineNr"> 995 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"swap the <a href='003trace.cc.html#L117'>contents</a> of r32 and rm32 (xchg)"</span><span class="Delimiter">);</span> <span id="L996" class="LineNr"> 996 </span> <span id="L997" class="LineNr"> 997 </span><span class="Delimiter">:(code)</span> <span id="L998" class="LineNr"> 998 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L998'>test_xchg_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L999" class="LineNr"> 999 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> -<span id="L1000" class="LineNr">1000 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2e</span><span class="Delimiter">;</span> +<span id="L999" class="LineNr"> 999 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L1000" class="LineNr">1000 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2e</span><span class="Delimiter">;</span> <span id="L1001" class="LineNr">1001 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1002" class="LineNr">1002 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1003" class="LineNr">1003 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1004" class="LineNr">1004 </span> <span class="Constant">" 87 d8 \n"</span> <span class="Comment">// exchange EBX with EAX</span> <span id="L1005" class="LineNr">1005 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L1006" class="LineNr">1006 </span> <span class="Delimiter">);</span> -<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1008" class="LineNr">1008 </span> <span class="Constant">"run: exchange <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L1009" class="LineNr">1009 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1010" class="LineNr">1010 </span> <span class="Constant">"run: storing 0x000000af in r/m32\n"</span> @@ -1075,39 +1075,39 @@ if ('onhashchange' in window) { <span id="L1014" class="LineNr">1014 </span> <span id="L1015" class="LineNr">1015 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1016" class="LineNr">1016 </span><span class="Normal">case</span> <span class="Constant">0x87</span>: <span class="Delimiter">{</span> <span class="Comment">// exchange r32 with r/m32</span> -<span id="L1017" class="LineNr">1017 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L1017" class="LineNr">1017 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1018" class="LineNr">1018 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1019" class="LineNr">1019 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"exchange "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1019" class="LineNr">1019 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"exchange "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1020" class="LineNr">1020 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1021" class="LineNr">1021 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> tmp = *arg1<span class="Delimiter">;</span> -<span id="L1022" class="LineNr">1022 </span> *arg1 = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L1023" class="LineNr">1023 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i = tmp<span class="Delimiter">;</span> -<span id="L1024" class="LineNr">1024 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << <span class="Constant">" in r/m32"</span> << end<span class="Delimiter">();</span> -<span id="L1025" class="LineNr">1025 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i << <span class="Constant">" in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1022" class="LineNr">1022 </span> *arg1 = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L1023" class="LineNr">1023 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i = tmp<span class="Delimiter">;</span> +<span id="L1024" class="LineNr">1024 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << <span class="Constant">" in r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1025" class="LineNr">1025 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i << <span class="Constant">" in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1026" class="LineNr">1026 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1027" class="LineNr">1027 </span><span class="Delimiter">}</span> <span id="L1028" class="LineNr">1028 </span> <span id="L1029" class="LineNr">1029 </span><span class="SalientComment">//:: increment</span> <span id="L1030" class="LineNr">1030 </span> <span id="L1031" class="LineNr">1031 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1032" class="LineNr">1032 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L10'>EAX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1033" class="LineNr">1033 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L11'>ECX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1034" class="LineNr">1034 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L12'>EDX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1035" class="LineNr">1035 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L13'>EBX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1036" class="LineNr">1036 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L14'>ESP</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1037" class="LineNr">1037 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L15'>EBP</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1038" class="LineNr">1038 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L16'>ESI</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1039" class="LineNr">1039 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L17'>EDI</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1032" class="LineNr">1032 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L10'>EAX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1033" class="LineNr">1033 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L11'>ECX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1034" class="LineNr">1034 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L12'>EDX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1035" class="LineNr">1035 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L13'>EBX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1036" class="LineNr">1036 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L14'>ESP</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1037" class="LineNr">1037 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L15'>EBP</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1038" class="LineNr">1038 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L16'>ESI</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1039" class="LineNr">1039 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L17'>EDI</a> (inc)"</span><span class="Delimiter">);</span> <span id="L1040" class="LineNr">1040 </span> <span id="L1041" class="LineNr">1041 </span><span class="Delimiter">:(code)</span> <span id="L1042" class="LineNr">1042 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1042'>test_increment_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1043" class="LineNr">1043 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L1043" class="LineNr">1043 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L1044" class="LineNr">1044 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1045" class="LineNr">1045 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1046" class="LineNr">1046 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1047" class="LineNr">1047 </span> <span class="Constant">" 41 \n"</span> <span class="Comment">// increment ECX</span> <span id="L1048" class="LineNr">1048 </span> <span class="Delimiter">);</span> -<span id="L1049" class="LineNr">1049 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1049" class="LineNr">1049 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: increment ECX\n"</span> <span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: storing value 0x00000020\n"</span> <span id="L1052" class="LineNr">1052 </span> <span class="Delimiter">);</span> @@ -1123,25 +1123,25 @@ if ('onhashchange' in window) { <span id="L1062" class="LineNr">1062 </span><span class="Normal">case</span> <span class="Constant">0x46</span>: <span id="L1063" class="LineNr">1063 </span><span class="Normal">case</span> <span class="Constant">0x47</span>: <span class="Delimiter">{</span> <span class="Comment">// increment r32</span> <span id="L1064" class="LineNr">1064 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1066" class="LineNr">1066 </span> ++<span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L1067" class="LineNr">1067 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1066" class="LineNr">1066 </span> ++<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L1067" class="LineNr">1067 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L1068" class="LineNr">1068 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1069" class="LineNr">1069 </span><span class="Delimiter">}</span> <span id="L1070" class="LineNr">1070 </span> <span id="L1071" class="LineNr">1071 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1072" class="LineNr">1072 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">"increment/decrement/jump/push/call rm32 based on subop (inc/dec/jmp/push/call)"</span><span class="Delimiter">);</span> +<span id="L1072" class="LineNr">1072 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">"increment/decrement/jump/push/call rm32 based on subop (inc/dec/jmp/push/call)"</span><span class="Delimiter">);</span> <span id="L1073" class="LineNr">1073 </span> <span id="L1074" class="LineNr">1074 </span><span class="Delimiter">:(code)</span> <span id="L1075" class="LineNr">1075 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1075'>test_increment_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1076" class="LineNr">1076 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> +<span id="L1076" class="LineNr">1076 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L1077" class="LineNr">1077 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1078" class="LineNr">1078 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1079" class="LineNr">1079 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1080" class="LineNr">1080 </span> <span class="Constant">" ff c0 \n"</span> <span class="Comment">// increment EAX</span> <span id="L1081" class="LineNr">1081 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop inc) 000 (EAX)</span> <span id="L1082" class="LineNr">1082 </span> <span class="Delimiter">);</span> -<span id="L1083" class="LineNr">1083 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1083" class="LineNr">1083 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: increment r/m32\n"</span> <span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1086" class="LineNr">1086 </span> <span class="Constant">"run: storing value 0x00000021\n"</span> @@ -1150,18 +1150,18 @@ if ('onhashchange' in window) { <span id="L1089" class="LineNr">1089 </span> <span id="L1090" class="LineNr">1090 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1091" class="LineNr">1091 </span><span class="Normal">case</span> <span class="Constant">0xff</span>: <span class="Delimiter">{</span> -<span id="L1092" class="LineNr">1092 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L1092" class="LineNr">1092 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1093" class="LineNr">1093 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L1094" class="LineNr">1094 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L1095" class="LineNr">1095 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> <span class="Comment">// increment r/m32</span> -<span id="L1096" class="LineNr">1096 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1096" class="LineNr">1096 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1097" class="LineNr">1097 </span> <span class="Normal">int32_t</span>* <a href='001help.cc.html#L15'>arg</a> = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1098" class="LineNr">1098 </span> ++*arg<span class="Delimiter">;</span> -<span id="L1099" class="LineNr">1099 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> +<span id="L1099" class="LineNr">1099 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> <span id="L1100" class="LineNr">1100 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1101" class="LineNr">1101 </span> <span class="Delimiter">}</span> <span id="L1102" class="LineNr">1102 </span> <span class="Normal">default</span>: -<span id="L1103" class="LineNr">1103 </span> cerr << <span class="Constant">"unrecognized subop for ff: "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L1103" class="LineNr">1103 </span> cerr << <span class="Constant">"unrecognized subop for ff: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L1104" class="LineNr">1104 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L1105" class="LineNr">1105 </span> <span class="Comment">// End Op ff Subops</span> <span id="L1106" class="LineNr">1106 </span> <span class="Delimiter">}</span> @@ -1171,24 +1171,24 @@ if ('onhashchange' in window) { <span id="L1110" class="LineNr">1110 </span><span class="SalientComment">//:: decrement</span> <span id="L1111" class="LineNr">1111 </span> <span id="L1112" class="LineNr">1112 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1113" class="LineNr">1113 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L10'>EAX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1114" class="LineNr">1114 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L11'>ECX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1115" class="LineNr">1115 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L12'>EDX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1116" class="LineNr">1116 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L13'>EBX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1117" class="LineNr">1117 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L14'>ESP</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1118" class="LineNr">1118 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L15'>EBP</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1119" class="LineNr">1119 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L16'>ESI</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1120" class="LineNr">1120 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L17'>EDI</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1113" class="LineNr">1113 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L10'>EAX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1114" class="LineNr">1114 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L11'>ECX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1115" class="LineNr">1115 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L12'>EDX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1116" class="LineNr">1116 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L13'>EBX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1117" class="LineNr">1117 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L14'>ESP</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1118" class="LineNr">1118 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L15'>EBP</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1119" class="LineNr">1119 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L16'>ESI</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1120" class="LineNr">1120 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L17'>EDI</a> (dec)"</span><span class="Delimiter">);</span> <span id="L1121" class="LineNr">1121 </span> <span id="L1122" class="LineNr">1122 </span><span class="Delimiter">:(code)</span> <span id="L1123" class="LineNr">1123 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1123'>test_decrement_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1124" class="LineNr">1124 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L1124" class="LineNr">1124 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L1125" class="LineNr">1125 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1126" class="LineNr">1126 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1127" class="LineNr">1127 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1128" class="LineNr">1128 </span> <span class="Constant">" 49 \n"</span> <span class="Comment">// decrement ECX</span> <span id="L1129" class="LineNr">1129 </span> <span class="Delimiter">);</span> -<span id="L1130" class="LineNr">1130 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1130" class="LineNr">1130 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1131" class="LineNr">1131 </span> <span class="Constant">"run: decrement ECX\n"</span> <span id="L1132" class="LineNr">1132 </span> <span class="Constant">"run: storing value 0x0000001e\n"</span> <span id="L1133" class="LineNr">1133 </span> <span class="Delimiter">);</span> @@ -1204,22 +1204,22 @@ if ('onhashchange' in window) { <span id="L1143" class="LineNr">1143 </span><span class="Normal">case</span> <span class="Constant">0x4e</span>: <span id="L1144" class="LineNr">1144 </span><span class="Normal">case</span> <span class="Constant">0x4f</span>: <span class="Delimiter">{</span> <span class="Comment">// decrement r32</span> <span id="L1145" class="LineNr">1145 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1146" class="LineNr">1146 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1147" class="LineNr">1147 </span> --<span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L1148" class="LineNr">1148 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1146" class="LineNr">1146 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1147" class="LineNr">1147 </span> --<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L1148" class="LineNr">1148 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L1149" class="LineNr">1149 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1150" class="LineNr">1150 </span><span class="Delimiter">}</span> <span id="L1151" class="LineNr">1151 </span> <span id="L1152" class="LineNr">1152 </span><span class="Delimiter">:(code)</span> <span id="L1153" class="LineNr">1153 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1153'>test_decrement_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1154" class="LineNr">1154 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> +<span id="L1154" class="LineNr">1154 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L1155" class="LineNr">1155 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1156" class="LineNr">1156 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1157" class="LineNr">1157 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1158" class="LineNr">1158 </span> <span class="Constant">" ff c8 \n"</span> <span class="Comment">// decrement EAX</span> <span id="L1159" class="LineNr">1159 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 001 (subop inc) 000 (EAX)</span> <span id="L1160" class="LineNr">1160 </span> <span class="Delimiter">);</span> -<span id="L1161" class="LineNr">1161 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1161" class="LineNr">1161 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1162" class="LineNr">1162 </span> <span class="Constant">"run: decrement r/m32\n"</span> <span id="L1163" class="LineNr">1163 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1164" class="LineNr">1164 </span> <span class="Constant">"run: storing value 0x0000001f\n"</span> @@ -1228,36 +1228,36 @@ if ('onhashchange' in window) { <span id="L1167" class="LineNr">1167 </span> <span id="L1168" class="LineNr">1168 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L1169" class="LineNr">1169 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> <span class="Comment">// decrement r/m32</span> -<span id="L1170" class="LineNr">1170 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1170" class="LineNr">1170 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1171" class="LineNr">1171 </span> <span class="Normal">int32_t</span>* <a href='001help.cc.html#L15'>arg</a> = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1172" class="LineNr">1172 </span> --*arg<span class="Delimiter">;</span> -<span id="L1173" class="LineNr">1173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> +<span id="L1173" class="LineNr">1173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> <span id="L1174" class="LineNr">1174 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1175" class="LineNr">1175 </span><span class="Delimiter">}</span> <span id="L1176" class="LineNr">1176 </span> <span id="L1177" class="LineNr">1177 </span><span class="SalientComment">//:: push</span> <span id="L1178" class="LineNr">1178 </span> <span id="L1179" class="LineNr">1179 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1180" class="LineNr">1180 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L10'>EAX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1181" class="LineNr">1181 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L11'>ECX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1182" class="LineNr">1182 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L12'>EDX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1183" class="LineNr">1183 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L13'>EBX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1184" class="LineNr">1184 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L14'>ESP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1185" class="LineNr">1185 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L15'>EBP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1186" class="LineNr">1186 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L16'>ESI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1187" class="LineNr">1187 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L17'>EDI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1180" class="LineNr">1180 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L10'>EAX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1181" class="LineNr">1181 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L11'>ECX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1182" class="LineNr">1182 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L12'>EDX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1183" class="LineNr">1183 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L13'>EBX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1184" class="LineNr">1184 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L14'>ESP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1185" class="LineNr">1185 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L15'>EBP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1186" class="LineNr">1186 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L16'>ESI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1187" class="LineNr">1187 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L17'>EDI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> <span id="L1188" class="LineNr">1188 </span> <span id="L1189" class="LineNr">1189 </span><span class="Delimiter">:(code)</span> <span id="L1190" class="LineNr">1190 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1190'>test_push_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1191" class="LineNr">1191 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1192" class="LineNr">1192 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> -<span id="L1193" class="LineNr">1193 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0000000a</span><span class="Delimiter">;</span> +<span id="L1191" class="LineNr">1191 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1192" class="LineNr">1192 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> +<span id="L1193" class="LineNr">1193 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0000000a</span><span class="Delimiter">;</span> <span id="L1194" class="LineNr">1194 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1195" class="LineNr">1195 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1196" class="LineNr">1196 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1197" class="LineNr">1197 </span> <span class="Constant">" 53 \n"</span> <span class="Comment">// push EBX to stack</span> <span id="L1198" class="LineNr">1198 </span> <span class="Delimiter">);</span> -<span id="L1199" class="LineNr">1199 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1199" class="LineNr">1199 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1200" class="LineNr">1200 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> EBX\n"</span> <span id="L1201" class="LineNr">1201 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000004\n"</span> <span id="L1202" class="LineNr">1202 </span> <span class="Constant">"run: pushing value 0x0000000a\n"</span> @@ -1274,29 +1274,29 @@ if ('onhashchange' in window) { <span id="L1213" class="LineNr">1213 </span><span class="Normal">case</span> <span class="Constant">0x56</span>: <span id="L1214" class="LineNr">1214 </span><span class="Normal">case</span> <span class="Constant">0x57</span>: <span class="Delimiter">{</span> <span class="Comment">// push r32 to stack</span> <span id="L1215" class="LineNr">1215 </span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1216" class="LineNr">1216 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1216" class="LineNr">1216 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1217" class="LineNr">1217 </span><span class="CommentedCode">//? cerr << "push: " << NUM(reg) << ": " << Reg[reg].u << " => " << Reg[ESP].u << '\n';</span> -<span id="L1218" class="LineNr">1218 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L1218" class="LineNr">1218 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L1219" class="LineNr">1219 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1220" class="LineNr">1220 </span><span class="Delimiter">}</span> <span id="L1221" class="LineNr">1221 </span> <span id="L1222" class="LineNr">1222 </span><span class="SalientComment">//:: pop</span> <span id="L1223" class="LineNr">1223 </span> <span id="L1224" class="LineNr">1224 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1225" class="LineNr">1225 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L10'>EAX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1226" class="LineNr">1226 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L11'>ECX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1227" class="LineNr">1227 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L12'>EDX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1228" class="LineNr">1228 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L13'>EBX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1229" class="LineNr">1229 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L14'>ESP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1230" class="LineNr">1230 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L15'>EBP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1231" class="LineNr">1231 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L16'>ESI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1232" class="LineNr">1232 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L17'>EDI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1225" class="LineNr">1225 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L10'>EAX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1226" class="LineNr">1226 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L11'>ECX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1227" class="LineNr">1227 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L12'>EDX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1228" class="LineNr">1228 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L13'>EBX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1229" class="LineNr">1229 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L14'>ESP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1230" class="LineNr">1230 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L15'>EBP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1231" class="LineNr">1231 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L16'>ESI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1232" class="LineNr">1232 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L17'>EDI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> <span id="L1233" class="LineNr">1233 </span> <span id="L1234" class="LineNr">1234 </span><span class="Delimiter">:(code)</span> <span id="L1235" class="LineNr">1235 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1235'>test_pop_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1236" class="LineNr">1236 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1237" class="LineNr">1237 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> -<span id="L1238" class="LineNr">1238 </span> <a href='010vm.cc.html#L243'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000008</span><span class="Delimiter">,</span> <span class="Constant">0x0000000a</span><span class="Delimiter">);</span> <span class="Comment">// ..before this write</span> +<span id="L1236" class="LineNr">1236 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1237" class="LineNr">1237 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> +<span id="L1238" class="LineNr">1238 </span> <a href='010vm.cc.html#L256'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000008</span><span class="Delimiter">,</span> <span class="Constant">0x0000000a</span><span class="Delimiter">);</span> <span class="Comment">// ..before this write</span> <span id="L1239" class="LineNr">1239 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1240" class="LineNr">1240 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L1241" class="LineNr">1241 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -1304,7 +1304,7 @@ if ('onhashchange' in window) { <span id="L1243" class="LineNr">1243 </span> <span class="Constant">"== data 0x2000\n"</span> <span class="Comment">// data segment</span> <span id="L1244" class="LineNr">1244 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> <span id="L1245" class="LineNr">1245 </span> <span class="Delimiter">);</span> -<span id="L1246" class="LineNr">1246 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1246" class="LineNr">1246 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1247" class="LineNr">1247 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into EBX\n"</span> <span id="L1248" class="LineNr">1248 </span> <span class="Constant">"run: popping value 0x0000000a\n"</span> <span id="L1249" class="LineNr">1249 </span> <span class="Constant">"run: incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd00000c\n"</span> @@ -1321,19 +1321,19 @@ if ('onhashchange' in window) { <span id="L1260" class="LineNr">1260 </span><span class="Normal">case</span> <span class="Constant">0x5e</span>: <span id="L1261" class="LineNr">1261 </span><span class="Normal">case</span> <span class="Constant">0x5f</span>: <span class="Delimiter">{</span> <span class="Comment">// pop stack into r32</span> <span id="L1262" class="LineNr">1262 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1263" class="LineNr">1263 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1263" class="LineNr">1263 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1264" class="LineNr">1264 </span><span class="CommentedCode">//? cerr << "pop from " << Reg[ESP].u << '\n';</span> -<span id="L1265" class="LineNr">1265 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> +<span id="L1265" class="LineNr">1265 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> <span id="L1266" class="LineNr">1266 </span><span class="CommentedCode">//? cerr << "=> " << NUM(reg) << ": " << Reg[reg].u << '\n';</span> <span id="L1267" class="LineNr">1267 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1268" class="LineNr">1268 </span><span class="Delimiter">}</span> <span id="L1269" class="LineNr">1269 </span><span class="Delimiter">:(code)</span> <span id="L1270" class="LineNr">1270 </span><span class="Normal">uint32_t</span> <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1271" class="LineNr">1271 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> result = <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L1272" class="LineNr">1272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"popping value 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << result << end<span class="Delimiter">();</span> -<span id="L1273" class="LineNr">1273 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u += <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L1274" class="LineNr">1274 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L1275" class="LineNr">1275 </span> assert<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">);</span> +<span id="L1271" class="LineNr">1271 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> result = <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L1272" class="LineNr">1272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"popping value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << result << end<span class="Delimiter">();</span> +<span id="L1273" class="LineNr">1273 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u += <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L1274" class="LineNr">1274 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1275" class="LineNr">1275 </span> assert<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">);</span> <span id="L1276" class="LineNr">1276 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L1277" class="LineNr">1277 </span><span class="Delimiter">}</span> </pre> diff --git a/html/014indirect_addressing.cc.html b/html/014indirect_addressing.cc.html index 0273d099..fdc384b5 100644 --- a/html/014indirect_addressing.cc.html +++ b/html/014indirect_addressing.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } .SalientComment { color: #0000af; } @@ -61,17 +61,17 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: we'll now start providing data in a separate segment</span> <span id="L3" class="LineNr"> 3 </span> <span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L4'>test_add_r32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L6" class="LineNr"> 6 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L6" class="LineNr"> 6 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L7" class="LineNr"> 7 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L9" class="LineNr"> 9 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L10" class="LineNr"> 10 </span> <span class="Constant">" 01 18 \n"</span> <span class="Comment">// add EBX to *EAX</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L12" class="LineNr"> 12 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L13" class="LineNr"> 13 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">);</span> -<span id="L15" class="LineNr"> 15 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L15" class="LineNr"> 15 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L16" class="LineNr"> 16 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: storing 0x00000011\n"</span> @@ -82,8 +82,8 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span><span class="Normal">case</span> <span class="Constant">0</span>: <span class="Comment">// indirect addressing</span> <span id="L24" class="LineNr"> 24 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="Normal">default</span>: <span class="Comment">// address in register</span> -<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> addr = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L28" class="LineNr"> 28 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span> <span class="Comment">// End Mod 0 Special-cases(addr)</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> @@ -92,21 +92,21 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span><span class="Comment">//:</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">"add rm32 to r32 (add)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">"add rm32 to r32 (add)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L39'>test_add_mem_at_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span id="L42" class="LineNr"> 42 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L43" class="LineNr"> 43 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L44" class="LineNr"> 44 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L48" class="LineNr"> 48 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">);</span> -<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L53" class="LineNr"> 53 </span> <span class="Constant">"run: storing 0x00000011\n"</span> @@ -115,39 +115,39 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> <span id="L57" class="LineNr"> 57 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L58" class="LineNr"> 58 </span><span class="Normal">case</span> <span class="Constant">0x03</span>: <span class="Delimiter">{</span> <span class="Comment">// add r/m32 to r32</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L60" class="LineNr"> 60 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L62" class="LineNr"> 62 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Normal">int32_t</span> signed_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i + *signed_arg2<span class="Delimiter">;</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i + *signed_arg2<span class="Delimiter">;</span> <span id="L64" class="LineNr"> 64 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L65" class="LineNr"> 65 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + *signed_arg2<span class="Delimiter">;</span> -<span id="L67" class="LineNr"> 67 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L65" class="LineNr"> 65 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + *signed_arg2<span class="Delimiter">;</span> +<span id="L67" class="LineNr"> 67 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// set CF</span> <span id="L69" class="LineNr"> 69 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> -<span id="L72" class="LineNr"> 72 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L73" class="LineNr"> 73 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L75" class="LineNr"> 75 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> +<span id="L72" class="LineNr"> 72 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L73" class="LineNr"> 73 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L74" class="LineNr"> 74 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L75" class="LineNr"> 75 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L76" class="LineNr"> 76 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> <span id="L78" class="LineNr"> 78 </span> <span id="L79" class="LineNr"> 79 </span><span class="Delimiter">:(code)</span> <span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L80'>test_add_mem_at_r32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L81" class="LineNr"> 81 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L82" class="LineNr"> 82 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L83" class="LineNr"> 83 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L84" class="LineNr"> 84 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L85" class="LineNr"> 85 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L88" class="LineNr"> 88 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L89" class="LineNr"> 89 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">);</span> -<span id="L91" class="LineNr"> 91 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L91" class="LineNr"> 91 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> <span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> @@ -157,17 +157,17 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">}</span> <span id="L99" class="LineNr"> 99 </span> <span id="L100" class="LineNr"> 100 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L100'>test_add_mem_at_r32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr"> 101 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L102" class="LineNr"> 102 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L101" class="LineNr"> 101 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L102" class="LineNr"> 102 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> <span id="L103" class="LineNr"> 103 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L104" class="LineNr"> 104 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L105" class="LineNr"> 105 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L106" class="LineNr"> 106 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> -<span id="L107" class="LineNr"> 107 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L107" class="LineNr"> 107 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L108" class="LineNr"> 108 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L109" class="LineNr"> 109 </span> <span class="Constant">"01 00 00 00\n"</span> <span id="L110" class="LineNr"> 110 </span> <span class="Delimiter">);</span> -<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L112" class="LineNr"> 112 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> <span id="L113" class="LineNr"> 113 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L114" class="LineNr"> 114 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> @@ -177,17 +177,17 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr"> 118 </span><span class="Delimiter">}</span> <span id="L119" class="LineNr"> 119 </span> <span id="L120" class="LineNr"> 120 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L120'>test_add_mem_at_r32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L121" class="LineNr"> 121 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L122" class="LineNr"> 122 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L121" class="LineNr"> 121 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L122" class="LineNr"> 122 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L123" class="LineNr"> 123 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L124" class="LineNr"> 124 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L125" class="LineNr"> 125 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L126" class="LineNr"> 126 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> -<span id="L127" class="LineNr"> 127 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L127" class="LineNr"> 127 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L128" class="LineNr"> 128 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L129" class="LineNr"> 129 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> <span id="L130" class="LineNr"> 130 </span> <span class="Delimiter">);</span> -<span id="L131" class="LineNr"> 131 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L131" class="LineNr"> 131 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L132" class="LineNr"> 132 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> <span id="L133" class="LineNr"> 133 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L134" class="LineNr"> 134 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> @@ -200,17 +200,17 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr"> 141 </span> <span id="L142" class="LineNr"> 142 </span><span class="Delimiter">:(code)</span> <span id="L143" class="LineNr"> 143 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L143'>test_subtract_r32_from_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr"> 144 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L145" class="LineNr"> 145 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L144" class="LineNr"> 144 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L145" class="LineNr"> 145 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L146" class="LineNr"> 146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L147" class="LineNr"> 147 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L148" class="LineNr"> 148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L149" class="LineNr"> 149 </span> <span class="Constant">" 29 18 \n"</span> <span class="Comment">// subtract EBX from *EAX</span> -<span id="L150" class="LineNr"> 150 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L150" class="LineNr"> 150 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L151" class="LineNr"> 151 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L152" class="LineNr"> 152 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> <span id="L153" class="LineNr"> 153 </span> <span class="Delimiter">);</span> -<span id="L154" class="LineNr"> 154 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L154" class="LineNr"> 154 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L155" class="LineNr"> 155 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> <span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: storing 0x00000009\n"</span> @@ -220,21 +220,21 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr"> 161 </span><span class="Comment">//:</span> <span id="L162" class="LineNr"> 162 </span> <span id="L163" class="LineNr"> 163 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L164" class="LineNr"> 164 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">"subtract rm32 from r32 (sub)"</span><span class="Delimiter">);</span> +<span id="L164" class="LineNr"> 164 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">"subtract rm32 from r32 (sub)"</span><span class="Delimiter">);</span> <span id="L165" class="LineNr"> 165 </span> <span id="L166" class="LineNr"> 166 </span><span class="Delimiter">:(code)</span> <span id="L167" class="LineNr"> 167 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L167'>test_subtract_mem_at_r32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr"> 168 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L169" class="LineNr"> 169 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L168" class="LineNr"> 168 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr"> 169 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L170" class="LineNr"> 170 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L171" class="LineNr"> 171 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L172" class="LineNr"> 172 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L173" class="LineNr"> 173 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> -<span id="L174" class="LineNr"> 174 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L174" class="LineNr"> 174 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L175" class="LineNr"> 175 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L176" class="LineNr"> 176 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L177" class="LineNr"> 177 </span> <span class="Delimiter">);</span> -<span id="L178" class="LineNr"> 178 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L178" class="LineNr"> 178 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L179" class="LineNr"> 179 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> <span id="L180" class="LineNr"> 180 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L181" class="LineNr"> 181 </span> <span class="Constant">"run: storing 0x00000009\n"</span> @@ -243,39 +243,39 @@ if ('onhashchange' in window) { <span id="L184" class="LineNr"> 184 </span> <span id="L185" class="LineNr"> 185 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L186" class="LineNr"> 186 </span><span class="Normal">case</span> <span class="Constant">0x2b</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract r/m32 from r32</span> -<span id="L187" class="LineNr"> 187 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L187" class="LineNr"> 187 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L188" class="LineNr"> 188 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L189" class="LineNr"> 189 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract r/m32 from "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L189" class="LineNr"> 189 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract r/m32 from "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L190" class="LineNr"> 190 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L191" class="LineNr"> 191 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> +<span id="L191" class="LineNr"> 191 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> <span id="L192" class="LineNr"> 192 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L193" class="LineNr"> 193 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L194" class="LineNr"> 194 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> -<span id="L195" class="LineNr"> 195 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L193" class="LineNr"> 193 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L194" class="LineNr"> 194 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> +<span id="L195" class="LineNr"> 195 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L196" class="LineNr"> 196 </span> <span class="Comment">// set CF</span> <span id="L197" class="LineNr"> 197 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L198" class="LineNr"> 198 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L199" class="LineNr"> 199 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L200" class="LineNr"> 200 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L201" class="LineNr"> 201 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L202" class="LineNr"> 202 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L203" class="LineNr"> 203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L198" class="LineNr"> 198 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L200" class="LineNr"> 200 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L201" class="LineNr"> 201 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L202" class="LineNr"> 202 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L203" class="LineNr"> 203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L204" class="LineNr"> 204 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L205" class="LineNr"> 205 </span><span class="Delimiter">}</span> <span id="L206" class="LineNr"> 206 </span> <span id="L207" class="LineNr"> 207 </span><span class="Delimiter">:(code)</span> <span id="L208" class="LineNr"> 208 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L208'>test_subtract_mem_at_r32_from_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L209" class="LineNr"> 209 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L210" class="LineNr"> 210 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L209" class="LineNr"> 209 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L210" class="LineNr"> 210 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L211" class="LineNr"> 211 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L212" class="LineNr"> 212 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L213" class="LineNr"> 213 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L214" class="LineNr"> 214 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> -<span id="L215" class="LineNr"> 215 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L215" class="LineNr"> 215 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L217" class="LineNr"> 217 </span> <span class="Constant">"ff ff ff 7f\n"</span> <span class="Comment">// largest positive signed integer</span> <span id="L218" class="LineNr"> 218 </span> <span class="Delimiter">);</span> -<span id="L219" class="LineNr"> 219 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L219" class="LineNr"> 219 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> <span id="L221" class="LineNr"> 221 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: effective address contains 0x7fffffff\n"</span> @@ -285,17 +285,17 @@ if ('onhashchange' in window) { <span id="L226" class="LineNr"> 226 </span><span class="Delimiter">}</span> <span id="L227" class="LineNr"> 227 </span> <span id="L228" class="LineNr"> 228 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L228'>test_subtract_mem_at_r32_from_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr"> 229 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L230" class="LineNr"> 230 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L229" class="LineNr"> 229 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L230" class="LineNr"> 230 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L231" class="LineNr"> 231 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L232" class="LineNr"> 232 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L233" class="LineNr"> 233 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L234" class="LineNr"> 234 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> -<span id="L235" class="LineNr"> 235 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L235" class="LineNr"> 235 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L236" class="LineNr"> 236 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L237" class="LineNr"> 237 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> <span id="L238" class="LineNr"> 238 </span> <span class="Delimiter">);</span> -<span id="L239" class="LineNr"> 239 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L239" class="LineNr"> 239 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> <span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L242" class="LineNr"> 242 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> @@ -305,17 +305,17 @@ if ('onhashchange' in window) { <span id="L246" class="LineNr"> 246 </span><span class="Delimiter">}</span> <span id="L247" class="LineNr"> 247 </span> <span id="L248" class="LineNr"> 248 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L248'>test_subtract_mem_at_r32_from_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr"> 249 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L250" class="LineNr"> 250 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L249" class="LineNr"> 249 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L250" class="LineNr"> 250 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L251" class="LineNr"> 251 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L252" class="LineNr"> 252 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L253" class="LineNr"> 253 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L254" class="LineNr"> 254 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> -<span id="L255" class="LineNr"> 255 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L255" class="LineNr"> 255 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L257" class="LineNr"> 257 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> <span id="L258" class="LineNr"> 258 </span> <span class="Delimiter">);</span> -<span id="L259" class="LineNr"> 259 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L259" class="LineNr"> 259 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L260" class="LineNr"> 260 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> <span id="L261" class="LineNr"> 261 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> @@ -327,17 +327,17 @@ if ('onhashchange' in window) { <span id="L268" class="LineNr"> 268 </span><span class="SalientComment">//:: and</span> <span id="L269" class="LineNr"> 269 </span><span class="Delimiter">:(code)</span> <span id="L270" class="LineNr"> 270 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L270'>test_and_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L271" class="LineNr"> 271 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L272" class="LineNr"> 272 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L271" class="LineNr"> 271 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L272" class="LineNr"> 272 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L273" class="LineNr"> 273 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L274" class="LineNr"> 274 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L275" class="LineNr"> 275 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L276" class="LineNr"> 276 </span> <span class="Constant">" 21 18 \n"</span> <span class="Comment">// and EBX with *EAX</span> -<span id="L277" class="LineNr"> 277 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L277" class="LineNr"> 277 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L278" class="LineNr"> 278 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L279" class="LineNr"> 279 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L280" class="LineNr"> 280 </span> <span class="Delimiter">);</span> -<span id="L281" class="LineNr"> 281 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L281" class="LineNr"> 281 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L284" class="LineNr"> 284 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> @@ -347,21 +347,21 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr"> 288 </span><span class="Comment">//:</span> <span id="L289" class="LineNr"> 289 </span> <span id="L290" class="LineNr"> 290 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L291" class="LineNr"> 291 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> +<span id="L291" class="LineNr"> 291 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> <span id="L292" class="LineNr"> 292 </span> <span id="L293" class="LineNr"> 293 </span><span class="Delimiter">:(code)</span> <span id="L294" class="LineNr"> 294 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L294'>test_and_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L295" class="LineNr"> 295 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L296" class="LineNr"> 296 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L295" class="LineNr"> 295 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L296" class="LineNr"> 296 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L297" class="LineNr"> 297 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L298" class="LineNr"> 298 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L299" class="LineNr"> 299 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L300" class="LineNr"> 300 </span> <span class="Constant">" 23 18 \n"</span> <span class="Comment">// and *EAX with EBX</span> -<span id="L301" class="LineNr"> 301 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L301" class="LineNr"> 301 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L302" class="LineNr"> 302 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L303" class="LineNr"> 303 </span> <span class="Constant">"ff 00 00 00\n"</span> <span class="Comment">// 0x000000ff</span> <span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">);</span> -<span id="L305" class="LineNr"> 305 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L305" class="LineNr"> 305 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L306" class="LineNr"> 306 </span> <span class="Constant">"run: and r/m32 with EBX\n"</span> <span id="L307" class="LineNr"> 307 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L308" class="LineNr"> 308 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> @@ -370,19 +370,19 @@ if ('onhashchange' in window) { <span id="L311" class="LineNr"> 311 </span> <span id="L312" class="LineNr"> 312 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L313" class="LineNr"> 313 </span><span class="Normal">case</span> <span class="Constant">0x23</span>: <span class="Delimiter">{</span> <span class="Comment">// and r/m32 with r32</span> -<span id="L314" class="LineNr"> 314 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L314" class="LineNr"> 314 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L315" class="LineNr"> 315 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L316" class="LineNr"> 316 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L316" class="LineNr"> 316 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L317" class="LineNr"> 317 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L318" class="LineNr"> 318 </span> <span class="Comment">// difference</span> <span id="L319" class="LineNr"> 319 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L320" class="LineNr"> 320 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i &= *signed_arg2<span class="Delimiter">;</span> -<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L322" class="LineNr"> 322 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L323" class="LineNr"> 323 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L324" class="LineNr"> 324 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L326" class="LineNr"> 326 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L320" class="LineNr"> 320 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i &= *signed_arg2<span class="Delimiter">;</span> +<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L322" class="LineNr"> 322 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L323" class="LineNr"> 323 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L324" class="LineNr"> 324 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L326" class="LineNr"> 326 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L327" class="LineNr"> 327 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L328" class="LineNr"> 328 </span><span class="Delimiter">}</span> <span id="L329" class="LineNr"> 329 </span> @@ -390,17 +390,17 @@ if ('onhashchange' in window) { <span id="L331" class="LineNr"> 331 </span> <span id="L332" class="LineNr"> 332 </span><span class="Delimiter">:(code)</span> <span id="L333" class="LineNr"> 333 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L333'>test_or_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L334" class="LineNr"> 334 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L335" class="LineNr"> 335 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L334" class="LineNr"> 334 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L335" class="LineNr"> 335 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L336" class="LineNr"> 336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L337" class="LineNr"> 337 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L338" class="LineNr"> 338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L339" class="LineNr"> 339 </span> <span class="Constant">" 09 18 #\n"</span> <span class="Comment">// EBX with *EAX</span> -<span id="L340" class="LineNr"> 340 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L340" class="LineNr"> 340 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L341" class="LineNr"> 341 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L342" class="LineNr"> 342 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L343" class="LineNr"> 343 </span> <span class="Delimiter">);</span> -<span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> @@ -410,21 +410,21 @@ if ('onhashchange' in window) { <span id="L351" class="LineNr"> 351 </span><span class="Comment">//:</span> <span id="L352" class="LineNr"> 352 </span> <span id="L353" class="LineNr"> 353 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L354" class="LineNr"> 354 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> +<span id="L354" class="LineNr"> 354 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> <span id="L355" class="LineNr"> 355 </span> <span id="L356" class="LineNr"> 356 </span><span class="Delimiter">:(code)</span> <span id="L357" class="LineNr"> 357 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L357'>test_or_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L358" class="LineNr"> 358 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L359" class="LineNr"> 359 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L358" class="LineNr"> 358 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L359" class="LineNr"> 359 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L360" class="LineNr"> 360 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L361" class="LineNr"> 361 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L362" class="LineNr"> 362 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L363" class="LineNr"> 363 </span> <span class="Constant">" 0b 18 \n"</span> <span class="Comment">// or *EAX with EBX</span> -<span id="L364" class="LineNr"> 364 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L364" class="LineNr"> 364 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L365" class="LineNr"> 365 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L366" class="LineNr"> 366 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L367" class="LineNr"> 367 </span> <span class="Delimiter">);</span> -<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L369" class="LineNr"> 369 </span> <span class="Constant">"run: or r/m32 with EBX\n"</span> <span id="L370" class="LineNr"> 370 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L371" class="LineNr"> 371 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> @@ -433,19 +433,19 @@ if ('onhashchange' in window) { <span id="L374" class="LineNr"> 374 </span> <span id="L375" class="LineNr"> 375 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L376" class="LineNr"> 376 </span><span class="Normal">case</span> <span class="Constant">0x0b</span>: <span class="Delimiter">{</span> <span class="Comment">// or r/m32 with r32</span> -<span id="L377" class="LineNr"> 377 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L377" class="LineNr"> 377 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L378" class="LineNr"> 378 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L379" class="LineNr"> 379 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L379" class="LineNr"> 379 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L380" class="LineNr"> 380 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L381" class="LineNr"> 381 </span> <span class="Comment">// difference</span> <span id="L382" class="LineNr"> 382 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L383" class="LineNr"> 383 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> -<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L385" class="LineNr"> 385 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L386" class="LineNr"> 386 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L387" class="LineNr"> 387 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L388" class="LineNr"> 388 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L389" class="LineNr"> 389 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L383" class="LineNr"> 383 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> +<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L385" class="LineNr"> 385 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L386" class="LineNr"> 386 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L387" class="LineNr"> 387 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L388" class="LineNr"> 388 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L389" class="LineNr"> 389 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L390" class="LineNr"> 390 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L391" class="LineNr"> 391 </span><span class="Delimiter">}</span> <span id="L392" class="LineNr"> 392 </span> @@ -453,8 +453,8 @@ if ('onhashchange' in window) { <span id="L394" class="LineNr"> 394 </span> <span id="L395" class="LineNr"> 395 </span><span class="Delimiter">:(code)</span> <span id="L396" class="LineNr"> 396 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L396'>test_xor_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L397" class="LineNr"> 397 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L398" class="LineNr"> 398 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L397" class="LineNr"> 397 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L398" class="LineNr"> 398 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L399" class="LineNr"> 399 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L400" class="LineNr"> 400 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L401" class="LineNr"> 401 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -462,7 +462,7 @@ if ('onhashchange' in window) { <span id="L403" class="LineNr"> 403 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L404" class="LineNr"> 404 </span> <span class="Constant">"0d 0c bb aa\n"</span> <span class="Comment">// 0xaabb0c0d</span> <span id="L405" class="LineNr"> 405 </span> <span class="Delimiter">);</span> -<span id="L406" class="LineNr"> 406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L406" class="LineNr"> 406 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L408" class="LineNr"> 408 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L409" class="LineNr"> 409 </span> <span class="Constant">"run: storing 0x0a0bccdd\n"</span> @@ -472,21 +472,21 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span><span class="Comment">//:</span> <span id="L414" class="LineNr"> 414 </span> <span id="L415" class="LineNr"> 415 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L416" class="LineNr"> 416 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> +<span id="L416" class="LineNr"> 416 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> <span id="L417" class="LineNr"> 417 </span> <span id="L418" class="LineNr"> 418 </span><span class="Delimiter">:(code)</span> <span id="L419" class="LineNr"> 419 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L419'>test_xor_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L420" class="LineNr"> 420 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L421" class="LineNr"> 421 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L420" class="LineNr"> 420 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L421" class="LineNr"> 421 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L422" class="LineNr"> 422 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L423" class="LineNr"> 423 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L424" class="LineNr"> 424 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L425" class="LineNr"> 425 </span> <span class="Constant">" 33 18 \n"</span> <span class="Comment">// xor *EAX with EBX</span> -<span id="L426" class="LineNr"> 426 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L426" class="LineNr"> 426 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L427" class="LineNr"> 427 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L428" class="LineNr"> 428 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L429" class="LineNr"> 429 </span> <span class="Delimiter">);</span> -<span id="L430" class="LineNr"> 430 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L430" class="LineNr"> 430 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L431" class="LineNr"> 431 </span> <span class="Constant">"run: xor r/m32 with EBX\n"</span> <span id="L432" class="LineNr"> 432 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L433" class="LineNr"> 433 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> @@ -495,19 +495,19 @@ if ('onhashchange' in window) { <span id="L436" class="LineNr"> 436 </span> <span id="L437" class="LineNr"> 437 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L438" class="LineNr"> 438 </span><span class="Normal">case</span> <span class="Constant">0x33</span>: <span class="Delimiter">{</span> <span class="Comment">// xor r/m32 with r32</span> -<span id="L439" class="LineNr"> 439 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L439" class="LineNr"> 439 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L440" class="LineNr"> 440 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L442" class="LineNr"> 442 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L443" class="LineNr"> 443 </span> <span class="Comment">// difference</span> <span id="L444" class="LineNr"> 444 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L445" class="LineNr"> 445 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> -<span id="L446" class="LineNr"> 446 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L447" class="LineNr"> 447 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L448" class="LineNr"> 448 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L449" class="LineNr"> 449 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L451" class="LineNr"> 451 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L445" class="LineNr"> 445 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> +<span id="L446" class="LineNr"> 446 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L447" class="LineNr"> 447 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L448" class="LineNr"> 448 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L449" class="LineNr"> 449 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L451" class="LineNr"> 451 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L452" class="LineNr"> 452 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L453" class="LineNr"> 453 </span><span class="Delimiter">}</span> <span id="L454" class="LineNr"> 454 </span> @@ -515,7 +515,7 @@ if ('onhashchange' in window) { <span id="L456" class="LineNr"> 456 </span> <span id="L457" class="LineNr"> 457 </span><span class="Delimiter">:(code)</span> <span id="L458" class="LineNr"> 458 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L458'>test_not_of_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr"> 459 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L459" class="LineNr"> 459 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L460" class="LineNr"> 460 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L461" class="LineNr"> 461 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L462" class="LineNr"> 462 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -524,7 +524,7 @@ if ('onhashchange' in window) { <span id="L465" class="LineNr"> 465 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L466" class="LineNr"> 466 </span> <span class="Constant">"ff 00 0f 0f\n"</span> <span class="Comment">// 0x0f0f00ff</span> <span id="L467" class="LineNr"> 467 </span> <span class="Delimiter">);</span> -<span id="L468" class="LineNr"> 468 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L468" class="LineNr"> 468 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L469" class="LineNr"> 469 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L470" class="LineNr"> 470 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L471" class="LineNr"> 471 </span> <span class="Constant">"run: subop: not\n"</span> @@ -536,17 +536,17 @@ if ('onhashchange' in window) { <span id="L477" class="LineNr"> 477 </span> <span id="L478" class="LineNr"> 478 </span><span class="Delimiter">:(code)</span> <span id="L479" class="LineNr"> 479 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L479'>test_compare_mem_at_r32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L480" class="LineNr"> 480 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L481" class="LineNr"> 481 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L480" class="LineNr"> 480 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L481" class="LineNr"> 481 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L482" class="LineNr"> 482 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L483" class="LineNr"> 483 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L484" class="LineNr"> 484 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L485" class="LineNr"> 485 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX with EBX</span> -<span id="L486" class="LineNr"> 486 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L486" class="LineNr"> 486 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L487" class="LineNr"> 487 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L488" class="LineNr"> 488 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">);</span> -<span id="L490" class="LineNr"> 490 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L490" class="LineNr"> 490 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L491" class="LineNr"> 491 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L492" class="LineNr"> 492 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L493" class="LineNr"> 493 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> @@ -555,17 +555,17 @@ if ('onhashchange' in window) { <span id="L496" class="LineNr"> 496 </span> <span id="L497" class="LineNr"> 497 </span><span class="Delimiter">:(code)</span> <span id="L498" class="LineNr"> 498 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L498'>test_compare_mem_at_r32_with_r32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L499" class="LineNr"> 499 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L500" class="LineNr"> 500 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L499" class="LineNr"> 499 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L500" class="LineNr"> 500 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L501" class="LineNr"> 501 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L502" class="LineNr"> 502 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L503" class="LineNr"> 503 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L504" class="LineNr"> 504 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX with EBX</span> -<span id="L505" class="LineNr"> 505 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L505" class="LineNr"> 505 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L506" class="LineNr"> 506 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L507" class="LineNr"> 507 </span> <span class="Constant">"07 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L508" class="LineNr"> 508 </span> <span class="Delimiter">);</span> -<span id="L509" class="LineNr"> 509 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L509" class="LineNr"> 509 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L510" class="LineNr"> 510 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> @@ -574,17 +574,17 @@ if ('onhashchange' in window) { <span id="L515" class="LineNr"> 515 </span> <span id="L516" class="LineNr"> 516 </span><span class="Delimiter">:(code)</span> <span id="L517" class="LineNr"> 517 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L517'>test_compare_mem_at_r32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L518" class="LineNr"> 518 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L519" class="LineNr"> 519 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L518" class="LineNr"> 518 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L519" class="LineNr"> 519 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L520" class="LineNr"> 520 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L521" class="LineNr"> 521 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L522" class="LineNr"> 522 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L523" class="LineNr"> 523 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX and EBX</span> -<span id="L524" class="LineNr"> 524 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L524" class="LineNr"> 524 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L525" class="LineNr"> 525 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L526" class="LineNr"> 526 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L527" class="LineNr"> 527 </span> <span class="Delimiter">);</span> -<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> <span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> @@ -594,21 +594,21 @@ if ('onhashchange' in window) { <span id="L535" class="LineNr"> 535 </span><span class="Comment">//:</span> <span id="L536" class="LineNr"> 536 </span> <span id="L537" class="LineNr"> 537 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L538" class="LineNr"> 538 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if r32 < rm32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L538" class="LineNr"> 538 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if r32 < rm32 (cmp)"</span><span class="Delimiter">);</span> <span id="L539" class="LineNr"> 539 </span> <span id="L540" class="LineNr"> 540 </span><span class="Delimiter">:(code)</span> -<span id="L541" class="LineNr"> 541 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L541'>test_compare_r32_with_mem_at_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L542" class="LineNr"> 542 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L543" class="LineNr"> 543 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L541" class="LineNr"> 541 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L541'>test_compare_r32_with_mem_at_rm32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L542" class="LineNr"> 542 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L543" class="LineNr"> 543 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L544" class="LineNr"> 544 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L545" class="LineNr"> 545 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L546" class="LineNr"> 546 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L547" class="LineNr"> 547 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L548" class="LineNr"> 548 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L548" class="LineNr"> 548 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L549" class="LineNr"> 549 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L550" class="LineNr"> 550 </span> <span class="Constant">"07 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c07</span> <span id="L551" class="LineNr"> 551 </span> <span class="Delimiter">);</span> -<span id="L552" class="LineNr"> 552 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L552" class="LineNr"> 552 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L553" class="LineNr"> 553 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> @@ -617,36 +617,36 @@ if ('onhashchange' in window) { <span id="L558" class="LineNr"> 558 </span> <span id="L559" class="LineNr"> 559 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L560" class="LineNr"> 560 </span><span class="Normal">case</span> <span class="Constant">0x3b</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if r32 < r/m32</span> -<span id="L561" class="LineNr"> 561 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L561" class="LineNr"> 561 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L562" class="LineNr"> 562 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg1<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg1<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L564" class="LineNr"> 564 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L565" class="LineNr"> 565 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> +<span id="L565" class="LineNr"> 565 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> <span id="L566" class="LineNr"> 566 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L567" class="LineNr"> 567 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L568" class="LineNr"> 568 </span> <span class="Normal">int64_t</span> full_signed_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> -<span id="L569" class="LineNr"> 569 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_difference != full_signed_difference<span class="Delimiter">);</span> +<span id="L567" class="LineNr"> 567 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L568" class="LineNr"> 568 </span> <span class="Normal">int64_t</span> full_signed_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> +<span id="L569" class="LineNr"> 569 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_difference != full_signed_difference<span class="Delimiter">);</span> <span id="L570" class="LineNr"> 570 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L571" class="LineNr"> 571 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L572" class="LineNr"> 572 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L573" class="LineNr"> 573 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> -<span id="L574" class="LineNr"> 574 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L571" class="LineNr"> 571 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L572" class="LineNr"> 572 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L573" class="LineNr"> 573 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> +<span id="L574" class="LineNr"> 574 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L575" class="LineNr"> 575 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L576" class="LineNr"> 576 </span><span class="Delimiter">}</span> <span id="L577" class="LineNr"> 577 </span> <span id="L578" class="LineNr"> 578 </span><span class="Delimiter">:(code)</span> -<span id="L579" class="LineNr"> 579 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L579'>test_compare_r32_with_mem_at_r32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L580" class="LineNr"> 580 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L581" class="LineNr"> 581 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L579" class="LineNr"> 579 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L579'>test_compare_r32_with_mem_at_rm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L580" class="LineNr"> 580 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L581" class="LineNr"> 581 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L582" class="LineNr"> 582 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L583" class="LineNr"> 583 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L584" class="LineNr"> 584 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L585" class="LineNr"> 585 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L586" class="LineNr"> 586 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L586" class="LineNr"> 586 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L587" class="LineNr"> 587 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L588" class="LineNr"> 588 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">);</span> -<span id="L590" class="LineNr"> 590 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L590" class="LineNr"> 590 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L591" class="LineNr"> 591 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L592" class="LineNr"> 592 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L593" class="LineNr"> 593 </span> <span class="Constant">"run: effective address contains 0x0a0b0c0d\n"</span> @@ -654,18 +654,18 @@ if ('onhashchange' in window) { <span id="L595" class="LineNr"> 595 </span> <span class="Delimiter">);</span> <span id="L596" class="LineNr"> 596 </span><span class="Delimiter">}</span> <span id="L597" class="LineNr"> 597 </span> -<span id="L598" class="LineNr"> 598 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L598'>test_compare_r32_with_mem_at_r32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L599" class="LineNr"> 599 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L600" class="LineNr"> 600 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L598" class="LineNr"> 598 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L598'>test_compare_r32_with_mem_at_rm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L599" class="LineNr"> 599 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L600" class="LineNr"> 600 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L601" class="LineNr"> 601 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L602" class="LineNr"> 602 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L603" class="LineNr"> 603 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L604" class="LineNr"> 604 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L605" class="LineNr"> 605 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L605" class="LineNr"> 605 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L606" class="LineNr"> 606 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L607" class="LineNr"> 607 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> <span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">);</span> -<span id="L609" class="LineNr"> 609 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L609" class="LineNr"> 609 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L610" class="LineNr"> 610 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L611" class="LineNr"> 611 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L612" class="LineNr"> 612 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> @@ -673,18 +673,18 @@ if ('onhashchange' in window) { <span id="L614" class="LineNr"> 614 </span> <span class="Delimiter">);</span> <span id="L615" class="LineNr"> 615 </span><span class="Delimiter">}</span> <span id="L616" class="LineNr"> 616 </span> -<span id="L617" class="LineNr"> 617 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L617'>test_compare_r32_with_mem_at_r32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L618" class="LineNr"> 618 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L619" class="LineNr"> 619 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L617" class="LineNr"> 617 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L617'>test_compare_r32_with_mem_at_rm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L618" class="LineNr"> 618 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L619" class="LineNr"> 619 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> <span id="L620" class="LineNr"> 620 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L621" class="LineNr"> 621 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L622" class="LineNr"> 622 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L623" class="LineNr"> 623 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L624" class="LineNr"> 624 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L624" class="LineNr"> 624 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L625" class="LineNr"> 625 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L626" class="LineNr"> 626 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> <span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">);</span> -<span id="L628" class="LineNr"> 628 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L628" class="LineNr"> 628 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L629" class="LineNr"> 629 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L630" class="LineNr"> 630 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L631" class="LineNr"> 631 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> @@ -692,18 +692,18 @@ if ('onhashchange' in window) { <span id="L633" class="LineNr"> 633 </span> <span class="Delimiter">);</span> <span id="L634" class="LineNr"> 634 </span><span class="Delimiter">}</span> <span id="L635" class="LineNr"> 635 </span> -<span id="L636" class="LineNr"> 636 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L636'>test_compare_r32_with_mem_at_r32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L637" class="LineNr"> 637 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L638" class="LineNr"> 638 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L636" class="LineNr"> 636 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L636'>test_compare_r32_with_mem_at_rm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L637" class="LineNr"> 637 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L638" class="LineNr"> 638 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> <span id="L639" class="LineNr"> 639 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L640" class="LineNr"> 640 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L641" class="LineNr"> 641 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L642" class="LineNr"> 642 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L643" class="LineNr"> 643 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L643" class="LineNr"> 643 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L644" class="LineNr"> 644 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L645" class="LineNr"> 645 </span> <span class="Constant">"ff ff ff ff\n"</span> <span class="Comment">// -1</span> <span id="L646" class="LineNr"> 646 </span> <span class="Delimiter">);</span> -<span id="L647" class="LineNr"> 647 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L647" class="LineNr"> 647 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L648" class="LineNr"> 648 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L649" class="LineNr"> 649 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L650" class="LineNr"> 650 </span> <span class="Constant">"run: effective address contains 0xffffffff\n"</span> @@ -711,18 +711,18 @@ if ('onhashchange' in window) { <span id="L652" class="LineNr"> 652 </span> <span class="Delimiter">);</span> <span id="L653" class="LineNr"> 653 </span><span class="Delimiter">}</span> <span id="L654" class="LineNr"> 654 </span> -<span id="L655" class="LineNr"> 655 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L655'>test_compare_r32_with_mem_at_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L656" class="LineNr"> 656 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L657" class="LineNr"> 657 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L655" class="LineNr"> 655 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L655'>test_compare_r32_with_mem_at_rm32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L656" class="LineNr"> 656 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L657" class="LineNr"> 657 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L658" class="LineNr"> 658 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L659" class="LineNr"> 659 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L660" class="LineNr"> 660 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L661" class="LineNr"> 661 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> -<span id="L662" class="LineNr"> 662 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L662" class="LineNr"> 662 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> <span id="L663" class="LineNr"> 663 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L664" class="LineNr"> 664 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">);</span> -<span id="L666" class="LineNr"> 666 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L666" class="LineNr"> 666 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L667" class="LineNr"> 667 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> <span id="L668" class="LineNr"> 668 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L669" class="LineNr"> 669 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> @@ -732,15 +732,15 @@ if ('onhashchange' in window) { <span id="L673" class="LineNr"> 673 </span><span class="SalientComment">//:: copy (mov)</span> <span id="L674" class="LineNr"> 674 </span> <span id="L675" class="LineNr"> 675 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L675'>test_copy_r32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L676" class="LineNr"> 676 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> -<span id="L677" class="LineNr"> 677 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L676" class="LineNr"> 676 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L677" class="LineNr"> 677 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> <span id="L678" class="LineNr"> 678 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L679" class="LineNr"> 679 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L680" class="LineNr"> 680 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L681" class="LineNr"> 681 </span> <span class="Constant">" 89 18 \n"</span> <span class="Comment">// copy EBX to *EAX</span> -<span id="L682" class="LineNr"> 682 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EAX) 000 (dest EAX)</span> +<span id="L682" class="LineNr"> 682 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L683" class="LineNr"> 683 </span> <span class="Delimiter">);</span> -<span id="L684" class="LineNr"> 684 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L684" class="LineNr"> 684 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L685" class="LineNr"> 685 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L686" class="LineNr"> 686 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L687" class="LineNr"> 687 </span> <span class="Constant">"run: storing 0x000000af\n"</span> @@ -750,11 +750,11 @@ if ('onhashchange' in window) { <span id="L691" class="LineNr"> 691 </span><span class="Comment">//:</span> <span id="L692" class="LineNr"> 692 </span> <span id="L693" class="LineNr"> 693 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L694" class="LineNr"> 694 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">"copy rm32 to r32 (mov)"</span><span class="Delimiter">);</span> +<span id="L694" class="LineNr"> 694 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">"copy rm32 to r32 (mov)"</span><span class="Delimiter">);</span> <span id="L695" class="LineNr"> 695 </span> <span id="L696" class="LineNr"> 696 </span><span class="Delimiter">:(code)</span> <span id="L697" class="LineNr"> 697 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L697'>test_copy_mem_at_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L698" class="LineNr"> 698 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L698" class="LineNr"> 698 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L699" class="LineNr"> 699 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L700" class="LineNr"> 700 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L701" class="LineNr"> 701 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -762,7 +762,7 @@ if ('onhashchange' in window) { <span id="L703" class="LineNr"> 703 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L704" class="LineNr"> 704 </span> <span class="Constant">"af 00 00 00\n"</span> <span class="Comment">// 0x000000af</span> <span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">);</span> -<span id="L706" class="LineNr"> 706 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L706" class="LineNr"> 706 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: copy r/m32 to EBX\n"</span> <span id="L708" class="LineNr"> 708 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L709" class="LineNr"> 709 </span> <span class="Constant">"run: storing 0x000000af\n"</span> @@ -771,12 +771,12 @@ if ('onhashchange' in window) { <span id="L712" class="LineNr"> 712 </span> <span id="L713" class="LineNr"> 713 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L714" class="LineNr"> 714 </span><span class="Normal">case</span> <span class="Constant">0x8b</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r32 to r/m32</span> -<span id="L715" class="LineNr"> 715 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L715" class="LineNr"> 715 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L716" class="LineNr"> 716 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L717" class="LineNr"> 717 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L717" class="LineNr"> 717 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L718" class="LineNr"> 718 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* src = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L719" class="LineNr"> 719 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = *src<span class="Delimiter">;</span> -<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *src << end<span class="Delimiter">();</span> +<span id="L719" class="LineNr"> 719 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = *src<span class="Delimiter">;</span> +<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *src << end<span class="Delimiter">();</span> <span id="L721" class="LineNr"> 721 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L722" class="LineNr"> 722 </span><span class="Delimiter">}</span> <span id="L723" class="LineNr"> 723 </span> @@ -784,7 +784,7 @@ if ('onhashchange' in window) { <span id="L725" class="LineNr"> 725 </span> <span id="L726" class="LineNr"> 726 </span><span class="Delimiter">:(code)</span> <span id="L727" class="LineNr"> 727 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L727'>test_jump_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L728" class="LineNr"> 728 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L728" class="LineNr"> 728 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L729" class="LineNr"> 729 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L730" class="LineNr"> 730 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L731" class="LineNr"> 731 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -795,22 +795,22 @@ if ('onhashchange' in window) { <span id="L736" class="LineNr"> 736 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L737" class="LineNr"> 737 </span> <span class="Constant">"08 00 00 00\n"</span> <span class="Comment">// 0x00000008</span> <span id="L738" class="LineNr"> 738 </span> <span class="Delimiter">);</span> -<span id="L739" class="LineNr"> 739 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L739" class="LineNr"> 739 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L740" class="LineNr"> 740 </span> <span class="Constant">"run: 0x00000001 opcode: ff\n"</span> <span id="L741" class="LineNr"> 741 </span> <span class="Constant">"run: jump to r/m32\n"</span> <span id="L742" class="LineNr"> 742 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L743" class="LineNr"> 743 </span> <span class="Constant">"run: jumping to 0x00000008\n"</span> <span id="L744" class="LineNr"> 744 </span> <span class="Constant">"run: 0x00000008 opcode: b8\n"</span> <span id="L745" class="LineNr"> 745 </span> <span class="Delimiter">);</span> -<span id="L746" class="LineNr"> 746 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: b8"</span><span class="Delimiter">);</span> +<span id="L746" class="LineNr"> 746 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: b8"</span><span class="Delimiter">);</span> <span id="L747" class="LineNr"> 747 </span><span class="Delimiter">}</span> <span id="L748" class="LineNr"> 748 </span> <span id="L749" class="LineNr"> 749 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L750" class="LineNr"> 750 </span><span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// jump to r/m32</span> -<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L752" class="LineNr"> 752 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L753" class="LineNr"> 753 </span> <a href='010vm.cc.html#L26'>EIP</a> = *arg2<span class="Delimiter">;</span> -<span id="L754" class="LineNr"> 754 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L754" class="LineNr"> 754 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L755" class="LineNr"> 755 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L756" class="LineNr"> 756 </span><span class="Delimiter">}</span> <span id="L757" class="LineNr"> 757 </span> @@ -818,9 +818,9 @@ if ('onhashchange' in window) { <span id="L759" class="LineNr"> 759 </span> <span id="L760" class="LineNr"> 760 </span><span class="Delimiter">:(code)</span> <span id="L761" class="LineNr"> 761 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L761'>test_push_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L762" class="LineNr"> 762 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L763" class="LineNr"> 763 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L764" class="LineNr"> 764 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> +<span id="L762" class="LineNr"> 762 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L763" class="LineNr"> 763 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L764" class="LineNr"> 764 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> <span id="L765" class="LineNr"> 765 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L766" class="LineNr"> 766 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L767" class="LineNr"> 767 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -828,7 +828,7 @@ if ('onhashchange' in window) { <span id="L769" class="LineNr"> 769 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L770" class="LineNr"> 770 </span> <span class="Constant">"af 00 00 00\n"</span> <span class="Comment">// 0x000000af</span> <span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">);</span> -<span id="L772" class="LineNr"> 772 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L772" class="LineNr"> 772 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L773" class="LineNr"> 773 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> r/m32\n"</span> <span id="L774" class="LineNr"> 774 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L775" class="LineNr"> 775 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000010\n"</span> @@ -838,7 +838,7 @@ if ('onhashchange' in window) { <span id="L779" class="LineNr"> 779 </span> <span id="L780" class="LineNr"> 780 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L781" class="LineNr"> 781 </span><span class="Normal">case</span> <span class="Constant">6</span>: <span class="Delimiter">{</span> <span class="Comment">// push r/m32 to stack</span> -<span id="L782" class="LineNr"> 782 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L782" class="LineNr"> 782 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push r/m32"</span> << end<span class="Delimiter">();</span> <span id="L783" class="LineNr"> 783 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* val = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L784" class="LineNr"> 784 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>*val<span class="Delimiter">);</span> <span id="L785" class="LineNr"> 785 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -847,21 +847,21 @@ if ('onhashchange' in window) { <span id="L788" class="LineNr"> 788 </span><span class="SalientComment">//:: pop</span> <span id="L789" class="LineNr"> 789 </span> <span id="L790" class="LineNr"> 790 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L791" class="LineNr"> 791 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to rm32 (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L791" class="LineNr"> 791 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to rm32 (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> <span id="L792" class="LineNr"> 792 </span> <span id="L793" class="LineNr"> 793 </span><span class="Delimiter">:(code)</span> <span id="L794" class="LineNr"> 794 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L794'>test_pop_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L795" class="LineNr"> 795 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> -<span id="L796" class="LineNr"> 796 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L797" class="LineNr"> 797 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000000</span><span class="Delimiter">;</span> -<span id="L798" class="LineNr"> 798 </span> <a href='010vm.cc.html#L243'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">,</span> <span class="Constant">0x00000030</span><span class="Delimiter">);</span> +<span id="L795" class="LineNr"> 795 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L796" class="LineNr"> 796 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L797" class="LineNr"> 797 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000000</span><span class="Delimiter">;</span> +<span id="L798" class="LineNr"> 798 </span> <a href='010vm.cc.html#L256'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">,</span> <span class="Constant">0x00000030</span><span class="Delimiter">);</span> <span id="L799" class="LineNr"> 799 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L800" class="LineNr"> 800 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L801" class="LineNr"> 801 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L802" class="LineNr"> 802 </span> <span class="Constant">" 8f 00 \n"</span> <span class="Comment">// pop stack into *EAX</span> <span id="L803" class="LineNr"> 803 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (pop r/m32) 000 (dest EAX)</span> <span id="L804" class="LineNr"> 804 </span> <span class="Delimiter">);</span> -<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L806" class="LineNr"> 806 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into r/m32\n"</span> <span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: popping value 0x00000030\n"</span> @@ -871,11 +871,11 @@ if ('onhashchange' in window) { <span id="L812" class="LineNr"> 812 </span> <span id="L813" class="LineNr"> 813 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L814" class="LineNr"> 814 </span><span class="Normal">case</span> <span class="Constant">0x8f</span>: <span class="Delimiter">{</span> <span class="Comment">// pop stack into r/m32</span> -<span id="L815" class="LineNr"> 815 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L815" class="LineNr"> 815 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L816" class="LineNr"> 816 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L817" class="LineNr"> 817 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L818" class="LineNr"> 818 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> -<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into r/m32"</span> << end<span class="Delimiter">();</span> <span id="L820" class="LineNr"> 820 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L821" class="LineNr"> 821 </span> *dest = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L822" class="LineNr"> 822 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -888,7 +888,7 @@ if ('onhashchange' in window) { <span id="L829" class="LineNr"> 829 </span> <span id="L830" class="LineNr"> 830 </span><span class="Delimiter">:(code)</span> <span id="L831" class="LineNr"> 831 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L831'>test_add_r32_to_mem_at_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L832" class="LineNr"> 832 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L832" class="LineNr"> 832 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> <span id="L833" class="LineNr"> 833 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L835" class="LineNr"> 835 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -897,7 +897,7 @@ if ('onhashchange' in window) { <span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L839" class="LineNr"> 839 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">);</span> -<span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)\n"</span> <span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: storing 0x00000011\n"</span> @@ -907,15 +907,15 @@ if ('onhashchange' in window) { <span id="L848" class="LineNr"> 848 </span><span class="Delimiter">:(before "End Mod 0 Special-cases(addr)")</span> <span id="L849" class="LineNr"> 849 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Comment">// exception: mod 0b00 rm 0b101 => incoming disp32</span> <span id="L850" class="LineNr"> 850 </span> addr = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L851" class="LineNr"> 851 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L851" class="LineNr"> 851 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> <span id="L852" class="LineNr"> 852 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L853" class="LineNr"> 853 </span> <span id="L854" class="LineNr"> 854 </span><span class="Comment">//:</span> <span id="L855" class="LineNr"> 855 </span> <span id="L856" class="LineNr"> 856 </span><span class="Delimiter">:(code)</span> <span id="L857" class="LineNr"> 857 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L857'>test_add_r32_to_mem_at_r32_plus_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L858" class="LineNr"> 858 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L859" class="LineNr"> 859 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L858" class="LineNr"> 858 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L859" class="LineNr"> 859 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L860" class="LineNr"> 860 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L861" class="LineNr"> 861 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L862" class="LineNr"> 862 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -924,7 +924,7 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr"> 865 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L866" class="LineNr"> 866 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L867" class="LineNr"> 867 </span> <span class="Delimiter">);</span> -<span id="L868" class="LineNr"> 868 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L868" class="LineNr"> 868 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L869" class="LineNr"> 869 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L870" class="LineNr"> 870 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L871" class="LineNr"> 871 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)\n"</span> @@ -936,26 +936,26 @@ if ('onhashchange' in window) { <span id="L877" class="LineNr"> 877 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> <span class="Comment">// indirect + disp8 addressing</span> <span id="L878" class="LineNr"> 878 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L879" class="LineNr"> 879 </span> <span class="Normal">default</span>: -<span id="L880" class="LineNr"> 880 </span> addr = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L881" class="LineNr"> 881 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L880" class="LineNr"> 880 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L881" class="LineNr"> 881 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L882" class="LineNr"> 882 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L883" class="LineNr"> 883 </span> <span class="Comment">// End Mod 1 Special-cases(addr)</span> <span id="L884" class="LineNr"> 884 </span> <span class="Delimiter">}</span> -<span id="L885" class="LineNr"> 885 </span> <span class="Normal">int8_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int8_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> +<span id="L885" class="LineNr"> 885 </span> <span class="Normal">int8_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int8_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L886" class="LineNr"> 886 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr > <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L887" class="LineNr"> 887 </span> addr += displacement<span class="Delimiter">;</span> -<span id="L888" class="LineNr"> 888 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" (after adding disp8)"</span> << end<span class="Delimiter">();</span> +<span id="L888" class="LineNr"> 888 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding disp8)"</span> << end<span class="Delimiter">();</span> <span id="L889" class="LineNr"> 889 </span> <span class="Delimiter">}</span> <span id="L890" class="LineNr"> 890 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L891" class="LineNr"> 891 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> +<span id="L891" class="LineNr"> 891 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> <span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">}</span> <span id="L893" class="LineNr"> 893 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L894" class="LineNr"> 894 </span><span class="Delimiter">}</span> <span id="L895" class="LineNr"> 895 </span> <span id="L896" class="LineNr"> 896 </span><span class="Delimiter">:(code)</span> <span id="L897" class="LineNr"> 897 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L897'>test_add_r32_to_mem_at_r32_plus_negative_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L898" class="LineNr"> 898 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L899" class="LineNr"> 899 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L898" class="LineNr"> 898 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L899" class="LineNr"> 899 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L900" class="LineNr"> 900 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L901" class="LineNr"> 901 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L902" class="LineNr"> 902 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -964,7 +964,7 @@ if ('onhashchange' in window) { <span id="L905" class="LineNr"> 905 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L906" class="LineNr"> 906 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L907" class="LineNr"> 907 </span> <span class="Delimiter">);</span> -<span id="L908" class="LineNr"> 908 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L908" class="LineNr"> 908 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L909" class="LineNr"> 909 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L910" class="LineNr"> 910 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L911" class="LineNr"> 911 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)\n"</span> @@ -976,8 +976,8 @@ if ('onhashchange' in window) { <span id="L917" class="LineNr"> 917 </span> <span id="L918" class="LineNr"> 918 </span><span class="Delimiter">:(code)</span> <span id="L919" class="LineNr"> 919 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L919'>test_add_r32_to_mem_at_r32_plus_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L920" class="LineNr"> 920 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L921" class="LineNr"> 921 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L920" class="LineNr"> 920 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L921" class="LineNr"> 921 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L922" class="LineNr"> 922 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L923" class="LineNr"> 923 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L924" class="LineNr"> 924 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -986,7 +986,7 @@ if ('onhashchange' in window) { <span id="L927" class="LineNr"> 927 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L928" class="LineNr"> 928 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L929" class="LineNr"> 929 </span> <span class="Delimiter">);</span> -<span id="L930" class="LineNr"> 930 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L930" class="LineNr"> 930 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L932" class="LineNr"> 932 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L933" class="LineNr"> 933 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> @@ -995,68 +995,73 @@ if ('onhashchange' in window) { <span id="L936" class="LineNr"> 936 </span><span class="Delimiter">}</span> <span id="L937" class="LineNr"> 937 </span> <span id="L938" class="LineNr"> 938 </span><span class="Delimiter">:(before "End Mod Special-cases(addr)")</span> -<span id="L939" class="LineNr"> 939 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Comment">// indirect + disp32 addressing</span> +<span id="L939" class="LineNr"> 939 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// indirect + disp32 addressing</span> <span id="L940" class="LineNr"> 940 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L941" class="LineNr"> 941 </span> <span class="Normal">default</span>: -<span id="L942" class="LineNr"> 942 </span> addr = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L943" class="LineNr"> 943 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L942" class="LineNr"> 942 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L943" class="LineNr"> 943 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L944" class="LineNr"> 944 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L945" class="LineNr"> 945 </span> <span class="Comment">// End Mod 2 Special-cases(addr)</span> <span id="L946" class="LineNr"> 946 </span> <span class="Delimiter">}</span> -<span id="L947" class="LineNr"> 947 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr > <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L948" class="LineNr"> 948 </span> addr += <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L949" class="LineNr"> 949 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" (after adding <a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> -<span id="L950" class="LineNr"> 950 </span> <span class="Delimiter">}</span> -<span id="L951" class="LineNr"> 951 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L952" class="LineNr"> 952 </span> -<span id="L953" class="LineNr"> 953 </span><span class="Delimiter">:(code)</span> -<span id="L954" class="LineNr"> 954 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L954'>test_add_r32_to_mem_at_r32_plus_negative_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L955" class="LineNr"> 955 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L956" class="LineNr"> 956 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> -<span id="L957" class="LineNr"> 957 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L958" class="LineNr"> 958 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L959" class="LineNr"> 959 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L960" class="LineNr"> 960 </span> <span class="Constant">" 01 98 ff ff ff ff \n"</span> <span class="Comment">// add EBX to *(EAX-1)</span> -<span id="L961" class="LineNr"> 961 </span> <span class="Comment">// ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L962" class="LineNr"> 962 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L963" class="LineNr"> 963 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> -<span id="L964" class="LineNr"> 964 </span> <span class="Delimiter">);</span> -<span id="L965" class="LineNr"> 965 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L966" class="LineNr"> 966 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L967" class="LineNr"> 967 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L968" class="LineNr"> 968 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L969" class="LineNr"> 969 </span> <span class="Constant">"run: storing 0x00000011\n"</span> -<span id="L970" class="LineNr"> 970 </span> <span class="Delimiter">);</span> -<span id="L971" class="LineNr"> 971 </span><span class="Delimiter">}</span> -<span id="L972" class="LineNr"> 972 </span> -<span id="L973" class="LineNr"> 973 </span><span class="SalientComment">//:: copy address (lea)</span> -<span id="L974" class="LineNr"> 974 </span> -<span id="L975" class="LineNr"> 975 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L976" class="LineNr"> 976 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"copy address in rm32 into r32 (lea)"</span><span class="Delimiter">);</span> +<span id="L947" class="LineNr"> 947 </span> <span class="Normal">int32_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span><a href='011run.cc.html#L433'>next32</a><span class="Delimiter">());</span> +<span id="L948" class="LineNr"> 948 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr > <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L949" class="LineNr"> 949 </span> addr += displacement<span class="Delimiter">;</span> +<span id="L950" class="LineNr"> 950 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding <a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L951" class="LineNr"> 951 </span> <span class="Delimiter">}</span> +<span id="L952" class="LineNr"> 952 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> +<span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">}</span> +<span id="L955" class="LineNr"> 955 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L956" class="LineNr"> 956 </span><span class="Delimiter">}</span> +<span id="L957" class="LineNr"> 957 </span> +<span id="L958" class="LineNr"> 958 </span><span class="Delimiter">:(code)</span> +<span id="L959" class="LineNr"> 959 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L959'>test_add_r32_to_mem_at_r32_plus_negative_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L960" class="LineNr"> 960 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L961" class="LineNr"> 961 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L962" class="LineNr"> 962 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L963" class="LineNr"> 963 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L964" class="LineNr"> 964 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L965" class="LineNr"> 965 </span> <span class="Constant">" 01 98 ff ff ff ff \n"</span> <span class="Comment">// add EBX to *(EAX-1)</span> +<span id="L966" class="LineNr"> 966 </span> <span class="Comment">// ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 000 (dest EAX)</span> +<span id="L967" class="LineNr"> 967 </span> <span class="Constant">"== data 0x2000\n"</span> +<span id="L968" class="LineNr"> 968 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L969" class="LineNr"> 969 </span> <span class="Delimiter">);</span> +<span id="L970" class="LineNr"> 970 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L971" class="LineNr"> 971 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> +<span id="L972" class="LineNr"> 972 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L973" class="LineNr"> 973 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> +<span id="L974" class="LineNr"> 974 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">);</span> +<span id="L976" class="LineNr"> 976 </span><span class="Delimiter">}</span> <span id="L977" class="LineNr"> 977 </span> -<span id="L978" class="LineNr"> 978 </span><span class="Delimiter">:(code)</span> -<span id="L979" class="LineNr"> 979 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L979'>test_copy_address</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L980" class="LineNr"> 980 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L981" class="LineNr"> 981 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L982" class="LineNr"> 982 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L983" class="LineNr"> 983 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L984" class="LineNr"> 984 </span> <span class="Constant">" 8d 18 \n"</span> <span class="Comment">// copy address in EAX into EBX</span> -<span id="L985" class="LineNr"> 985 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (dest EBX) 000 (src EAX)</span> -<span id="L986" class="LineNr"> 986 </span> <span class="Delimiter">);</span> -<span id="L987" class="LineNr"> 987 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L988" class="LineNr"> 988 </span> <span class="Constant">"run: copy address into EBX\n"</span> -<span id="L989" class="LineNr"> 989 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L990" class="LineNr"> 990 </span> <span class="Delimiter">);</span> -<span id="L991" class="LineNr"> 991 </span><span class="Delimiter">}</span> -<span id="L992" class="LineNr"> 992 </span> -<span id="L993" class="LineNr"> 993 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> -<span id="L994" class="LineNr"> 994 </span><span class="Normal">case</span> <span class="Constant">0x8d</span>: <span class="Delimiter">{</span> <span class="Comment">// copy address of m32 to r32</span> -<span id="L995" class="LineNr"> 995 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L996" class="LineNr"> 996 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L997" class="LineNr"> 997 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy address into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L998" class="LineNr"> 998 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L999" class="LineNr"> 999 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L1000" class="LineNr">1000 </span><span class="Delimiter">}</span> +<span id="L978" class="LineNr"> 978 </span><span class="SalientComment">//:: copy address (lea)</span> +<span id="L979" class="LineNr"> 979 </span> +<span id="L980" class="LineNr"> 980 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L981" class="LineNr"> 981 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"copy address in rm32 into r32 (lea)"</span><span class="Delimiter">);</span> +<span id="L982" class="LineNr"> 982 </span> +<span id="L983" class="LineNr"> 983 </span><span class="Delimiter">:(code)</span> +<span id="L984" class="LineNr"> 984 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L984'>test_copy_address</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L985" class="LineNr"> 985 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L986" class="LineNr"> 986 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L987" class="LineNr"> 987 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L988" class="LineNr"> 988 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L989" class="LineNr"> 989 </span> <span class="Constant">" 8d 18 \n"</span> <span class="Comment">// copy address in EAX into EBX</span> +<span id="L990" class="LineNr"> 990 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (dest EBX) 000 (src EAX)</span> +<span id="L991" class="LineNr"> 991 </span> <span class="Delimiter">);</span> +<span id="L992" class="LineNr"> 992 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L993" class="LineNr"> 993 </span> <span class="Constant">"run: copy address into EBX\n"</span> +<span id="L994" class="LineNr"> 994 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L995" class="LineNr"> 995 </span> <span class="Delimiter">);</span> +<span id="L996" class="LineNr"> 996 </span><span class="Delimiter">}</span> +<span id="L997" class="LineNr"> 997 </span> +<span id="L998" class="LineNr"> 998 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> +<span id="L999" class="LineNr"> 999 </span><span class="Normal">case</span> <span class="Constant">0x8d</span>: <span class="Delimiter">{</span> <span class="Comment">// copy address of m32 to r32</span> +<span id="L1000" class="LineNr">1000 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L1001" class="LineNr">1001 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L1002" class="LineNr">1002 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy address into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1003" class="LineNr">1003 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L1004" class="LineNr">1004 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L1005" class="LineNr">1005 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/015immediate_addressing.cc.html b/html/015immediate_addressing.cc.html index 14ccfabf..cb271e7f 100644 --- a/html/015immediate_addressing.cc.html +++ b/html/015immediate_addressing.cc.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } +.SpecialChar { color: #d70000; } +.CommentedCode { color: #8a8a8a; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } -.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SalientComment { color: #0000af; } --> </style> @@ -62,37 +62,37 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: instructions that (immediately) contain an argument to act with</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">"add imm32 to <a href='010vm.cc.html#L10'>EAX</a> (add)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">"add imm32 to <a href='010vm.cc.html#L10'>EAX</a> (add)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">case</span> <span class="Constant">0x05</span>: <span class="Delimiter">{</span> <span class="Comment">// add imm32 to EAX</span> <span id="L8" class="LineNr"> 8 </span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Normal">int32_t</span> signed_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i + signed_arg2<span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i + signed_arg2<span class="Delimiter">;</span> <span id="L11" class="LineNr"> 11 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L12" class="LineNr"> 12 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + signed_arg2<span class="Delimiter">;</span> -<span id="L14" class="LineNr"> 14 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L12" class="LineNr"> 12 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + signed_arg2<span class="Delimiter">;</span> +<span id="L14" class="LineNr"> 14 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L15" class="LineNr"> 15 </span> <span class="Comment">// set CF</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> -<span id="L19" class="LineNr"> 19 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L20" class="LineNr"> 20 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L21" class="LineNr"> 21 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> +<span id="L19" class="LineNr"> 19 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L20" class="LineNr"> 20 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L21" class="LineNr"> 21 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L23" class="LineNr"> 23 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> <span id="L25" class="LineNr"> 25 </span> <span id="L26" class="LineNr"> 26 </span><span class="Delimiter">:(code)</span> <span id="L27" class="LineNr"> 27 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L27'>test_add_imm32_to_EAX_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L28" class="LineNr"> 28 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L29" class="LineNr"> 29 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L30" class="LineNr"> 30 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L31" class="LineNr"> 31 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L32" class="LineNr"> 32 </span> <span class="Constant">" 05 01 00 00 00 \n"</span> <span class="Comment">// add 1 to EAX</span> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">);</span> -<span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: add imm32 0x00000001 to EAX\n"</span> <span id="L36" class="LineNr"> 36 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> <span id="L37" class="LineNr"> 37 </span> <span class="Constant">"run: storing 0x80000000\n"</span> @@ -100,14 +100,14 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> <span id="L40" class="LineNr"> 40 </span> <span id="L41" class="LineNr"> 41 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L41'>test_add_imm32_to_EAX_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L42" class="LineNr"> 42 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L43" class="LineNr"> 43 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L44" class="LineNr"> 44 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L45" class="LineNr"> 45 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L47" class="LineNr"> 47 </span> <span class="Constant">" 05 01 00 00 00 \n"</span> <span class="Comment">// add 1 to EAX</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">);</span> -<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: add imm32 0x00000001 to EAX\n"</span> <span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: storing 0x00000000\n"</span> @@ -115,13 +115,13 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> <span id="L55" class="LineNr"> 55 </span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L56'>test_add_imm32_to_EAX_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L57" class="LineNr"> 57 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L58" class="LineNr"> 58 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L59" class="LineNr"> 59 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L60" class="LineNr"> 60 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L61" class="LineNr"> 61 </span> <span class="Constant">" 05 00 00 00 80 \n"</span> <span class="Comment">// add 0x80000000 to EAX</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L64" class="LineNr"> 64 </span> <span class="Constant">"run: add imm32 0x80000000 to EAX\n"</span> <span id="L65" class="LineNr"> 65 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> <span id="L66" class="LineNr"> 66 </span> <span class="Constant">"run: storing 0x00000000\n"</span> @@ -131,18 +131,18 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span><span class="Comment">//:</span> <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L73" class="LineNr"> 73 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">"combine rm32 with imm32 based on subop (add/sub/and/or/xor/cmp)"</span><span class="Delimiter">);</span> +<span id="L73" class="LineNr"> 73 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">"combine rm32 with imm32 based on subop (add/sub/and/or/xor/cmp)"</span><span class="Delimiter">);</span> <span id="L74" class="LineNr"> 74 </span> <span id="L75" class="LineNr"> 75 </span><span class="Delimiter">:(code)</span> <span id="L76" class="LineNr"> 76 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L76'>test_add_imm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L77" class="LineNr"> 77 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L78" class="LineNr"> 78 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L81" class="LineNr"> 81 </span> <span class="Constant">" 81 c3 0a 0b 0c 0d\n"</span> <span class="Comment">// add 0x0d0c0b0a to EBX</span> <span id="L82" class="LineNr"> 82 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop add) 011 (dest EBX)</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">);</span> -<span id="L84" class="LineNr"> 84 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L84" class="LineNr"> 84 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L86" class="LineNr"> 86 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L87" class="LineNr"> 87 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -153,34 +153,34 @@ if ('onhashchange' in window) { <span id="L92" class="LineNr"> 92 </span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">case</span> <span class="Constant">0x81</span>: <span class="Delimiter">{</span> <span class="Comment">// combine r/m32 with imm32</span> -<span id="L95" class="LineNr"> 95 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"combine r/m32 with imm32"</span> << end<span class="Delimiter">();</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L95" class="LineNr"> 95 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"combine r/m32 with imm32"</span> << end<span class="Delimiter">();</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L97" class="LineNr"> 97 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> <span id="L100" class="LineNr"> 100 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L101" class="LineNr"> 101 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L102" class="LineNr"> 102 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> -<span id="L103" class="LineNr"> 103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop add"</span> << end<span class="Delimiter">();</span> +<span id="L103" class="LineNr"> 103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop add"</span> << end<span class="Delimiter">();</span> <span id="L104" class="LineNr"> 104 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + signed_arg2<span class="Delimiter">;</span> <span id="L105" class="LineNr"> 105 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L106" class="LineNr"> 106 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L106" class="LineNr"> 106 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L107" class="LineNr"> 107 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> + signed_arg2<span class="Delimiter">;</span> -<span id="L108" class="LineNr"> 108 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L108" class="LineNr"> 108 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L109" class="LineNr"> 109 </span> <span class="Comment">// set CF</span> <span id="L110" class="LineNr"> 110 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> <span id="L111" class="LineNr"> 111 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> <span id="L112" class="LineNr"> 112 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + unsigned_arg2<span class="Delimiter">;</span> <span id="L113" class="LineNr"> 113 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> -<span id="L114" class="LineNr"> 114 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L115" class="LineNr"> 115 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L114" class="LineNr"> 114 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L115" class="LineNr"> 115 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L116" class="LineNr"> 116 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L117" class="LineNr"> 117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L117" class="LineNr"> 117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L118" class="LineNr"> 118 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L119" class="LineNr"> 119 </span> <span class="Delimiter">}</span> <span id="L120" class="LineNr"> 120 </span> <span class="Comment">// End Op 81 Subops</span> <span id="L121" class="LineNr"> 121 </span> <span class="Normal">default</span>: -<span id="L122" class="LineNr"> 122 </span> cerr << <span class="Constant">"unrecognized subop for opcode 81: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L122" class="LineNr"> 122 </span> cerr << <span class="Constant">"unrecognized subop for opcode 81: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L123" class="LineNr"> 123 </span> exit<span class="Delimiter">(</span><span class="Constant">1</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="Identifier">break</span><span class="Delimiter">;</span> @@ -188,14 +188,14 @@ if ('onhashchange' in window) { <span id="L127" class="LineNr"> 127 </span> <span id="L128" class="LineNr"> 128 </span><span class="Delimiter">:(code)</span> <span id="L129" class="LineNr"> 129 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L129'>test_add_imm32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L130" class="LineNr"> 130 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L130" class="LineNr"> 130 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L131" class="LineNr"> 131 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L132" class="LineNr"> 132 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L133" class="LineNr"> 133 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L134" class="LineNr"> 134 </span> <span class="Constant">" 81 c3 01 00 00 00\n"</span> <span class="Comment">// add 1 to EBX</span> <span id="L135" class="LineNr"> 135 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop add) 011 (dest EBX)</span> <span id="L136" class="LineNr"> 136 </span> <span class="Delimiter">);</span> -<span id="L137" class="LineNr"> 137 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L137" class="LineNr"> 137 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L138" class="LineNr"> 138 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L139" class="LineNr"> 139 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L140" class="LineNr"> 140 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> @@ -206,14 +206,14 @@ if ('onhashchange' in window) { <span id="L145" class="LineNr"> 145 </span><span class="Delimiter">}</span> <span id="L146" class="LineNr"> 146 </span> <span id="L147" class="LineNr"> 147 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L147'>test_add_imm32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr"> 148 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L148" class="LineNr"> 148 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> <span id="L149" class="LineNr"> 149 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L150" class="LineNr"> 150 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L151" class="LineNr"> 151 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L152" class="LineNr"> 152 </span> <span class="Constant">" 81 c3 01 00 00 00\n"</span> <span class="Comment">// add 1 to EBX</span> <span id="L153" class="LineNr"> 153 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop add) 011 (dest EBX)</span> <span id="L154" class="LineNr"> 154 </span> <span class="Delimiter">);</span> -<span id="L155" class="LineNr"> 155 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L155" class="LineNr"> 155 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L158" class="LineNr"> 158 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> @@ -224,14 +224,14 @@ if ('onhashchange' in window) { <span id="L163" class="LineNr"> 163 </span><span class="Delimiter">}</span> <span id="L164" class="LineNr"> 164 </span> <span id="L165" class="LineNr"> 165 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L165'>test_add_imm32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L166" class="LineNr"> 166 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L166" class="LineNr"> 166 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L167" class="LineNr"> 167 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L168" class="LineNr"> 168 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L169" class="LineNr"> 169 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L170" class="LineNr"> 170 </span> <span class="Constant">" 81 c3 00 00 00 80\n"</span> <span class="Comment">// add 0x80000000 to EBX</span> <span id="L171" class="LineNr"> 171 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop add) 011 (dest EBX)</span> <span id="L172" class="LineNr"> 172 </span> <span class="Delimiter">);</span> -<span id="L173" class="LineNr"> 173 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L173" class="LineNr"> 173 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L174" class="LineNr"> 174 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L175" class="LineNr"> 175 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L176" class="LineNr"> 176 </span> <span class="Constant">"run: imm32 is 0x80000000\n"</span> @@ -245,7 +245,7 @@ if ('onhashchange' in window) { <span id="L184" class="LineNr"> 184 </span> <span id="L185" class="LineNr"> 185 </span><span class="Delimiter">:(code)</span> <span id="L186" class="LineNr"> 186 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L186'>test_add_imm32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr"> 187 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L187" class="LineNr"> 187 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L188" class="LineNr"> 188 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L189" class="LineNr"> 189 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L190" class="LineNr"> 190 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -254,7 +254,7 @@ if ('onhashchange' in window) { <span id="L193" class="LineNr"> 193 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L194" class="LineNr"> 194 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L195" class="LineNr"> 195 </span> <span class="Delimiter">);</span> -<span id="L196" class="LineNr"> 196 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L196" class="LineNr"> 196 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L197" class="LineNr"> 197 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L198" class="LineNr"> 198 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L199" class="LineNr"> 199 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -266,17 +266,17 @@ if ('onhashchange' in window) { <span id="L205" class="LineNr"> 205 </span><span class="SalientComment">//:: subtract</span> <span id="L206" class="LineNr"> 206 </span> <span id="L207" class="LineNr"> 207 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L208" class="LineNr"> 208 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"subtract imm32 from <a href='010vm.cc.html#L10'>EAX</a> (sub)"</span><span class="Delimiter">);</span> +<span id="L208" class="LineNr"> 208 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"subtract imm32 from <a href='010vm.cc.html#L10'>EAX</a> (sub)"</span><span class="Delimiter">);</span> <span id="L209" class="LineNr"> 209 </span> <span id="L210" class="LineNr"> 210 </span><span class="Delimiter">:(code)</span> <span id="L211" class="LineNr"> 211 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L211'>test_subtract_imm32_from_EAX</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr"> 212 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0baa</span><span class="Delimiter">;</span> +<span id="L212" class="LineNr"> 212 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0baa</span><span class="Delimiter">;</span> <span id="L213" class="LineNr"> 213 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L214" class="LineNr"> 214 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L215" class="LineNr"> 215 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L216" class="LineNr"> 216 </span> <span class="Constant">" 2d 0a 0b 0c 0d \n"</span> <span class="Comment">// subtract 0x0d0c0b0a from EAX</span> <span id="L217" class="LineNr"> 217 </span> <span class="Delimiter">);</span> -<span id="L218" class="LineNr"> 218 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L218" class="LineNr"> 218 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L219" class="LineNr"> 219 </span> <span class="Constant">"run: subtract imm32 0x0d0c0b0a from EAX\n"</span> <span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: storing 0x000000a0\n"</span> <span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">);</span> @@ -285,32 +285,32 @@ if ('onhashchange' in window) { <span id="L224" class="LineNr"> 224 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L225" class="LineNr"> 225 </span><span class="Normal">case</span> <span class="Constant">0x2d</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract imm32 from EAX</span> <span id="L226" class="LineNr"> 226 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L227" class="LineNr"> 227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << <span class="Constant">" from EAX"</span> << end<span class="Delimiter">();</span> -<span id="L228" class="LineNr"> 228 </span> <span class="Normal">int32_t</span> signed_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i - signed_arg2<span class="Delimiter">;</span> +<span id="L227" class="LineNr"> 227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" from EAX"</span> << end<span class="Delimiter">();</span> +<span id="L228" class="LineNr"> 228 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i - signed_arg2<span class="Delimiter">;</span> <span id="L229" class="LineNr"> 229 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L230" class="LineNr"> 230 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L231" class="LineNr"> 231 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> -<span id="L232" class="LineNr"> 232 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L230" class="LineNr"> 230 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L231" class="LineNr"> 231 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> +<span id="L232" class="LineNr"> 232 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L233" class="LineNr"> 233 </span> <span class="Comment">// set CF</span> <span id="L234" class="LineNr"> 234 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> -<span id="L235" class="LineNr"> 235 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L236" class="LineNr"> 236 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L237" class="LineNr"> 237 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L239" class="LineNr"> 239 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L240" class="LineNr"> 240 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L235" class="LineNr"> 235 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L236" class="LineNr"> 236 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L237" class="LineNr"> 237 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L239" class="LineNr"> 239 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L240" class="LineNr"> 240 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L241" class="LineNr"> 241 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L242" class="LineNr"> 242 </span><span class="Delimiter">}</span> <span id="L243" class="LineNr"> 243 </span> <span id="L244" class="LineNr"> 244 </span><span class="Delimiter">:(code)</span> <span id="L245" class="LineNr"> 245 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L245'>test_subtract_imm32_from_EAX_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L246" class="LineNr"> 246 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L246" class="LineNr"> 246 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> <span id="L247" class="LineNr"> 247 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L248" class="LineNr"> 248 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L249" class="LineNr"> 249 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L250" class="LineNr"> 250 </span> <span class="Constant">" 2d ff ff ff 7f \n"</span> <span class="Comment">// subtract largest positive signed integer from EAX</span> <span id="L251" class="LineNr"> 251 </span> <span class="Delimiter">);</span> -<span id="L252" class="LineNr"> 252 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L252" class="LineNr"> 252 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L253" class="LineNr"> 253 </span> <span class="Constant">"run: subtract imm32 0x7fffffff from EAX\n"</span> <span id="L254" class="LineNr"> 254 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> <span id="L255" class="LineNr"> 255 </span> <span class="Constant">"run: storing 0x00000001\n"</span> @@ -318,13 +318,13 @@ if ('onhashchange' in window) { <span id="L257" class="LineNr"> 257 </span><span class="Delimiter">}</span> <span id="L258" class="LineNr"> 258 </span> <span id="L259" class="LineNr"> 259 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L259'>test_subtract_imm32_from_EAX_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L260" class="LineNr"> 260 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L260" class="LineNr"> 260 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L261" class="LineNr"> 261 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L262" class="LineNr"> 262 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L263" class="LineNr"> 263 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L264" class="LineNr"> 264 </span> <span class="Constant">" 2d 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from EAX</span> <span id="L265" class="LineNr"> 265 </span> <span class="Delimiter">);</span> -<span id="L266" class="LineNr"> 266 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L266" class="LineNr"> 266 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L267" class="LineNr"> 267 </span> <span class="Constant">"run: subtract imm32 0x00000001 from EAX\n"</span> <span id="L268" class="LineNr"> 268 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> <span id="L269" class="LineNr"> 269 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> @@ -332,13 +332,13 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr"> 271 </span><span class="Delimiter">}</span> <span id="L272" class="LineNr"> 272 </span> <span id="L273" class="LineNr"> 273 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L273'>test_subtract_imm32_from_EAX_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr"> 274 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L274" class="LineNr"> 274 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L275" class="LineNr"> 275 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L276" class="LineNr"> 276 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L277" class="LineNr"> 277 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L278" class="LineNr"> 278 </span> <span class="Constant">" 2d 00 00 00 80 \n"</span> <span class="Comment">// subtract smallest negative signed integer from EAX</span> <span id="L279" class="LineNr"> 279 </span> <span class="Delimiter">);</span> -<span id="L280" class="LineNr"> 280 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L280" class="LineNr"> 280 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L281" class="LineNr"> 281 </span> <span class="Constant">"run: subtract imm32 0x80000000 from EAX\n"</span> <span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> <span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: storing 0x80000000\n"</span> @@ -348,7 +348,7 @@ if ('onhashchange' in window) { <span id="L287" class="LineNr"> 287 </span><span class="Comment">//:</span> <span id="L288" class="LineNr"> 288 </span> <span id="L289" class="LineNr"> 289 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L289'>test_subtract_imm32_from_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L290" class="LineNr"> 290 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L290" class="LineNr"> 290 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L291" class="LineNr"> 291 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L292" class="LineNr"> 292 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L293" class="LineNr"> 293 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -357,7 +357,7 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr"> 296 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L297" class="LineNr"> 297 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> <span id="L298" class="LineNr"> 298 </span> <span class="Delimiter">);</span> -<span id="L299" class="LineNr"> 299 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L299" class="LineNr"> 299 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L300" class="LineNr"> 300 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L301" class="LineNr"> 301 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L302" class="LineNr"> 302 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> @@ -368,27 +368,27 @@ if ('onhashchange' in window) { <span id="L307" class="LineNr"> 307 </span> <span id="L308" class="LineNr"> 308 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L309" class="LineNr"> 309 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> -<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop subtract"</span> << end<span class="Delimiter">();</span> +<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop subtract"</span> << end<span class="Delimiter">();</span> <span id="L311" class="LineNr"> 311 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L312" class="LineNr"> 312 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L313" class="LineNr"> 313 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L313" class="LineNr"> 313 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L314" class="LineNr"> 314 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> -<span id="L315" class="LineNr"> 315 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> +<span id="L315" class="LineNr"> 315 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L316" class="LineNr"> 316 </span> <span class="Comment">// set CF</span> <span id="L317" class="LineNr"> 317 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> <span id="L318" class="LineNr"> 318 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> <span id="L319" class="LineNr"> 319 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L320" class="LineNr"> 320 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L321" class="LineNr"> 321 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L322" class="LineNr"> 322 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L321" class="LineNr"> 321 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> +<span id="L322" class="LineNr"> 322 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L323" class="LineNr"> 323 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L324" class="LineNr"> 324 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L324" class="LineNr"> 324 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L325" class="LineNr"> 325 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L326" class="LineNr"> 326 </span><span class="Delimiter">}</span> <span id="L327" class="LineNr"> 327 </span> <span id="L328" class="LineNr"> 328 </span><span class="Delimiter">:(code)</span> <span id="L329" class="LineNr"> 329 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L329'>test_subtract_imm32_from_mem_at_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L330" class="LineNr"> 330 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L330" class="LineNr"> 330 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L331" class="LineNr"> 331 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L332" class="LineNr"> 332 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L333" class="LineNr"> 333 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -397,7 +397,7 @@ if ('onhashchange' in window) { <span id="L336" class="LineNr"> 336 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L337" class="LineNr"> 337 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> <span id="L338" class="LineNr"> 338 </span> <span class="Delimiter">);</span> -<span id="L339" class="LineNr"> 339 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L339" class="LineNr"> 339 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L340" class="LineNr"> 340 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L341" class="LineNr"> 341 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L342" class="LineNr"> 342 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> @@ -409,7 +409,7 @@ if ('onhashchange' in window) { <span id="L348" class="LineNr"> 348 </span><span class="Delimiter">}</span> <span id="L349" class="LineNr"> 349 </span> <span id="L350" class="LineNr"> 350 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L350'>test_subtract_imm32_from_mem_at_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr"> 351 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L351" class="LineNr"> 351 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L352" class="LineNr"> 352 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L353" class="LineNr"> 353 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L354" class="LineNr"> 354 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -418,7 +418,7 @@ if ('onhashchange' in window) { <span id="L357" class="LineNr"> 357 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L358" class="LineNr"> 358 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0</span> <span id="L359" class="LineNr"> 359 </span> <span class="Delimiter">);</span> -<span id="L360" class="LineNr"> 360 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L360" class="LineNr"> 360 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L361" class="LineNr"> 361 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L362" class="LineNr"> 362 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L363" class="LineNr"> 363 </span> <span class="Constant">"run: effective address contains 0x00000000\n"</span> @@ -430,7 +430,7 @@ if ('onhashchange' in window) { <span id="L369" class="LineNr"> 369 </span><span class="Delimiter">}</span> <span id="L370" class="LineNr"> 370 </span> <span id="L371" class="LineNr"> 371 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L371'>test_subtract_imm32_from_mem_at_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L372" class="LineNr"> 372 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L372" class="LineNr"> 372 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L373" class="LineNr"> 373 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L374" class="LineNr"> 374 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L375" class="LineNr"> 375 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -439,7 +439,7 @@ if ('onhashchange' in window) { <span id="L378" class="LineNr"> 378 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L379" class="LineNr"> 379 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0</span> <span id="L380" class="LineNr"> 380 </span> <span class="Delimiter">);</span> -<span id="L381" class="LineNr"> 381 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L381" class="LineNr"> 381 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L382" class="LineNr"> 382 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L383" class="LineNr"> 383 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L384" class="LineNr"> 384 </span> <span class="Constant">"run: effective address contains 0x00000000\n"</span> @@ -453,14 +453,14 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr"> 392 </span><span class="Comment">//:</span> <span id="L393" class="LineNr"> 393 </span> <span id="L394" class="LineNr"> 394 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L394'>test_subtract_imm32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr"> 395 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L395" class="LineNr"> 395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L396" class="LineNr"> 396 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L397" class="LineNr"> 397 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L398" class="LineNr"> 398 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L399" class="LineNr"> 399 </span> <span class="Constant">" 81 eb 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from EBX</span> <span id="L400" class="LineNr"> 400 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop subtract) 011 (dest EBX)</span> <span id="L401" class="LineNr"> 401 </span> <span class="Delimiter">);</span> -<span id="L402" class="LineNr"> 402 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L402" class="LineNr"> 402 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L403" class="LineNr"> 403 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L404" class="LineNr"> 404 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> @@ -472,18 +472,18 @@ if ('onhashchange' in window) { <span id="L411" class="LineNr"> 411 </span><span class="SalientComment">//:: shift left</span> <span id="L412" class="LineNr"> 412 </span> <span id="L413" class="LineNr"> 413 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L414" class="LineNr"> 414 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by imm8 bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> +<span id="L414" class="LineNr"> 414 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by imm8 bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> <span id="L415" class="LineNr"> 415 </span> <span id="L416" class="LineNr"> 416 </span><span class="Delimiter">:(code)</span> <span id="L417" class="LineNr"> 417 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L417'>test_shift_left_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L418" class="LineNr"> 418 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> +<span id="L418" class="LineNr"> 418 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> <span id="L419" class="LineNr"> 419 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L420" class="LineNr"> 420 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L421" class="LineNr"> 421 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L422" class="LineNr"> 422 </span> <span class="Constant">" c1 e3 01 \n"</span> <span class="Comment">// shift EBX left by 1 bit</span> <span id="L423" class="LineNr"> 423 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop shift left) 011 (dest EBX)</span> <span id="L424" class="LineNr"> 424 </span> <span class="Delimiter">);</span> -<span id="L425" class="LineNr"> 425 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L425" class="LineNr"> 425 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L426" class="LineNr"> 426 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L427" class="LineNr"> 427 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L428" class="LineNr"> 428 </span> <span class="Constant">"run: subop: shift left by CL bits\n"</span> @@ -493,31 +493,31 @@ if ('onhashchange' in window) { <span id="L432" class="LineNr"> 432 </span> <span id="L433" class="LineNr"> 433 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L434" class="LineNr"> 434 </span><span class="Normal">case</span> <span class="Constant">0xc1</span>: <span class="Delimiter">{</span> -<span id="L435" class="LineNr"> 435 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L436" class="LineNr"> 436 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L435" class="LineNr"> 435 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L436" class="LineNr"> 436 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L437" class="LineNr"> 437 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L438" class="LineNr"> 438 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L439" class="LineNr"> 439 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L440" class="LineNr"> 440 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// shift left r/m32 by CL</span> -<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> -<span id="L442" class="LineNr"> 442 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> +<span id="L442" class="LineNr"> 442 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L443" class="LineNr"> 443 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L444" class="LineNr"> 444 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L445" class="LineNr"> 445 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L446" class="LineNr"> 446 </span> <span class="Normal">bool</span> pnsb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x40000000</span><span class="Delimiter">);</span> -<span id="L447" class="LineNr"> 447 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> +<span id="L447" class="LineNr"> 447 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> <span id="L448" class="LineNr"> 448 </span> <span class="Delimiter">}</span> <span id="L449" class="LineNr"> 449 </span> *arg1 = <span class="Delimiter">(</span>*arg1 << count<span class="Delimiter">);</span> -<span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L451" class="LineNr"> 451 </span> SF = <span class="Delimiter">(</span>*arg1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L452" class="LineNr"> 452 </span> <span class="Comment">// CF undefined</span> -<span id="L453" class="LineNr"> 453 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L454" class="LineNr"> 454 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L453" class="LineNr"> 453 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L454" class="LineNr"> 454 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L455" class="LineNr"> 455 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">}</span> <span id="L457" class="LineNr"> 457 </span> <span class="Comment">// End Op c1 Subops</span> <span id="L458" class="LineNr"> 458 </span> <span class="Normal">default</span>: -<span id="L459" class="LineNr"> 459 </span> cerr << <span class="Constant">"unrecognized subop for opcode c1: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L459" class="LineNr"> 459 </span> cerr << <span class="Constant">"unrecognized subop for opcode c1: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L460" class="LineNr"> 460 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L461" class="LineNr"> 461 </span> <span class="Delimiter">}</span> <span id="L462" class="LineNr"> 462 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -527,14 +527,14 @@ if ('onhashchange' in window) { <span id="L466" class="LineNr"> 466 </span> <span id="L467" class="LineNr"> 467 </span><span class="Delimiter">:(code)</span> <span id="L468" class="LineNr"> 468 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L468'>test_shift_right_arithmetic_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr"> 469 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L469" class="LineNr"> 469 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> <span id="L470" class="LineNr"> 470 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L472" class="LineNr"> 472 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L473" class="LineNr"> 473 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit</span> <span id="L474" class="LineNr"> 474 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L475" class="LineNr"> 475 </span> <span class="Delimiter">);</span> -<span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -544,31 +544,31 @@ if ('onhashchange' in window) { <span id="L483" class="LineNr"> 483 </span> <span id="L484" class="LineNr"> 484 </span><span class="Delimiter">:(before "End Op c1 Subops")</span> <span id="L485" class="LineNr"> 485 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L486" class="LineNr"> 486 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> -<span id="L487" class="LineNr"> 487 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L486" class="LineNr"> 486 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> +<span id="L487" class="LineNr"> 487 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L488" class="LineNr"> 488 </span> <span class="Normal">int32_t</span> result = <span class="Delimiter">(</span>*arg1 >> count<span class="Delimiter">);</span> -<span id="L489" class="LineNr"> 489 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L489" class="LineNr"> 489 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L490" class="LineNr"> 490 </span> SF = <span class="Delimiter">(</span>*arg1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L491" class="LineNr"> 491 </span> <span class="Comment">// OF is only defined if count is 1</span> -<span id="L492" class="LineNr"> 492 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L492" class="LineNr"> 492 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L493" class="LineNr"> 493 </span> <span class="Comment">// CF</span> -<span id="L494" class="LineNr"> 494 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">((</span>*arg1 >> <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x1</span><span class="Delimiter">);</span> -<span id="L495" class="LineNr"> 495 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L494" class="LineNr"> 494 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">((</span>*arg1 >> <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x1</span><span class="Delimiter">);</span> +<span id="L495" class="LineNr"> 495 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L496" class="LineNr"> 496 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L497" class="LineNr"> 497 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L497" class="LineNr"> 497 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L498" class="LineNr"> 498 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L499" class="LineNr"> 499 </span><span class="Delimiter">}</span> <span id="L500" class="LineNr"> 500 </span> <span id="L501" class="LineNr"> 501 </span><span class="Delimiter">:(code)</span> <span id="L502" class="LineNr"> 502 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L502'>test_shift_right_arithmetic_odd_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L503" class="LineNr"> 503 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L503" class="LineNr"> 503 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> <span id="L504" class="LineNr"> 504 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L505" class="LineNr"> 505 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L506" class="LineNr"> 506 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L507" class="LineNr"> 507 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit</span> <span id="L508" class="LineNr"> 508 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L509" class="LineNr"> 509 </span> <span class="Delimiter">);</span> -<span id="L510" class="LineNr"> 510 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L510" class="LineNr"> 510 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L513" class="LineNr"> 513 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -579,14 +579,14 @@ if ('onhashchange' in window) { <span id="L518" class="LineNr"> 518 </span> <span id="L519" class="LineNr"> 519 </span><span class="Delimiter">:(code)</span> <span id="L520" class="LineNr"> 520 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L520'>test_shift_right_arithmetic_negative_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L521" class="LineNr"> 521 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> +<span id="L521" class="LineNr"> 521 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> <span id="L522" class="LineNr"> 522 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L523" class="LineNr"> 523 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L524" class="LineNr"> 524 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L525" class="LineNr"> 525 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while preserving sign</span> <span id="L526" class="LineNr"> 526 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L527" class="LineNr"> 527 </span> <span class="Delimiter">);</span> -<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> @@ -599,14 +599,14 @@ if ('onhashchange' in window) { <span id="L538" class="LineNr"> 538 </span> <span id="L539" class="LineNr"> 539 </span><span class="Delimiter">:(code)</span> <span id="L540" class="LineNr"> 540 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L540'>test_shift_right_logical_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L541" class="LineNr"> 541 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L541" class="LineNr"> 541 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> <span id="L542" class="LineNr"> 542 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L543" class="LineNr"> 543 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L544" class="LineNr"> 544 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L545" class="LineNr"> 545 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L546" class="LineNr"> 546 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L547" class="LineNr"> 547 </span> <span class="Delimiter">);</span> -<span id="L548" class="LineNr"> 548 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L548" class="LineNr"> 548 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L549" class="LineNr"> 549 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L550" class="LineNr"> 550 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L551" class="LineNr"> 551 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -616,34 +616,34 @@ if ('onhashchange' in window) { <span id="L555" class="LineNr"> 555 </span> <span id="L556" class="LineNr"> 556 </span><span class="Delimiter">:(before "End Op c1 Subops")</span> <span id="L557" class="LineNr"> 557 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L558" class="LineNr"> 558 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> -<span id="L559" class="LineNr"> 559 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L558" class="LineNr"> 558 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> +<span id="L559" class="LineNr"> 559 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L560" class="LineNr"> 560 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L561" class="LineNr"> 561 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L562" class="LineNr"> 562 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L563" class="LineNr"> 563 </span> <span class="Normal">bool</span> pnsb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x40000000</span><span class="Delimiter">);</span> -<span id="L564" class="LineNr"> 564 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> +<span id="L564" class="LineNr"> 564 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>msb != pnsb<span class="Delimiter">);</span> <span id="L565" class="LineNr"> 565 </span> <span class="Delimiter">}</span> <span id="L566" class="LineNr"> 566 </span> <span class="Normal">uint32_t</span>* uarg1 = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>arg1<span class="Delimiter">);</span> <span id="L567" class="LineNr"> 567 </span> *uarg1 = <span class="Delimiter">(</span>*uarg1 >> count<span class="Delimiter">);</span> -<span id="L568" class="LineNr"> 568 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*uarg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L568" class="LineNr"> 568 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*uarg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L569" class="LineNr"> 569 </span> <span class="Comment">// result is always positive by definition</span> <span id="L570" class="LineNr"> 570 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L571" class="LineNr"> 571 </span> <span class="Comment">// CF undefined</span> -<span id="L572" class="LineNr"> 572 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L573" class="LineNr"> 573 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L572" class="LineNr"> 572 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L573" class="LineNr"> 573 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L574" class="LineNr"> 574 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L575" class="LineNr"> 575 </span><span class="Delimiter">}</span> <span id="L576" class="LineNr"> 576 </span> <span id="L577" class="LineNr"> 577 </span><span class="Delimiter">:(code)</span> <span id="L578" class="LineNr"> 578 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L578'>test_shift_right_logical_odd_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L579" class="LineNr"> 579 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L579" class="LineNr"> 579 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> <span id="L580" class="LineNr"> 580 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L581" class="LineNr"> 581 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L582" class="LineNr"> 582 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L583" class="LineNr"> 583 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L584" class="LineNr"> 584 </span> <span class="Delimiter">);</span> -<span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -654,14 +654,14 @@ if ('onhashchange' in window) { <span id="L593" class="LineNr"> 593 </span> <span id="L594" class="LineNr"> 594 </span><span class="Delimiter">:(code)</span> <span id="L595" class="LineNr"> 595 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L595'>test_shift_right_logical_negative_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L596" class="LineNr"> 596 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> +<span id="L596" class="LineNr"> 596 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span id="L597" class="LineNr"> 597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L599" class="LineNr"> 599 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L600" class="LineNr"> 600 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L601" class="LineNr"> 601 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">);</span> -<span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32\n"</span> <span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> @@ -672,17 +672,17 @@ if ('onhashchange' in window) { <span id="L611" class="LineNr"> 611 </span><span class="SalientComment">//:: and</span> <span id="L612" class="LineNr"> 612 </span> <span id="L613" class="LineNr"> 613 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L614" class="LineNr"> 614 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise AND of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (and)"</span><span class="Delimiter">);</span> +<span id="L614" class="LineNr"> 614 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise AND of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (and)"</span><span class="Delimiter">);</span> <span id="L615" class="LineNr"> 615 </span> <span id="L616" class="LineNr"> 616 </span><span class="Delimiter">:(code)</span> <span id="L617" class="LineNr"> 617 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L617'>test_and_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L618" class="LineNr"> 618 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L618" class="LineNr"> 618 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L619" class="LineNr"> 619 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L620" class="LineNr"> 620 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L621" class="LineNr"> 621 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L622" class="LineNr"> 622 </span> <span class="Constant">" 25 0a 0b 0c 0d \n"</span> <span class="Comment">// and 0x0d0c0b0a with EAX</span> <span id="L623" class="LineNr"> 623 </span> <span class="Delimiter">);</span> -<span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: and imm32 0x0d0c0b0a with EAX\n"</span> <span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: storing 0x0000000a\n"</span> <span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">);</span> @@ -693,14 +693,14 @@ if ('onhashchange' in window) { <span id="L632" class="LineNr"> 632 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L633" class="LineNr"> 633 </span> <span class="Comment">// difference</span> <span id="L634" class="LineNr"> 634 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L636" class="LineNr"> 636 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i &= signed_arg2<span class="Delimiter">;</span> -<span id="L637" class="LineNr"> 637 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L638" class="LineNr"> 638 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L639" class="LineNr"> 639 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L640" class="LineNr"> 640 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L641" class="LineNr"> 641 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L642" class="LineNr"> 642 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L636" class="LineNr"> 636 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i &= signed_arg2<span class="Delimiter">;</span> +<span id="L637" class="LineNr"> 637 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L638" class="LineNr"> 638 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L639" class="LineNr"> 639 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L640" class="LineNr"> 640 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L641" class="LineNr"> 641 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L642" class="LineNr"> 642 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L643" class="LineNr"> 643 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L644" class="LineNr"> 644 </span><span class="Delimiter">}</span> <span id="L645" class="LineNr"> 645 </span> @@ -708,7 +708,7 @@ if ('onhashchange' in window) { <span id="L647" class="LineNr"> 647 </span> <span id="L648" class="LineNr"> 648 </span><span class="Delimiter">:(code)</span> <span id="L649" class="LineNr"> 649 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L649'>test_and_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L650" class="LineNr"> 650 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L650" class="LineNr"> 650 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L651" class="LineNr"> 651 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L652" class="LineNr"> 652 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L653" class="LineNr"> 653 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -717,7 +717,7 @@ if ('onhashchange' in window) { <span id="L656" class="LineNr"> 656 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L657" class="LineNr"> 657 </span> <span class="Constant">"ff 00 00 00\n"</span> <span class="Comment">// 0x000000ff</span> <span id="L658" class="LineNr"> 658 </span> <span class="Delimiter">);</span> -<span id="L659" class="LineNr"> 659 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L659" class="LineNr"> 659 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L660" class="LineNr"> 660 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L661" class="LineNr"> 661 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L662" class="LineNr"> 662 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -728,16 +728,16 @@ if ('onhashchange' in window) { <span id="L667" class="LineNr"> 667 </span> <span id="L668" class="LineNr"> 668 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L669" class="LineNr"> 669 </span><span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> -<span id="L670" class="LineNr"> 670 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop and"</span> << end<span class="Delimiter">();</span> +<span id="L670" class="LineNr"> 670 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop and"</span> << end<span class="Delimiter">();</span> <span id="L671" class="LineNr"> 671 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L672" class="LineNr"> 672 </span> <span class="Comment">// difference</span> <span id="L673" class="LineNr"> 673 </span> *signed_arg1 &= signed_arg2<span class="Delimiter">;</span> -<span id="L674" class="LineNr"> 674 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L674" class="LineNr"> 674 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L675" class="LineNr"> 675 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L676" class="LineNr"> 676 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L677" class="LineNr"> 677 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L678" class="LineNr"> 678 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L679" class="LineNr"> 679 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L676" class="LineNr"> 676 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L677" class="LineNr"> 677 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L678" class="LineNr"> 678 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L679" class="LineNr"> 679 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L680" class="LineNr"> 680 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L681" class="LineNr"> 681 </span><span class="Delimiter">}</span> <span id="L682" class="LineNr"> 682 </span> @@ -745,14 +745,14 @@ if ('onhashchange' in window) { <span id="L684" class="LineNr"> 684 </span> <span id="L685" class="LineNr"> 685 </span><span class="Delimiter">:(code)</span> <span id="L686" class="LineNr"> 686 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L686'>test_and_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L687" class="LineNr"> 687 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L687" class="LineNr"> 687 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L688" class="LineNr"> 688 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L689" class="LineNr"> 689 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L690" class="LineNr"> 690 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L691" class="LineNr"> 691 </span> <span class="Constant">" 81 e3 0a 0b 0c 0d \n"</span> <span class="Comment">// and 0x0d0c0b0a with EBX</span> <span id="L692" class="LineNr"> 692 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop and) 011 (dest EBX)</span> <span id="L693" class="LineNr"> 693 </span> <span class="Delimiter">);</span> -<span id="L694" class="LineNr"> 694 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L694" class="LineNr"> 694 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L695" class="LineNr"> 695 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L696" class="LineNr"> 696 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L697" class="LineNr"> 697 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -764,17 +764,17 @@ if ('onhashchange' in window) { <span id="L703" class="LineNr"> 703 </span><span class="SalientComment">//:: or</span> <span id="L704" class="LineNr"> 704 </span> <span id="L705" class="LineNr"> 705 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L706" class="LineNr"> 706 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise OR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (or)"</span><span class="Delimiter">);</span> +<span id="L706" class="LineNr"> 706 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise OR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (or)"</span><span class="Delimiter">);</span> <span id="L707" class="LineNr"> 707 </span> <span id="L708" class="LineNr"> 708 </span><span class="Delimiter">:(code)</span> <span id="L709" class="LineNr"> 709 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L709'>test_or_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L710" class="LineNr"> 710 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L710" class="LineNr"> 710 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L711" class="LineNr"> 711 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L712" class="LineNr"> 712 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L713" class="LineNr"> 713 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L714" class="LineNr"> 714 </span> <span class="Constant">" 0d 0a 0b 0c 0d \n"</span> <span class="Comment">// or 0x0d0c0b0a with EAX</span> <span id="L715" class="LineNr"> 715 </span> <span class="Delimiter">);</span> -<span id="L716" class="LineNr"> 716 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L716" class="LineNr"> 716 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L717" class="LineNr"> 717 </span> <span class="Constant">"run: or imm32 0x0d0c0b0a with EAX\n"</span> <span id="L718" class="LineNr"> 718 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> <span id="L719" class="LineNr"> 719 </span> <span class="Delimiter">);</span> @@ -785,14 +785,14 @@ if ('onhashchange' in window) { <span id="L724" class="LineNr"> 724 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L725" class="LineNr"> 725 </span> <span class="Comment">// difference</span> <span id="L726" class="LineNr"> 726 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L727" class="LineNr"> 727 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L728" class="LineNr"> 728 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i |= signed_arg2<span class="Delimiter">;</span> -<span id="L729" class="LineNr"> 729 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L730" class="LineNr"> 730 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L731" class="LineNr"> 731 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L732" class="LineNr"> 732 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L733" class="LineNr"> 733 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L734" class="LineNr"> 734 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L727" class="LineNr"> 727 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L728" class="LineNr"> 728 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i |= signed_arg2<span class="Delimiter">;</span> +<span id="L729" class="LineNr"> 729 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L730" class="LineNr"> 730 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L731" class="LineNr"> 731 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L732" class="LineNr"> 732 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L733" class="LineNr"> 733 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L734" class="LineNr"> 734 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L735" class="LineNr"> 735 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L736" class="LineNr"> 736 </span><span class="Delimiter">}</span> <span id="L737" class="LineNr"> 737 </span> @@ -800,7 +800,7 @@ if ('onhashchange' in window) { <span id="L739" class="LineNr"> 739 </span> <span id="L740" class="LineNr"> 740 </span><span class="Delimiter">:(code)</span> <span id="L741" class="LineNr"> 741 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L741'>test_or_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L742" class="LineNr"> 742 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L742" class="LineNr"> 742 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L743" class="LineNr"> 743 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L744" class="LineNr"> 744 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L745" class="LineNr"> 745 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -809,7 +809,7 @@ if ('onhashchange' in window) { <span id="L748" class="LineNr"> 748 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L749" class="LineNr"> 749 </span> <span class="Constant">"a0 b0 c0 d0\n"</span> <span class="Comment">// 0xd0c0b0a0</span> <span id="L750" class="LineNr"> 750 </span> <span class="Delimiter">);</span> -<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L752" class="LineNr"> 752 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L753" class="LineNr"> 753 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L754" class="LineNr"> 754 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -820,29 +820,29 @@ if ('onhashchange' in window) { <span id="L759" class="LineNr"> 759 </span> <span id="L760" class="LineNr"> 760 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L761" class="LineNr"> 761 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> -<span id="L762" class="LineNr"> 762 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop or"</span> << end<span class="Delimiter">();</span> +<span id="L762" class="LineNr"> 762 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop or"</span> << end<span class="Delimiter">();</span> <span id="L763" class="LineNr"> 763 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L764" class="LineNr"> 764 </span> <span class="Comment">// difference</span> <span id="L765" class="LineNr"> 765 </span> *signed_arg1 |= signed_arg2<span class="Delimiter">;</span> -<span id="L766" class="LineNr"> 766 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L766" class="LineNr"> 766 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L767" class="LineNr"> 767 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L768" class="LineNr"> 768 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L769" class="LineNr"> 769 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L770" class="LineNr"> 770 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L771" class="LineNr"> 771 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L768" class="LineNr"> 768 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L769" class="LineNr"> 769 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L770" class="LineNr"> 770 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L771" class="LineNr"> 771 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L772" class="LineNr"> 772 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L773" class="LineNr"> 773 </span><span class="Delimiter">}</span> <span id="L774" class="LineNr"> 774 </span> <span id="L775" class="LineNr"> 775 </span><span class="Delimiter">:(code)</span> <span id="L776" class="LineNr"> 776 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L776'>test_or_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L777" class="LineNr"> 777 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L777" class="LineNr"> 777 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L778" class="LineNr"> 778 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L780" class="LineNr"> 780 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 81 cb 0a 0b 0c 0d \n"</span> <span class="Comment">// or 0x0d0c0b0a with EBX</span> <span id="L782" class="LineNr"> 782 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 001 (subop or) 011 (dest EBX)</span> <span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">);</span> -<span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -854,17 +854,17 @@ if ('onhashchange' in window) { <span id="L793" class="LineNr"> 793 </span><span class="SalientComment">//:: xor</span> <span id="L794" class="LineNr"> 794 </span> <span id="L795" class="LineNr"> 795 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L796" class="LineNr"> 796 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise XOR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (xor)"</span><span class="Delimiter">);</span> +<span id="L796" class="LineNr"> 796 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise XOR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (xor)"</span><span class="Delimiter">);</span> <span id="L797" class="LineNr"> 797 </span> <span id="L798" class="LineNr"> 798 </span><span class="Delimiter">:(code)</span> <span id="L799" class="LineNr"> 799 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L799'>test_xor_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L800" class="LineNr"> 800 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xddccb0a0</span><span class="Delimiter">;</span> +<span id="L800" class="LineNr"> 800 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xddccb0a0</span><span class="Delimiter">;</span> <span id="L801" class="LineNr"> 801 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L802" class="LineNr"> 802 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L803" class="LineNr"> 803 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L804" class="LineNr"> 804 </span> <span class="Constant">" 35 0a 0b 0c 0d \n"</span> <span class="Comment">// xor 0x0d0c0b0a with EAX</span> <span id="L805" class="LineNr"> 805 </span> <span class="Delimiter">);</span> -<span id="L806" class="LineNr"> 806 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L806" class="LineNr"> 806 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: xor imm32 0x0d0c0b0a with EAX\n"</span> <span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: storing 0xd0c0bbaa\n"</span> <span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">);</span> @@ -875,14 +875,14 @@ if ('onhashchange' in window) { <span id="L814" class="LineNr"> 814 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L815" class="LineNr"> 815 </span> <span class="Comment">// difference</span> <span id="L816" class="LineNr"> 816 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L817" class="LineNr"> 817 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L818" class="LineNr"> 818 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i ^= signed_arg2<span class="Delimiter">;</span> -<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L820" class="LineNr"> 820 </span> SF = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L821" class="LineNr"> 821 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L822" class="LineNr"> 822 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L823" class="LineNr"> 823 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L824" class="LineNr"> 824 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L817" class="LineNr"> 817 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L818" class="LineNr"> 818 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i ^= signed_arg2<span class="Delimiter">;</span> +<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L820" class="LineNr"> 820 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L821" class="LineNr"> 821 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L822" class="LineNr"> 822 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L823" class="LineNr"> 823 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L824" class="LineNr"> 824 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L825" class="LineNr"> 825 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L826" class="LineNr"> 826 </span><span class="Delimiter">}</span> <span id="L827" class="LineNr"> 827 </span> @@ -890,7 +890,7 @@ if ('onhashchange' in window) { <span id="L829" class="LineNr"> 829 </span> <span id="L830" class="LineNr"> 830 </span><span class="Delimiter">:(code)</span> <span id="L831" class="LineNr"> 831 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L831'>test_xor_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L832" class="LineNr"> 832 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L832" class="LineNr"> 832 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L833" class="LineNr"> 833 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L835" class="LineNr"> 835 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -899,7 +899,7 @@ if ('onhashchange' in window) { <span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L839" class="LineNr"> 839 </span> <span class="Constant">"a0 b0 c0 d0\n"</span> <span class="Comment">// 0xd0c0b0a0</span> <span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">);</span> -<span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -910,29 +910,29 @@ if ('onhashchange' in window) { <span id="L849" class="LineNr"> 849 </span> <span id="L850" class="LineNr"> 850 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L851" class="LineNr"> 851 </span><span class="Normal">case</span> <span class="Constant">6</span>: <span class="Delimiter">{</span> -<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop xor"</span> << end<span class="Delimiter">();</span> +<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop xor"</span> << end<span class="Delimiter">();</span> <span id="L853" class="LineNr"> 853 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L854" class="LineNr"> 854 </span> <span class="Comment">// difference</span> <span id="L855" class="LineNr"> 855 </span> *signed_arg1 ^= signed_arg2<span class="Delimiter">;</span> -<span id="L856" class="LineNr"> 856 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L856" class="LineNr"> 856 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L857" class="LineNr"> 857 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L858" class="LineNr"> 858 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L859" class="LineNr"> 859 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L860" class="LineNr"> 860 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L861" class="LineNr"> 861 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L858" class="LineNr"> 858 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L859" class="LineNr"> 859 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L860" class="LineNr"> 860 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L861" class="LineNr"> 861 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L862" class="LineNr"> 862 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L863" class="LineNr"> 863 </span><span class="Delimiter">}</span> <span id="L864" class="LineNr"> 864 </span> <span id="L865" class="LineNr"> 865 </span><span class="Delimiter">:(code)</span> <span id="L866" class="LineNr"> 866 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L866'>test_xor_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L867" class="LineNr"> 867 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L867" class="LineNr"> 867 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L868" class="LineNr"> 868 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L869" class="LineNr"> 869 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L870" class="LineNr"> 870 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L871" class="LineNr"> 871 </span> <span class="Constant">" 81 f3 0a 0b 0c 0d \n"</span> <span class="Comment">// xor 0x0d0c0b0a with EBX</span> <span id="L872" class="LineNr"> 872 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 110 (subop xor) 011 (dest EBX)</span> <span id="L873" class="LineNr"> 873 </span> <span class="Delimiter">);</span> -<span id="L874" class="LineNr"> 874 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L874" class="LineNr"> 874 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L875" class="LineNr"> 875 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L876" class="LineNr"> 876 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L877" class="LineNr"> 877 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -944,17 +944,17 @@ if ('onhashchange' in window) { <span id="L883" class="LineNr"> 883 </span><span class="SalientComment">//:: compare (cmp)</span> <span id="L884" class="LineNr"> 884 </span> <span id="L885" class="LineNr"> 885 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L886" class="LineNr"> 886 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if <a href='010vm.cc.html#L10'>EAX</a> < imm32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L886" class="LineNr"> 886 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if <a href='010vm.cc.html#L10'>EAX</a> < imm32 (cmp)"</span><span class="Delimiter">);</span> <span id="L887" class="LineNr"> 887 </span> <span id="L888" class="LineNr"> 888 </span><span class="Delimiter">:(code)</span> <span id="L889" class="LineNr"> 889 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L889'>test_compare_EAX_with_imm32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L890" class="LineNr"> 890 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L890" class="LineNr"> 890 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L891" class="LineNr"> 891 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L892" class="LineNr"> 892 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L893" class="LineNr"> 893 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L894" class="LineNr"> 894 </span> <span class="Constant">" 3d 07 0b 0c 0d \n"</span> <span class="Comment">// compare EAX with 0x0d0c0b07</span> <span id="L895" class="LineNr"> 895 </span> <span class="Delimiter">);</span> -<span id="L896" class="LineNr"> 896 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L896" class="LineNr"> 896 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L897" class="LineNr"> 897 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b07\n"</span> <span id="L898" class="LineNr"> 898 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> <span id="L899" class="LineNr"> 899 </span> <span class="Delimiter">);</span> @@ -962,84 +962,84 @@ if ('onhashchange' in window) { <span id="L901" class="LineNr"> 901 </span> <span id="L902" class="LineNr"> 902 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L903" class="LineNr"> 903 </span><span class="Normal">case</span> <span class="Constant">0x3d</span>: <span class="Delimiter">{</span> <span class="Comment">// compare EAX with imm32</span> -<span id="L904" class="LineNr"> 904 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg1 = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L904" class="LineNr"> 904 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg1 = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L905" class="LineNr"> 905 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L906" class="LineNr"> 906 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> +<span id="L906" class="LineNr"> 906 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> <span id="L907" class="LineNr"> 907 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L908" class="LineNr"> 908 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L909" class="LineNr"> 909 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L909" class="LineNr"> 909 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L910" class="LineNr"> 910 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> full_signed_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>signed_arg1<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> -<span id="L911" class="LineNr"> 911 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>signed_difference != full_signed_difference<span class="Delimiter">);</span> +<span id="L911" class="LineNr"> 911 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_difference != full_signed_difference<span class="Delimiter">);</span> <span id="L912" class="LineNr"> 912 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg1<span class="Delimiter">);</span> <span id="L913" class="LineNr"> 913 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> <span id="L914" class="LineNr"> 914 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L915" class="LineNr"> 915 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L916" class="LineNr"> 916 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> -<span id="L917" class="LineNr"> 917 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L916" class="LineNr"> 916 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> +<span id="L917" class="LineNr"> 917 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L918" class="LineNr"> 918 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L919" class="LineNr"> 919 </span><span class="Delimiter">}</span> <span id="L920" class="LineNr"> 920 </span> <span id="L921" class="LineNr"> 921 </span><span class="Delimiter">:(code)</span> <span id="L922" class="LineNr"> 922 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L922'>test_compare_EAX_with_imm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L923" class="LineNr"> 923 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L923" class="LineNr"> 923 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L924" class="LineNr"> 924 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L925" class="LineNr"> 925 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L926" class="LineNr"> 926 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L927" class="LineNr"> 927 </span> <span class="Constant">" 3d 0d 0c 0b 0a \n"</span> <span class="Comment">// compare EAX with imm32</span> <span id="L928" class="LineNr"> 928 </span> <span class="Delimiter">);</span> -<span id="L929" class="LineNr"> 929 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L929" class="LineNr"> 929 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L930" class="LineNr"> 930 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0a0b0c0d\n"</span> <span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> <span id="L932" class="LineNr"> 932 </span> <span class="Delimiter">);</span> <span id="L933" class="LineNr"> 933 </span><span class="Delimiter">}</span> <span id="L934" class="LineNr"> 934 </span> <span id="L935" class="LineNr"> 935 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L935'>test_compare_EAX_with_imm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L936" class="LineNr"> 936 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L936" class="LineNr"> 936 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L937" class="LineNr"> 937 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L938" class="LineNr"> 938 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L939" class="LineNr"> 939 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L940" class="LineNr"> 940 </span> <span class="Constant">" 3d 00 00 00 80\n"</span> <span class="Comment">// compare EAX with smallest negative signed integer</span> <span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">);</span> -<span id="L942" class="LineNr"> 942 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L942" class="LineNr"> 942 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L943" class="LineNr"> 943 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x80000000\n"</span> <span id="L944" class="LineNr"> 944 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> <span id="L945" class="LineNr"> 945 </span> <span class="Delimiter">);</span> <span id="L946" class="LineNr"> 946 </span><span class="Delimiter">}</span> <span id="L947" class="LineNr"> 947 </span> <span id="L948" class="LineNr"> 948 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L948'>test_compare_EAX_with_imm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L949" class="LineNr"> 949 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L949" class="LineNr"> 949 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> <span id="L950" class="LineNr"> 950 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L951" class="LineNr"> 951 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L952" class="LineNr"> 952 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L953" class="LineNr"> 953 </span> <span class="Constant">" 3d 01 00 00 00\n"</span> <span class="Comment">// compare EAX with 1</span> <span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">);</span> -<span id="L955" class="LineNr"> 955 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L955" class="LineNr"> 955 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x00000001\n"</span> <span id="L957" class="LineNr"> 957 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> <span id="L958" class="LineNr"> 958 </span> <span class="Delimiter">);</span> <span id="L959" class="LineNr"> 959 </span><span class="Delimiter">}</span> <span id="L960" class="LineNr"> 960 </span> <span id="L961" class="LineNr"> 961 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L961'>test_compare_EAX_with_imm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L962" class="LineNr"> 962 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L962" class="LineNr"> 962 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> <span id="L963" class="LineNr"> 963 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L964" class="LineNr"> 964 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L965" class="LineNr"> 965 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L966" class="LineNr"> 966 </span> <span class="Constant">" 3d ff ff ff ff\n"</span> <span class="Comment">// compare EAX with -1</span> <span id="L967" class="LineNr"> 967 </span> <span class="Delimiter">);</span> -<span id="L968" class="LineNr"> 968 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L968" class="LineNr"> 968 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L969" class="LineNr"> 969 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0xffffffff\n"</span> <span id="L970" class="LineNr"> 970 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> <span id="L971" class="LineNr"> 971 </span> <span class="Delimiter">);</span> <span id="L972" class="LineNr"> 972 </span><span class="Delimiter">}</span> <span id="L973" class="LineNr"> 973 </span> <span id="L974" class="LineNr"> 974 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L974'>test_compare_EAX_with_imm32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L975" class="LineNr"> 975 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L975" class="LineNr"> 975 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L976" class="LineNr"> 976 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L977" class="LineNr"> 977 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L978" class="LineNr"> 978 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L979" class="LineNr"> 979 </span> <span class="Constant">" 3d 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with EAX</span> <span id="L980" class="LineNr"> 980 </span> <span class="Delimiter">);</span> -<span id="L981" class="LineNr"> 981 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L981" class="LineNr"> 981 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L982" class="LineNr"> 982 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b0a\n"</span> <span id="L983" class="LineNr"> 983 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> <span id="L984" class="LineNr"> 984 </span> <span class="Delimiter">);</span> @@ -1048,14 +1048,14 @@ if ('onhashchange' in window) { <span id="L987" class="LineNr"> 987 </span><span class="Comment">//:</span> <span id="L988" class="LineNr"> 988 </span> <span id="L989" class="LineNr"> 989 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L989'>test_compare_imm32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L990" class="LineNr"> 990 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L990" class="LineNr"> 990 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L991" class="LineNr"> 991 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L992" class="LineNr"> 992 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L993" class="LineNr"> 993 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L994" class="LineNr"> 994 </span> <span class="Constant">" 81 fb 07 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b07 with EBX</span> <span id="L995" class="LineNr"> 995 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 011 (dest EBX)</span> <span id="L996" class="LineNr"> 996 </span> <span class="Delimiter">);</span> -<span id="L997" class="LineNr"> 997 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L997" class="LineNr"> 997 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L998" class="LineNr"> 998 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L999" class="LineNr"> 999 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L1000" class="LineNr">1000 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07\n"</span> @@ -1065,31 +1065,31 @@ if ('onhashchange' in window) { <span id="L1004" class="LineNr">1004 </span> <span id="L1005" class="LineNr">1005 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L1006" class="LineNr">1006 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> -<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop compare"</span> << end<span class="Delimiter">();</span> +<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop compare"</span> << end<span class="Delimiter">();</span> <span id="L1008" class="LineNr">1008 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> tmp1 = *signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L1009" class="LineNr">1009 </span> SF = <span class="Delimiter">(</span>tmp1 < <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L1010" class="LineNr">1010 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Delimiter">(</span>tmp1 == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L1010" class="LineNr">1010 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>tmp1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L1011" class="LineNr">1011 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> tmp2 = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> -<span id="L1012" class="LineNr">1012 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>tmp1 != tmp2<span class="Delimiter">);</span> +<span id="L1012" class="LineNr">1012 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>tmp1 != tmp2<span class="Delimiter">);</span> <span id="L1013" class="LineNr">1013 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> <span id="L1014" class="LineNr">1014 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> <span id="L1015" class="LineNr">1015 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> tmp3 = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L1016" class="LineNr">1016 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> tmp4 = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> -<span id="L1017" class="LineNr">1017 </span> <a href='010vm.cc.html#L81'>CF</a> = <span class="Delimiter">(</span>tmp3 != tmp4<span class="Delimiter">);</span> -<span id="L1018" class="LineNr">1018 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> +<span id="L1017" class="LineNr">1017 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>tmp3 != tmp4<span class="Delimiter">);</span> +<span id="L1018" class="LineNr">1018 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L1019" class="LineNr">1019 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1020" class="LineNr">1020 </span><span class="Delimiter">}</span> <span id="L1021" class="LineNr">1021 </span> <span id="L1022" class="LineNr">1022 </span><span class="Delimiter">:(code)</span> <span id="L1023" class="LineNr">1023 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1023'>test_compare_rm32_with_imm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1024" class="LineNr">1024 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L1024" class="LineNr">1024 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L1025" class="LineNr">1025 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1026" class="LineNr">1026 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1027" class="LineNr">1027 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1028" class="LineNr">1028 </span> <span class="Constant">" 81 f8 0d 0c 0b 0a \n"</span> <span class="Comment">// compare EAX with imm32</span> <span id="L1029" class="LineNr">1029 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1030" class="LineNr">1030 </span> <span class="Delimiter">);</span> -<span id="L1031" class="LineNr">1031 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1031" class="LineNr">1031 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1032" class="LineNr">1032 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1033" class="LineNr">1033 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1034" class="LineNr">1034 </span> <span class="Constant">"run: imm32 is 0x0a0b0c0d\n"</span> @@ -1099,14 +1099,14 @@ if ('onhashchange' in window) { <span id="L1038" class="LineNr">1038 </span><span class="Delimiter">}</span> <span id="L1039" class="LineNr">1039 </span> <span id="L1040" class="LineNr">1040 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1040'>test_compare_rm32_with_imm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1041" class="LineNr">1041 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L1041" class="LineNr">1041 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> <span id="L1042" class="LineNr">1042 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1043" class="LineNr">1043 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1044" class="LineNr">1044 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1045" class="LineNr">1045 </span> <span class="Constant">" 81 f8 00 00 00 80\n"</span> <span class="Comment">// compare EAX with smallest negative signed integer</span> <span id="L1046" class="LineNr">1046 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1047" class="LineNr">1047 </span> <span class="Delimiter">);</span> -<span id="L1048" class="LineNr">1048 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1048" class="LineNr">1048 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1049" class="LineNr">1049 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: imm32 is 0x80000000\n"</span> @@ -1116,14 +1116,14 @@ if ('onhashchange' in window) { <span id="L1055" class="LineNr">1055 </span><span class="Delimiter">}</span> <span id="L1056" class="LineNr">1056 </span> <span id="L1057" class="LineNr">1057 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1057'>test_compare_rm32_with_imm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1058" class="LineNr">1058 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L1058" class="LineNr">1058 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> <span id="L1059" class="LineNr">1059 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1060" class="LineNr">1060 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1061" class="LineNr">1061 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1062" class="LineNr">1062 </span> <span class="Constant">" 81 f8 01 00 00 00\n"</span> <span class="Comment">// compare EAX with 1</span> <span id="L1063" class="LineNr">1063 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1064" class="LineNr">1064 </span> <span class="Delimiter">);</span> -<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1066" class="LineNr">1066 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1067" class="LineNr">1067 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1068" class="LineNr">1068 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> @@ -1133,14 +1133,14 @@ if ('onhashchange' in window) { <span id="L1072" class="LineNr">1072 </span><span class="Delimiter">}</span> <span id="L1073" class="LineNr">1073 </span> <span id="L1074" class="LineNr">1074 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1074'>test_compare_rm32_with_imm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1075" class="LineNr">1075 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L1075" class="LineNr">1075 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> <span id="L1076" class="LineNr">1076 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1077" class="LineNr">1077 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1078" class="LineNr">1078 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1079" class="LineNr">1079 </span> <span class="Constant">" 81 f8 ff ff ff ff\n"</span> <span class="Comment">// compare EAX with -1</span> <span id="L1080" class="LineNr">1080 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1081" class="LineNr">1081 </span> <span class="Delimiter">);</span> -<span id="L1082" class="LineNr">1082 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1082" class="LineNr">1082 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1083" class="LineNr">1083 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> <span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: imm32 is 0xffffffff\n"</span> @@ -1151,14 +1151,14 @@ if ('onhashchange' in window) { <span id="L1090" class="LineNr">1090 </span> <span id="L1091" class="LineNr">1091 </span><span class="Delimiter">:(code)</span> <span id="L1092" class="LineNr">1092 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1092'>test_compare_imm32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1093" class="LineNr">1093 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L1093" class="LineNr">1093 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L1094" class="LineNr">1094 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1095" class="LineNr">1095 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1096" class="LineNr">1096 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1097" class="LineNr">1097 </span> <span class="Constant">" 81 fb 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with EBX</span> <span id="L1098" class="LineNr">1098 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 011 (dest EBX)</span> <span id="L1099" class="LineNr">1099 </span> <span class="Delimiter">);</span> -<span id="L1100" class="LineNr">1100 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1100" class="LineNr">1100 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1101" class="LineNr">1101 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1102" class="LineNr">1102 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L1103" class="LineNr">1103 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -1168,7 +1168,7 @@ if ('onhashchange' in window) { <span id="L1107" class="LineNr">1107 </span> <span id="L1108" class="LineNr">1108 </span><span class="Delimiter">:(code)</span> <span id="L1109" class="LineNr">1109 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1109'>test_compare_imm32_with_mem_at_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1110" class="LineNr">1110 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1110" class="LineNr">1110 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1111" class="LineNr">1111 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1112" class="LineNr">1112 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1113" class="LineNr">1113 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -1177,7 +1177,7 @@ if ('onhashchange' in window) { <span id="L1116" class="LineNr">1116 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L1117" class="LineNr">1117 </span> <span class="Constant">"0a 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b0a</span> <span id="L1118" class="LineNr">1118 </span> <span class="Delimiter">);</span> -<span id="L1119" class="LineNr">1119 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1119" class="LineNr">1119 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1120" class="LineNr">1120 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1121" class="LineNr">1121 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L1122" class="LineNr">1122 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07\n"</span> @@ -1187,7 +1187,7 @@ if ('onhashchange' in window) { <span id="L1126" class="LineNr">1126 </span> <span id="L1127" class="LineNr">1127 </span><span class="Delimiter">:(code)</span> <span id="L1128" class="LineNr">1128 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1128'>test_compare_imm32_with_mem_at_r32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1129" class="LineNr">1129 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1129" class="LineNr">1129 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1130" class="LineNr">1130 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1131" class="LineNr">1131 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1132" class="LineNr">1132 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -1196,7 +1196,7 @@ if ('onhashchange' in window) { <span id="L1135" class="LineNr">1135 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L1136" class="LineNr">1136 </span> <span class="Constant">"07 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b07</span> <span id="L1137" class="LineNr">1137 </span> <span class="Delimiter">);</span> -<span id="L1138" class="LineNr">1138 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1138" class="LineNr">1138 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1139" class="LineNr">1139 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1140" class="LineNr">1140 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L1141" class="LineNr">1141 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -1206,8 +1206,8 @@ if ('onhashchange' in window) { <span id="L1145" class="LineNr">1145 </span> <span id="L1146" class="LineNr">1146 </span><span class="Delimiter">:(code)</span> <span id="L1147" class="LineNr">1147 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1147'>test_compare_imm32_with_mem_at_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1148" class="LineNr">1148 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> -<span id="L1149" class="LineNr">1149 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1148" class="LineNr">1148 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L1149" class="LineNr">1149 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1150" class="LineNr">1150 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1151" class="LineNr">1151 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1152" class="LineNr">1152 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -1216,7 +1216,7 @@ if ('onhashchange' in window) { <span id="L1155" class="LineNr">1155 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L1156" class="LineNr">1156 </span> <span class="Constant">"0a 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b0a</span> <span id="L1157" class="LineNr">1157 </span> <span class="Delimiter">);</span> -<span id="L1158" class="LineNr">1158 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1158" class="LineNr">1158 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1159" class="LineNr">1159 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> <span id="L1160" class="LineNr">1160 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L1161" class="LineNr">1161 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -1228,13 +1228,13 @@ if ('onhashchange' in window) { <span id="L1167" class="LineNr">1167 </span> <span id="L1168" class="LineNr">1168 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> <span id="L1169" class="LineNr">1169 </span><span class="Comment">// b8 defined earlier to copy imm32 to EAX</span> -<span id="L1170" class="LineNr">1170 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L11'>ECX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1171" class="LineNr">1171 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L12'>EDX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1172" class="LineNr">1172 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L13'>EBX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1173" class="LineNr">1173 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L14'>ESP</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1174" class="LineNr">1174 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L15'>EBP</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1175" class="LineNr">1175 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L16'>ESI</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1176" class="LineNr">1176 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L17'>EDI</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1170" class="LineNr">1170 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L11'>ECX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1171" class="LineNr">1171 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L12'>EDX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1172" class="LineNr">1172 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L13'>EBX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1173" class="LineNr">1173 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L14'>ESP</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1174" class="LineNr">1174 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L15'>EBP</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1175" class="LineNr">1175 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L16'>ESI</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1176" class="LineNr">1176 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L17'>EDI</a> (mov)"</span><span class="Delimiter">);</span> <span id="L1177" class="LineNr">1177 </span> <span id="L1178" class="LineNr">1178 </span><span class="Delimiter">:(code)</span> <span id="L1179" class="LineNr">1179 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1179'>test_copy_imm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -1243,7 +1243,7 @@ if ('onhashchange' in window) { <span id="L1182" class="LineNr">1182 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1183" class="LineNr">1183 </span> <span class="Constant">" bb 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to EBX</span> <span id="L1184" class="LineNr">1184 </span> <span class="Delimiter">);</span> -<span id="L1185" class="LineNr">1185 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1185" class="LineNr">1185 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1186" class="LineNr">1186 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to EBX\n"</span> <span id="L1187" class="LineNr">1187 </span> <span class="Delimiter">);</span> <span id="L1188" class="LineNr">1188 </span><span class="Delimiter">}</span> @@ -1258,26 +1258,26 @@ if ('onhashchange' in window) { <span id="L1197" class="LineNr">1197 </span><span class="Normal">case</span> <span class="Constant">0xbf</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to r32</span> <span id="L1198" class="LineNr">1198 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L1199" class="LineNr">1199 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1200" class="LineNr">1200 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << src << <span class="Constant">" to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1201" class="LineNr">1201 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> +<span id="L1200" class="LineNr">1200 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1201" class="LineNr">1201 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> <span id="L1202" class="LineNr">1202 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1203" class="LineNr">1203 </span><span class="Delimiter">}</span> <span id="L1204" class="LineNr">1204 </span> <span id="L1205" class="LineNr">1205 </span><span class="Comment">//:</span> <span id="L1206" class="LineNr">1206 </span> <span id="L1207" class="LineNr">1207 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1208" class="LineNr">1208 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to rm32 with subop 0 (mov)"</span><span class="Delimiter">);</span> +<span id="L1208" class="LineNr">1208 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to rm32 with subop 0 (mov)"</span><span class="Delimiter">);</span> <span id="L1209" class="LineNr">1209 </span> <span id="L1210" class="LineNr">1210 </span><span class="Delimiter">:(code)</span> <span id="L1211" class="LineNr">1211 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1211'>test_copy_imm32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1212" class="LineNr">1212 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L1212" class="LineNr">1212 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> <span id="L1213" class="LineNr">1213 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1214" class="LineNr">1214 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1215" class="LineNr">1215 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1216" class="LineNr">1216 </span> <span class="Constant">" c7 03 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to *EBX</span> <span id="L1217" class="LineNr">1217 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (subop) 011 (dest EBX)</span> <span id="L1218" class="LineNr">1218 </span> <span class="Delimiter">);</span> -<span id="L1219" class="LineNr">1219 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1219" class="LineNr">1219 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1220" class="LineNr">1220 </span> <span class="Constant">"run: copy imm32 to r/m32\n"</span> <span id="L1221" class="LineNr">1221 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L1222" class="LineNr">1222 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> @@ -1286,16 +1286,16 @@ if ('onhashchange' in window) { <span id="L1225" class="LineNr">1225 </span> <span id="L1226" class="LineNr">1226 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1227" class="LineNr">1227 </span><span class="Normal">case</span> <span class="Constant">0xc7</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to r32</span> -<span id="L1228" class="LineNr">1228 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L1229" class="LineNr">1229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1228" class="LineNr">1228 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L1229" class="LineNr">1229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1230" class="LineNr">1230 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L1231" class="LineNr">1231 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>subop != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L1232" class="LineNr">1232 </span> cerr << <span class="Constant">"unrecognized subop for opcode c7: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> +<span id="L1232" class="LineNr">1232 </span> cerr << <span class="Constant">"unrecognized subop for opcode c7: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> <span id="L1233" class="LineNr">1233 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L1234" class="LineNr">1234 </span> <span class="Delimiter">}</span> <span id="L1235" class="LineNr">1235 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1236" class="LineNr">1236 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1237" class="LineNr">1237 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << src << end<span class="Delimiter">();</span> +<span id="L1237" class="LineNr">1237 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << end<span class="Delimiter">();</span> <span id="L1238" class="LineNr">1238 </span> *dest = src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L1239" class="LineNr">1239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1240" class="LineNr">1240 </span><span class="Delimiter">}</span> @@ -1303,18 +1303,18 @@ if ('onhashchange' in window) { <span id="L1242" class="LineNr">1242 </span><span class="SalientComment">//:: push</span> <span id="L1243" class="LineNr">1243 </span> <span id="L1244" class="LineNr">1244 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1245" class="LineNr">1245 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">"push imm32 to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1245" class="LineNr">1245 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">"push imm32 to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> <span id="L1246" class="LineNr">1246 </span> <span id="L1247" class="LineNr">1247 </span><span class="Delimiter">:(code)</span> <span id="L1248" class="LineNr">1248 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1248'>test_push_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1249" class="LineNr">1249 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1250" class="LineNr">1250 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> +<span id="L1249" class="LineNr">1249 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1250" class="LineNr">1250 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> <span id="L1251" class="LineNr">1251 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1252" class="LineNr">1252 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1253" class="LineNr">1253 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1254" class="LineNr">1254 </span> <span class="Constant">" 68 af 00 00 00 \n"</span> <span class="Comment">// push *EAX to stack</span> <span id="L1255" class="LineNr">1255 </span> <span class="Delimiter">);</span> -<span id="L1256" class="LineNr">1256 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1256" class="LineNr">1256 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1257" class="LineNr">1257 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> imm32 0x000000af\n"</span> <span id="L1258" class="LineNr">1258 </span> <span class="Constant">"run: <a href='010vm.cc.html#L14'>ESP</a> is now 0xbd000010\n"</span> <span id="L1259" class="LineNr">1259 </span> <span class="Constant">"run: <a href='003trace.cc.html#L117'>contents</a> at <a href='010vm.cc.html#L14'>ESP</a>: 0x000000af\n"</span> @@ -1324,30 +1324,30 @@ if ('onhashchange' in window) { <span id="L1263" class="LineNr">1263 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1264" class="LineNr">1264 </span><span class="Normal">case</span> <span class="Constant">0x68</span>: <span class="Delimiter">{</span> <span id="L1265" class="LineNr">1265 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> val = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span><a href='011run.cc.html#L433'>next32</a><span class="Delimiter">());</span> -<span id="L1266" class="LineNr">1266 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << val << end<span class="Delimiter">();</span> +<span id="L1266" class="LineNr">1266 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> <span id="L1267" class="LineNr">1267 </span><span class="CommentedCode">//? cerr << "push: " << val << " => " << Reg[ESP].u << '\n';</span> <span id="L1268" class="LineNr">1268 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> -<span id="L1269" class="LineNr">1269 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"ESP is now 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L1270" class="LineNr">1270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"contents at <a href='010vm.cc.html#L14'>ESP</a>: 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1269" class="LineNr">1269 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"ESP is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1270" class="LineNr">1270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"contents at <a href='010vm.cc.html#L14'>ESP</a>: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1271" class="LineNr">1271 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1272" class="LineNr">1272 </span><span class="Delimiter">}</span> <span id="L1273" class="LineNr">1273 </span> <span id="L1274" class="LineNr">1274 </span><span class="SalientComment">//:: multiply</span> <span id="L1275" class="LineNr">1275 </span> <span id="L1276" class="LineNr">1276 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1277" class="LineNr">1277 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 by imm32 and store result in r32"</span><span class="Delimiter">);</span> +<span id="L1277" class="LineNr">1277 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 by imm32 and store result in r32"</span><span class="Delimiter">);</span> <span id="L1278" class="LineNr">1278 </span> <span id="L1279" class="LineNr">1279 </span><span class="Delimiter">:(code)</span> <span id="L1280" class="LineNr">1280 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1280'>test_multiply_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1281" class="LineNr">1281 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> -<span id="L1282" class="LineNr">1282 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L1281" class="LineNr">1281 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L1282" class="LineNr">1282 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L1283" class="LineNr">1283 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L1284" class="LineNr">1284 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L1285" class="LineNr">1285 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L1286" class="LineNr">1286 </span> <span class="Constant">" 69 c3 04 00 00 00 \n"</span> <span class="Comment">// EAX = EBX * 4</span> <span id="L1287" class="LineNr">1287 </span> <span class="Comment">// ModR/M in binary: 11 (direct) 000 (dest EAX) 011 (src EBX)</span> <span id="L1288" class="LineNr">1288 </span> <span class="Delimiter">);</span> -<span id="L1289" class="LineNr">1289 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L1289" class="LineNr">1289 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L1290" class="LineNr">1290 </span> <span class="Constant">"run: multiply r/m32 by 0x00000004 and store result in EAX\n"</span> <span id="L1291" class="LineNr">1291 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L1292" class="LineNr">1292 </span> <span class="Constant">"run: storing 0x0000000c\n"</span> @@ -1356,18 +1356,18 @@ if ('onhashchange' in window) { <span id="L1295" class="LineNr">1295 </span> <span id="L1296" class="LineNr">1296 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1297" class="LineNr">1297 </span><span class="Normal">case</span> <span class="Constant">0x69</span>: <span class="Delimiter">{</span> -<span id="L1298" class="LineNr">1298 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L1298" class="LineNr">1298 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1299" class="LineNr">1299 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L1300" class="LineNr">1300 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> val = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1301" class="LineNr">1301 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply r/m32 by 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << val << <span class="Constant">" and store result in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1301" class="LineNr">1301 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply r/m32 by 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << <span class="Constant">" and store result in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1302" class="LineNr">1302 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1303" class="LineNr">1303 </span> <span class="Normal">int32_t</span> result = *signed_arg1 * val<span class="Delimiter">;</span> <span id="L1304" class="LineNr">1304 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> * val<span class="Delimiter">;</span> -<span id="L1305" class="LineNr">1305 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> -<span id="L1306" class="LineNr">1306 </span> <a href='010vm.cc.html#L81'>CF</a> = <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">;</span> -<span id="L1307" class="LineNr">1307 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L80'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L81'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L82'>OF</a> << end<span class="Delimiter">();</span> -<span id="L1308" class="LineNr">1308 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> -<span id="L1309" class="LineNr">1309 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L1305" class="LineNr">1305 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> +<span id="L1306" class="LineNr">1306 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> +<span id="L1307" class="LineNr">1307 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L1308" class="LineNr">1308 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> +<span id="L1309" class="LineNr">1309 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L1310" class="LineNr">1310 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1311" class="LineNr">1311 </span><span class="Delimiter">}</span> </pre> diff --git a/html/016index_addressing.cc.html b/html/016index_addressing.cc.html index 82714dc7..79b5b615 100644 --- a/html/016index_addressing.cc.html +++ b/html/016index_addressing.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> @@ -60,8 +60,8 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(code)</span> <span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L4'>test_add_r32_to_mem_at_r32_with_sib</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L6" class="LineNr"> 6 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L6" class="LineNr"> 6 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L7" class="LineNr"> 7 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L9" class="LineNr"> 9 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -71,7 +71,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L14" class="LineNr"> 14 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> -<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: effective address is 0x00002000\n"</span> @@ -85,36 +85,36 @@ if ('onhashchange' in window) { <span id="L27" class="LineNr"> 27 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L28" class="LineNr"> 28 </span><span class="Delimiter">:(code)</span> <span id="L29" class="LineNr"> 29 </span><span class="Normal">uint32_t</span> <a href='016index_addressing.cc.html#L29'>effective_address_from_sib</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> mod<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> sib = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> sib = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L31" class="LineNr"> 31 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> base = sib&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>base != <a href='010vm.cc.html#L15'>EBP</a> || mod != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> addr = <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[base]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>base<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L34" class="LineNr"> 34 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[base]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>base<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="Comment">// base == EBP && mod == 0</span> <span id="L39" class="LineNr"> 39 </span> addr = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span class="Comment">// ignore base</span> -<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> index = <span class="Delimiter">(</span>sib>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>index == <a href='010vm.cc.html#L14'>ESP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="Comment">// ignore index and scale</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> scale = <span class="Delimiter">(</span><span class="Constant">1</span> << <span class="Delimiter">(</span>sib>><span class="Constant">6</span><span class="Delimiter">));</span> -<span id="L49" class="LineNr"> 49 </span> addr += <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[index]<span class="Delimiter">.</span>i*scale<span class="Delimiter">;</span> <span class="Comment">// treat index register as signed. Maybe base as well? But we'll always ensure it's non-negative.</span> -<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" (after adding "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>index<span class="Delimiter">)</span> << <span class="Constant">"*"</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>scale<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L49" class="LineNr"> 49 </span> addr += <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[index]<span class="Delimiter">.</span>i*scale<span class="Delimiter">;</span> <span class="Comment">// treat index register as signed. Maybe base as well? But we'll always ensure it's non-negative.</span> +<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>index<span class="Delimiter">)</span> << <span class="Constant">"*"</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>scale<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> <span id="L52" class="LineNr"> 52 </span> <span class="Identifier">return</span> addr<span class="Delimiter">;</span> <span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> <span id="L54" class="LineNr"> 54 </span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">:(code)</span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L56'>test_add_r32_to_mem_at_base_r32_index_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x2</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L57" class="LineNr"> 57 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L58" class="LineNr"> 58 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L59" class="LineNr"> 59 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x2</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L60" class="LineNr"> 60 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L61" class="LineNr"> 61 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L62" class="LineNr"> 62 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L67" class="LineNr"> 67 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">);</span> -<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L70" class="LineNr"> 70 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L71" class="LineNr"> 71 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding ECX*1)\n"</span> @@ -134,7 +134,7 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">:(code)</span> <span id="L78" class="LineNr"> 78 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L78'>test_add_r32_to_mem_at_displacement_using_sib</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L79" class="LineNr"> 79 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> <span id="L80" class="LineNr"> 80 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L82" class="LineNr"> 82 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -144,7 +144,7 @@ if ('onhashchange' in window) { <span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L87" class="LineNr"> 87 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">);</span> -<span id="L89" class="LineNr"> 89 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L89" class="LineNr"> 89 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)\n"</span> <span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: effective address is 0x00002000\n"</span> @@ -156,9 +156,9 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">:(code)</span> <span id="L100" class="LineNr">100 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L100'>test_add_r32_to_mem_at_base_r32_index_r32_plus_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L102" class="LineNr">102 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L103" class="LineNr">103 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L101" class="LineNr">101 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L102" class="LineNr">102 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L103" class="LineNr">103 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L104" class="LineNr">104 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L105" class="LineNr">105 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -168,7 +168,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr">110 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L111" class="LineNr">111 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">);</span> -<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L114" class="LineNr">114 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L115" class="LineNr">115 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L116" class="LineNr">116 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)\n"</span> @@ -186,9 +186,9 @@ if ('onhashchange' in window) { <span id="L128" class="LineNr">128 </span> <span id="L129" class="LineNr">129 </span><span class="Delimiter">:(code)</span> <span id="L130" class="LineNr">130 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L130'>test_add_r32_to_mem_at_base_r32_index_r32_plus_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L132" class="LineNr">132 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L133" class="LineNr">133 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L131" class="LineNr">131 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L132" class="LineNr">132 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L133" class="LineNr">133 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L134" class="LineNr">134 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L135" class="LineNr">135 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L136" class="LineNr">136 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L140" class="LineNr">140 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L141" class="LineNr">141 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> <span id="L142" class="LineNr">142 </span> <span class="Delimiter">);</span> -<span id="L143" class="LineNr">143 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L143" class="LineNr">143 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L144" class="LineNr">144 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> <span id="L145" class="LineNr">145 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L146" class="LineNr">146 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)\n"</span> diff --git a/html/017jump_disp8.cc.html b/html/017jump_disp8.cc.html index 342fed6e..4c32c45b 100644 --- a/html/017jump_disp8.cc.html +++ b/html/017jump_disp8.cc.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; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SalientComment { color: #0000af; } --> </style> @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: jump</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away (jmp)"</span><span class="Delimiter">);</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away (jmp)"</span><span class="Delimiter">);</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(code)</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L9'>test_jump_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -73,18 +73,18 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr"> 14 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L15" class="LineNr"> 15 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L17" class="LineNr"> 17 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: 0x00000001 opcode: eb\n"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">);</span> -<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">case</span> <span class="Constant">0xeb</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> @@ -92,11 +92,11 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span><span class="SalientComment">//:: jump if equal/zero</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if equal, if <a href='010vm.cc.html#L80'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L39'>test_je_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -104,19 +104,19 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L46" class="LineNr"> 46 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">);</span> -<span id="L48" class="LineNr"> 48 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L48" class="LineNr"> 48 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L49" class="LineNr"> 49 </span> <span class="Constant">"run: 0x00000001 opcode: 74\n"</span> <span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">);</span> -<span id="L53" class="LineNr"> 53 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L53" class="LineNr"> 53 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> <span id="L55" class="LineNr"> 55 </span> <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L57" class="LineNr"> 57 </span><span class="Normal">case</span> <span class="Constant">0x74</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span id="L66" class="LineNr"> 66 </span><span class="Delimiter">:(code)</span> <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L67'>test_je_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L69" class="LineNr"> 69 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L71" class="LineNr"> 71 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -132,22 +132,22 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L74" class="LineNr"> 74 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> -<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: 0x00000001 opcode: 74\n"</span> <span id="L78" class="LineNr"> 78 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> -<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="SalientComment">//:: jump if not equal/not zero</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if not equal, if <a href='010vm.cc.html#L80'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> <span id="L88" class="LineNr"> 88 </span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">:(code)</span> <span id="L90" class="LineNr"> 90 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L90'>test_jne_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L92" class="LineNr"> 92 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -155,19 +155,19 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">);</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L100" class="LineNr">100 </span> <span class="Constant">"run: 0x00000001 opcode: 75\n"</span> <span id="L101" class="LineNr">101 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L102" class="LineNr">102 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">);</span> -<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L108" class="LineNr">108 </span><span class="Normal">case</span> <span class="Constant">0x75</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !ZF</span> -<span id="L109" class="LineNr">109 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> +<span id="L109" class="LineNr">109 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L110" class="LineNr">110 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L112" class="LineNr">112 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -175,7 +175,7 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="Delimiter">:(code)</span> <span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L118'>test_jne_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L120" class="LineNr">120 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L122" class="LineNr">122 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -183,25 +183,25 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L125" class="LineNr">125 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">);</span> -<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L128" class="LineNr">128 </span> <span class="Constant">"run: 0x00000001 opcode: 75\n"</span> <span id="L129" class="LineNr">129 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L130" class="LineNr">130 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> -<span id="L132" class="LineNr">132 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L132" class="LineNr">132 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> <span id="L134" class="LineNr">134 </span> <span id="L135" class="LineNr">135 </span><span class="SalientComment">//:: jump if greater</span> <span id="L136" class="LineNr">136 </span> <span id="L137" class="LineNr">137 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater (signed), if <a href='010vm.cc.html#L80'>ZF</a> is unset and SF == <a href='010vm.cc.html#L82'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is unset and <a href='010vm.cc.html#L81'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> <span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L142'>test_jg_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L143" class="LineNr">143 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L144" class="LineNr">144 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -209,27 +209,27 @@ if ('onhashchange' in window) { <span id="L150" class="LineNr">150 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L151" class="LineNr">151 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L152" class="LineNr">152 </span> <span class="Delimiter">);</span> -<span id="L153" class="LineNr">153 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L153" class="LineNr">153 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L154" class="LineNr">154 </span> <span class="Constant">"run: 0x00000001 opcode: 7f\n"</span> <span id="L155" class="LineNr">155 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L156" class="LineNr">156 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L157" class="LineNr">157 </span> <span class="Delimiter">);</span> -<span id="L158" class="LineNr">158 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L158" class="LineNr">158 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> <span id="L160" class="LineNr">160 </span> <span id="L161" class="LineNr">161 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L162" class="LineNr">162 </span><span class="Normal">case</span> <span class="Constant">0x7f</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF == OF and !ZF</span> -<span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L82'>OF</a> && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a> && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> <span id="L170" class="LineNr">170 </span><span class="Normal">case</span> <span class="Constant">0x77</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !CF and !ZF</span> -<span id="L171" class="LineNr">171 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> +<span id="L171" class="LineNr">171 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L172" class="LineNr">172 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L174" class="LineNr">174 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -237,9 +237,9 @@ if ('onhashchange' in window) { <span id="L178" class="LineNr">178 </span> <span id="L179" class="LineNr">179 </span><span class="Delimiter">:(code)</span> <span id="L180" class="LineNr">180 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L180'>test_jg_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L181" class="LineNr">181 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L181" class="LineNr">181 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L182" class="LineNr">182 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L184" class="LineNr">184 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L186" class="LineNr">186 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -247,24 +247,24 @@ if ('onhashchange' in window) { <span id="L188" class="LineNr">188 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L189" class="LineNr">189 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L190" class="LineNr">190 </span> <span class="Delimiter">);</span> -<span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L192" class="LineNr">192 </span> <span class="Constant">"run: 0x00000001 opcode: 7f\n"</span> <span id="L193" class="LineNr">193 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L194" class="LineNr">194 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L195" class="LineNr">195 </span> <span class="Delimiter">);</span> -<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> <span id="L198" class="LineNr">198 </span> <span id="L199" class="LineNr">199 </span><span class="SalientComment">//:: jump if greater or equal</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal (signed), if SF == <a href='010vm.cc.html#L82'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(code)</span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L206'>test_jge_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L209" class="LineNr">209 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L211" class="LineNr">211 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -272,27 +272,27 @@ if ('onhashchange' in window) { <span id="L213" class="LineNr">213 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L214" class="LineNr">214 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L215" class="LineNr">215 </span> <span class="Delimiter">);</span> -<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L217" class="LineNr">217 </span> <span class="Constant">"run: 0x00000001 opcode: 7d\n"</span> <span id="L218" class="LineNr">218 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L219" class="LineNr">219 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L220" class="LineNr">220 </span> <span class="Delimiter">);</span> -<span id="L221" class="LineNr">221 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L221" class="LineNr">221 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L222" class="LineNr">222 </span><span class="Delimiter">}</span> <span id="L223" class="LineNr">223 </span> <span id="L224" class="LineNr">224 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x7d</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF == OF</span> -<span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L229" class="LineNr">229 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> <span id="L231" class="LineNr">231 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> <span id="L233" class="LineNr">233 </span><span class="Normal">case</span> <span class="Constant">0x73</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !CF</span> -<span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> +<span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L235" class="LineNr">235 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L237" class="LineNr">237 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> <span id="L239" class="LineNr">239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -301,7 +301,7 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr">242 </span><span class="Delimiter">:(code)</span> <span id="L243" class="LineNr">243 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L243'>test_jge_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L244" class="LineNr">244 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L246" class="LineNr">246 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L248" class="LineNr">248 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -309,25 +309,25 @@ if ('onhashchange' in window) { <span id="L250" class="LineNr">250 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L251" class="LineNr">251 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">);</span> -<span id="L253" class="LineNr">253 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L253" class="LineNr">253 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L254" class="LineNr">254 </span> <span class="Constant">"run: 0x00000001 opcode: 7d\n"</span> <span id="L255" class="LineNr">255 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L256" class="LineNr">256 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L257" class="LineNr">257 </span> <span class="Delimiter">);</span> -<span id="L258" class="LineNr">258 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L258" class="LineNr">258 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> <span id="L260" class="LineNr">260 </span> <span id="L261" class="LineNr">261 </span><span class="SalientComment">//:: jump if lesser</span> <span id="L262" class="LineNr">262 </span> <span id="L263" class="LineNr">263 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser (signed), if SF != <a href='010vm.cc.html#L82'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> -<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> +<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <span id="L267" class="LineNr">267 </span><span class="Delimiter">:(code)</span> <span id="L268" class="LineNr">268 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L268'>test_jl_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L269" class="LineNr">269 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L269" class="LineNr">269 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L270" class="LineNr">270 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L274" class="LineNr">274 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -335,27 +335,27 @@ if ('onhashchange' in window) { <span id="L276" class="LineNr">276 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L277" class="LineNr">277 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L278" class="LineNr">278 </span> <span class="Delimiter">);</span> -<span id="L279" class="LineNr">279 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L279" class="LineNr">279 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L280" class="LineNr">280 </span> <span class="Constant">"run: 0x00000001 opcode: 7c\n"</span> <span id="L281" class="LineNr">281 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L282" class="LineNr">282 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L283" class="LineNr">283 </span> <span class="Delimiter">);</span> -<span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L285" class="LineNr">285 </span><span class="Delimiter">}</span> <span id="L286" class="LineNr">286 </span> <span id="L287" class="LineNr">287 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L288" class="LineNr">288 </span><span class="Normal">case</span> <span class="Constant">0x7c</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF != OF</span> -<span id="L289" class="LineNr">289 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L289" class="LineNr">289 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L292" class="LineNr">292 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L293" class="LineNr">293 </span> <span class="Delimiter">}</span> <span id="L294" class="LineNr">294 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L295" class="LineNr">295 </span><span class="Delimiter">}</span> <span id="L296" class="LineNr">296 </span><span class="Normal">case</span> <span class="Constant">0x72</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if CF</span> -<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L300" class="LineNr">300 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> <span id="L302" class="LineNr">302 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -363,9 +363,9 @@ if ('onhashchange' in window) { <span id="L304" class="LineNr">304 </span> <span id="L305" class="LineNr">305 </span><span class="Delimiter">:(code)</span> <span id="L306" class="LineNr">306 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L306'>test_jl_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L307" class="LineNr">307 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L307" class="LineNr">307 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L308" class="LineNr">308 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L310" class="LineNr">310 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L312" class="LineNr">312 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -373,25 +373,25 @@ if ('onhashchange' in window) { <span id="L314" class="LineNr">314 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L315" class="LineNr">315 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L316" class="LineNr">316 </span> <span class="Delimiter">);</span> -<span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L318" class="LineNr">318 </span> <span class="Constant">"run: 0x00000001 opcode: 7c\n"</span> <span id="L319" class="LineNr">319 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L320" class="LineNr">320 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> -<span id="L322" class="LineNr">322 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L322" class="LineNr">322 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> <span id="L324" class="LineNr">324 </span> <span id="L325" class="LineNr">325 </span><span class="SalientComment">//:: jump if lesser or equal</span> <span id="L326" class="LineNr">326 </span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal (signed), if <a href='010vm.cc.html#L80'>ZF</a> is set or SF != <a href='010vm.cc.html#L82'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> -<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is set or <a href='010vm.cc.html#L81'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> +<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> +<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> <span id="L330" class="LineNr">330 </span> <span id="L331" class="LineNr">331 </span><span class="Delimiter">:(code)</span> <span id="L332" class="LineNr">332 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L332'>test_jle_disp8_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L333" class="LineNr">333 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L333" class="LineNr">333 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L334" class="LineNr">334 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L336" class="LineNr">336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L338" class="LineNr">338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -399,19 +399,19 @@ if ('onhashchange' in window) { <span id="L340" class="LineNr">340 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> -<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L344" class="LineNr">344 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> <span id="L345" class="LineNr">345 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L346" class="LineNr">346 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L347" class="LineNr">347 </span> <span class="Delimiter">);</span> -<span id="L348" class="LineNr">348 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L348" class="LineNr">348 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> <span id="L350" class="LineNr">350 </span> <span id="L351" class="LineNr">351 </span><span class="Delimiter">:(code)</span> <span id="L352" class="LineNr">352 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L352'>test_jle_disp8_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L353" class="LineNr">353 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L354" class="LineNr">354 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L358" class="LineNr">358 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -419,27 +419,27 @@ if ('onhashchange' in window) { <span id="L360" class="LineNr">360 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L361" class="LineNr">361 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L362" class="LineNr">362 </span> <span class="Delimiter">);</span> -<span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L364" class="LineNr">364 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> <span id="L365" class="LineNr">365 </span> <span class="Constant">"run: jump 5\n"</span> <span id="L366" class="LineNr">366 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L367" class="LineNr">367 </span> <span class="Delimiter">);</span> -<span id="L368" class="LineNr">368 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L368" class="LineNr">368 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> <span id="L370" class="LineNr">370 </span> <span id="L371" class="LineNr">371 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L372" class="LineNr">372 </span><span class="Normal">case</span> <span class="Constant">0x7e</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF or SF != OF</span> -<span id="L373" class="LineNr">373 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L373" class="LineNr">373 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L376" class="LineNr">376 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr">378 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> <span id="L380" class="LineNr">380 </span><span class="Normal">case</span> <span class="Constant">0x76</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF or CF</span> -<span id="L381" class="LineNr">381 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L325'>next</a><span class="Delimiter">());</span> -<span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || <a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L381" class="LineNr">381 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L384" class="LineNr">384 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> <span id="L386" class="LineNr">386 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -447,9 +447,9 @@ if ('onhashchange' in window) { <span id="L388" class="LineNr">388 </span> <span id="L389" class="LineNr">389 </span><span class="Delimiter">:(code)</span> <span id="L390" class="LineNr">390 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L390'>test_jle_disp8_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L391" class="LineNr">391 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L391" class="LineNr">391 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L392" class="LineNr">392 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L394" class="LineNr">394 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L396" class="LineNr">396 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -457,12 +457,12 @@ if ('onhashchange' in window) { <span id="L398" class="LineNr">398 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> <span id="L399" class="LineNr">399 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> <span id="L400" class="LineNr">400 </span> <span class="Delimiter">);</span> -<span id="L401" class="LineNr">401 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L401" class="LineNr">401 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L402" class="LineNr">402 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> <span id="L403" class="LineNr">403 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> <span id="L404" class="LineNr">404 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> <span id="L405" class="LineNr">405 </span> <span class="Delimiter">);</span> -<span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> +<span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/018jump_disp32.cc.html b/html/018jump_disp32.cc.html index dad97deb..4e3f00ab 100644 --- a/html/018jump_disp32.cc.html +++ b/html/018jump_disp32.cc.html @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: jump</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L341'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away (jmp)"</span><span class="Delimiter">);</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away (jmp)"</span><span class="Delimiter">);</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(code)</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L9'>test_jump_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -92,11 +92,11 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span><span class="SalientComment">//:: jump if equal/zero</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L80'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L39'>test_je_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L57" class="LineNr"> 57 </span><span class="Normal">case</span> <span class="Constant">0x84</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if ZF</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span id="L66" class="LineNr"> 66 </span><span class="Delimiter">:(code)</span> <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L67'>test_je_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L69" class="LineNr"> 69 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L71" class="LineNr"> 71 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -143,11 +143,11 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span><span class="SalientComment">//:: jump if not equal/not zero</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if not equal, if <a href='010vm.cc.html#L80'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> <span id="L88" class="LineNr"> 88 </span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">:(code)</span> <span id="L90" class="LineNr"> 90 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L90'>test_jne_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L92" class="LineNr"> 92 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -175,7 +175,7 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="Delimiter">:(code)</span> <span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L118'>test_jne_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L120" class="LineNr">120 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L122" class="LineNr">122 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -194,14 +194,14 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr">135 </span><span class="SalientComment">//:: jump if greater</span> <span id="L136" class="LineNr">136 </span> <span id="L137" class="LineNr">137 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater (signed), if <a href='010vm.cc.html#L80'>ZF</a> is unset and SF == <a href='010vm.cc.html#L82'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is unset and <a href='010vm.cc.html#L81'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> <span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L142'>test_jg_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L143" class="LineNr">143 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L144" class="LineNr">144 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -220,7 +220,7 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L162" class="LineNr">162 </span><span class="Normal">case</span> <span class="Constant">0x8f</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !SF and !ZF</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF && SF == <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF && SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> @@ -237,9 +237,9 @@ if ('onhashchange' in window) { <span id="L178" class="LineNr">178 </span> <span id="L179" class="LineNr">179 </span><span class="Delimiter">:(code)</span> <span id="L180" class="LineNr">180 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L180'>test_jg_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L181" class="LineNr">181 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L181" class="LineNr">181 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L182" class="LineNr">182 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L184" class="LineNr">184 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L186" class="LineNr">186 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -258,13 +258,13 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span><span class="SalientComment">//:: jump if greater or equal</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal (signed), if SF == <a href='010vm.cc.html#L82'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(code)</span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L206'>test_jge_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L209" class="LineNr">209 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L211" class="LineNr">211 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -283,7 +283,7 @@ if ('onhashchange' in window) { <span id="L224" class="LineNr">224 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x8d</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !SF</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L229" class="LineNr">229 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> @@ -301,7 +301,7 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr">242 </span><span class="Delimiter">:(code)</span> <span id="L243" class="LineNr">243 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L243'>test_jge_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L244" class="LineNr">244 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L246" class="LineNr">246 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L248" class="LineNr">248 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -320,14 +320,14 @@ if ('onhashchange' in window) { <span id="L261" class="LineNr">261 </span><span class="SalientComment">//:: jump if lesser</span> <span id="L262" class="LineNr">262 </span> <span id="L263" class="LineNr">263 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser (signed), if SF != <a href='010vm.cc.html#L82'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> -<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> +<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <span id="L267" class="LineNr">267 </span><span class="Delimiter">:(code)</span> <span id="L268" class="LineNr">268 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L268'>test_jl_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L269" class="LineNr">269 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L269" class="LineNr">269 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L270" class="LineNr">270 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L274" class="LineNr">274 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -346,7 +346,7 @@ if ('onhashchange' in window) { <span id="L287" class="LineNr">287 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L288" class="LineNr">288 </span><span class="Normal">case</span> <span class="Constant">0x8c</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if SF and !ZF</span> <span id="L289" class="LineNr">289 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L292" class="LineNr">292 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L293" class="LineNr">293 </span> <span class="Delimiter">}</span> @@ -354,7 +354,7 @@ if ('onhashchange' in window) { <span id="L295" class="LineNr">295 </span><span class="Delimiter">}</span> <span id="L296" class="LineNr">296 </span><span class="Normal">case</span> <span class="Constant">0x82</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if CF</span> <span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L300" class="LineNr">300 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> @@ -363,9 +363,9 @@ if ('onhashchange' in window) { <span id="L304" class="LineNr">304 </span> <span id="L305" class="LineNr">305 </span><span class="Delimiter">:(code)</span> <span id="L306" class="LineNr">306 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L306'>test_jl_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L307" class="LineNr">307 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L307" class="LineNr">307 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L308" class="LineNr">308 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L310" class="LineNr">310 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L312" class="LineNr">312 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -384,14 +384,14 @@ if ('onhashchange' in window) { <span id="L325" class="LineNr">325 </span><span class="SalientComment">//:: jump if lesser or equal</span> <span id="L326" class="LineNr">326 </span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal (signed), if <a href='010vm.cc.html#L80'>ZF</a> is set or SF != <a href='010vm.cc.html#L82'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> -<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L342'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is set or <a href='010vm.cc.html#L81'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> +<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> +<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> <span id="L330" class="LineNr">330 </span> <span id="L331" class="LineNr">331 </span><span class="Delimiter">:(code)</span> <span id="L332" class="LineNr">332 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L332'>test_jle_disp32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L333" class="LineNr">333 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L333" class="LineNr">333 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L334" class="LineNr">334 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L336" class="LineNr">336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L338" class="LineNr">338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -409,9 +409,9 @@ if ('onhashchange' in window) { <span id="L350" class="LineNr">350 </span> <span id="L351" class="LineNr">351 </span><span class="Delimiter">:(code)</span> <span id="L352" class="LineNr">352 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L352'>test_jle_disp32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L353" class="LineNr">353 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L354" class="LineNr">354 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L358" class="LineNr">358 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -430,7 +430,7 @@ if ('onhashchange' in window) { <span id="L371" class="LineNr">371 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L372" class="LineNr">372 </span><span class="Normal">case</span> <span class="Constant">0x8e</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if SF or ZF</span> <span id="L373" class="LineNr">373 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L376" class="LineNr">376 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <span class="Delimiter">}</span> @@ -438,7 +438,7 @@ if ('onhashchange' in window) { <span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> <span id="L380" class="LineNr">380 </span><span class="Normal">case</span> <span class="Constant">0x86</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if ZF or CF</span> <span id="L381" class="LineNr">381 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || <a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L384" class="LineNr">384 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> @@ -447,9 +447,9 @@ if ('onhashchange' in window) { <span id="L388" class="LineNr">388 </span> <span id="L389" class="LineNr">389 </span><span class="Delimiter">:(code)</span> <span id="L390" class="LineNr">390 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L390'>test_jle_disp32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L391" class="LineNr">391 </span> <a href='010vm.cc.html#L80'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L391" class="LineNr">391 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L392" class="LineNr">392 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L82'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L394" class="LineNr">394 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L396" class="LineNr">396 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> diff --git a/html/019functions.cc.html b/html/019functions.cc.html index 5067b2be..3fe84e95 100644 --- a/html/019functions.cc.html +++ b/html/019functions.cc.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } .LineNr { } +.Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Comment { color: #005faf; } +.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } -.Identifier { color: #af5f00; } +.Comment { color: #005faf; } .Constant { color: #008787; } .SalientComment { color: #0000af; } --> @@ -61,19 +61,19 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: call</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">"call <a href='040tests.cc.html#L82'>disp32</a> (call)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">"call <a href='040tests.cc.html#L82'>disp32</a> (call)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='019functions.cc.html#L7'>test_call_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L9" class="LineNr"> 9 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L13" class="LineNr"> 13 </span> <span class="Constant">" e8 a0 00 00 00 \n"</span> <span class="Comment">// call function offset at 0x000000a0</span> <span id="L14" class="LineNr"> 14 </span> <span class="Comment">// next EIP is 6</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> -<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: call imm32 0x000000a0\n"</span> <span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: pushing value 0x00000006\n"</span> @@ -84,12 +84,12 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L25" class="LineNr"> 25 </span><span class="Normal">case</span> <span class="Constant">0xe8</span>: <span class="Delimiter">{</span> <span class="Comment">// call disp32 relative to next EIP</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> ++<span class="Special">Callstack_depth</span><span class="Delimiter">;</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call imm32 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << offset << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> ++<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << offset << end<span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span><span class="CommentedCode">//? cerr << "push: EIP: " << EIP << " => " << Reg[ESP].u << '\n';</span> <span id="L30" class="LineNr"> 30 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L31" class="LineNr"> 31 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> -<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L33" class="LineNr"> 33 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> @@ -97,16 +97,16 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='019functions.cc.html#L39'>test_call_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x000000a0</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L42" class="LineNr"> 42 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x000000a0</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L44" class="LineNr"> 44 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L45" class="LineNr"> 45 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L46" class="LineNr"> 46 </span> <span class="Constant">" ff d3 \n"</span> <span class="Comment">// call function offset at EBX</span> <span id="L47" class="LineNr"> 47 </span> <span class="Comment">// next EIP is 3</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">);</span> -<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: call to r/m32\n"</span> <span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> @@ -117,20 +117,20 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> <span id="L58" class="LineNr"> 58 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L59" class="LineNr"> 59 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// call function pointer at r/m32</span> -<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* offset = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L62" class="LineNr"> 62 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L63" class="LineNr"> 63 </span> <a href='010vm.cc.html#L26'>EIP</a> += *offset<span class="Delimiter">;</span> -<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> -<span id="L65" class="LineNr"> 65 </span> ++<span class="Special">Callstack_depth</span><span class="Delimiter">;</span> +<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L65" class="LineNr"> 65 </span> ++<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> <span id="L66" class="LineNr"> 66 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> <span id="L68" class="LineNr"> 68 </span> <span id="L69" class="LineNr"> 69 </span><span class="Delimiter">:(code)</span> <span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='019functions.cc.html#L70'>test_call_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L72" class="LineNr"> 72 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L75" class="LineNr"> 75 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L76" class="LineNr"> 76 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -139,7 +139,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a0 00 00 00\n"</span> <span class="Comment">// 0x000000a0</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">);</span> -<span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L83" class="LineNr"> 83 </span> <span class="Constant">"run: call to r/m32\n"</span> <span id="L84" class="LineNr"> 84 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> <span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> @@ -151,13 +151,13 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span><span class="SalientComment">//:: ret</span> <span id="L92" class="LineNr"> 92 </span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L94" class="LineNr"> 94 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">"return from most recent unfinished call (<a href='040tests.cc.html#L89'>ret</a>)"</span><span class="Delimiter">);</span> +<span id="L94" class="LineNr"> 94 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">"return from most recent unfinished call (<a href='040tests.cc.html#L89'>ret</a>)"</span><span class="Delimiter">);</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">:(code)</span> <span id="L97" class="LineNr"> 97 </span><span class="Normal">void</span> <a href='019functions.cc.html#L97'>test_ret</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span> <a href='010vm.cc.html#L239'>write_mem_u32</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L98" class="LineNr"> 98 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L99" class="LineNr"> 99 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L100" class="LineNr">100 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L102" class="LineNr">102 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L103" class="LineNr">103 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -165,7 +165,7 @@ if ('onhashchange' in window) { <span id="L105" class="LineNr">105 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L106" class="LineNr">106 </span> <span class="Constant">"10 00 00 00\n"</span> <span class="Comment">// 0x00000010</span> <span id="L107" class="LineNr">107 </span> <span class="Delimiter">);</span> -<span id="L108" class="LineNr">108 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L108" class="LineNr">108 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L109" class="LineNr">109 </span> <span class="Constant">"run: return\n"</span> <span id="L110" class="LineNr">110 </span> <span class="Constant">"run: popping value 0x00000010\n"</span> <span id="L111" class="LineNr">111 </span> <span class="Constant">"run: jumping to 0x00000010\n"</span> @@ -174,10 +174,10 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L116" class="LineNr">116 </span><span class="Normal">case</span> <span class="Constant">0xc3</span>: <span class="Delimiter">{</span> <span class="Comment">// return from a call</span> -<span id="L117" class="LineNr">117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"return"</span> << end<span class="Delimiter">();</span> -<span id="L118" class="LineNr">118 </span> --<span class="Special">Callstack_depth</span><span class="Delimiter">;</span> +<span id="L117" class="LineNr">117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"return"</span> << end<span class="Delimiter">();</span> +<span id="L118" class="LineNr">118 </span> --<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> <span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L26'>EIP</a> = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> -<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L121" class="LineNr">121 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> </pre> diff --git a/html/020syscalls.cc.html b/html/020syscalls.cc.html index a3c5762e..2532168a 100644 --- a/html/020syscalls.cc.html +++ b/html/020syscalls.cc.html @@ -14,7 +14,7 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.cSpecial { color: #008000; } +.PreProc { color: #c000c0; } .LineNr { } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -22,7 +22,7 @@ a { color:inherit; } .Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Constant { color: #008787; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } --> </style> @@ -59,14 +59,14 @@ if ('onhashchange' in window) { <a href='https://github.com/akkartik/mu/blob/master/020syscalls.cc'>https://github.com/akkartik/mu/blob/master/020syscalls.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L2" class="LineNr"> 2 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L341'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">"software interrupt (int)"</span><span class="Delimiter">);</span> +<span id="L2" class="LineNr"> 2 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">"software interrupt (int)"</span><span class="Delimiter">);</span> <span id="L3" class="LineNr"> 3 </span> <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L5" class="LineNr"> 5 </span><span class="Normal">case</span> <span class="Constant">0xcd</span>: <span class="Delimiter">{</span> <span class="Comment">// int imm8 (software interrupt)</span> <span id="L6" class="LineNr"> 6 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"syscall"</span> << end<span class="Delimiter">();</span> -<span id="L7" class="LineNr"> 7 </span> <span class="Normal">uint8_t</span> code = <a href='010vm.cc.html#L324'>next</a><span class="Delimiter">();</span> +<span id="L7" class="LineNr"> 7 </span> <span class="Normal">uint8_t</span> code = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L8" class="LineNr"> 8 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>code != <span class="Constant">0x80</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Unimplemented interrupt code "</span> << <a href='010vm.cc.html#L393'>HEXBYTE</a> << code << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Unimplemented interrupt code "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << code << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">" Only `int 80h` supported for now.\n"</span> << end<span class="Delimiter">();</span> <span id="L11" class="LineNr"> 11 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">}</span> @@ -82,14 +82,14 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L23" class="LineNr"> 23 </span> <span class="Normal">case</span> <span class="Constant">3</span>: <span id="L24" class="LineNr"> 24 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"read: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L25" class="LineNr"> 25 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = read<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L25" class="LineNr"> 25 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = read<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L27" class="LineNr"> 27 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"read: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L28" class="LineNr"> 28 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span id="L30" class="LineNr"> 30 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"write: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L222'>mem_addr_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L32" class="LineNr"> 32 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = write<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L237'>mem_addr_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = write<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"write: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L35" class="LineNr"> 35 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -97,8 +97,8 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> <a href='020syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> <span id="L38" class="LineNr"> 38 </span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L12'>EDX</a><span class="Delimiter">);</span> <span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"open: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = open<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">flags</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> +<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = open<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">flags</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> <span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L43" class="LineNr"> 43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"open: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L44" class="LineNr"> 44 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -112,23 +112,23 @@ if ('onhashchange' in window) { <span id="L52" class="LineNr"> 52 </span> <span class="Normal">case</span> <span class="Constant">8</span>: <span id="L53" class="LineNr"> 53 </span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"creat: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L56" class="LineNr"> 56 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = creat<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> +<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L56" class="LineNr"> 56 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = creat<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> <span id="L57" class="LineNr"> 57 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"creat: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L59" class="LineNr"> 59 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L60" class="LineNr"> 60 </span> <span class="Normal">case</span> <span class="Constant">10</span>: <span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"unlink: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L63" class="LineNr"> 63 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = unlink<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> +<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L63" class="LineNr"> 63 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = unlink<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> <span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L65" class="LineNr"> 65 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unlink: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L66" class="LineNr"> 66 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L67" class="LineNr"> 67 </span> <span class="Normal">case</span> <span class="Constant">38</span>: <span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"rename: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" -> "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L70" class="LineNr"> 70 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = rename<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">old filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">new filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L219'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> +<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L70" class="LineNr"> 70 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = rename<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">old filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">new filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> <span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L73" class="LineNr"> 73 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"rename: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L74" class="LineNr"> 74 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -136,14 +136,14 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"mmap: allocate new segment"</span> << end<span class="Delimiter">();</span> <span id="L77" class="LineNr"> 77 </span> <span class="Comment">// Ignore most arguments for now: address hint, protection flags, sharing flags, fd, offset.</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// We only support anonymous maps.</span> -<span id="L79" class="LineNr"> 79 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <a href='020syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">length</span><span class="Comment">*/</span><a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u+<span class="Constant">0x4</span><span class="Delimiter">));</span> +<span id="L79" class="LineNr"> 79 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <a href='020syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">length</span><span class="Comment">*/</span><a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u+<span class="Constant">0x4</span><span class="Delimiter">));</span> <span id="L80" class="LineNr"> 80 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L81" class="LineNr"> 81 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L82" class="LineNr"> 82 </span> <span class="Normal">case</span> <span class="Constant">0xa2</span>: <span class="Comment">// nanosleep</span> <span id="L83" class="LineNr"> 83 </span> cerr << <span class="Constant">"not sleeping\n"</span><span class="Delimiter">;</span> <span id="L84" class="LineNr"> 84 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <span class="Normal">default</span>: -<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <a href='010vm.cc.html#L394'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": unimplemented syscall "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": unimplemented syscall "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> <span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> <span id="L89" class="LineNr"> 89 </span> @@ -152,18 +152,18 @@ if ('onhashchange' in window) { <span id="L92" class="LineNr"> 92 </span><span class="Normal">void</span> <a href='020syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> <span class="Normal">uint32_t</span> flags = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L94" class="LineNr"> 94 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>flags != <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> | <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">)))</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> cerr << <a href='010vm.cc.html#L394'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": most POSIX flags to the open() syscall are not supported. Just O_RDONLY and O_WRONLY for now. Zero concurrent access support.\n"</span><span class="Delimiter">;</span> +<span id="L95" class="LineNr"> 95 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": most POSIX flags to the open() syscall are not supported. Just O_RDONLY and O_WRONLY for now. Zero concurrent access support.\n"</span><span class="Delimiter">;</span> <span id="L96" class="LineNr"> 96 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> && <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L394'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html.">http://man7.org/linux/man-pages/man2/open.2.html.</a>\n"</span><span class="Delimiter">;</span> +<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html">http://man7.org/linux/man-pages/man2/open.2.html</a>.\n"</span><span class="Delimiter">;</span> <span id="L100" class="LineNr">100 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> <span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> <span id="L103" class="LineNr">103 </span> <span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L105" class="LineNr">105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u != <span class="PreProc">0</span><span class="Constant">600</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> cerr << <a href='010vm.cc.html#L394'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": SubX is oblivious to file permissions; register "</span> << <a href='010vm.cc.html#L20'>reg</a> << <span class="Constant">" must be 0x180.\n"</span><span class="Delimiter">;</span> +<span id="L106" class="LineNr">106 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": SubX is oblivious to file permissions; register "</span> << <a href='010vm.cc.html#L20'>reg</a> << <span class="Constant">" must be 0x180.\n"</span><span class="Delimiter">;</span> <span id="L107" class="LineNr">107 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> <span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> @@ -178,9 +178,9 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> <span class="Normal">uint32_t</span> result = <span class="Delimiter">(</span><span class="SpecialChar"><a href='020syscalls.cc.html#L113'>Segments_allocated_above</a></span> - length<span class="Delimiter">)</span> & <span class="Constant">0xff000000</span><span class="Delimiter">;</span> <span class="Comment">// same number of zeroes as SEGMENT_ALIGNMENT</span> <span id="L119" class="LineNr">119 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result <= <a href='012elf.cc.html#L150'>START_HEAP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Allocated too many segments; the VM ran out of memory. "</span> -<span id="L121" class="LineNr">121 </span> << <span class="Constant">"Maybe <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a> can be smaller?\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L121" class="LineNr">121 </span> << <span class="Constant">"Maybe <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a> can be smaller?\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="SpecialChar"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>result<span class="Delimiter">,</span> result+length<span class="Delimiter">));</span> +<span id="L123" class="LineNr">123 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>result<span class="Delimiter">,</span> result+length<span class="Delimiter">));</span> <span id="L124" class="LineNr">124 </span> <span class="SpecialChar"><a href='020syscalls.cc.html#L113'>Segments_allocated_above</a></span> = result<span class="Delimiter">;</span> <span id="L125" class="LineNr">125 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> diff --git a/html/021byte_addressing.cc.html b/html/021byte_addressing.cc.html index 21d009cc..2da9c622 100644 --- a/html/021byte_addressing.cc.html +++ b/html/021byte_addressing.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } .cSpecial { color: #008000; } +.SalientComment { color: #0000af; } --> </style> @@ -74,7 +74,7 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr"> 14 </span> <span class="Normal">case</span> <span class="Constant">5</span>: <span class="Identifier">return</span> <span class="Constant">"CH"</span><span class="Delimiter">;</span> <span class="Comment">// second lowest byte of ECX</span> <span id="L15" class="LineNr"> 15 </span> <span class="Normal">case</span> <span class="Constant">6</span>: <span class="Identifier">return</span> <span class="Constant">"DH"</span><span class="Delimiter">;</span> <span class="Comment">// second lowest byte of EDX</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">case</span> <span class="Constant">7</span>: <span class="Identifier">return</span> <span class="Constant">"BH"</span><span class="Delimiter">;</span> <span class="Comment">// second lowest byte of EBX</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">default</span>: <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"invalid 8-bit register "</span> << r << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">default</span>: <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"invalid 8-bit register "</span> << r << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> <span id="L20" class="LineNr"> 20 </span> @@ -83,27 +83,27 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L24" class="LineNr"> 24 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="Comment">// select an 8-bit register</span> -<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m8 is "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m8 is "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L27" class="LineNr"> 27 </span> <span class="Identifier">return</span> <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">);</span> <span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> <span id="L29" class="LineNr"> 29 </span> <span class="Comment">// the rest is as usual</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L180'>mem_addr_u8</a><span class="Delimiter">(</span><a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">));</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">));</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> <span id="L32" class="LineNr"> 32 </span> <span id="L33" class="LineNr"> 33 </span><span class="Normal">uint8_t</span>* <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">uint8_t</span>* result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint8_t</span>*><span class="Delimiter">(</span>&<span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rm & <span class="Constant">0x3</span>]<span class="Delimiter">.</span>i<span class="Delimiter">);</span> <span class="Comment">// _L register</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">uint8_t</span>* result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint8_t</span>*><span class="Delimiter">(</span>&<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm & <span class="Constant">0x3</span>]<span class="Delimiter">.</span>i<span class="Delimiter">);</span> <span class="Comment">// _L register</span> <span id="L35" class="LineNr"> 35 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>rm & <span class="Constant">0x4</span><span class="Delimiter">)</span> <span id="L36" class="LineNr"> 36 </span> ++result<span class="Delimiter">;</span> <span class="Comment">// _H register; assumes host is little-endian</span> <span id="L37" class="LineNr"> 37 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8 to r8/m8-at-r32"</span><span class="Delimiter">);</span> +<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8 to r8/m8-at-r32"</span><span class="Delimiter">);</span> <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">:(code)</span> <span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L44'>test_copy_r8_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x224488ab</span><span class="Delimiter">;</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L45" class="LineNr"> 45 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x224488ab</span><span class="Delimiter">;</span> +<span id="L46" class="LineNr"> 46 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L47" class="LineNr"> 47 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L48" class="LineNr"> 48 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L49" class="LineNr"> 49 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -112,36 +112,36 @@ if ('onhashchange' in window) { <span id="L52" class="LineNr"> 52 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L53" class="LineNr"> 53 </span> <span class="Constant">"f0 cc bb aa\n"</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> -<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy BL to r8/m8-at-r32\n"</span> <span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0xab\n"</span> <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">);</span> -<span id="L60" class="LineNr"> 60 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccab</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> +<span id="L60" class="LineNr"> 60 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccab</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L64" class="LineNr"> 64 </span><span class="Normal">case</span> <span class="Constant">0x88</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r8 to r/m8</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L66" class="LineNr"> 66 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L67" class="LineNr"> 67 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> +<span id="L67" class="LineNr"> 67 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> <span id="L69" class="LineNr"> 69 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L70" class="LineNr"> 70 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">);</span> <span id="L71" class="LineNr"> 71 </span> *dest = *src<span class="Delimiter">;</span> <span class="Comment">// Read/write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L73" class="LineNr"> 73 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> <span id="L75" class="LineNr"> 75 </span> <span id="L76" class="LineNr"> 76 </span><span class="Comment">//:</span> <span id="L77" class="LineNr"> 77 </span> <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L79" class="LineNr"> 79 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8/m8-at-r32 to r8"</span><span class="Delimiter">);</span> +<span id="L79" class="LineNr"> 79 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8/m8-at-r32 to r8"</span><span class="Delimiter">);</span> <span id="L80" class="LineNr"> 80 </span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">:(code)</span> <span id="L82" class="LineNr"> 82 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L82'>test_copy_mem_at_r32_to_r8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbcc0f</span><span class="Delimiter">;</span> <span class="Comment">// one nibble each of lowest byte set to all 0s and all 1s, to maximize value of this test</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L83" class="LineNr"> 83 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbcc0f</span><span class="Delimiter">;</span> <span class="Comment">// one nibble each of lowest byte set to all 0s and all 1s, to maximize value of this test</span> +<span id="L84" class="LineNr"> 84 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -150,7 +150,7 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L91" class="LineNr"> 91 </span> <span class="Constant">"ab ff ff ff\n"</span> <span class="Comment">// 0xab with more data in following bytes</span> <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">);</span> -<span id="L93" class="LineNr"> 93 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L93" class="LineNr"> 93 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: copy r8/m8-at-r32 to BL\n"</span> <span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L96" class="LineNr"> 96 </span> <span class="Constant">"run: storing 0xab\n"</span> @@ -161,46 +161,46 @@ if ('onhashchange' in window) { <span id="L101" class="LineNr">101 </span> <span id="L102" class="LineNr">102 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L103" class="LineNr">103 </span><span class="Normal">case</span> <span class="Constant">0x8a</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r/m8 to r8</span> -<span id="L104" class="LineNr">104 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L105" class="LineNr">105 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r8/m8-at-r32 to "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r8/m8-at-r32 to "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L107" class="LineNr">107 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> <span id="L108" class="LineNr">108 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L109" class="LineNr">109 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">);</span> -<span id="L110" class="LineNr">110 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L110" class="LineNr">110 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L111" class="LineNr">111 </span> *dest = *src<span class="Delimiter">;</span> <span class="Comment">// Read/write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L112" class="LineNr">112 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest_32bit = rdest & <span class="Constant">0x3</span><span class="Delimiter">;</span> -<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest_32bit<span class="Delimiter">)</span> << <span class="Constant">" now contains 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest_32bit]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest_32bit<span class="Delimiter">)</span> << <span class="Constant">" now contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest_32bit]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L114" class="LineNr">114 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="Delimiter">:(code)</span> <span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L118'>test_cannot_copy_byte_to_ESP_EBP_ESI_EDI</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u = <span class="Constant">0xaabbccdd</span><span class="Delimiter">;</span> -<span id="L120" class="LineNr">120 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x11223344</span><span class="Delimiter">;</span> +<span id="L119" class="LineNr">119 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u = <span class="Constant">0xaabbccdd</span><span class="Delimiter">;</span> +<span id="L120" class="LineNr">120 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x11223344</span><span class="Delimiter">;</span> <span id="L121" class="LineNr">121 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L122" class="LineNr">122 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L123" class="LineNr">123 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> <span id="L124" class="LineNr">124 </span> <span class="Constant">" 8a f3 \n"</span> <span class="Comment">// copy just the byte at *EBX to 8-bit register '6'</span> <span id="L125" class="LineNr">125 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 110 (dest 8-bit 'register 6') 011 (src EBX)</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">);</span> -<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L128" class="LineNr">128 </span> <span class="Comment">// ensure 8-bit register '6' is DH, not ESI</span> <span id="L129" class="LineNr">129 </span> <span class="Constant">"run: copy r8/m8-at-r32 to DH\n"</span> <span id="L130" class="LineNr">130 </span> <span class="Constant">"run: storing 0x44\n"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> <span id="L132" class="LineNr">132 </span> <span class="Comment">// ensure ESI is unchanged</span> -<span id="L133" class="LineNr">133 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0xaabbccdd</span><span class="Delimiter">);</span> +<span id="L133" class="LineNr">133 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0xaabbccdd</span><span class="Delimiter">);</span> <span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> <span id="L135" class="LineNr">135 </span> <span id="L136" class="LineNr">136 </span><span class="Comment">//:</span> <span id="L137" class="LineNr">137 </span> <span id="L138" class="LineNr">138 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm8 to r8/m8-at-r32 (mov)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm8 to r8/m8-at-r32 (mov)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> <span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L142'>test_copy_imm8_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L143" class="LineNr">143 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L144" class="LineNr">144 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L145" class="LineNr">145 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L146" class="LineNr">146 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> @@ -209,125 +209,125 @@ if ('onhashchange' in window) { <span id="L149" class="LineNr">149 </span> <span class="Constant">"== data 0x2000\n"</span> <span id="L150" class="LineNr">150 </span> <span class="Constant">"f0 cc bb aa\n"</span> <span id="L151" class="LineNr">151 </span> <span class="Delimiter">);</span> -<span id="L152" class="LineNr">152 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L152" class="LineNr">152 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L153" class="LineNr">153 </span> <span class="Constant">"run: copy imm8 to r8/m8-at-r32\n"</span> <span id="L154" class="LineNr">154 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> <span id="L155" class="LineNr">155 </span> <span class="Constant">"run: storing 0xdd\n"</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">);</span> -<span id="L157" class="LineNr">157 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccdd</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> +<span id="L157" class="LineNr">157 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccdd</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> <span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> <span id="L159" class="LineNr">159 </span> <span id="L160" class="LineNr">160 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L161" class="LineNr">161 </span><span class="Normal">case</span> <span class="Constant">0xc6</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm8 to r/m8</span> -<span id="L162" class="LineNr">162 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> src = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm8 to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm8 is 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L162" class="LineNr">162 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> src = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm8 to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm8 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>subop != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> cerr << <span class="Constant">"unrecognized subop for opcode c6: "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> +<span id="L168" class="LineNr">168 </span> cerr << <span class="Constant">"unrecognized subop for opcode c6: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> <span id="L171" class="LineNr">171 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> <span id="L172" class="LineNr">172 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L173" class="LineNr">173 </span> *dest = src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> <span id="L177" class="LineNr">177 </span> <span id="L178" class="LineNr">178 </span><span class="SalientComment">//:: set flags (setcc)</span> <span id="L179" class="LineNr">179 </span> <span id="L180" class="LineNr">180 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L181" class="LineNr">181 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if equal, if <a href='010vm.cc.html#L80'>ZF</a> is set, 0 otherwise (setcc/setz/sete)"</span><span class="Delimiter">);</span> -<span id="L182" class="LineNr">182 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if not equal, if <a href='010vm.cc.html#L80'>ZF</a> is not set, 0 otherwise (setcc/setnz/setne)"</span><span class="Delimiter">);</span> -<span id="L183" class="LineNr">183 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (signed), if <a href='010vm.cc.html#L80'>ZF</a> is unset and SF == <a href='010vm.cc.html#L82'>OF</a>, 0 otherwise (setcc/setg/setnle)"</span><span class="Delimiter">);</span> -<span id="L184" class="LineNr">184 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is unset and <a href='010vm.cc.html#L81'>CF</a> is unset, 0 otherwise (setcc/seta/setnbe)"</span><span class="Delimiter">);</span> -<span id="L185" class="LineNr">185 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (signed), if SF == <a href='010vm.cc.html#L82'>OF</a>, 0 otherwise (setcc/setge/setnl)"</span><span class="Delimiter">);</span> -<span id="L186" class="LineNr">186 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is unset, 0 otherwise (setcc/setae/setnb)"</span><span class="Delimiter">);</span> -<span id="L187" class="LineNr">187 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (signed), if SF != <a href='010vm.cc.html#L82'>OF</a>, 0 otherwise (setcc/setl/setnge)"</span><span class="Delimiter">);</span> -<span id="L188" class="LineNr">188 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (unsigned), if <a href='010vm.cc.html#L81'>CF</a> is set, 0 otherwise (setcc/setb/setnae)"</span><span class="Delimiter">);</span> -<span id="L189" class="LineNr">189 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (signed), if <a href='010vm.cc.html#L80'>ZF</a> is set or SF != <a href='010vm.cc.html#L82'>OF</a>, 0 otherwise (setcc/setle/setng)"</span><span class="Delimiter">);</span> -<span id="L190" class="LineNr">190 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (unsigned), if <a href='010vm.cc.html#L80'>ZF</a> is set or <a href='010vm.cc.html#L81'>CF</a> is set, 0 otherwise (setcc/setbe/setna)"</span><span class="Delimiter">);</span> +<span id="L181" class="LineNr">181 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set, 0 otherwise (setcc/setz/sete)"</span><span class="Delimiter">);</span> +<span id="L182" class="LineNr">182 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set, 0 otherwise (setcc/setnz/setne)"</span><span class="Delimiter">);</span> +<span id="L183" class="LineNr">183 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (signed), if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setg/setnle)"</span><span class="Delimiter">);</span> +<span id="L184" class="LineNr">184 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (unsigned), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/seta/setnbe)"</span><span class="Delimiter">);</span> +<span id="L185" class="LineNr">185 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (signed), if SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setge/setnl)"</span><span class="Delimiter">);</span> +<span id="L186" class="LineNr">186 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (unsigned), if <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/setae/setnb)"</span><span class="Delimiter">);</span> +<span id="L187" class="LineNr">187 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (signed), if SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setl/setnge)"</span><span class="Delimiter">);</span> +<span id="L188" class="LineNr">188 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (unsigned), if <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setb/setnae)"</span><span class="Delimiter">);</span> +<span id="L189" class="LineNr">189 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (signed), if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setle/setng)"</span><span class="Delimiter">);</span> +<span id="L190" class="LineNr">190 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (unsigned), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setbe/setna)"</span><span class="Delimiter">);</span> <span id="L191" class="LineNr">191 </span> <span id="L192" class="LineNr">192 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L193" class="LineNr">193 </span><span class="Normal">case</span> <span class="Constant">0x94</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if ZF</span> -<span id="L194" class="LineNr">194 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L195" class="LineNr">195 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L194" class="LineNr">194 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L195" class="LineNr">195 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L196" class="LineNr">196 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L197" class="LineNr">197 </span> *dest = <a href='010vm.cc.html#L80'>ZF</a><span class="Delimiter">;</span> -<span id="L198" class="LineNr">198 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L197" class="LineNr">197 </span> *dest = <a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">;</span> +<span id="L198" class="LineNr">198 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L199" class="LineNr">199 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> <span id="L201" class="LineNr">201 </span><span class="Normal">case</span> <span class="Constant">0x95</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !ZF</span> -<span id="L202" class="LineNr">202 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L202" class="LineNr">202 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L204" class="LineNr">204 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L205" class="LineNr">205 </span> *dest = !ZF<span class="Delimiter">;</span> -<span id="L206" class="LineNr">206 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L206" class="LineNr">206 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L207" class="LineNr">207 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span><span class="Delimiter">}</span> <span id="L209" class="LineNr">209 </span><span class="Normal">case</span> <span class="Constant">0x9f</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !SF and !ZF</span> -<span id="L210" class="LineNr">210 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L211" class="LineNr">211 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L210" class="LineNr">210 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L211" class="LineNr">211 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L212" class="LineNr">212 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L213" class="LineNr">213 </span> *dest = !ZF && SF == <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">;</span> -<span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L213" class="LineNr">213 </span> *dest = !ZF && SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> +<span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L215" class="LineNr">215 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> <span id="L217" class="LineNr">217 </span><span class="Normal">case</span> <span class="Constant">0x97</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !CF and !ZF</span> -<span id="L218" class="LineNr">218 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L219" class="LineNr">219 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L218" class="LineNr">218 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L219" class="LineNr">219 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L220" class="LineNr">220 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> *dest = <span class="Delimiter">(</span>!CF && !ZF<span class="Delimiter">);</span> -<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L223" class="LineNr">223 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x9d</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !SF</span> -<span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L227" class="LineNr">227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L227" class="LineNr">227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L228" class="LineNr">228 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L229" class="LineNr">229 </span> *dest = <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">);</span> -<span id="L230" class="LineNr">230 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L229" class="LineNr">229 </span> *dest = <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> +<span id="L230" class="LineNr">230 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L231" class="LineNr">231 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> <span id="L233" class="LineNr">233 </span><span class="Normal">case</span> <span class="Constant">0x93</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !CF</span> -<span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L236" class="LineNr">236 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L237" class="LineNr">237 </span> *dest = !CF<span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L238" class="LineNr">238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L239" class="LineNr">239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span><span class="Normal">case</span> <span class="Constant">0x9c</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if SF and !ZF</span> -<span id="L242" class="LineNr">242 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L243" class="LineNr">243 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L242" class="LineNr">242 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L243" class="LineNr">243 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L244" class="LineNr">244 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L245" class="LineNr">245 </span> *dest = <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">);</span> -<span id="L246" class="LineNr">246 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L245" class="LineNr">245 </span> *dest = <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> +<span id="L246" class="LineNr">246 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L247" class="LineNr">247 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L248" class="LineNr">248 </span><span class="Delimiter">}</span> <span id="L249" class="LineNr">249 </span><span class="Normal">case</span> <span class="Constant">0x92</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if CF</span> -<span id="L250" class="LineNr">250 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L250" class="LineNr">250 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L252" class="LineNr">252 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L253" class="LineNr">253 </span> *dest = <a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">;</span> -<span id="L254" class="LineNr">254 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L253" class="LineNr">253 </span> *dest = <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">;</span> +<span id="L254" class="LineNr">254 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L255" class="LineNr">255 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> <span id="L257" class="LineNr">257 </span><span class="Normal">case</span> <span class="Constant">0x9e</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if SF or ZF</span> -<span id="L258" class="LineNr">258 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L258" class="LineNr">258 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L260" class="LineNr">260 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L261" class="LineNr">261 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || SF != <a href='010vm.cc.html#L82'>OF</a><span class="Delimiter">);</span> -<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L261" class="LineNr">261 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> +<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L263" class="LineNr">263 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> <span id="L265" class="LineNr">265 </span><span class="Normal">case</span> <span class="Constant">0x96</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if ZF or CF</span> -<span id="L266" class="LineNr">266 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L325'>next</a><span class="Delimiter">();</span> -<span id="L267" class="LineNr">267 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L266" class="LineNr">266 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L267" class="LineNr">267 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> <span id="L268" class="LineNr">268 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L269" class="LineNr">269 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L80'>ZF</a> || <a href='010vm.cc.html#L81'>CF</a><span class="Delimiter">);</span> -<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L269" class="LineNr">269 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">);</span> +<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L271" class="LineNr">271 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span><span class="Delimiter">}</span> </pre> diff --git a/html/022div.cc.html b/html/022div.cc.html index 7d535718..76938759 100644 --- a/html/022div.cc.html +++ b/html/022div.cc.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; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -59,16 +59,16 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: helper for division operations: sign-extend EAX into EDX</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a> (cdq)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a> (cdq)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='022div.cc.html#L7'>test_cdq</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L9" class="LineNr"> 9 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L10" class="LineNr">10 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L11" class="LineNr">11 </span> <span class="Constant">"99\n"</span> <span id="L12" class="LineNr">12 </span> <span class="Delimiter">);</span> -<span id="L13" class="LineNr">13 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L13" class="LineNr">13 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L14" class="LineNr">14 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX\n"</span> <span id="L15" class="LineNr">15 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0x00000000\n"</span> <span id="L16" class="LineNr">16 </span> <span class="Delimiter">);</span> @@ -76,20 +76,20 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> <span id="L19" class="LineNr">19 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L20" class="LineNr">20 </span><span class="Normal">case</span> <span class="Constant">0x99</span>: <span class="Delimiter">{</span> <span class="Comment">// sign-extend EAX into EDX</span> -<span id="L21" class="LineNr">21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX"</span> << end<span class="Delimiter">();</span> -<span id="L22" class="LineNr">22 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = <span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i < <span class="Constant">0</span><span class="Delimiter">)</span> ? -<span class="Constant">1</span> : <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L23" class="LineNr">23 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"EDX is now 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L21" class="LineNr">21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX"</span> << end<span class="Delimiter">();</span> +<span id="L22" class="LineNr">22 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i < <span class="Constant">0</span><span class="Delimiter">)</span> ? -<span class="Constant">1</span> : <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L23" class="LineNr">23 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"EDX is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L24" class="LineNr">24 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L25" class="LineNr">25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr">26 </span> <span id="L27" class="LineNr">27 </span><span class="Delimiter">:(code)</span> <span id="L28" class="LineNr">28 </span><span class="Normal">void</span> <a href='022div.cc.html#L28'>test_cdq_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L29" class="LineNr">29 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L29" class="LineNr">29 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">10</span><span class="Delimiter">;</span> <span id="L30" class="LineNr">30 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L31" class="LineNr">31 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L32" class="LineNr">32 </span> <span class="Constant">"99\n"</span> <span id="L33" class="LineNr">33 </span> <span class="Delimiter">);</span> -<span id="L34" class="LineNr">34 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L34" class="LineNr">34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L35" class="LineNr">35 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX\n"</span> <span id="L36" class="LineNr">36 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0xffffffff\n"</span> <span id="L37" class="LineNr">37 </span> <span class="Delimiter">);</span> diff --git a/html/023float.cc.html b/html/023float.cc.html new file mode 100644 index 00000000..fbc8f34f --- /dev/null +++ b/html/023float.cc.html @@ -0,0 +1,583 @@ +<!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 - 023float.cc</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="cpp"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Comment { color: #005faf; } +.Delimiter { color: #c000c0; } +.Identifier { color: #af5f00; } +.Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SalientComment { color: #0000af; } +--> +</style> + +<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/master/023float.cc'>https://github.com/akkartik/mu/blob/master/023float.cc</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="Comment">//: floating-point operations</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: copy</span> +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">"copy xm32 to x32 (movss)"</span><span class="Delimiter">);</span> +<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">"copy x32 to xm32 (movss)"</span><span class="Delimiter">);</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="Delimiter">:(code)</span> +<span id="L10" class="LineNr"> 10 </span><span class="Normal">void</span> <a href='023float.cc.html#L10'>test_copy_x32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L12" class="LineNr"> 12 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"f3 0f 11 d8 \n"</span> <span class="Comment">// copy XMM3 to XMM0</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src XMM3) 000 (dest XMM0)</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">);</span> +<span id="L18" class="LineNr"> 18 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: copy XMM3 to x/m32\n"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> +<span id="L24" class="LineNr"> 24 </span> +<span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L26" class="LineNr"> 26 </span><span class="Normal">case</span> <span class="Constant">0x10</span>: <span class="Delimiter">{</span> <span class="Comment">// copy x/m32 to x32</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L28" class="LineNr"> 28 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L29" class="LineNr"> 29 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy x/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rdest] << end<span class="Delimiter">();</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L31" class="LineNr"> 31 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rdest] = *src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> +<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rdest] << end<span class="Delimiter">();</span> +<span id="L33" class="LineNr"> 33 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> +<span id="L35" class="LineNr"> 35 </span><span class="Normal">case</span> <span class="Constant">0x11</span>: <span class="Delimiter">{</span> <span class="Comment">// copy x32 to x/m32</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L38" class="LineNr"> 38 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rsrc] << <span class="Constant">" to x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Normal">float</span>* dest = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L40" class="LineNr"> 40 </span> *dest = <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rsrc]<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << *dest << end<span class="Delimiter">();</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">:(code)</span> +<span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='023float.cc.html#L46'>test_copy_x32_to_mem_at_xm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L48" class="LineNr"> 48 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L49" class="LineNr"> 49 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"f3 0f 11 18 \n"</span> <span class="Comment">// copy XMM3 to *EAX</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src XMM3) 000 (dest EAX)</span> +<span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> +<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy XMM3 to x/m32\n"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">);</span> +<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> +<span id="L62" class="LineNr"> 62 </span><span class="Normal">void</span> <a href='023float.cc.html#L62'>test_copy_mem_at_xm32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L63" class="LineNr"> 63 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L64" class="LineNr"> 64 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"f3 0f 10 18 \n"</span> <span class="Comment">// copy *EAX to XMM3</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"== data 0x2000\n"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"00 00 00 3f\n"</span> <span class="Comment">// 0x3f000000 = 0.5</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">);</span> +<span id="L71" class="LineNr"> 71 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: copy x/m32 to XMM3\n"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> +<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> +<span id="L78" class="LineNr"> 78 </span><span class="SalientComment">//:: convert to floating point</span> +<span id="L79" class="LineNr"> 79 </span> +<span id="L80" class="LineNr"> 80 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L81" class="LineNr"> 81 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">"convert integer to floating-point (cvtsi2ss)"</span><span class="Delimiter">);</span> +<span id="L82" class="LineNr"> 82 </span> +<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">:(code)</span> +<span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='023float.cc.html#L84'>test_cvtsi2ss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L86" class="LineNr"> 86 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"f3 0f 2a c0 \n"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 000 (EAX)</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">);</span> +<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: convert r/m32 to XMM0\n"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: XMM0 is now 10\n"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">);</span> +<span id="L97" class="LineNr"> 97 </span><span class="Delimiter">}</span> +<span id="L98" class="LineNr"> 98 </span> +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">case</span> <span class="Constant">0x2a</span>: <span class="Delimiter">{</span> <span class="Comment">// convert integer to float</span> +<span id="L101" class="LineNr">101 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L102" class="LineNr">102 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert r/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* src = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L105" class="LineNr">105 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = *src<span class="Delimiter">;</span> +<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L107" class="LineNr">107 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> +<span id="L110" class="LineNr">110 </span><span class="SalientComment">//:: convert floating point to int</span> +<span id="L111" class="LineNr">111 </span> +<span id="L112" class="LineNr">112 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L113" class="LineNr">113 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"convert floating-point to int (cvtss2si)"</span><span class="Delimiter">);</span> +<span id="L114" class="LineNr">114 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">"truncate floating-point to int (cvttss2si)"</span><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span> +<span id="L116" class="LineNr">116 </span><span class="Delimiter">:(code)</span> +<span id="L117" class="LineNr">117 </span><span class="Normal">void</span> <a href='023float.cc.html#L117'>test_cvtss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> +<span id="L119" class="LineNr">119 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L120" class="LineNr">120 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L121" class="LineNr">121 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L122" class="LineNr">122 </span> <span class="Constant">"f3 0f 2d c0 \n"</span> +<span id="L123" class="LineNr">123 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (EAX) 000 (XMM0)</span> +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">);</span> +<span id="L125" class="LineNr">125 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L126" class="LineNr">126 </span> <span class="Constant">"run: convert x/m32 to EAX\n"</span> +<span id="L127" class="LineNr">127 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x0000000a\n"</span> +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">);</span> +<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L133" class="LineNr">133 </span><span class="Normal">case</span> <span class="Constant">0x2d</span>: <span class="Delimiter">{</span> <span class="Comment">// convert float to integer</span> +<span id="L134" class="LineNr">134 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L135" class="LineNr">135 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L136" class="LineNr">136 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i = round<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L140" class="LineNr">140 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L141" class="LineNr">141 </span><span class="Delimiter">}</span> +<span id="L142" class="LineNr">142 </span> +<span id="L143" class="LineNr">143 </span><span class="Delimiter">:(code)</span> +<span id="L144" class="LineNr">144 </span><span class="Normal">void</span> <a href='023float.cc.html#L144'>test_cvttss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> +<span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L149" class="LineNr">149 </span> <span class="Constant">"f3 0f 2c c0 \n"</span> +<span id="L150" class="LineNr">150 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (EAX) 000 (XMM0)</span> +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">);</span> +<span id="L152" class="LineNr">152 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L153" class="LineNr">153 </span> <span class="Constant">"run: truncate x/m32 to EAX\n"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x00000009\n"</span> +<span id="L156" class="LineNr">156 </span> <span class="Delimiter">);</span> +<span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> +<span id="L158" class="LineNr">158 </span> +<span id="L159" class="LineNr">159 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L160" class="LineNr">160 </span><span class="Normal">case</span> <span class="Constant">0x2c</span>: <span class="Delimiter">{</span> <span class="Comment">// truncate float to integer</span> +<span id="L161" class="LineNr">161 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L162" class="LineNr">162 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L163" class="LineNr">163 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"truncate x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L165" class="LineNr">165 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i = trunc<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L167" class="LineNr">167 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> +<span id="L169" class="LineNr">169 </span> +<span id="L170" class="LineNr">170 </span><span class="SalientComment">//:: add</span> +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L173" class="LineNr">173 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"add floats (addss)"</span><span class="Delimiter">);</span> +<span id="L174" class="LineNr">174 </span> +<span id="L175" class="LineNr">175 </span><span class="Delimiter">:(code)</span> +<span id="L176" class="LineNr">176 </span><span class="Normal">void</span> <a href='023float.cc.html#L176'>test_addss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L177" class="LineNr">177 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L178" class="LineNr">178 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L179" class="LineNr">179 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L180" class="LineNr">180 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L181" class="LineNr">181 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L182" class="LineNr">182 </span> <span class="Constant">"f3 0f 58 c1 \n"</span> +<span id="L183" class="LineNr">183 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L184" class="LineNr">184 </span> <span class="Delimiter">);</span> +<span id="L185" class="LineNr">185 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L186" class="LineNr">186 </span> <span class="Constant">"run: add x/m32 to XMM0\n"</span> +<span id="L187" class="LineNr">187 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L188" class="LineNr">188 </span> <span class="Constant">"run: XMM0 is now 5\n"</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">);</span> +<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> +<span id="L192" class="LineNr">192 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L193" class="LineNr">193 </span><span class="Normal">case</span> <span class="Constant">0x58</span>: <span class="Delimiter">{</span> <span class="Comment">// add x/m32 to x32</span> +<span id="L194" class="LineNr">194 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L195" class="LineNr">195 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add x/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L197" class="LineNr">197 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L198" class="LineNr">198 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] += *src<span class="Delimiter">;</span> +<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L200" class="LineNr">200 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span> +<span id="L203" class="LineNr">203 </span><span class="SalientComment">//:: subtract</span> +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L206" class="LineNr">206 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"subtract floats (subss)"</span><span class="Delimiter">);</span> +<span id="L207" class="LineNr">207 </span> +<span id="L208" class="LineNr">208 </span><span class="Delimiter">:(code)</span> +<span id="L209" class="LineNr">209 </span><span class="Normal">void</span> <a href='023float.cc.html#L209'>test_subss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L211" class="LineNr">211 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L212" class="LineNr">212 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L213" class="LineNr">213 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L214" class="LineNr">214 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L215" class="LineNr">215 </span> <span class="Constant">"f3 0f 5c c1 \n"</span> +<span id="L216" class="LineNr">216 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">);</span> +<span id="L218" class="LineNr">218 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: subtract x/m32 from XMM0\n"</span> +<span id="L220" class="LineNr">220 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L221" class="LineNr">221 </span> <span class="Constant">"run: XMM0 is now 1\n"</span> +<span id="L222" class="LineNr">222 </span> <span class="Delimiter">);</span> +<span id="L223" class="LineNr">223 </span><span class="Delimiter">}</span> +<span id="L224" class="LineNr">224 </span> +<span id="L225" class="LineNr">225 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L226" class="LineNr">226 </span><span class="Normal">case</span> <span class="Constant">0x5c</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract x/m32 from x32</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L228" class="LineNr">228 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract x/m32 from "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L230" class="LineNr">230 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L231" class="LineNr">231 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] -= *src<span class="Delimiter">;</span> +<span id="L232" class="LineNr">232 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L233" class="LineNr">233 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span> +<span id="L236" class="LineNr">236 </span><span class="SalientComment">//:: multiply</span> +<span id="L237" class="LineNr">237 </span> +<span id="L238" class="LineNr">238 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L239" class="LineNr">239 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"multiply floats (mulss)"</span><span class="Delimiter">);</span> +<span id="L240" class="LineNr">240 </span> +<span id="L241" class="LineNr">241 </span><span class="Delimiter">:(code)</span> +<span id="L242" class="LineNr">242 </span><span class="Normal">void</span> <a href='023float.cc.html#L242'>test_mulss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L244" class="LineNr">244 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L245" class="LineNr">245 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L246" class="LineNr">246 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L247" class="LineNr">247 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L248" class="LineNr">248 </span> <span class="Constant">"f3 0f 59 c1 \n"</span> +<span id="L249" class="LineNr">249 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L250" class="LineNr">250 </span> <span class="Delimiter">);</span> +<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L252" class="LineNr">252 </span> <span class="Constant">"run: multiply XMM0 by x/m32\n"</span> +<span id="L253" class="LineNr">253 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: XMM0 is now 6\n"</span> +<span id="L255" class="LineNr">255 </span> <span class="Delimiter">);</span> +<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L259" class="LineNr">259 </span><span class="Normal">case</span> <span class="Constant">0x59</span>: <span class="Delimiter">{</span> <span class="Comment">// multiply x32 by x/m32</span> +<span id="L260" class="LineNr">260 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L261" class="LineNr">261 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] *= *src<span class="Delimiter">;</span> +<span id="L265" class="LineNr">265 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L266" class="LineNr">266 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L267" class="LineNr">267 </span><span class="Delimiter">}</span> +<span id="L268" class="LineNr">268 </span> +<span id="L269" class="LineNr">269 </span><span class="SalientComment">//:: divide</span> +<span id="L270" class="LineNr">270 </span> +<span id="L271" class="LineNr">271 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L272" class="LineNr">272 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"divide floats (divss)"</span><span class="Delimiter">);</span> +<span id="L273" class="LineNr">273 </span> +<span id="L274" class="LineNr">274 </span><span class="Delimiter">:(code)</span> +<span id="L275" class="LineNr">275 </span><span class="Normal">void</span> <a href='023float.cc.html#L275'>test_divss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L276" class="LineNr">276 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L277" class="LineNr">277 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L278" class="LineNr">278 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L279" class="LineNr">279 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L280" class="LineNr">280 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L281" class="LineNr">281 </span> <span class="Constant">"f3 0f 5e c1 \n"</span> +<span id="L282" class="LineNr">282 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">);</span> +<span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L285" class="LineNr">285 </span> <span class="Constant">"run: divide XMM0 by x/m32\n"</span> +<span id="L286" class="LineNr">286 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L287" class="LineNr">287 </span> <span class="Constant">"run: XMM0 is now 1.5\n"</span> +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">);</span> +<span id="L289" class="LineNr">289 </span><span class="Delimiter">}</span> +<span id="L290" class="LineNr">290 </span> +<span id="L291" class="LineNr">291 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L292" class="LineNr">292 </span><span class="Normal">case</span> <span class="Constant">0x5e</span>: <span class="Delimiter">{</span> <span class="Comment">// divide x32 by x/m32</span> +<span id="L293" class="LineNr">293 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L294" class="LineNr">294 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L295" class="LineNr">295 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"divide "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L296" class="LineNr">296 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L297" class="LineNr">297 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] /= *src<span class="Delimiter">;</span> +<span id="L298" class="LineNr">298 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L299" class="LineNr">299 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> +<span id="L301" class="LineNr">301 </span> +<span id="L302" class="LineNr">302 </span><span class="SalientComment">//:: min</span> +<span id="L303" class="LineNr">303 </span> +<span id="L304" class="LineNr">304 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L305" class="LineNr">305 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"minimum of two floats (minss)"</span><span class="Delimiter">);</span> +<span id="L306" class="LineNr">306 </span> +<span id="L307" class="LineNr">307 </span><span class="Delimiter">:(code)</span> +<span id="L308" class="LineNr">308 </span><span class="Normal">void</span> <a href='023float.cc.html#L308'>test_minss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L310" class="LineNr">310 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L311" class="LineNr">311 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L312" class="LineNr">312 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L313" class="LineNr">313 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">"f3 0f 5d c1 \n"</span> +<span id="L315" class="LineNr">315 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L316" class="LineNr">316 </span> <span class="Delimiter">);</span> +<span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: minimum of XMM0 and x/m32\n"</span> +<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: XMM0 is now 2\n"</span> +<span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> +<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> +<span id="L323" class="LineNr">323 </span> +<span id="L324" class="LineNr">324 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L325" class="LineNr">325 </span><span class="Normal">case</span> <span class="Constant">0x5d</span>: <span class="Delimiter">{</span> <span class="Comment">// minimum of x32, x/m32</span> +<span id="L326" class="LineNr">326 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L327" class="LineNr">327 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L328" class="LineNr">328 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"minimum of "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L329" class="LineNr">329 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L330" class="LineNr">330 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = min<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> +<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L332" class="LineNr">332 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L333" class="LineNr">333 </span><span class="Delimiter">}</span> +<span id="L334" class="LineNr">334 </span> +<span id="L335" class="LineNr">335 </span><span class="SalientComment">//:: max</span> +<span id="L336" class="LineNr">336 </span> +<span id="L337" class="LineNr">337 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L338" class="LineNr">338 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"maximum of two floats (maxss)"</span><span class="Delimiter">);</span> +<span id="L339" class="LineNr">339 </span> +<span id="L340" class="LineNr">340 </span><span class="Delimiter">:(code)</span> +<span id="L341" class="LineNr">341 </span><span class="Normal">void</span> <a href='023float.cc.html#L341'>test_maxss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L343" class="LineNr">343 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L344" class="LineNr">344 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L345" class="LineNr">345 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L346" class="LineNr">346 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L347" class="LineNr">347 </span> <span class="Constant">"f3 0f 5f c1 \n"</span> +<span id="L348" class="LineNr">348 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L349" class="LineNr">349 </span> <span class="Delimiter">);</span> +<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L351" class="LineNr">351 </span> <span class="Constant">"run: maximum of XMM0 and x/m32\n"</span> +<span id="L352" class="LineNr">352 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L353" class="LineNr">353 </span> <span class="Constant">"run: XMM0 is now 3\n"</span> +<span id="L354" class="LineNr">354 </span> <span class="Delimiter">);</span> +<span id="L355" class="LineNr">355 </span><span class="Delimiter">}</span> +<span id="L356" class="LineNr">356 </span> +<span id="L357" class="LineNr">357 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L358" class="LineNr">358 </span><span class="Normal">case</span> <span class="Constant">0x5f</span>: <span class="Delimiter">{</span> <span class="Comment">// maximum of x32, x/m32</span> +<span id="L359" class="LineNr">359 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L360" class="LineNr">360 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"maximum of "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L362" class="LineNr">362 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L363" class="LineNr">363 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = max<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> +<span id="L364" class="LineNr">364 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L365" class="LineNr">365 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L366" class="LineNr">366 </span><span class="Delimiter">}</span> +<span id="L367" class="LineNr">367 </span> +<span id="L368" class="LineNr">368 </span><span class="SalientComment">//:: reciprocal</span> +<span id="L369" class="LineNr">369 </span> +<span id="L370" class="LineNr">370 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L371" class="LineNr">371 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"reciprocal of float (rcpss)"</span><span class="Delimiter">);</span> +<span id="L372" class="LineNr">372 </span> +<span id="L373" class="LineNr">373 </span><span class="Delimiter">:(code)</span> +<span id="L374" class="LineNr">374 </span><span class="Normal">void</span> <a href='023float.cc.html#L374'>test_rcpss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L375" class="LineNr">375 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L376" class="LineNr">376 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L377" class="LineNr">377 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L378" class="LineNr">378 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L379" class="LineNr">379 </span> <span class="Constant">"f3 0f 53 c1 \n"</span> +<span id="L380" class="LineNr">380 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L381" class="LineNr">381 </span> <span class="Delimiter">);</span> +<span id="L382" class="LineNr">382 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L383" class="LineNr">383 </span> <span class="Constant">"run: reciprocal of x/m32 into XMM0\n"</span> +<span id="L384" class="LineNr">384 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L385" class="LineNr">385 </span> <span class="Constant">"run: XMM0 is now 0.5\n"</span> +<span id="L386" class="LineNr">386 </span> <span class="Delimiter">);</span> +<span id="L387" class="LineNr">387 </span><span class="Delimiter">}</span> +<span id="L388" class="LineNr">388 </span> +<span id="L389" class="LineNr">389 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L390" class="LineNr">390 </span><span class="Normal">case</span> <span class="Constant">0x53</span>: <span class="Delimiter">{</span> <span class="Comment">// reciprocal of x/m32 into x32</span> +<span id="L391" class="LineNr">391 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L392" class="LineNr">392 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L393" class="LineNr">393 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"reciprocal of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L394" class="LineNr">394 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L395" class="LineNr">395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = <span class="Constant">1.0</span> / *src<span class="Delimiter">;</span> +<span id="L396" class="LineNr">396 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L397" class="LineNr">397 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L398" class="LineNr">398 </span><span class="Delimiter">}</span> +<span id="L399" class="LineNr">399 </span> +<span id="L400" class="LineNr">400 </span><span class="SalientComment">//:: square root</span> +<span id="L401" class="LineNr">401 </span> +<span id="L402" class="LineNr">402 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L403" class="LineNr">403 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"square root of float (sqrtss)"</span><span class="Delimiter">);</span> +<span id="L404" class="LineNr">404 </span> +<span id="L405" class="LineNr">405 </span><span class="Delimiter">:(code)</span> +<span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='023float.cc.html#L406'>test_sqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L407" class="LineNr">407 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L408" class="LineNr">408 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L409" class="LineNr">409 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L410" class="LineNr">410 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L411" class="LineNr">411 </span> <span class="Constant">"f3 0f 51 c1 \n"</span> +<span id="L412" class="LineNr">412 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L413" class="LineNr">413 </span> <span class="Delimiter">);</span> +<span id="L414" class="LineNr">414 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L415" class="LineNr">415 </span> <span class="Constant">"run: square root of x/m32 into XMM0\n"</span> +<span id="L416" class="LineNr">416 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L417" class="LineNr">417 </span> <span class="Constant">"run: XMM0 is now 1.41421\n"</span> +<span id="L418" class="LineNr">418 </span> <span class="Delimiter">);</span> +<span id="L419" class="LineNr">419 </span><span class="Delimiter">}</span> +<span id="L420" class="LineNr">420 </span> +<span id="L421" class="LineNr">421 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L422" class="LineNr">422 </span><span class="Normal">case</span> <span class="Constant">0x51</span>: <span class="Delimiter">{</span> <span class="Comment">// square root of x/m32 into x32</span> +<span id="L423" class="LineNr">423 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L424" class="LineNr">424 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L425" class="LineNr">425 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"square root of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L426" class="LineNr">426 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L427" class="LineNr">427 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L428" class="LineNr">428 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L429" class="LineNr">429 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> +<span id="L431" class="LineNr">431 </span> +<span id="L432" class="LineNr">432 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L433" class="LineNr">433 </span><span class="PreProc">#include </span><span class="Constant"><math.h></span> +<span id="L434" class="LineNr">434 </span> +<span id="L435" class="LineNr">435 </span><span class="SalientComment">//:: inverse square root</span> +<span id="L436" class="LineNr">436 </span> +<span id="L437" class="LineNr">437 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L438" class="LineNr">438 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"inverse square root of float (rsqrtss)"</span><span class="Delimiter">);</span> +<span id="L439" class="LineNr">439 </span> +<span id="L440" class="LineNr">440 </span><span class="Delimiter">:(code)</span> +<span id="L441" class="LineNr">441 </span><span class="Normal">void</span> <a href='023float.cc.html#L441'>test_rsqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L442" class="LineNr">442 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">0.01</span><span class="Delimiter">;</span> +<span id="L443" class="LineNr">443 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L444" class="LineNr">444 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L445" class="LineNr">445 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L446" class="LineNr">446 </span> <span class="Constant">"f3 0f 52 c1 \n"</span> +<span id="L447" class="LineNr">447 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> +<span id="L448" class="LineNr">448 </span> <span class="Delimiter">);</span> +<span id="L449" class="LineNr">449 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L450" class="LineNr">450 </span> <span class="Constant">"run: inverse square root of x/m32 into XMM0\n"</span> +<span id="L451" class="LineNr">451 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> +<span id="L452" class="LineNr">452 </span> <span class="Constant">"run: XMM0 is now 10\n"</span> +<span id="L453" class="LineNr">453 </span> <span class="Delimiter">);</span> +<span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> +<span id="L455" class="LineNr">455 </span> +<span id="L456" class="LineNr">456 </span><span class="Delimiter">:(before "End Three-Byte Opcodes Starting With f3 0f")</span> +<span id="L457" class="LineNr">457 </span><span class="Normal">case</span> <span class="Constant">0x52</span>: <span class="Delimiter">{</span> <span class="Comment">// inverse square root of x/m32 into x32</span> +<span id="L458" class="LineNr">458 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L459" class="LineNr">459 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inverse square root of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L461" class="LineNr">461 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L462" class="LineNr">462 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = <span class="Constant">1.0</span> / sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L464" class="LineNr">464 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L465" class="LineNr">465 </span><span class="Delimiter">}</span> +<span id="L466" class="LineNr">466 </span> +<span id="L467" class="LineNr">467 </span><span class="Delimiter">:(code)</span> +<span id="L468" class="LineNr">468 </span><span class="Normal">float</span>* <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> modrm<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L469" class="LineNr">469 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> mod = <span class="Delimiter">(</span>modrm>><span class="Constant">6</span><span class="Delimiter">);</span> +<span id="L470" class="LineNr">470 </span> <span class="Comment">// ignore middle 3 'reg opcode' bits</span> +<span id="L471" class="LineNr">471 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L472" class="LineNr">472 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L473" class="LineNr">473 </span> <span class="Comment">// mod 3 is just register direct addressing</span> +<span id="L474" class="LineNr">474 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"x/m32 is "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rm] << end<span class="Delimiter">();</span> +<span id="L475" class="LineNr">475 </span> <span class="Identifier">return</span> &<span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rm]<span class="Delimiter">;</span> +<span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> +<span id="L477" class="LineNr">477 </span> <span class="Normal">uint32_t</span> addr = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L478" class="LineNr">478 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains "</span> << <a href='010vm.cc.html#L188'>read_mem_f32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L479" class="LineNr">479 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L230'>mem_addr_f32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L480" class="LineNr">480 </span><span class="Delimiter">}</span> +<span id="L481" class="LineNr">481 </span> +<span id="L482" class="LineNr">482 </span><span class="Comment">//: compare</span> +<span id="L483" class="LineNr">483 </span> +<span id="L484" class="LineNr">484 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L485" class="LineNr">485 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if x32 < xm32 (comiss)"</span><span class="Delimiter">);</span> +<span id="L486" class="LineNr">486 </span> +<span id="L487" class="LineNr">487 </span><span class="Delimiter">:(code)</span> +<span id="L488" class="LineNr">488 </span><span class="Normal">void</span> <a href='023float.cc.html#L488'>test_compare_x32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L489" class="LineNr">489 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L490" class="LineNr">490 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L491" class="LineNr">491 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L492" class="LineNr">492 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L493" class="LineNr">493 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> +<span id="L494" class="LineNr">494 </span> <span class="Constant">" 0f 2f 18 \n"</span> <span class="Comment">// compare XMM3 with *EAX</span> +<span id="L495" class="LineNr">495 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs XMM3) 000 (rhs EAX)</span> +<span id="L496" class="LineNr">496 </span> <span class="Constant">"== data 0x2000\n"</span> +<span id="L497" class="LineNr">497 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0x00000000 = 0.0</span> +<span id="L498" class="LineNr">498 </span> <span class="Delimiter">);</span> +<span id="L499" class="LineNr">499 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L500" class="LineNr">500 </span> <span class="Constant">"run: compare XMM3 with x/m32\n"</span> +<span id="L501" class="LineNr">501 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L502" class="LineNr">502 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L503" class="LineNr">503 </span> <span class="Delimiter">);</span> +<span id="L504" class="LineNr">504 </span><span class="Delimiter">}</span> +<span id="L505" class="LineNr">505 </span> +<span id="L506" class="LineNr">506 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> +<span id="L507" class="LineNr">507 </span><span class="Normal">case</span> <span class="Constant">0x2f</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if x32 < x/m32</span> +<span id="L508" class="LineNr">508 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L509" class="LineNr">509 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> +<span id="L510" class="LineNr">510 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[reg1] << <span class="Constant">" with x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L511" class="LineNr">511 </span> <span class="Normal">const</span> <span class="Normal">float</span>* arg2 = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L512" class="LineNr">512 </span> <span class="Comment">// Flag settings carefully copied from the Intel manual.</span> +<span id="L513" class="LineNr">513 </span> <span class="Comment">// See also <a href="https://stackoverflow.com/questions/7057501/x86-assembler-floating-point-compare/7057771#7057771">https://stackoverflow.com/questions/7057501/x86-assembler-floating-point-compare/7057771#7057771</a></span> +<span id="L514" class="LineNr">514 </span> SF = <a href='010vm.cc.html#L89'>ZF</a> = <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L515" class="LineNr">515 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[reg1] == *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L516" class="LineNr">516 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[reg1] < *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L517" class="LineNr">517 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L518" class="LineNr">518 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L519" class="LineNr">519 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/030translate.cc.html b/html/030translate.cc.html index 52de2c83..b7b992ba 100644 --- a/html/030translate.cc.html +++ b/html/030translate.cc.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } .LineNr { } -.SalientComment { color: #0000af; } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.PreProc { color: #c000c0; } .cSpecial { color: #008000; } +.SalientComment { color: #0000af; } --> </style> @@ -67,15 +67,15 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="Comment">//: be just machine code, suitable to emulate, or to write to an ELF binary.</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(before "End Main")</span> -<span id="L9" class="LineNr"> 9 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"translate"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"translate"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L10" class="LineNr"> 10 </span> <span class="Comment">// Outside of tests, traces must be explicitly requested.</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='003trace.cc.html#L448'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Special"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span id="L12" class="LineNr"> 12 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L13" class="LineNr"> 13 </span> <span class="Comment">// Begin bootstrap translate</span> <span id="L14" class="LineNr"> 14 </span> program p<span class="Delimiter">;</span> <span id="L15" class="LineNr"> 15 </span> string output_filename<span class="Delimiter">;</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip 'bootstrap translate'</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">;</span> i < argc<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>argv[i]<span class="Delimiter">,</span> <span class="Constant">"-o"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[i]<span class="Delimiter">,</span> <span class="Constant">"-o"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L18" class="LineNr"> 18 </span> ++i<span class="Delimiter">;</span> <span id="L19" class="LineNr"> 19 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= argc<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L20" class="LineNr"> 20 </span> <a href='030translate.cc.html#L65'>print_translate_usage</a><span class="Delimiter">();</span> @@ -92,7 +92,7 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> <span id="L33" class="LineNr"> 33 </span> parse<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> p<span class="Delimiter">);</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</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 class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> @@ -107,10 +107,10 @@ if ('onhashchange' in window) { <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> <span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"begin"</span> << end<span class="Delimiter">();</span> <span id="L48" class="LineNr"> 48 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"translate"</span><span class="Delimiter">)</span> << <span class="Constant">"begin"</span> << end<span class="Delimiter">();</span> <span id="L51" class="LineNr"> 51 </span> save_elf<span class="Delimiter">(</span>p<span class="Delimiter">,</span> output_filename<span class="Delimiter">);</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L53" class="LineNr"> 53 </span> unlink<span class="Delimiter">(</span>output_filename<span class="Delimiter">.</span>c_str<span class="Delimiter">());</span> <span id="L54" class="LineNr"> 54 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> @@ -137,11 +137,11 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span><span class="Normal">void</span> save_elf<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> ostream& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L77" class="LineNr"> 77 </span> <span class="Comment">// validation: stay consistent with the self-hosted translator</span> <span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a> == <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"no 'Entry' label found\n"</span> << end<span class="Delimiter">();</span> +<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no 'Entry' label found\n"</span> << end<span class="Delimiter">();</span> <span id="L80" class="LineNr"> 80 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"data"</span><span class="Delimiter">)</span> == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"must include a 'data' segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L83" class="LineNr"> 83 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"must include a 'data' segment\n"</span> << end<span class="Delimiter">();</span> <span id="L84" class="LineNr"> 84 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr"> 86 </span> <span class="Comment">// processing</span> @@ -152,22 +152,22 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span> <span id="L92" class="LineNr"> 92 </span><span class="Normal">void</span> <a href='030translate.cc.html#L92'>write_elf_header</a><span class="Delimiter">(</span>ostream& out<span class="Delimiter">,</span> <span class="Normal">const</span> program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> <span class="Normal">char</span> c = <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">#define </span><span class="Special">O</span><span class="PreProc">(</span><span class="Special">X</span><span class="PreProc">) c = (</span><span class="Special">X</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> out</span><span class="Delimiter">.</span><span class="PreProc">write(&c</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(c))</span> +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">#define </span><span class="SpecialChar">O</span><span class="PreProc">(</span><span class="SpecialChar">X</span><span class="PreProc">) c = (</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> out</span><span class="Delimiter">.</span><span class="PreProc">write(&c</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(c))</span> <span id="L95" class="LineNr"> 95 </span><span class="Comment">// host is required to be little-endian</span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define emit(</span><span class="Special">X</span><span class="PreProc">) out</span><span class="Delimiter">.</span><span class="PreProc">write(</span><span class="Normal">reinterpret_cast</span><span class="PreProc"><</span><span class="Normal">const</span><span class="PreProc"> </span><span class="Normal">char</span><span class="PreProc">*>(&</span><span class="Special">X</span><span class="PreProc">)</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="Special">X</span><span class="PreProc">))</span> +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define emit(</span><span class="SpecialChar">X</span><span class="PreProc">) out</span><span class="Delimiter">.</span><span class="PreProc">write(</span><span class="Normal">reinterpret_cast</span><span class="PreProc"><</span><span class="Normal">const</span><span class="PreProc"> </span><span class="Normal">char</span><span class="PreProc">*>(&</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="SpecialChar">X</span><span class="PreProc">))</span> <span id="L97" class="LineNr"> 97 </span> <span class="SalientComment">//// ehdr</span> <span id="L98" class="LineNr"> 98 </span> <span class="Comment">// e_ident</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x7f</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">E</span><span class="Comment">*/</span><span class="Constant">0x45</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">L</span><span class="Comment">*/</span><span class="Constant">0x4c</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">F</span><span class="Comment">*/</span><span class="Constant">0x46</span><span class="Delimiter">);</span> -<span id="L100" class="LineNr">100 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// 32-bit format</span> -<span id="L101" class="LineNr">101 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// little-endian</span> -<span id="L102" class="LineNr">102 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> -<span id="L103" class="LineNr">103 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Constant">8</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> <span class="Delimiter">}</span> +<span id="L99" class="LineNr"> 99 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x7f</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">E</span><span class="Comment">*/</span><span class="Constant">0x45</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">L</span><span class="Comment">*/</span><span class="Constant">0x4c</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">F</span><span class="Comment">*/</span><span class="Constant">0x46</span><span class="Delimiter">);</span> +<span id="L100" class="LineNr">100 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// 32-bit format</span> +<span id="L101" class="LineNr">101 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// little-endian</span> +<span id="L102" class="LineNr">102 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> +<span id="L103" class="LineNr">103 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Constant">8</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> <span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span class="Comment">// e_type</span> -<span id="L105" class="LineNr">105 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x02</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L105" class="LineNr">105 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x02</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// e_machine</span> -<span id="L107" class="LineNr">107 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L107" class="LineNr">107 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <span class="Comment">// e_version</span> -<span id="L109" class="LineNr">109 </span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="Special">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L109" class="LineNr">109 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L110" class="LineNr">110 </span> <span class="Comment">// e_entry</span> <span id="L111" class="LineNr">111 </span> <span class="Normal">uint32_t</span> e_entry = p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a><span class="Delimiter">;</span> <span id="L112" class="LineNr">112 </span> <span class="Comment">// Override e_entry</span> @@ -187,7 +187,7 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="Normal">uint16_t</span> e_phentsize = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L127" class="LineNr">127 </span> emit<span class="Delimiter">(</span>e_phentsize<span class="Delimiter">);</span> <span id="L128" class="LineNr">128 </span> <span class="Comment">// e_phnum</span> -<span id="L129" class="LineNr">129 </span> <span class="Normal">uint16_t</span> e_phnum = <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> +<span id="L129" class="LineNr">129 </span> <span class="Normal">uint16_t</span> e_phnum = <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> <span id="L130" class="LineNr">130 </span> emit<span class="Delimiter">(</span>e_phnum<span class="Delimiter">);</span> <span id="L131" class="LineNr">131 </span> <span class="Comment">// e_shentsize</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">uint16_t</span> dummy16 = <span class="Constant">0x0</span><span class="Delimiter">;</span> @@ -197,8 +197,8 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> <span class="Comment">// e_shstrndx</span> <span id="L137" class="LineNr">137 </span> emit<span class="Delimiter">(</span>dummy16<span class="Delimiter">);</span> <span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> -<span id="L140" class="LineNr">140 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> +<span id="L140" class="LineNr">140 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L141" class="LineNr">141 </span> <span class="Normal">const</span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L142" class="LineNr">142 </span> <span class="SalientComment">//// phdr</span> <span id="L143" class="LineNr">143 </span> <span class="Comment">// p_type</span> @@ -213,7 +213,7 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> emit<span class="Delimiter">(</span>p_start<span class="Delimiter">);</span> <span id="L153" class="LineNr">153 </span> <span class="Comment">// p_filesz</span> <span id="L154" class="LineNr">154 </span> <span class="Normal">uint32_t</span> size = <a href='030translate.cc.html#L198'>num_words</a><span class="Delimiter">(</span>curr<span class="Delimiter">);</span> -<span id="L155" class="LineNr">155 </span> assert<span class="Delimiter">(</span>p_offset + size < <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> +<span id="L155" class="LineNr">155 </span> assert<span class="Delimiter">(</span>p_offset + size < <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> <span id="L156" class="LineNr">156 </span> emit<span class="Delimiter">(</span>size<span class="Delimiter">);</span> <span id="L157" class="LineNr">157 </span> <span class="Comment">// p_memsz</span> <span id="L158" class="LineNr">158 </span> emit<span class="Delimiter">(</span>size<span class="Delimiter">);</span> @@ -235,21 +235,21 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span> <span class="Normal">uint32_t</span> p_align = <span class="Constant">0x1000</span><span class="Delimiter">;</span> <span class="Comment">// default page size on linux</span> <span id="L175" class="LineNr">175 </span> emit<span class="Delimiter">(</span>p_align<span class="Delimiter">);</span> <span id="L176" class="LineNr">176 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_offset % p_align != p_start % p_align<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"segment starting at 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << p_start << <span class="Constant">" is improperly aligned; alignment for p_offset "</span> << p_offset << <span class="Constant">" should be "</span> << <span class="Delimiter">(</span>p_offset % p_align<span class="Delimiter">)</span> << <span class="Constant">" but is "</span> << <span class="Delimiter">(</span>p_start % p_align<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L177" class="LineNr">177 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"segment starting at 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << p_start << <span class="Constant">" is improperly aligned; alignment for p_offset "</span> << p_offset << <span class="Constant">" should be "</span> << <span class="Delimiter">(</span>p_offset % p_align<span class="Delimiter">)</span> << <span class="Constant">" but is "</span> << <span class="Delimiter">(</span>p_start % p_align<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L178" class="LineNr">178 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> <span id="L180" class="LineNr">180 </span> <span id="L181" class="LineNr">181 </span> <span class="Comment">// prepare for next segment</span> <span id="L182" class="LineNr">182 </span> p_offset += size<span class="Delimiter">;</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span><span class="PreProc">#undef </span><span class="Special">O</span> +<span id="L184" class="LineNr">184 </span><span class="PreProc">#undef </span><span class="SpecialChar">O</span> <span id="L185" class="LineNr">185 </span><span class="PreProc">#undef emit</span> <span id="L186" class="LineNr">186 </span><span class="Delimiter">}</span> <span id="L187" class="LineNr">187 </span> <span id="L188" class="LineNr">188 </span><span class="Normal">void</span> <a href='030translate.cc.html#L188'>write_segment</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">,</span> ostream& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L190" class="LineNr">190 </span> <span class="Normal">const</span> vector<word>& w = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">;</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L192" class="LineNr">192 </span> <span class="Normal">uint8_t</span> x = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">).</span>data<span class="Delimiter">);</span> <span class="Comment">// we're done with metadata by this point</span> <span id="L193" class="LineNr">193 </span> out<span class="Delimiter">.</span>write<span class="Delimiter">(</span><span class="Normal">reinterpret_cast</span><<span class="Normal">const</span> <span class="Normal">char</span>*><span class="Delimiter">(</span>&x<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">sizeof(byte)</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> @@ -258,8 +258,8 @@ if ('onhashchange' in window) { <span id="L197" class="LineNr">197 </span> <span id="L198" class="LineNr">198 </span><span class="Normal">uint32_t</span> <a href='030translate.cc.html#L198'>num_words</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L199" class="LineNr">199 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L200" class="LineNr">200 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L201" class="LineNr">201 </span> sum += <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> +<span id="L200" class="LineNr">200 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L201" class="LineNr">201 </span> sum += <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> <span id="L202" class="LineNr">202 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> diff --git a/html/031transforms.cc.html b/html/031transforms.cc.html index 73e7b823..1e33e388 100644 --- a/html/031transforms.cc.html +++ b/html/031transforms.cc.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; } .LineNr { } -.Constant { color: #008787; } .Comment { color: #005faf; } +.Constant { color: #008787; } +.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -58,11 +58,11 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="Delimiter">:(before "End Types")</span> <span id="L2" class="LineNr"> 2 </span><span class="Normal">typedef</span> <span class="Normal">void</span> <span class="Delimiter">(</span>*transform_fn<span class="Delimiter">)(</span>program&<span class="Delimiter">);</span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L4" class="LineNr"> 4 </span>vector<transform_fn> <span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span>vector<transform_fn> <span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">;</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End transform(program& p)")</span> -<span id="L7" class="LineNr"> 7 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> t = <span class="Constant">0</span><span class="Delimiter">;</span> t < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">);</span> ++t<span class="Delimiter">)</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">(</span>*<span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>t<span class="Delimiter">))(</span>p<span class="Delimiter">);</span> +<span id="L7" class="LineNr"> 7 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> t = <span class="Constant">0</span><span class="Delimiter">;</span> t < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">);</span> ++t<span class="Delimiter">)</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">(</span>*<span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>t<span class="Delimiter">))(</span>p<span class="Delimiter">);</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L11" class="LineNr">11 </span><span class="Comment">// Begin Transforms</span> diff --git a/html/032operands.cc.html b/html/032operands.cc.html index 66c116e8..a259124e 100644 --- a/html/032operands.cc.html +++ b/html/032operands.cc.html @@ -16,12 +16,12 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } .LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SalientComment { color: #0000af; } --> </style> @@ -67,537 +67,638 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span><span class="Comment">//: metastasizes at runtime into kilobytes of misinterpreted instructions.</span> <span id="L8" class="LineNr"> 8 </span><span class="Comment">//:</span> <span id="L9" class="LineNr"> 9 </span><span class="Comment">//: To mitigate these issues, we'll start programming in terms of logical</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment">//: operands rather than physical bytes. Some operands are smaller than a</span> +<span id="L10" class="LineNr"> 10 </span><span class="Comment">//: arguments rather than physical bytes. Some arguments are smaller than a</span> <span id="L11" class="LineNr"> 11 </span><span class="Comment">//: byte, and others may consist of multiple bytes. This layer will correctly</span> -<span id="L12" class="LineNr"> 12 </span><span class="Comment">//: pack and order the bytes corresponding to the operands in an instruction.</span> +<span id="L12" class="LineNr"> 12 </span><span class="Comment">//: pack and order the bytes corresponding to the arguments in an instruction.</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L15" class="LineNr"> 15 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"instructions"</span><span class="Delimiter">,</span> +<span id="L15" class="LineNr"> 15 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"instructions"</span><span class="Delimiter">,</span> <span id="L16" class="LineNr"> 16 </span> <span class="Constant">"Each x86 instruction consists of an instruction or opcode and some number\n"</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"of operands.\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"Each operand has a type. An instruction won't have more than one operand of\n"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"of arguments.\n"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"Each argument has a type. An instruction won't have more than one argument of\n"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"any type.\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"Each instruction has some set of allowed operand types. It'll reject others.\n"</span> -<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"The complete list of operand types: mod, subop, r32 (register), rm32\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"(register or memory), scale, index, base, disp8, disp16, <a href='040tests.cc.html#L82'>disp32</a>, imm8,\n"</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"imm32.\n"</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"Each of these has its own help page. Try reading 'bootstrap help mod' next.\n"</span> -<span id="L25" class="LineNr"> 25 </span><span class="Delimiter">);</span> -<span id="L26" class="LineNr"> 26 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L27" class="LineNr"> 27 </span>cerr << <span class="Constant">" instructions\n"</span><span class="Delimiter">;</span> -<span id="L28" class="LineNr"> 28 </span> -<span id="L29" class="LineNr"> 29 </span><span class="Delimiter">:(before "Running Test Program")</span> -<span id="L30" class="LineNr"> 30 </span>transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> -<span id="L31" class="LineNr"> 31 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="Delimiter">:(code)</span> -<span id="L34" class="LineNr"> 34 </span><span class="Normal">void</span> <a href='032operands.cc.html#L34'>test_pack_immediate_constants</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"bb 0x2a/imm32\n"</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">);</span> -<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Constant">"transform: packing instruction 'bb 0x2a/imm32'\n"</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"transform: instruction after packing: 'bb 2a 00 00 00'\n"</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"run: copy imm32 0x0000002a to EBX\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">);</span> -<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> -<span id="L45" class="LineNr"> 45 </span> -<span id="L46" class="LineNr"> 46 </span><span class="Comment">//: complete set of valid operand types</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L49" class="LineNr"> 49 </span>set<string> <span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">;</span> -<span id="L50" class="LineNr"> 50 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L51" class="LineNr"> 51 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"subop"</span><span class="Delimiter">);</span> -<span id="L52" class="LineNr"> 52 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"mod"</span><span class="Delimiter">);</span> -<span id="L53" class="LineNr"> 53 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"rm32"</span><span class="Delimiter">);</span> -<span id="L54" class="LineNr"> 54 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"base"</span><span class="Delimiter">);</span> -<span id="L55" class="LineNr"> 55 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"index"</span><span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"scale"</span><span class="Delimiter">);</span> -<span id="L57" class="LineNr"> 57 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"r32"</span><span class="Delimiter">);</span> -<span id="L58" class="LineNr"> 58 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp8"</span><span class="Delimiter">);</span> -<span id="L59" class="LineNr"> 59 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp16"</span><span class="Delimiter">);</span> -<span id="L60" class="LineNr"> 60 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp32"</span><span class="Delimiter">);</span> -<span id="L61" class="LineNr"> 61 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm8"</span><span class="Delimiter">);</span> -<span id="L62" class="LineNr"> 62 </span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm32"</span><span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L65" class="LineNr"> 65 </span><a href='032operands.cc.html#L67'>init_operand_type_help</a><span class="Delimiter">();</span> -<span id="L66" class="LineNr"> 66 </span><span class="Delimiter">:(code)</span> -<span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='032operands.cc.html#L67'>init_operand_type_help</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"2-bit operand controlling the _addressing mode_ of many instructions,\n"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"to determine how to compute the _effective address_ to look up memory at\n"</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"based on the 'rm32' operand and potentially others.\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"If mod = 3, just operate on the <a href='003trace.cc.html#L117'>contents</a> of the register specified by rm32\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" (direct mode).\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"If mod = 2, effective address is usually* rm32 + disp32\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"If mod = 1, effective address is usually* rm32 + disp8\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"If mod = 0, effective address is usually* rm32 (indirect mode).\n"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"(* - The exception is when rm32 is '4'. Register 4 is the stack pointer (<a href='010vm.cc.html#L14'>ESP</a>).\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" Using it as an address gets more involved. For more details,\n"</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Constant">" try reading the help pages for 'base', 'index' and 'scale'.)\n"</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="Special">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">);</span> -<span id="L89" class="LineNr"> 89 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"Additional 3-bit operand for determining the instruction when the opcode\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"is 81, 8f, d3, f7 or ff.\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"Can't coexist with operand of type 'r32' in a single instruction, because\n"</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"the two use the same bits.\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">);</span> -<span id="L95" class="LineNr"> 95 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"3-bit operand specifying a register operand used directly, without any further addressing modes.\n"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"Each instruction has some set of allowed argument types. It'll reject others.\n"</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"The complete list of argument types: mod, subop, r32 (integer register),\n"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"rm32 (integer register or memory), x32 (floating point register),\n"</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"xm32 (floating point register or memory), scale, index, base, disp8, disp16,\n"</span> +<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"disp32,imm8,imm32.\n"</span> +<span id="L25" class="LineNr"> 25 </span> <span class="Constant">"Each of these has its own help page. Try reading 'bootstrap help mod' next.\n"</span> +<span id="L26" class="LineNr"> 26 </span><span class="Delimiter">);</span> +<span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> +<span id="L28" class="LineNr"> 28 </span>cerr << <span class="Constant">" instructions\n"</span><span class="Delimiter">;</span> +<span id="L29" class="LineNr"> 29 </span> +<span id="L30" class="LineNr"> 30 </span><span class="Delimiter">:(before "Running Test Program")</span> +<span id="L31" class="LineNr"> 31 </span>transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> +<span id="L32" class="LineNr"> 32 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="Delimiter">:(code)</span> +<span id="L35" class="LineNr"> 35 </span><span class="Normal">void</span> <a href='032operands.cc.html#L35'>test_pack_immediate_constants</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L36" class="LineNr"> 36 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Constant">"bb 0x2a/imm32\n"</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">);</span> +<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"transform: packing instruction 'bb 0x2a/imm32'\n"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"transform: instruction after packing: 'bb 2a 00 00 00'\n"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"run: copy imm32 0x0000002a to EBX\n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">);</span> +<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="Comment">//: complete set of valid argument types</span> +<span id="L48" class="LineNr"> 48 </span> +<span id="L49" class="LineNr"> 49 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L50" class="LineNr"> 50 </span>set<string> <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">;</span> +<span id="L51" class="LineNr"> 51 </span><span class="Delimiter">:(before "End One-time Setup")</span> +<span id="L52" class="LineNr"> 52 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"subop"</span><span class="Delimiter">);</span> +<span id="L53" class="LineNr"> 53 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"mod"</span><span class="Delimiter">);</span> +<span id="L54" class="LineNr"> 54 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"rm32"</span><span class="Delimiter">);</span> +<span id="L55" class="LineNr"> 55 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"xm32"</span><span class="Delimiter">);</span> +<span id="L56" class="LineNr"> 56 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"base"</span><span class="Delimiter">);</span> +<span id="L57" class="LineNr"> 57 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"index"</span><span class="Delimiter">);</span> +<span id="L58" class="LineNr"> 58 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"scale"</span><span class="Delimiter">);</span> +<span id="L59" class="LineNr"> 59 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"r32"</span><span class="Delimiter">);</span> +<span id="L60" class="LineNr"> 60 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"x32"</span><span class="Delimiter">);</span> +<span id="L61" class="LineNr"> 61 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp8"</span><span class="Delimiter">);</span> +<span id="L62" class="LineNr"> 62 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp16"</span><span class="Delimiter">);</span> +<span id="L63" class="LineNr"> 63 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp32"</span><span class="Delimiter">);</span> +<span id="L64" class="LineNr"> 64 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm8"</span><span class="Delimiter">);</span> +<span id="L65" class="LineNr"> 65 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm32"</span><span class="Delimiter">);</span> +<span id="L66" class="LineNr"> 66 </span> +<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> +<span id="L68" class="LineNr"> 68 </span><a href='032operands.cc.html#L70'>init_argument_type_help</a><span class="Delimiter">();</span> +<span id="L69" class="LineNr"> 69 </span><span class="Delimiter">:(code)</span> +<span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='032operands.cc.html#L70'>init_argument_type_help</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"2-bit argument controlling the _addressing mode_ of many instructions,\n"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"to determine how to compute the _effective address_ to look up memory at\n"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"based on the 'rm32' argument and potentially others.\n"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"\n"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"If mod = 3, just operate on the <a href='003trace.cc.html#L117'>contents</a> of the register specified by rm32\n"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">" (direct mode).\n"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"If mod = 2, effective address is usually* rm32 + disp32\n"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"If mod = 1, effective address is usually* rm32 + disp8\n"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"If mod = 0, effective address is usually* rm32 (indirect mode).\n"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"(* - The exception is when rm32 is '4'. Register 4 is the stack pointer (<a href='010vm.cc.html#L14'>ESP</a>).\n"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">" Using it as an address gets more involved. For more details,\n"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" try reading the help pages for 'base', 'index' and 'scale'.)\n"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"\n"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">);</span> +<span id="L92" class="LineNr"> 92 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"Additional 3-bit argument for determining the instruction when the opcode\n"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"is 81, 8f, d3, f7 or ff.\n"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"Can't coexist with argument of type 'r32' in a single instruction, because\n"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"the two use the same bits.\n"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">);</span> -<span id="L98" class="LineNr"> 98 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Constant">"32-bit value in register or memory. The precise details of its construction\n"</span> -<span id="L100" class="LineNr">100 </span> <span class="Constant">"depend on the eponymous 3-bit 'rm32' operand, the 'mod' operand, and also\n"</span> -<span id="L101" class="LineNr">101 </span> <span class="Constant">"potentially the 'SIB' operands ('scale', 'index' and 'base') and a displacement\n"</span> -<span id="L102" class="LineNr">102 </span> <span class="Constant">"('disp8' or 'disp32').\n"</span> -<span id="L103" class="LineNr">103 </span> <span class="Constant">"\n"</span> -<span id="L104" class="LineNr">104 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> -<span id="L105" class="LineNr">105 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> -<span id="L106" class="LineNr">106 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="Special">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L107" class="LineNr">107 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L108" class="LineNr">108 </span> <span class="Delimiter">);</span> -<span id="L109" class="LineNr">109 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"Additional 3-bit operand (when 'rm32' is 4, unless 'mod' is 3) specifying the\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="Constant">"register containing an address to look up.\n"</span> -<span id="L112" class="LineNr">112 </span> <span class="Constant">"This address may be further modified by 'index' and 'scale' operands.\n"</span> -<span id="L113" class="LineNr">113 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L114" class="LineNr">114 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> -<span id="L115" class="LineNr">115 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> -<span id="L116" class="LineNr">116 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">);</span> -<span id="L118" class="LineNr">118 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> -<span id="L119" class="LineNr">119 </span> <span class="Constant">"Optional 3-bit operand (when 'rm32' is 4 unless 'mod' is 3) that can be added to\n"</span> -<span id="L120" class="LineNr">120 </span> <span class="Constant">"the 'base' operand to compute the 'effective address' at which to look up memory.\n"</span> -<span id="L121" class="LineNr">121 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L122" class="LineNr">122 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> -<span id="L123" class="LineNr">123 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> -<span id="L124" class="LineNr">124 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">);</span> -<span id="L126" class="LineNr">126 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> -<span id="L127" class="LineNr">127 </span> <span class="Constant">"Optional 2-bit operand (when 'rm32' is 4 unless 'mod' is 3) that encodes a\n"</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"power of 2 to be multiplied to the 'index' operand before adding the result to\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"the 'base' operand to compute the _effective address_ to operate on.\n"</span> -<span id="L130" class="LineNr">130 </span> <span class="Constant">" effective address = base + index * scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L131" class="LineNr">131 </span> <span class="Constant">"\n"</span> -<span id="L132" class="LineNr">132 </span> <span class="Constant">"When scale is 0, use index unmodified.\n"</span> -<span id="L133" class="LineNr">133 </span> <span class="Constant">"When scale is 1, multiply index by 2.\n"</span> -<span id="L134" class="LineNr">134 </span> <span class="Constant">"When scale is 2, multiply index by 4.\n"</span> -<span id="L135" class="LineNr">135 </span> <span class="Constant">"When scale is 3, multiply index by 8.\n"</span> -<span id="L136" class="LineNr">136 </span> <span class="Constant">"\n"</span> +<span id="L98" class="LineNr"> 98 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Constant">"3-bit argument specifying an integer register argument used directly,\n"</span> +<span id="L100" class="LineNr">100 </span> <span class="Constant">"without any further addressing modes.\n"</span> +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">);</span> +<span id="L102" class="LineNr">102 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"x32"</span><span class="Delimiter">,</span> +<span id="L103" class="LineNr">103 </span> <span class="Constant">"3-bit argument specifying a floating-point register argument used directly,\n"</span> +<span id="L104" class="LineNr">104 </span> <span class="Constant">"without any further addressing modes.\n"</span> +<span id="L105" class="LineNr">105 </span> <span class="Delimiter">);</span> +<span id="L106" class="LineNr">106 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> +<span id="L107" class="LineNr">107 </span> <span class="Constant">"32-bit value in an integer register or memory. The precise details of its\n"</span> +<span id="L108" class="LineNr">108 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'rm32' argument, the 'mod' argument,\n"</span> +<span id="L109" class="LineNr">109 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')\n"</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').\n"</span> +<span id="L111" class="LineNr">111 </span> <span class="Constant">"\n"</span> +<span id="L112" class="LineNr">112 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> +<span id="L113" class="LineNr">113 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> +<span id="L114" class="LineNr">114 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L115" class="LineNr">115 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L116" class="LineNr">116 </span> <span class="Delimiter">);</span> +<span id="L117" class="LineNr">117 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">,</span> +<span id="L118" class="LineNr">118 </span> <span class="Constant">"32-bit value in a floating-point register or memory. The precise details of its\n"</span> +<span id="L119" class="LineNr">119 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'xm32' argument, the 'mod' argument,\n"</span> +<span id="L120" class="LineNr">120 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')\n"</span> +<span id="L121" class="LineNr">121 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').\n"</span> +<span id="L122" class="LineNr">122 </span> <span class="Constant">"\n"</span> +<span id="L123" class="LineNr">123 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> +<span id="L124" class="LineNr">124 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> +<span id="L125" class="LineNr">125 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L126" class="LineNr">126 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L127" class="LineNr">127 </span> <span class="Constant">"\n"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"One subtlety here: while /xm32 refers to floating-point registers in direct mode\n"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"(when /mod is 3), other addressing modes to construct memory addresses use integer registers\n"</span> +<span id="L130" class="LineNr">130 </span> <span class="Constant">"(just like /rm32). Other than direct mode, its behavior is identical to /rm32.\n"</span> +<span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> +<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> +<span id="L133" class="LineNr">133 </span> <span class="Constant">"Additional 3-bit argument (when 'rm32' is 4, unless 'mod' is 3) specifying the\n"</span> +<span id="L134" class="LineNr">134 </span> <span class="Constant">"register containing an address to look up.\n"</span> +<span id="L135" class="LineNr">135 </span> <span class="Constant">"This address may be further modified by 'index' and 'scale' arguments.\n"</span> +<span id="L136" class="LineNr">136 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> <span id="L137" class="LineNr">137 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> <span id="L138" class="LineNr">138 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> <span id="L139" class="LineNr">139 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">);</span> -<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> -<span id="L142" class="LineNr">142 </span> <span class="Constant">"8-bit value to be added in many instructions.\n"</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">);</span> -<span id="L144" class="LineNr">144 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> -<span id="L145" class="LineNr">145 </span> <span class="Constant">"16-bit value to be added in many instructions.\n"</span> -<span id="L146" class="LineNr">146 </span> <span class="Constant">"Currently not used in any SubX instructions.\n"</span> -<span id="L147" class="LineNr">147 </span> <span class="Delimiter">);</span> -<span id="L148" class="LineNr">148 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">,</span> -<span id="L149" class="LineNr">149 </span> <span class="Constant">"32-bit value to be added in many instructions.\n"</span> -<span id="L150" class="LineNr">150 </span> <span class="Delimiter">);</span> -<span id="L151" class="LineNr">151 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> -<span id="L152" class="LineNr">152 </span> <span class="Constant">"8-bit value for many instructions.\n"</span> -<span id="L153" class="LineNr">153 </span> <span class="Delimiter">);</span> -<span id="L154" class="LineNr">154 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">,</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"32-bit value for many instructions.\n"</span> -<span id="L156" class="LineNr">156 </span> <span class="Delimiter">);</span> -<span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> -<span id="L158" class="LineNr">158 </span> -<span id="L159" class="LineNr">159 </span><span class="SalientComment">//:: transform packing operands into bytes in the right order</span> -<span id="L160" class="LineNr">160 </span> -<span id="L161" class="LineNr">161 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L162" class="LineNr">162 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>pack_operands<span class="Delimiter">);</span> -<span id="L163" class="LineNr">163 </span> -<span id="L164" class="LineNr">164 </span><span class="Delimiter">:(code)</span> -<span id="L165" class="LineNr">165 </span><span class="Normal">void</span> pack_operands<span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L167" class="LineNr">167 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> -<span id="L168" class="LineNr">168 </span> <span class="Comment">// Pack Operands(segment code)</span> -<span id="L169" class="LineNr">169 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- pack operands"</span> << end<span class="Delimiter">();</span> -<span id="L170" class="LineNr">170 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L171" class="LineNr">171 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L172" class="LineNr">172 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L430'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"packing instruction '"</span> << to_string<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">with metadata</span><span class="Comment">*/</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> -<span id="L174" class="LineNr">174 </span> pack_operands<span class="Delimiter">(</span>inst<span class="Delimiter">);</span> -<span id="L175" class="LineNr">175 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"instruction after packing: '"</span> << to_string<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">without metadata</span><span class="Comment">*/</span>inst<span class="Delimiter">.</span>words<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</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="Normal">void</span> pack_operands<span class="Delimiter">(</span>line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> -<span id="L181" class="LineNr">181 </span> <a href='032operands.cc.html#L189'>add_opcodes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> -<span id="L182" class="LineNr">182 </span> <a href='032operands.cc.html#L199'>add_modrm_byte</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> -<span id="L183" class="LineNr">183 </span> <a href='032operands.cc.html#L225'>add_sib_byte</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> -<span id="L184" class="LineNr">184 </span> <a href='032operands.cc.html#L247'>add_disp_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> -<span id="L185" class="LineNr">185 </span> <a href='032operands.cc.html#L259'>add_imm_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> -<span id="L186" class="LineNr">186 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>swap<span class="Delimiter">(</span>new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> -<span id="L187" class="LineNr">187 </span><span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> -<span id="L189" class="LineNr">189 </span><span class="Normal">void</span> <a href='032operands.cc.html#L189'>add_opcodes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">));</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span> || in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f2"</span> || in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span><span class="Delimiter">)</span> -<span id="L192" class="LineNr">192 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> -<span id="L193" class="LineNr">193 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span> && in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> -<span id="L194" class="LineNr">194 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">));</span> -<span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f2"</span> && in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> -<span id="L196" class="LineNr">196 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">));</span> -<span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> -<span id="L198" class="LineNr">198 </span> -<span id="L199" class="LineNr">199 </span><span class="Normal">void</span> <a href='032operands.cc.html#L199'>add_modrm_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="Normal">uint8_t</span> mod=<span class="Constant">0</span><span class="Delimiter">,</span> reg_subop=<span class="Constant">0</span><span class="Delimiter">,</span> rm32=<span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L201" class="LineNr">201 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L202" class="LineNr">202 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L203" class="LineNr">203 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L204" class="LineNr">204 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L205" class="LineNr">205 </span> mod = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L206" class="LineNr">206 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L209" class="LineNr">209 </span> rm32 = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L210" class="LineNr">210 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> -<span id="L212" class="LineNr">212 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr">213 </span> reg_subop = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L214" class="LineNr">214 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> -<span id="L216" class="LineNr">216 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L217" class="LineNr">217 </span> reg_subop = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L218" class="LineNr">218 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> -<span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>emit<span class="Delimiter">)</span> -<span id="L222" class="LineNr">222 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L289'>hex_byte_text</a><span class="Delimiter">((</span>mod << <span class="Constant">6</span><span class="Delimiter">)</span> | <span class="Delimiter">(</span>reg_subop << <span class="Constant">3</span><span class="Delimiter">)</span> | rm32<span class="Delimiter">));</span> -<span id="L223" class="LineNr">223 </span><span class="Delimiter">}</span> -<span id="L224" class="LineNr">224 </span> -<span id="L225" class="LineNr">225 </span><span class="Normal">void</span> <a href='032operands.cc.html#L225'>add_sib_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L226" class="LineNr">226 </span> <span class="Normal">uint8_t</span> scale=<span class="Constant">0</span><span class="Delimiter">,</span> index=<span class="Constant">0</span><span class="Delimiter">,</span> base=<span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L227" class="LineNr">227 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L228" class="LineNr">228 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L230" class="LineNr">230 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L231" class="LineNr">231 </span> scale = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L232" class="LineNr">232 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> -<span id="L234" class="LineNr">234 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L235" class="LineNr">235 </span> index = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L236" class="LineNr">236 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L237" class="LineNr">237 </span> <span class="Delimiter">}</span> -<span id="L238" class="LineNr">238 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L239" class="LineNr">239 </span> base = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L240" class="LineNr">240 </span> emit = <span class="Constant">true</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="Delimiter">}</span> -<span id="L243" class="LineNr">243 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>emit<span class="Delimiter">)</span> -<span id="L244" class="LineNr">244 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L289'>hex_byte_text</a><span class="Delimiter">((</span>scale << <span class="Constant">6</span><span class="Delimiter">)</span> | <span class="Delimiter">(</span>index << <span class="Constant">3</span><span class="Delimiter">)</span> | base<span class="Delimiter">));</span> -<span id="L245" class="LineNr">245 </span><span class="Delimiter">}</span> -<span id="L246" class="LineNr">246 </span> -<span id="L247" class="LineNr">247 </span><span class="Normal">void</span> <a href='032operands.cc.html#L247'>add_disp_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L248" class="LineNr">248 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L250" class="LineNr">250 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> -<span id="L251" class="LineNr">251 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L252" class="LineNr">252 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> -<span id="L253" class="LineNr">253 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L254" class="LineNr">254 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> -<span id="L255" class="LineNr">255 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> -<span id="L257" class="LineNr">257 </span><span class="Delimiter">}</span> -<span id="L258" class="LineNr">258 </span> -<span id="L259" class="LineNr">259 </span><span class="Normal">void</span> <a href='032operands.cc.html#L259'>add_imm_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L260" class="LineNr">260 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L262" class="LineNr">262 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> -<span id="L263" class="LineNr">263 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L264" class="LineNr">264 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> -<span id="L265" class="LineNr">265 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L266" class="LineNr">266 </span> <span class="Delimiter">}</span> -<span id="L267" class="LineNr">267 </span><span class="Delimiter">}</span> -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="Normal">void</span> emit_hex_bytes<span class="Delimiter">(</span>line& out<span class="Delimiter">,</span> <span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">int</span> num<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L270" class="LineNr">270 </span> assert<span class="Delimiter">(</span>num <= <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L271" class="LineNr">271 </span> <span class="Normal">bool</span> is_number = <a href='032operands.cc.html#L490'>looks_like_hex_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L272" class="LineNr">272 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>num == <span class="Constant">1</span> || !is_number<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L273" class="LineNr">273 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>w<span class="Delimiter">);</span> <span class="Comment">// preserve existing metadata</span> -<span id="L274" class="LineNr">274 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>is_number<span class="Delimiter">)</span> -<span id="L275" class="LineNr">275 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <a href='032operands.cc.html#L296'>hex_byte_to_string</a><span class="Delimiter">(</span><a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">));</span> -<span id="L276" class="LineNr">276 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L277" class="LineNr">277 </span> <span class="Delimiter">}</span> -<span id="L278" class="LineNr">278 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span><a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">)),</span> num<span class="Delimiter">);</span> -<span id="L279" class="LineNr">279 </span><span class="Delimiter">}</span> -<span id="L280" class="LineNr">280 </span> -<span id="L281" class="LineNr">281 </span><span class="Normal">void</span> emit_hex_bytes<span class="Delimiter">(</span>line& out<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> val<span class="Delimiter">,</span> <span class="Normal">int</span> num<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L282" class="LineNr">282 </span> assert<span class="Delimiter">(</span>num <= <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L283" class="LineNr">283 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < num<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L284" class="LineNr">284 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L289'>hex_byte_text</a><span class="Delimiter">(</span>val & <span class="Constant">0xff</span><span class="Delimiter">));</span> -<span id="L285" class="LineNr">285 </span> val = val >> <span class="Constant">8</span><span class="Delimiter">;</span> -<span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> -<span id="L287" class="LineNr">287 </span><span class="Delimiter">}</span> -<span id="L288" class="LineNr">288 </span> -<span id="L289" class="LineNr">289 </span><a href='011run.cc.html#L127'>word</a> <a href='032operands.cc.html#L289'>hex_byte_text</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L290" class="LineNr">290 </span> <a href='011run.cc.html#L127'>word</a> result<span class="Delimiter">;</span> -<span id="L291" class="LineNr">291 </span> result<span class="Delimiter">.</span>data = <a href='032operands.cc.html#L296'>hex_byte_to_string</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> -<span id="L292" class="LineNr">292 </span> result<span class="Delimiter">.</span>original = result<span class="Delimiter">.</span>data+<span class="Constant">"/auto"</span><span class="Delimiter">;</span> -<span id="L293" class="LineNr">293 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L294" class="LineNr">294 </span><span class="Delimiter">}</span> -<span id="L295" class="LineNr">295 </span> -<span id="L296" class="LineNr">296 </span>string <a href='032operands.cc.html#L296'>hex_byte_to_string</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L297" class="LineNr">297 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L298" class="LineNr">298 </span> <span class="Comment">// uint8_t prints without padding, but int8_t will expand to 32 bits again</span> -<span id="L299" class="LineNr">299 </span> out << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> -<span id="L300" class="LineNr">300 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> -<span id="L301" class="LineNr">301 </span><span class="Delimiter">}</span> -<span id="L302" class="LineNr">302 </span> -<span id="L303" class="LineNr">303 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> vector<word>& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L305" class="LineNr">305 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L306" class="LineNr">306 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> -<span id="L307" class="LineNr">307 </span> out << in<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> +<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> +<span id="L142" class="LineNr">142 </span> <span class="Constant">"Optional 3-bit argument (when 'rm32' is 4 unless 'mod' is 3) that can be added to\n"</span> +<span id="L143" class="LineNr">143 </span> <span class="Constant">"the 'base' argument to compute the 'effective address' at which to look up memory.\n"</span> +<span id="L144" class="LineNr">144 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> +<span id="L145" class="LineNr">145 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> +<span id="L146" class="LineNr">146 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">);</span> +<span id="L149" class="LineNr">149 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> +<span id="L150" class="LineNr">150 </span> <span class="Constant">"Optional 2-bit argument (when 'rm32' is 4 unless 'mod' is 3) that encodes a\n"</span> +<span id="L151" class="LineNr">151 </span> <span class="Constant">"power of 2 to be multiplied to the 'index' argument before adding the result to\n"</span> +<span id="L152" class="LineNr">152 </span> <span class="Constant">"the 'base' argument to compute the _effective address_ to operate on.\n"</span> +<span id="L153" class="LineNr">153 </span> <span class="Constant">" effective address = base + index * scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"\n"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"When scale is 0, use index unmodified.\n"</span> +<span id="L156" class="LineNr">156 </span> <span class="Constant">"When scale is 1, multiply index by 2.\n"</span> +<span id="L157" class="LineNr">157 </span> <span class="Constant">"When scale is 2, multiply index by 4.\n"</span> +<span id="L158" class="LineNr">158 </span> <span class="Constant">"When scale is 3, multiply index by 8.\n"</span> +<span id="L159" class="LineNr">159 </span> <span class="Constant">"\n"</span> +<span id="L160" class="LineNr">160 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> +<span id="L161" class="LineNr">161 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> +<span id="L162" class="LineNr">162 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> +<span id="L163" class="LineNr">163 </span> <span class="Delimiter">);</span> +<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> +<span id="L165" class="LineNr">165 </span> <span class="Constant">"8-bit value to be added in many instructions.\n"</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">);</span> +<span id="L167" class="LineNr">167 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> +<span id="L168" class="LineNr">168 </span> <span class="Constant">"16-bit value to be added in many instructions.\n"</span> +<span id="L169" class="LineNr">169 </span> <span class="Constant">"Currently not used in any SubX instructions.\n"</span> +<span id="L170" class="LineNr">170 </span> <span class="Delimiter">);</span> +<span id="L171" class="LineNr">171 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">,</span> +<span id="L172" class="LineNr">172 </span> <span class="Constant">"32-bit value to be added in many instructions.\n"</span> +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">);</span> +<span id="L174" class="LineNr">174 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> +<span id="L175" class="LineNr">175 </span> <span class="Constant">"8-bit value for many instructions.\n"</span> +<span id="L176" class="LineNr">176 </span> <span class="Delimiter">);</span> +<span id="L177" class="LineNr">177 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">,</span> +<span id="L178" class="LineNr">178 </span> <span class="Constant">"32-bit value for many instructions.\n"</span> +<span id="L179" class="LineNr">179 </span> <span class="Delimiter">);</span> +<span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> +<span id="L181" class="LineNr">181 </span> +<span id="L182" class="LineNr">182 </span><span class="SalientComment">//:: transform packing arguments into bytes in the right order</span> +<span id="L183" class="LineNr">183 </span> +<span id="L184" class="LineNr">184 </span><span class="Delimiter">:(after "Begin Transforms")</span> +<span id="L185" class="LineNr">185 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>pack_arguments<span class="Delimiter">);</span> +<span id="L186" class="LineNr">186 </span> +<span id="L187" class="LineNr">187 </span><span class="Delimiter">:(code)</span> +<span id="L188" class="LineNr">188 </span><span class="Normal">void</span> pack_arguments<span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L190" class="LineNr">190 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> +<span id="L191" class="LineNr">191 </span> <span class="Comment">// Pack Operands(segment code)</span> +<span id="L192" class="LineNr">192 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- pack arguments"</span> << end<span class="Delimiter">();</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L194" class="LineNr">194 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"packing instruction '"</span> << to_string<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">with metadata</span><span class="Comment">*/</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> +<span id="L197" class="LineNr">197 </span> pack_arguments<span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L198" class="LineNr">198 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"instruction after packing: '"</span> << to_string<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">without metadata</span><span class="Comment">*/</span>inst<span class="Delimiter">.</span>words<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> +<span id="L201" class="LineNr">201 </span> +<span id="L202" class="LineNr">202 </span><span class="Normal">void</span> pack_arguments<span class="Delimiter">(</span>line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L203" class="LineNr">203 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> +<span id="L204" class="LineNr">204 </span> <a href='032operands.cc.html#L212'>add_opcodes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> +<span id="L205" class="LineNr">205 </span> <a href='032operands.cc.html#L222'>add_modrm_byte</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> +<span id="L206" class="LineNr">206 </span> <a href='032operands.cc.html#L256'>add_sib_byte</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> +<span id="L207" class="LineNr">207 </span> <a href='032operands.cc.html#L278'>add_disp_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> +<span id="L208" class="LineNr">208 </span> <a href='032operands.cc.html#L290'>add_imm_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> new_inst<span class="Delimiter">);</span> +<span id="L209" class="LineNr">209 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>swap<span class="Delimiter">(</span>new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> +<span id="L210" class="LineNr">210 </span><span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> +<span id="L212" class="LineNr">212 </span><span class="Normal">void</span> <a href='032operands.cc.html#L212'>add_opcodes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">));</span> +<span id="L214" class="LineNr">214 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span> || in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f2"</span> || in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span><span class="Delimiter">)</span> +<span id="L215" class="LineNr">215 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> +<span id="L216" class="LineNr">216 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span> && in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> +<span id="L217" class="LineNr">217 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">));</span> +<span id="L218" class="LineNr">218 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f2"</span> && in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> +<span id="L219" class="LineNr">219 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">));</span> +<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span><span class="Normal">void</span> <a href='032operands.cc.html#L222'>add_modrm_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="Normal">uint8_t</span> mod=<span class="Constant">0</span><span class="Delimiter">,</span> reg_subop=<span class="Constant">0</span><span class="Delimiter">,</span> rm32=<span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L224" class="LineNr">224 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L225" class="LineNr">225 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> mod = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L229" class="LineNr">229 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> +<span id="L231" class="LineNr">231 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L232" class="LineNr">232 </span> rm32 = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L233" class="LineNr">233 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L234" class="LineNr">234 </span> <span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> reg_subop = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L237" class="LineNr">237 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> +<span id="L239" class="LineNr">239 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L240" class="LineNr">240 </span> rm32 = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L241" class="LineNr">241 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">}</span> +<span id="L243" class="LineNr">243 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"x32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> reg_subop = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L245" class="LineNr">245 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L246" class="LineNr">246 </span> <span class="Delimiter">}</span> +<span id="L247" class="LineNr">247 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L248" class="LineNr">248 </span> reg_subop = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L249" class="LineNr">249 </span> emit = <span class="Constant">true</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="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>emit<span class="Delimiter">)</span> +<span id="L253" class="LineNr">253 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L320'>hex_byte_text</a><span class="Delimiter">((</span>mod << <span class="Constant">6</span><span class="Delimiter">)</span> | <span class="Delimiter">(</span>reg_subop << <span class="Constant">3</span><span class="Delimiter">)</span> | rm32<span class="Delimiter">));</span> +<span id="L254" class="LineNr">254 </span><span class="Delimiter">}</span> +<span id="L255" class="LineNr">255 </span> +<span id="L256" class="LineNr">256 </span><span class="Normal">void</span> <a href='032operands.cc.html#L256'>add_sib_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L257" class="LineNr">257 </span> <span class="Normal">uint8_t</span> scale=<span class="Constant">0</span><span class="Delimiter">,</span> index=<span class="Constant">0</span><span class="Delimiter">,</span> base=<span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L258" class="LineNr">258 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L259" class="LineNr">259 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L260" class="LineNr">260 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L261" class="LineNr">261 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> scale = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L263" class="LineNr">263 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L264" class="LineNr">264 </span> <span class="Delimiter">}</span> +<span id="L265" class="LineNr">265 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L266" class="LineNr">266 </span> index = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L267" class="LineNr">267 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L270" class="LineNr">270 </span> base = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L271" class="LineNr">271 </span> emit = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> +<span id="L274" class="LineNr">274 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>emit<span class="Delimiter">)</span> +<span id="L275" class="LineNr">275 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L320'>hex_byte_text</a><span class="Delimiter">((</span>scale << <span class="Constant">6</span><span class="Delimiter">)</span> | <span class="Delimiter">(</span>index << <span class="Constant">3</span><span class="Delimiter">)</span> | base<span class="Delimiter">));</span> +<span id="L276" class="LineNr">276 </span><span class="Delimiter">}</span> +<span id="L277" class="LineNr">277 </span> +<span id="L278" class="LineNr">278 </span><span class="Normal">void</span> <a href='032operands.cc.html#L278'>add_disp_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L279" class="LineNr">279 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L280" class="LineNr">280 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L281" class="LineNr">281 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> +<span id="L282" class="LineNr">282 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L283" class="LineNr">283 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> +<span id="L284" class="LineNr">284 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L285" class="LineNr">285 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> +<span id="L286" class="LineNr">286 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L287" class="LineNr">287 </span> <span class="Delimiter">}</span> +<span id="L288" class="LineNr">288 </span><span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> +<span id="L290" class="LineNr">290 </span><span class="Normal">void</span> <a href='032operands.cc.html#L290'>add_imm_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L291" class="LineNr">291 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L292" class="LineNr">292 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L293" class="LineNr">293 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> +<span id="L294" class="LineNr">294 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L295" class="LineNr">295 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> +<span id="L296" class="LineNr">296 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L297" class="LineNr">297 </span> <span class="Delimiter">}</span> +<span id="L298" class="LineNr">298 </span><span class="Delimiter">}</span> +<span id="L299" class="LineNr">299 </span> +<span id="L300" class="LineNr">300 </span><span class="Normal">void</span> emit_hex_bytes<span class="Delimiter">(</span>line& out<span class="Delimiter">,</span> <span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">int</span> num<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L301" class="LineNr">301 </span> assert<span class="Delimiter">(</span>num <= <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L302" class="LineNr">302 </span> <span class="Normal">bool</span> is_number = <a href='032operands.cc.html#L591'>looks_like_hex_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L303" class="LineNr">303 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>num == <span class="Constant">1</span> || !is_number<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L304" class="LineNr">304 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>w<span class="Delimiter">);</span> <span class="Comment">// preserve existing metadata</span> +<span id="L305" class="LineNr">305 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>is_number<span class="Delimiter">)</span> +<span id="L306" class="LineNr">306 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <a href='032operands.cc.html#L327'>hex_byte_to_string</a><span class="Delimiter">(</span><a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">));</span> +<span id="L307" class="LineNr">307 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L308" class="LineNr">308 </span> <span class="Delimiter">}</span> -<span id="L309" class="LineNr">309 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L309" class="LineNr">309 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span><a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">)),</span> num<span class="Delimiter">);</span> <span id="L310" class="LineNr">310 </span><span class="Delimiter">}</span> <span id="L311" class="LineNr">311 </span> -<span id="L312" class="LineNr">312 </span><span class="Delimiter">:(before "End Unit Tests")</span> -<span id="L313" class="LineNr">313 </span><span class="Normal">void</span> <a href='032operands.cc.html#L313'>test_preserve_metadata_when_emitting_single_byte</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L314" class="LineNr">314 </span> <a href='011run.cc.html#L127'>word</a> in<span class="Delimiter">;</span> -<span id="L315" class="LineNr">315 </span> in<span class="Delimiter">.</span>data = <span class="Constant">"f0"</span><span class="Delimiter">;</span> -<span id="L316" class="LineNr">316 </span> in<span class="Delimiter">.</span>original = <span class="Constant">"f0/foo"</span><span class="Delimiter">;</span> -<span id="L317" class="LineNr">317 </span> <a href='011run.cc.html#L121'>line</a> out<span class="Delimiter">;</span> -<span id="L318" class="LineNr">318 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> in<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L319" class="LineNr">319 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">,</span> <span class="Constant">"f0"</span><span class="Delimiter">);</span> -<span id="L320" class="LineNr">320 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>original<span class="Delimiter">,</span> <span class="Constant">"f0/foo"</span><span class="Delimiter">);</span> -<span id="L321" class="LineNr">321 </span><span class="Delimiter">}</span> -<span id="L322" class="LineNr">322 </span> -<span id="L323" class="LineNr">323 </span><span class="Delimiter">:(code)</span> -<span id="L324" class="LineNr">324 </span><span class="Normal">void</span> <a href='032operands.cc.html#L324'>test_pack_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L326" class="LineNr">326 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L327" class="LineNr">327 </span> <span class="Constant">"74 2/disp8\n"</span> <span class="Comment">// jump 2 bytes away if ZF is set</span> -<span id="L328" class="LineNr">328 </span> <span class="Delimiter">);</span> -<span id="L329" class="LineNr">329 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L330" class="LineNr">330 </span> <span class="Constant">"transform: packing instruction '74 2/disp8'\n"</span> -<span id="L331" class="LineNr">331 </span> <span class="Constant">"transform: instruction after packing: '74 02'\n"</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> -<span id="L335" class="LineNr">335 </span><span class="Normal">void</span> <a href='032operands.cc.html#L335'>test_pack_disp8_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L336" class="LineNr">336 </span> transform<span class="Delimiter">(</span> -<span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L338" class="LineNr">338 </span> <span class="Comment">// running this will cause an infinite loop</span> -<span id="L339" class="LineNr">339 </span> <span class="Constant">"74 -1/disp8\n"</span> <span class="Comment">// jump 1 byte before if ZF is set</span> -<span id="L340" class="LineNr">340 </span> <span class="Delimiter">);</span> -<span id="L341" class="LineNr">341 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L342" class="LineNr">342 </span> <span class="Constant">"transform: packing instruction '74 -1/disp8'\n"</span> -<span id="L343" class="LineNr">343 </span> <span class="Constant">"transform: instruction after packing: '74 ff'\n"</span> -<span id="L344" class="LineNr">344 </span> <span class="Delimiter">);</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="Comment">//: helper for scenario</span> -<span id="L348" class="LineNr">348 </span><span class="Normal">void</span> transform<span class="Delimiter">(</span><span class="Normal">const</span> string& text_bytes<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L349" class="LineNr">349 </span> program p<span class="Delimiter">;</span> -<span id="L350" class="LineNr">350 </span> istringstream in<span class="Delimiter">(</span>text_bytes<span class="Delimiter">);</span> -<span id="L351" class="LineNr">351 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> -<span id="L352" class="LineNr">352 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L353" class="LineNr">353 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> -<span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> -<span id="L355" class="LineNr">355 </span> -<span id="L356" class="LineNr">356 </span><span class="Normal">void</span> <a href='032operands.cc.html#L356'>test_pack_modrm_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L357" class="LineNr">357 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L358" class="LineNr">358 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L359" class="LineNr">359 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> -<span id="L360" class="LineNr">360 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> -<span id="L361" class="LineNr">361 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L362" class="LineNr">362 </span> <span class="Constant">" 81 0/add/subop 3/mod/direct 3/ebx/rm32 1/imm32 \n"</span> <span class="Comment">// add 1 to EBX</span> +<span id="L312" class="LineNr">312 </span><span class="Normal">void</span> emit_hex_bytes<span class="Delimiter">(</span>line& out<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> val<span class="Delimiter">,</span> <span class="Normal">int</span> num<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L313" class="LineNr">313 </span> assert<span class="Delimiter">(</span>num <= <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L314" class="LineNr">314 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < num<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L315" class="LineNr">315 </span> out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='032operands.cc.html#L320'>hex_byte_text</a><span class="Delimiter">(</span>val & <span class="Constant">0xff</span><span class="Delimiter">));</span> +<span id="L316" class="LineNr">316 </span> val = val >> <span class="Constant">8</span><span class="Delimiter">;</span> +<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> +<span id="L318" class="LineNr">318 </span><span class="Delimiter">}</span> +<span id="L319" class="LineNr">319 </span> +<span id="L320" class="LineNr">320 </span><a href='011run.cc.html#L127'>word</a> <a href='032operands.cc.html#L320'>hex_byte_text</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L321" class="LineNr">321 </span> <a href='011run.cc.html#L127'>word</a> result<span class="Delimiter">;</span> +<span id="L322" class="LineNr">322 </span> result<span class="Delimiter">.</span>data = <a href='032operands.cc.html#L327'>hex_byte_to_string</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> +<span id="L323" class="LineNr">323 </span> result<span class="Delimiter">.</span>original = result<span class="Delimiter">.</span>data+<span class="Constant">"/auto"</span><span class="Delimiter">;</span> +<span id="L324" class="LineNr">324 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L325" class="LineNr">325 </span><span class="Delimiter">}</span> +<span id="L326" class="LineNr">326 </span> +<span id="L327" class="LineNr">327 </span>string <a href='032operands.cc.html#L327'>hex_byte_to_string</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L328" class="LineNr">328 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L329" class="LineNr">329 </span> <span class="Comment">// uint8_t prints without padding, but int8_t will expand to 32 bits again</span> +<span id="L330" class="LineNr">330 </span> out << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> +<span id="L331" class="LineNr">331 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<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>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> vector<word>& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L335" class="LineNr">335 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L336" class="LineNr">336 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> +<span id="L338" class="LineNr">338 </span> out << in<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> +<span id="L339" class="LineNr">339 </span> <span class="Delimiter">}</span> +<span id="L340" class="LineNr">340 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L341" class="LineNr">341 </span><span class="Delimiter">}</span> +<span id="L342" class="LineNr">342 </span> +<span id="L343" class="LineNr">343 </span><span class="Delimiter">:(before "End Unit Tests")</span> +<span id="L344" class="LineNr">344 </span><span class="Normal">void</span> <a href='032operands.cc.html#L344'>test_preserve_metadata_when_emitting_single_byte</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L345" class="LineNr">345 </span> <a href='011run.cc.html#L127'>word</a> in<span class="Delimiter">;</span> +<span id="L346" class="LineNr">346 </span> in<span class="Delimiter">.</span>data = <span class="Constant">"f0"</span><span class="Delimiter">;</span> +<span id="L347" class="LineNr">347 </span> in<span class="Delimiter">.</span>original = <span class="Constant">"f0/foo"</span><span class="Delimiter">;</span> +<span id="L348" class="LineNr">348 </span> <a href='011run.cc.html#L121'>line</a> out<span class="Delimiter">;</span> +<span id="L349" class="LineNr">349 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> in<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L350" class="LineNr">350 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">,</span> <span class="Constant">"f0"</span><span class="Delimiter">);</span> +<span id="L351" class="LineNr">351 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>out<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>original<span class="Delimiter">,</span> <span class="Constant">"f0/foo"</span><span class="Delimiter">);</span> +<span id="L352" class="LineNr">352 </span><span class="Delimiter">}</span> +<span id="L353" class="LineNr">353 </span> +<span id="L354" class="LineNr">354 </span><span class="Delimiter">:(code)</span> +<span id="L355" class="LineNr">355 </span><span class="Normal">void</span> <a href='032operands.cc.html#L355'>test_pack_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L358" class="LineNr">358 </span> <span class="Constant">"74 2/disp8\n"</span> <span class="Comment">// jump 2 bytes away if ZF is set</span> +<span id="L359" class="LineNr">359 </span> <span class="Delimiter">);</span> +<span id="L360" class="LineNr">360 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L361" class="LineNr">361 </span> <span class="Constant">"transform: packing instruction '74 2/disp8'\n"</span> +<span id="L362" class="LineNr">362 </span> <span class="Constant">"transform: instruction after packing: '74 02'\n"</span> <span id="L363" class="LineNr">363 </span> <span class="Delimiter">);</span> -<span id="L364" class="LineNr">364 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L365" class="LineNr">365 </span> <span class="Constant">"transform: packing instruction '81 0/add/subop 3/mod/direct 3/ebx/rm32 1/imm32'\n"</span> -<span id="L366" class="LineNr">366 </span> <span class="Constant">"transform: instruction after packing: '81 c3 01 00 00 00'\n"</span> -<span id="L367" class="LineNr">367 </span> <span class="Delimiter">);</span> -<span id="L368" class="LineNr">368 </span><span class="Delimiter">}</span> -<span id="L369" class="LineNr">369 </span> -<span id="L370" class="LineNr">370 </span><span class="Normal">void</span> <a href='032operands.cc.html#L370'>test_pack_imm32_large</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L371" class="LineNr">371 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L372" class="LineNr">372 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L373" class="LineNr">373 </span> <span class="Constant">"b9 0x080490a7/imm32\n"</span> -<span id="L374" class="LineNr">374 </span> <span class="Delimiter">);</span> -<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L376" class="LineNr">376 </span> <span class="Constant">"transform: packing instruction 'b9 0x080490a7/imm32'\n"</span> -<span id="L377" class="LineNr">377 </span> <span class="Constant">"transform: instruction after packing: 'b9 a7 90 04 08'\n"</span> -<span id="L378" class="LineNr">378 </span> <span class="Delimiter">);</span> -<span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> -<span id="L380" class="LineNr">380 </span> -<span id="L381" class="LineNr">381 </span><span class="Normal">void</span> <a href='032operands.cc.html#L381'>test_pack_immediate_constants_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L382" class="LineNr">382 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L383" class="LineNr">383 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L384" class="LineNr">384 </span> <span class="Constant">"b9 0x2a/imm32\n"</span> +<span id="L364" class="LineNr">364 </span><span class="Delimiter">}</span> +<span id="L365" class="LineNr">365 </span> +<span id="L366" class="LineNr">366 </span><span class="Normal">void</span> <a href='032operands.cc.html#L366'>test_pack_disp8_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L367" class="LineNr">367 </span> transform<span class="Delimiter">(</span> +<span id="L368" class="LineNr">368 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L369" class="LineNr">369 </span> <span class="Comment">// running this will cause an infinite loop</span> +<span id="L370" class="LineNr">370 </span> <span class="Constant">"74 -1/disp8\n"</span> <span class="Comment">// jump 1 byte before if ZF is set</span> +<span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> +<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L373" class="LineNr">373 </span> <span class="Constant">"transform: packing instruction '74 -1/disp8'\n"</span> +<span id="L374" class="LineNr">374 </span> <span class="Constant">"transform: instruction after packing: '74 ff'\n"</span> +<span id="L375" class="LineNr">375 </span> <span class="Delimiter">);</span> +<span id="L376" class="LineNr">376 </span><span class="Delimiter">}</span> +<span id="L377" class="LineNr">377 </span> +<span id="L378" class="LineNr">378 </span><span class="Normal">void</span> <a href='032operands.cc.html#L378'>test_pack_rm32_direct</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L381" class="LineNr">381 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L382" class="LineNr">382 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L383" class="LineNr">383 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L384" class="LineNr">384 </span> <span class="Constant">" 01 3/mod/direct 3/rm32/ebx 0/r32/eax \n"</span> <span class="Comment">// add EAX to EBX</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">);</span> -<span id="L386" class="LineNr">386 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L387" class="LineNr">387 </span> <span class="Constant">"transform: packing instruction 'b9 0x2a/imm32'\n"</span> -<span id="L388" class="LineNr">388 </span> <span class="Constant">"transform: instruction after packing: 'b9 2a 00 00 00'\n"</span> -<span id="L389" class="LineNr">389 </span> <span class="Constant">"run: copy imm32 0x0000002a to ECX\n"</span> -<span id="L390" class="LineNr">390 </span> <span class="Delimiter">);</span> -<span id="L391" class="LineNr">391 </span><span class="Delimiter">}</span> -<span id="L392" class="LineNr">392 </span> -<span id="L393" class="LineNr">393 </span><span class="Normal">void</span> <a href='032operands.cc.html#L393'>test_pack_silently_ignores_non_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L394" class="LineNr">394 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L395" class="LineNr">395 </span> transform<span class="Delimiter">(</span> -<span id="L396" class="LineNr">396 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L397" class="LineNr">397 </span> <span class="Constant">"b9 foo/imm32\n"</span> -<span id="L398" class="LineNr">398 </span> <span class="Delimiter">);</span> -<span id="L399" class="LineNr">399 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L400" class="LineNr">400 </span> <span class="Constant">"transform: packing instruction 'b9 foo/imm32'\n"</span> -<span id="L401" class="LineNr">401 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> -<span id="L402" class="LineNr">402 </span> <span class="Constant">"transform: instruction after packing: 'b9 foo'\n"</span> +<span id="L386" class="LineNr">386 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L387" class="LineNr">387 </span> <span class="Constant">"transform: packing instruction '01 3/mod/direct 3/rm32/ebx 0/r32/eax'\n"</span> +<span id="L388" class="LineNr">388 </span> <span class="Constant">"transform: instruction after packing: '01 c3'\n"</span> +<span id="L389" class="LineNr">389 </span> <span class="Delimiter">);</span> +<span id="L390" class="LineNr">390 </span><span class="Delimiter">}</span> +<span id="L391" class="LineNr">391 </span> +<span id="L392" class="LineNr">392 </span><span class="Normal">void</span> <a href='032operands.cc.html#L392'>test_pack_rm32_indirect</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L393" class="LineNr">393 </span> transform<span class="Delimiter">(</span> +<span id="L394" class="LineNr">394 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L395" class="LineNr">395 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L396" class="LineNr">396 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L397" class="LineNr">397 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L398" class="LineNr">398 </span> <span class="Constant">" 01 0/mod/indirect 3/rm32/ebx 0/r32/eax \n"</span> <span class="Comment">// add EAX to *EBX</span> +<span id="L399" class="LineNr">399 </span> <span class="Delimiter">);</span> +<span id="L400" class="LineNr">400 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L401" class="LineNr">401 </span> <span class="Constant">"transform: packing instruction '01 0/mod/indirect 3/rm32/ebx 0/r32/eax'\n"</span> +<span id="L402" class="LineNr">402 </span> <span class="Constant">"transform: instruction after packing: '01 03'\n"</span> <span id="L403" class="LineNr">403 </span> <span class="Delimiter">);</span> <span id="L404" class="LineNr">404 </span><span class="Delimiter">}</span> <span id="L405" class="LineNr">405 </span> -<span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='032operands.cc.html#L406'>test_pack_flags_bad_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L407" class="LineNr">407 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L408" class="LineNr">408 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L409" class="LineNr">409 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L410" class="LineNr">410 </span> <span class="Constant">"b9 0xfoo/imm32\n"</span> -<span id="L411" class="LineNr">411 </span> <span class="Delimiter">);</span> -<span id="L412" class="LineNr">412 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L413" class="LineNr">413 </span> <span class="Constant">"error: not a number: 0xfoo\n"</span> -<span id="L414" class="LineNr">414 </span> <span class="Delimiter">);</span> -<span id="L415" class="LineNr">415 </span><span class="Delimiter">}</span> -<span id="L416" class="LineNr">416 </span> -<span id="L417" class="LineNr">417 </span><span class="Normal">void</span> <a href='032operands.cc.html#L417'>test_pack_flags_uppercase_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L418" class="LineNr">418 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L419" class="LineNr">419 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L420" class="LineNr">420 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L421" class="LineNr">421 </span> <span class="Constant">"b9 0xAb/imm32\n"</span> -<span id="L422" class="LineNr">422 </span> <span class="Delimiter">);</span> -<span id="L423" class="LineNr">423 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L424" class="LineNr">424 </span> <span class="Constant">"error: uppercase hex not allowed: 0xAb\n"</span> -<span id="L425" class="LineNr">425 </span> <span class="Delimiter">);</span> -<span id="L426" class="LineNr">426 </span><span class="Delimiter">}</span> -<span id="L427" class="LineNr">427 </span> -<span id="L428" class="LineNr">428 </span><span class="SalientComment">//:: helpers</span> -<span id="L429" class="LineNr">429 </span> -<span id="L430" class="LineNr">430 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L430'>all_hex_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L431" class="LineNr">431 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L432" class="LineNr">432 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)))</span> -<span id="L433" class="LineNr">433 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L434" class="LineNr">434 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L435" class="LineNr">435 </span><span class="Delimiter">}</span> -<span id="L436" class="LineNr">436 </span> -<span id="L437" class="LineNr">437 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L437'>is_hex_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> word& curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L438" class="LineNr">438 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L447'>contains_any_operand_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> -<span id="L439" class="LineNr">439 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L440" class="LineNr">440 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> != <span class="Constant">2</span><span class="Delimiter">)</span> -<span id="L441" class="LineNr">441 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L442" class="LineNr">442 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>find_first_not_of<span class="Delimiter">(</span><span class="Constant">"0123456789abcdef"</span><span class="Delimiter">)</span> != string::npos<span class="Delimiter">)</span> -<span id="L443" class="LineNr">443 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L444" class="LineNr">444 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L445" class="LineNr">445 </span><span class="Delimiter">}</span> -<span id="L446" class="LineNr">446 </span> -<span id="L447" class="LineNr">447 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L447'>contains_any_operand_metadata</a><span class="Delimiter">(</span><span class="Normal">const</span> word& <a href='011run.cc.html#L127'>word</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L448" class="LineNr">448 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L449" class="LineNr">449 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">))</span> != <span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> -<span id="L450" class="LineNr">450 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L451" class="LineNr">451 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L452" class="LineNr">452 </span><span class="Delimiter">}</span> -<span id="L453" class="LineNr">453 </span> -<span id="L454" class="LineNr">454 </span><span class="Normal">bool</span> has_operand_metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L455" class="LineNr">455 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L456" class="LineNr">456 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L457" class="LineNr">457 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L458" class="LineNr">458 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr">459 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"' has conflicting "</span> << m << <span class="Constant">" operands\n"</span> << end<span class="Delimiter">();</span> -<span id="L460" class="LineNr">460 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L461" class="LineNr">461 </span> <span class="Delimiter">}</span> -<span id="L462" class="LineNr">462 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L463" class="LineNr">463 </span> <span class="Delimiter">}</span> -<span id="L464" class="LineNr">464 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L465" class="LineNr">465 </span><span class="Delimiter">}</span> -<span id="L466" class="LineNr">466 </span> -<span id="L467" class="LineNr">467 </span><span class="Normal">bool</span> has_operand_metadata<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L468" class="LineNr">468 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L469" class="LineNr">469 </span> <span class="Normal">bool</span> metadata_found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L470" class="LineNr">470 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L471" class="LineNr">471 </span> <span class="Normal">const</span> string& curr = w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L472" class="LineNr">472 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> == <span class="Special"><a href='032operands.cc.html#L49'>Instruction_operands</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> -<span id="L473" class="LineNr">473 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>metadata_found<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L474" class="LineNr">474 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting operand types; it should have only one\n"</span> << end<span class="Delimiter">();</span> -<span id="L475" class="LineNr">475 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> -<span id="L477" class="LineNr">477 </span> metadata_found = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L478" class="LineNr">478 </span> result = <span class="Delimiter">(</span>curr == m<span class="Delimiter">);</span> -<span id="L479" class="LineNr">479 </span> <span class="Delimiter">}</span> -<span id="L480" class="LineNr">480 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L481" class="LineNr">481 </span><span class="Delimiter">}</span> -<span id="L482" class="LineNr">482 </span> -<span id="L483" class="LineNr">483 </span><a href='011run.cc.html#L127'>word</a> metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L484" class="LineNr">484 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L485" class="LineNr">485 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> -<span id="L486" class="LineNr">486 </span> <span class="Identifier">return</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L487" class="LineNr">487 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> -<span id="L488" class="LineNr">488 </span><span class="Delimiter">}</span> -<span id="L489" class="LineNr">489 </span> -<span id="L490" class="LineNr">490 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L490'>looks_like_hex_int</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L491" class="LineNr">491 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L492" class="LineNr">492 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span> || s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'+'</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L493" class="LineNr">493 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isdigit<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// includes '0x' prefix</span> -<span id="L494" class="LineNr">494 </span> <span class="Comment">// End looks_like_hex_int(s) Detectors</span> -<span id="L495" class="LineNr">495 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L496" class="LineNr">496 </span><span class="Delimiter">}</span> -<span id="L497" class="LineNr">497 </span> -<span id="L498" class="LineNr">498 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L499" class="LineNr">499 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L500" class="LineNr">500 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L501" class="LineNr">501 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> -<span id="L502" class="LineNr">502 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>original<span class="Delimiter">;</span> -<span id="L503" class="LineNr">503 </span> <span class="Delimiter">}</span> -<span id="L504" class="LineNr">504 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='032operands.cc.html#L406'>test_pack_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L407" class="LineNr">407 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L408" class="LineNr">408 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L409" class="LineNr">409 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L410" class="LineNr">410 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L411" class="LineNr">411 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L412" class="LineNr">412 </span> <span class="Constant">" f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32 \n"</span> <span class="Comment">// convert EBX to XMM1</span> +<span id="L413" class="LineNr">413 </span> <span class="Delimiter">);</span> +<span id="L414" class="LineNr">414 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L415" class="LineNr">415 </span> <span class="Constant">"transform: packing instruction 'f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32'\n"</span> +<span id="L416" class="LineNr">416 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 2a cb'\n"</span> +<span id="L417" class="LineNr">417 </span> <span class="Delimiter">);</span> +<span id="L418" class="LineNr">418 </span><span class="Delimiter">}</span> +<span id="L419" class="LineNr">419 </span> +<span id="L420" class="LineNr">420 </span><span class="Normal">void</span> <a href='032operands.cc.html#L420'>test_pack_xm32_direct</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L421" class="LineNr">421 </span> transform<span class="Delimiter">(</span> +<span id="L422" class="LineNr">422 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L423" class="LineNr">423 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L424" class="LineNr">424 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L425" class="LineNr">425 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L426" class="LineNr">426 </span> <span class="Constant">" f3 0f 5e 3/mod/direct 3/xm32 1/x32 \n"</span> <span class="Comment">// divide XMM1 by XMM3</span> +<span id="L427" class="LineNr">427 </span> <span class="Delimiter">);</span> +<span id="L428" class="LineNr">428 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L429" class="LineNr">429 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 3/mod/direct 3/xm32 1/x32'\n"</span> +<span id="L430" class="LineNr">430 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e cb'\n"</span> +<span id="L431" class="LineNr">431 </span> <span class="Delimiter">);</span> +<span id="L432" class="LineNr">432 </span><span class="Delimiter">}</span> +<span id="L433" class="LineNr">433 </span> +<span id="L434" class="LineNr">434 </span><span class="Normal">void</span> <a href='032operands.cc.html#L434'>test_pack_xm32_indirect</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L435" class="LineNr">435 </span> transform<span class="Delimiter">(</span> +<span id="L436" class="LineNr">436 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L437" class="LineNr">437 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L438" class="LineNr">438 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L439" class="LineNr">439 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L440" class="LineNr">440 </span> <span class="Constant">" f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32 \n"</span> <span class="Comment">// divide XMM1 by *EBX</span> +<span id="L441" class="LineNr">441 </span> <span class="Delimiter">);</span> +<span id="L442" class="LineNr">442 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L443" class="LineNr">443 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32'\n"</span> +<span id="L444" class="LineNr">444 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e 0b'\n"</span> +<span id="L445" class="LineNr">445 </span> <span class="Delimiter">);</span> +<span id="L446" class="LineNr">446 </span><span class="Delimiter">}</span> +<span id="L447" class="LineNr">447 </span> +<span id="L448" class="LineNr">448 </span><span class="Comment">//: helper for scenario</span> +<span id="L449" class="LineNr">449 </span><span class="Normal">void</span> transform<span class="Delimiter">(</span><span class="Normal">const</span> string& text_bytes<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L450" class="LineNr">450 </span> program p<span class="Delimiter">;</span> +<span id="L451" class="LineNr">451 </span> istringstream in<span class="Delimiter">(</span>text_bytes<span class="Delimiter">);</span> +<span id="L452" class="LineNr">452 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> +<span id="L453" class="LineNr">453 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L454" class="LineNr">454 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> +<span id="L455" class="LineNr">455 </span><span class="Delimiter">}</span> +<span id="L456" class="LineNr">456 </span> +<span id="L457" class="LineNr">457 </span><span class="Normal">void</span> <a href='032operands.cc.html#L457'>test_pack_modrm_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L458" class="LineNr">458 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L460" class="LineNr">460 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> +<span id="L461" class="LineNr">461 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> +<span id="L462" class="LineNr">462 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> +<span id="L463" class="LineNr">463 </span> <span class="Constant">" 81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32 \n"</span> <span class="Comment">// add 1 to EBX</span> +<span id="L464" class="LineNr">464 </span> <span class="Delimiter">);</span> +<span id="L465" class="LineNr">465 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L466" class="LineNr">466 </span> <span class="Constant">"transform: packing instruction '81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32'\n"</span> +<span id="L467" class="LineNr">467 </span> <span class="Constant">"transform: instruction after packing: '81 c3 01 00 00 00'\n"</span> +<span id="L468" class="LineNr">468 </span> <span class="Delimiter">);</span> +<span id="L469" class="LineNr">469 </span><span class="Delimiter">}</span> +<span id="L470" class="LineNr">470 </span> +<span id="L471" class="LineNr">471 </span><span class="Normal">void</span> <a href='032operands.cc.html#L471'>test_pack_imm32_large</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L472" class="LineNr">472 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L473" class="LineNr">473 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L474" class="LineNr">474 </span> <span class="Constant">"b9 0x080490a7/imm32\n"</span> +<span id="L475" class="LineNr">475 </span> <span class="Delimiter">);</span> +<span id="L476" class="LineNr">476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L477" class="LineNr">477 </span> <span class="Constant">"transform: packing instruction 'b9 0x080490a7/imm32'\n"</span> +<span id="L478" class="LineNr">478 </span> <span class="Constant">"transform: instruction after packing: 'b9 a7 90 04 08'\n"</span> +<span id="L479" class="LineNr">479 </span> <span class="Delimiter">);</span> +<span id="L480" class="LineNr">480 </span><span class="Delimiter">}</span> +<span id="L481" class="LineNr">481 </span> +<span id="L482" class="LineNr">482 </span><span class="Normal">void</span> <a href='032operands.cc.html#L482'>test_pack_immediate_constants_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L483" class="LineNr">483 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L484" class="LineNr">484 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L485" class="LineNr">485 </span> <span class="Constant">"b9 0x2a/imm32\n"</span> +<span id="L486" class="LineNr">486 </span> <span class="Delimiter">);</span> +<span id="L487" class="LineNr">487 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L488" class="LineNr">488 </span> <span class="Constant">"transform: packing instruction 'b9 0x2a/imm32'\n"</span> +<span id="L489" class="LineNr">489 </span> <span class="Constant">"transform: instruction after packing: 'b9 2a 00 00 00'\n"</span> +<span id="L490" class="LineNr">490 </span> <span class="Constant">"run: copy imm32 0x0000002a to ECX\n"</span> +<span id="L491" class="LineNr">491 </span> <span class="Delimiter">);</span> +<span id="L492" class="LineNr">492 </span><span class="Delimiter">}</span> +<span id="L493" class="LineNr">493 </span> +<span id="L494" class="LineNr">494 </span><span class="Normal">void</span> <a href='032operands.cc.html#L494'>test_pack_silently_ignores_non_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L495" class="LineNr">495 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L496" class="LineNr">496 </span> transform<span class="Delimiter">(</span> +<span id="L497" class="LineNr">497 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L498" class="LineNr">498 </span> <span class="Constant">"b9 foo/imm32\n"</span> +<span id="L499" class="LineNr">499 </span> <span class="Delimiter">);</span> +<span id="L500" class="LineNr">500 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L501" class="LineNr">501 </span> <span class="Constant">"transform: packing instruction 'b9 foo/imm32'\n"</span> +<span id="L502" class="LineNr">502 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> +<span id="L503" class="LineNr">503 </span> <span class="Constant">"transform: instruction after packing: 'b9 foo'\n"</span> +<span id="L504" class="LineNr">504 </span> <span class="Delimiter">);</span> <span id="L505" class="LineNr">505 </span><span class="Delimiter">}</span> <span id="L506" class="LineNr">506 </span> -<span id="L507" class="LineNr">507 </span><span class="Normal">int32_t</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L508" class="LineNr">508 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L509" class="LineNr">509 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L449'>contains_uppercase</a><span class="Delimiter">(</span>s<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L510" class="LineNr">510 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"uppercase hex not allowed: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L511" class="LineNr">511 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L512" class="LineNr">512 </span> <span class="Delimiter">}</span> -<span id="L513" class="LineNr">513 </span> istringstream in<span class="Delimiter">(</span>s<span class="Delimiter">);</span> -<span id="L514" class="LineNr">514 </span> in >> std::hex<span class="Delimiter">;</span> -<span id="L515" class="LineNr">515 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L516" class="LineNr">516 </span> <span class="Normal">int32_t</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L517" class="LineNr">517 </span> in >> result<span class="Delimiter">;</span> -<span id="L518" class="LineNr">518 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L519" class="LineNr">519 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"not a number: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L520" class="LineNr">520 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L521" class="LineNr">521 </span> <span class="Delimiter">}</span> -<span id="L522" class="LineNr">522 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L523" class="LineNr">523 </span> <span class="Delimiter">}</span> -<span id="L524" class="LineNr">524 </span> <span class="Normal">uint32_t</span> uresult = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L525" class="LineNr">525 </span> in >> uresult<span class="Delimiter">;</span> -<span id="L526" class="LineNr">526 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L527" class="LineNr">527 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"not a number: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L528" class="LineNr">528 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L529" class="LineNr">529 </span> <span class="Delimiter">}</span> -<span id="L530" class="LineNr">530 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span>uresult<span class="Delimiter">);</span> -<span id="L531" class="LineNr">531 </span><span class="Delimiter">}</span> -<span id="L532" class="LineNr">532 </span><span class="Delimiter">:(before "End Unit Tests")</span> -<span id="L533" class="LineNr">533 </span><span class="Normal">void</span> <a href='032operands.cc.html#L533'>test_parse_int</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L534" class="LineNr">534 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0"</span><span class="Delimiter">));</span> -<span id="L535" class="LineNr">535 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0x0"</span><span class="Delimiter">));</span> -<span id="L536" class="LineNr">536 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0x0"</span><span class="Delimiter">));</span> -<span id="L537" class="LineNr">537 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">16</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"10"</span><span class="Delimiter">));</span> <span class="Comment">// hex always</span> -<span id="L538" class="LineNr">538 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>-<span class="Constant">1</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"-1"</span><span class="Delimiter">));</span> -<span id="L539" class="LineNr">539 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>-<span class="Constant">1</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0xffffffff"</span><span class="Delimiter">));</span> -<span id="L540" class="LineNr">540 </span><span class="Delimiter">}</span> +<span id="L507" class="LineNr">507 </span><span class="Normal">void</span> <a href='032operands.cc.html#L507'>test_pack_flags_bad_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L508" class="LineNr">508 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L509" class="LineNr">509 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L510" class="LineNr">510 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L511" class="LineNr">511 </span> <span class="Constant">"b9 0xfoo/imm32\n"</span> +<span id="L512" class="LineNr">512 </span> <span class="Delimiter">);</span> +<span id="L513" class="LineNr">513 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L514" class="LineNr">514 </span> <span class="Constant">"error: not a number: 0xfoo\n"</span> +<span id="L515" class="LineNr">515 </span> <span class="Delimiter">);</span> +<span id="L516" class="LineNr">516 </span><span class="Delimiter">}</span> +<span id="L517" class="LineNr">517 </span> +<span id="L518" class="LineNr">518 </span><span class="Normal">void</span> <a href='032operands.cc.html#L518'>test_pack_flags_uppercase_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L519" class="LineNr">519 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L520" class="LineNr">520 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L521" class="LineNr">521 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L522" class="LineNr">522 </span> <span class="Constant">"b9 0xAb/imm32\n"</span> +<span id="L523" class="LineNr">523 </span> <span class="Delimiter">);</span> +<span id="L524" class="LineNr">524 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L525" class="LineNr">525 </span> <span class="Constant">"error: uppercase hex not allowed: 0xAb\n"</span> +<span id="L526" class="LineNr">526 </span> <span class="Delimiter">);</span> +<span id="L527" class="LineNr">527 </span><span class="Delimiter">}</span> +<span id="L528" class="LineNr">528 </span> +<span id="L529" class="LineNr">529 </span><span class="SalientComment">//:: helpers</span> +<span id="L530" class="LineNr">530 </span> +<span id="L531" class="LineNr">531 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L532" class="LineNr">532 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L533" class="LineNr">533 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)))</span> +<span id="L534" class="LineNr">534 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L535" class="LineNr">535 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L536" class="LineNr">536 </span><span class="Delimiter">}</span> +<span id="L537" class="LineNr">537 </span> +<span id="L538" class="LineNr">538 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L538'>is_hex_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> word& curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L539" class="LineNr">539 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> +<span id="L540" class="LineNr">540 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L541" class="LineNr">541 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> != <span class="Constant">2</span><span class="Delimiter">)</span> +<span id="L542" class="LineNr">542 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L543" class="LineNr">543 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>find_first_not_of<span class="Delimiter">(</span><span class="Constant">"0123456789abcdef"</span><span class="Delimiter">)</span> != string::npos<span class="Delimiter">)</span> +<span id="L544" class="LineNr">544 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L545" class="LineNr">545 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L546" class="LineNr">546 </span><span class="Delimiter">}</span> +<span id="L547" class="LineNr">547 </span> +<span id="L548" class="LineNr">548 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span><span class="Normal">const</span> word& <a href='011run.cc.html#L127'>word</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L549" class="LineNr">549 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L550" class="LineNr">550 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">))</span> != <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> +<span id="L551" class="LineNr">551 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L552" class="LineNr">552 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L553" class="LineNr">553 </span><span class="Delimiter">}</span> +<span id="L554" class="LineNr">554 </span> +<span id="L555" class="LineNr">555 </span><span class="Normal">bool</span> has_argument_metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L556" class="LineNr">556 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L557" class="LineNr">557 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L558" class="LineNr">558 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L559" class="LineNr">559 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L560" class="LineNr">560 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"' has conflicting "</span> << m << <span class="Constant">" arguments\n"</span> << end<span class="Delimiter">();</span> +<span id="L561" class="LineNr">561 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L562" class="LineNr">562 </span> <span class="Delimiter">}</span> +<span id="L563" class="LineNr">563 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L564" class="LineNr">564 </span> <span class="Delimiter">}</span> +<span id="L565" class="LineNr">565 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L566" class="LineNr">566 </span><span class="Delimiter">}</span> +<span id="L567" class="LineNr">567 </span> +<span id="L568" class="LineNr">568 </span><span class="Normal">bool</span> has_argument_metadata<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L569" class="LineNr">569 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L570" class="LineNr">570 </span> <span class="Normal">bool</span> metadata_found = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L571" class="LineNr">571 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L572" class="LineNr">572 </span> <span class="Normal">const</span> string& curr = w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L573" class="LineNr">573 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> == <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> +<span id="L574" class="LineNr">574 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>metadata_found<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L575" class="LineNr">575 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one\n"</span> << end<span class="Delimiter">();</span> +<span id="L576" class="LineNr">576 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L577" class="LineNr">577 </span> <span class="Delimiter">}</span> +<span id="L578" class="LineNr">578 </span> metadata_found = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L579" class="LineNr">579 </span> result = <span class="Delimiter">(</span>curr == m<span class="Delimiter">);</span> +<span id="L580" class="LineNr">580 </span> <span class="Delimiter">}</span> +<span id="L581" class="LineNr">581 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L582" class="LineNr">582 </span><span class="Delimiter">}</span> +<span id="L583" class="LineNr">583 </span> +<span id="L584" class="LineNr">584 </span><a href='011run.cc.html#L127'>word</a> metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L585" class="LineNr">585 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L586" class="LineNr">586 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> +<span id="L587" class="LineNr">587 </span> <span class="Identifier">return</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L588" class="LineNr">588 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> +<span id="L589" class="LineNr">589 </span><span class="Delimiter">}</span> +<span id="L590" class="LineNr">590 </span> +<span id="L591" class="LineNr">591 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L591'>looks_like_hex_int</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L592" class="LineNr">592 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L593" class="LineNr">593 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span> || s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'+'</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L594" class="LineNr">594 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isdigit<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// includes '0x' prefix</span> +<span id="L595" class="LineNr">595 </span> <span class="Comment">// End looks_like_hex_int(s) Detectors</span> +<span id="L596" class="LineNr">596 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L597" class="LineNr">597 </span><span class="Delimiter">}</span> +<span id="L598" class="LineNr">598 </span> +<span id="L599" class="LineNr">599 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L600" class="LineNr">600 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L601" class="LineNr">601 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L602" class="LineNr">602 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> +<span id="L603" class="LineNr">603 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>original<span class="Delimiter">;</span> +<span id="L604" class="LineNr">604 </span> <span class="Delimiter">}</span> +<span id="L605" class="LineNr">605 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L606" class="LineNr">606 </span><span class="Delimiter">}</span> +<span id="L607" class="LineNr">607 </span> +<span id="L608" class="LineNr">608 </span><span class="Normal">int32_t</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L609" class="LineNr">609 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L610" class="LineNr">610 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L449'>contains_uppercase</a><span class="Delimiter">(</span>s<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L611" class="LineNr">611 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"uppercase hex not allowed: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L612" class="LineNr">612 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L613" class="LineNr">613 </span> <span class="Delimiter">}</span> +<span id="L614" class="LineNr">614 </span> istringstream in<span class="Delimiter">(</span>s<span class="Delimiter">);</span> +<span id="L615" class="LineNr">615 </span> in >> std::hex<span class="Delimiter">;</span> +<span id="L616" class="LineNr">616 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L617" class="LineNr">617 </span> <span class="Normal">int32_t</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L618" class="LineNr">618 </span> in >> result<span class="Delimiter">;</span> +<span id="L619" class="LineNr">619 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L620" class="LineNr">620 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"not a number: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L621" class="LineNr">621 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L622" class="LineNr">622 </span> <span class="Delimiter">}</span> +<span id="L623" class="LineNr">623 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L624" class="LineNr">624 </span> <span class="Delimiter">}</span> +<span id="L625" class="LineNr">625 </span> <span class="Normal">uint32_t</span> uresult = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L626" class="LineNr">626 </span> in >> uresult<span class="Delimiter">;</span> +<span id="L627" class="LineNr">627 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L628" class="LineNr">628 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"not a number: "</span> << s << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L629" class="LineNr">629 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L630" class="LineNr">630 </span> <span class="Delimiter">}</span> +<span id="L631" class="LineNr">631 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span>uresult<span class="Delimiter">);</span> +<span id="L632" class="LineNr">632 </span><span class="Delimiter">}</span> +<span id="L633" class="LineNr">633 </span><span class="Delimiter">:(before "End Unit Tests")</span> +<span id="L634" class="LineNr">634 </span><span class="Normal">void</span> <a href='032operands.cc.html#L634'>test_parse_int</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L635" class="LineNr">635 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0"</span><span class="Delimiter">));</span> +<span id="L636" class="LineNr">636 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0x0"</span><span class="Delimiter">));</span> +<span id="L637" class="LineNr">637 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0x0"</span><span class="Delimiter">));</span> +<span id="L638" class="LineNr">638 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">16</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"10"</span><span class="Delimiter">));</span> <span class="Comment">// hex always</span> +<span id="L639" class="LineNr">639 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>-<span class="Constant">1</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"-1"</span><span class="Delimiter">));</span> +<span id="L640" class="LineNr">640 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>-<span class="Constant">1</span><span class="Delimiter">,</span> <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span><span class="Constant">"0xffffffff"</span><span class="Delimiter">));</span> +<span id="L641" class="LineNr">641 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/033check_operands.cc.html b/html/033check_operands.cc.html index b657f740..ebaecdb2 100644 --- a/html/033check_operands.cc.html +++ b/html/033check_operands.cc.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } @@ -59,52 +59,52 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/033check_operands.cc'>https://github.com/akkartik/mu/blob/master/033check_operands.cc</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Since we're tagging operands with their types, let's start checking these</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">//: operand types for each instruction.</span> +<span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Since we're tagging arguments with their types, let's start checking these</span> +<span id="L2" class="LineNr"> 2 </span><span class="Comment">//: argument types for each instruction.</span> <span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L4'>test_check_missing_imm8_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L4'>test_check_missing_imm8_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L6" class="LineNr"> 6 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L7" class="LineNr"> 7 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L8" class="LineNr"> 8 </span> <span class="Constant">"cd\n"</span> <span class="Comment">// interrupt ??</span> <span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">);</span> -<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"error: 'cd' (software interrupt): missing imm8 operand\n"</span> +<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"error: 'cd' (software interrupt): missing imm8 argument\n"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">);</span> <span id="L13" class="LineNr"> 13 </span><span class="Delimiter">}</span> <span id="L14" class="LineNr"> 14 </span> <span id="L15" class="LineNr"> 15 </span><span class="Delimiter">:(before "Pack Operands(segment code)")</span> -<span id="L16" class="LineNr"> 16 </span>check_operands<span class="Delimiter">(</span>code<span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L16" class="LineNr"> 16 </span>check_arguments<span class="Delimiter">(</span>code<span class="Delimiter">);</span> +<span id="L17" class="LineNr"> 17 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L18" class="LineNr"> 18 </span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">:(code)</span> -<span id="L20" class="LineNr"> 20 </span><span class="Normal">void</span> check_operands<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check operands"</span> << end<span class="Delimiter">();</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> check_operands<span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> +<span id="L20" class="LineNr"> 20 </span><span class="Normal">void</span> check_arguments<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check arguments"</span> << end<span class="Delimiter">();</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> check_arguments<span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> +<span id="L24" class="LineNr"> 24 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> <span id="L25" class="LineNr"> 25 </span> <span class="Delimiter">}</span> <span id="L26" class="LineNr"> 26 </span><span class="Delimiter">}</span> <span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span><span class="Normal">void</span> check_operands<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L28" class="LineNr"> 28 </span><span class="Normal">void</span> check_arguments<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L29" class="LineNr"> 29 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">));</span> <span id="L30" class="LineNr"> 30 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> check_operands_0f<span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L31" class="LineNr"> 31 </span> check_arguments_0f<span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L32" class="LineNr"> 32 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> <span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"f3"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <a href='033check_operands.cc.html#L613'>check_operands_f3</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L35" class="LineNr"> 35 </span> check_arguments_f3<span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L36" class="LineNr"> 36 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">}</span> -<span id="L38" class="LineNr"> 38 </span> check_operands<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L38" class="LineNr"> 38 </span> check_arguments<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> <span id="L40" class="LineNr"> 40 </span> <span id="L41" class="LineNr"> 41 </span><a href='011run.cc.html#L127'>word</a> <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Comment">/*</span><span class="Comment">copy</span><span class="Comment">*/</span> op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> op<span class="Delimiter">.</span>data = <a href='033check_operands.cc.html#L689'>tolower</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">.</span>c_str<span class="Delimiter">());</span> +<span id="L42" class="LineNr"> 42 </span> op<span class="Delimiter">.</span>data = <a href='033check_operands.cc.html#L774'>tolower</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">.</span>c_str<span class="Delimiter">());</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// opcodes can't be negative</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L106'>starts_with</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"0x"</span><span class="Delimiter">))</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"0x"</span><span class="Delimiter">))</span> <span id="L45" class="LineNr"> 45 </span> op<span class="Delimiter">.</span>data = op<span class="Delimiter">.</span>data<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span id="L47" class="LineNr"> 47 </span> op<span class="Delimiter">.</span>data = string<span class="Delimiter">(</span><span class="Constant">"0"</span><span class="Delimiter">)</span>+op<span class="Delimiter">.</span>data<span class="Delimiter">;</span> <span id="L48" class="LineNr"> 48 </span> <span class="Identifier">return</span> op<span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">}</span> @@ -115,17 +115,17 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>w1<span class="Delimiter">).</span>data<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>w2<span class="Delimiter">).</span>data<span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> <span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="Comment">//: To check the operands for an opcode, we'll track the permitted operands</span> +<span id="L57" class="LineNr"> 57 </span><span class="Comment">//: To check the arguments for an opcode, we'll track the permitted arguments</span> <span id="L58" class="LineNr"> 58 </span><span class="Comment">//: for each supported opcode in a bitvector. That way we can often compute the</span> -<span id="L59" class="LineNr"> 59 </span><span class="Comment">//: 'received' operand bitvector for each instruction's operands and compare</span> +<span id="L59" class="LineNr"> 59 </span><span class="Comment">//: 'received' argument bitvector for each instruction's arguments and compare</span> <span id="L60" class="LineNr"> 60 </span><span class="Comment">//: it with the 'expected' bitvector.</span> <span id="L61" class="LineNr"> 61 </span><span class="Comment">//:</span> <span id="L62" class="LineNr"> 62 </span><span class="Comment">//: The 'expected' and 'received' bitvectors can be different; the MODRM bit</span> -<span id="L63" class="LineNr"> 63 </span><span class="Comment">//: in the 'expected' bitvector maps to multiple 'received' operand types in</span> +<span id="L63" class="LineNr"> 63 </span><span class="Comment">//: in the 'expected' bitvector maps to multiple 'received' argument types in</span> <span id="L64" class="LineNr"> 64 </span><span class="Comment">//: an instruction. We deal in expected bitvectors throughout.</span> <span id="L65" class="LineNr"> 65 </span> <span id="L66" class="LineNr"> 66 </span><span class="Delimiter">:(before "End Types")</span> -<span id="L67" class="LineNr"> 67 </span><span class="Normal">enum</span> <a href='033check_operands.cc.html#L67'>expected_operand_type</a> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span><span class="Normal">enum</span> <a href='033check_operands.cc.html#L67'>expected_argument_type</a> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// start from the least significant bit</span> <span id="L69" class="LineNr"> 69 </span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">,</span> <span class="Comment">// more complex, may also involve disp8 or disp32</span> <span id="L70" class="LineNr"> 70 </span> <a href='033check_operands.cc.html#L70'>SUBOP</a><span class="Delimiter">,</span> @@ -137,15 +137,15 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span> <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">};</span> <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L79" class="LineNr"> 79 </span>vector<string> <span class="Special"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">;</span> -<span id="L80" class="LineNr"> 80 </span>map<string<span class="Delimiter">,</span> expected_operand_type> <span class="Special"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">;</span> +<span id="L79" class="LineNr"> 79 </span>vector<string> <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">;</span> +<span id="L80" class="LineNr"> 80 </span>map<string<span class="Delimiter">,</span> expected_argument_type> <span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">;</span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L82" class="LineNr"> 82 </span><a href='033check_operands.cc.html#L84'>init_op_types</a><span class="Delimiter">();</span> <span id="L83" class="LineNr"> 83 </span><span class="Delimiter">:(code)</span> <span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L84'>init_op_types</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> assert<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a> <= <span class="Comment">/*</span><span class="Comment">bits in a uint8_t</span><span class="Comment">*/</span><span class="Constant">8</span><span class="Delimiter">);</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Special"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>resize<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">);</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">#define DEF(type) </span><span class="Special">Operand_type_name</span><span class="Delimiter">.</span><span class="PreProc">at(type) = tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> put(</span><span class="Special">Operand_type</span><span class="Delimiter">,</span><span class="PreProc"> tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> type)</span><span class="Delimiter">;</span> +<span id="L86" class="LineNr"> 86 </span> <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>resize<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">#define DEF(type) </span><span class="SpecialChar">Operand_type_name</span><span class="Delimiter">.</span><span class="PreProc">at(type) = tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> put(</span><span class="SpecialChar">Operand_type</span><span class="Delimiter">,</span><span class="PreProc"> tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> type)</span><span class="Delimiter">;</span> <span id="L88" class="LineNr"> 88 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L70'>SUBOP</a><span class="Delimiter">);</span> <span id="L90" class="LineNr"> 90 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L71'>DISP8</a><span class="Delimiter">);</span> @@ -157,160 +157,160 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L99" class="LineNr"> 99 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span><span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a> = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span class="Comment">// no instruction uses all the operand types</span> +<span id="L99" class="LineNr"> 99 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">;</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a> = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span class="Comment">// no instruction uses all the argument types</span> <span id="L101" class="LineNr">101 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L102" class="LineNr">102 </span><a href='033check_operands.cc.html#L104'>init_permitted_operands</a><span class="Delimiter">();</span> +<span id="L102" class="LineNr">102 </span><a href='033check_operands.cc.html#L104'>init_permitted_arguments</a><span class="Delimiter">();</span> <span id="L103" class="LineNr">103 </span><span class="Delimiter">:(code)</span> -<span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L104'>init_permitted_operands</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="SalientComment">//// Class A: just op, no operands</span> +<span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L104'>init_permitted_arguments</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="SalientComment">//// Class A: just op, no arguments</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// halt</span> -<span id="L107" class="LineNr">107 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L107" class="LineNr">107 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <span class="Comment">// inc</span> -<span id="L109" class="LineNr">109 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L110" class="LineNr">110 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L111" class="LineNr">111 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L112" class="LineNr">112 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L113" class="LineNr">113 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L114" class="LineNr">114 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L115" class="LineNr">115 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L116" class="LineNr">116 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L109" class="LineNr">109 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L110" class="LineNr">110 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L111" class="LineNr">111 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L112" class="LineNr">112 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L113" class="LineNr">113 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L114" class="LineNr">114 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L116" class="LineNr">116 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L117" class="LineNr">117 </span> <span class="Comment">// dec</span> -<span id="L118" class="LineNr">118 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L119" class="LineNr">119 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L120" class="LineNr">120 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L121" class="LineNr">121 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L122" class="LineNr">122 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L123" class="LineNr">123 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L124" class="LineNr">124 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L125" class="LineNr">125 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L118" class="LineNr">118 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L119" class="LineNr">119 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L120" class="LineNr">120 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L121" class="LineNr">121 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L122" class="LineNr">122 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L123" class="LineNr">123 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L124" class="LineNr">124 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L125" class="LineNr">125 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L126" class="LineNr">126 </span> <span class="Comment">// push</span> -<span id="L127" class="LineNr">127 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L128" class="LineNr">128 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L129" class="LineNr">129 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L130" class="LineNr">130 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L131" class="LineNr">131 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L133" class="LineNr">133 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L134" class="LineNr">134 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L127" class="LineNr">127 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L128" class="LineNr">128 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L129" class="LineNr">129 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L130" class="LineNr">130 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L131" class="LineNr">131 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L133" class="LineNr">133 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L134" class="LineNr">134 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L135" class="LineNr">135 </span> <span class="Comment">// pop</span> -<span id="L136" class="LineNr">136 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L137" class="LineNr">137 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L138" class="LineNr">138 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L140" class="LineNr">140 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L142" class="LineNr">142 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L143" class="LineNr">143 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L136" class="LineNr">136 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L137" class="LineNr">137 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L140" class="LineNr">140 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L142" class="LineNr">142 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L143" class="LineNr">143 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L144" class="LineNr">144 </span> <span class="Comment">// sign-extend EAX into EDX</span> -<span id="L145" class="LineNr">145 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L145" class="LineNr">145 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L146" class="LineNr">146 </span> <span class="Comment">// return</span> -<span id="L147" class="LineNr">147 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L147" class="LineNr">147 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L148" class="LineNr">148 </span> <span id="L149" class="LineNr">149 </span> <span class="SalientComment">//// Class B: just op and disp8</span> <span id="L150" class="LineNr">150 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L151" class="LineNr">151 </span> <span class="Comment">// 0 0 0 |0 1 0 0</span> <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span> <span class="Comment">// jump</span> -<span id="L154" class="LineNr">154 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L155" class="LineNr">155 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L156" class="LineNr">156 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L157" class="LineNr">157 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L158" class="LineNr">158 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L159" class="LineNr">159 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L160" class="LineNr">160 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L161" class="LineNr">161 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L162" class="LineNr">162 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L163" class="LineNr">163 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L154" class="LineNr">154 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L155" class="LineNr">155 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L156" class="LineNr">156 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L157" class="LineNr">157 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L158" class="LineNr">158 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L159" class="LineNr">159 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L160" class="LineNr">160 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L161" class="LineNr">161 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L162" class="LineNr">162 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L163" class="LineNr">163 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> <span id="L165" class="LineNr">165 </span> <span id="L166" class="LineNr">166 </span> <span class="SalientComment">//// Class D: just op and disp32</span> <span id="L167" class="LineNr">167 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L168" class="LineNr">168 </span> <span class="Comment">// 0 0 1 |0 0 0 0</span> -<span id="L169" class="LineNr">169 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// call</span> -<span id="L170" class="LineNr">170 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// jump</span> +<span id="L169" class="LineNr">169 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// call</span> +<span id="L170" class="LineNr">170 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// jump</span> <span id="L171" class="LineNr">171 </span> <span id="L172" class="LineNr">172 </span> <span class="SalientComment">//// Class E: just op and imm8</span> <span id="L173" class="LineNr">173 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L174" class="LineNr">174 </span> <span class="Comment">// 0 1 0 |0 0 0 0</span> -<span id="L175" class="LineNr">175 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">0x20</span><span class="Delimiter">);</span> <span class="Comment">// software interrupt</span> +<span id="L175" class="LineNr">175 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">0x20</span><span class="Delimiter">);</span> <span class="Comment">// software interrupt</span> <span id="L176" class="LineNr">176 </span> <span id="L177" class="LineNr">177 </span> <span class="SalientComment">//// Class F: just op and imm32</span> <span id="L178" class="LineNr">178 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L179" class="LineNr">179 </span> <span class="Comment">// 1 0 0 |0 0 0 0</span> -<span id="L180" class="LineNr">180 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// add</span> -<span id="L181" class="LineNr">181 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// subtract</span> -<span id="L182" class="LineNr">182 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// and</span> -<span id="L183" class="LineNr">183 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// or</span> -<span id="L184" class="LineNr">184 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// xor</span> -<span id="L185" class="LineNr">185 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// compare</span> -<span id="L186" class="LineNr">186 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// push</span> +<span id="L180" class="LineNr">180 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// add</span> +<span id="L181" class="LineNr">181 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// subtract</span> +<span id="L182" class="LineNr">182 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// and</span> +<span id="L183" class="LineNr">183 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// or</span> +<span id="L184" class="LineNr">184 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// xor</span> +<span id="L185" class="LineNr">185 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// compare</span> +<span id="L186" class="LineNr">186 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// push</span> <span id="L187" class="LineNr">187 </span> <span class="Comment">// copy</span> -<span id="L188" class="LineNr">188 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L189" class="LineNr">189 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L190" class="LineNr">190 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L191" class="LineNr">191 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L192" class="LineNr">192 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L193" class="LineNr">193 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L194" class="LineNr">194 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L195" class="LineNr">195 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L188" class="LineNr">188 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L189" class="LineNr">189 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L190" class="LineNr">190 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L191" class="LineNr">191 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L192" class="LineNr">192 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L193" class="LineNr">193 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L194" class="LineNr">194 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L195" class="LineNr">195 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span id="L196" class="LineNr">196 </span> <span id="L197" class="LineNr">197 </span> <span class="SalientComment">//// Class M: using ModR/M byte</span> <span id="L198" class="LineNr">198 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L199" class="LineNr">199 </span> <span class="Comment">// 0 0 0 |0 0 0 1</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span> <span class="Comment">// add</span> -<span id="L202" class="LineNr">202 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span class="Comment">// subtract</span> -<span id="L205" class="LineNr">205 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L206" class="LineNr">206 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L205" class="LineNr">205 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L206" class="LineNr">206 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L207" class="LineNr">207 </span> <span class="Comment">// and</span> -<span id="L208" class="LineNr">208 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L209" class="LineNr">209 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L208" class="LineNr">208 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L209" class="LineNr">209 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L210" class="LineNr">210 </span> <span class="Comment">// or</span> -<span id="L211" class="LineNr">211 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L212" class="LineNr">212 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L211" class="LineNr">211 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L212" class="LineNr">212 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L213" class="LineNr">213 </span> <span class="Comment">// xor</span> -<span id="L214" class="LineNr">214 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L215" class="LineNr">215 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L214" class="LineNr">214 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L215" class="LineNr">215 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L216" class="LineNr">216 </span> <span class="Comment">// compare</span> -<span id="L217" class="LineNr">217 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L218" class="LineNr">218 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L217" class="LineNr">217 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L218" class="LineNr">218 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L219" class="LineNr">219 </span> <span class="Comment">// copy</span> -<span id="L220" class="LineNr">220 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L221" class="LineNr">221 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L222" class="LineNr">222 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L223" class="LineNr">223 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L220" class="LineNr">220 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L221" class="LineNr">221 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L222" class="LineNr">222 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L223" class="LineNr">223 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L224" class="LineNr">224 </span> <span class="Comment">// swap</span> -<span id="L225" class="LineNr">225 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L225" class="LineNr">225 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L226" class="LineNr">226 </span> <span class="Comment">// copy address (lea)</span> -<span id="L227" class="LineNr">227 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L227" class="LineNr">227 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L228" class="LineNr">228 </span> <span id="L229" class="LineNr">229 </span> <span class="SalientComment">//// Class N: op, ModR/M and subop (not r32)</span> <span id="L230" class="LineNr">230 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L231" class="LineNr">231 </span> <span class="Comment">// 0 0 0 |0 0 1 1</span> -<span id="L232" class="LineNr">232 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// pop</span> -<span id="L233" class="LineNr">233 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// shift</span> -<span id="L234" class="LineNr">234 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// test/not/mul/div</span> -<span id="L235" class="LineNr">235 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// jump/push/call</span> +<span id="L232" class="LineNr">232 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// pop</span> +<span id="L233" class="LineNr">233 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// shift</span> +<span id="L234" class="LineNr">234 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// test/not/mul/div</span> +<span id="L235" class="LineNr">235 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// jump/push/call</span> <span id="L236" class="LineNr">236 </span> <span id="L237" class="LineNr">237 </span> <span class="SalientComment">//// Class O: op, ModR/M, subop (not r32) and imm8</span> <span id="L238" class="LineNr">238 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L239" class="LineNr">239 </span> <span class="Comment">// 0 1 0 |0 0 1 1</span> -<span id="L240" class="LineNr">240 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> -<span id="L241" class="LineNr">241 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> +<span id="L240" class="LineNr">240 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> +<span id="L241" class="LineNr">241 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> <span id="L242" class="LineNr">242 </span> <span id="L243" class="LineNr">243 </span> <span class="SalientComment">//// Class P: op, ModR/M, subop (not r32) and imm32</span> <span id="L244" class="LineNr">244 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L245" class="LineNr">245 </span> <span class="Comment">// 1 0 0 |0 0 1 1</span> -<span id="L246" class="LineNr">246 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> -<span id="L247" class="LineNr">247 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> +<span id="L246" class="LineNr">246 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> +<span id="L247" class="LineNr">247 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> <span id="L248" class="LineNr">248 </span> <span id="L249" class="LineNr">249 </span> <span class="SalientComment">//// Class Q: op, ModR/M and imm32</span> <span id="L250" class="LineNr">250 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L251" class="LineNr">251 </span> <span class="Comment">// 1 0 0 |0 0 0 1</span> -<span id="L252" class="LineNr">252 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">0x41</span><span class="Delimiter">);</span> <span class="Comment">// multiply</span> +<span id="L252" class="LineNr">252 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">0x41</span><span class="Delimiter">);</span> <span class="Comment">// multiply</span> <span id="L253" class="LineNr">253 </span> <span id="L254" class="LineNr">254 </span> <span class="Comment">// End Init Permitted Operands</span> <span id="L255" class="LineNr">255 </span><span class="Delimiter">}</span> @@ -319,12 +319,12 @@ if ('onhashchange' in window) { <span id="L258" class="LineNr">258 </span><span class="PreProc">#define SET(bitvector</span><span class="Delimiter">,</span><span class="PreProc"> bit) ((bitvector) | (</span><span class="Constant">1</span><span class="PreProc"> << (bit)))</span> <span id="L259" class="LineNr">259 </span><span class="PreProc">#define CLEAR(bitvector</span><span class="Delimiter">,</span><span class="PreProc"> bit) ((bitvector) & (~(</span><span class="Constant">1</span><span class="PreProc"> << (bit))))</span> <span id="L260" class="LineNr">260 </span> -<span id="L261" class="LineNr">261 </span><span class="Normal">void</span> check_operands<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span><span class="Normal">void</span> check_arguments<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L99'>Permitted_operands</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L264" class="LineNr">264 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <a href='033check_operands.cc.html#L377'>check_operands_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L266" class="LineNr">266 </span> <a href='033check_operands.cc.html#L403'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L265" class="LineNr">265 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L266" class="LineNr">266 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> <span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> <span id="L268" class="LineNr">268 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L269" class="LineNr">269 </span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> @@ -334,18 +334,18 @@ if ('onhashchange' in window) { <span id="L273" class="LineNr">273 </span><span class="Comment">//: Many instructions can be checked just by comparing bitvectors.</span> <span id="L274" class="LineNr">274 </span> <span id="L275" class="LineNr">275 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">uint8_t</span> expected<span class="Delimiter">,</span> <span class="Normal">const</span> string& maybe_op_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L276" class="LineNr">276 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L430'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">)</span> && <a href='033check_operands.cc.html#L311'>has_operands</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> -<span id="L277" class="LineNr">277 </span> <span class="Normal">uint8_t</span> bitvector = <a href='033check_operands.cc.html#L301'>compute_expected_operand_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> -<span id="L278" class="LineNr">278 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// duplicate operand type</span> +<span id="L276" class="LineNr">276 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">)</span> && <a href='033check_operands.cc.html#L311'>has_arguments</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> +<span id="L277" class="LineNr">277 </span> <span class="Normal">uint8_t</span> bitvector = <a href='033check_operands.cc.html#L301'>compute_expected_argument_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L278" class="LineNr">278 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// duplicate argument type</span> <span id="L279" class="LineNr">279 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>bitvector == expected<span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// all good with this instruction</span> <span id="L280" class="LineNr">280 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">;</span> ++i<span class="Delimiter">,</span> bitvector >>= <span class="Constant">1</span><span class="Delimiter">,</span> expected >>= <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L281" class="LineNr">281 </span><span class="CommentedCode">//? cerr << "comparing " << HEXBYTE << NUM(bitvector) << " with " << NUM(expected) << '\n';</span> -<span id="L282" class="LineNr">282 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this operand</span> -<span id="L283" class="LineNr">283 </span> <span class="Normal">const</span> string& optype = <span class="Special"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L282" class="LineNr">282 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this argument</span> +<span id="L283" class="LineNr">283 </span> <span class="Normal">const</span> string& optype = <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> > <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> -<span id="L285" class="LineNr">285 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> +<span id="L285" class="LineNr">285 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> <span id="L286" class="LineNr">286 </span> <span class="Normal">else</span> -<span id="L287" class="LineNr">287 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> +<span id="L287" class="LineNr">287 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> <span id="L288" class="LineNr">288 </span> <span class="Comment">// continue giving all errors for a single instruction</span> <span id="L289" class="LineNr">289 </span> <span class="Delimiter">}</span> <span id="L290" class="LineNr">290 </span> <span class="Comment">// ignore settings in any unused bits</span> @@ -353,27 +353,27 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span> <span id="L293" class="LineNr">293 </span>string <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L294" class="LineNr">294 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L295" class="LineNr">295 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L295" class="LineNr">295 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L296" class="LineNr">296 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L342'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L298" class="LineNr">298 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> <span id="L299" class="LineNr">299 </span><span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> -<span id="L301" class="LineNr">301 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L301'>compute_expected_operand_bitvector</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L302" class="LineNr">302 </span> set<string> operands_found<span class="Delimiter">;</span> +<span id="L301" class="LineNr">301 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L301'>compute_expected_argument_bitvector</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L302" class="LineNr">302 </span> set<string> arguments_found<span class="Delimiter">;</span> <span id="L303" class="LineNr">303 </span> <span class="Normal">uint32_t</span> bitvector = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L304" class="LineNr">304 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L305" class="LineNr">305 </span> bitvector = bitvector | <a href='033check_operands.cc.html#L328'>expected_bit_for_received_operand</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> operands_found<span class="Delimiter">,</span> inst<span class="Delimiter">);</span> -<span id="L306" class="LineNr">306 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span class="Comment">// duplicate operand type</span> +<span id="L304" class="LineNr">304 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L305" class="LineNr">305 </span> bitvector = bitvector | <a href='033check_operands.cc.html#L328'>expected_bit_for_received_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> arguments_found<span class="Delimiter">,</span> inst<span class="Delimiter">);</span> +<span id="L306" class="LineNr">306 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span class="Comment">// duplicate argument type</span> <span id="L307" class="LineNr">307 </span> <span class="Delimiter">}</span> <span id="L308" class="LineNr">308 </span> <span class="Identifier">return</span> bitvector<span class="Delimiter">;</span> <span id="L309" class="LineNr">309 </span><span class="Delimiter">}</span> <span id="L310" class="LineNr">310 </span> -<span id="L311" class="LineNr">311 </span><span class="Normal">bool</span> <a href='033check_operands.cc.html#L311'>has_operands</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="Identifier">return</span> <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> > <a href='033check_operands.cc.html#L315'>first_operand</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L311" class="LineNr">311 </span><span class="Normal">bool</span> <a href='033check_operands.cc.html#L311'>has_arguments</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L312" class="LineNr">312 </span> <span class="Identifier">return</span> <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> > <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L313" class="LineNr">313 </span><span class="Delimiter">}</span> <span id="L314" class="LineNr">314 </span> -<span id="L315" class="LineNr">315 </span><span class="Normal">int</span> <a href='033check_operands.cc.html#L315'>first_operand</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L315" class="LineNr">315 </span><span class="Normal">int</span> <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L316" class="LineNr">316 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L317" class="LineNr">317 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f2"</span> || inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L318" class="LineNr">318 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> @@ -384,382 +384,467 @@ if ('onhashchange' in window) { <span id="L323" class="LineNr">323 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L324" class="LineNr">324 </span><span class="Delimiter">}</span> <span id="L325" class="LineNr">325 </span> -<span id="L326" class="LineNr">326 </span><span class="Comment">// Scan the metadata of 'w' and return the expected bit corresponding to any operand type.</span> -<span id="L327" class="LineNr">327 </span><span class="Comment">// Also raise an error if metadata contains multiple operand types.</span> -<span id="L328" class="LineNr">328 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L328'>expected_bit_for_received_operand</a><span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> set<string>& instruction_operands<span class="Delimiter">,</span> <span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span><span class="Comment">// Scan the metadata of 'w' and return the expected bit corresponding to any argument type.</span> +<span id="L327" class="LineNr">327 </span><span class="Comment">// Also raise an error if metadata contains multiple argument types.</span> +<span id="L328" class="LineNr">328 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L328'>expected_bit_for_received_argument</a><span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> set<string>& instruction_arguments<span class="Delimiter">,</span> <span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L329" class="LineNr">329 </span> <span class="Normal">uint32_t</span> bv = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L330" class="LineNr">330 </span> <span class="Normal">bool</span> found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L331" class="LineNr">331 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L331" class="LineNr">331 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L332" class="LineNr">332 </span> string<span class="Comment">/*</span><span class="Comment">copy</span><span class="Comment">*/</span> curr = w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L333" class="LineNr">333 </span> string expected_metadata = curr<span class="Delimiter">;</span> -<span id="L334" class="LineNr">334 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr == <span class="Constant">"mod"</span> || curr == <span class="Constant">"rm32"</span> || curr == <span class="Constant">"r32"</span> || curr == <span class="Constant">"scale"</span> || curr == <span class="Constant">"index"</span> || curr == <span class="Constant">"base"</span><span class="Delimiter">)</span> +<span id="L334" class="LineNr">334 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr == <span class="Constant">"mod"</span> || curr == <span class="Constant">"rm32"</span> || curr == <span class="Constant">"r32"</span> || curr == <span class="Constant">"xm32"</span> || curr == <span class="Constant">"x32"</span> || curr == <span class="Constant">"scale"</span> || curr == <span class="Constant">"index"</span> || curr == <span class="Constant">"base"</span><span class="Delimiter">)</span> <span id="L335" class="LineNr">335 </span> expected_metadata = <span class="Constant">"modrm"</span><span class="Delimiter">;</span> -<span id="L336" class="LineNr">336 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> curr<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> +<span id="L336" class="LineNr">336 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> curr<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> <span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>found<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting operand types; it should have only one\n"</span> << end<span class="Delimiter">();</span> +<span id="L338" class="LineNr">338 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one\n"</span> << end<span class="Delimiter">();</span> <span id="L339" class="LineNr">339 </span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> -<span id="L341" class="LineNr">341 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>instruction_operands<span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> != instruction_operands<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': duplicate "</span> << curr << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> +<span id="L341" class="LineNr">341 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>instruction_arguments<span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> != instruction_arguments<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': duplicate "</span> << curr << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> <span id="L343" class="LineNr">343 </span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> -<span id="L345" class="LineNr">345 </span> instruction_operands<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> -<span id="L346" class="LineNr">346 </span> bv = <span class="Delimiter">(</span><span class="Constant">1</span> << get<span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> expected_metadata<span class="Delimiter">));</span> +<span id="L345" class="LineNr">345 </span> instruction_arguments<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> +<span id="L346" class="LineNr">346 </span> bv = <span class="Delimiter">(</span><span class="Constant">1</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> expected_metadata<span class="Delimiter">));</span> <span id="L347" class="LineNr">347 </span> found = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> <span id="L349" class="LineNr">349 </span> <span class="Identifier">return</span> bv<span class="Delimiter">;</span> <span id="L350" class="LineNr">350 </span><span class="Delimiter">}</span> <span id="L351" class="LineNr">351 </span> -<span id="L352" class="LineNr">352 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L352'>test_conflicting_operand_type</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L352" class="LineNr">352 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L352'>test_conflicting_argument_type</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L353" class="LineNr">353 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L354" class="LineNr">354 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L355" class="LineNr">355 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L356" class="LineNr">356 </span> <span class="Constant">"cd/software-interrupt 80/imm8/imm32\n"</span> <span id="L357" class="LineNr">357 </span> <span class="Delimiter">);</span> -<span id="L358" class="LineNr">358 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L359" class="LineNr">359 </span> <span class="Constant">"error: '80/imm8/imm32' has conflicting operand types; it should have only one\n"</span> +<span id="L358" class="LineNr">358 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L359" class="LineNr">359 </span> <span class="Constant">"error: '80/imm8/imm32' has conflicting argument types; it should have only one\n"</span> <span id="L360" class="LineNr">360 </span> <span class="Delimiter">);</span> <span id="L361" class="LineNr">361 </span><span class="Delimiter">}</span> <span id="L362" class="LineNr">362 </span> <span id="L363" class="LineNr">363 </span><span class="Comment">//: Instructions computing effective addresses have more complex rules, so</span> <span id="L364" class="LineNr">364 </span><span class="Comment">//: we'll hard-code a common set of instruction-decoding rules.</span> <span id="L365" class="LineNr">365 </span> -<span id="L366" class="LineNr">366 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L366'>test_check_missing_mod_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L367" class="LineNr">367 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L366" class="LineNr">366 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L366'>test_check_missing_mod_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L367" class="LineNr">367 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L368" class="LineNr">368 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L369" class="LineNr">369 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L370" class="LineNr">370 </span> <span class="Constant">"81 0/add/subop 3/rm32/ebx 1/imm32\n"</span> <span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> -<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L373" class="LineNr">373 </span> <span class="Constant">"error: '81 0/add/subop 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing mod operand\n"</span> +<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L373" class="LineNr">373 </span> <span class="Constant">"error: '81 0/add/subop 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing mod argument\n"</span> <span id="L374" class="LineNr">374 </span> <span class="Delimiter">);</span> <span id="L375" class="LineNr">375 </span><span class="Delimiter">}</span> <span id="L376" class="LineNr">376 </span> -<span id="L377" class="LineNr">377 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L377'>check_operands_modrm</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L378" class="LineNr">378 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L430'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> -<span id="L379" class="LineNr">379 </span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L380" class="LineNr">380 </span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L381" class="LineNr">381 </span> <span class="Comment">// no check for r32; some instructions don't use it; just assume it's 0 if missing</span> -<span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"81"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"8f"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"ff"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Comment">// keep sync'd with 'help subop'</span> -<span id="L383" class="LineNr">383 </span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L384" class="LineNr">384 </span> <a href='033check_operands.cc.html#L442'>check_operand_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"should be replaced by subop"</span><span class="Delimiter">);</span> -<span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> -<span id="L386" class="LineNr">386 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L387" class="LineNr">387 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">).</span>data != <span class="Constant">"4"</span><span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L388" class="LineNr">388 </span> <span class="Comment">// SIB byte checks</span> -<span id="L389" class="LineNr">389 </span> <span class="Normal">uint8_t</span> mod = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">).</span>data<span class="Delimiter">);</span> -<span id="L390" class="LineNr">390 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod != <span class="Comment">/*</span><span class="Comment">direct</span><span class="Comment">*/</span><span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L391" class="LineNr">391 </span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L392" class="LineNr">392 </span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span class="Comment">// otherwise why go to SIB?</span> -<span id="L393" class="LineNr">393 </span> <span class="Delimiter">}</span> -<span id="L394" class="LineNr">394 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr">395 </span> <a href='033check_operands.cc.html#L442'>check_operand_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"direct mode"</span><span class="Delimiter">);</span> -<span id="L396" class="LineNr">396 </span> <a href='033check_operands.cc.html#L442'>check_operand_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"direct mode"</span><span class="Delimiter">);</span> -<span id="L397" class="LineNr">397 </span> <span class="Delimiter">}</span> -<span id="L398" class="LineNr">398 </span> <span class="Comment">// no check for scale; 0 (2**0 = 1) by default</span> -<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="Comment">// same as compare_bitvector, with one additional exception for modrm-based</span> -<span id="L402" class="LineNr">402 </span><span class="Comment">// instructions: they may use an extra displacement on occasion</span> -<span id="L403" class="LineNr">403 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L403'>compare_bitvector_modrm</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">uint8_t</span> expected<span class="Delimiter">,</span> <span class="Normal">const</span> string& maybe_op_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L404" class="LineNr">404 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L430'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">)</span> && <a href='033check_operands.cc.html#L311'>has_operands</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> -<span id="L405" class="LineNr">405 </span> <span class="Normal">uint8_t</span> bitvector = <a href='033check_operands.cc.html#L301'>compute_expected_operand_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> -<span id="L406" class="LineNr">406 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// duplicate operand type</span> -<span id="L407" class="LineNr">407 </span> <span class="Comment">// update 'expected' bitvector for the additional exception</span> -<span id="L408" class="LineNr">408 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L409" class="LineNr">409 </span> <span class="Normal">int32_t</span> mod = <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">).</span>data<span class="Delimiter">);</span> -<span id="L410" class="LineNr">410 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>mod<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L411" class="LineNr">411 </span> <span class="Normal">case</span> <span class="Constant">0</span>: -<span id="L412" class="LineNr">412 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> && <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">).</span>data<span class="Delimiter">)</span> == <span class="Constant">5</span><span class="Delimiter">)</span> -<span id="L413" class="LineNr">413 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP32<span class="Delimiter">);</span> -<span id="L414" class="LineNr">414 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L415" class="LineNr">415 </span> <span class="Normal">case</span> <span class="Constant">1</span>: -<span id="L416" class="LineNr">416 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP8<span class="Delimiter">);</span> -<span id="L417" class="LineNr">417 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L418" class="LineNr">418 </span> <span class="Normal">case</span> <span class="Constant">2</span>: -<span id="L419" class="LineNr">419 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP32<span class="Delimiter">);</span> -<span id="L420" class="LineNr">420 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L421" class="LineNr">421 </span> <span class="Delimiter">}</span> -<span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> -<span id="L423" class="LineNr">423 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>bitvector == expected<span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// all good with this instruction</span> -<span id="L424" class="LineNr">424 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">;</span> ++i<span class="Delimiter">,</span> bitvector >>= <span class="Constant">1</span><span class="Delimiter">,</span> expected >>= <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L425" class="LineNr">425 </span><span class="CommentedCode">//? cerr << "comparing for modrm " << HEXBYTE << NUM(bitvector) << " with " << NUM(expected) << '\n';</span> -<span id="L426" class="LineNr">426 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this operand</span> -<span id="L427" class="LineNr">427 </span> <span class="Normal">const</span> string& optype = <span class="Special"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L428" class="LineNr">428 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> > <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> -<span id="L429" class="LineNr">429 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> -<span id="L430" class="LineNr">430 </span> <span class="Normal">else</span> -<span id="L431" class="LineNr">431 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> -<span id="L432" class="LineNr">432 </span> <span class="Comment">// continue giving all errors for a single instruction</span> -<span id="L433" class="LineNr">433 </span> <span class="Delimiter">}</span> -<span id="L434" class="LineNr">434 </span> <span class="Comment">// ignore settings in any unused bits</span> -<span id="L435" class="LineNr">435 </span><span class="Delimiter">}</span> -<span id="L436" class="LineNr">436 </span> -<span id="L437" class="LineNr">437 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L437'>check_operand_metadata_present</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L438" class="LineNr">438 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> -<span id="L439" class="LineNr">439 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing "</span> << type << <span class="Constant">" operand\n"</span> << end<span class="Delimiter">();</span> -<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="Normal">void</span> <a href='033check_operands.cc.html#L442'>check_operand_metadata_absent</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">,</span> <span class="Normal">const</span> string& msg<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L443" class="LineNr">443 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> -<span id="L444" class="LineNr">444 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": unexpected "</span> << type << <span class="Constant">" operand ("</span> << msg << <span class="Constant">")\n"</span> << end<span class="Delimiter">();</span> -<span id="L445" class="LineNr">445 </span><span class="Delimiter">}</span> -<span id="L446" class="LineNr">446 </span> -<span id="L447" class="LineNr">447 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L447'>test_modrm_with_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L448" class="LineNr">448 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x1</span><span class="Delimiter">;</span> -<span id="L449" class="LineNr">449 </span> transform<span class="Delimiter">(</span> -<span id="L450" class="LineNr">450 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L451" class="LineNr">451 </span> <span class="Comment">// just avoid null pointer</span> -<span id="L452" class="LineNr">452 </span> <span class="Constant">"8b/copy 1/mod/lookup+disp8 0/rm32/EAX 2/r32/EDX 4/disp8\n"</span> <span class="Comment">// copy *(EAX+4) to EDX</span> -<span id="L453" class="LineNr">453 </span> <span class="Delimiter">);</span> -<span id="L454" class="LineNr">454 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L455" class="LineNr">455 </span><span class="Delimiter">}</span> -<span id="L456" class="LineNr">456 </span> -<span id="L457" class="LineNr">457 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L457'>test_check_missing_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L458" class="LineNr">458 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L459" class="LineNr">459 </span> transform<span class="Delimiter">(</span> -<span id="L460" class="LineNr">460 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L461" class="LineNr">461 </span> <span class="Constant">"89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX\n"</span> <span class="Comment">// missing disp8</span> +<span id="L377" class="LineNr">377 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L378" class="LineNr">378 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> +<span id="L379" class="LineNr">379 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L380" class="LineNr">380 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> && !has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">))</span> +<span id="L381" class="LineNr">381 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing rm32 (or xm32) argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L382" class="LineNr">382 </span> <span class="Comment">// no check for r32; some instructions don't use it; just assume it's 0 if missing</span> +<span id="L383" class="LineNr">383 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"81"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"8f"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"f7"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"ff"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Comment">// keep sync'd with 'help subop'</span> +<span id="L384" class="LineNr">384 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L385" class="LineNr">385 </span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"should be replaced by subop"</span><span class="Delimiter">);</span> +<span id="L386" class="LineNr">386 </span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"x32"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"should be replaced by subop"</span><span class="Delimiter">);</span> +<span id="L387" class="LineNr">387 </span> <span class="Delimiter">}</span> +<span id="L388" class="LineNr">388 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L389" class="LineNr">389 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='033check_operands.cc.html#L403'>metadata_m32</a><span class="Delimiter">(</span>inst<span class="Delimiter">).</span>data != <span class="Constant">"4"</span><span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L390" class="LineNr">390 </span> <span class="Comment">// SIB byte checks</span> +<span id="L391" class="LineNr">391 </span> <span class="Normal">uint8_t</span> mod = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">).</span>data<span class="Delimiter">);</span> +<span id="L392" class="LineNr">392 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod != <span class="Comment">/*</span><span class="Comment">direct</span><span class="Comment">*/</span><span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L393" class="LineNr">393 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L394" class="LineNr">394 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span class="Comment">// otherwise why go to SIB?</span> +<span id="L395" class="LineNr">395 </span> <span class="Delimiter">}</span> +<span id="L396" class="LineNr">396 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L397" class="LineNr">397 </span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"direct mode"</span><span class="Delimiter">);</span> +<span id="L398" class="LineNr">398 </span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> op<span class="Delimiter">,</span> <span class="Constant">"direct mode"</span><span class="Delimiter">);</span> +<span id="L399" class="LineNr">399 </span> <span class="Delimiter">}</span> +<span id="L400" class="LineNr">400 </span> <span class="Comment">// no check for scale; 0 (2**0 = 1) by default</span> +<span id="L401" class="LineNr">401 </span><span class="Delimiter">}</span> +<span id="L402" class="LineNr">402 </span> +<span id="L403" class="LineNr">403 </span><a href='011run.cc.html#L127'>word</a> <a href='033check_operands.cc.html#L403'>metadata_m32</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L404" class="LineNr">404 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L405" class="LineNr">405 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> || has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> <span class="Constant">"xm32"</span><span class="Delimiter">))</span> +<span id="L406" class="LineNr">406 </span> <span class="Identifier">return</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L407" class="LineNr">407 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> +<span id="L408" class="LineNr">408 </span><span class="Delimiter">}</span> +<span id="L409" class="LineNr">409 </span> +<span id="L410" class="LineNr">410 </span><span class="Comment">// same as compare_bitvector, with one additional exception for modrm-based</span> +<span id="L411" class="LineNr">411 </span><span class="Comment">// instructions: they may use an extra displacement on occasion</span> +<span id="L412" class="LineNr">412 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">uint8_t</span> expected<span class="Delimiter">,</span> <span class="Normal">const</span> string& maybe_op_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L413" class="LineNr">413 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">)</span> && <a href='033check_operands.cc.html#L311'>has_arguments</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> +<span id="L414" class="LineNr">414 </span> <span class="Normal">uint8_t</span> bitvector = <a href='033check_operands.cc.html#L301'>compute_expected_argument_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L415" class="LineNr">415 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// duplicate argument type</span> +<span id="L416" class="LineNr">416 </span> <span class="Comment">// update 'expected' bitvector for the additional exception</span> +<span id="L417" class="LineNr">417 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L418" class="LineNr">418 </span> <span class="Normal">int32_t</span> mod = <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">).</span>data<span class="Delimiter">);</span> +<span id="L419" class="LineNr">419 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>mod<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L420" class="LineNr">420 </span> <span class="Normal">case</span> <span class="Constant">0</span>: +<span id="L421" class="LineNr">421 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> && <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">).</span>data<span class="Delimiter">)</span> == <span class="Constant">5</span><span class="Delimiter">)</span> +<span id="L422" class="LineNr">422 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP32<span class="Delimiter">);</span> +<span id="L423" class="LineNr">423 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L424" class="LineNr">424 </span> <span class="Normal">case</span> <span class="Constant">1</span>: +<span id="L425" class="LineNr">425 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP8<span class="Delimiter">);</span> +<span id="L426" class="LineNr">426 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L427" class="LineNr">427 </span> <span class="Normal">case</span> <span class="Constant">2</span>: +<span id="L428" class="LineNr">428 </span> expected |= <span class="Delimiter">(</span><span class="Constant">1</span><<DISP32<span class="Delimiter">);</span> +<span id="L429" class="LineNr">429 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L430" class="LineNr">430 </span> <span class="Delimiter">}</span> +<span id="L431" class="LineNr">431 </span> <span class="Delimiter">}</span> +<span id="L432" class="LineNr">432 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>bitvector == expected<span class="Delimiter">)</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// all good with this instruction</span> +<span id="L433" class="LineNr">433 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">;</span> ++i<span class="Delimiter">,</span> bitvector >>= <span class="Constant">1</span><span class="Delimiter">,</span> expected >>= <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L434" class="LineNr">434 </span><span class="CommentedCode">//? cerr << "comparing for modrm " << HEXBYTE << NUM(bitvector) << " with " << NUM(expected) << '\n';</span> +<span id="L435" class="LineNr">435 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this argument</span> +<span id="L436" class="LineNr">436 </span> <span class="Normal">const</span> string& optype = <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L437" class="LineNr">437 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> > <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> +<span id="L438" class="LineNr">438 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L439" class="LineNr">439 </span> <span class="Normal">else</span> +<span id="L440" class="LineNr">440 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L441" class="LineNr">441 </span> <span class="Comment">// continue giving all errors for a single instruction</span> +<span id="L442" class="LineNr">442 </span> <span class="Delimiter">}</span> +<span id="L443" class="LineNr">443 </span> <span class="Comment">// ignore settings in any unused bits</span> +<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="Normal">void</span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L447" class="LineNr">447 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> +<span id="L448" class="LineNr">448 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing "</span> << type << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L449" class="LineNr">449 </span><span class="Delimiter">}</span> +<span id="L450" class="LineNr">450 </span> +<span id="L451" class="LineNr">451 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">,</span> <span class="Normal">const</span> string& msg<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L452" class="LineNr">452 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> +<span id="L453" class="LineNr">453 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": unexpected "</span> << type << <span class="Constant">" argument ("</span> << msg << <span class="Constant">")\n"</span> << end<span class="Delimiter">();</span> +<span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> +<span id="L455" class="LineNr">455 </span> +<span id="L456" class="LineNr">456 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L456'>test_modrm_with_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L457" class="LineNr">457 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x1</span><span class="Delimiter">;</span> +<span id="L458" class="LineNr">458 </span> transform<span class="Delimiter">(</span> +<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L460" class="LineNr">460 </span> <span class="Comment">// just avoid null pointer</span> +<span id="L461" class="LineNr">461 </span> <span class="Constant">"8b/copy 1/mod/lookup+disp8 0/rm32/EAX 2/r32/EDX 4/disp8\n"</span> <span class="Comment">// copy *(EAX+4) to EDX</span> <span id="L462" class="LineNr">462 </span> <span class="Delimiter">);</span> -<span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L464" class="LineNr">464 </span> <span class="Constant">"error: '89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX' (copy r32 to rm32): missing disp8 operand\n"</span> -<span id="L465" class="LineNr">465 </span> <span class="Delimiter">);</span> -<span id="L466" class="LineNr">466 </span><span class="Delimiter">}</span> -<span id="L467" class="LineNr">467 </span> -<span id="L468" class="LineNr">468 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L468'>test_check_missing_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L470" class="LineNr">470 </span> transform<span class="Delimiter">(</span> -<span id="L471" class="LineNr">471 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L472" class="LineNr">472 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX\n"</span> <span class="Comment">// missing disp32</span> -<span id="L473" class="LineNr">473 </span> <span class="Delimiter">);</span> -<span id="L474" class="LineNr">474 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L475" class="LineNr">475 </span> <span class="Constant">"error: '8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX' (copy rm32 to r32): missing <a href='040tests.cc.html#L82'>disp32</a> operand\n"</span> -<span id="L476" class="LineNr">476 </span> <span class="Delimiter">);</span> -<span id="L477" class="LineNr">477 </span><span class="Delimiter">}</span> -<span id="L478" class="LineNr">478 </span> -<span id="L479" class="LineNr">479 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L479'>test_conflicting_operands_in_modrm_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L480" class="LineNr">480 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L481" class="LineNr">481 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L482" class="LineNr">482 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L483" class="LineNr">483 </span> <span class="Constant">"01/add 0/mod 3/mod\n"</span> -<span id="L484" class="LineNr">484 </span> <span class="Delimiter">);</span> -<span id="L485" class="LineNr">485 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L486" class="LineNr">486 </span> <span class="Constant">"error: '01/add 0/mod 3/mod' has conflicting mod operands\n"</span> -<span id="L487" class="LineNr">487 </span> <span class="Delimiter">);</span> -<span id="L488" class="LineNr">488 </span><span class="Delimiter">}</span> -<span id="L489" class="LineNr">489 </span> -<span id="L490" class="LineNr">490 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L490'>test_conflicting_operand_type_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L491" class="LineNr">491 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L492" class="LineNr">492 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L493" class="LineNr">493 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L494" class="LineNr">494 </span> <span class="Constant">"01/add 0/mod 3/rm32/r32\n"</span> -<span id="L495" class="LineNr">495 </span> <span class="Delimiter">);</span> -<span id="L496" class="LineNr">496 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L497" class="LineNr">497 </span> <span class="Constant">"error: '3/rm32/r32' has conflicting operand types; it should have only one\n"</span> -<span id="L498" class="LineNr">498 </span> <span class="Delimiter">);</span> -<span id="L499" class="LineNr">499 </span><span class="Delimiter">}</span> -<span id="L500" class="LineNr">500 </span> -<span id="L501" class="LineNr">501 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L501'>test_check_missing_rm32_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L502" class="LineNr">502 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L503" class="LineNr">503 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L504" class="LineNr">504 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L505" class="LineNr">505 </span> <span class="Constant">"81 0/add/subop 0/mod 1/imm32\n"</span> -<span id="L506" class="LineNr">506 </span> <span class="Delimiter">);</span> -<span id="L507" class="LineNr">507 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L508" class="LineNr">508 </span> <span class="Constant">"error: '81 0/add/subop 0/mod 1/imm32' (combine rm32 with imm32 based on subop): missing rm32 operand\n"</span> -<span id="L509" class="LineNr">509 </span> <span class="Delimiter">);</span> -<span id="L510" class="LineNr">510 </span><span class="Delimiter">}</span> -<span id="L511" class="LineNr">511 </span> -<span id="L512" class="LineNr">512 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L512'>test_check_missing_subop_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L513" class="LineNr">513 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L514" class="LineNr">514 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L515" class="LineNr">515 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L516" class="LineNr">516 </span> <span class="Constant">"81 0/mod 3/rm32/ebx 1/imm32\n"</span> -<span id="L517" class="LineNr">517 </span> <span class="Delimiter">);</span> -<span id="L518" class="LineNr">518 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L519" class="LineNr">519 </span> <span class="Constant">"error: '81 0/mod 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing subop operand\n"</span> -<span id="L520" class="LineNr">520 </span> <span class="Delimiter">);</span> -<span id="L521" class="LineNr">521 </span><span class="Delimiter">}</span> -<span id="L522" class="LineNr">522 </span> -<span id="L523" class="LineNr">523 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L523'>test_check_missing_base_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L524" class="LineNr">524 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L525" class="LineNr">525 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L526" class="LineNr">526 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L527" class="LineNr">527 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> -<span id="L528" class="LineNr">528 </span> <span class="Delimiter">);</span> -<span id="L529" class="LineNr">529 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L530" class="LineNr">530 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32' (combine rm32 with imm32 based on subop): missing base operand\n"</span> -<span id="L531" class="LineNr">531 </span> <span class="Delimiter">);</span> -<span id="L532" class="LineNr">532 </span><span class="Delimiter">}</span> -<span id="L533" class="LineNr">533 </span> -<span id="L534" class="LineNr">534 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L534'>test_check_missing_index_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L535" class="LineNr">535 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L536" class="LineNr">536 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L537" class="LineNr">537 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L538" class="LineNr">538 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32\n"</span> -<span id="L539" class="LineNr">539 </span> <span class="Delimiter">);</span> -<span id="L540" class="LineNr">540 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L541" class="LineNr">541 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32' (combine rm32 with imm32 based on subop): missing index operand\n"</span> -<span id="L542" class="LineNr">542 </span> <span class="Delimiter">);</span> -<span id="L543" class="LineNr">543 </span><span class="Delimiter">}</span> -<span id="L544" class="LineNr">544 </span> -<span id="L545" class="LineNr">545 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L545'>test_check_missing_base_operand_2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L546" class="LineNr">546 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L547" class="LineNr">547 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L548" class="LineNr">548 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L549" class="LineNr">549 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32\n"</span> -<span id="L550" class="LineNr">550 </span> <span class="Delimiter">);</span> -<span id="L551" class="LineNr">551 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L552" class="LineNr">552 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32' (combine rm32 with imm32 based on subop): missing base operand\n"</span> -<span id="L553" class="LineNr">553 </span> <span class="Delimiter">);</span> -<span id="L554" class="LineNr">554 </span><span class="Delimiter">}</span> -<span id="L555" class="LineNr">555 </span> -<span id="L556" class="LineNr">556 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L556'>test_check_extra_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L557" class="LineNr">557 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L558" class="LineNr">558 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L559" class="LineNr">559 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L560" class="LineNr">560 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8\n"</span> -<span id="L561" class="LineNr">561 </span> <span class="Delimiter">);</span> -<span id="L562" class="LineNr">562 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L563" class="LineNr">563 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8' (copy r32 to rm32): unexpected disp8 operand\n"</span> -<span id="L564" class="LineNr">564 </span> <span class="Delimiter">);</span> -<span id="L565" class="LineNr">565 </span><span class="Delimiter">}</span> -<span id="L566" class="LineNr">566 </span> -<span id="L567" class="LineNr">567 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L567'>test_check_duplicate_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L568" class="LineNr">568 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L569" class="LineNr">569 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L570" class="LineNr">570 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L571" class="LineNr">571 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32\n"</span> -<span id="L572" class="LineNr">572 </span> <span class="Delimiter">);</span> -<span id="L573" class="LineNr">573 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L574" class="LineNr">574 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32': duplicate r32 operand\n"</span> -<span id="L575" class="LineNr">575 </span> <span class="Delimiter">);</span> -<span id="L576" class="LineNr">576 </span><span class="Delimiter">}</span> -<span id="L577" class="LineNr">577 </span> -<span id="L578" class="LineNr">578 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L578'>test_check_base_operand_not_needed_in_direct_mode</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L579" class="LineNr">579 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L580" class="LineNr">580 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L581" class="LineNr">581 </span> <span class="Constant">"81 0/add/subop 3/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> -<span id="L582" class="LineNr">582 </span> <span class="Delimiter">);</span> -<span id="L583" class="LineNr">583 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L584" class="LineNr">584 </span><span class="Delimiter">}</span> -<span id="L585" class="LineNr">585 </span> -<span id="L586" class="LineNr">586 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L586'>test_extra_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L587" class="LineNr">587 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L464" class="LineNr">464 </span><span class="Delimiter">}</span> +<span id="L465" class="LineNr">465 </span> +<span id="L466" class="LineNr">466 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L466'>test_check_missing_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L467" class="LineNr">467 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L468" class="LineNr">468 </span> transform<span class="Delimiter">(</span> +<span id="L469" class="LineNr">469 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L470" class="LineNr">470 </span> <span class="Constant">"89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX\n"</span> <span class="Comment">// missing disp8</span> +<span id="L471" class="LineNr">471 </span> <span class="Delimiter">);</span> +<span id="L472" class="LineNr">472 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L473" class="LineNr">473 </span> <span class="Constant">"error: '89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX' (copy r32 to rm32): missing disp8 argument\n"</span> +<span id="L474" class="LineNr">474 </span> <span class="Delimiter">);</span> +<span id="L475" class="LineNr">475 </span><span class="Delimiter">}</span> +<span id="L476" class="LineNr">476 </span> +<span id="L477" class="LineNr">477 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L477'>test_check_missing_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L478" class="LineNr">478 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L479" class="LineNr">479 </span> transform<span class="Delimiter">(</span> +<span id="L480" class="LineNr">480 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L481" class="LineNr">481 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX\n"</span> <span class="Comment">// missing disp32</span> +<span id="L482" class="LineNr">482 </span> <span class="Delimiter">);</span> +<span id="L483" class="LineNr">483 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L484" class="LineNr">484 </span> <span class="Constant">"error: '8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX' (copy rm32 to r32): missing <a href='040tests.cc.html#L82'>disp32</a> argument\n"</span> +<span id="L485" class="LineNr">485 </span> <span class="Delimiter">);</span> +<span id="L486" class="LineNr">486 </span><span class="Delimiter">}</span> +<span id="L487" class="LineNr">487 </span> +<span id="L488" class="LineNr">488 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L488'>test_conflicting_arguments_in_modrm_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L489" class="LineNr">489 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L490" class="LineNr">490 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L491" class="LineNr">491 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L492" class="LineNr">492 </span> <span class="Constant">"01/add 0/mod 3/mod\n"</span> +<span id="L493" class="LineNr">493 </span> <span class="Delimiter">);</span> +<span id="L494" class="LineNr">494 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L495" class="LineNr">495 </span> <span class="Constant">"error: '01/add 0/mod 3/mod' has conflicting mod arguments\n"</span> +<span id="L496" class="LineNr">496 </span> <span class="Delimiter">);</span> +<span id="L497" class="LineNr">497 </span><span class="Delimiter">}</span> +<span id="L498" class="LineNr">498 </span> +<span id="L499" class="LineNr">499 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L499'>test_conflicting_argument_type_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L500" class="LineNr">500 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L501" class="LineNr">501 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L502" class="LineNr">502 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L503" class="LineNr">503 </span> <span class="Constant">"01/add 0/mod 3/rm32/r32\n"</span> +<span id="L504" class="LineNr">504 </span> <span class="Delimiter">);</span> +<span id="L505" class="LineNr">505 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L506" class="LineNr">506 </span> <span class="Constant">"error: '3/rm32/r32' has conflicting argument types; it should have only one\n"</span> +<span id="L507" class="LineNr">507 </span> <span class="Delimiter">);</span> +<span id="L508" class="LineNr">508 </span><span class="Delimiter">}</span> +<span id="L509" class="LineNr">509 </span> +<span id="L510" class="LineNr">510 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L510'>test_check_missing_rm32_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L511" class="LineNr">511 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L512" class="LineNr">512 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L513" class="LineNr">513 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L514" class="LineNr">514 </span> <span class="Constant">"81 0/add/subop 0/mod 1/imm32\n"</span> +<span id="L515" class="LineNr">515 </span> <span class="Delimiter">);</span> +<span id="L516" class="LineNr">516 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L517" class="LineNr">517 </span> <span class="Constant">"error: '81 0/add/subop 0/mod 1/imm32' (combine rm32 with imm32 based on subop): missing rm32 (or xm32) argument\n"</span> +<span id="L518" class="LineNr">518 </span> <span class="Delimiter">);</span> +<span id="L519" class="LineNr">519 </span><span class="Delimiter">}</span> +<span id="L520" class="LineNr">520 </span> +<span id="L521" class="LineNr">521 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L521'>test_check_missing_subop_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L522" class="LineNr">522 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L523" class="LineNr">523 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L524" class="LineNr">524 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L525" class="LineNr">525 </span> <span class="Constant">"81 0/mod 3/rm32/ebx 1/imm32\n"</span> +<span id="L526" class="LineNr">526 </span> <span class="Delimiter">);</span> +<span id="L527" class="LineNr">527 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L528" class="LineNr">528 </span> <span class="Constant">"error: '81 0/mod 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing subop argument\n"</span> +<span id="L529" class="LineNr">529 </span> <span class="Delimiter">);</span> +<span id="L530" class="LineNr">530 </span><span class="Delimiter">}</span> +<span id="L531" class="LineNr">531 </span> +<span id="L532" class="LineNr">532 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L532'>test_check_missing_base_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L533" class="LineNr">533 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L534" class="LineNr">534 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L535" class="LineNr">535 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L536" class="LineNr">536 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> +<span id="L537" class="LineNr">537 </span> <span class="Delimiter">);</span> +<span id="L538" class="LineNr">538 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L539" class="LineNr">539 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32' (combine rm32 with imm32 based on subop): missing base argument\n"</span> +<span id="L540" class="LineNr">540 </span> <span class="Delimiter">);</span> +<span id="L541" class="LineNr">541 </span><span class="Delimiter">}</span> +<span id="L542" class="LineNr">542 </span> +<span id="L543" class="LineNr">543 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L543'>test_check_missing_index_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L544" class="LineNr">544 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L545" class="LineNr">545 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L546" class="LineNr">546 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L547" class="LineNr">547 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32\n"</span> +<span id="L548" class="LineNr">548 </span> <span class="Delimiter">);</span> +<span id="L549" class="LineNr">549 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L550" class="LineNr">550 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32' (combine rm32 with imm32 based on subop): missing index argument\n"</span> +<span id="L551" class="LineNr">551 </span> <span class="Delimiter">);</span> +<span id="L552" class="LineNr">552 </span><span class="Delimiter">}</span> +<span id="L553" class="LineNr">553 </span> +<span id="L554" class="LineNr">554 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L554'>test_check_missing_base_argument_2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L555" class="LineNr">555 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L556" class="LineNr">556 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L557" class="LineNr">557 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L558" class="LineNr">558 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32\n"</span> +<span id="L559" class="LineNr">559 </span> <span class="Delimiter">);</span> +<span id="L560" class="LineNr">560 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L561" class="LineNr">561 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32' (combine rm32 with imm32 based on subop): missing base argument\n"</span> +<span id="L562" class="LineNr">562 </span> <span class="Delimiter">);</span> +<span id="L563" class="LineNr">563 </span><span class="Delimiter">}</span> +<span id="L564" class="LineNr">564 </span> +<span id="L565" class="LineNr">565 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L565'>test_check_extra_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L566" class="LineNr">566 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L567" class="LineNr">567 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L568" class="LineNr">568 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L569" class="LineNr">569 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8\n"</span> +<span id="L570" class="LineNr">570 </span> <span class="Delimiter">);</span> +<span id="L571" class="LineNr">571 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L572" class="LineNr">572 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8' (copy r32 to rm32): unexpected disp8 argument\n"</span> +<span id="L573" class="LineNr">573 </span> <span class="Delimiter">);</span> +<span id="L574" class="LineNr">574 </span><span class="Delimiter">}</span> +<span id="L575" class="LineNr">575 </span> +<span id="L576" class="LineNr">576 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L576'>test_check_duplicate_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L577" class="LineNr">577 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L578" class="LineNr">578 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L579" class="LineNr">579 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L580" class="LineNr">580 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32\n"</span> +<span id="L581" class="LineNr">581 </span> <span class="Delimiter">);</span> +<span id="L582" class="LineNr">582 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L583" class="LineNr">583 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32': duplicate r32 argument\n"</span> +<span id="L584" class="LineNr">584 </span> <span class="Delimiter">);</span> +<span id="L585" class="LineNr">585 </span><span class="Delimiter">}</span> +<span id="L586" class="LineNr">586 </span> +<span id="L587" class="LineNr">587 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L587'>test_check_base_argument_not_needed_in_direct_mode</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L588" class="LineNr">588 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L589" class="LineNr">589 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L590" class="LineNr">590 </span> <span class="Constant">"59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP\n"</span> +<span id="L590" class="LineNr">590 </span> <span class="Constant">"81 0/add/subop 3/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> <span id="L591" class="LineNr">591 </span> <span class="Delimiter">);</span> -<span id="L592" class="LineNr">592 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L593" class="LineNr">593 </span> <span class="Constant">"error: '59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP' (<a href='013direct_addressing.cc.html#L1270'>pop</a> top of stack to <a href='010vm.cc.html#L11'>ECX</a>): unexpected modrm operand\n"</span> -<span id="L594" class="LineNr">594 </span> <span class="Delimiter">);</span> -<span id="L595" class="LineNr">595 </span><span class="Delimiter">}</span> -<span id="L596" class="LineNr">596 </span> -<span id="L597" class="LineNr">597 </span><span class="SalientComment">//:: similarly handle multi-byte opcodes</span> -<span id="L598" class="LineNr">598 </span> -<span id="L599" class="LineNr">599 </span><span class="Normal">void</span> check_operands_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L600" class="LineNr">600 </span> assert<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">);</span> -<span id="L601" class="LineNr">601 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L602" class="LineNr">602 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"opcode '0f' requires a second opcode\n"</span> << end<span class="Delimiter">();</span> -<span id="L603" class="LineNr">603 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L604" class="LineNr">604 </span> <span class="Delimiter">}</span> -<span id="L605" class="LineNr">605 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> -<span id="L606" class="LineNr">606 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L607" class="LineNr">607 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"unknown 2-byte opcode '0f "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> -<span id="L608" class="LineNr">608 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L609" class="LineNr">609 </span> <span class="Delimiter">}</span> -<span id="L610" class="LineNr">610 </span> check_operands_0f<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L611" class="LineNr">611 </span><span class="Delimiter">}</span> -<span id="L612" class="LineNr">612 </span> -<span id="L613" class="LineNr">613 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L613'>check_operands_f3</a><span class="Delimiter">(</span><span class="Normal">const</span> line& <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L614" class="LineNr">614 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"no supported opcodes starting with f3\n"</span> << end<span class="Delimiter">();</span> -<span id="L615" class="LineNr">615 </span><span class="Delimiter">}</span> -<span id="L616" class="LineNr">616 </span> -<span id="L617" class="LineNr">617 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L617'>test_check_missing_disp32_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L618" class="LineNr">618 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L619" class="LineNr">619 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L620" class="LineNr">620 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L621" class="LineNr">621 </span> <span class="Constant">" 0f 84 # jmp if ZF to ??\n"</span> -<span id="L622" class="LineNr">622 </span> <span class="Delimiter">);</span> -<span id="L623" class="LineNr">623 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L624" class="LineNr">624 </span> <span class="Constant">"error: '0f 84' (jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L80'>ZF</a> is set): missing <a href='040tests.cc.html#L82'>disp32</a> operand\n"</span> -<span id="L625" class="LineNr">625 </span> <span class="Delimiter">);</span> -<span id="L626" class="LineNr">626 </span><span class="Delimiter">}</span> -<span id="L627" class="LineNr">627 </span> -<span id="L628" class="LineNr">628 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L628'>test_0f_opcode_with_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L629" class="LineNr">629 </span> transform<span class="Delimiter">(</span> -<span id="L630" class="LineNr">630 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L631" class="LineNr">631 </span> <span class="Constant">"0f af/multiply 2/mod/*+disp32 5/rm32/ebp 8/disp32 0/r32\n"</span> -<span id="L632" class="LineNr">632 </span> <span class="Delimiter">);</span> -<span id="L633" class="LineNr">633 </span> <a href='003trace.cc.html#L306'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> -<span id="L634" class="LineNr">634 </span><span class="Delimiter">}</span> -<span id="L635" class="LineNr">635 </span> -<span id="L636" class="LineNr">636 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L637" class="LineNr">637 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">;</span> -<span id="L638" class="LineNr">638 </span><span class="Delimiter">:(before "End Init Permitted Operands")</span> -<span id="L639" class="LineNr">639 </span><span class="SalientComment">//// Class D: just op and disp32</span> -<span id="L640" class="LineNr">640 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> -<span id="L641" class="LineNr">641 </span><span class="Comment">// 0 0 1 |0 0 0 0</span> -<span id="L642" class="LineNr">642 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L643" class="LineNr">643 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L644" class="LineNr">644 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L645" class="LineNr">645 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L646" class="LineNr">646 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L647" class="LineNr">647 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L648" class="LineNr">648 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L649" class="LineNr">649 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L650" class="LineNr">650 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L651" class="LineNr">651 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L652" class="LineNr">652 </span> -<span id="L653" class="LineNr">653 </span><span class="SalientComment">//// Class M: using ModR/M byte</span> -<span id="L654" class="LineNr">654 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> -<span id="L655" class="LineNr">655 </span><span class="Comment">// 0 0 0 |0 0 0 1</span> -<span id="L656" class="LineNr">656 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L657" class="LineNr">657 </span><span class="Comment">// setcc</span> -<span id="L658" class="LineNr">658 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L659" class="LineNr">659 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L660" class="LineNr">660 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L661" class="LineNr">661 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L662" class="LineNr">662 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L663" class="LineNr">663 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L664" class="LineNr">664 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L665" class="LineNr">665 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L666" class="LineNr">666 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L667" class="LineNr">667 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L668" class="LineNr">668 </span> -<span id="L669" class="LineNr">669 </span><span class="Delimiter">:(code)</span> -<span id="L670" class="LineNr">670 </span><span class="Normal">void</span> check_operands_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L671" class="LineNr">671 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="Special"><a href='033check_operands.cc.html#L637'>Permitted_operands_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L672" class="LineNr">672 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L673" class="LineNr">673 </span> <a href='033check_operands.cc.html#L377'>check_operands_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> -<span id="L674" class="LineNr">674 </span> <a href='033check_operands.cc.html#L403'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L681'>maybe_name_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> -<span id="L675" class="LineNr">675 </span> <span class="Delimiter">}</span> -<span id="L676" class="LineNr">676 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L677" class="LineNr">677 </span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> CLEAR<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">),</span> <a href='033check_operands.cc.html#L681'>maybe_name_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> -<span id="L678" class="LineNr">678 </span> <span class="Delimiter">}</span> -<span id="L679" class="LineNr">679 </span><span class="Delimiter">}</span> -<span id="L680" class="LineNr">680 </span> -<span id="L681" class="LineNr">681 </span>string <a href='033check_operands.cc.html#L681'>maybe_name_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L682" class="LineNr">682 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L683" class="LineNr">683 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L684" class="LineNr">684 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L685" class="LineNr">685 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L343'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> -<span id="L686" class="LineNr">686 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> -<span id="L687" class="LineNr">687 </span><span class="Delimiter">}</span> -<span id="L688" class="LineNr">688 </span> -<span id="L689" class="LineNr">689 </span>string <a href='033check_operands.cc.html#L689'>tolower</a><span class="Delimiter">(</span><span class="Normal">const</span> <span class="Normal">char</span>* s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L690" class="LineNr">690 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L691" class="LineNr">691 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> *s<span class="Delimiter">;</span> ++s<span class="Delimiter">)</span> -<span id="L692" class="LineNr">692 </span> out << <span class="Normal">static_cast</span><<span class="Normal">char</span>><span class="Delimiter">(</span><a href='033check_operands.cc.html#L689'>tolower</a><span class="Delimiter">(</span>*s<span class="Delimiter">));</span> -<span id="L693" class="LineNr">693 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> -<span id="L694" class="LineNr">694 </span><span class="Delimiter">}</span> -<span id="L695" class="LineNr">695 </span> -<span id="L696" class="LineNr">696 </span><span class="PreProc">#undef HAS</span> -<span id="L697" class="LineNr">697 </span><span class="PreProc">#undef SET</span> -<span id="L698" class="LineNr">698 </span><span class="PreProc">#undef CLEAR</span> -<span id="L699" class="LineNr">699 </span> -<span id="L700" class="LineNr">700 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L701" class="LineNr">701 </span><span class="PreProc">#include</span><span class="Constant"><cctype></span> +<span id="L592" class="LineNr">592 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L593" class="LineNr">593 </span><span class="Delimiter">}</span> +<span id="L594" class="LineNr">594 </span> +<span id="L595" class="LineNr">595 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L595'>test_extra_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L596" class="LineNr">596 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L597" class="LineNr">597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L598" class="LineNr">598 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L599" class="LineNr">599 </span> <span class="Constant">"59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP\n"</span> +<span id="L600" class="LineNr">600 </span> <span class="Delimiter">);</span> +<span id="L601" class="LineNr">601 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L602" class="LineNr">602 </span> <span class="Constant">"error: '59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP' (<a href='013direct_addressing.cc.html#L1270'>pop</a> top of stack to <a href='010vm.cc.html#L11'>ECX</a>): unexpected modrm argument\n"</span> +<span id="L603" class="LineNr">603 </span> <span class="Delimiter">);</span> +<span id="L604" class="LineNr">604 </span><span class="Delimiter">}</span> +<span id="L605" class="LineNr">605 </span> +<span id="L606" class="LineNr">606 </span><span class="SalientComment">//:: similarly handle multi-byte opcodes</span> +<span id="L607" class="LineNr">607 </span> +<span id="L608" class="LineNr">608 </span><span class="Normal">void</span> check_arguments_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L609" class="LineNr">609 </span> assert<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">);</span> +<span id="L610" class="LineNr">610 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L611" class="LineNr">611 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode '0f' requires a second opcode\n"</span> << end<span class="Delimiter">();</span> +<span id="L612" class="LineNr">612 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L613" class="LineNr">613 </span> <span class="Delimiter">}</span> +<span id="L614" class="LineNr">614 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> +<span id="L615" class="LineNr">615 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L616" class="LineNr">616 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode '0f "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L617" class="LineNr">617 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L618" class="LineNr">618 </span> <span class="Delimiter">}</span> +<span id="L619" class="LineNr">619 </span> check_arguments_0f<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L620" class="LineNr">620 </span><span class="Delimiter">}</span> +<span id="L621" class="LineNr">621 </span> +<span id="L622" class="LineNr">622 </span><span class="Normal">void</span> check_arguments_f3<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L623" class="LineNr">623 </span> assert<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span><span class="Delimiter">);</span> +<span id="L624" class="LineNr">624 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L625" class="LineNr">625 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode 'f3' requires a second opcode\n"</span> << end<span class="Delimiter">();</span> +<span id="L626" class="LineNr">626 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L627" class="LineNr">627 </span> <span class="Delimiter">}</span> +<span id="L628" class="LineNr">628 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> +<span id="L629" class="LineNr">629 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"0f"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L630" class="LineNr">630 </span> <a href='011run.cc.html#L127'>word</a> op2 = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">));</span> +<span id="L631" class="LineNr">631 </span> <a href='033check_operands.cc.html#L739'>check_arguments_f3_0f</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op2<span class="Delimiter">);</span> +<span id="L632" class="LineNr">632 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L633" class="LineNr">633 </span> <span class="Delimiter">}</span> +<span id="L634" class="LineNr">634 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L635" class="LineNr">635 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode 'f3 "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L636" class="LineNr">636 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L637" class="LineNr">637 </span> <span class="Delimiter">}</span> +<span id="L638" class="LineNr">638 </span> check_arguments_f3<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L639" class="LineNr">639 </span><span class="Delimiter">}</span> +<span id="L640" class="LineNr">640 </span> +<span id="L641" class="LineNr">641 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L641'>test_check_missing_disp32_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L642" class="LineNr">642 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L643" class="LineNr">643 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> +<span id="L644" class="LineNr">644 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L645" class="LineNr">645 </span> <span class="Constant">" 0f 84 # jmp if ZF to ??\n"</span> +<span id="L646" class="LineNr">646 </span> <span class="Delimiter">);</span> +<span id="L647" class="LineNr">647 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L648" class="LineNr">648 </span> <span class="Constant">"error: '0f 84' (jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set): missing <a href='040tests.cc.html#L82'>disp32</a> argument\n"</span> +<span id="L649" class="LineNr">649 </span> <span class="Delimiter">);</span> +<span id="L650" class="LineNr">650 </span><span class="Delimiter">}</span> +<span id="L651" class="LineNr">651 </span> +<span id="L652" class="LineNr">652 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L652'>test_0f_opcode_with_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L653" class="LineNr">653 </span> transform<span class="Delimiter">(</span> +<span id="L654" class="LineNr">654 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L655" class="LineNr">655 </span> <span class="Constant">"0f af/multiply 2/mod/*+disp32 5/rm32/ebp 8/disp32 0/r32\n"</span> +<span id="L656" class="LineNr">656 </span> <span class="Delimiter">);</span> +<span id="L657" class="LineNr">657 </span> <a href='003trace.cc.html#L304'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> +<span id="L658" class="LineNr">658 </span><span class="Delimiter">}</span> +<span id="L659" class="LineNr">659 </span> +<span id="L660" class="LineNr">660 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L661" class="LineNr">661 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">;</span> +<span id="L662" class="LineNr">662 </span><span class="Delimiter">:(before "End Init Permitted Operands")</span> +<span id="L663" class="LineNr">663 </span><span class="SalientComment">//// Class D: just op and disp32</span> +<span id="L664" class="LineNr">664 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> +<span id="L665" class="LineNr">665 </span><span class="Comment">// 0 0 1 |0 0 0 0</span> +<span id="L666" class="LineNr">666 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L667" class="LineNr">667 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L668" class="LineNr">668 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L669" class="LineNr">669 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L670" class="LineNr">670 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L671" class="LineNr">671 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L672" class="LineNr">672 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L673" class="LineNr">673 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L674" class="LineNr">674 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L675" class="LineNr">675 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L676" class="LineNr">676 </span> +<span id="L677" class="LineNr">677 </span><span class="SalientComment">//// Class M: using ModR/M byte</span> +<span id="L678" class="LineNr">678 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> +<span id="L679" class="LineNr">679 </span><span class="Comment">// 0 0 0 |0 0 0 1</span> +<span id="L680" class="LineNr">680 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// compare floats</span> +<span id="L681" class="LineNr">681 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply ints</span> +<span id="L682" class="LineNr">682 </span><span class="Comment">// setcc</span> +<span id="L683" class="LineNr">683 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L684" class="LineNr">684 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L685" class="LineNr">685 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L686" class="LineNr">686 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L687" class="LineNr">687 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L688" class="LineNr">688 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L689" class="LineNr">689 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L690" class="LineNr">690 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L691" class="LineNr">691 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L692" class="LineNr">692 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L693" class="LineNr">693 </span> +<span id="L694" class="LineNr">694 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L695" class="LineNr">695 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a></span><span class="Delimiter">;</span> +<span id="L696" class="LineNr">696 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">;</span> +<span id="L697" class="LineNr">697 </span><span class="Delimiter">:(before "End Init Permitted Operands")</span> +<span id="L698" class="LineNr">698 </span><span class="SalientComment">//// Class M: using ModR/M byte</span> +<span id="L699" class="LineNr">699 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> +<span id="L700" class="LineNr">700 </span><span class="Comment">// 0 0 0 |0 0 0 1</span> +<span id="L701" class="LineNr">701 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy xm32 to x32</span> +<span id="L702" class="LineNr">702 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy x32 to xm32</span> +<span id="L703" class="LineNr">703 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-float</span> +<span id="L704" class="LineNr">704 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// truncate-to-int</span> +<span id="L705" class="LineNr">705 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-int</span> +<span id="L706" class="LineNr">706 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// square root</span> +<span id="L707" class="LineNr">707 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// inverse square root</span> +<span id="L708" class="LineNr">708 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// reciprocal</span> +<span id="L709" class="LineNr">709 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// add floats</span> +<span id="L710" class="LineNr">710 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply floats</span> +<span id="L711" class="LineNr">711 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// subtract floats</span> +<span id="L712" class="LineNr">712 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// minimum of floats</span> +<span id="L713" class="LineNr">713 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// divide floats</span> +<span id="L714" class="LineNr">714 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// maximum of floats</span> +<span id="L715" class="LineNr">715 </span> +<span id="L716" class="LineNr">716 </span><span class="Delimiter">:(code)</span> +<span id="L717" class="LineNr">717 </span><span class="Normal">void</span> check_arguments_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L718" class="LineNr">718 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L719" class="LineNr">719 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L720" class="LineNr">720 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L721" class="LineNr">721 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L750'>maybe_name_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L722" class="LineNr">722 </span> <span class="Delimiter">}</span> +<span id="L723" class="LineNr">723 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L724" class="LineNr">724 </span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> CLEAR<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">),</span> <a href='033check_operands.cc.html#L750'>maybe_name_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L725" class="LineNr">725 </span> <span class="Delimiter">}</span> +<span id="L726" class="LineNr">726 </span><span class="Delimiter">}</span> +<span id="L727" class="LineNr">727 </span> +<span id="L728" class="LineNr">728 </span><span class="Normal">void</span> check_arguments_f3<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L729" class="LineNr">729 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L730" class="LineNr">730 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L731" class="LineNr">731 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L732" class="LineNr">732 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L758'>maybe_name_f3</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L733" class="LineNr">733 </span> <span class="Delimiter">}</span> +<span id="L734" class="LineNr">734 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L735" class="LineNr">735 </span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> CLEAR<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">),</span> <a href='033check_operands.cc.html#L758'>maybe_name_f3</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L736" class="LineNr">736 </span> <span class="Delimiter">}</span> +<span id="L737" class="LineNr">737 </span><span class="Delimiter">}</span> +<span id="L738" class="LineNr">738 </span> +<span id="L739" class="LineNr">739 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L739'>check_arguments_f3_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L740" class="LineNr">740 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L741" class="LineNr">741 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L742" class="LineNr">742 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> +<span id="L743" class="LineNr">743 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L766'>maybe_name_f3_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L744" class="LineNr">744 </span> <span class="Delimiter">}</span> +<span id="L745" class="LineNr">745 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L746" class="LineNr">746 </span> <a href='033check_operands.cc.html#L275'>compare_bitvector</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> CLEAR<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">),</span> <a href='033check_operands.cc.html#L766'>maybe_name_f3_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> +<span id="L747" class="LineNr">747 </span> <span class="Delimiter">}</span> +<span id="L748" class="LineNr">748 </span><span class="Delimiter">}</span> +<span id="L749" class="LineNr">749 </span> +<span id="L750" class="LineNr">750 </span>string <a href='033check_operands.cc.html#L750'>maybe_name_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L751" class="LineNr">751 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L752" class="LineNr">752 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L753" class="LineNr">753 </span> <span class="Comment">// strip stuff in parens from the name</span> +<span id="L754" class="LineNr">754 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L755" class="LineNr">755 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> +<span id="L756" class="LineNr">756 </span><span class="Delimiter">}</span> +<span id="L757" class="LineNr">757 </span> +<span id="L758" class="LineNr">758 </span>string <a href='033check_operands.cc.html#L758'>maybe_name_f3</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L759" class="LineNr">759 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L760" class="LineNr">760 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L761" class="LineNr">761 </span> <span class="Comment">// strip stuff in parens from the name</span> +<span id="L762" class="LineNr">762 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L763" class="LineNr">763 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> +<span id="L764" class="LineNr">764 </span><span class="Delimiter">}</span> +<span id="L765" class="LineNr">765 </span> +<span id="L766" class="LineNr">766 </span>string <a href='033check_operands.cc.html#L766'>maybe_name_f3_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L767" class="LineNr">767 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L768" class="LineNr">768 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L769" class="LineNr">769 </span> <span class="Comment">// strip stuff in parens from the name</span> +<span id="L770" class="LineNr">770 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L771" class="LineNr">771 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> +<span id="L772" class="LineNr">772 </span><span class="Delimiter">}</span> +<span id="L773" class="LineNr">773 </span> +<span id="L774" class="LineNr">774 </span>string <a href='033check_operands.cc.html#L774'>tolower</a><span class="Delimiter">(</span><span class="Normal">const</span> <span class="Normal">char</span>* s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L775" class="LineNr">775 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L776" class="LineNr">776 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> *s<span class="Delimiter">;</span> ++s<span class="Delimiter">)</span> +<span id="L777" class="LineNr">777 </span> out << <span class="Normal">static_cast</span><<span class="Normal">char</span>><span class="Delimiter">(</span><a href='033check_operands.cc.html#L774'>tolower</a><span class="Delimiter">(</span>*s<span class="Delimiter">));</span> +<span id="L778" class="LineNr">778 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L779" class="LineNr">779 </span><span class="Delimiter">}</span> +<span id="L780" class="LineNr">780 </span> +<span id="L781" class="LineNr">781 </span><span class="PreProc">#undef HAS</span> +<span id="L782" class="LineNr">782 </span><span class="PreProc">#undef SET</span> +<span id="L783" class="LineNr">783 </span><span class="PreProc">#undef CLEAR</span> +<span id="L784" class="LineNr">784 </span> +<span id="L785" class="LineNr">785 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L786" class="LineNr">786 </span><span class="PreProc">#include</span><span class="Constant"><cctype></span> </pre> </body> </html> diff --git a/html/034check_operand_bounds.cc.html b/html/034check_operand_bounds.cc.html index 02cf8bcf..a9426384 100644 --- a/html/034check_operand_bounds.cc.html +++ b/html/034check_operand_bounds.cc.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.cSpecial { color: #008000; } .LineNr { } -.Constant { color: #008787; } .Comment { color: #005faf; } +.Constant { color: #008787; } +.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } +.cSpecial { color: #008000; } .SalientComment { color: #0000af; } --> </style> @@ -58,68 +58,68 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/034check_operand_bounds.cc'>https://github.com/akkartik/mu/blob/master/034check_operand_bounds.cc</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: Check that the different operands of an instruction aren't too large for their bitfields.</span> +<span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: Check that the different arguments of an instruction aren't too large for their bitfields.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L3'>test_check_bitfield_sizes</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L5" class="LineNr"> 5 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L6" class="LineNr"> 6 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L7" class="LineNr"> 7 </span> <span class="Constant">"01/add 4/mod 3/rm32 1/r32\n"</span> <span class="Comment">// add ECX to EBX</span> <span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">);</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L10" class="LineNr"> 10 </span> <span class="Constant">"error: '4/mod' too large to fit in bitfield mod\n"</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">);</span> <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L15" class="LineNr"> 15 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">;</span> +<span id="L15" class="LineNr"> 15 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">;</span> <span id="L16" class="LineNr"> 16 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L17" class="LineNr"> 17 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L18" class="LineNr"> 18 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L19" class="LineNr"> 19 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L20" class="LineNr"> 20 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L21" class="LineNr"> 21 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L22" class="LineNr"> 22 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L23" class="LineNr"> 23 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L24" class="LineNr"> 24 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> -<span id="L25" class="LineNr"> 25 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">16</span><span class="Delimiter">);</span> +<span id="L17" class="LineNr"> 17 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L18" class="LineNr"> 18 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L19" class="LineNr"> 19 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L20" class="LineNr"> 20 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L21" class="LineNr"> 21 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L22" class="LineNr"> 22 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L24" class="LineNr"> 24 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> +<span id="L25" class="LineNr"> 25 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">16</span><span class="Delimiter">);</span> <span id="L26" class="LineNr"> 26 </span><span class="Comment">// no bound needed for disp32</span> -<span id="L27" class="LineNr"> 27 </span><a href='001help.cc.html#L239'>put_new</a><span class="Delimiter">(</span><span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> +<span id="L27" class="LineNr"> 27 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> <span id="L28" class="LineNr"> 28 </span><span class="Comment">// no bound needed for imm32</span> <span id="L29" class="LineNr"> 29 </span> <span id="L30" class="LineNr"> 30 </span><span class="Delimiter">:(before "Pack Operands(segment code)")</span> -<span id="L31" class="LineNr"> 31 </span>check_operand_bounds<span class="Delimiter">(</span>code<span class="Delimiter">);</span> -<span id="L32" class="LineNr"> 32 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L31" class="LineNr"> 31 </span>check_argument_bounds<span class="Delimiter">(</span>code<span class="Delimiter">);</span> +<span id="L32" class="LineNr"> 32 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span><span class="Delimiter">:(code)</span> -<span id="L34" class="LineNr"> 34 </span><span class="Normal">void</span> check_operand_bounds<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check operand bounds"</span> << end<span class="Delimiter">();</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span><span class="Normal">void</span> check_argument_bounds<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check argument bounds"</span> << end<span class="Delimiter">();</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">const</span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <a href='033check_operands.cc.html#L315'>first_operand</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> -<span id="L39" class="LineNr"> 39 </span> check_operand_bounds<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">));</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> +<span id="L39" class="LineNr"> 39 </span> check_argument_bounds<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">));</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> <span id="L43" class="LineNr"> 43 </span> -<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> check_operand_bounds<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_operand_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> p<span class="Delimiter">-></span>first<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> check_argument_bounds<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> p<span class="Delimiter">-></span>first<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!looks_like_hex_int<span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// later transforms are on their own to do their own bounds checking</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Normal">int32_t</span> x = <a href='032operands.cc.html#L507'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Normal">int32_t</span> x = <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L49" class="LineNr"> 49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>x >= <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L50" class="LineNr"> 50 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">-></span>first == <span class="Constant">"disp8"</span> || p<span class="Delimiter">-></span>first == <span class="Constant">"disp16"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L51" class="LineNr"> 51 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>x<span class="Delimiter">)</span> >= p<span class="Delimiter">-></span>second/<span class="Constant">2</span><span class="Delimiter">)</span> -<span id="L52" class="LineNr"> 52 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in signed bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L52" class="LineNr"> 52 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in signed bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> <span id="L54" class="LineNr"> 54 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>x<span class="Delimiter">)</span> >= p<span class="Delimiter">-></span>second<span class="Delimiter">)</span> -<span id="L56" class="LineNr"> 56 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L56" class="LineNr"> 56 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L60" class="LineNr"> 60 </span> <span class="Comment">// hacky? assuming bound is a power of 2</span> <span id="L61" class="LineNr"> 61 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>x < -<span class="Constant">1</span>*<span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span>p<span class="Delimiter">-></span>second/<span class="Constant">2</span><span class="Delimiter">))</span> -<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' too large to fit in bitfield "</span> << p<span class="Delimiter">-></span>first << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">}</span> <span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> @@ -133,12 +133,12 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> <span id="L74" class="LineNr"> 74 </span> <span id="L75" class="LineNr"> 75 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L75'>test_check_bitfield_sizes_for_imm8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L76" class="LineNr"> 76 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L77" class="LineNr"> 77 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L78" class="LineNr"> 78 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX 0x100/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> -<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L82" class="LineNr"> 82 </span> <span class="Constant">"error: '0x100/imm8' too large to fit in bitfield imm8\n"</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> @@ -152,12 +152,12 @@ if ('onhashchange' in window) { <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L94'>test_check_bitfield_sizes_for_negative_imm8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L95" class="LineNr"> 95 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L96" class="LineNr"> 96 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L97" class="LineNr"> 97 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX -0x81/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">);</span> -<span id="L100" class="LineNr">100 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L100" class="LineNr">100 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L101" class="LineNr">101 </span> <span class="Constant">"error: '-0x81/imm8' too large to fit in bitfield imm8\n"</span> <span id="L102" class="LineNr">102 </span> <span class="Delimiter">);</span> <span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> @@ -172,12 +172,12 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L114'>test_check_bitfield_sizes_for_disp8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L115" class="LineNr">115 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L116" class="LineNr">116 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L117" class="LineNr">117 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L118" class="LineNr">118 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 0x80/disp8\n"</span> <span class="Comment">// add ECX to *(EBX+0x80)</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">);</span> -<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L121" class="LineNr">121 </span> <span class="Constant">"error: '0x80/disp8' too large to fit in signed bitfield disp8\n"</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">);</span> <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> @@ -192,12 +192,12 @@ if ('onhashchange' in window) { <span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> <span id="L133" class="LineNr">133 </span> <span id="L134" class="LineNr">134 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L134'>test_check_bitfield_sizes_for_negative_disp8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L135" class="LineNr">135 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L136" class="LineNr">136 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L137" class="LineNr">137 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L138" class="LineNr">138 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 -0x81/disp8\n"</span> <span class="Comment">// add ECX to *(EBX-0x81)</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">);</span> -<span id="L140" class="LineNr">140 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L140" class="LineNr">140 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L141" class="LineNr">141 </span> <span class="Constant">"error: '-0x81/disp8' too large to fit in bitfield disp8\n"</span> <span id="L142" class="LineNr">142 </span> <span class="Delimiter">);</span> <span id="L143" class="LineNr">143 </span><span class="Delimiter">}</span> diff --git a/html/035compute_segment_address.cc.html b/html/035compute_segment_address.cc.html index fb555268..1fadcf82 100644 --- a/html/035compute_segment_address.cc.html +++ b/html/035compute_segment_address.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } --> @@ -70,7 +70,7 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr">12 </span> <span class="Constant">"05/add-to-EAX 0x0d0c0b0a/imm32\n"</span> <span id="L13" class="LineNr">13 </span> <span class="Comment">// code starts at 0x09000000 + p_offset, which is 0x54 for a single-segment binary</span> <span id="L14" class="LineNr">14 </span> <span class="Delimiter">);</span> -<span id="L15" class="LineNr">15 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L15" class="LineNr">15 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L16" class="LineNr">16 </span> <span class="Constant">"load: 0x09000054 -> 05\n"</span> <span id="L17" class="LineNr">17 </span> <span class="Constant">"load: 0x09000055 -> 0a\n"</span> <span id="L18" class="LineNr">18 </span> <span class="Constant">"load: 0x09000056 -> 0b\n"</span> @@ -84,28 +84,28 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr">26 </span><span class="Comment">//: compute segment address</span> <span id="L27" class="LineNr">27 </span> <span id="L28" class="LineNr">28 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L29" class="LineNr">29 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">);</span> +<span id="L29" class="LineNr">29 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">);</span> <span id="L30" class="LineNr">30 </span> <span id="L31" class="LineNr">31 </span><span class="Delimiter">:(code)</span> <span id="L32" class="LineNr">32 </span><span class="Normal">void</span> <a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L33" class="LineNr">33 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- compute segment addresses"</span> << end<span class="Delimiter">();</span> -<span id="L34" class="LineNr">34 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> +<span id="L34" class="LineNr">34 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> <span id="L35" class="LineNr">35 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>size<span class="Delimiter">();</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L36" class="LineNr">36 </span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L37" class="LineNr">37 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start >= <span class="Constant">0x08000000</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr">38 </span> <span class="Comment">// valid address for user space, so assume we're creating a real ELF binary, not just running a test</span> <span id="L39" class="LineNr">39 </span> curr<span class="Delimiter">.</span>start &= <span class="Constant">0xfffff000</span><span class="Delimiter">;</span> <span class="Comment">// same number of zeros as the p_align used when emitting the ELF binary</span> <span id="L40" class="LineNr">40 </span> curr<span class="Delimiter">.</span>start |= <span class="Delimiter">(</span>p_offset & <span class="Constant">0xfff</span><span class="Delimiter">);</span> -<span id="L41" class="LineNr">41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"segment "</span> << i << <span class="Constant">" begins at address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << curr<span class="Delimiter">.</span>start << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr">41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"segment "</span> << i << <span class="Constant">" begins at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << curr<span class="Delimiter">.</span>start << end<span class="Delimiter">();</span> <span id="L42" class="LineNr">42 </span> <span class="Delimiter">}</span> <span id="L43" class="LineNr">43 </span> p_offset += size_of<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> -<span id="L44" class="LineNr">44 </span> assert<span class="Delimiter">(</span>p_offset < <a href='010vm.cc.html#L89'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> <span class="Comment">// for now we get less and less available space in each successive segment</span> +<span id="L44" class="LineNr">44 </span> assert<span class="Delimiter">(</span>p_offset < <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">);</span> <span class="Comment">// for now we get less and less available space in each successive segment</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="Normal">uint32_t</span> size_of<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L49" class="LineNr">49 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L50" class="LineNr">50 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L50" class="LineNr">50 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L51" class="LineNr">51 </span> sum += <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L52" class="LineNr">52 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L53" class="LineNr">53 </span><span class="Delimiter">}</span> @@ -113,15 +113,15 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr">55 </span><span class="Comment">// Assumes all bitfields are packed.</span> <span id="L56" class="LineNr">56 </span><span class="Normal">uint32_t</span> <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L57" class="LineNr">57 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L58" class="LineNr">58 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L58" class="LineNr">58 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L59" class="LineNr">59 </span> sum += size_of<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L60" class="LineNr">60 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L61" class="LineNr">61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr">62 </span> <span id="L63" class="LineNr">63 </span><span class="Normal">int</span> size_of<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L64" class="LineNr">64 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> || has_operand_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> +<span id="L64" class="LineNr">64 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> || has_argument_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span id="L65" class="LineNr">65 </span> <span class="Identifier">return</span> <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L66" class="LineNr">66 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> +<span id="L66" class="LineNr">66 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span id="L67" class="LineNr">67 </span> <span class="Identifier">return</span> <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L68" class="LineNr">68 </span> <span class="Comment">// End size_of(word w) Special-cases</span> <span id="L69" class="LineNr">69 </span> <span class="Normal">else</span> @@ -137,7 +137,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr">79 </span><span class="Comment">//: (num_bytes).</span> <span id="L80" class="LineNr">80 </span><span class="Comment">//:</span> <span id="L81" class="LineNr">81 </span><span class="Comment">//: Decision: compute segment addresses before expanding labels, by being</span> -<span id="L82" class="LineNr">82 </span><span class="Comment">//: aware in this layer of certain operand types that will eventually occupy</span> +<span id="L82" class="LineNr">82 </span><span class="Comment">//: aware in this layer of certain argument types that will eventually occupy</span> <span id="L83" class="LineNr">83 </span><span class="Comment">//: multiple bytes.</span> <span id="L84" class="LineNr">84 </span><span class="Comment">//:</span> <span id="L85" class="LineNr">85 </span><span class="Comment">//: The layer to expand labels later hooks into num_bytes() to teach this</span> diff --git a/html/036labels.cc.html b/html/036labels.cc.html index 2d0b7af7..1c386106 100644 --- a/html/036labels.cc.html +++ b/html/036labels.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } .cSpecial { color: #008000; } @@ -90,49 +90,49 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="Constant">"Entry:\n"</span> <span id="L32" class="LineNr"> 32 </span> <span class="Constant">"05 0x0d0c0b0a/imm32\n"</span> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">);</span> -<span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: 0x00000006 opcode: 05\n"</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">);</span> -<span id="L37" class="LineNr"> 37 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000001 opcode: 05"</span><span class="Delimiter">);</span> +<span id="L37" class="LineNr"> 37 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000001 opcode: 05"</span><span class="Delimiter">);</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> -<span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End <a href='032operands.cc.html#L490'>looks_like_hex_int</a>(s) Detectors")</span> -<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End <a href='032operands.cc.html#L591'>looks_like_hex_int</a>(s) Detectors")</span> +<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">:(code)</span> -<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='036labels.cc.html#L44'>test_pack_immediate_ignores_single_byte_nondigit_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='036labels.cc.html#L44'>test_pack_immediate_ignores_single_byte_nondigit_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L46" class="LineNr"> 46 </span> transform<span class="Delimiter">(</span> <span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L48" class="LineNr"> 48 </span> <span class="Constant">"b9/copy a/imm32\n"</span> <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">);</span> -<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L51" class="LineNr"> 51 </span> <span class="Constant">"transform: packing instruction 'b9/copy a/imm32'\n"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> <span id="L53" class="LineNr"> 53 </span> <span class="Constant">"transform: instruction after packing: 'b9 a'\n"</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> <span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="Normal">void</span> <a href='036labels.cc.html#L57'>test_pack_immediate_ignores_3_hex_digit_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L57" class="LineNr"> 57 </span><span class="Normal">void</span> <a href='036labels.cc.html#L57'>test_pack_immediate_ignores_3_hex_digit_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L58" class="LineNr"> 58 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L59" class="LineNr"> 59 </span> transform<span class="Delimiter">(</span> <span id="L60" class="LineNr"> 60 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L61" class="LineNr"> 61 </span> <span class="Constant">"b9/copy aaa/imm32\n"</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L64" class="LineNr"> 64 </span> <span class="Constant">"transform: packing instruction 'b9/copy aaa/imm32'\n"</span> <span id="L65" class="LineNr"> 65 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> <span id="L66" class="LineNr"> 66 </span> <span class="Constant">"transform: instruction after packing: 'b9 aaa'\n"</span> <span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">);</span> <span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> -<span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='036labels.cc.html#L70'>test_pack_immediate_ignores_non_hex_operand</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='036labels.cc.html#L70'>test_pack_immediate_ignores_non_hex_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L72" class="LineNr"> 72 </span> transform<span class="Delimiter">(</span> <span id="L73" class="LineNr"> 73 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L74" class="LineNr"> 74 </span> <span class="Constant">"b9/copy xxx/imm32\n"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> -<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L77" class="LineNr"> 77 </span> <span class="Constant">"transform: packing instruction 'b9/copy xxx/imm32'\n"</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"transform: instruction after packing: 'b9 xxx'\n"</span> @@ -142,19 +142,19 @@ if ('onhashchange' in window) { <span id="L83" class="LineNr"> 83 </span><span class="Comment">//: a helper we'll find handy later</span> <span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"empty name!\n"</span> << end<span class="Delimiter">();</span> +<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"empty name!\n"</span> << end<span class="Delimiter">();</span> <span id="L87" class="LineNr"> 87 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> <span id="L89" class="LineNr"> 89 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span><span class="Delimiter">)</span> -<span id="L90" class="LineNr"> 90 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with '-', which can be confused with a negative number; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L90" class="LineNr"> 90 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with '-', which can be confused with a negative number; use a different name\n"</span> << end<span class="Delimiter">();</span> <span id="L91" class="LineNr"> 91 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">)</span> == <span class="Constant">"0x"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' looks like a hex number; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' looks like a hex number; use a different name\n"</span> << end<span class="Delimiter">();</span> <span id="L93" class="LineNr"> 93 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isdigit<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> -<span id="L96" class="LineNr"> 96 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with a digit, and so can be confused with a number; use a different name.\n"</span> << end<span class="Delimiter">();</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> -<span id="L98" class="LineNr"> 98 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' is two characters long, which can look like raw hex bytes at a glance; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L96" class="LineNr"> 96 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with a digit, and so can be confused with a number; use a different name.\n"</span> << end<span class="Delimiter">();</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> +<span id="L98" class="LineNr"> 98 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' is two characters long, which can look like raw hex bytes at a glance; use a different name\n"</span> << end<span class="Delimiter">();</span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span> <span id="L101" class="LineNr">101 </span><span class="Comment">//: Now that that's done, let's start using names as labels.</span> @@ -165,13 +165,13 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr">106 </span> <span class="Constant">"loop:\n"</span> <span id="L107" class="LineNr">107 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">);</span> -<span id="L109" class="LineNr">109 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L109" class="LineNr">109 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L110" class="LineNr">110 </span> <span class="Constant">"transform: label 'loop' is at address 1\n"</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">);</span> <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L115" class="LineNr">115 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">);</span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">:(code)</span> <span id="L117" class="LineNr">117 </span><span class="Normal">void</span> <a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- rewrite labels"</span> << end<span class="Delimiter">();</span> @@ -179,35 +179,35 @@ if ('onhashchange' in window) { <span id="L120" class="LineNr">120 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> <span id="L121" class="LineNr">121 </span> map<string<span class="Delimiter">,</span> <span class="Normal">int32_t</span>> byte_index<span class="Delimiter">;</span> <span class="Comment">// values are unsigned, but we're going to do subtractions on them so they need to fit in 31 bits</span> <span id="L122" class="LineNr">122 </span> <a href='036labels.cc.html#L131'>compute_byte_indices_for_labels</a><span class="Delimiter">(</span>code<span class="Delimiter">,</span> byte_index<span class="Delimiter">);</span> -<span id="L123" class="LineNr">123 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L123" class="LineNr">123 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L124" class="LineNr">124 </span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>code<span class="Delimiter">);</span> -<span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L126" class="LineNr">126 </span> <a href='036labels.cc.html#L217'>replace_labels_with_displacements</a><span class="Delimiter">(</span>code<span class="Delimiter">,</span> byte_index<span class="Delimiter">);</span> -<span id="L127" class="LineNr">127 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">))</span> +<span id="L127" class="LineNr">127 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">))</span> <span id="L128" class="LineNr">128 </span> p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a> = code<span class="Delimiter">.</span>start + get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">);</span> <span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> <span id="L130" class="LineNr">130 </span> <span id="L131" class="LineNr">131 </span><span class="Normal">void</span> <a href='036labels.cc.html#L131'>compute_byte_indices_for_labels</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">int32_t</span>>& byte_index<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">int</span> current_byte = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L133" class="LineNr">133 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L134" class="LineNr">134 </span> <span class="Normal">const</span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">()</span> && !inst<span class="Delimiter">.</span>original<span class="Delimiter">.</span>empty<span class="Delimiter">()</span> && <span class="Comment">/*</span><span class="Comment">not a label</span><span class="Comment">*/</span> *inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L136" class="LineNr">136 </span> <span class="Special"><a href='036labels.cc.html#L184'>Source_lines_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << inst<span class="Delimiter">.</span>original << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">()</span> && !inst<span class="Delimiter">.</span>original<span class="Delimiter">.</span>empty<span class="Delimiter">()</span> && <span class="Comment">/*</span><span class="Comment">not a label</span><span class="Comment">*/</span> *inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> +<span id="L136" class="LineNr">136 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << inst<span class="Delimiter">.</span>original << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L138" class="LineNr">138 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span> <span class="Comment">// hack: if we have any operand metadata left after previous transforms,</span> +<span id="L139" class="LineNr">139 </span> <span class="Comment">// hack: if we have any argument metadata left after previous transforms,</span> <span id="L140" class="LineNr">140 </span> <span class="Comment">// deduce its size</span> <span id="L141" class="LineNr">141 </span> <span class="Comment">// Maybe we should just move this transform to before instruction</span> -<span id="L142" class="LineNr">142 </span> <span class="Comment">// packing, and deduce the size of *all* operands. But then we'll also</span> +<span id="L142" class="LineNr">142 </span> <span class="Comment">// packing, and deduce the size of *all* arguments. But then we'll also</span> <span id="L143" class="LineNr">143 </span> <span class="Comment">// have to deal with bitfields.</span> -<span id="L144" class="LineNr">144 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> || has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> || has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L145" class="LineNr">145 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> == <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L146" class="LineNr">146 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> +<span id="L146" class="LineNr">146 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> <span id="L147" class="LineNr">147 </span> current_byte += <span class="Constant">4</span><span class="Delimiter">;</span> <span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> -<span id="L149" class="LineNr">149 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L149" class="LineNr">149 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L150" class="LineNr">150 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> == <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L151" class="LineNr">151 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> +<span id="L151" class="LineNr">151 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> <span id="L152" class="LineNr">152 </span> current_byte += <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> <span class="Comment">// automatically handle /disp8 and /imm8 here</span> @@ -218,18 +218,18 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr">159 </span> string label = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L160" class="LineNr">160 </span> <span class="Comment">// ensure labels look sufficiently different from raw hex</span> <span id="L161" class="LineNr">161 </span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span>label<span class="Delimiter">);</span> -<span id="L162" class="LineNr">162 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L163" class="LineNr">163 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L447'>contains_any_operand_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label definition (':') not allowed in operand\n"</span> << end<span class="Delimiter">();</span> +<span id="L162" class="LineNr">162 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L163" class="LineNr">163 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label definition (':') not allowed in argument\n"</span> << end<span class="Delimiter">();</span> <span id="L165" class="LineNr">165 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': labels can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> -<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> -<span id="L168" class="LineNr">168 </span> <span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << label << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L169" class="LineNr">169 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">)</span> && label != <span class="Constant">"Entry"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"duplicate label '"</span> << label << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': labels can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> +<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> +<span id="L168" class="LineNr">168 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << label << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr">169 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">)</span> && label != <span class="Constant">"Entry"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate label '"</span> << label << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L171" class="LineNr">171 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> -<span id="L173" class="LineNr">173 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">,</span> current_byte<span class="Delimiter">);</span> +<span id="L173" class="LineNr">173 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">,</span> current_byte<span class="Delimiter">);</span> <span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"label '"</span> << label << <span class="Constant">"' is at address "</span> << <span class="Delimiter">(</span>current_byte+code<span class="Delimiter">.</span>start<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Comment">// no modifying current_byte; label definitions won't be in the final binary</span> <span id="L176" class="LineNr">176 </span> <span class="Delimiter">}</span> @@ -238,31 +238,31 @@ if ('onhashchange' in window) { <span id="L179" class="LineNr">179 </span><span class="Delimiter">}</span> <span id="L180" class="LineNr">180 </span> <span id="L181" class="LineNr">181 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L182" class="LineNr">182 </span><span class="Normal">bool</span> <span class="Special"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// currently used only by 'bootstrap translate'</span> -<span id="L183" class="LineNr">183 </span>ofstream <span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">;</span> -<span id="L184" class="LineNr">184 </span>ofstream <span class="Special"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">;</span> +<span id="L182" class="LineNr">182 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// currently used only by 'bootstrap translate'</span> +<span id="L183" class="LineNr">183 </span>ofstream <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">;</span> +<span id="L184" class="LineNr">184 </span>ofstream <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">;</span> <span id="L185" class="LineNr">185 </span><span class="Delimiter">:(before "End Commandline Options")</span> -<span id="L186" class="LineNr">186 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--debug"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="Special"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L186" class="LineNr">186 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--debug"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L188" class="LineNr">188 </span> <span class="Comment">// End --debug Settings</span> <span id="L189" class="LineNr">189 </span><span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span><span class="Comment">//: wait to open "labels" for writing until we're sure we aren't trying to read it</span> <span id="L191" class="LineNr">191 </span><span class="Delimiter">:(after "Begin bootstrap translate")</span> -<span id="L192" class="LineNr">192 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L192" class="LineNr">192 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L193" class="LineNr">193 </span> cerr << <span class="Constant">"saving address->label information to 'labels'\n"</span><span class="Delimiter">;</span> -<span id="L194" class="LineNr">194 </span> <span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> +<span id="L194" class="LineNr">194 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> <span id="L195" class="LineNr">195 </span> cerr << <span class="Constant">"saving address->source information to 'source_lines'\n"</span><span class="Delimiter">;</span> -<span id="L196" class="LineNr">196 </span> <span class="Special"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> +<span id="L196" class="LineNr">196 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> <span id="L198" class="LineNr">198 </span><span class="Delimiter">:(before "End bootstrap translate")</span> -<span id="L199" class="LineNr">199 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> -<span id="L201" class="LineNr">201 </span> <span class="Special"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L199" class="LineNr">199 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L201" class="LineNr">201 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> <span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> <span id="L203" class="LineNr">203 </span> <span id="L204" class="LineNr">204 </span><span class="Delimiter">:(code)</span> <span id="L205" class="LineNr">205 </span><span class="Normal">void</span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L208" class="LineNr">208 </span> vector<word>::iterator new_end = remove_if<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>end<span class="Delimiter">(),</span> <a href='036labels.cc.html#L213'>is_label</a><span class="Delimiter">);</span> <span id="L209" class="LineNr">209 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>erase<span class="Delimiter">(</span>new_end<span class="Delimiter">,</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>end<span class="Delimiter">());</span> @@ -275,29 +275,29 @@ if ('onhashchange' in window) { <span id="L216" class="LineNr">216 </span> <span id="L217" class="LineNr">217 </span><span class="Normal">void</span> <a href='036labels.cc.html#L217'>replace_labels_with_displacements</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">int32_t</span>>& byte_index<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L218" class="LineNr">218 </span> <span class="Normal">int32_t</span> byte_index_next_instruction_starts_at = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L219" class="LineNr">219 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L219" class="LineNr">219 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L220" class="LineNr">220 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> byte_index_next_instruction_starts_at += <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L222" class="LineNr">222 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> -<span id="L223" class="LineNr">223 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L224" class="LineNr">224 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L225" class="LineNr">225 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L225" class="LineNr">225 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">int32_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span>get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> - byte_index_next_instruction_starts_at<span class="Delimiter">;</span> -<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L228" class="LineNr">228 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7f</span> || displacement < -<span class="Constant">0x7f</span><span class="Delimiter">)</span> -<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 8 signed bits\n"</span> << end<span class="Delimiter">();</span> +<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 8 signed bits\n"</span> << end<span class="Delimiter">();</span> <span id="L230" class="LineNr">230 </span> <span class="Normal">else</span> <span id="L231" class="LineNr">231 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L233" class="LineNr">233 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L234" class="LineNr">234 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7fff</span> || displacement < -<span class="Constant">0x7fff</span><span class="Delimiter">)</span> -<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 16 signed bits\n"</span> << end<span class="Delimiter">();</span> +<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 16 signed bits\n"</span> << end<span class="Delimiter">();</span> <span id="L236" class="LineNr">236 </span> <span class="Normal">else</span> <span id="L237" class="LineNr">237 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L239" class="LineNr">239 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L240" class="LineNr">240 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L242" class="LineNr">242 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> code<span class="Delimiter">.</span>start + get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">),</span> <span class="Constant">4</span><span class="Delimiter">);</span> <span id="L243" class="LineNr">243 </span> <span class="Delimiter">}</span> <span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> @@ -312,7 +312,7 @@ if ('onhashchange' in window) { <span id="L253" class="LineNr">253 </span> <span id="L254" class="LineNr">254 </span>string <a href='036labels.cc.html#L254'>data_to_string</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L255" class="LineNr">255 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L256" class="LineNr">256 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L256" class="LineNr">256 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L257" class="LineNr">257 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L258" class="LineNr">258 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> <span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> @@ -344,7 +344,7 @@ if ('onhashchange' in window) { <span id="L285" class="LineNr">285 </span> <span class="Comment">// address 0xa</span> <span id="L286" class="LineNr">286 </span> <span class="Constant">" $loop3:\n"</span> <span id="L287" class="LineNr">287 </span> <span class="Delimiter">);</span> -<span id="L288" class="LineNr">288 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L288" class="LineNr">288 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L289" class="LineNr">289 </span> <span class="Constant">"transform: label 'loop' is at address 1\n"</span> <span id="L290" class="LineNr">290 </span> <span class="Constant">"transform: label '$loop2' is at address 1\n"</span> <span id="L291" class="LineNr">291 </span> <span class="Constant">"transform: label '$loop3' is at address a\n"</span> @@ -361,57 +361,57 @@ if ('onhashchange' in window) { <span id="L302" class="LineNr">302 </span> <span class="Constant">"label:\n"</span> <span id="L303" class="LineNr">303 </span> <span class="Constant">" be/copy-to-ESI label/imm32\n"</span> <span id="L304" class="LineNr">304 </span> <span class="Delimiter">);</span> -<span id="L305" class="LineNr">305 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L305" class="LineNr">305 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L306" class="LineNr">306 </span> <span class="Constant">"transform: label 'label' is at address 1\n"</span> <span id="L307" class="LineNr">307 </span> <span class="Constant">"transform: instruction after transform: 'be 01 00 00 00'\n"</span> <span id="L308" class="LineNr">308 </span> <span class="Delimiter">);</span> <span id="L309" class="LineNr">309 </span><span class="Delimiter">}</span> <span id="L310" class="LineNr">310 </span> <span id="L311" class="LineNr">311 </span><span class="Normal">void</span> <a href='036labels.cc.html#L311'>test_duplicate_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L312" class="LineNr">312 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L313" class="LineNr">313 </span> transform<span class="Delimiter">(</span> <span id="L314" class="LineNr">314 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L315" class="LineNr">315 </span> <span class="Constant">"loop:\n"</span> <span id="L316" class="LineNr">316 </span> <span class="Constant">"loop:\n"</span> <span id="L317" class="LineNr">317 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L318" class="LineNr">318 </span> <span class="Delimiter">);</span> -<span id="L319" class="LineNr">319 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L319" class="LineNr">319 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L320" class="LineNr">320 </span> <span class="Constant">"error: duplicate label 'loop'\n"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> <span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span> <span id="L324" class="LineNr">324 </span><span class="Normal">void</span> <a href='036labels.cc.html#L324'>test_label_too_short</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L325" class="LineNr">325 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L326" class="LineNr">326 </span> transform<span class="Delimiter">(</span> <span id="L327" class="LineNr">327 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L328" class="LineNr">328 </span> <span class="Constant">"xz:\n"</span> <span id="L329" class="LineNr">329 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L330" class="LineNr">330 </span> <span class="Delimiter">);</span> -<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L332" class="LineNr">332 </span> <span class="Constant">"error: 'xz' is two characters long, which can look like raw hex bytes at a glance; use a different name\n"</span> <span id="L333" class="LineNr">333 </span> <span class="Delimiter">);</span> <span id="L334" class="LineNr">334 </span><span class="Delimiter">}</span> <span id="L335" class="LineNr">335 </span> <span id="L336" class="LineNr">336 </span><span class="Normal">void</span> <a href='036labels.cc.html#L336'>test_label_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr">337 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L337" class="LineNr">337 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L338" class="LineNr">338 </span> transform<span class="Delimiter">(</span> <span id="L339" class="LineNr">339 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L340" class="LineNr">340 </span> <span class="Constant">"0xab:\n"</span> <span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> -<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L344" class="LineNr">344 </span> <span class="Constant">"error: '0xab' looks like a hex number; use a different name\n"</span> <span id="L345" class="LineNr">345 </span> <span class="Delimiter">);</span> <span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> <span id="L347" class="LineNr">347 </span> <span id="L348" class="LineNr">348 </span><span class="Normal">void</span> <a href='036labels.cc.html#L348'>test_label_negative_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L349" class="LineNr">349 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L349" class="LineNr">349 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L350" class="LineNr">350 </span> transform<span class="Delimiter">(</span> <span id="L351" class="LineNr">351 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L352" class="LineNr">352 </span> <span class="Constant">"-a:\n"</span> <span id="L353" class="LineNr">353 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L354" class="LineNr">354 </span> <span class="Delimiter">);</span> -<span id="L355" class="LineNr">355 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L355" class="LineNr">355 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L356" class="LineNr">356 </span> <span class="Constant">"error: '-a' starts with '-', which can be confused with a negative number; use a different name\n"</span> <span id="L357" class="LineNr">357 </span> <span class="Delimiter">);</span> <span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> @@ -428,7 +428,7 @@ if ('onhashchange' in window) { <span id="L369" class="LineNr">369 </span> <span class="Constant">"Entry:\n"</span> <span id="L370" class="LineNr">370 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> <span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> -<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L306'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> +<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L304'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> <span id="L373" class="LineNr">373 </span><span class="Delimiter">}</span> <span id="L374" class="LineNr">374 </span> <span id="L375" class="LineNr">375 </span><span class="Comment">// This test could do with some refactoring.</span> @@ -437,7 +437,7 @@ if ('onhashchange' in window) { <span id="L378" class="LineNr">378 </span><span class="Comment">// We can't just use run(string) because most of our tests allow programs</span> <span id="L379" class="LineNr">379 </span><span class="Comment">// without 'Entry' labels, as a convenience.</span> <span id="L380" class="LineNr">380 </span><span class="Normal">void</span> <a href='036labels.cc.html#L380'>test_programs_without_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L381" class="LineNr">381 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L382" class="LineNr">382 </span> program p<span class="Delimiter">;</span> <span id="L383" class="LineNr">383 </span> istringstream in<span class="Delimiter">(</span> <span id="L384" class="LineNr">384 </span> <span class="Constant">"== code 0x1\n"</span> @@ -448,7 +448,7 @@ if ('onhashchange' in window) { <span id="L389" class="LineNr">389 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> <span id="L390" class="LineNr">390 </span> ostringstream dummy<span class="Delimiter">;</span> <span id="L391" class="LineNr">391 </span> save_elf<span class="Delimiter">(</span>p<span class="Delimiter">,</span> dummy<span class="Delimiter">);</span> -<span id="L392" class="LineNr">392 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L392" class="LineNr">392 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L393" class="LineNr">393 </span> <span class="Constant">"error: no 'Entry' label found\n"</span> <span id="L394" class="LineNr">394 </span> <span class="Delimiter">);</span> <span id="L395" class="LineNr">395 </span><span class="Delimiter">}</span> @@ -465,7 +465,7 @@ if ('onhashchange' in window) { <span id="L406" class="LineNr">406 </span> <span class="Constant">"bar:\n"</span> <span id="L407" class="LineNr">407 </span> <span class="Constant">" 00\n"</span> <span id="L408" class="LineNr">408 </span> <span class="Delimiter">);</span> -<span id="L409" class="LineNr">409 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L409" class="LineNr">409 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L410" class="LineNr">410 </span> <span class="Constant">"transform: segment 1 begins at address 0x0a000079\n"</span> <span id="L411" class="LineNr">411 </span> <span class="Delimiter">);</span> <span id="L412" class="LineNr">412 </span><span class="Delimiter">}</span> diff --git a/html/037global_variables.cc.html b/html/037global_variables.cc.html index 42fc8fb5..709a7b7d 100644 --- a/html/037global_variables.cc.html +++ b/html/037global_variables.cc.html @@ -16,14 +16,14 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } .cSpecial { color: #008000; } +.SalientComment { color: #0000af; } --> </style> @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Global variables.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//:</span> <span id="L3" class="LineNr"> 3 </span><span class="Comment">//: Global variables are just labels in the data segment.</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment">//: However, they can only be used in imm32 and not disp32 operands. And they</span> +<span id="L4" class="LineNr"> 4 </span><span class="Comment">//: However, they can only be used in imm32 and not disp32 arguments. And they</span> <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: can't be used with jump and call instructions.</span> <span id="L6" class="LineNr"> 6 </span><span class="Comment">//:</span> <span id="L7" class="LineNr"> 7 </span><span class="Comment">//: This layer has much the same structure as rewriting labels.</span> @@ -76,26 +76,26 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> <span class="Constant">"x:\n"</span> <span id="L16" class="LineNr"> 16 </span> <span class="Constant">" 00 00 00 00\n"</span> <span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">);</span> -<span id="L18" class="LineNr"> 18 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L18" class="LineNr"> 18 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L19" class="LineNr"> 19 </span> <span class="Constant">"transform: global variable 'x' is at address 0x00002000\n"</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">);</span> <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L24" class="LineNr"> 24 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">);</span> +<span id="L24" class="LineNr"> 24 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">);</span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(code)</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- rewrite global variables"</span> << end<span class="Delimiter">();</span> <span id="L28" class="LineNr"> 28 </span> <span class="Comment">// Begin rewrite_global_variables</span> <span id="L29" class="LineNr"> 29 </span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> address<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> compute_addresses_for_global_variables<span class="Delimiter">(</span>p<span class="Delimiter">,</span> address<span class="Delimiter">);</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L32" class="LineNr"> 32 </span> <a href='037global_variables.cc.html#L73'>drop_global_variables</a><span class="Delimiter">(</span>p<span class="Delimiter">);</span> <span id="L33" class="LineNr"> 33 </span> <a href='037global_variables.cc.html#L80'>replace_global_variables_with_addresses</a><span class="Delimiter">(</span>p<span class="Delimiter">,</span> address<span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> <span id="L36" class="LineNr"> 36 </span><span class="Normal">void</span> compute_addresses_for_global_variables<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> != <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L39" class="LineNr"> 39 </span> compute_addresses_for_global_variables<span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> address<span class="Delimiter">);</span> <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> @@ -103,9 +103,9 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Normal">void</span> compute_addresses_for_global_variables<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="Normal">int</span> current_address = s<span class="Delimiter">.</span>start<span class="Delimiter">;</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L46" class="LineNr"> 46 </span> <span class="Normal">const</span> line& inst = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L49" class="LineNr"> 49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L50" class="LineNr"> 50 </span> current_address += size_of<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> @@ -114,17 +114,17 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> string variable = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span> <span class="Comment">// ensure variables look sufficiently different from raw hex</span> <span id="L55" class="LineNr"> 55 </span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span>variable<span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L264'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L57" class="LineNr"> 57 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L58" class="LineNr"> 58 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': global variable names can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Special"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << current_address << <span class="Constant">' '</span> << variable << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"duplicate global '"</span> << variable << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L58" class="LineNr"> 58 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': global variable names can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> +<span id="L60" class="LineNr"> 60 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << current_address << <span class="Constant">' '</span> << variable << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate global '"</span> << variable << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> -<span id="L65" class="LineNr"> 65 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">,</span> current_address<span class="Delimiter">);</span> -<span id="L66" class="LineNr"> 66 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"global variable '"</span> << variable << <span class="Constant">"' is at address 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << current_address << end<span class="Delimiter">();</span> +<span id="L65" class="LineNr"> 65 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">,</span> current_address<span class="Delimiter">);</span> +<span id="L66" class="LineNr"> 66 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"global variable '"</span> << variable << <span class="Constant">"' is at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << current_address << end<span class="Delimiter">();</span> <span id="L67" class="LineNr"> 67 </span> <span class="Comment">// no modifying current_address; global variable definitions won't be in the final binary</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">}</span> @@ -132,7 +132,7 @@ if ('onhashchange' in window) { <span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> <span id="L72" class="LineNr"> 72 </span> <span id="L73" class="LineNr"> 73 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L73'>drop_global_variables</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L75" class="LineNr"> 75 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> != <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L76" class="LineNr"> 76 </span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> @@ -140,7 +140,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L80'>replace_global_variables_with_addresses</a><span class="Delimiter">(</span>program& p<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L81" class="LineNr"> 81 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span><a href='011run.cc.html#L111'>name</a> == <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L85" class="LineNr"> 85 </span> <a href='037global_variables.cc.html#L91'>replace_global_variables_in_code_segment</a><span class="Delimiter">(</span>curr<span class="Delimiter">,</span> address<span class="Delimiter">);</span> @@ -150,19 +150,19 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L91'>replace_global_variables_in_code_segment</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L96" class="LineNr"> 96 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!looks_like_hex_int<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L100" class="LineNr">100 </span> new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> <span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!valid_use_of_global_variable<span class="Delimiter">(</span>curr<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': can't refer to global variable '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': can't refer to global variable '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L105" class="LineNr">105 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L106" class="LineNr">106 </span> <span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> get<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">),</span> <span class="Constant">4</span><span class="Delimiter">);</span> @@ -173,35 +173,35 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L114'>replace_global_variables_in_data_segment</a><span class="Delimiter">(</span>segment& data<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L116" class="LineNr">116 </span> line& l = data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L117" class="LineNr">117 </span> <a href='011run.cc.html#L121'>line</a> new_l<span class="Delimiter">;</span> -<span id="L118" class="LineNr">118 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <span class="Normal">const</span> word& curr = l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L121" class="LineNr">121 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L490'>looks_like_hex_int</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L122" class="LineNr">122 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> +<span id="L121" class="LineNr">121 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L591'>looks_like_hex_int</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L122" class="LineNr">122 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span id="L123" class="LineNr">123 </span> emit_hex_bytes<span class="Delimiter">(</span>new_l<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L124" class="LineNr">124 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm16"</span><span class="Delimiter">))</span> +<span id="L124" class="LineNr">124 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm16"</span><span class="Delimiter">))</span> <span id="L125" class="LineNr">125 </span> emit_hex_bytes<span class="Delimiter">(</span>new_l<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L126" class="LineNr">126 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> +<span id="L126" class="LineNr">126 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> <span id="L127" class="LineNr">127 </span> emit_hex_bytes<span class="Delimiter">(</span>new_l<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L128" class="LineNr">128 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> -<span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"can't use /disp8 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> -<span id="L130" class="LineNr">130 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> -<span id="L131" class="LineNr">131 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"can't use /disp16 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> -<span id="L132" class="LineNr">132 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> -<span id="L133" class="LineNr">133 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"can't use /disp32 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L128" class="LineNr">128 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> +<span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp8 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L130" class="LineNr">130 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> +<span id="L131" class="LineNr">131 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp16 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L132" class="LineNr">132 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> +<span id="L133" class="LineNr">133 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp32 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> <span id="L134" class="LineNr">134 </span> <span class="Normal">else</span> <span id="L135" class="LineNr">135 </span> new_l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> <span id="L137" class="LineNr">137 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L138" class="LineNr">138 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L138" class="LineNr">138 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L139" class="LineNr">139 </span> new_l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> <span id="L141" class="LineNr">141 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> -<span id="L143" class="LineNr">143 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">" maps to "</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << get<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L143" class="LineNr">143 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">" maps to "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << get<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L144" class="LineNr">144 </span> emit_hex_bytes<span class="Delimiter">(</span>new_l<span class="Delimiter">,</span> get<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">),</span> <span class="Constant">4</span><span class="Delimiter">);</span> <span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> <span id="L146" class="LineNr">146 </span> l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>swap<span class="Delimiter">(</span>new_l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> @@ -210,46 +210,46 @@ if ('onhashchange' in window) { <span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> <span id="L150" class="LineNr">150 </span> <span id="L151" class="LineNr">151 </span><span class="Normal">bool</span> <a href='037global_variables.cc.html#L151'>valid_use_of_global_variable</a><span class="Delimiter">(</span><span class="Normal">const</span> word& curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L152" class="LineNr">152 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L153" class="LineNr">153 </span> <span class="Comment">// End Valid Uses Of Global Variable(curr)</span> <span id="L154" class="LineNr">154 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> <span id="L156" class="LineNr">156 </span> <span id="L157" class="LineNr">157 </span><span class="SalientComment">//:: a more complex sanity check for how we use global variables</span> -<span id="L158" class="LineNr">158 </span><span class="Comment">//: requires first saving some data early before we pack operands</span> +<span id="L158" class="LineNr">158 </span><span class="Comment">//: requires first saving some data early before we pack arguments</span> <span id="L159" class="LineNr">159 </span> <span id="L160" class="LineNr">160 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L161" class="LineNr">161 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">);</span> +<span id="L161" class="LineNr">161 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">);</span> <span id="L162" class="LineNr">162 </span><span class="Delimiter">:(code)</span> <span id="L163" class="LineNr">163 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L165" class="LineNr">165 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L167" class="LineNr">167 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L168" class="LineNr">168 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L169" class="LineNr">169 </span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L170" class="LineNr">170 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> -<span id="L171" class="LineNr">171 </span> && has_operand_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> +<span id="L170" class="LineNr">170 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> +<span id="L171" class="LineNr">171 </span> && has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span id="L172" class="LineNr">172 </span> curr<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><span class="Constant">"has_mod"</span><span class="Delimiter">);</span> <span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> <span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> <span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> <span id="L177" class="LineNr">177 </span><span class="Delimiter">:(before "End Valid Uses Of Global Variable(curr)")</span> -<span id="L178" class="LineNr">178 </span><span class="Normal">if</span> <span class="Delimiter">(</span>has_operand_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> +<span id="L178" class="LineNr">178 </span><span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> <span id="L179" class="LineNr">179 </span> <span class="Identifier">return</span> <a href='037global_variables.cc.html#L184'>has_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"has_mod"</span><span class="Delimiter">);</span> <span id="L180" class="LineNr">180 </span><span class="Comment">// todo: more sophisticated check, to ensure we don't use global variable</span> -<span id="L181" class="LineNr">181 </span><span class="Comment">// addresses as a real displacement added to other operands.</span> +<span id="L181" class="LineNr">181 </span><span class="Comment">// addresses as a real displacement added to other arguments.</span> <span id="L182" class="LineNr">182 </span> <span id="L183" class="LineNr">183 </span><span class="Delimiter">:(code)</span> <span id="L184" class="LineNr">184 </span><span class="Normal">bool</span> <a href='037global_variables.cc.html#L184'>has_metadata</a><span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L185" class="LineNr">185 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L186" class="LineNr">186 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> == m<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L187" class="LineNr">187 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> <span id="L189" class="LineNr">189 </span> <span id="L190" class="LineNr">190 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L190'>test_global_variable_disallowed_in_jump</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L191" class="LineNr">191 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L192" class="LineNr">192 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L193" class="LineNr">193 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L194" class="LineNr">194 </span> <span class="Constant">"eb/jump x/disp8\n"</span> @@ -257,7 +257,7 @@ if ('onhashchange' in window) { <span id="L196" class="LineNr">196 </span> <span class="Constant">"x:\n"</span> <span id="L197" class="LineNr">197 </span> <span class="Constant">" 00 00 00 00\n"</span> <span id="L198" class="LineNr">198 </span> <span class="Delimiter">);</span> -<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L200" class="LineNr">200 </span> <span class="Constant">"error: 'eb/jump x/disp8': can't refer to global variable 'x'\n"</span> <span id="L201" class="LineNr">201 </span> <span class="Comment">// sub-optimal error message; should be</span> <span id="L202" class="LineNr">202 </span><span class="CommentedCode">//? "error: can't jump to data (variable 'x')\n"</span> @@ -265,7 +265,7 @@ if ('onhashchange' in window) { <span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> <span id="L205" class="LineNr">205 </span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L206'>test_global_variable_disallowed_in_call</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L207" class="LineNr">207 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L207" class="LineNr">207 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L209" class="LineNr">209 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L210" class="LineNr">210 </span> <span class="Constant">"e8/call x/disp32\n"</span> @@ -273,7 +273,7 @@ if ('onhashchange' in window) { <span id="L212" class="LineNr">212 </span> <span class="Constant">"x:\n"</span> <span id="L213" class="LineNr">213 </span> <span class="Constant">" 00 00 00 00\n"</span> <span id="L214" class="LineNr">214 </span> <span class="Delimiter">);</span> -<span id="L215" class="LineNr">215 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L215" class="LineNr">215 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L216" class="LineNr">216 </span> <span class="Constant">"error: 'e8/call x/disp32': can't refer to global variable 'x'\n"</span> <span id="L217" class="LineNr">217 </span> <span class="Comment">// sub-optimal error message; should be</span> <span id="L218" class="LineNr">218 </span><span class="CommentedCode">//? "error: can't call to the data segment ('x')\n"</span> @@ -291,13 +291,13 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> <span class="Constant">" 00 00 00 00\n"</span> <span id="L231" class="LineNr">231 </span> <span class="Delimiter">);</span> <span id="L232" class="LineNr">232 </span> <span class="Comment">// check that we loaded 'x' with the address of 'y'</span> -<span id="L233" class="LineNr">233 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L233" class="LineNr">233 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L234" class="LineNr">234 </span> <span class="Constant">"load: 0x00002000 -> 04\n"</span> <span id="L235" class="LineNr">235 </span> <span class="Constant">"load: 0x00002001 -> 20\n"</span> <span id="L236" class="LineNr">236 </span> <span class="Constant">"load: 0x00002002 -> 00\n"</span> <span id="L237" class="LineNr">237 </span> <span class="Constant">"load: 0x00002003 -> 00\n"</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">);</span> -<span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span> <span id="L242" class="LineNr">242 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L242'>test_raw_number_with_imm32_in_data_segment</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -309,17 +309,17 @@ if ('onhashchange' in window) { <span id="L248" class="LineNr">248 </span> <span class="Constant">" 1/imm32\n"</span> <span id="L249" class="LineNr">249 </span> <span class="Delimiter">);</span> <span id="L250" class="LineNr">250 </span> <span class="Comment">// check that we loaded 'x' with the address of 1</span> -<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L252" class="LineNr">252 </span> <span class="Constant">"load: 0x00002000 -> 01\n"</span> <span id="L253" class="LineNr">253 </span> <span class="Constant">"load: 0x00002001 -> 00\n"</span> <span id="L254" class="LineNr">254 </span> <span class="Constant">"load: 0x00002002 -> 00\n"</span> <span id="L255" class="LineNr">255 </span> <span class="Constant">"load: 0x00002003 -> 00\n"</span> <span id="L256" class="LineNr">256 </span> <span class="Delimiter">);</span> -<span id="L257" class="LineNr">257 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L257" class="LineNr">257 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> <span id="L259" class="LineNr">259 </span> <span id="L260" class="LineNr">260 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L260'>test_duplicate_global_variable</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L261" class="LineNr">261 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L262" class="LineNr">262 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L263" class="LineNr">263 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L264" class="LineNr">264 </span> <span class="Constant">"40/increment-EAX\n"</span> @@ -328,7 +328,7 @@ if ('onhashchange' in window) { <span id="L267" class="LineNr">267 </span> <span class="Constant">"x:\n"</span> <span id="L268" class="LineNr">268 </span> <span class="Constant">" 00\n"</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">);</span> -<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L271" class="LineNr">271 </span> <span class="Constant">"error: duplicate global 'x'\n"</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">);</span> <span id="L273" class="LineNr">273 </span><span class="Delimiter">}</span> @@ -341,7 +341,7 @@ if ('onhashchange' in window) { <span id="L280" class="LineNr">280 </span> <span class="Constant">"x:\n"</span> <span id="L281" class="LineNr">281 </span> <span class="Constant">" 00 00 00 00\n"</span> <span id="L282" class="LineNr">282 </span> <span class="Delimiter">);</span> -<span id="L283" class="LineNr">283 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L283" class="LineNr">283 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> <span id="L285" class="LineNr">285 </span> <span id="L286" class="LineNr">286 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L286'>test_global_variable_disp32_with_call</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -351,15 +351,15 @@ if ('onhashchange' in window) { <span id="L290" class="LineNr">290 </span> <span class="Constant">" e8/call bar/disp32\n"</span> <span id="L291" class="LineNr">291 </span> <span class="Constant">"bar:\n"</span> <span id="L292" class="LineNr">292 </span> <span class="Delimiter">);</span> -<span id="L293" class="LineNr">293 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L293" class="LineNr">293 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L294" class="LineNr">294 </span><span class="Delimiter">}</span> <span id="L295" class="LineNr">295 </span> <span id="L296" class="LineNr">296 </span>string <a href='037global_variables.cc.html#L296'>to_full_string</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L297" class="LineNr">297 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L298" class="LineNr">298 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L298" class="LineNr">298 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L299" class="LineNr">299 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L300" class="LineNr">300 </span> out << in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> -<span id="L301" class="LineNr">301 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> +<span id="L301" class="LineNr">301 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span id="L302" class="LineNr">302 </span> out << <span class="Constant">'/'</span> << in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> <span id="L304" class="LineNr">304 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> diff --git a/html/038literal_strings.cc.html b/html/038literal_strings.cc.html index 31960151..506b4ea4 100644 --- a/html/038literal_strings.cc.html +++ b/html/038literal_strings.cc.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Delimiter { color: #c000c0; } .cSpecial { color: #008000; } @@ -69,7 +69,7 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span> <span class="Constant">"b8/copy \"</span>test\<span class="Constant">"/imm32\n"</span> <span id="L10" class="LineNr"> 10 </span> <span class="Constant">"== data 0x2000\n"</span> <span class="Comment">// need an empty segment</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">);</span> -<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L13" class="LineNr"> 13 </span> <span class="Constant">"transform: -- move literal strings to data segment\n"</span> <span id="L14" class="LineNr"> 14 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing \"</span>test\<span class="Constant">"\n"</span> <span id="L15" class="LineNr"> 15 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: 'b8 __subx_global_1'\n"</span> @@ -80,29 +80,29 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span><span class="Comment">//: knows about labels and global variables and will emit them for previous</span> <span id="L21" class="LineNr"> 21 </span><span class="Comment">//: layers to transform.</span> <span id="L22" class="LineNr"> 22 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L23" class="LineNr"> 23 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">);</span> <span id="L24" class="LineNr"> 24 </span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L26" class="LineNr"> 26 </span><span class="Normal">int</span> <span class="Special">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L26" class="LineNr"> 26 </span><span class="Normal">int</span> <span class="SpecialChar">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L28" class="LineNr"> 28 </span><span class="Special">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L28" class="LineNr"> 28 </span><span class="SpecialChar">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">:(code)</span> <span id="L30" class="LineNr"> 30 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- move literal strings to data segment"</span> << end<span class="Delimiter">();</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> vector<line> new_lines<span class="Delimiter">;</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> s = <span class="Constant">0</span><span class="Delimiter">;</span> s < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> s = <span class="Constant">0</span><span class="Delimiter">;</span> s < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> segment& seg = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>s<span class="Delimiter">);</span> <span id="L36" class="LineNr"> 36 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"segment '"</span> << seg<span class="Delimiter">.</span>name << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span><span class="CommentedCode">//? cerr << seg.name << '/' << i << '\n';</span> <span id="L39" class="LineNr"> 39 </span> line& <a href='011run.cc.html#L121'>line</a> = seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> word& curr = <a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> != <span class="Constant">'"'</span><span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> ostringstream global_name<span class="Delimiter">;</span> -<span id="L44" class="LineNr"> 44 </span> global_name << <span class="Constant">"__subx_global_"</span> << <span class="Special">Next_auto_global</span><span class="Delimiter">;</span> -<span id="L45" class="LineNr"> 45 </span> ++<span class="Special">Next_auto_global</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span> global_name << <span class="Constant">"__subx_global_"</span> << <span class="SpecialChar">Next_auto_global</span><span class="Delimiter">;</span> +<span id="L45" class="LineNr"> 45 </span> ++<span class="SpecialChar">Next_auto_global</span><span class="Delimiter">;</span> <span id="L46" class="LineNr"> 46 </span> <a href='038literal_strings.cc.html#L57'>add_global_to_data_segment</a><span class="Delimiter">(</span>global_name<span class="Delimiter">.</span>str<span class="Delimiter">(),</span> curr<span class="Delimiter">,</span> new_lines<span class="Delimiter">);</span> <span id="L47" class="LineNr"> 47 </span> curr<span class="Delimiter">.</span>data = global_name<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> @@ -120,14 +120,14 @@ if ('onhashchange' in window) { <span id="L60" class="LineNr"> 60 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>label<span class="Delimiter">(</span><a href='011run.cc.html#L111'>name</a><span class="Delimiter">));</span> <span id="L61" class="LineNr"> 61 </span> <span class="Comment">// emit size for size-prefixed array</span> <span id="L62" class="LineNr"> 62 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">());</span> -<span id="L63" class="LineNr"> 63 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">.</span>back<span class="Delimiter">(),</span> <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip quotes</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Comment">/*</span><span class="Comment">bytes</span><span class="Comment">*/</span><span class="Delimiter">);</span> +<span id="L63" class="LineNr"> 63 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">.</span>back<span class="Delimiter">(),</span> <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip quotes</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Comment">/*</span><span class="Comment">bytes</span><span class="Comment">*/</span><span class="Delimiter">);</span> <span id="L64" class="LineNr"> 64 </span> <span class="Comment">// emit data byte by byte</span> <span id="L65" class="LineNr"> 65 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">());</span> <span id="L66" class="LineNr"> 66 </span> line& curr = out<span class="Delimiter">.</span>back<span class="Delimiter">();</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip start quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip end quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip start quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip end quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <span class="Normal">char</span> c = value<span class="Delimiter">.</span>data<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L69" class="LineNr"> 69 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">());</span> -<span id="L70" class="LineNr"> 70 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <a href='032operands.cc.html#L296'>hex_byte_to_string</a><span class="Delimiter">(</span>c<span class="Delimiter">);</span> +<span id="L70" class="LineNr"> 70 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <a href='032operands.cc.html#L327'>hex_byte_to_string</a><span class="Delimiter">(</span>c<span class="Delimiter">);</span> <span id="L71" class="LineNr"> 71 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>string<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">,</span> c<span class="Delimiter">));</span> <span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">}</span> <span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> @@ -139,13 +139,13 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a \"</span>abc def\<span class="Constant">" z\n"</span> <span class="Comment">// two spaces inside string</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">);</span> -<span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L83" class="LineNr"> 83 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L84" class="LineNr"> 84 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>abc def\<span class="Constant">"\n"</span> <span id="L85" class="LineNr"> 85 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z\n"</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">);</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// no other words</span> -<span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">3</span><span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L91'>test_string_literal_in_data_segment</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -156,7 +156,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> <span class="Constant">"X:\n"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Constant">"\"</span>test\<span class="Constant">"/imm32\n"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">);</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L100" class="LineNr">100 </span> <span class="Constant">"transform: -- move literal strings to data segment\n"</span> <span id="L101" class="LineNr">101 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing \"</span>test\<span class="Constant">"\n"</span> <span id="L102" class="LineNr">102 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: '__subx_global_1'\n"</span> @@ -164,13 +164,13 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> <span id="L106" class="LineNr">106 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L106'>test_string_literal_with_missing_quote</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="Special">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L107" class="LineNr">107 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L108" class="LineNr">108 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L109" class="LineNr">109 </span> <span class="Constant">"== code 0x1\n"</span> <span id="L110" class="LineNr">110 </span> <span class="Constant">"b8/copy \"</span>test/imm32\n<span class="Constant">"</span> <span id="L111" class="LineNr">111 </span><span class="Constant"> "</span>== data <span class="Constant">0x2000</span>\n<span class="Constant">"</span> <span id="L112" class="LineNr">112 </span><span class="Constant"> );</span> -<span id="L113" class="LineNr">113 </span><span class="Constant"> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a>(</span> +<span id="L113" class="LineNr">113 </span><span class="Constant"> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a>(</span> <span id="L114" class="LineNr">114 </span><span class="Constant"> "</span>error: unclosed string in: b8/copy \<span class="Constant">"test/imm32"</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">);</span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">}</span> @@ -184,7 +184,7 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span><span class="Delimiter">:(code)</span> <span id="L125" class="LineNr">125 </span><span class="Normal">void</span> parse_instruction_character_by_character<span class="Delimiter">(</span><span class="Normal">const</span> string& line_data<span class="Delimiter">,</span> vector<line>& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>line_data<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="cSpecial">'\n'</span><span class="Delimiter">)</span> != string::npos && line_data<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="cSpecial">'\n'</span><span class="Delimiter">)</span> != line_data<span class="Delimiter">.</span>size<span class="Delimiter">()</span>-<span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: should receive only a single line\n"</span> << end<span class="Delimiter">();</span> +<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: should receive only a single line\n"</span> << end<span class="Delimiter">();</span> <span id="L128" class="LineNr">128 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> <span id="L130" class="LineNr">130 </span> <span class="Comment">// parse literals</span> @@ -193,7 +193,7 @@ if ('onhashchange' in window) { <span id="L133" class="LineNr">133 </span> <a href='011run.cc.html#L121'>line</a> result<span class="Delimiter">;</span> <span id="L134" class="LineNr">134 </span> result<span class="Delimiter">.</span>original = line_data<span class="Delimiter">;</span> <span id="L135" class="LineNr">135 </span> <span class="Comment">// add tokens (words or strings) one by one</span> -<span id="L136" class="LineNr">136 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L136" class="LineNr">136 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> <a href='038literal_strings.cc.html#L205'>skip_whitespace</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> <span id="L138" class="LineNr">138 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_data<span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L139" class="LineNr">139 </span> <span class="Normal">char</span> c = in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> @@ -211,7 +211,7 @@ if ('onhashchange' in window) { <span id="L151" class="LineNr">151 </span> d << c<span class="Delimiter">;</span> <span id="L152" class="LineNr">152 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><span class="Constant">true</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L153" class="LineNr">153 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_data<span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L154" class="LineNr">154 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"unclosed string in: "</span> << line_data << end<span class="Delimiter">();</span> +<span id="L154" class="LineNr">154 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unclosed string in: "</span> << line_data << end<span class="Delimiter">();</span> <span id="L155" class="LineNr">155 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">}</span> <span id="L157" class="LineNr">157 </span> in >> c<span class="Delimiter">;</span> @@ -221,7 +221,7 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="Constant">'"'</span><span class="Delimiter">)</span> d << <span class="Constant">'"'</span><span class="Delimiter">;</span> <span id="L162" class="LineNr">162 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="cSpecial">'\\'</span><span class="Delimiter">)</span> d << <span class="cSpecial">'\\'</span><span class="Delimiter">;</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L228'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: unknown escape sequence '\\"</span> << c << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: unknown escape sequence '\\"</span> << c << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> <span id="L165" class="LineNr">165 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L166" class="LineNr">166 </span> <span class="Delimiter">}</span> <span id="L167" class="LineNr">167 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -234,7 +234,7 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>original = d<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Comment">// slurp metadata</span> <span id="L176" class="LineNr">176 </span> ostringstream m<span class="Delimiter">;</span> -<span id="L177" class="LineNr">177 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> +<span id="L177" class="LineNr">177 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> <span id="L178" class="LineNr">178 </span> in >> c<span class="Delimiter">;</span> <span id="L179" class="LineNr">179 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="Constant">'/'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L180" class="LineNr">180 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!m<span class="Delimiter">.</span>str<span class="Delimiter">().</span>empty<span class="Delimiter">())</span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>m<span class="Delimiter">.</span>str<span class="Delimiter">());</span> @@ -250,7 +250,7 @@ if ('onhashchange' in window) { <span id="L190" class="LineNr">190 </span> <span class="Comment">// not a string literal; slurp all characters until whitespace</span> <span id="L191" class="LineNr">191 </span> ostringstream w<span class="Delimiter">;</span> <span id="L192" class="LineNr">192 </span> w << c<span class="Delimiter">;</span> -<span id="L193" class="LineNr">193 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> <span id="L194" class="LineNr">194 </span> in >> c<span class="Delimiter">;</span> <span id="L195" class="LineNr">195 </span> w << c<span class="Delimiter">;</span> <span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> @@ -263,15 +263,15 @@ if ('onhashchange' in window) { <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L205'>skip_whitespace</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">()))</span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">()))</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> <span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> <span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> <span id="L210" class="LineNr">210 </span> <span id="L211" class="LineNr">211 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L211'>skip_comment</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> == <span class="Constant">'#'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> == <span class="Constant">'#'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L213" class="LineNr">213 </span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> -<span id="L214" class="LineNr">214 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> != <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> +<span id="L214" class="LineNr">214 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> != <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> <span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> <span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> <span id="L217" class="LineNr">217 </span> @@ -292,20 +292,20 @@ if ('onhashchange' in window) { <span id="L232" class="LineNr">232 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L233" class="LineNr">233 </span> <span class="Constant">"a . z\n"</span> <span id="L234" class="LineNr">234 </span> <span class="Delimiter">);</span> -<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L236" class="LineNr">236 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L237" class="LineNr">237 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z\n"</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">);</span> -<span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> +<span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L240" class="LineNr">240 </span> <span class="Comment">// no other words</span> -<span id="L241" class="LineNr">241 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L241" class="LineNr">241 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> <span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> <span id="L243" class="LineNr">243 </span> <span id="L244" class="LineNr">244 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L244'>test_parse2_word_starting_with_dot</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L245" class="LineNr">245 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L246" class="LineNr">246 </span> <span class="Constant">"a .b c\n"</span> <span id="L247" class="LineNr">247 </span> <span class="Delimiter">);</span> -<span id="L248" class="LineNr">248 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L248" class="LineNr">248 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L249" class="LineNr">249 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L250" class="LineNr">250 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .b\n"</span> <span id="L251" class="LineNr">251 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c\n"</span> @@ -316,29 +316,29 @@ if ('onhashchange' in window) { <span id="L256" class="LineNr">256 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L257" class="LineNr">257 </span> <span class="Constant">". a b\n"</span> <span id="L258" class="LineNr">258 </span> <span class="Delimiter">);</span> -<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L260" class="LineNr">260 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L261" class="LineNr">261 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> <span id="L262" class="LineNr">262 </span> <span class="Delimiter">);</span> -<span id="L263" class="LineNr">263 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> +<span id="L263" class="LineNr">263 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> <span id="L265" class="LineNr">265 </span> <span id="L266" class="LineNr">266 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L266'>test_parse2_comment_token_at_end</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L267" class="LineNr">267 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L268" class="LineNr">268 </span> <span class="Constant">"a b .\n"</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">);</span> -<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L271" class="LineNr">271 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L272" class="LineNr">272 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> <span id="L273" class="LineNr">273 </span> <span class="Delimiter">);</span> -<span id="L274" class="LineNr">274 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> +<span id="L274" class="LineNr">274 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> <span id="L276" class="LineNr">276 </span> <span id="L277" class="LineNr">277 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L277'>test_parse2_word_starting_with_dot_at_start</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L278" class="LineNr">278 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L279" class="LineNr">279 </span> <span class="Constant">".a b c\n"</span> <span id="L280" class="LineNr">280 </span> <span class="Delimiter">);</span> -<span id="L281" class="LineNr">281 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L281" class="LineNr">281 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L282" class="LineNr">282 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a\n"</span> <span id="L283" class="LineNr">283 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> <span id="L284" class="LineNr">284 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c\n"</span> @@ -349,7 +349,7 @@ if ('onhashchange' in window) { <span id="L289" class="LineNr">289 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L290" class="LineNr">290 </span> <span class="Constant">".a b/c d\n"</span> <span id="L291" class="LineNr">291 </span> <span class="Delimiter">);</span> -<span id="L292" class="LineNr">292 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L292" class="LineNr">292 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L293" class="LineNr">293 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a\n"</span> <span id="L294" class="LineNr">294 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b /c\n"</span> <span id="L295" class="LineNr">295 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: d\n"</span> @@ -360,7 +360,7 @@ if ('onhashchange' in window) { <span id="L300" class="LineNr">300 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L301" class="LineNr">301 </span> <span class="Constant">"a \"</span>bc def\<span class="Constant">"/disp32 g\n"</span> <span id="L302" class="LineNr">302 </span> <span class="Delimiter">);</span> -<span id="L303" class="LineNr">303 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L303" class="LineNr">303 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L304" class="LineNr">304 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L305" class="LineNr">305 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc def\<span class="Constant">" /disp32\n"</span> <span id="L306" class="LineNr">306 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: g\n"</span> @@ -371,7 +371,7 @@ if ('onhashchange' in window) { <span id="L311" class="LineNr">311 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L312" class="LineNr">312 </span> <span class="Constant">"a \"</span>bc def\<span class="Constant">"/disp32\n"</span> <span id="L313" class="LineNr">313 </span> <span class="Delimiter">);</span> -<span id="L314" class="LineNr">314 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L314" class="LineNr">314 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L315" class="LineNr">315 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> <span id="L316" class="LineNr">316 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc def\<span class="Constant">" /disp32\n"</span> <span id="L317" class="LineNr">317 </span> <span class="Delimiter">);</span> @@ -381,7 +381,7 @@ if ('onhashchange' in window) { <span id="L321" class="LineNr">321 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L322" class="LineNr">322 </span> <span class="Constant">"68/push \"</span>test\<span class="Constant">"/f"</span> <span class="Comment">// no newline, which is how calls from parse() will look</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">);</span> -<span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L325" class="LineNr">325 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: 68 /push\n"</span> <span id="L326" class="LineNr">326 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>test\<span class="Constant">" /f\n"</span> <span id="L327" class="LineNr">327 </span> <span class="Delimiter">);</span> @@ -394,7 +394,7 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L335" class="LineNr">335 </span> <span class="Constant">"a \"</span>bc/def\<span class="Constant">"/disp32\n"</span> <span id="L336" class="LineNr">336 </span> <span class="Delimiter">);</span> -<span id="L337" class="LineNr">337 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L337" class="LineNr">337 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L338" class="LineNr">338 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc/def\<span class="Constant">" /disp32\n"</span> <span id="L339" class="LineNr">339 </span> <span class="Delimiter">);</span> <span id="L340" class="LineNr">340 </span><span class="Delimiter">}</span> @@ -403,22 +403,22 @@ if ('onhashchange' in window) { <span id="L343" class="LineNr">343 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L344" class="LineNr">344 </span> <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>\n<span class="Constant">" // escaped quote inside string</span> <span id="L345" class="LineNr">345 </span><span class="Constant"> );</span> -<span id="L346" class="LineNr">346 </span><span class="Constant"> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a>(</span> +<span id="L346" class="LineNr">346 </span><span class="Constant"> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a>(</span> <span id="L347" class="LineNr">347 </span><span class="Constant"> "</span>parse2: <a href='011run.cc.html#L127'>word</a>: \<span class="Constant">"a\"</span>b\<span class="Constant">"\n"</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">);</span> <span id="L349" class="LineNr">349 </span> <span class="Comment">// no other words</span> -<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L351" class="LineNr">351 </span><span class="Delimiter">}</span> <span id="L352" class="LineNr">352 </span> <span id="L353" class="LineNr">353 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L353'>test_instruction_with_string_literal_with_escaped_backslash</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L354" class="LineNr">354 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> <span id="L355" class="LineNr">355 </span> <span class="Constant">"\"</span>a\\\\b\<span class="Constant">"\n"</span> <span class="Comment">// escaped backslash inside string</span> <span id="L356" class="LineNr">356 </span> <span class="Delimiter">);</span> -<span id="L357" class="LineNr">357 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L357" class="LineNr">357 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L358" class="LineNr">358 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>a\\b\<span class="Constant">"\n"</span> <span id="L359" class="LineNr">359 </span> <span class="Delimiter">);</span> <span id="L360" class="LineNr">360 </span> <span class="Comment">// no other words</span> -<span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L296'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L362" class="LineNr">362 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/039debug.cc.html b/html/039debug.cc.html index 7f792b4f..0f71c0f2 100644 --- a/html/039debug.cc.html +++ b/html/039debug.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } @@ -65,8 +65,8 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: (It'll only affect the trace.)</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L8" class="LineNr"> 8 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> -<span id="L9" class="LineNr"> 9 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> +<span id="L8" class="LineNr"> 8 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> +<span id="L9" class="LineNr"> 9 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> <span id="L10" class="LineNr"> 10 </span><span class="Delimiter">:(before "End --trace Settings")</span> <span id="L11" class="LineNr"> 11 </span><a href='039debug.cc.html#L14'>load_labels</a><span class="Delimiter">();</span> <span id="L12" class="LineNr"> 12 </span><a href='039debug.cc.html#L27'>load_source_lines</a><span class="Delimiter">();</span> @@ -75,12 +75,12 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> ifstream fin<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fin<span class="Delimiter">.</span>fail<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L17" class="LineNr"> 17 </span> fin >> std::hex<span class="Delimiter">;</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L19" class="LineNr"> 19 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L20" class="LineNr"> 20 </span> fin >> addr<span class="Delimiter">;</span> <span id="L21" class="LineNr"> 21 </span> string <a href='011run.cc.html#L111'>name</a><span class="Delimiter">;</span> <span id="L22" class="LineNr"> 22 </span> fin >> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">;</span> -<span id="L23" class="LineNr"> 23 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">);</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">}</span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr"> 26 </span> @@ -88,38 +88,38 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> ifstream fin<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> <span id="L29" class="LineNr"> 29 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fin<span class="Delimiter">.</span>fail<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> fin >> std::hex<span class="Delimiter">;</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L251'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> fin >> addr<span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span> string <a href='011run.cc.html#L121'>line</a><span class="Delimiter">;</span> <span id="L35" class="LineNr"> 35 </span> getline<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> <a href='011run.cc.html#L121'>line</a><span class="Delimiter">);</span> -<span id="L36" class="LineNr"> 36 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='039debug.cc.html#L113'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">));</span> +<span id="L36" class="LineNr"> 36 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='039debug.cc.html#L139'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">));</span> <span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> -<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"== label "</span> << get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> -<span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> +<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"== label "</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> +<span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L45" class="LineNr"> 45 </span><span class="Normal">else</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// no source line info; do what you can</span> -<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L48" class="LineNr"> 48 </span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">:(code)</span> <span id="L50" class="LineNr"> 50 </span>string <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> inst_address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Normal">uint8_t</span> op = <a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>inst_address<span class="Delimiter">);</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Normal">uint8_t</span> op = <a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>inst_address<span class="Delimiter">);</span> <span id="L52" class="LineNr"> 52 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op != <span class="Constant">0xe8</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L53" class="LineNr"> 53 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L54" class="LineNr"> 54 </span> out << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">);</span> +<span id="L54" class="LineNr"> 54 </span> out << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Normal">int32_t</span> offset = <a href='010vm.cc.html#L176'>read_mem_i32</a><span class="Delimiter">(</span>inst_address+<span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Normal">int32_t</span> offset = <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>inst_address+<span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">uint32_t</span> next_eip = inst_address+<span class="Comment">/*</span><span class="Comment">inst length</span><span class="Comment">*/</span><span class="Constant">5</span>+offset<span class="Delimiter">;</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">))</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Identifier">return</span> <span class="Constant">"e8/call "</span>+get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">);</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">))</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Identifier">return</span> <span class="Constant">"e8/call "</span>+get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">);</span> <span id="L61" class="LineNr"> 61 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L62" class="LineNr"> 62 </span> out << <span class="Constant">"e8/call 0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << next_eip<span class="Delimiter">;</span> +<span id="L62" class="LineNr"> 62 </span> out << <span class="Constant">"e8/call 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << next_eip<span class="Delimiter">;</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> <span id="L65" class="LineNr"> 65 </span> @@ -130,83 +130,109 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span><span class="Delimiter">:(after "Run One Instruction")</span> <span id="L71" class="LineNr"> 71 </span><a href='039debug.cc.html#L77'>dump_watch_points</a><span class="Delimiter">();</span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L73" class="LineNr"> 73 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L75" class="LineNr"> 75 </span><span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> +<span id="L75" class="LineNr"> 75 </span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> <span id="L76" class="LineNr"> 76 </span><span class="Delimiter">:(code)</span> <span id="L77" class="LineNr"> 77 </span><span class="Normal">void</span> <a href='039debug.cc.html#L77'>dump_watch_points</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">"watch points:"</span> << end<span class="Delimiter">();</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << p<span class="Delimiter">-></span>second << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <a href='010vm.cc.html#L172'>read_mem_u32</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span>second<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">"watch points:"</span> << end<span class="Delimiter">();</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << p<span class="Delimiter">-></span>second << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span>second<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L85" class="LineNr"> 85 </span>string <span class="Special">Watch_this_effective_address</span><span class="Delimiter">;</span> +<span id="L85" class="LineNr"> 85 </span>string <span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">;</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L87" class="LineNr"> 87 </span><span class="Special">Watch_this_effective_address</span> = <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L88" class="LineNr"> 88 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L106'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$watch-"</span><span class="Delimiter">))</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Special">Watch_this_effective_address</span> = get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span><span class="SpecialChar">Watch_this_effective_address</span> = <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L88" class="LineNr"> 88 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$watch-"</span><span class="Delimiter">))</span> +<span id="L89" class="LineNr"> 89 </span> <span class="SpecialChar">Watch_this_effective_address</span> = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L90" class="LineNr"> 90 </span><span class="Delimiter">:(after "Found <a href='013direct_addressing.cc.html#L101'>effective_address</a>(addr)")</span> -<span id="L91" class="LineNr"> 91 </span><span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special">Watch_this_effective_address</span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L441'>dbg</a> << <span class="Constant">"now watching "</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << addr << <span class="Constant">" for "</span> << <span class="Special">Watch_this_effective_address</span> << end<span class="Delimiter">();</span> -<span id="L93" class="LineNr"> 93 </span> <a href='001help.cc.html#L229'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">,</span> <span class="Special">Watch_this_effective_address</span><span class="Delimiter">,</span> addr<span class="Delimiter">);</span> +<span id="L91" class="LineNr"> 91 </span><span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"now watching "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" for "</span> << <span class="SpecialChar">Watch_this_effective_address</span> << end<span class="Delimiter">();</span> +<span id="L93" class="LineNr"> 93 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">,</span> <span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">,</span> addr<span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> -<span id="L96" class="LineNr"> 96 </span><span class="Comment">//: Special label that dumps regions of memory.</span> -<span id="L97" class="LineNr"> 97 </span><span class="Comment">//: Not a general mechanism; by the time you get here you're willing to hack</span> -<span id="L98" class="LineNr"> 98 </span><span class="Comment">//: on the emulator.</span> +<span id="L96" class="LineNr"> 96 </span><span class="Comment">//: If a label starts with '$dump-stack', dump out to the trace n bytes on</span> +<span id="L97" class="LineNr"> 97 </span><span class="Comment">//: either side of ESP.</span> +<span id="L98" class="LineNr"> 98 </span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L100" class="LineNr">100 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L233'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> == <span class="Constant">"$dump-stream-at-EAX"</span><span class="Delimiter">)</span> -<span id="L101" class="LineNr">101 </span> <a href='039debug.cc.html#L103'>dump_stream_at</a><span class="Delimiter">(</span><span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L102" class="LineNr">102 </span><span class="Delimiter">:(code)</span> -<span id="L103" class="LineNr">103 </span><span class="Normal">void</span> <a href='039debug.cc.html#L103'>dump_stream_at</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> stream_start<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="Normal">int32_t</span> stream_length = <a href='010vm.cc.html#L176'>read_mem_i32</a><span class="Delimiter">(</span>stream_start + <span class="Constant">8</span><span class="Delimiter">);</span> -<span id="L105" class="LineNr">105 </span> <a href='003trace.cc.html#L441'>dbg</a> << <span class="Constant">"stream length: "</span> << std::dec << stream_length << end<span class="Delimiter">();</span> -<span id="L106" class="LineNr">106 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < stream_length + <span class="Constant">12</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> -<span id="L107" class="LineNr">107 </span> <a href='003trace.cc.html#L441'>dbg</a> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L395'>HEXWORD</a> << <span class="Delimiter">(</span>stream_start+i<span class="Delimiter">)</span> << <span class="Constant">": "</span> << <a href='010vm.cc.html#L394'>HEXBYTE</a> << <a href='010vm.cc.html#L397'>NUM</a><span class="Delimiter">(</span><a href='010vm.cc.html#L165'>read_mem_u8</a><span class="Delimiter">(</span>stream_start+i<span class="Delimiter">))</span> << end<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="Comment">//: helpers</span> -<span id="L111" class="LineNr">111 </span> -<span id="L112" class="LineNr">112 </span><span class="Delimiter">:(code)</span> -<span id="L113" class="LineNr">113 </span>string <a href='039debug.cc.html#L113'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L114" class="LineNr">114 </span> <span class="Comment">// strip whitespace at start</span> -<span id="L115" class="LineNr">115 </span> string::const_iterator first = s<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> -<span id="L116" class="LineNr">116 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>first != s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && isspace<span class="Delimiter">(</span>*first<span class="Delimiter">))</span> -<span id="L117" class="LineNr">117 </span> ++first<span class="Delimiter">;</span> -<span id="L118" class="LineNr">118 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>first == s<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L119" class="LineNr">119 </span> -<span id="L120" class="LineNr">120 </span> <span class="Comment">// strip whitespace at end</span> -<span id="L121" class="LineNr">121 </span> string::const_iterator last = --s<span class="Delimiter">.</span>end<span class="Delimiter">();</span> -<span id="L122" class="LineNr">122 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>last != s<span class="Delimiter">.</span>begin<span class="Delimiter">()</span> && isspace<span class="Delimiter">(</span>*last<span class="Delimiter">))</span> -<span id="L123" class="LineNr">123 </span> --last<span class="Delimiter">;</span> -<span id="L124" class="LineNr">124 </span> ++last<span class="Delimiter">;</span> -<span id="L125" class="LineNr">125 </span> -<span id="L126" class="LineNr">126 </span> <span class="Comment">// replace runs of spaces/dots with single space until comment or string</span> -<span id="L127" class="LineNr">127 </span> <span class="Comment">// </span><span class="Todo">TODO</span><span class="Comment">:</span> -<span id="L128" class="LineNr">128 </span> <span class="Comment">// leave alone dots not surrounded by whitespace</span> -<span id="L129" class="LineNr">129 </span> <span class="Comment">// leave alone '#' within word</span> -<span id="L130" class="LineNr">130 </span> <span class="Comment">// leave alone '"' within word</span> -<span id="L131" class="LineNr">131 </span> <span class="Comment">// squeeze spaces after end of string</span> -<span id="L132" class="LineNr">132 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L133" class="LineNr">133 </span> <span class="Normal">bool</span> previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L134" class="LineNr">134 </span> <span class="Normal">bool</span> in_comment_or_string = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L135" class="LineNr">135 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>string::const_iterator curr = first<span class="Delimiter">;</span> curr != last<span class="Delimiter">;</span> ++curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in_comment_or_string<span class="Delimiter">)</span> -<span id="L137" class="LineNr">137 </span> out << *curr<span class="Delimiter">;</span> -<span id="L138" class="LineNr">138 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>isspace<span class="Delimiter">(</span>*curr<span class="Delimiter">)</span> || *curr == <span class="Constant">'.'</span><span class="Delimiter">)</span> -<span id="L139" class="LineNr">139 </span> previous_was_space = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L140" class="LineNr">140 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L141" class="LineNr">141 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>previous_was_space<span class="Delimiter">)</span> -<span id="L142" class="LineNr">142 </span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> -<span id="L143" class="LineNr">143 </span> out << *curr<span class="Delimiter">;</span> -<span id="L144" class="LineNr">144 </span> previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L145" class="LineNr">145 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr == <span class="Constant">'#'</span> || *curr == <span class="Constant">'"'</span><span class="Delimiter">)</span> in_comment_or_string = <span class="Constant">true</span><span class="Delimiter">;</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="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> -<span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$dump-stack"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> dump_stack<span class="Delimiter">(</span><span class="Constant">64</span><span class="Delimiter">);</span> +<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span><span class="Delimiter">:(code)</span> +<span id="L104" class="LineNr">104 </span><span class="Normal">void</span> dump_stack<span class="Delimiter">(</span><span class="Normal">int</span> n<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="Normal">uint32_t</span> stack_pointer = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L106" class="LineNr">106 </span> <span class="Normal">uint32_t</span> start = <span class="Delimiter">((</span>stack_pointer-n<span class="Delimiter">)</span>&<span class="Constant">0xfffffff0</span><span class="Delimiter">);</span> +<span id="L107" class="LineNr">107 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> +<span id="L108" class="LineNr">108 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr = start<span class="Delimiter">;</span> addr < start+n*<span class="Constant">2</span><span class="Delimiter">;</span> addr+=<span class="Constant">16</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L109" class="LineNr">109 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr >= <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">)</span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L110" class="LineNr">110 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L111" class="LineNr">111 </span> out << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">":"</span><span class="Delimiter">;</span> +<span id="L112" class="LineNr">112 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Constant">16</span><span class="Delimiter">;</span> i+=<span class="Constant">4</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> +<span id="L114" class="LineNr">114 </span> out << <span class="Delimiter">((</span>addr+i == stack_pointer<span class="Delimiter">)</span> ? <span class="Constant">'['</span> : <span class="Constant">' '</span><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span> out << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>addr+i<span class="Delimiter">);</span> +<span id="L116" class="LineNr">116 </span> out << <span class="Delimiter">((</span>addr+i == stack_pointer<span class="Delimiter">)</span> ? <span class="Constant">']'</span> : <span class="Constant">' '</span><span class="Delimiter">);</span> +<span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> +<span id="L118" class="LineNr">118 </span> <a href='003trace.cc.html#L439'>dbg</a> << out<span class="Delimiter">.</span>str<span class="Delimiter">()</span> << end<span class="Delimiter">();</span> +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> +<span id="L122" class="LineNr">122 </span><span class="Comment">//: Special label that dumps regions of memory.</span> +<span id="L123" class="LineNr">123 </span><span class="Comment">//: Not a general mechanism; by the time you get here you're willing to hack</span> +<span id="L124" class="LineNr">124 </span><span class="Comment">//: on the emulator.</span> +<span id="L125" class="LineNr">125 </span><span class="Delimiter">:(after "Run One Instruction")</span> +<span id="L126" class="LineNr">126 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> == <span class="Constant">"$dump-stream-at-EAX"</span><span class="Delimiter">)</span> +<span id="L127" class="LineNr">127 </span> <a href='039debug.cc.html#L129'>dump_stream_at</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L128" class="LineNr">128 </span><span class="Delimiter">:(code)</span> +<span id="L129" class="LineNr">129 </span><span class="Normal">void</span> <a href='039debug.cc.html#L129'>dump_stream_at</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> stream_start<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L130" class="LineNr">130 </span> <span class="Normal">int32_t</span> stream_length = <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>stream_start + <span class="Constant">8</span><span class="Delimiter">);</span> +<span id="L131" class="LineNr">131 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"stream length: "</span> << std::dec << stream_length << end<span class="Delimiter">();</span> +<span id="L132" class="LineNr">132 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < stream_length + <span class="Constant">12</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> +<span id="L133" class="LineNr">133 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>stream_start+i<span class="Delimiter">)</span> << <span class="Constant">": "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span><a href='010vm.cc.html#L174'>read_mem_u8</a><span class="Delimiter">(</span>stream_start+i<span class="Delimiter">))</span> << end<span class="Delimiter">();</span> +<span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="Comment">//: helpers</span> +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="Delimiter">:(code)</span> +<span id="L139" class="LineNr">139 </span>string <a href='039debug.cc.html#L139'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L140" class="LineNr">140 </span> <span class="Comment">// strip whitespace at start</span> +<span id="L141" class="LineNr">141 </span> string::const_iterator first = s<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> +<span id="L142" class="LineNr">142 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>first != s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && isspace<span class="Delimiter">(</span>*first<span class="Delimiter">))</span> +<span id="L143" class="LineNr">143 </span> ++first<span class="Delimiter">;</span> +<span id="L144" class="LineNr">144 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>first == s<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L145" class="LineNr">145 </span> +<span id="L146" class="LineNr">146 </span> <span class="Comment">// strip whitespace at end</span> +<span id="L147" class="LineNr">147 </span> string::const_iterator last = --s<span class="Delimiter">.</span>end<span class="Delimiter">();</span> +<span id="L148" class="LineNr">148 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>last != s<span class="Delimiter">.</span>begin<span class="Delimiter">()</span> && isspace<span class="Delimiter">(</span>*last<span class="Delimiter">))</span> +<span id="L149" class="LineNr">149 </span> --last<span class="Delimiter">;</span> +<span id="L150" class="LineNr">150 </span> ++last<span class="Delimiter">;</span> +<span id="L151" class="LineNr">151 </span> +<span id="L152" class="LineNr">152 </span> <span class="Comment">// replace runs of spaces/dots with single space until comment or string</span> +<span id="L153" class="LineNr">153 </span> <span class="Comment">// </span><span class="Todo">TODO</span><span class="Comment">:</span> +<span id="L154" class="LineNr">154 </span> <span class="Comment">// leave alone dots not surrounded by whitespace</span> +<span id="L155" class="LineNr">155 </span> <span class="Comment">// leave alone '#' within word</span> +<span id="L156" class="LineNr">156 </span> <span class="Comment">// leave alone '"' within word</span> +<span id="L157" class="LineNr">157 </span> <span class="Comment">// squeeze spaces after end of string</span> +<span id="L158" class="LineNr">158 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L159" class="LineNr">159 </span> <span class="Normal">bool</span> previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L160" class="LineNr">160 </span> <span class="Normal">bool</span> in_comment_or_string = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L161" class="LineNr">161 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>string::const_iterator curr = first<span class="Delimiter">;</span> curr != last<span class="Delimiter">;</span> ++curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L162" class="LineNr">162 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>in_comment_or_string<span class="Delimiter">)</span> +<span id="L163" class="LineNr">163 </span> out << *curr<span class="Delimiter">;</span> +<span id="L164" class="LineNr">164 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>isspace<span class="Delimiter">(</span>*curr<span class="Delimiter">)</span> || *curr == <span class="Constant">'.'</span><span class="Delimiter">)</span> +<span id="L165" class="LineNr">165 </span> previous_was_space = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L166" class="LineNr">166 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>previous_was_space<span class="Delimiter">)</span> +<span id="L168" class="LineNr">168 </span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr">169 </span> out << *curr<span class="Delimiter">;</span> +<span id="L170" class="LineNr">170 </span> previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L171" class="LineNr">171 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr == <span class="Constant">'#'</span> || *curr == <span class="Constant">'"'</span><span class="Delimiter">)</span> in_comment_or_string = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr">174 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/040---tests.cc.html b/html/040tests.cc.html index 3b0ebb27..a5b86b88 100644 --- a/html/040---tests.cc.html +++ b/html/040tests.cc.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; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Special { color: #d70000; } .Identifier { color: #af5f00; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .cSpecial { color: #008000; } @@ -69,12 +69,12 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr">10 </span><span class="Comment">//: We don't rely on any transforms running in previous layers, but this layer</span> <span id="L11" class="LineNr">11 </span><span class="Comment">//: knows about labels and will emit labels for previous layers to transform.</span> <span id="L12" class="LineNr">12 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L13" class="LineNr">13 </span><span class="Special"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040tests.cc.html#L34'>create_test_function</a><span class="Delimiter">);</span> +<span id="L13" class="LineNr">13 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040tests.cc.html#L34'>create_test_function</a><span class="Delimiter">);</span> <span id="L14" class="LineNr">14 </span> <span id="L15" class="LineNr">15 </span><span class="Delimiter">:(code)</span> <span id="L16" class="LineNr">16 </span><span class="Normal">void</span> <a href='040tests.cc.html#L16'>test_run_test</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr">17 </span> <span class="Special"><a href='010vm.cc.html#L154'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L18" class="LineNr">18 </span> <span class="Special"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000100</span><span class="Delimiter">;</span> +<span id="L17" class="LineNr">17 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L18" class="LineNr">18 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000100</span><span class="Delimiter">;</span> <span id="L19" class="LineNr">19 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L20" class="LineNr">20 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> <span id="L21" class="LineNr">21 </span> <span class="Constant">"main:\n"</span> @@ -85,7 +85,7 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr">26 </span> <span class="Constant">" c3/return\n"</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">);</span> <span id="L28" class="LineNr">28 </span> <span class="Comment">// check that code in test-foo ran (implicitly called by run-tests)</span> -<span id="L29" class="LineNr">29 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L29" class="LineNr">29 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L30" class="LineNr">30 </span> <span class="Constant">"run: 0x00000007 opcode: 01\n"</span> <span id="L31" class="LineNr">31 </span> <span class="Delimiter">);</span> <span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> @@ -95,9 +95,9 @@ if ('onhashchange' in window) { <span id="L36" class="LineNr">36 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr">37 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- create 'run-tests'"</span> << end<span class="Delimiter">();</span> <span id="L38" class="LineNr">38 </span> vector<line> new_insts<span class="Delimiter">;</span> -<span id="L39" class="LineNr">39 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L39" class="LineNr">39 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L40" class="LineNr">40 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L41" class="LineNr">41 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L41" class="LineNr">41 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L42" class="LineNr">42 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L43" class="LineNr">43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// not a label</span> <span id="L44" class="LineNr">44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!starts_with<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"test-"</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -113,9 +113,9 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr">54 </span> <span id="L55" class="LineNr">55 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L56" class="LineNr">56 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L57" class="LineNr">57 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L57" class="LineNr">57 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L58" class="LineNr">58 </span> <span class="Normal">const</span> line& l = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L59" class="LineNr">59 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L170'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L59" class="LineNr">59 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L60" class="LineNr">60 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L61" class="LineNr">61 </span> out << to_string<span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">));</span> <span id="L62" class="LineNr">62 </span> <span class="Delimiter">}</span> diff --git a/html/101_write.subx.html b/html/101_write.subx.html index 7cc43cea..4fc2310e 100644 --- a/html/101_write.subx.html +++ b/html/101_write.subx.html @@ -18,10 +18,10 @@ a { color:inherit; } .subxS2Comment { color: #8a8a8a; } .LineNr { } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } +.SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> diff --git a/html/103kernel-string-equal.subx.html b/html/103kernel-string-equal.subx.html index 349ea4af..45f25205 100644 --- a/html/103kernel-string-equal.subx.html +++ b/html/103kernel-string-equal.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; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .Constant { color: #008787; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> diff --git a/html/105string-equal.subx.html b/html/105string-equal.subx.html index ee06a1fb..4223ce1b 100644 --- a/html/105string-equal.subx.html +++ b/html/105string-equal.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; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> diff --git a/html/106stream.subx.html b/html/106stream.subx.html index f92d4a20..c5f8c4ad 100644 --- a/html/106stream.subx.html +++ b/html/106stream.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } diff --git a/html/107trace.subx.html b/html/107trace.subx.html index ce07967e..acdaf67d 100644 --- a/html/107trace.subx.html +++ b/html/107trace.subx.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; } .subxComment { color: #005faf; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } +.subxMinorFunction { color: #875f5f; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } --> </style> diff --git a/html/108write.subx.html b/html/108write.subx.html index 6760ec55..093061f9 100644 --- a/html/108write.subx.html +++ b/html/108write.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } diff --git a/html/109stream-equal.subx.html b/html/109stream-equal.subx.html index dddd2ff5..0217c7b6 100644 --- a/html/109stream-equal.subx.html +++ b/html/109stream-equal.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/110stop.subx.html b/html/110stop.subx.html index 54e37eab..81bc5194 100644 --- a/html/110stop.subx.html +++ b/html/110stop.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } diff --git a/html/111read.subx.html b/html/111read.subx.html index 2a4ec303..01b55da6 100644 --- a/html/111read.subx.html +++ b/html/111read.subx.html @@ -16,12 +16,12 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> diff --git a/html/112read-byte.subx.html b/html/112read-byte.subx.html index 30fba3a1..42363602 100644 --- a/html/112read-byte.subx.html +++ b/html/112read-byte.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; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -396,8 +396,8 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> <span class="subxComment"># current read index</span> <span id="L335" class="LineNr">335 </span> 0/imm32 <span id="L336" class="LineNr">336 </span> <span class="subxComment"># size</span> -<span id="L337" class="LineNr">337 </span> 0x100/imm32 <span class="subxComment"># 256 bytes</span> -<span id="L338" class="LineNr">338 </span> <span class="subxComment"># data (16 lines x 16 bytes/line)</span> +<span id="L337" class="LineNr">337 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> +<span id="L338" class="LineNr">338 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> <span id="L339" class="LineNr">339 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L340" class="LineNr">340 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L341" class="LineNr">341 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @@ -414,22 +414,70 @@ if ('onhashchange' in window) { <span id="L352" class="LineNr">352 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L353" class="LineNr">353 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L355" class="LineNr">355 </span> -<span id="L356" class="LineNr">356 </span><span class="subxComment"># a test buffered file for _test-input-stream</span> -<span id="L357" class="LineNr">357 </span><span class="subxMinorFunction">_test-input-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L358" class="LineNr">358 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L359" class="LineNr">359 </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L360" class="LineNr">360 </span><span class="Constant">$_test-input-buffered-file->buffer</span>: -<span id="L361" class="LineNr">361 </span> <span class="subxComment"># current write index</span> -<span id="L362" class="LineNr">362 </span> 0/imm32 -<span id="L363" class="LineNr">363 </span> <span class="subxComment"># current read index</span> -<span id="L364" class="LineNr">364 </span> 0/imm32 -<span id="L365" class="LineNr">365 </span> <span class="subxComment"># size</span> -<span id="L366" class="LineNr">366 </span> 6/imm32 -<span id="L367" class="LineNr">367 </span> <span class="subxComment"># data</span> -<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L369" class="LineNr">369 </span> -<span id="L370" class="LineNr">370 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L383" class="LineNr">383 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L384" class="LineNr">384 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L403" class="LineNr">403 </span> +<span id="L404" class="LineNr">404 </span><span class="subxComment"># a test buffered file for _test-input-stream</span> +<span id="L405" class="LineNr">405 </span><span class="subxMinorFunction">_test-input-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L406" class="LineNr">406 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L407" class="LineNr">407 </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L408" class="LineNr">408 </span><span class="Constant">$_test-input-buffered-file->buffer</span>: +<span id="L409" class="LineNr">409 </span> <span class="subxComment"># current write index</span> +<span id="L410" class="LineNr">410 </span> 0/imm32 +<span id="L411" class="LineNr">411 </span> <span class="subxComment"># current read index</span> +<span id="L412" class="LineNr">412 </span> 0/imm32 +<span id="L413" class="LineNr">413 </span> <span class="subxComment"># size</span> +<span id="L414" class="LineNr">414 </span> 6/imm32 +<span id="L415" class="LineNr">415 </span> <span class="subxComment"># data</span> +<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L417" class="LineNr">417 </span> +<span id="L418" class="LineNr">418 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/113write-stream.subx.html b/html/113write-stream.subx.html index ceeb6bc6..d0caa5d6 100644 --- a/html/113write-stream.subx.html +++ b/html/113write-stream.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } diff --git a/html/114error.subx.html b/html/114error.subx.html index 009111bd..b59f5cb8 100644 --- a/html/114error.subx.html +++ b/html/114error.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/115write-byte.subx.html b/html/115write-byte.subx.html index 7ac66740..11345bad 100644 --- a/html/115write-byte.subx.html +++ b/html/115write-byte.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; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -350,8 +350,8 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span> <span class="subxComment"># current read index</span> <span id="L289" class="LineNr">289 </span> 0/imm32 <span id="L290" class="LineNr">290 </span> <span class="subxComment"># size</span> -<span id="L291" class="LineNr">291 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> -<span id="L292" class="LineNr">292 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> +<span id="L291" class="LineNr">291 </span> 0x800/imm32 <span class="subxComment"># 2048 bytes</span> +<span id="L292" class="LineNr">292 </span> <span class="subxComment"># data (128 lines x 16 bytes/line)</span> <span id="L293" class="LineNr">293 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L294" class="LineNr">294 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L295" class="LineNr">295 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @@ -416,29 +416,29 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L357" class="LineNr">357 </span> -<span id="L358" class="LineNr">358 </span><span class="subxComment"># a test buffered file for _test-output-stream</span> -<span id="L359" class="LineNr">359 </span><span class="subxMinorFunction">_test-output-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L360" class="LineNr">360 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L361" class="LineNr">361 </span> <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L362" class="LineNr">362 </span><span class="Constant">$_test-output-buffered-file->buffer</span>: -<span id="L363" class="LineNr">363 </span> <span class="subxComment"># current write index</span> -<span id="L364" class="LineNr">364 </span> 0/imm32 -<span id="L365" class="LineNr">365 </span> <span class="subxComment"># current read index</span> -<span id="L366" class="LineNr">366 </span> 0/imm32 -<span id="L367" class="LineNr">367 </span> <span class="subxComment"># size</span> -<span id="L368" class="LineNr">368 </span> 6/imm32 -<span id="L369" class="LineNr">369 </span> <span class="subxComment"># data</span> -<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L371" class="LineNr">371 </span> -<span id="L372" class="LineNr">372 </span><span class="subxMinorFunction">_test-error-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L373" class="LineNr">373 </span> <span class="subxComment"># current write index</span> -<span id="L374" class="LineNr">374 </span> 0/imm32 -<span id="L375" class="LineNr">375 </span> <span class="subxComment"># current read index</span> -<span id="L376" class="LineNr">376 </span> 0/imm32 -<span id="L377" class="LineNr">377 </span> <span class="subxComment"># line</span> -<span id="L378" class="LineNr">378 </span> 0x80/imm32 <span class="subxComment"># 128 bytes</span> -<span id="L379" class="LineNr">379 </span> <span class="subxComment"># data (8 lines x 16 bytes/line)</span> +<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @@ -447,22 +447,86 @@ if ('onhashchange' in window) { <span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L388" class="LineNr">388 </span> -<span id="L389" class="LineNr">389 </span><span class="subxComment"># a test buffered file for _test-error-stream</span> -<span id="L390" class="LineNr">390 </span><span class="subxMinorFunction">_test-error-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L391" class="LineNr">391 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L392" class="LineNr">392 </span> <a href='115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 -<span id="L393" class="LineNr">393 </span><span class="Constant">$_test-error-buffered-file->buffer</span>: -<span id="L394" class="LineNr">394 </span> <span class="subxComment"># current write index</span> -<span id="L395" class="LineNr">395 </span> 0/imm32 -<span id="L396" class="LineNr">396 </span> <span class="subxComment"># current read index</span> -<span id="L397" class="LineNr">397 </span> 0/imm32 -<span id="L398" class="LineNr">398 </span> <span class="subxComment"># size</span> -<span id="L399" class="LineNr">399 </span> 6/imm32 -<span id="L400" class="LineNr">400 </span> <span class="subxComment"># data</span> -<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L402" class="LineNr">402 </span> -<span id="L403" class="LineNr">403 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L403" class="LineNr">403 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L404" class="LineNr">404 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L405" class="LineNr">405 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L406" class="LineNr">406 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L407" class="LineNr">407 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L408" class="LineNr">408 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L409" class="LineNr">409 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L410" class="LineNr">410 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L411" class="LineNr">411 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L412" class="LineNr">412 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L413" class="LineNr">413 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L414" class="LineNr">414 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L415" class="LineNr">415 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L417" class="LineNr">417 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L418" class="LineNr">418 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L419" class="LineNr">419 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L420" class="LineNr">420 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L421" class="LineNr">421 </span> +<span id="L422" class="LineNr">422 </span><span class="subxComment"># a test buffered file for _test-output-stream</span> +<span id="L423" class="LineNr">423 </span><span class="subxMinorFunction">_test-output-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L424" class="LineNr">424 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L425" class="LineNr">425 </span> <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L426" class="LineNr">426 </span><span class="Constant">$_test-output-buffered-file->buffer</span>: +<span id="L427" class="LineNr">427 </span> <span class="subxComment"># current write index</span> +<span id="L428" class="LineNr">428 </span> 0/imm32 +<span id="L429" class="LineNr">429 </span> <span class="subxComment"># current read index</span> +<span id="L430" class="LineNr">430 </span> 0/imm32 +<span id="L431" class="LineNr">431 </span> <span class="subxComment"># size</span> +<span id="L432" class="LineNr">432 </span> 6/imm32 +<span id="L433" class="LineNr">433 </span> <span class="subxComment"># data</span> +<span id="L434" class="LineNr">434 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L435" class="LineNr">435 </span> +<span id="L436" class="LineNr">436 </span><span class="subxMinorFunction">_test-error-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L437" class="LineNr">437 </span> <span class="subxComment"># current write index</span> +<span id="L438" class="LineNr">438 </span> 0/imm32 +<span id="L439" class="LineNr">439 </span> <span class="subxComment"># current read index</span> +<span id="L440" class="LineNr">440 </span> 0/imm32 +<span id="L441" class="LineNr">441 </span> <span class="subxComment"># line</span> +<span id="L442" class="LineNr">442 </span> 0x80/imm32 <span class="subxComment"># 128 bytes</span> +<span id="L443" class="LineNr">443 </span> <span class="subxComment"># data (8 lines x 16 bytes/line)</span> +<span id="L444" class="LineNr">444 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L445" class="LineNr">445 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L446" class="LineNr">446 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L447" class="LineNr">447 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L448" class="LineNr">448 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L449" class="LineNr">449 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L450" class="LineNr">450 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L451" class="LineNr">451 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L452" class="LineNr">452 </span> +<span id="L453" class="LineNr">453 </span><span class="subxComment"># a test buffered file for _test-error-stream</span> +<span id="L454" class="LineNr">454 </span><span class="subxMinorFunction">_test-error-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L455" class="LineNr">455 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L456" class="LineNr">456 </span> <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L457" class="LineNr">457 </span><span class="Constant">$_test-error-buffered-file->buffer</span>: +<span id="L458" class="LineNr">458 </span> <span class="subxComment"># current write index</span> +<span id="L459" class="LineNr">459 </span> 0/imm32 +<span id="L460" class="LineNr">460 </span> <span class="subxComment"># current read index</span> +<span id="L461" class="LineNr">461 </span> 0/imm32 +<span id="L462" class="LineNr">462 </span> <span class="subxComment"># size</span> +<span id="L463" class="LineNr">463 </span> 6/imm32 +<span id="L464" class="LineNr">464 </span> <span class="subxComment"># data</span> +<span id="L465" class="LineNr">465 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L466" class="LineNr">466 </span> +<span id="L467" class="LineNr">467 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/116write-buffered.subx.html b/html/116write-buffered.subx.html index b7c87233..765793e3 100644 --- a/html/116write-buffered.subx.html +++ b/html/116write-buffered.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } diff --git a/html/117write-int-hex.subx.html b/html/117write-int-hex.subx.html index bca3833e..2b51513f 100644 --- a/html/117write-int-hex.subx.html +++ b/html/117write-int-hex.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .Folded { color: #080808; background-color: #949494; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -237,197 +237,241 @@ if ('onhashchange' in window) { <span id="L176" class="LineNr">176 </span> c3/return <span id="L177" class="LineNr">177 </span> <span id="L178" class="LineNr">178 </span><span class="subxFunction">write-int32-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># pseudocode:</span> -<span id="L180" class="LineNr">180 </span> <span class="subxComment"># write(f, "0x")</span> -<span id="L181" class="LineNr">181 </span> <span class="subxComment"># ecx = 28</span> -<span id="L182" class="LineNr">182 </span> <span class="subxComment"># while true</span> -<span id="L183" class="LineNr">183 </span> <span class="subxComment"># if (ecx < 0) break</span> -<span id="L184" class="LineNr">184 </span> <span class="subxComment"># eax = n >> ecx</span> -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># eax = eax & 0xf</span> -<span id="L186" class="LineNr">186 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L187" class="LineNr">187 </span> <span class="subxComment"># ecx -= 4</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment">#</span> -<span id="L189" class="LineNr">189 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L190" class="LineNr">190 </span> 55/push-ebp -<span id="L191" class="LineNr">191 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L192" class="LineNr">192 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L193" class="LineNr">193 </span> 50/push-eax -<span id="L194" class="LineNr">194 </span> 51/push-ecx -<span id="L195" class="LineNr">195 </span> <span class="subxComment"># ecx = 28</span> -<span id="L196" class="LineNr">196 </span> b9/copy-to-ecx 0x1c/imm32 -<span id="L197" class="LineNr">197 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># write(f, "0x")</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">"0x"</span>/imm32 -<span id="L201" class="LineNr">201 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L203" class="LineNr">203 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L206" class="LineNr">206 </span><span class="Constant">$write-int32-hex:loop</span>: -<span id="L207" class="LineNr">207 </span> <span class="subxComment"># if (ecx < 0) break</span> -<span id="L208" class="LineNr">208 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L209" class="LineNr">209 </span> 7c/jump-if-< $write-int32-hex:end/disp8 -<span id="L210" class="LineNr">210 </span> <span class="subxComment"># eax = n >> ecx</span> -<span id="L211" class="LineNr">211 </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="L212" class="LineNr">212 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> -<span id="L213" class="LineNr">213 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> -<span id="L214" class="LineNr">214 </span> 25/and-eax 0xf/imm32 -<span id="L215" class="LineNr">215 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L216" class="LineNr">216 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L218" class="LineNr">218 </span> 50/push-eax -<span id="L219" class="LineNr">219 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L221" class="LineNr">221 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 -<span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L223" class="LineNr">223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># ecx -= 4</span> -<span id="L225" class="LineNr">225 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L226" class="LineNr">226 </span> eb/jump $write-int32-hex:<span class="Constant">loop</span>/disp8 -<span id="L227" class="LineNr">227 </span><span class="Constant">$write-int32-hex:end</span>: -<span id="L228" class="LineNr">228 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L229" class="LineNr">229 </span> 59/pop-to-ecx -<span id="L230" class="LineNr">230 </span> 58/pop-to-eax -<span id="L231" class="LineNr">231 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L232" class="LineNr">232 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L233" class="LineNr">233 </span> 5d/pop-to-ebp -<span id="L234" class="LineNr">234 </span> c3/return -<span id="L235" class="LineNr">235 </span> -<span id="L236" class="LineNr">236 </span><span class="subxTest">test-write-int32-hex</span>: -<span id="L237" class="LineNr">237 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> -<span id="L238" class="LineNr">238 </span> <span class="subxComment"># setup</span> -<span id="L239" class="LineNr">239 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L240" class="LineNr">240 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L241" class="LineNr">241 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L179" class="LineNr">179 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L180" class="LineNr">180 </span> 55/push-ebp +<span id="L181" class="LineNr">181 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L182" class="LineNr">182 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: +<span id="L183" class="LineNr">183 </span> <span class="subxComment"># write(f, "0x")</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L185" class="LineNr">185 </span> 68/push <span class="Constant">"0x"</span>/imm32 +<span id="L186" class="LineNr">186 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . call</span> +<span id="L188" class="LineNr">188 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L190" class="LineNr">190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L191" class="LineNr">191 </span><span class="Constant">$write-int32-hex:rest</span>: +<span id="L192" class="LineNr">192 </span> <span class="subxComment"># write-int32-hex-bits(f, n, 32)</span> +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L194" class="LineNr">194 </span> 68/push 0x20/imm32 +<span id="L195" class="LineNr">195 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L196" class="LineNr">196 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L198" class="LineNr">198 </span> e8/call <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a>/disp32 +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr">201 </span><span class="Constant">$write-int32-hex:end</span>: +<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L203" class="LineNr">203 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L204" class="LineNr">204 </span> 5d/pop-to-ebp +<span id="L205" class="LineNr">205 </span> c3/return +<span id="L206" class="LineNr">206 </span> +<span id="L207" class="LineNr">207 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> +<span id="L208" class="LineNr">208 </span><span class="subxComment"># bits must be multiple of 4</span> +<span id="L209" class="LineNr">209 </span><span class="subxFunction">write-int32-hex-bits</span>: <span class="subxComment"># f: (addr stream byte), n: int, bits: int</span> +<span id="L210" class="LineNr">210 </span> <span class="subxComment"># pseudocode:</span> +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># bits -= 4</span> +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># while true</span> +<span id="L213" class="LineNr">213 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L214" class="LineNr">214 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># eax = eax & 0xf</span> +<span id="L216" class="LineNr">216 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L217" class="LineNr">217 </span> <span class="subxComment"># bits -= 4</span> +<span id="L218" class="LineNr">218 </span> <span class="subxComment">#</span> +<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L220" class="LineNr">220 </span> 55/push-ebp +<span id="L221" class="LineNr">221 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L222" class="LineNr">222 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L223" class="LineNr">223 </span> 50/push-eax +<span id="L224" class="LineNr">224 </span> 51/push-ecx +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># ecx = bits-4</span> +<span id="L226" class="LineNr">226 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L227" class="LineNr">227 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L228" class="LineNr">228 </span><span class="Constant">$write-int32-hex-bits:loop</span>: +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L230" class="LineNr">230 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L231" class="LineNr">231 </span> 7c/jump-if-< $write-int32-hex-bits:end/disp8 +<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L233" class="LineNr">233 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L234" class="LineNr">234 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> +<span id="L235" class="LineNr">235 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> +<span id="L236" class="LineNr">236 </span> 25/and-eax 0xf/imm32 +<span id="L237" class="LineNr">237 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L238" class="LineNr">238 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L240" class="LineNr">240 </span> 50/push-eax +<span id="L241" class="LineNr">241 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L243" class="LineNr">243 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L243" class="LineNr">243 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 <span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L245" class="LineNr">245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L246" class="LineNr">246 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> -<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L248" class="LineNr">248 </span> 68/push 0x8899aa/imm32 -<span id="L249" class="LineNr">249 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L250" class="LineNr">250 </span> <span class="subxS2Comment"># . . call</span> -<span id="L251" class="LineNr">251 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L252" class="LineNr">252 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L253" class="LineNr">253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L254" class="LineNr">254 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> -<span id="L255" class="LineNr">255 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L256" class="LineNr">256 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 -<span id="L257" class="LineNr">257 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 -<span id="L258" class="LineNr">258 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . call</span> -<span id="L260" class="LineNr">260 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L262" class="LineNr">262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L263" class="LineNr">263 </span> <span class="subxS1Comment"># . end</span> -<span id="L264" class="LineNr">264 </span> c3/return -<span id="L265" class="LineNr">265 </span> -<span id="L266" class="LineNr">266 </span><span class="subxFunction">write-int32-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> -<span id="L267" class="LineNr">267 </span> <span class="subxComment"># pseudocode:</span> -<span id="L268" class="LineNr">268 </span> <span class="subxComment"># write-buffered(f, "0x")</span> -<span id="L269" class="LineNr">269 </span> <span class="subxComment"># ecx = 28</span> -<span id="L270" class="LineNr">270 </span> <span class="subxComment"># while true</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># if (ecx < 0) break</span> -<span id="L272" class="LineNr">272 </span> <span class="subxComment"># eax = n >> ecx</span> -<span id="L273" class="LineNr">273 </span> <span class="subxComment"># eax = eax & 0xf</span> -<span id="L274" class="LineNr">274 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L275" class="LineNr">275 </span> <span class="subxComment"># ecx -= 4</span> -<span id="L276" class="LineNr">276 </span> <span class="subxComment">#</span> -<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L278" class="LineNr">278 </span> 55/push-ebp -<span id="L279" class="LineNr">279 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L280" class="LineNr">280 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L281" class="LineNr">281 </span> 50/push-eax -<span id="L282" class="LineNr">282 </span> 51/push-ecx -<span id="L283" class="LineNr">283 </span> <span class="subxComment"># ecx = 28</span> -<span id="L284" class="LineNr">284 </span> b9/copy-to-ecx 0x1c/imm32 -<span id="L285" class="LineNr">285 </span><span class="Constant">$write-int32-hex-buffered:hex-prefix</span>: -<span id="L286" class="LineNr">286 </span> <span class="subxComment"># write-buffered(f, "0x")</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">"0x"</span>/imm32 -<span id="L289" class="LineNr">289 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L290" class="LineNr">290 </span> <span class="subxS2Comment"># . . call</span> -<span id="L291" class="LineNr">291 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</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="Constant">$write-int32-hex-buffered:loop</span>: -<span id="L295" class="LineNr">295 </span> <span class="subxComment"># if (ecx < 0) break</span> -<span id="L296" class="LineNr">296 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L297" class="LineNr">297 </span> 7c/jump-if-< $write-int32-hex-buffered:end/disp8 -<span id="L298" class="LineNr">298 </span> <span class="subxComment"># eax = n >> ecx</span> -<span id="L299" class="LineNr">299 </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="L300" class="LineNr">300 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> -<span id="L301" class="LineNr">301 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> -<span id="L302" class="LineNr">302 </span> 25/and-eax 0xf/imm32 -<span id="L303" class="LineNr">303 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L304" class="LineNr">304 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L306" class="LineNr">306 </span> 50/push-eax -<span id="L307" class="LineNr">307 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L309" class="LineNr">309 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L310" class="LineNr">310 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L311" class="LineNr">311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># ecx -= 4</span> -<span id="L313" class="LineNr">313 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L314" class="LineNr">314 </span> eb/jump $write-int32-hex-buffered:<span class="Constant">loop</span>/disp8 -<span id="L315" class="LineNr">315 </span><span class="Constant">$write-int32-hex-buffered:end</span>: -<span id="L316" class="LineNr">316 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L317" class="LineNr">317 </span> 59/pop-to-ecx -<span id="L318" class="LineNr">318 </span> 58/pop-to-eax -<span id="L319" class="LineNr">319 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L320" class="LineNr">320 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L321" class="LineNr">321 </span> 5d/pop-to-ebp -<span id="L322" class="LineNr">322 </span> c3/return -<span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="subxTest">test-write-int32-hex-buffered</span>: -<span id="L325" class="LineNr">325 </span> <span class="subxH1Comment"># - check that write-int32-hex-buffered prints the hex textual representation</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-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='108write.subx.html#L148'>_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='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-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-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="subxComment"># write-int32-hex-buffered(_test-buffered-file, 0x8899aa)</span> -<span id="L342" class="LineNr">342 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L343" class="LineNr">343 </span> 68/push 0x8899aa/imm32 -<span id="L344" class="LineNr">344 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='117write-int-hex.subx.html#L266'>write-int32-hex-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L349" class="LineNr">349 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L351" class="LineNr">351 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L245" class="LineNr">245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L246" class="LineNr">246 </span> <span class="subxComment"># bits -= 4</span> +<span id="L247" class="LineNr">247 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L248" class="LineNr">248 </span> eb/jump $write-int32-hex-bits:<span class="Constant">loop</span>/disp8 +<span id="L249" class="LineNr">249 </span><span class="Constant">$write-int32-hex-bits:end</span>: +<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L251" class="LineNr">251 </span> 59/pop-to-ecx +<span id="L252" class="LineNr">252 </span> 58/pop-to-eax +<span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L254" class="LineNr">254 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L255" class="LineNr">255 </span> 5d/pop-to-ebp +<span id="L256" class="LineNr">256 </span> c3/return +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="subxTest">test-write-int32-hex</span>: +<span id="L259" class="LineNr">259 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> +<span id="L260" class="LineNr">260 </span> <span class="subxComment"># setup</span> +<span id="L261" class="LineNr">261 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L263" class="LineNr">263 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> +<span id="L265" class="LineNr">265 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> +<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L270" class="LineNr">270 </span> 68/push 0x8899aa/imm32 +<span id="L271" class="LineNr">271 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L273" class="LineNr">273 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L275" class="LineNr">275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L276" class="LineNr">276 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> +<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L278" class="LineNr">278 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 +<span id="L279" class="LineNr">279 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 +<span id="L280" class="LineNr">280 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L281" class="LineNr">281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L282" class="LineNr">282 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L284" class="LineNr">284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L285" class="LineNr">285 </span> <span class="subxS1Comment"># . end</span> +<span id="L286" class="LineNr">286 </span> c3/return +<span id="L287" class="LineNr">287 </span> +<span id="L288" class="LineNr">288 </span><span class="subxFunction">write-int32-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> +<span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L290" class="LineNr">290 </span> 55/push-ebp +<span id="L291" class="LineNr">291 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L292" class="LineNr">292 </span><span class="Constant">$write-int32-hex-buffered:hex-prefix</span>: +<span id="L293" class="LineNr">293 </span> <span class="subxComment"># write-buffered(f, "0x")</span> +<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L295" class="LineNr">295 </span> 68/push <span class="Constant">"0x"</span>/imm32 +<span id="L296" class="LineNr">296 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . call</span> +<span id="L298" class="LineNr">298 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L299" class="LineNr">299 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L300" class="LineNr">300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L301" class="LineNr">301 </span><span class="Constant">$write-int32-hex-buffered:rest</span>: +<span id="L302" class="LineNr">302 </span> <span class="subxComment"># write-int32-hex-bits-buffered(f, n, 32)</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L304" class="LineNr">304 </span> 68/push 0x20/imm32 +<span id="L305" class="LineNr">305 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L306" class="LineNr">306 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . call</span> +<span id="L308" class="LineNr">308 </span> e8/call <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a>/disp32 +<span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L310" class="LineNr">310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L311" class="LineNr">311 </span><span class="Constant">$write-int32-hex-buffered:end</span>: +<span id="L312" class="LineNr">312 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L313" class="LineNr">313 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L314" class="LineNr">314 </span> 5d/pop-to-ebp +<span id="L315" class="LineNr">315 </span> c3/return +<span id="L316" class="LineNr">316 </span> +<span id="L317" class="LineNr">317 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> +<span id="L318" class="LineNr">318 </span><span class="subxComment"># bits must be multiple of 4</span> +<span id="L319" class="LineNr">319 </span><span class="subxFunction">write-int32-hex-bits-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int, bits: int</span> +<span id="L320" class="LineNr">320 </span> <span class="subxComment"># pseudocode:</span> +<span id="L321" class="LineNr">321 </span> <span class="subxComment"># bits -= 4</span> +<span id="L322" class="LineNr">322 </span> <span class="subxComment"># while true</span> +<span id="L323" class="LineNr">323 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L324" class="LineNr">324 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L325" class="LineNr">325 </span> <span class="subxComment"># eax = eax & 0xf</span> +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L327" class="LineNr">327 </span> <span class="subxComment"># bits -= 4</span> +<span id="L328" class="LineNr">328 </span> <span class="subxComment">#</span> +<span id="L329" class="LineNr">329 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L330" class="LineNr">330 </span> 55/push-ebp +<span id="L331" class="LineNr">331 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L332" class="LineNr">332 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L333" class="LineNr">333 </span> 50/push-eax +<span id="L334" class="LineNr">334 </span> 51/push-ecx +<span id="L335" class="LineNr">335 </span> <span class="subxComment"># ecx = bits-4</span> +<span id="L336" class="LineNr">336 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L337" class="LineNr">337 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L338" class="LineNr">338 </span><span class="Constant">$write-int32-hex-bits-buffered:loop</span>: +<span id="L339" class="LineNr">339 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L340" class="LineNr">340 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L341" class="LineNr">341 </span> 7c/jump-if-< $write-int32-hex-bits-buffered:end/disp8 +<span id="L342" class="LineNr">342 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L343" class="LineNr">343 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L344" class="LineNr">344 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> +<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> +<span id="L346" class="LineNr">346 </span> 25/and-eax 0xf/imm32 +<span id="L347" class="LineNr">347 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L348" class="LineNr">348 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L349" class="LineNr">349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L350" class="LineNr">350 </span> 50/push-eax +<span id="L351" class="LineNr">351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . call</span> -<span id="L353" class="LineNr">353 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L353" class="LineNr">353 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 <span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L355" class="LineNr">355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L356" class="Folded">356 </span><span class="Folded">+-- 18 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L374" class="LineNr">374 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> -<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L376" class="LineNr">376 </span> 68/push <span class="Constant">"F - test-write-int32-hex-buffered"</span>/imm32 -<span id="L377" class="LineNr">377 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 -<span id="L378" class="LineNr">378 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . call</span> -<span id="L380" class="LineNr">380 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L382" class="LineNr">382 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L383" class="LineNr">383 </span> <span class="subxS1Comment"># . end</span> -<span id="L384" class="LineNr">384 </span> c3/return -<span id="L385" class="LineNr">385 </span> -<span id="L386" class="LineNr">386 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L355" class="LineNr">355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L356" class="LineNr">356 </span> <span class="subxComment"># bits -= 4</span> +<span id="L357" class="LineNr">357 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L358" class="LineNr">358 </span> eb/jump $write-int32-hex-bits-buffered:<span class="Constant">loop</span>/disp8 +<span id="L359" class="LineNr">359 </span><span class="Constant">$write-int32-hex-bits-buffered:end</span>: +<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L361" class="LineNr">361 </span> 59/pop-to-ecx +<span id="L362" class="LineNr">362 </span> 58/pop-to-eax +<span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L364" class="LineNr">364 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L365" class="LineNr">365 </span> 5d/pop-to-ebp +<span id="L366" class="LineNr">366 </span> c3/return +<span id="L367" class="LineNr">367 </span> +<span id="L368" class="LineNr">368 </span><span class="subxTest">test-write-int32-hex-buffered</span>: +<span id="L369" class="LineNr">369 </span> <span class="subxH1Comment"># - check that write-int32-hex-buffered prints the hex textual representation</span> +<span id="L370" class="LineNr">370 </span> <span class="subxComment"># setup</span> +<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L373" class="LineNr">373 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L374" class="LineNr">374 </span> <span class="subxS2Comment"># . . call</span> +<span id="L375" class="LineNr">375 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L377" class="LineNr">377 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L378" class="LineNr">378 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L380" class="LineNr">380 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> +<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L385" class="LineNr">385 </span> <span class="subxComment"># write-int32-hex-buffered(_test-buffered-file, 0x8899aa)</span> +<span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L387" class="LineNr">387 </span> 68/push 0x8899aa/imm32 +<span id="L388" class="LineNr">388 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> +<span id="L390" class="LineNr">390 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L393" class="LineNr">393 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L395" class="LineNr">395 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> +<span id="L397" class="LineNr">397 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L400" class="Folded">400 </span><span class="Folded">+-- 18 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L418" class="LineNr">418 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> +<span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L420" class="LineNr">420 </span> 68/push <span class="Constant">"F - test-write-int32-hex-buffered"</span>/imm32 +<span id="L421" class="LineNr">421 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 +<span id="L422" class="LineNr">422 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L423" class="LineNr">423 </span> <span class="subxS2Comment"># . . call</span> +<span id="L424" class="LineNr">424 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L425" class="LineNr">425 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L426" class="LineNr">426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . end</span> +<span id="L428" class="LineNr">428 </span> c3/return +<span id="L429" class="LineNr">429 </span> +<span id="L430" class="LineNr">430 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/118parse-hex.subx.html b/html/118parse-hex-int.subx.html index 96cf9f27..ed9289cf 100644 --- a/html/118parse-hex.subx.html +++ b/html/118parse-hex-int.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 118parse-hex.subx</title> +<title>Mu - 118parse-hex-int.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/master/118parse-hex.subx'>https://github.com/akkartik/mu/blob/master/118parse-hex.subx</a> +<a href='https://github.com/akkartik/mu/blob/master/118parse-hex-int.subx'>https://github.com/akkartik/mu/blob/master/118parse-hex-int.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># some utilities for converting numbers from hex</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># lowercase letters only for now</span> @@ -121,7 +121,7 @@ if ('onhashchange' in window) { <span id="L61" class="LineNr"> 61 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L62" class="LineNr"> 62 </span> 50/push-eax <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> -<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L66" class="LineNr"> 66 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># if (eax == false) return false</span> @@ -161,7 +161,7 @@ if ('onhashchange' in window) { <span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push args</span> <span id="L102" class="LineNr">102 </span> 51/push-ecx <span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L106" class="LineNr">106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L107" class="LineNr">107 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -195,7 +195,7 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> <span id="L136" class="LineNr">136 </span> 51/push-ecx <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -229,7 +229,7 @@ if ('onhashchange' in window) { <span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> <span id="L170" class="LineNr">170 </span> 51/push-ecx <span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L175" class="LineNr">175 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -263,7 +263,7 @@ if ('onhashchange' in window) { <span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> <span id="L204" class="LineNr">204 </span> 51/push-ecx <span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L208" class="LineNr">208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L209" class="LineNr">209 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -292,7 +292,7 @@ if ('onhashchange' in window) { <span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . push args</span> <span id="L233" class="LineNr">233 </span> 51/push-ecx <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -326,7 +326,7 @@ if ('onhashchange' in window) { <span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . push args</span> <span id="L267" class="LineNr">267 </span> 51/push-ecx <span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L271" class="LineNr">271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L272" class="LineNr">272 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -360,7 +360,7 @@ if ('onhashchange' in window) { <span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> <span id="L301" class="LineNr">301 </span> 51/push-ecx <span id="L302" class="LineNr">302 </span> <span class="subxS2Comment"># . . call</span> -<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L304" class="LineNr">304 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L305" class="LineNr">305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L306" class="LineNr">306 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -394,7 +394,7 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> <span id="L335" class="LineNr">335 </span> 51/push-ecx <span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 <span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L339" class="LineNr">339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L340" class="LineNr">340 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -432,7 +432,7 @@ if ('onhashchange' in window) { <span id="L372" class="LineNr">372 </span> 52/push-edx <span id="L373" class="LineNr">373 </span> 51/push-ecx <span id="L374" class="LineNr">374 </span> <span class="subxS2Comment"># . . call</span> -<span id="L375" class="LineNr">375 </span> e8/call <a href='118parse-hex.subx.html#L417'>parse-hex-int-helper</a>/disp32 +<span id="L375" class="LineNr">375 </span> e8/call <a href='118parse-hex-int.subx.html#L417'>parse-hex-int-helper</a>/disp32 <span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L377" class="LineNr">377 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L378" class="LineNr">378 </span><span class="Constant">$parse-hex-int:end</span>: @@ -453,7 +453,7 @@ if ('onhashchange' in window) { <span id="L393" class="LineNr">393 </span> 52/push-edx <span id="L394" class="LineNr">394 </span> <span class="subxComment"># ecx = in</span> <span id="L395" class="LineNr">395 </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="L396" class="LineNr">396 </span> <span class="subxComment"># edx = in->end</span> +<span id="L396" class="LineNr">396 </span> <span class="subxComment"># var max/edx: (addr byte) = in->end</span> <span id="L397" class="LineNr">397 </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="L398" class="LineNr">398 </span> <span class="subxComment"># var curr/ecx: (addr byte) = in->start</span> <span id="L399" class="LineNr">399 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ecx</span> @@ -462,7 +462,7 @@ if ('onhashchange' in window) { <span id="L402" class="LineNr">402 </span> 52/push-edx <span id="L403" class="LineNr">403 </span> 51/push-ecx <span id="L404" class="LineNr">404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L405" class="LineNr">405 </span> e8/call <a href='118parse-hex.subx.html#L417'>parse-hex-int-helper</a>/disp32 +<span id="L405" class="LineNr">405 </span> e8/call <a href='118parse-hex-int.subx.html#L417'>parse-hex-int-helper</a>/disp32 <span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L407" class="LineNr">407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L408" class="LineNr">408 </span><span class="Constant">$parse-hex-int-from-slice:end</span>: @@ -528,7 +528,7 @@ if ('onhashchange' in window) { <span id="L468" class="LineNr">468 </span> <span class="subxS2Comment"># . . copy arg to eax</span> <span id="L469" class="LineNr">469 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L470" class="LineNr">470 </span> <span class="subxS2Comment"># . . call</span> -<span id="L471" class="LineNr">471 </span> e8/call <a href='118parse-hex.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L471" class="LineNr">471 </span> e8/call <a href='118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 <span id="L472" class="LineNr">472 </span> <span class="subxComment"># result = result * 16 + eax</span> <span id="L473" class="LineNr">473 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift ebx left by 4 bits</span> <span id="L474" class="LineNr">474 </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> @@ -571,7 +571,7 @@ if ('onhashchange' in window) { <span id="L511" class="LineNr">511 </span> <span class="subxS2Comment"># . . push args</span> <span id="L512" class="LineNr">512 </span> 51/push-ecx <span id="L513" class="LineNr">513 </span> <span class="subxS2Comment"># . . call</span> -<span id="L514" class="LineNr">514 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L514" class="LineNr">514 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L516" class="LineNr">516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L517" class="LineNr">517 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> @@ -605,7 +605,7 @@ if ('onhashchange' in window) { <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='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L548" class="LineNr">548 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</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"># check-ints-equal(eax, 0x34a, msg)</span> @@ -639,10 +639,10 @@ if ('onhashchange' in window) { <span id="L579" class="LineNr">579 </span> <span class="subxS2Comment"># . . push args</span> <span id="L580" class="LineNr">580 </span> 51/push-ecx <span id="L581" class="LineNr">581 </span> <span class="subxS2Comment"># . . call</span> -<span id="L582" class="LineNr">582 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L582" class="LineNr">582 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L583" class="LineNr">583 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L584" class="LineNr">584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L585" class="LineNr">585 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L585" class="LineNr">585 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> <span id="L586" class="LineNr">586 </span> <span class="subxS2Comment"># . . push args</span> <span id="L587" class="LineNr">587 </span> 68/push <span class="Constant">"F - test-parse-hex-int-from-slice-0x-prefix"</span>/imm32 <span id="L588" class="LineNr">588 </span> 68/push 0x34/imm32 @@ -673,10 +673,10 @@ if ('onhashchange' in window) { <span id="L613" class="LineNr">613 </span> <span class="subxS2Comment"># . . push args</span> <span id="L614" class="LineNr">614 </span> 51/push-ecx <span id="L615" class="LineNr">615 </span> <span class="subxS2Comment"># . . call</span> -<span id="L616" class="LineNr">616 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L616" class="LineNr">616 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L617" class="LineNr">617 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L618" class="LineNr">618 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L619" class="LineNr">619 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L619" class="LineNr">619 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L620" class="LineNr">620 </span> <span class="subxS2Comment"># . . push args</span> <span id="L621" class="LineNr">621 </span> 68/push <span class="Constant">"F - test-parse-hex-int-from-slice-zero"</span>/imm32 <span id="L622" class="LineNr">622 </span> 68/push 0/imm32 @@ -707,7 +707,7 @@ if ('onhashchange' in window) { <span id="L647" class="LineNr">647 </span> <span class="subxS2Comment"># . . push args</span> <span id="L648" class="LineNr">648 </span> 51/push-ecx <span id="L649" class="LineNr">649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L650" class="LineNr">650 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L650" class="LineNr">650 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L651" class="LineNr">651 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L652" class="LineNr">652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L653" class="LineNr">653 </span> <span class="subxComment"># check-ints-equal(eax, 0x3, msg)</span> @@ -741,7 +741,7 @@ if ('onhashchange' in window) { <span id="L681" class="LineNr">681 </span> <span class="subxS2Comment"># . . push args</span> <span id="L682" class="LineNr">682 </span> 51/push-ecx <span id="L683" class="LineNr">683 </span> <span class="subxS2Comment"># . . call</span> -<span id="L684" class="LineNr">684 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L684" class="LineNr">684 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L685" class="LineNr">685 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L686" class="LineNr">686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L687" class="LineNr">687 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> @@ -799,7 +799,7 @@ if ('onhashchange' in window) { <span id="L739" class="LineNr">739 </span> <span class="subxS2Comment"># . . push args</span> <span id="L740" class="LineNr">740 </span> 68/push 0x2f/imm32 <span id="L741" class="LineNr">741 </span> <span class="subxS2Comment"># . . call</span> -<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L743" class="LineNr">743 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L744" class="LineNr">744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L745" class="LineNr">745 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -818,7 +818,7 @@ if ('onhashchange' in window) { <span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . push args</span> <span id="L759" class="LineNr">759 </span> 68/push 0x30/imm32 <span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . call</span> -<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L762" class="LineNr">762 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L763" class="LineNr">763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L764" class="LineNr">764 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -834,7 +834,7 @@ if ('onhashchange' in window) { <span id="L774" class="LineNr">774 </span> <span class="subxS2Comment"># . . push args</span> <span id="L775" class="LineNr">775 </span> 68/push 0x39/imm32 <span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> -<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -853,7 +853,7 @@ if ('onhashchange' in window) { <span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . push args</span> <span id="L794" class="LineNr">794 </span> 68/push 0x3a/imm32 <span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L797" class="LineNr">797 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L798" class="LineNr">798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L799" class="LineNr">799 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -872,7 +872,7 @@ if ('onhashchange' in window) { <span id="L812" class="LineNr">812 </span> <span class="subxS2Comment"># . . push args</span> <span id="L813" class="LineNr">813 </span> 68/push 0x61/imm32 <span id="L814" class="LineNr">814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L817" class="LineNr">817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L818" class="LineNr">818 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -888,7 +888,7 @@ if ('onhashchange' in window) { <span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . push args</span> <span id="L829" class="LineNr">829 </span> 68/push 0x66/imm32 <span id="L830" class="LineNr">830 </span> <span class="subxS2Comment"># . . call</span> -<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L832" class="LineNr">832 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L833" class="LineNr">833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L834" class="LineNr">834 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -907,7 +907,7 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr">847 </span> <span class="subxS2Comment"># . . push args</span> <span id="L848" class="LineNr">848 </span> 68/push 0x67/imm32 <span id="L849" class="LineNr">849 </span> <span class="subxS2Comment"># . . call</span> -<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L851" class="LineNr">851 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L852" class="LineNr">852 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L853" class="LineNr">853 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -972,7 +972,7 @@ if ('onhashchange' in window) { <span id="L912" class="LineNr">912 </span> 50/push-eax <span id="L913" class="LineNr">913 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L914" class="LineNr">914 </span> <span class="subxS2Comment"># . . call</span> -<span id="L915" class="LineNr">915 </span> e8/call <a href='117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 +<span id="L915" class="LineNr">915 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 <span id="L916" class="LineNr">916 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L917" class="LineNr">917 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L918" class="LineNr">918 </span> <span class="subxS1Comment"># . flush(Stderr)</span> diff --git a/html/119error-byte.subx.html b/html/119error-byte.subx.html index c228e7fe..24998c8d 100644 --- a/html/119error-byte.subx.html +++ b/html/119error-byte.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.SpecialChar { color: #d70000; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/120allocate.subx.html b/html/120allocate.subx.html index 5fa59237..5f36560b 100644 --- a/html/120allocate.subx.html +++ b/html/120allocate.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } diff --git a/html/121new-stream.subx.html b/html/121new-stream.subx.html index 376e4ae3..809c072b 100644 --- a/html/121new-stream.subx.html +++ b/html/121new-stream.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/122read-line.subx.html b/html/122read-line.subx.html index 1441842d..a609db74 100644 --- a/html/122read-line.subx.html +++ b/html/122read-line.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } diff --git a/html/123slice.subx.html b/html/123slice.subx.html index 1562e805..a4d46c61 100644 --- a/html/123slice.subx.html +++ b/html/123slice.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } .Constant { color: #008787; } @@ -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/124next-token.subx.html b/html/124next-token.subx.html index 0934f635..ce414f61 100644 --- a/html/124next-token.subx.html +++ b/html/124next-token.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/125write-stream-data.subx.html b/html/125write-stream-data.subx.html index b430402b..ac07c9ea 100644 --- a/html/125write-stream-data.subx.html +++ b/html/125write-stream-data.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> @@ -145,7 +145,7 @@ if ('onhashchange' in window) { <span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># write-stream-data(_test-output-buffered-file, _test-input-stream)</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> <span id="L88" class="LineNr"> 88 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L89" class="LineNr"> 89 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L89" class="LineNr"> 89 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . call</span> <span id="L91" class="LineNr"> 91 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . discard args</span> @@ -153,7 +153,7 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># check that the write happened as expected</span> <span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L97" class="LineNr"> 97 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L97" class="LineNr"> 97 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . call</span> <span id="L99" class="LineNr"> 99 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/126write-int-decimal.subx.html b/html/126write-int-decimal.subx.html index 3abbbbca..1b7c77af 100644 --- a/html/126write-int-decimal.subx.html +++ b/html/126write-int-decimal.subx.html @@ -16,12 +16,12 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } .Constant { color: #008787; } @@ -68,7 +68,7 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-int32-decimal</span>: <span class="subxComment"># out: (addr stream byte), n: int32</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-int32-decimal</span>: <span class="subxComment"># out: (addr stream byte), n: int</span> <span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># works by generating characters from lowest to highest and pushing them</span> <span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># to the stack, before popping them one by one into the stream</span> <span id="L11" class="LineNr"> 11 </span> <span class="subxComment">#</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">is-decimal-digit?</span>: <span class="subxComment"># c: byte -> result/eax: boolean</span> +<span id="L306" class="LineNr">306 </span><span class="subxFunction">is-decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> <span id="L307" class="LineNr">307 </span> <span class="subxS1Comment"># . prologue</span> <span id="L308" class="LineNr">308 </span> 55/push-ebp <span id="L309" class="LineNr">309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -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: byte -> out/eax: int</span> +<span id="L405" class="LineNr">405 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> <span id="L406" class="LineNr">406 </span> <span class="subxS1Comment"># . prologue</span> <span id="L407" class="LineNr">407 </span> 55/push-ebp <span id="L408" class="LineNr">408 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -478,7 +478,7 @@ if ('onhashchange' in window) { <span id="L440" class="LineNr">440 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L441" class="LineNr">441 </span> <span class="subxS2Comment"># . . call</span> <span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? e8/call write-byte-buffered/disp32</span> -<span id="L443" class="LineNr">443 </span> e8/call <a href='117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 +<span id="L443" class="LineNr">443 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 <span id="L444" class="LineNr">444 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L445" class="LineNr">445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L446" class="LineNr">446 </span> <span class="subxS1Comment"># . write-buffered(stderr, "\n")</span> diff --git a/html/127next-word.subx.html b/html/127next-word.subx.html index e7b79e9a..d672523b 100644 --- a/html/127next-word.subx.html +++ b/html/127next-word.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> @@ -79,236 +79,284 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> <span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># edi = out</span> <span id="L22" class="LineNr"> 22 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> <span id="L24" class="LineNr"> 24 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L25" class="LineNr"> 25 </span> 68/push 0x20/imm32/space -<span id="L26" class="LineNr"> 26 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . call</span> -<span id="L28" class="LineNr"> 28 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L30" class="LineNr"> 30 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L31" class="LineNr"> 31 </span><span class="Constant">$next-word:check0</span>: -<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> -<span id="L33" class="LineNr"> 33 </span> <span class="subxS1Comment"># . eax = line->read</span> -<span id="L34" class="LineNr"> 34 </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="L35" class="LineNr"> 35 </span> <span class="subxS1Comment"># . if (eax < line->write) goto next check</span> -<span id="L36" class="LineNr"> 36 </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="L37" class="LineNr"> 37 </span> 7c/jump-if-< $next-word:check-for-comment/disp8 -<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="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="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="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> 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="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . return</span> -<span id="L62" class="LineNr"> 62 </span> eb/jump $next-word:end/disp8 -<span id="L63" class="LineNr"> 63 </span><span class="Constant">$next-word:regular-word</span>: -<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># otherwise skip-chars-not-matching-whitespace(line) # including trailing newline</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L66" class="LineNr"> 66 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> -<span id="L68" class="LineNr"> 68 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L70" class="LineNr"> 70 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L72" class="LineNr"> 72 </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="L73" class="LineNr"> 73 </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="L74" class="LineNr"> 74 </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="L75" class="LineNr"> 75 </span><span class="Constant">$next-word:end</span>: -<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L77" class="LineNr"> 77 </span> 5f/pop-to-edi -<span id="L78" class="LineNr"> 78 </span> 5e/pop-to-esi -<span id="L79" class="LineNr"> 79 </span> 59/pop-to-ecx -<span id="L80" class="LineNr"> 80 </span> 58/pop-to-eax -<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L82" class="LineNr"> 82 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L83" class="LineNr"> 83 </span> 5d/pop-to-ebp -<span id="L84" class="LineNr"> 84 </span> c3/return -<span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="subxTest">test-next-word</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="subxComment"># setup</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L93" class="LineNr"> 93 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . call</span> -<span id="L95" class="LineNr"> 95 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L97" class="LineNr"> 97 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L99" class="LineNr"> 99 </span> 68/push 0/imm32/end -<span id="L100" class="LineNr">100 </span> 68/push 0/imm32/start -<span id="L101" class="LineNr">101 </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="L102" class="LineNr">102 </span> <span class="subxComment"># write(_test-stream, " ab")</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="Constant">" ab"</span>/imm32 -<span id="L105" class="LineNr">105 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L107" class="LineNr">107 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L109" class="LineNr">109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L110" class="LineNr">110 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L112" class="LineNr">112 </span> 51/push-ecx -<span id="L113" class="LineNr">113 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> -<span id="L119" class="LineNr">119 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L121" class="LineNr">121 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L86'>test-next-word</a>: start"</span>/imm32 -<span id="L122" class="LineNr">122 </span> 68/push 0xe/imm32 -<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> -<span id="L124" class="LineNr">124 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L125" class="LineNr">125 </span> 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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L126" class="LineNr">126 </span> 50/push-eax -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . call</span> -<span id="L128" class="LineNr">128 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L130" class="LineNr">130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L131" class="LineNr">131 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> -<span id="L132" class="LineNr">132 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 16, msg)</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L134" class="LineNr">134 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L86'>test-next-word</a>: end"</span>/imm32 -<span id="L135" class="LineNr">135 </span> 68/push 0x10/imm32 -<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> -<span id="L137" class="LineNr">137 </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="L138" class="LineNr">138 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L139" class="LineNr">139 </span> 50/push-eax -<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . call</span> -<span id="L141" class="LineNr">141 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L143" class="LineNr">143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L145" class="LineNr">145 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L146" class="LineNr">146 </span> 5d/pop-to-ebp -<span id="L147" class="LineNr">147 </span> c3/return -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span><span class="subxTest">test-next-word-returns-whole-comment</span>: -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L151" class="LineNr">151 </span> 55/push-ebp -<span id="L152" class="LineNr">152 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L153" class="LineNr">153 </span> <span class="subxComment"># setup</span> -<span id="L154" class="LineNr">154 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L156" class="LineNr">156 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L158" class="LineNr">158 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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="subxComment"># var slice/ecx: slice</span> -<span id="L162" class="LineNr">162 </span> 68/push 0/imm32/end -<span id="L163" class="LineNr">163 </span> 68/push 0/imm32/start -<span id="L164" class="LineNr">164 </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="L165" class="LineNr">165 </span> <span class="subxComment"># write(_test-stream, " # a")</span> -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L167" class="LineNr">167 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L168" class="LineNr">168 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . call</span> -<span id="L170" class="LineNr">170 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L172" class="LineNr">172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L173" class="LineNr">173 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L175" class="LineNr">175 </span> 51/push-ecx -<span id="L176" class="LineNr">176 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . call</span> -<span id="L178" class="LineNr">178 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L180" class="LineNr">180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L181" class="LineNr">181 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> -<span id="L182" class="LineNr">182 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L184" class="LineNr">184 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L149'>test-next-word-returns-whole-comment</a>: start"</span>/imm32 -<span id="L185" class="LineNr">185 </span> 68/push 0xe/imm32 -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> -<span id="L187" class="LineNr">187 </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="L188" class="LineNr">188 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L189" class="LineNr">189 </span> 50/push-eax -<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> -<span id="L191" class="LineNr">191 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L193" class="LineNr">193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L194" class="LineNr">194 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> -<span id="L195" class="LineNr">195 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 17, msg)</span> -<span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L197" class="LineNr">197 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L149'>test-next-word-returns-whole-comment</a>: end"</span>/imm32 -<span id="L198" class="LineNr">198 </span> 68/push 0x11/imm32 -<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> -<span id="L200" class="LineNr">200 </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="L201" class="LineNr">201 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L202" class="LineNr">202 </span> 50/push-eax -<span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . call</span> -<span id="L204" class="LineNr">204 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L206" class="LineNr">206 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L208" class="LineNr">208 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L209" class="LineNr">209 </span> 5d/pop-to-ebp -<span id="L210" class="LineNr">210 </span> c3/return -<span id="L211" class="LineNr">211 </span> -<span id="L212" class="LineNr">212 </span><span class="subxTest">test-next-word-returns-empty-string-on-eof</span>: -<span id="L213" class="LineNr">213 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L214" class="LineNr">214 </span> 55/push-ebp -<span id="L215" class="LineNr">215 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L216" class="LineNr">216 </span> <span class="subxComment"># setup</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L219" class="LineNr">219 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L221" class="LineNr">221 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L223" class="LineNr">223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L225" class="LineNr">225 </span> 68/push 0/imm32/end -<span id="L226" class="LineNr">226 </span> 68/push 0/imm32/start -<span id="L227" class="LineNr">227 </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="L228" class="LineNr">228 </span> <span class="subxComment"># write nothing to _test-stream</span> -<span id="L229" class="LineNr">229 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L231" class="LineNr">231 </span> 51/push-ecx -<span id="L232" class="LineNr">232 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 -<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . call</span> -<span id="L234" class="LineNr">234 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L236" class="LineNr">236 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L237" class="LineNr">237 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> -<span id="L238" class="LineNr">238 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L239" class="LineNr">239 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-eof"</span>/imm32 -<span id="L240" class="LineNr">240 </span> 68/push 0/imm32 -<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> -<span id="L242" class="LineNr">242 </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="L243" class="LineNr">243 </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="L244" class="LineNr">244 </span> 50/push-eax -<span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L246" class="LineNr">246 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L248" class="LineNr">248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L250" class="LineNr">250 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L251" class="LineNr">251 </span> 5d/pop-to-ebp -<span id="L252" class="LineNr">252 </span> c3/return +<span id="L25" class="LineNr"> 25 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L26" class="LineNr"> 26 </span> <span class="subxS2Comment"># . . call</span> +<span id="L27" class="LineNr"> 27 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L28" class="LineNr"> 28 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L29" class="LineNr"> 29 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L30" class="LineNr"> 30 </span><span class="Constant">$next-word:check0</span>: +<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> +<span id="L32" class="LineNr"> 32 </span> <span class="subxS1Comment"># . eax = line->read</span> +<span id="L33" class="LineNr"> 33 </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="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . if (eax < line->write) goto next check</span> +<span id="L35" class="LineNr"> 35 </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="L36" class="LineNr"> 36 </span> 7c/jump-if-< $next-word:check-for-comment/disp8 +<span id="L37" class="LineNr"> 37 </span> <span class="subxS1Comment"># . return out</span> +<span id="L38" class="LineNr"> 38 </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="L39" class="LineNr"> 39 </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="L40" class="LineNr"> 40 </span> eb/jump $next-word:end/disp8 +<span id="L41" class="LineNr"> 41 </span><span class="Constant">$next-word:check-for-comment</span>: +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L43" class="LineNr"> 43 </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="L44" class="LineNr"> 44 </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="L45" class="LineNr"> 45 </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="L46" class="LineNr"> 46 </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="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L48" class="LineNr"> 48 </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="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> <span class="subxS1Comment"># . compare</span> +<span id="L51" class="LineNr"> 51 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L52" class="LineNr"> 52 </span> 75/jump-if-!= $next-word:regular-word/disp8 +<span id="L53" class="LineNr"> 53 </span><span class="Constant">$next-word:comment</span>: +<span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . out->end = &line->data[line->write]</span> +<span id="L55" class="LineNr"> 55 </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="L56" class="LineNr"> 56 </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="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="subxS1Comment"># . line->read = line->write</span> +<span id="L59" class="LineNr"> 59 </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="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . return</span> +<span id="L61" class="LineNr"> 61 </span> eb/jump $next-word:end/disp8 +<span id="L62" class="LineNr"> 62 </span><span class="Constant">$next-word:regular-word</span>: +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># otherwise skip-chars-not-matching-whitespace(line) # including trailing newline</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . push args</span> +<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='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L71" class="LineNr"> 71 </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="L72" class="LineNr"> 72 </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="L73" class="LineNr"> 73 </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="L74" class="LineNr"> 74 </span><span class="Constant">$next-word:end</span>: +<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L76" class="LineNr"> 76 </span> 5f/pop-to-edi +<span id="L77" class="LineNr"> 77 </span> 5e/pop-to-esi +<span id="L78" class="LineNr"> 78 </span> 59/pop-to-ecx +<span id="L79" class="LineNr"> 79 </span> 58/pop-to-eax +<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L81" class="LineNr"> 81 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L82" class="LineNr"> 82 </span> 5d/pop-to-ebp +<span id="L83" class="LineNr"> 83 </span> c3/return +<span id="L84" class="LineNr"> 84 </span> +<span id="L85" class="LineNr"> 85 </span><span class="subxTest">test-next-word</span>: +<span id="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L87" class="LineNr"> 87 </span> 55/push-ebp +<span id="L88" class="LineNr"> 88 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># setup</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> +<span id="L94" class="LineNr"> 94 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L98" class="LineNr"> 98 </span> 68/push 0/imm32/end +<span id="L99" class="LineNr"> 99 </span> 68/push 0/imm32/start +<span id="L100" class="LineNr">100 </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="L101" class="LineNr">101 </span> <span class="subxComment"># write(_test-stream, " ab")</span> +<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L103" class="LineNr">103 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L104" class="LineNr">104 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . call</span> +<span id="L106" class="LineNr">106 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L108" class="LineNr">108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L109" class="LineNr">109 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L111" class="LineNr">111 </span> 51/push-ecx +<span id="L112" class="LineNr">112 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . call</span> +<span id="L114" class="LineNr">114 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L116" class="LineNr">116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> +<span id="L118" class="LineNr">118 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</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">"F - <a href='127next-word.subx.html#L85'>test-next-word</a>: start"</span>/imm32 +<span id="L121" class="LineNr">121 </span> 68/push 0xe/imm32 +<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> +<span id="L123" class="LineNr">123 </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="L124" class="LineNr">124 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L125" class="LineNr">125 </span> 50/push-eax +<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . call</span> +<span id="L127" class="LineNr">127 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L129" class="LineNr">129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L130" class="LineNr">130 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> +<span id="L131" class="LineNr">131 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 16, msg)</span> +<span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L133" class="LineNr">133 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L85'>test-next-word</a>: end"</span>/imm32 +<span id="L134" class="LineNr">134 </span> 68/push 0x10/imm32 +<span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> +<span id="L136" class="LineNr">136 </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="L137" class="LineNr">137 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L138" class="LineNr">138 </span> 50/push-eax +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L140" class="LineNr">140 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L144" class="LineNr">144 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L145" class="LineNr">145 </span> 5d/pop-to-ebp +<span id="L146" class="LineNr">146 </span> c3/return +<span id="L147" class="LineNr">147 </span> +<span id="L148" class="LineNr">148 </span><span class="subxTest">test-next-word-returns-whole-comment</span>: +<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L150" class="LineNr">150 </span> 55/push-ebp +<span id="L151" class="LineNr">151 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># setup</span> +<span id="L153" class="LineNr">153 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr">155 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . call</span> +<span id="L157" class="LineNr">157 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L159" class="LineNr">159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L161" class="LineNr">161 </span> 68/push 0/imm32/end +<span id="L162" class="LineNr">162 </span> 68/push 0/imm32/start +<span id="L163" class="LineNr">163 </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="L164" class="LineNr">164 </span> <span class="subxComment"># write(_test-stream, " # a")</span> +<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L166" class="LineNr">166 </span> 68/push <span class="Constant">" # a"</span>/imm32 +<span id="L167" class="LineNr">167 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . call</span> +<span id="L169" class="LineNr">169 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L171" class="LineNr">171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L172" class="LineNr">172 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L174" class="LineNr">174 </span> 51/push-ecx +<span id="L175" class="LineNr">175 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . call</span> +<span id="L177" class="LineNr">177 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L179" class="LineNr">179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L180" class="LineNr">180 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> +<span id="L181" class="LineNr">181 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L148'>test-next-word-returns-whole-comment</a>: start"</span>/imm32 +<span id="L184" class="LineNr">184 </span> 68/push 0xe/imm32 +<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> +<span id="L186" class="LineNr">186 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L187" class="LineNr">187 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L188" class="LineNr">188 </span> 50/push-eax +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L190" class="LineNr">190 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> +<span id="L194" class="LineNr">194 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 17, msg)</span> +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L148'>test-next-word-returns-whole-comment</a>: end"</span>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push 0x11/imm32 +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> +<span id="L199" class="LineNr">199 </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="L200" class="LineNr">200 </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#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L201" class="LineNr">201 </span> 50/push-eax +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> +<span id="L203" class="LineNr">203 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L206" class="LineNr">206 </span> <span class="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="subxTest">test-next-word-returns-empty-string-on-eof</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="subxComment"># setup</span> +<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L218" class="LineNr">218 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> +<span id="L220" class="LineNr">220 </span> e8/call <a href='106stream.subx.html#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"># var slice/ecx: slice</span> +<span id="L224" class="LineNr">224 </span> 68/push 0/imm32/end +<span id="L225" class="LineNr">225 </span> 68/push 0/imm32/start +<span id="L226" class="LineNr">226 </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="L227" class="LineNr">227 </span> <span class="subxComment"># write nothing to _test-stream</span> +<span id="L228" class="LineNr">228 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L230" class="LineNr">230 </span> 51/push-ecx +<span id="L231" class="LineNr">231 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . call</span> +<span id="L233" class="LineNr">233 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L235" class="LineNr">235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L236" class="LineNr">236 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L237" class="LineNr">237 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L238" class="LineNr">238 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-eof"</span>/imm32 +<span id="L239" class="LineNr">239 </span> 68/push 0/imm32 +<span id="L240" class="LineNr">240 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L241" class="LineNr">241 </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="L242" class="LineNr">242 </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="L243" class="LineNr">243 </span> 50/push-eax +<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> +<span id="L245" class="LineNr">245 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L248" class="LineNr">248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L249" class="LineNr">249 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L250" class="LineNr">250 </span> 5d/pop-to-ebp +<span id="L251" class="LineNr">251 </span> c3/return +<span id="L252" class="LineNr">252 </span> +<span id="L253" class="LineNr">253 </span><span class="subxTest">test-next-word-returns-empty-string-on-newline</span>: +<span id="L254" class="LineNr">254 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L255" class="LineNr">255 </span> 55/push-ebp +<span id="L256" class="LineNr">256 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L257" class="LineNr">257 </span> <span class="subxComment"># setup</span> +<span id="L258" class="LineNr">258 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L260" class="LineNr">260 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . call</span> +<span id="L262" class="LineNr">262 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L264" class="LineNr">264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L265" class="LineNr">265 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L266" class="LineNr">266 </span> 68/push 0/imm32/end +<span id="L267" class="LineNr">267 </span> 68/push 0/imm32/start +<span id="L268" class="LineNr">268 </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="L269" class="LineNr">269 </span> <span class="subxComment"># write some whitespace and a newline</span> +<span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L271" class="LineNr">271 </span> 68/push <span class="Constant">" \n"</span>/imm32 +<span id="L272" class="LineNr">272 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . call</span> +<span id="L274" class="LineNr">274 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L276" class="LineNr">276 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L277" class="LineNr">277 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L279" class="LineNr">279 </span> 51/push-ecx +<span id="L280" class="LineNr">280 </span> 68/push <a href='108write.subx.html#L148'>_test-stream</a>/imm32 +<span id="L281" class="LineNr">281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L282" class="LineNr">282 </span> e8/call <a href='127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L284" class="LineNr">284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L285" class="LineNr">285 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L287" class="LineNr">287 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-newline"</span>/imm32 +<span id="L288" class="LineNr">288 </span> 68/push 0/imm32 +<span id="L289" class="LineNr">289 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L290" class="LineNr">290 </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="L291" class="LineNr">291 </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="L292" class="LineNr">292 </span> 50/push-eax +<span id="L293" class="LineNr">293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L294" class="LineNr">294 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L296" class="LineNr">296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L297" class="LineNr">297 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L298" class="LineNr">298 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L299" class="LineNr">299 </span> 5d/pop-to-ebp +<span id="L300" class="LineNr">300 </span> c3/return </pre> </body> </html> diff --git a/html/128subx-words.subx.html b/html/128subx-words.subx.html index 1545aefb..ae547435 100644 --- a/html/128subx-words.subx.html +++ b/html/128subx-words.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/129emit-hex.subx.html b/html/129emit-hex.subx.html index 331cd4eb..ad83ec68 100644 --- a/html/129emit-hex.subx.html +++ b/html/129emit-hex.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> @@ -139,14 +139,14 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . push args</span> <span id="L81" class="LineNr"> 81 </span> 68/push 1/imm32 <span id="L82" class="LineNr"> 82 </span> 68/push 0xab/imm32 -<span id="L83" class="LineNr"> 83 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L83" class="LineNr"> 83 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . call</span> <span id="L85" class="LineNr"> 85 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L87" class="LineNr"> 87 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L90" class="LineNr"> 90 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L90" class="LineNr"> 90 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . call</span> <span id="L92" class="LineNr"> 92 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . discard args</span> @@ -185,14 +185,14 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push args</span> <span id="L127" class="LineNr">127 </span> 68/push 2/imm32 <span id="L128" class="LineNr">128 </span> 68/push 0x1234/imm32 -<span id="L129" class="LineNr">129 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L129" class="LineNr">129 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . call</span> <span id="L131" class="LineNr">131 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L133" class="LineNr">133 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L134" class="LineNr">134 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L136" class="LineNr">136 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L136" class="LineNr">136 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> <span id="L138" class="LineNr">138 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> @@ -229,14 +229,14 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . push args</span> <span id="L171" class="LineNr">171 </span> 68/push 2/imm32 <span id="L172" class="LineNr">172 </span> 68/push 0xab/imm32 -<span id="L173" class="LineNr">173 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L173" class="LineNr">173 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> <span id="L175" class="LineNr">175 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L178" class="LineNr">178 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr">180 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L180" class="LineNr">180 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . call</span> <span id="L182" class="LineNr">182 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . discard args</span> @@ -273,14 +273,14 @@ if ('onhashchange' in window) { <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . push args</span> <span id="L215" class="LineNr">215 </span> 68/push 2/imm32 <span id="L216" class="LineNr">216 </span> 68/push -1/imm32 -<span id="L217" class="LineNr">217 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L217" class="LineNr">217 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . call</span> <span id="L219" class="LineNr">219 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L221" class="LineNr">221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L222" class="LineNr">222 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L224" class="LineNr">224 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L224" class="LineNr">224 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . call</span> <span id="L226" class="LineNr">226 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/130emit.subx.html b/html/130emit.subx.html index a9d8342e..dedfd1f0 100644 --- a/html/130emit.subx.html +++ b/html/130emit.subx.html @@ -16,14 +16,14 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } --> </style> @@ -133,7 +133,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> <span class="subxS2Comment"># . . push args</span> <span id="L73" class="LineNr"> 73 </span> 57/push-edi <span id="L74" class="LineNr"> 74 </span> <span class="subxS2Comment"># . . call</span> -<span id="L75" class="LineNr"> 75 </span> e8/call <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L75" class="LineNr"> 75 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L77" class="LineNr"> 77 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . emit-hex(out, value, width)</span> @@ -189,14 +189,14 @@ if ('onhashchange' in window) { <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . push args</span> <span id="L129" class="LineNr">129 </span> 68/push 1/imm32 <span id="L130" class="LineNr">130 </span> 51/push-ecx -<span id="L131" class="LineNr">131 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L131" class="LineNr">131 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . call</span> <span id="L133" class="LineNr">133 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L135" class="LineNr">135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L136" class="LineNr">136 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L138" class="LineNr">138 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L138" class="LineNr">138 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> <span id="L140" class="LineNr">140 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> @@ -248,14 +248,14 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> <span id="L188" class="LineNr">188 </span> 68/push 2/imm32 <span id="L189" class="LineNr">189 </span> 51/push-ecx -<span id="L190" class="LineNr">190 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L190" class="LineNr">190 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . call</span> <span id="L192" class="LineNr">192 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L194" class="LineNr">194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L195" class="LineNr">195 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L197" class="LineNr">197 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> <span id="L199" class="LineNr">199 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> @@ -306,14 +306,14 @@ if ('onhashchange' in window) { <span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . push args</span> <span id="L246" class="LineNr">246 </span> 68/push 2/imm32 <span id="L247" class="LineNr">247 </span> 51/push-ecx -<span id="L248" class="LineNr">248 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L248" class="LineNr">248 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L249" class="LineNr">249 </span> <span class="subxS2Comment"># . . call</span> <span id="L250" class="LineNr">250 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L251" class="LineNr">251 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L252" class="LineNr">252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L253" class="LineNr">253 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L255" class="LineNr">255 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L255" class="LineNr">255 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L256" class="LineNr">256 </span> <span class="subxS2Comment"># . . call</span> <span id="L257" class="LineNr">257 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . discard args</span> @@ -365,14 +365,14 @@ if ('onhashchange' in window) { <span id="L304" class="LineNr">304 </span> <span class="subxS2Comment"># . . push args</span> <span id="L305" class="LineNr">305 </span> 68/push 2/imm32 <span id="L306" class="LineNr">306 </span> 51/push-ecx -<span id="L307" class="LineNr">307 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L307" class="LineNr">307 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . call</span> <span id="L309" class="LineNr">309 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L310" class="LineNr">310 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L311" class="LineNr">311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L312" class="LineNr">312 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L313" class="LineNr">313 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L314" class="LineNr">314 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L314" class="LineNr">314 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L315" class="LineNr">315 </span> <span class="subxS2Comment"># . . call</span> <span id="L316" class="LineNr">316 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L317" class="LineNr">317 </span> <span class="subxS2Comment"># . . discard args</span> @@ -423,14 +423,14 @@ if ('onhashchange' in window) { <span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . push args</span> <span id="L363" class="LineNr">363 </span> 68/push 2/imm32 <span id="L364" class="LineNr">364 </span> 51/push-ecx -<span id="L365" class="LineNr">365 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L365" class="LineNr">365 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . call</span> <span id="L367" class="LineNr">367 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L368" class="LineNr">368 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L369" class="LineNr">369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L370" class="LineNr">370 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L372" class="LineNr">372 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L372" class="LineNr">372 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . call</span> <span id="L374" class="LineNr">374 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . discard args</span> @@ -481,19 +481,19 @@ if ('onhashchange' in window) { <span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . push args</span> <span id="L421" class="LineNr">421 </span> 68/push 2/imm32 <span id="L422" class="LineNr">422 </span> 51/push-ecx -<span id="L423" class="LineNr">423 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L423" class="LineNr">423 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . call</span> <span id="L425" class="LineNr">425 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L426" class="LineNr">426 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L427" class="LineNr">427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L428" class="LineNr">428 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L429" class="LineNr">429 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L430" class="LineNr">430 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L430" class="LineNr">430 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L431" class="LineNr">431 </span> <span class="subxS2Comment"># . . call</span> <span id="L432" class="LineNr">432 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . discard args</span> <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/131table.subx.html b/html/131table.subx.html index 719b91b3..accb82cd 100644 --- a/html/131table.subx.html +++ b/html/131table.subx.html @@ -16,14 +16,14 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } --> </style> @@ -1507,7 +1507,7 @@ if ('onhashchange' in window) { <span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># setup</span> <span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . call</span> <span id="L1451" class="LineNr">1451 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1552,7 +1552,7 @@ if ('onhashchange' in window) { <span id="L1491" class="LineNr">1491 </span> <span class="subxComment"># eax = get-or-stop(table, "code", row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1492" class="LineNr">1492 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1493" class="LineNr">1493 </span> 52/push-edx/ed -<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1495" class="LineNr">1495 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1496" class="LineNr">1496 </span> 68/push 0xc/imm32/row-size <span id="L1497" class="LineNr">1497 </span> 68/push <span class="Constant">"code"</span>/imm32 @@ -1577,7 +1577,7 @@ if ('onhashchange' in window) { <span id="L1516" class="LineNr">1516 </span> <span class="subxComment"># eax = get-or-stop(table, "data", row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1518" class="LineNr">1518 </span> 52/push-edx/ed -<span id="L1519" class="LineNr">1519 </span> 68/push <a href='115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1519" class="LineNr">1519 </span> 68/push <a href='115write-byte.subx.html#L454'>_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 @@ -1733,7 +1733,7 @@ if ('onhashchange' in window) { <span id="L1672" class="LineNr">1672 </span> <span class="subxComment"># setup</span> <span id="L1673" class="LineNr">1673 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1674" class="LineNr">1674 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1675" class="LineNr">1675 </span> 68/push <a href='115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L1675" class="LineNr">1675 </span> 68/push <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . call</span> <span id="L1677" class="LineNr">1677 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1788,7 +1788,7 @@ if ('onhashchange' in window) { <span id="L1727" class="LineNr">1727 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1728" class="LineNr">1728 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1729" class="LineNr">1729 </span> 52/push-edx/ed -<span id="L1730" class="LineNr">1730 </span> 68/push <a href='115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1730" class="LineNr">1730 </span> 68/push <a href='115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1731" class="LineNr">1731 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1732" class="LineNr">1732 </span> 68/push 0xc/imm32/row-size <span id="L1733" class="LineNr">1733 </span> 53/push-ebx/slice @@ -1825,7 +1825,7 @@ if ('onhashchange' in window) { <span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1766" class="LineNr">1766 </span> 52/push-edx/ed -<span id="L1767" class="LineNr">1767 </span> 68/push <a href='115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1767" class="LineNr">1767 </span> 68/push <a href='115write-byte.subx.html#L454'>_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 diff --git a/html/132slurp.subx.html b/html/132slurp.subx.html index da177274..fc814d5a 100644 --- a/html/132slurp.subx.html +++ b/html/132slurp.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/133subx-widths.subx.html b/html/133subx-widths.subx.html index 706c43ca..da52fa66 100644 --- a/html/133subx-widths.subx.html +++ b/html/133subx-widths.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/134emit-hex-array.subx.html b/html/134emit-hex-array.subx.html index 9ee3dbbd..6753ac54 100644 --- a/html/134emit-hex-array.subx.html +++ b/html/134emit-hex-array.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } .Constant { color: #008787; } @@ -138,19 +138,19 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># emit-hex-array(_test-output-buffered-file, arr)</span> <span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . push args</span> <span id="L80" class="LineNr"> 80 </span> 51/push-ecx -<span id="L81" class="LineNr"> 81 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L81" class="LineNr"> 81 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> <span id="L83" class="LineNr"> 83 </span> e8/call <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L85" class="LineNr"> 85 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L88" class="LineNr"> 88 </span> 68/push <a href='115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L88" class="LineNr"> 88 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> <span id="L90" class="LineNr"> 90 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> <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/135next-word-or-string.subx.html b/html/135next-word-or-string.subx.html index 6e2dca0e..c3aac6e4 100644 --- a/html/135next-word-or-string.subx.html +++ b/html/135next-word-or-string.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/201register-names.subx.html b/html/201register-names.subx.html index 02f21c25..59c05d56 100644 --- a/html/201register-names.subx.html +++ b/html/201register-names.subx.html @@ -56,9 +56,9 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span>== data <span id="L2" class="LineNr"> 2 </span><span class="SpecialChar">Registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> <span id="L3" class="LineNr"> 3 </span> <span class="subxComment"># a table is a stream</span> -<span id="L4" class="LineNr"> 4 </span> 0xc0/imm32/write +<span id="L4" class="LineNr"> 4 </span> 0x120/imm32/write <span id="L5" class="LineNr"> 5 </span> 0/imm32/read -<span id="L6" class="LineNr"> 6 </span> 0xc0/imm32/length +<span id="L6" class="LineNr"> 6 </span> 0x120/imm32/length <span id="L7" class="LineNr"> 7 </span> <span class="subxComment"># data</span> <span id="L8" class="LineNr"> 8 </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="L9" class="LineNr"> 9 </span> 0x11/imm32/alloc-id $Register-eax/imm32 0/imm32 @@ -79,86 +79,144 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> 0x11/imm32/alloc-id $Register-ch/imm32 5/imm32 <span id="L25" class="LineNr"> 25 </span> 0x11/imm32/alloc-id $Register-dh/imm32 6/imm32 <span id="L26" class="LineNr"> 26 </span> 0x11/imm32/alloc-id $Register-bh/imm32 7/imm32 -<span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span><span class="Constant">$Register-eax</span>: -<span id="L29" class="LineNr"> 29 </span> 0x11/imm32/alloc-id -<span id="L30" class="LineNr"> 30 </span> 3/imm32/size -<span id="L31" class="LineNr"> 31 </span> 0x65/e 0x61/a 0x78/x -<span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="Constant">$Register-ecx</span>: -<span id="L34" class="LineNr"> 34 </span> 0x11/imm32/alloc-id -<span id="L35" class="LineNr"> 35 </span> 3/imm32/size -<span id="L36" class="LineNr"> 36 </span> 0x65/e 0x63/c 0x78/x +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># for floating-point registers</span> +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># we don't actually check if these are used when they should be; be careful</span> +<span id="L29" class="LineNr"> 29 </span> 0x11/imm32/alloc-id $Register-xmm0/imm32 0/imm32 +<span id="L30" class="LineNr"> 30 </span> 0x11/imm32/alloc-id $Register-xmm1/imm32 1/imm32 +<span id="L31" class="LineNr"> 31 </span> 0x11/imm32/alloc-id $Register-xmm2/imm32 2/imm32 +<span id="L32" class="LineNr"> 32 </span> 0x11/imm32/alloc-id $Register-xmm3/imm32 3/imm32 +<span id="L33" class="LineNr"> 33 </span> 0x11/imm32/alloc-id $Register-xmm4/imm32 4/imm32 +<span id="L34" class="LineNr"> 34 </span> 0x11/imm32/alloc-id $Register-xmm5/imm32 5/imm32 +<span id="L35" class="LineNr"> 35 </span> 0x11/imm32/alloc-id $Register-xmm6/imm32 6/imm32 +<span id="L36" class="LineNr"> 36 </span> 0x11/imm32/alloc-id $Register-xmm7/imm32 7/imm32 <span id="L37" class="LineNr"> 37 </span> -<span id="L38" class="LineNr"> 38 </span><span class="Constant">$Register-edx</span>: +<span id="L38" class="LineNr"> 38 </span><span class="Constant">$Register-eax</span>: <span id="L39" class="LineNr"> 39 </span> 0x11/imm32/alloc-id <span id="L40" class="LineNr"> 40 </span> 3/imm32/size -<span id="L41" class="LineNr"> 41 </span> 0x65/e 0x64/d 0x78/x +<span id="L41" class="LineNr"> 41 </span> 0x65/e 0x61/a 0x78/x <span id="L42" class="LineNr"> 42 </span> -<span id="L43" class="LineNr"> 43 </span><span class="Constant">$Register-ebx</span>: +<span id="L43" class="LineNr"> 43 </span><span class="Constant">$Register-ecx</span>: <span id="L44" class="LineNr"> 44 </span> 0x11/imm32/alloc-id <span id="L45" class="LineNr"> 45 </span> 3/imm32/size -<span id="L46" class="LineNr"> 46 </span> 0x65/e 0x62/b 0x78/x +<span id="L46" class="LineNr"> 46 </span> 0x65/e 0x63/c 0x78/x <span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span><span class="Constant">$Register-esp</span>: +<span id="L48" class="LineNr"> 48 </span><span class="Constant">$Register-edx</span>: <span id="L49" class="LineNr"> 49 </span> 0x11/imm32/alloc-id <span id="L50" class="LineNr"> 50 </span> 3/imm32/size -<span id="L51" class="LineNr"> 51 </span> 0x65/e 0x73/s 0x70/p +<span id="L51" class="LineNr"> 51 </span> 0x65/e 0x64/d 0x78/x <span id="L52" class="LineNr"> 52 </span> -<span id="L53" class="LineNr"> 53 </span><span class="Constant">$Register-ebp</span>: +<span id="L53" class="LineNr"> 53 </span><span class="Constant">$Register-ebx</span>: <span id="L54" class="LineNr"> 54 </span> 0x11/imm32/alloc-id <span id="L55" class="LineNr"> 55 </span> 3/imm32/size -<span id="L56" class="LineNr"> 56 </span> 0x65/e 0x62/b 0x70/p +<span id="L56" class="LineNr"> 56 </span> 0x65/e 0x62/b 0x78/x <span id="L57" class="LineNr"> 57 </span> -<span id="L58" class="LineNr"> 58 </span><span class="Constant">$Register-esi</span>: +<span id="L58" class="LineNr"> 58 </span><span class="Constant">$Register-esp</span>: <span id="L59" class="LineNr"> 59 </span> 0x11/imm32/alloc-id <span id="L60" class="LineNr"> 60 </span> 3/imm32/size -<span id="L61" class="LineNr"> 61 </span> 0x65/e 0x73/s 0x69/i +<span id="L61" class="LineNr"> 61 </span> 0x65/e 0x73/s 0x70/p <span id="L62" class="LineNr"> 62 </span> -<span id="L63" class="LineNr"> 63 </span><span class="Constant">$Register-edi</span>: +<span id="L63" class="LineNr"> 63 </span><span class="Constant">$Register-ebp</span>: <span id="L64" class="LineNr"> 64 </span> 0x11/imm32/alloc-id <span id="L65" class="LineNr"> 65 </span> 3/imm32/size -<span id="L66" class="LineNr"> 66 </span> 0x65/e 0x64/d 0x69/i +<span id="L66" class="LineNr"> 66 </span> 0x65/e 0x62/b 0x70/p <span id="L67" class="LineNr"> 67 </span> -<span id="L68" class="LineNr"> 68 </span><span class="Constant">$Register-al</span>: +<span id="L68" class="LineNr"> 68 </span><span class="Constant">$Register-esi</span>: <span id="L69" class="LineNr"> 69 </span> 0x11/imm32/alloc-id -<span id="L70" class="LineNr"> 70 </span> 2/imm32/size -<span id="L71" class="LineNr"> 71 </span> 0x61/a 0x6c/l +<span id="L70" class="LineNr"> 70 </span> 3/imm32/size +<span id="L71" class="LineNr"> 71 </span> 0x65/e 0x73/s 0x69/i <span id="L72" class="LineNr"> 72 </span> -<span id="L73" class="LineNr"> 73 </span><span class="Constant">$Register-cl</span>: +<span id="L73" class="LineNr"> 73 </span><span class="Constant">$Register-edi</span>: <span id="L74" class="LineNr"> 74 </span> 0x11/imm32/alloc-id -<span id="L75" class="LineNr"> 75 </span> 2/imm32/size -<span id="L76" class="LineNr"> 76 </span> 0x63/c 0x6c/l +<span id="L75" class="LineNr"> 75 </span> 3/imm32/size +<span id="L76" class="LineNr"> 76 </span> 0x65/e 0x64/d 0x69/i <span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="Constant">$Register-dl</span>: +<span id="L78" class="LineNr"> 78 </span><span class="Constant">$Register-al</span>: <span id="L79" class="LineNr"> 79 </span> 0x11/imm32/alloc-id <span id="L80" class="LineNr"> 80 </span> 2/imm32/size -<span id="L81" class="LineNr"> 81 </span> 0x64/d 0x6c/l +<span id="L81" class="LineNr"> 81 </span> 0x61/a 0x6c/l <span id="L82" class="LineNr"> 82 </span> -<span id="L83" class="LineNr"> 83 </span><span class="Constant">$Register-bl</span>: +<span id="L83" class="LineNr"> 83 </span><span class="Constant">$Register-cl</span>: <span id="L84" class="LineNr"> 84 </span> 0x11/imm32/alloc-id <span id="L85" class="LineNr"> 85 </span> 2/imm32/size -<span id="L86" class="LineNr"> 86 </span> 0x62/b 0x6c/l +<span id="L86" class="LineNr"> 86 </span> 0x63/c 0x6c/l <span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="Constant">$Register-ah</span>: +<span id="L88" class="LineNr"> 88 </span><span class="Constant">$Register-dl</span>: <span id="L89" class="LineNr"> 89 </span> 0x11/imm32/alloc-id <span id="L90" class="LineNr"> 90 </span> 2/imm32/size -<span id="L91" class="LineNr"> 91 </span> 0x61/a 0x68/h +<span id="L91" class="LineNr"> 91 </span> 0x64/d 0x6c/l <span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="Constant">$Register-ch</span>: +<span id="L93" class="LineNr"> 93 </span><span class="Constant">$Register-bl</span>: <span id="L94" class="LineNr"> 94 </span> 0x11/imm32/alloc-id <span id="L95" class="LineNr"> 95 </span> 2/imm32/size -<span id="L96" class="LineNr"> 96 </span> 0x63/c 0x68/h +<span id="L96" class="LineNr"> 96 </span> 0x62/b 0x6c/l <span id="L97" class="LineNr"> 97 </span> -<span id="L98" class="LineNr"> 98 </span><span class="Constant">$Register-dh</span>: +<span id="L98" class="LineNr"> 98 </span><span class="Constant">$Register-ah</span>: <span id="L99" class="LineNr"> 99 </span> 0x11/imm32/alloc-id <span id="L100" class="LineNr">100 </span> 2/imm32/size -<span id="L101" class="LineNr">101 </span> 0x64/d 0x68/h +<span id="L101" class="LineNr">101 </span> 0x61/a 0x68/h <span id="L102" class="LineNr">102 </span> -<span id="L103" class="LineNr">103 </span><span class="Constant">$Register-bh</span>: +<span id="L103" class="LineNr">103 </span><span class="Constant">$Register-ch</span>: <span id="L104" class="LineNr">104 </span> 0x11/imm32/alloc-id <span id="L105" class="LineNr">105 </span> 2/imm32/size -<span id="L106" class="LineNr">106 </span> 0x62/b 0x68/h +<span id="L106" class="LineNr">106 </span> 0x63/c 0x68/h +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="Constant">$Register-dh</span>: +<span id="L109" class="LineNr">109 </span> 0x11/imm32/alloc-id +<span id="L110" class="LineNr">110 </span> 2/imm32/size +<span id="L111" class="LineNr">111 </span> 0x64/d 0x68/h +<span id="L112" class="LineNr">112 </span> +<span id="L113" class="LineNr">113 </span><span class="Constant">$Register-bh</span>: +<span id="L114" class="LineNr">114 </span> 0x11/imm32/alloc-id +<span id="L115" class="LineNr">115 </span> 2/imm32/size +<span id="L116" class="LineNr">116 </span> 0x62/b 0x68/h +<span id="L117" class="LineNr">117 </span> +<span id="L118" class="LineNr">118 </span><span class="Constant">$Register-xmm0</span>: +<span id="L119" class="LineNr">119 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L120" class="LineNr">120 </span> <span class="subxComment"># "xmm0"</span> +<span id="L121" class="LineNr">121 </span> 0x4/imm32/size +<span id="L122" class="LineNr">122 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L123" class="LineNr">123 </span> +<span id="L124" class="LineNr">124 </span><span class="Constant">$Register-xmm1</span>: +<span id="L125" class="LineNr">125 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L126" class="LineNr">126 </span> <span class="subxComment"># "xmm1"</span> +<span id="L127" class="LineNr">127 </span> 0x4/imm32/size +<span id="L128" class="LineNr">128 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L129" class="LineNr">129 </span> +<span id="L130" class="LineNr">130 </span><span class="Constant">$Register-xmm2</span>: +<span id="L131" class="LineNr">131 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># "xmm2"</span> +<span id="L133" class="LineNr">133 </span> 0x4/imm32/size +<span id="L134" class="LineNr">134 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="Constant">$Register-xmm3</span>: +<span id="L137" class="LineNr">137 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L138" class="LineNr">138 </span> <span class="subxComment"># "xmm3"</span> +<span id="L139" class="LineNr">139 </span> 0x4/imm32/size +<span id="L140" class="LineNr">140 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L141" class="LineNr">141 </span> +<span id="L142" class="LineNr">142 </span><span class="Constant">$Register-xmm4</span>: +<span id="L143" class="LineNr">143 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L144" class="LineNr">144 </span> <span class="subxComment"># "xmm4"</span> +<span id="L145" class="LineNr">145 </span> 0x4/imm32/size +<span id="L146" class="LineNr">146 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L147" class="LineNr">147 </span> +<span id="L148" class="LineNr">148 </span><span class="Constant">$Register-xmm5</span>: +<span id="L149" class="LineNr">149 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L150" class="LineNr">150 </span> <span class="subxComment"># "xmm5"</span> +<span id="L151" class="LineNr">151 </span> 0x4/imm32/size +<span id="L152" class="LineNr">152 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="Constant">$Register-xmm6</span>: +<span id="L155" class="LineNr">155 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># "xmm6"</span> +<span id="L157" class="LineNr">157 </span> 0x4/imm32/size +<span id="L158" class="LineNr">158 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L159" class="LineNr">159 </span> +<span id="L160" class="LineNr">160 </span><span class="Constant">$Register-xmm7</span>: +<span id="L161" class="LineNr">161 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L162" class="LineNr">162 </span> <span class="subxComment"># "xmm7"</span> +<span id="L163" class="LineNr">163 </span> 0x4/imm32/size +<span id="L164" class="LineNr">164 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 </pre> </body> </html> diff --git a/html/202write-int.subx.html b/html/202write-int.subx.html index 89204fbc..ec2feaa3 100644 --- a/html/202write-int.subx.html +++ b/html/202write-int.subx.html @@ -16,10 +16,10 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } diff --git a/html/203stack.subx.html b/html/203stack.subx.html index b32c4143..b378a982 100644 --- a/html/203stack.subx.html +++ b/html/203stack.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } --> diff --git a/html/301array-equal.subx.html b/html/301array-equal.subx.html index 7eaf513d..b3e8d84f 100644 --- a/html/301array-equal.subx.html +++ b/html/301array-equal.subx.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> @@ -318,7 +318,7 @@ if ('onhashchange' in window) { <span id="L258" class="LineNr">258 </span> (<a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> <span id="L259" class="LineNr">259 </span> 89/<- *(edi+4) 0/r32/eax <span id="L260" class="LineNr">260 </span> <span class="subxComment"># *curr = parse-hex-int-from-slice(slice)</span> -<span id="L261" class="LineNr">261 </span> (<a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a> %edi) +<span id="L261" class="LineNr">261 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %edi) <span id="L262" class="LineNr">262 </span> 89/<- *ecx 0/r32/eax <span id="L263" class="LineNr">263 </span> <span class="subxComment"># curr += 4</span> <span id="L264" class="LineNr">264 </span> 81 0/subop/add %ecx 4/imm32 diff --git a/html/302stack_allocate.subx.html b/html/302stack_allocate.subx.html index 1029ffb0..a435adda 100644 --- a/html/302stack_allocate.subx.html +++ b/html/302stack_allocate.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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/303kernel-string.subx.html b/html/303kernel-string.subx.html index f03dd4c9..63c78ae3 100644 --- a/html/303kernel-string.subx.html +++ b/html/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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/304screen.subx.html b/html/304screen.subx.html index 665f3a91..7a756daf 100644 --- a/html/304screen.subx.html +++ b/html/304screen.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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } --> @@ -69,7 +69,7 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </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="L12" class="LineNr"> 12 </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="L13" class="LineNr"> 13 </span> <span class="subxComment"># switch to second screen buffer</span> -<span id="L14" class="LineNr"> 14 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) +<span id="L14" class="LineNr"> 14 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) <span id="L15" class="LineNr"> 15 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?1049h"</span>) <span id="L16" class="LineNr"> 16 </span> <span class="subxComment">#</span> <span id="L17" class="LineNr"> 17 </span> (<a href='304screen.subx.html#L75'>clear-real-screen</a>) @@ -84,7 +84,7 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> 55/push-ebp <span id="L27" class="LineNr"> 27 </span> 89/<- %ebp 4/r32/esp <span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># switch to first screen buffer</span> -<span id="L29" class="LineNr"> 29 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) +<span id="L29" class="LineNr"> 29 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) <span id="L30" class="LineNr"> 30 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?1049l"</span>) <span id="L31" class="LineNr"> 31 </span><span class="Constant">$enable-screen-type-mode:end</span>: <span id="L32" class="LineNr"> 32 </span> <span class="subxS1Comment"># . epilogue</span> @@ -102,7 +102,7 @@ if ('onhashchange' in window) { <span id="L44" class="LineNr"> 44 </span> 56/push-esi <span id="L45" class="LineNr"> 45 </span> 57/push-edi <span id="L46" class="LineNr"> 46 </span> <span class="subxComment">#</span> -<span id="L47" class="LineNr"> 47 </span> (<a href='304screen.subx.html#L361'>_maybe-open-terminal</a>) +<span id="L47" class="LineNr"> 47 </span> (<a href='304screen.subx.html#L424'>_maybe-open-terminal</a>) <span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># var window-size-info/esi: (addr winsize)</span> <span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># winsize is a type from the Linux kernel. We don't care how large it is.</span> <span id="L50" class="LineNr"> 50 </span> 81 5/subop/subtract %esp 0x40/imm32 @@ -110,7 +110,7 @@ if ('onhashchange' in window) { <span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># ioctl(*Terminal-file-descriptor, TIOCGWINSZ, window-size-info)</span> <span id="L53" class="LineNr"> 53 </span> 89/<- %edx 6/r32/esi <span id="L54" class="LineNr"> 54 </span> b9/copy-to-ecx 0x5413/imm32/TIOCGWINSZ -<span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 3/r32/ebx +<span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx <span id="L56" class="LineNr"> 56 </span> e8/call syscall_ioctl/disp32 <span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># some bitworking to extract 2 16-bit shorts</span> <span id="L58" class="LineNr"> 58 </span> 8b/-> *esi 0/r32/eax @@ -135,9 +135,9 @@ if ('onhashchange' in window) { <span id="L77" class="LineNr"> 77 </span> 55/push-ebp <span id="L78" class="LineNr"> 78 </span> 89/<- %ebp 4/r32/esp <span id="L79" class="LineNr"> 79 </span> <span class="subxComment">#</span> -<span id="L80" class="LineNr"> 80 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) +<span id="L80" class="LineNr"> 80 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) <span id="L81" class="LineNr"> 81 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[H"</span>) -<span id="L82" class="LineNr"> 82 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) +<span id="L82" class="LineNr"> 82 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) <span id="L83" class="LineNr"> 83 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[2J"</span>) <span id="L84" class="LineNr"> 84 </span><span class="Constant">$clear-real-screen:end</span>: <span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . epilogue</span> @@ -159,7 +159,7 @@ if ('onhashchange' in window) { <span id="L101" class="LineNr">101 </span> 68/push 0/imm32/write <span id="L102" class="LineNr">102 </span> 89/<- %ecx 4/r32/esp <span id="L103" class="LineNr">103 </span> <span class="subxComment"># construct directive in buf</span> -<span id="L104" class="LineNr">104 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) +<span id="L104" class="LineNr">104 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) <span id="L105" class="LineNr">105 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"["</span>) <span id="L106" class="LineNr">106 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+8)) <span id="L107" class="LineNr">107 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">";"</span>) @@ -189,267 +189,330 @@ if ('onhashchange' in window) { <span id="L131" class="LineNr">131 </span> 5d/pop-to-ebp <span id="L132" class="LineNr">132 </span> c3/return <span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="subxFunction">print-stream-to-real-screen</span>: <span class="subxComment"># s: (addr stream byte)</span> +<span id="L134" class="LineNr">134 </span><span class="subxFunction">print-slice-to-real-screen</span>: <span class="subxComment"># s: (addr slice)</span> <span id="L135" class="LineNr">135 </span> <span class="subxS1Comment"># . prologue</span> <span id="L136" class="LineNr">136 </span> 55/push-ebp <span id="L137" class="LineNr">137 </span> 89/<- %ebp 4/r32/esp <span id="L138" class="LineNr">138 </span> <span class="subxComment">#</span> -<span id="L139" class="LineNr">139 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) +<span id="L139" class="LineNr">139 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) <span id="L140" class="LineNr">140 </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="L141" class="LineNr">141 </span><span class="Constant">$print-stream-to-real-screen:end</span>: +<span id="L141" class="LineNr">141 </span><span class="Constant">$print-slice-to-real-screen:end</span>: <span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L143" class="LineNr">143 </span> 89/<- %esp 5/r32/ebp <span id="L144" class="LineNr">144 </span> 5d/pop-to-ebp <span id="L145" class="LineNr">145 </span> c3/return <span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="subxComment"># print a grapheme in utf-8 (only up to 4 bytes so far)</span> -<span id="L148" class="LineNr">148 </span><span class="subxFunction">print-grapheme-to-real-screen</span>: <span class="subxComment"># c: grapheme</span> -<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L150" class="LineNr">150 </span> 55/push-ebp -<span id="L151" class="LineNr">151 </span> 89/<- %ebp 4/r32/esp -<span id="L152" class="LineNr">152 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L153" class="LineNr">153 </span> 50/push-eax -<span id="L154" class="LineNr">154 </span> <span class="subxComment"># var curr/eax: byte = 0</span> -<span id="L155" class="LineNr">155 </span> b8/copy-to-eax 0/imm32 -<span id="L156" class="LineNr">156 </span> <span class="subxComment"># curr = *(ebp+8)</span> -<span id="L157" class="LineNr">157 </span> 8a/byte-> *(ebp+8) 0/r32/al -<span id="L158" class="LineNr">158 </span> <span class="subxComment"># if (curr == 0) return</span> -<span id="L159" class="LineNr">159 </span> 3d/compare-eax-and 0/imm32 -<span id="L160" class="LineNr">160 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 -<span id="L161" class="LineNr">161 </span> <span class="subxComment">#</span> -<span id="L162" class="LineNr">162 </span> (<a href='304screen.subx.html#L192'>print-byte-to-real-screen</a> %eax) -<span id="L163" class="LineNr">163 </span> <span class="subxComment"># curr = *(ebp+9)</span> -<span id="L164" class="LineNr">164 </span> 8a/byte-> *(ebp+9) 0/r32/al -<span id="L165" class="LineNr">165 </span> <span class="subxComment"># if (curr == 0) return</span> -<span id="L166" class="LineNr">166 </span> 3d/compare-eax-and 0/imm32 -<span id="L167" class="LineNr">167 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 -<span id="L168" class="LineNr">168 </span> <span class="subxComment">#</span> -<span id="L169" class="LineNr">169 </span> (<a href='304screen.subx.html#L192'>print-byte-to-real-screen</a> %eax) -<span id="L170" class="LineNr">170 </span> <span class="subxComment"># curr = *(ebp+10)</span> -<span id="L171" class="LineNr">171 </span> 8a/byte-> *(ebp+0xa) 0/r32/al -<span id="L172" class="LineNr">172 </span> <span class="subxComment"># if (curr == 0) return</span> -<span id="L173" class="LineNr">173 </span> 3d/compare-eax-and 0/imm32 -<span id="L174" class="LineNr">174 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 -<span id="L175" class="LineNr">175 </span> <span class="subxComment">#</span> -<span id="L176" class="LineNr">176 </span> (<a href='304screen.subx.html#L192'>print-byte-to-real-screen</a> %eax) -<span id="L177" class="LineNr">177 </span> <span class="subxComment"># curr = *(ebp+11)</span> -<span id="L178" class="LineNr">178 </span> 8a/byte-> *(ebp+0xb) 0/r32/al -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># if (curr == 0) return</span> -<span id="L180" class="LineNr">180 </span> 3d/compare-eax-and 0/imm32 -<span id="L181" class="LineNr">181 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 -<span id="L182" class="LineNr">182 </span> <span class="subxComment">#</span> -<span id="L183" class="LineNr">183 </span> (<a href='304screen.subx.html#L192'>print-byte-to-real-screen</a> %eax) -<span id="L184" class="LineNr">184 </span><span class="Constant">$print-grapheme-to-real-screen:end</span>: -<span id="L185" class="LineNr">185 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L186" class="LineNr">186 </span> 58/pop-to-eax -<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L188" class="LineNr">188 </span> 89/<- %esp 5/r32/ebp -<span id="L189" class="LineNr">189 </span> 5d/pop-to-ebp -<span id="L190" class="LineNr">190 </span> c3/return -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="subxFunction">print-byte-to-real-screen</span>: <span class="subxComment"># c: byte</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/<- %ebp 4/r32/esp -<span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L197" class="LineNr">197 </span> 51/push-ecx -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># var s/ecx: (addr array byte)</span> -<span id="L199" class="LineNr">199 </span> ff 6/subop/push *(ebp+8) -<span id="L200" class="LineNr">200 </span> 68/push 1/imm32/size -<span id="L201" class="LineNr">201 </span> 89/<- %ecx 4/r32/esp -<span id="L202" class="LineNr">202 </span> (<a href='108write.subx.html#L24'>write</a> 1 %ecx) -<span id="L203" class="LineNr">203 </span><span class="Constant">$print-byte-to-real-screen:end</span>: -<span id="L204" class="LineNr">204 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L205" class="LineNr">205 </span> 81 0/subop/add %esp 8/imm32 -<span id="L206" class="LineNr">206 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L207" class="LineNr">207 </span> 59/pop-to-ecx -<span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L209" class="LineNr">209 </span> 89/<- %esp 5/r32/ebp -<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">print-int32-hex-to-real-screen</span>: <span class="subxComment"># n: int</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/<- %ebp 4/r32/esp -<span id="L217" class="LineNr">217 </span> <span class="subxComment">#</span> -<span id="L218" class="LineNr">218 </span> (<a href='117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) -<span id="L219" class="LineNr">219 </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="L220" class="LineNr">220 </span><span class="Constant">$print-int32-hex-to-real-screen:end</span>: +<span id="L147" class="LineNr">147 </span><span class="subxFunction">print-stream-to-real-screen</span>: <span class="subxComment"># s: (addr stream byte)</span> +<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L149" class="LineNr">149 </span> 55/push-ebp +<span id="L150" class="LineNr">150 </span> 89/<- %ebp 4/r32/esp +<span id="L151" class="LineNr">151 </span> <span class="subxComment">#</span> +<span id="L152" class="LineNr">152 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) +<span id="L153" class="LineNr">153 </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="L154" class="LineNr">154 </span><span class="Constant">$print-stream-to-real-screen:end</span>: +<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L156" class="LineNr">156 </span> 89/<- %esp 5/r32/ebp +<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="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 +<span id="L165" class="LineNr">165 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L166" class="LineNr">166 </span> 50/push-eax +<span id="L167" class="LineNr">167 </span> <span class="subxComment"># var curr/eax: byte = 0</span> +<span id="L168" class="LineNr">168 </span> b8/copy-to-eax 0/imm32 +<span id="L169" class="LineNr">169 </span> <span class="subxComment"># curr = *(ebp+8)</span> +<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="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="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="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="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="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> +<span id="L201" class="LineNr">201 </span> 89/<- %esp 5/r32/ebp +<span id="L202" class="LineNr">202 </span> 5d/pop-to-ebp +<span id="L203" class="LineNr">203 </span> c3/return +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="subxFunction">print-byte-to-real-screen</span>: <span class="subxComment"># c: byte</span> +<span id="L206" class="LineNr">206 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L207" class="LineNr">207 </span> 55/push-ebp +<span id="L208" class="LineNr">208 </span> 89/<- %ebp 4/r32/esp +<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L210" class="LineNr">210 </span> 51/push-ecx +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># var s/ecx: (addr array byte)</span> +<span id="L212" class="LineNr">212 </span> ff 6/subop/push *(ebp+8) +<span id="L213" class="LineNr">213 </span> 68/push 1/imm32/size +<span id="L214" class="LineNr">214 </span> 89/<- %ecx 4/r32/esp +<span id="L215" class="LineNr">215 </span> (<a href='108write.subx.html#L24'>write</a> 1 %ecx) +<span id="L216" class="LineNr">216 </span><span class="Constant">$print-byte-to-real-screen:end</span>: +<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L218" class="LineNr">218 </span> 81 0/subop/add %esp 8/imm32 +<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L220" class="LineNr">220 </span> 59/pop-to-ecx <span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L222" class="LineNr">222 </span> 89/<- %esp 5/r32/ebp <span id="L223" class="LineNr">223 </span> 5d/pop-to-ebp <span id="L224" class="LineNr">224 </span> c3/return <span id="L225" class="LineNr">225 </span> -<span id="L226" class="LineNr">226 </span><span class="subxFunction">reset-formatting-on-real-screen</span>: +<span id="L226" class="LineNr">226 </span><span class="subxFunction">print-int32-hex-to-real-screen</span>: <span class="subxComment"># n: int</span> <span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . prologue</span> <span id="L228" class="LineNr">228 </span> 55/push-ebp <span id="L229" class="LineNr">229 </span> 89/<- %ebp 4/r32/esp <span id="L230" class="LineNr">230 </span> <span class="subxComment">#</span> -<span id="L231" class="LineNr">231 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L232" class="LineNr">232 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"(B"</span>) -<span id="L233" class="LineNr">233 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L234" class="LineNr">234 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[m"</span>) -<span id="L235" class="LineNr">235 </span><span class="Constant">$reset-formatting-on-real-screen:end</span>: -<span id="L236" class="LineNr">236 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L237" class="LineNr">237 </span> 89/<- %esp 5/r32/ebp -<span id="L238" class="LineNr">238 </span> 5d/pop-to-ebp -<span id="L239" class="LineNr">239 </span> c3/return -<span id="L240" class="LineNr">240 </span> -<span id="L241" class="LineNr">241 </span><span class="subxFunction">start-color-on-real-screen</span>: <span class="subxComment"># fg: int, bg: int</span> -<span id="L242" class="LineNr">242 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L243" class="LineNr">243 </span> 55/push-ebp -<span id="L244" class="LineNr">244 </span> 89/<- %ebp 4/r32/esp -<span id="L245" class="LineNr">245 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L246" class="LineNr">246 </span> 51/push-ecx -<span id="L247" class="LineNr">247 </span> <span class="subxComment"># var buf/ecx: (stream byte 32)</span> -<span id="L248" class="LineNr">248 </span> 81 5/subop/subtract %esp 0x20/imm32 -<span id="L249" class="LineNr">249 </span> 68/push 0x20/imm32/size -<span id="L250" class="LineNr">250 </span> 68/push 0/imm32/read -<span id="L251" class="LineNr">251 </span> 68/push 0/imm32/write -<span id="L252" class="LineNr">252 </span> 89/<- %ecx 4/r32/esp -<span id="L253" class="LineNr">253 </span> <span class="subxComment"># construct directive in buf</span> -<span id="L254" class="LineNr">254 </span> <span class="subxS1Comment"># . set fg</span> -<span id="L255" class="LineNr">255 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L256" class="LineNr">256 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"[38;5;"</span>) -<span id="L257" class="LineNr">257 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+8)) -<span id="L258" class="LineNr">258 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"m"</span>) -<span id="L259" class="LineNr">259 </span> <span class="subxS1Comment"># . set bg</span> -<span id="L260" class="LineNr">260 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L261" class="LineNr">261 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"[48;5;"</span>) -<span id="L262" class="LineNr">262 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+0xc)) -<span id="L263" class="LineNr">263 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"m"</span>) -<span id="L264" class="LineNr">264 </span> <span class="subxComment"># flush</span> -<span id="L265" class="LineNr">265 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L266" class="LineNr">266 </span><span class="Constant">$start-color-on-real-screen:end</span>: -<span id="L267" class="LineNr">267 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L268" class="LineNr">268 </span> 81 0/subop/add %esp 0x2c/imm32 -<span id="L269" class="LineNr">269 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L270" class="LineNr">270 </span> 59/pop-to-ecx -<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L272" class="LineNr">272 </span> 89/<- %esp 5/r32/ebp -<span id="L273" class="LineNr">273 </span> 5d/pop-to-ebp -<span id="L274" class="LineNr">274 </span> c3/return -<span id="L275" class="LineNr">275 </span> -<span id="L276" class="LineNr">276 </span><span class="subxFunction">start-bold-on-real-screen</span>: -<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L278" class="LineNr">278 </span> 55/push-ebp -<span id="L279" class="LineNr">279 </span> 89/<- %ebp 4/r32/esp -<span id="L280" class="LineNr">280 </span> <span class="subxComment">#</span> -<span id="L281" class="LineNr">281 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L282" class="LineNr">282 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[1m"</span>) -<span id="L283" class="LineNr">283 </span><span class="Constant">$start-bold-on-real-screen:end</span>: +<span id="L231" class="LineNr">231 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) +<span id="L232" class="LineNr">232 </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="L233" class="LineNr">233 </span><span class="Constant">$print-int32-hex-to-real-screen:end</span>: +<span id="L234" class="LineNr">234 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L235" class="LineNr">235 </span> 89/<- %esp 5/r32/ebp +<span id="L236" class="LineNr">236 </span> 5d/pop-to-ebp +<span id="L237" class="LineNr">237 </span> c3/return +<span id="L238" class="LineNr">238 </span> +<span id="L239" class="LineNr">239 </span><span class="subxFunction">print-int32-hex-bits-to-real-screen</span>: <span class="subxComment"># n: int, bits: int</span> +<span id="L240" class="LineNr">240 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L241" class="LineNr">241 </span> 55/push-ebp +<span id="L242" class="LineNr">242 </span> 89/<- %ebp 4/r32/esp +<span id="L243" class="LineNr">243 </span> <span class="subxComment">#</span> +<span id="L244" class="LineNr">244 </span> (<a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L245" class="LineNr">245 </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="L246" class="LineNr">246 </span><span class="Constant">$print-int32-hex-bits-to-real-screen:end</span>: +<span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L248" class="LineNr">248 </span> 89/<- %esp 5/r32/ebp +<span id="L249" class="LineNr">249 </span> 5d/pop-to-ebp +<span id="L250" class="LineNr">250 </span> c3/return +<span id="L251" class="LineNr">251 </span> +<span id="L252" class="LineNr">252 </span><span class="subxFunction">print-int32-decimal-to-real-screen</span>: <span class="subxComment"># n: int</span> +<span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L254" class="LineNr">254 </span> 55/push-ebp +<span id="L255" class="LineNr">255 </span> 89/<- %ebp 4/r32/esp +<span id="L256" class="LineNr">256 </span> <span class="subxComment">#</span> +<span id="L257" class="LineNr">257 </span> (<a href='304screen.subx.html#L265'>write-int32-decimal-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+8)) +<span id="L258" class="LineNr">258 </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="L259" class="LineNr">259 </span><span class="Constant">$print-int32-decimal-to-real-screen:end</span>: +<span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L261" class="LineNr">261 </span> 89/<- %esp 5/r32/ebp +<span id="L262" class="LineNr">262 </span> 5d/pop-to-ebp +<span id="L263" class="LineNr">263 </span> c3/return +<span id="L264" class="LineNr">264 </span> +<span id="L265" class="LineNr">265 </span><span class="subxFunction">write-int32-decimal-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> +<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L267" class="LineNr">267 </span> 55/push-ebp +<span id="L268" class="LineNr">268 </span> 89/<- %ebp 4/r32/esp +<span id="L269" class="LineNr">269 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L270" class="LineNr">270 </span> 51/push-ecx +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># var ecx: (stream byte 16)</span> +<span id="L272" class="LineNr">272 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L273" class="LineNr">273 </span> 68/push 0x10/imm32/size +<span id="L274" class="LineNr">274 </span> 68/push 0/imm32/read +<span id="L275" class="LineNr">275 </span> 68/push 0/imm32/write +<span id="L276" class="LineNr">276 </span> 89/<- %ecx 4/r32/esp +<span id="L277" class="LineNr">277 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+0xc)) +<span id="L278" class="LineNr">278 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+8) %ecx) +<span id="L279" class="LineNr">279 </span><span class="Constant">$write-int32-decimal-buffered:end</span>: +<span id="L280" class="LineNr">280 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L281" class="LineNr">281 </span> 81 0/subop/add %esp 0x1c/imm32 +<span id="L282" class="LineNr">282 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L283" class="LineNr">283 </span> 59/pop-to-ecx <span id="L284" class="LineNr">284 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L285" class="LineNr">285 </span> 89/<- %esp 5/r32/ebp <span id="L286" class="LineNr">286 </span> 5d/pop-to-ebp <span id="L287" class="LineNr">287 </span> c3/return <span id="L288" class="LineNr">288 </span> -<span id="L289" class="LineNr">289 </span><span class="subxFunction">start-underline-on-real-screen</span>: +<span id="L289" class="LineNr">289 </span><span class="subxFunction">reset-formatting-on-real-screen</span>: <span id="L290" class="LineNr">290 </span> <span class="subxS1Comment"># . prologue</span> <span id="L291" class="LineNr">291 </span> 55/push-ebp <span id="L292" class="LineNr">292 </span> 89/<- %ebp 4/r32/esp <span id="L293" class="LineNr">293 </span> <span class="subxComment">#</span> -<span id="L294" class="LineNr">294 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L295" class="LineNr">295 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[4m"</span>) -<span id="L296" class="LineNr">296 </span><span class="Constant">$start-underline-on-real-screen:end</span>: -<span id="L297" class="LineNr">297 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L298" class="LineNr">298 </span> 89/<- %esp 5/r32/ebp -<span id="L299" class="LineNr">299 </span> 5d/pop-to-ebp -<span id="L300" class="LineNr">300 </span> c3/return -<span id="L301" class="LineNr">301 </span> -<span id="L302" class="LineNr">302 </span><span class="subxFunction">start-reverse-video-on-real-screen</span>: -<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L304" class="LineNr">304 </span> 55/push-ebp -<span id="L305" class="LineNr">305 </span> 89/<- %ebp 4/r32/esp -<span id="L306" class="LineNr">306 </span> <span class="subxComment">#</span> -<span id="L307" class="LineNr">307 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L308" class="LineNr">308 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[7m"</span>) -<span id="L309" class="LineNr">309 </span><span class="Constant">$start-reverse-video-on-real-screen:end</span>: -<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L311" class="LineNr">311 </span> 89/<- %esp 5/r32/ebp -<span id="L312" class="LineNr">312 </span> 5d/pop-to-ebp -<span id="L313" class="LineNr">313 </span> c3/return -<span id="L314" class="LineNr">314 </span> -<span id="L315" class="LineNr">315 </span><span class="subxComment"># might require enabling blinking in your terminal program</span> -<span id="L316" class="LineNr">316 </span><span class="subxFunction">start-blinking-on-real-screen</span>: -<span id="L317" class="LineNr">317 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L318" class="LineNr">318 </span> 55/push-ebp -<span id="L319" class="LineNr">319 </span> 89/<- %ebp 4/r32/esp -<span id="L320" class="LineNr">320 </span> <span class="subxComment">#</span> -<span id="L321" class="LineNr">321 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L322" class="LineNr">322 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[5m"</span>) -<span id="L323" class="LineNr">323 </span><span class="Constant">$start-blinking-on-real-screen:end</span>: -<span id="L324" class="LineNr">324 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L325" class="LineNr">325 </span> 89/<- %esp 5/r32/ebp -<span id="L326" class="LineNr">326 </span> 5d/pop-to-ebp -<span id="L327" class="LineNr">327 </span> c3/return -<span id="L328" class="LineNr">328 </span> -<span id="L329" class="LineNr">329 </span><span class="subxFunction">hide-cursor-on-real-screen</span>: -<span id="L330" class="LineNr">330 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L331" class="LineNr">331 </span> 55/push-ebp -<span id="L332" class="LineNr">332 </span> 89/<- %ebp 4/r32/esp -<span id="L333" class="LineNr">333 </span> <span class="subxComment">#</span> -<span id="L334" class="LineNr">334 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L335" class="LineNr">335 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?25l"</span>) -<span id="L336" class="LineNr">336 </span><span class="Constant">$hide-cursor-on-real-screen:end</span>: -<span id="L337" class="LineNr">337 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L338" class="LineNr">338 </span> 89/<- %esp 5/r32/ebp -<span id="L339" class="LineNr">339 </span> 5d/pop-to-ebp -<span id="L340" class="LineNr">340 </span> c3/return -<span id="L341" class="LineNr">341 </span> -<span id="L342" class="LineNr">342 </span><span class="subxFunction">show-cursor-on-real-screen</span>: -<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L344" class="LineNr">344 </span> 55/push-ebp -<span id="L345" class="LineNr">345 </span> 89/<- %ebp 4/r32/esp -<span id="L346" class="LineNr">346 </span> <span class="subxComment">#</span> -<span id="L347" class="LineNr">347 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L348" class="LineNr">348 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?12l"</span>) -<span id="L349" class="LineNr">349 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L386'>Esc</a></span>) -<span id="L350" class="LineNr">350 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?25h"</span>) -<span id="L351" class="LineNr">351 </span><span class="Constant">$show-cursor-on-real-screen:end</span>: -<span id="L352" class="LineNr">352 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L353" class="LineNr">353 </span> 89/<- %esp 5/r32/ebp -<span id="L354" class="LineNr">354 </span> 5d/pop-to-ebp -<span id="L355" class="LineNr">355 </span> c3/return -<span id="L356" class="LineNr">356 </span> -<span id="L357" class="LineNr">357 </span><span class="subxComment"># This is a low-level detail; I don't think everything should be a file.</span> -<span id="L358" class="LineNr">358 </span><span class="subxComment">#</span> -<span id="L359" class="LineNr">359 </span><span class="subxComment"># Open "/dev/tty" if necessary and cache its file descriptor in Terminal-file-descriptor</span> -<span id="L360" class="LineNr">360 </span><span class="subxComment"># where later primitives can use it.</span> -<span id="L361" class="LineNr">361 </span><span class="subxMinorFunction">_maybe-open-terminal</span>: -<span id="L362" class="LineNr">362 </span> 81 7/subop/compare *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> -1/imm32 -<span id="L363" class="LineNr">363 </span> 75/jump-if-!= $_maybe-open-terminal:epilogue/disp8 -<span id="L364" class="LineNr">364 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L365" class="LineNr">365 </span> 50/push-eax -<span id="L366" class="LineNr">366 </span> 51/push-ecx -<span id="L367" class="LineNr">367 </span> 53/push-ebx -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># open("/dev/tty", O_RDWR)</span> -<span id="L369" class="LineNr">369 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='304screen.subx.html#L392'>Terminal-filename</a></span>/imm32 -<span id="L370" class="LineNr">370 </span> b9/copy-to-ecx 2/imm32/O_RDWR -<span id="L371" class="LineNr">371 </span> e8/call syscall_open/disp32 -<span id="L372" class="LineNr">372 </span> 89/<- *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 0/r32/eax -<span id="L373" class="LineNr">373 </span><span class="Constant">$_maybe-open-terminal:end</span>: -<span id="L374" class="LineNr">374 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L375" class="LineNr">375 </span> 5b/pop-to-ebx -<span id="L376" class="LineNr">376 </span> 59/pop-to-ecx -<span id="L377" class="LineNr">377 </span> 58/pop-to-eax -<span id="L378" class="LineNr">378 </span><span class="Constant">$_maybe-open-terminal:epilogue</span>: -<span id="L379" class="LineNr">379 </span> c3/return -<span id="L380" class="LineNr">380 </span> -<span id="L381" class="LineNr">381 </span>== data -<span id="L382" class="LineNr">382 </span> -<span id="L383" class="LineNr">383 </span><span class="SpecialChar">Terminal-file-descriptor</span>: <span class="subxComment"># (addr int)</span> -<span id="L384" class="LineNr">384 </span> -1/imm32 -<span id="L385" class="LineNr">385 </span> -<span id="L386" class="LineNr">386 </span><span class="SpecialChar">Esc</span>: <span class="subxComment"># (addr array byte)</span> -<span id="L387" class="LineNr">387 </span> <span class="subxComment"># size</span> -<span id="L388" class="LineNr">388 </span> 1/imm32 -<span id="L389" class="LineNr">389 </span> <span class="subxComment"># data</span> -<span id="L390" class="LineNr">390 </span> 0x1b +<span id="L294" class="LineNr">294 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L295" class="LineNr">295 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"(B"</span>) +<span id="L296" class="LineNr">296 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L297" class="LineNr">297 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[m"</span>) +<span id="L298" class="LineNr">298 </span><span class="Constant">$reset-formatting-on-real-screen:end</span>: +<span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L300" class="LineNr">300 </span> 89/<- %esp 5/r32/ebp +<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="subxFunction">start-color-on-real-screen</span>: <span class="subxComment"># fg: int, bg: int</span> +<span id="L305" class="LineNr">305 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L306" class="LineNr">306 </span> 55/push-ebp +<span id="L307" class="LineNr">307 </span> 89/<- %ebp 4/r32/esp +<span id="L308" class="LineNr">308 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L309" class="LineNr">309 </span> 51/push-ecx +<span id="L310" class="LineNr">310 </span> <span class="subxComment"># var buf/ecx: (stream byte 32)</span> +<span id="L311" class="LineNr">311 </span> 81 5/subop/subtract %esp 0x20/imm32 +<span id="L312" class="LineNr">312 </span> 68/push 0x20/imm32/size +<span id="L313" class="LineNr">313 </span> 68/push 0/imm32/read +<span id="L314" class="LineNr">314 </span> 68/push 0/imm32/write +<span id="L315" class="LineNr">315 </span> 89/<- %ecx 4/r32/esp +<span id="L316" class="LineNr">316 </span> <span class="subxComment"># construct directive in buf</span> +<span id="L317" class="LineNr">317 </span> <span class="subxS1Comment"># . set fg</span> +<span id="L318" class="LineNr">318 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L319" class="LineNr">319 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"[38;5;"</span>) +<span id="L320" class="LineNr">320 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+8)) +<span id="L321" class="LineNr">321 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"m"</span>) +<span id="L322" class="LineNr">322 </span> <span class="subxS1Comment"># . set bg</span> +<span id="L323" class="LineNr">323 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L324" class="LineNr">324 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"[48;5;"</span>) +<span id="L325" class="LineNr">325 </span> (<a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> %ecx *(ebp+0xc)) +<span id="L326" class="LineNr">326 </span> (<a href='108write.subx.html#L24'>write</a> %ecx <span class="Constant">"m"</span>) +<span id="L327" class="LineNr">327 </span> <span class="subxComment"># flush</span> +<span id="L328" class="LineNr">328 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L329" class="LineNr">329 </span><span class="Constant">$start-color-on-real-screen:end</span>: +<span id="L330" class="LineNr">330 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L331" class="LineNr">331 </span> 81 0/subop/add %esp 0x2c/imm32 +<span id="L332" class="LineNr">332 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L333" class="LineNr">333 </span> 59/pop-to-ecx +<span id="L334" class="LineNr">334 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L335" class="LineNr">335 </span> 89/<- %esp 5/r32/ebp +<span id="L336" class="LineNr">336 </span> 5d/pop-to-ebp +<span id="L337" class="LineNr">337 </span> c3/return +<span id="L338" class="LineNr">338 </span> +<span id="L339" class="LineNr">339 </span><span class="subxFunction">start-bold-on-real-screen</span>: +<span id="L340" class="LineNr">340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L341" class="LineNr">341 </span> 55/push-ebp +<span id="L342" class="LineNr">342 </span> 89/<- %ebp 4/r32/esp +<span id="L343" class="LineNr">343 </span> <span class="subxComment">#</span> +<span id="L344" class="LineNr">344 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L345" class="LineNr">345 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[1m"</span>) +<span id="L346" class="LineNr">346 </span><span class="Constant">$start-bold-on-real-screen:end</span>: +<span id="L347" class="LineNr">347 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L348" class="LineNr">348 </span> 89/<- %esp 5/r32/ebp +<span id="L349" class="LineNr">349 </span> 5d/pop-to-ebp +<span id="L350" class="LineNr">350 </span> c3/return +<span id="L351" class="LineNr">351 </span> +<span id="L352" class="LineNr">352 </span><span class="subxFunction">start-underline-on-real-screen</span>: +<span id="L353" class="LineNr">353 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L354" class="LineNr">354 </span> 55/push-ebp +<span id="L355" class="LineNr">355 </span> 89/<- %ebp 4/r32/esp +<span id="L356" class="LineNr">356 </span> <span class="subxComment">#</span> +<span id="L357" class="LineNr">357 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L358" class="LineNr">358 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[4m"</span>) +<span id="L359" class="LineNr">359 </span><span class="Constant">$start-underline-on-real-screen:end</span>: +<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L361" class="LineNr">361 </span> 89/<- %esp 5/r32/ebp +<span id="L362" class="LineNr">362 </span> 5d/pop-to-ebp +<span id="L363" class="LineNr">363 </span> c3/return +<span id="L364" class="LineNr">364 </span> +<span id="L365" class="LineNr">365 </span><span class="subxFunction">start-reverse-video-on-real-screen</span>: +<span id="L366" class="LineNr">366 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L367" class="LineNr">367 </span> 55/push-ebp +<span id="L368" class="LineNr">368 </span> 89/<- %ebp 4/r32/esp +<span id="L369" class="LineNr">369 </span> <span class="subxComment">#</span> +<span id="L370" class="LineNr">370 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L371" class="LineNr">371 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[7m"</span>) +<span id="L372" class="LineNr">372 </span><span class="Constant">$start-reverse-video-on-real-screen:end</span>: +<span id="L373" class="LineNr">373 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L374" class="LineNr">374 </span> 89/<- %esp 5/r32/ebp +<span id="L375" class="LineNr">375 </span> 5d/pop-to-ebp +<span id="L376" class="LineNr">376 </span> c3/return +<span id="L377" class="LineNr">377 </span> +<span id="L378" class="LineNr">378 </span><span class="subxComment"># might require enabling blinking in your terminal program</span> +<span id="L379" class="LineNr">379 </span><span class="subxFunction">start-blinking-on-real-screen</span>: +<span id="L380" class="LineNr">380 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L381" class="LineNr">381 </span> 55/push-ebp +<span id="L382" class="LineNr">382 </span> 89/<- %ebp 4/r32/esp +<span id="L383" class="LineNr">383 </span> <span class="subxComment">#</span> +<span id="L384" class="LineNr">384 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L385" class="LineNr">385 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[5m"</span>) +<span id="L386" class="LineNr">386 </span><span class="Constant">$start-blinking-on-real-screen:end</span>: +<span id="L387" class="LineNr">387 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L388" class="LineNr">388 </span> 89/<- %esp 5/r32/ebp +<span id="L389" class="LineNr">389 </span> 5d/pop-to-ebp +<span id="L390" class="LineNr">390 </span> c3/return <span id="L391" class="LineNr">391 </span> -<span id="L392" class="LineNr">392 </span><span class="SpecialChar">Terminal-filename</span>: <span class="subxComment"># (addr kernel-string)</span> -<span id="L393" class="LineNr">393 </span> <span class="subxComment"># "/dev/null"</span> -<span id="L394" class="LineNr">394 </span> 2f/slash 64/d 65/e 76/v 2f/slash 74/t 74/t 79/y 0/nul +<span id="L392" class="LineNr">392 </span><span class="subxFunction">hide-cursor-on-real-screen</span>: +<span id="L393" class="LineNr">393 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L394" class="LineNr">394 </span> 55/push-ebp +<span id="L395" class="LineNr">395 </span> 89/<- %ebp 4/r32/esp +<span id="L396" class="LineNr">396 </span> <span class="subxComment">#</span> +<span id="L397" class="LineNr">397 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L398" class="LineNr">398 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?25l"</span>) +<span id="L399" class="LineNr">399 </span><span class="Constant">$hide-cursor-on-real-screen:end</span>: +<span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L401" class="LineNr">401 </span> 89/<- %esp 5/r32/ebp +<span id="L402" class="LineNr">402 </span> 5d/pop-to-ebp +<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">show-cursor-on-real-screen</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/<- %ebp 4/r32/esp +<span id="L409" class="LineNr">409 </span> <span class="subxComment">#</span> +<span id="L410" class="LineNr">410 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L411" class="LineNr">411 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?12l"</span>) +<span id="L412" class="LineNr">412 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="SpecialChar"><a href='304screen.subx.html#L449'>Esc</a></span>) +<span id="L413" class="LineNr">413 </span> (<a href='108write.subx.html#L24'>write</a> 1 <span class="Constant">"[?25h"</span>) +<span id="L414" class="LineNr">414 </span><span class="Constant">$show-cursor-on-real-screen:end</span>: +<span id="L415" class="LineNr">415 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L416" class="LineNr">416 </span> 89/<- %esp 5/r32/ebp +<span id="L417" class="LineNr">417 </span> 5d/pop-to-ebp +<span id="L418" class="LineNr">418 </span> c3/return +<span id="L419" class="LineNr">419 </span> +<span id="L420" class="LineNr">420 </span><span class="subxComment"># This is a low-level detail; I don't think everything should be a file.</span> +<span id="L421" class="LineNr">421 </span><span class="subxComment">#</span> +<span id="L422" class="LineNr">422 </span><span class="subxComment"># Open "/dev/tty" if necessary and cache its file descriptor in Terminal-file-descriptor</span> +<span id="L423" class="LineNr">423 </span><span class="subxComment"># where later primitives can use it.</span> +<span id="L424" class="LineNr">424 </span><span class="subxMinorFunction">_maybe-open-terminal</span>: +<span id="L425" class="LineNr">425 </span> 81 7/subop/compare *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> -1/imm32 +<span id="L426" class="LineNr">426 </span> 75/jump-if-!= $_maybe-open-terminal:epilogue/disp8 +<span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L428" class="LineNr">428 </span> 50/push-eax +<span id="L429" class="LineNr">429 </span> 51/push-ecx +<span id="L430" class="LineNr">430 </span> 53/push-ebx +<span id="L431" class="LineNr">431 </span> <span class="subxComment"># open("/dev/tty", O_RDWR)</span> +<span id="L432" class="LineNr">432 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='304screen.subx.html#L455'>Terminal-filename</a></span>/imm32 +<span id="L433" class="LineNr">433 </span> b9/copy-to-ecx 2/imm32/O_RDWR +<span id="L434" class="LineNr">434 </span> e8/call syscall_open/disp32 +<span id="L435" class="LineNr">435 </span> 89/<- *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 0/r32/eax +<span id="L436" class="LineNr">436 </span><span class="Constant">$_maybe-open-terminal:end</span>: +<span id="L437" class="LineNr">437 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L438" class="LineNr">438 </span> 5b/pop-to-ebx +<span id="L439" class="LineNr">439 </span> 59/pop-to-ecx +<span id="L440" class="LineNr">440 </span> 58/pop-to-eax +<span id="L441" class="LineNr">441 </span><span class="Constant">$_maybe-open-terminal:epilogue</span>: +<span id="L442" class="LineNr">442 </span> c3/return +<span id="L443" class="LineNr">443 </span> +<span id="L444" class="LineNr">444 </span>== data +<span id="L445" class="LineNr">445 </span> +<span id="L446" class="LineNr">446 </span><span class="SpecialChar">Terminal-file-descriptor</span>: <span class="subxComment"># (addr int)</span> +<span id="L447" class="LineNr">447 </span> -1/imm32 +<span id="L448" class="LineNr">448 </span> +<span id="L449" class="LineNr">449 </span><span class="SpecialChar">Esc</span>: <span class="subxComment"># (addr array byte)</span> +<span id="L450" class="LineNr">450 </span> <span class="subxComment"># size</span> +<span id="L451" class="LineNr">451 </span> 1/imm32 +<span id="L452" class="LineNr">452 </span> <span class="subxComment"># data</span> +<span id="L453" class="LineNr">453 </span> 0x1b +<span id="L454" class="LineNr">454 </span> +<span id="L455" class="LineNr">455 </span><span class="SpecialChar">Terminal-filename</span>: <span class="subxComment"># (addr kernel-string)</span> +<span id="L456" class="LineNr">456 </span> <span class="subxComment"># "/dev/null"</span> +<span id="L457" class="LineNr">457 </span> 2f/slash 64/d 65/e 76/v 2f/slash 74/t 74/t 79/y 0/nul </pre> </body> </html> diff --git a/html/305keyboard.subx.html b/html/305keyboard.subx.html index 007ff14e..7ee69446 100644 --- a/html/305keyboard.subx.html +++ b/html/305keyboard.subx.html @@ -15,12 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.SpecialChar { color: #d70000; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } +.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -73,7 +74,7 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> 56/push-esi <span id="L16" class="LineNr"> 16 </span> 57/push-edi <span id="L17" class="LineNr"> 17 </span> <span class="subxComment">#</span> -<span id="L18" class="LineNr"> 18 </span> (<a href='304screen.subx.html#L361'>_maybe-open-terminal</a>) +<span id="L18" class="LineNr"> 18 </span> (<a href='304screen.subx.html#L424'>_maybe-open-terminal</a>) <span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var terminal-info/esi: (addr termios)</span> <span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># termios is a type from the Linux kernel. We don't care how large it is.</span> <span id="L21" class="LineNr"> 21 </span> 81 5/subop/subtract %esp 0x100/imm32 @@ -81,7 +82,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># ioctl(*Terminal-file-descriptor, TCGETS, terminal-info)</span> <span id="L24" class="LineNr"> 24 </span> 89/<- %edx 6/r32/esi <span id="L25" class="LineNr"> 25 </span> b9/copy-to-ecx 0x5401/imm32/TCGETS -<span id="L26" class="LineNr"> 26 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 3/r32/ebx +<span id="L26" class="LineNr"> 26 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx <span id="L27" class="LineNr"> 27 </span> e8/call syscall_ioctl/disp32 <span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># terminal-info->c_iflags &= Keyboard-immediate-mode-iflags</span> <span id="L29" class="LineNr"> 29 </span><span class="CommentedCode">#? (write-buffered Stderr "iflags before: ")</span> @@ -89,7 +90,7 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> <span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? (flush Stderr)</span> <span id="L33" class="LineNr"> 33 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Termios-c_iflag</span> -<span id="L34" class="LineNr"> 34 </span> 23/and *<span class="SpecialChar"><a href='305keyboard.subx.html#L184'>Keyboard-immediate-mode-iflags</a></span> 0/r32/eax +<span id="L34" class="LineNr"> 34 </span> 23/and *<span class="SpecialChar"><a href='305keyboard.subx.html#L211'>Keyboard-immediate-mode-iflags</a></span> 0/r32/eax <span id="L35" class="LineNr"> 35 </span> 89/<- *esi 0/r32/eax <span class="subxComment"># Termios-c_iflag</span> <span id="L36" class="LineNr"> 36 </span><span class="CommentedCode">#? (write-buffered Stderr "iflags after: ")</span> <span id="L37" class="LineNr"> 37 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> @@ -101,7 +102,7 @@ if ('onhashchange' in window) { <span id="L43" class="LineNr"> 43 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> <span id="L44" class="LineNr"> 44 </span><span class="CommentedCode">#? (flush Stderr)</span> <span id="L45" class="LineNr"> 45 </span> 8b/-> *(esi+0xc) 0/r32/eax <span class="subxComment"># Termios-c_lflag</span> -<span id="L46" class="LineNr"> 46 </span> 23/and *<span class="SpecialChar"><a href='305keyboard.subx.html#L188'>Keyboard-immediate-mode-lflags</a></span> 0/r32/eax +<span id="L46" class="LineNr"> 46 </span> 23/and *<span class="SpecialChar"><a href='305keyboard.subx.html#L215'>Keyboard-immediate-mode-lflags</a></span> 0/r32/eax <span id="L47" class="LineNr"> 47 </span> 89/<- *(esi+0xc) 0/r32/eax <span class="subxComment"># Termios-c_lflag</span> <span id="L48" class="LineNr"> 48 </span><span class="CommentedCode">#? (write-buffered Stderr "lflags after: ")</span> <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+0xc))</span> @@ -110,7 +111,7 @@ if ('onhashchange' in window) { <span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># ioctl(*Terminal-file-descriptor, TCSETS, terminal-info)</span> <span id="L53" class="LineNr"> 53 </span> 89/<- %edx 6/r32/esi <span id="L54" class="LineNr"> 54 </span> b9/copy-to-ecx 0x5402/imm32/TCSETS -<span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 3/r32/ebx +<span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx <span id="L56" class="LineNr"> 56 </span> e8/call syscall_ioctl/disp32 <span id="L57" class="LineNr"> 57 </span><span class="Constant">$enable-keyboard-immediate-mode:end</span>: <span id="L58" class="LineNr"> 58 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -139,7 +140,7 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> 56/push-esi <span id="L82" class="LineNr"> 82 </span> 57/push-edi <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> -<span id="L84" class="LineNr"> 84 </span> (<a href='304screen.subx.html#L361'>_maybe-open-terminal</a>) +<span id="L84" class="LineNr"> 84 </span> (<a href='304screen.subx.html#L424'>_maybe-open-terminal</a>) <span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># var terminal-info/esi: (addr termios)</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># termios is a type from the Linux kernel. We don't care how large it is.</span> <span id="L87" class="LineNr"> 87 </span> 81 5/subop/subtract %esp 0x100/imm32 @@ -147,20 +148,20 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># ioctl(*Terminal-file-descriptor, TCGETS, terminal-info)</span> <span id="L90" class="LineNr"> 90 </span> 89/<- %edx 6/r32/esi <span id="L91" class="LineNr"> 91 </span> b9/copy-to-ecx 0x5401/imm32/TCGETS -<span id="L92" class="LineNr"> 92 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 3/r32/ebx +<span id="L92" class="LineNr"> 92 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx <span id="L93" class="LineNr"> 93 </span> e8/call syscall_ioctl/disp32 <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># terminal-info->c_iflags |= Keyboard-type-mode-iflags</span> <span id="L95" class="LineNr"> 95 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Termios-c_iflag</span> -<span id="L96" class="LineNr"> 96 </span> 0b/or *<span class="SpecialChar"><a href='305keyboard.subx.html#L192'>Keyboard-type-mode-iflags</a></span> 0/r32/eax +<span id="L96" class="LineNr"> 96 </span> 0b/or *<span class="SpecialChar"><a href='305keyboard.subx.html#L219'>Keyboard-type-mode-iflags</a></span> 0/r32/eax <span id="L97" class="LineNr"> 97 </span> 89/<- *esi 0/r32/eax <span class="subxComment"># Termios-c_iflag</span> <span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># terminal-info->c_lflags |= Keyboard-type-mode-lflags</span> <span id="L99" class="LineNr"> 99 </span> 8b/-> *(esi+0xc) 0/r32/eax <span class="subxComment"># Termios-c_lflag</span> -<span id="L100" class="LineNr">100 </span> 0b/or *<span class="SpecialChar"><a href='305keyboard.subx.html#L195'>Keyboard-type-mode-lflags</a></span> 0/r32/eax +<span id="L100" class="LineNr">100 </span> 0b/or *<span class="SpecialChar"><a href='305keyboard.subx.html#L222'>Keyboard-type-mode-lflags</a></span> 0/r32/eax <span id="L101" class="LineNr">101 </span> 89/<- *(esi+0xc) 0/r32/eax <span class="subxComment"># Termios-c_lflag</span> <span id="L102" class="LineNr">102 </span> <span class="subxComment"># ioctl(*Terminal-file-descriptor, TCSETS, terminal-info)</span> <span id="L103" class="LineNr">103 </span> 89/<- %edx 6/r32/esi <span id="L104" class="LineNr">104 </span> b9/copy-to-ecx 0x5402/imm32/TCSETS -<span id="L105" class="LineNr">105 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L383'>Terminal-file-descriptor</a></span> 3/r32/ebx +<span id="L105" class="LineNr">105 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx <span id="L106" class="LineNr">106 </span> e8/call syscall_ioctl/disp32 <span id="L107" class="LineNr">107 </span><span class="Constant">$enable-keyboard-type-mode:end</span>: <span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -177,81 +178,108 @@ if ('onhashchange' in window) { <span id="L119" class="LineNr">119 </span> 5d/pop-to-ebp <span id="L120" class="LineNr">120 </span> c3/return <span id="L121" class="LineNr">121 </span> -<span id="L122" class="LineNr">122 </span><span class="subxFunction">read-key</span>: <span class="subxComment"># -> result/eax: byte</span> -<span id="L123" class="LineNr">123 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L124" class="LineNr">124 </span> 55/push-ebp -<span id="L125" class="LineNr">125 </span> 89/<- %ebp 4/r32/esp -<span id="L126" class="LineNr">126 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L127" class="LineNr">127 </span> 51/push-ecx -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># var buf/ecx: (stream byte 1)</span> -<span id="L129" class="LineNr">129 </span> 68/push 0/imm32/data -<span id="L130" class="LineNr">130 </span> 68/push 1/imm32/size <span class="subxComment"># 3 bytes of data unused</span> -<span id="L131" class="LineNr">131 </span> 68/push 0/imm32/read -<span id="L132" class="LineNr">132 </span> 68/push 0/imm32/write -<span id="L133" class="LineNr">133 </span> 89/<- %ecx 4/r32/esp -<span id="L134" class="LineNr">134 </span> <span class="subxComment">#</span> -<span id="L135" class="LineNr">135 </span> (<a href='111read.subx.html#L48'>read</a> 2 %ecx) <span class="subxComment"># => eax</span> -<span id="L136" class="LineNr">136 </span> 8b/-> *(ecx+0xc) 0/r32/eax -<span id="L137" class="LineNr">137 </span><span class="Constant">$read-key:end</span>: -<span id="L138" class="LineNr">138 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L139" class="LineNr">139 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L141" class="LineNr">141 </span> 59/pop-to-ecx -<span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L143" class="LineNr">143 </span> 89/<- %esp 5/r32/ebp -<span id="L144" class="LineNr">144 </span> 5d/pop-to-ebp -<span id="L145" class="LineNr">145 </span> c3/return -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span>== data -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span><span class="subxComment"># iflags: octal hex</span> -<span id="L150" class="LineNr">150 </span><span class="subxComment"># IGNBRK 0000001 0x0001</span> -<span id="L151" class="LineNr">151 </span><span class="subxComment"># BRKINT 0000002 0x0002</span> -<span id="L152" class="LineNr">152 </span><span class="subxComment"># IGNPAR 0000004 0x0004</span> -<span id="L153" class="LineNr">153 </span><span class="subxComment"># PARMRK 0000010 0x0008</span> -<span id="L154" class="LineNr">154 </span><span class="subxComment"># INPCK 0000020 0x0010</span> -<span id="L155" class="LineNr">155 </span><span class="subxComment"># ISTRIP 0000040 0x0020</span> -<span id="L156" class="LineNr">156 </span><span class="subxComment"># INLCR 0000100 0x0040</span> -<span id="L157" class="LineNr">157 </span><span class="subxComment"># IGNCR 0000200 0x0080</span> -<span id="L158" class="LineNr">158 </span><span class="subxComment"># ICRNL 0000400 0x0100</span> -<span id="L159" class="LineNr">159 </span><span class="subxComment"># IUCLC 0001000 0x0200</span> -<span id="L160" class="LineNr">160 </span><span class="subxComment"># IXON 0002000 0x0400</span> -<span id="L161" class="LineNr">161 </span><span class="subxComment"># IXANY 0004000 0x0800</span> -<span id="L162" class="LineNr">162 </span><span class="subxComment"># IXOFF 0010000 0x1000</span> -<span id="L163" class="LineNr">163 </span><span class="subxComment"># IMAXBEL 0020000 0x2000</span> -<span id="L164" class="LineNr">164 </span><span class="subxComment"># IUTF8 0040000 0x4000</span> -<span id="L165" class="LineNr">165 </span> -<span id="L166" class="LineNr">166 </span><span class="subxComment"># lflags:</span> -<span id="L167" class="LineNr">167 </span><span class="subxComment"># ISIG 0000001 0x0001</span> -<span id="L168" class="LineNr">168 </span><span class="subxComment"># ICANON 0000002 0x0002</span> -<span id="L169" class="LineNr">169 </span><span class="subxComment"># ECHO 0000010 0x0008</span> -<span id="L170" class="LineNr">170 </span><span class="subxComment"># ECHOE 0000020 0x0010</span> -<span id="L171" class="LineNr">171 </span><span class="subxComment"># ECHOK 0000040 0x0020</span> -<span id="L172" class="LineNr">172 </span><span class="subxComment"># ECHONL 0000100 0x0040</span> -<span id="L173" class="LineNr">173 </span><span class="subxComment"># NOFLSH 0000200 0x0080</span> -<span id="L174" class="LineNr">174 </span><span class="subxComment"># TOSTOP 0000400 0x0100</span> -<span id="L175" class="LineNr">175 </span><span class="subxComment"># IEXTEN 0100000 0x8000</span> -<span id="L176" class="LineNr">176 </span> -<span id="L177" class="LineNr">177 </span><span class="subxComment"># recipe for raw mode according to the termios.3 manpage on Linux:</span> -<span id="L178" class="LineNr">178 </span><span class="subxComment"># termios_p->c_iflag &= ~(IGNBRK | BRKINT | PARMRK | ISTRIP | INLCR | IGNCR | ICRNL | IXON);</span> -<span id="L179" class="LineNr">179 </span><span class="subxComment"># termios_p->c_oflag &= ~OPOST;</span> -<span id="L180" class="LineNr">180 </span><span class="subxComment"># termios_p->c_lflag &= ~(ECHO | ECHONL | ICANON | ISIG | IEXTEN);</span> -<span id="L181" class="LineNr">181 </span><span class="subxComment"># termios_p->c_cflag &= ~(CSIZE | PARENB);</span> -<span id="L182" class="LineNr">182 </span><span class="subxComment"># termios_p->c_cflag |= CS8;</span> -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="SpecialChar">Keyboard-immediate-mode-iflags</span>: <span class="subxComment"># (addr tcflag_t)</span> -<span id="L185" class="LineNr">185 </span><span class="CommentedCode">#? 0xfffffa14 # ~IGNBRK & ~BRKINT & ~PARMRK & ~ISTRIP & ~INLCR & ~IGNCR & ~ICRNL & ~IXON</span> -<span id="L186" class="LineNr">186 </span> 0xffffffff/imm32 -<span id="L187" class="LineNr">187 </span> -<span id="L188" class="LineNr">188 </span><span class="SpecialChar">Keyboard-immediate-mode-lflags</span>: <span class="subxComment"># (addr tcflag_t)</span> -<span id="L189" class="LineNr">189 </span><span class="CommentedCode">#? 0xffff7fb4/imm32 # ~ICANON & ~ISIG & ~IEXTEN & ~ECHO & ~ECHONL</span> -<span id="L190" class="LineNr">190 </span> 0xffffffb5/imm32 <span class="subxComment"># ~ICANON & ~ECHO & ~ECHONL</span> -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="SpecialChar">Keyboard-type-mode-iflags</span>: <span class="subxComment"># (addr tcflag_t)</span> -<span id="L193" class="LineNr">193 </span> 0x00000000/imm32 <span class="subxComment"># ~Keyboard-immediate-mode-iflags</span> -<span id="L194" class="LineNr">194 </span> -<span id="L195" class="LineNr">195 </span><span class="SpecialChar">Keyboard-type-mode-lflags</span>: <span class="subxComment"># (addr tcflag_t)</span> -<span id="L196" class="LineNr">196 </span> 0x0000004a/imm32 <span class="subxComment"># ~Keyboard-immediate-mode-lflags</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="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="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 +<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L137" class="LineNr">137 </span> 51/push-ecx +<span id="L138" class="LineNr">138 </span> <span class="subxComment"># var buf/ecx: (stream byte 4)</span> +<span id="L139" class="LineNr">139 </span> 68/push 0/imm32/data +<span id="L140" class="LineNr">140 </span> 68/push 4/imm32/size +<span id="L141" class="LineNr">141 </span> 68/push 0/imm32/read +<span id="L142" class="LineNr">142 </span> 68/push 0/imm32/write +<span id="L143" class="LineNr">143 </span> 89/<- %ecx 4/r32/esp +<span id="L144" class="LineNr">144 </span> <span class="subxComment">#</span> +<span id="L145" class="LineNr">145 </span> (<a href='111read.subx.html#L48'>read</a> 0 %ecx) <span class="subxComment"># => eax</span> +<span id="L146" class="LineNr">146 </span> 8b/-> *(ecx+0xc) 0/r32/eax +<span id="L147" class="LineNr">147 </span><span class="Constant">$read-key-from-real-keyboard:end</span>: +<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L149" class="LineNr">149 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L151" class="LineNr">151 </span> 59/pop-to-ecx +<span id="L152" class="LineNr">152 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L153" class="LineNr">153 </span> 89/<- %esp 5/r32/ebp +<span id="L154" class="LineNr">154 </span> 5d/pop-to-ebp +<span id="L155" class="LineNr">155 </span> c3/return +<span id="L156" class="LineNr">156 </span> +<span id="L157" class="LineNr">157 </span><span class="subxComment"># use this in type mode</span> +<span id="L158" class="LineNr">158 </span><span class="subxFunction">read-line-from-real-keyboard</span>: <span class="subxComment"># in: (addr stream byte)</span> +<span id="L159" class="LineNr">159 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L160" class="LineNr">160 </span> 55/push-ebp +<span id="L161" class="LineNr">161 </span> 89/<- %ebp 4/r32/esp +<span id="L162" class="LineNr">162 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L163" class="LineNr">163 </span> 50/push-eax +<span id="L164" class="LineNr">164 </span> <span class="subxComment">#</span> +<span id="L165" class="LineNr">165 </span> (<a href='111read.subx.html#L48'>read</a> 0 *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L166" class="LineNr">166 </span><span class="Constant">$read-line-from-real-keyboard:end</span>: +<span id="L167" class="LineNr">167 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L168" class="LineNr">168 </span> 58/pop-to-eax +<span id="L169" class="LineNr">169 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L170" class="LineNr">170 </span> 89/<- %esp 5/r32/ebp +<span id="L171" class="LineNr">171 </span> 5d/pop-to-ebp +<span id="L172" class="LineNr">172 </span> c3/return +<span id="L173" class="LineNr">173 </span> +<span id="L174" class="LineNr">174 </span>== data +<span id="L175" class="LineNr">175 </span> +<span id="L176" class="LineNr">176 </span><span class="subxComment"># iflags: octal hex</span> +<span id="L177" class="LineNr">177 </span><span class="subxComment"># IGNBRK 0000001 0x0001</span> +<span id="L178" class="LineNr">178 </span><span class="subxComment"># BRKINT 0000002 0x0002</span> +<span id="L179" class="LineNr">179 </span><span class="subxComment"># IGNPAR 0000004 0x0004</span> +<span id="L180" class="LineNr">180 </span><span class="subxComment"># PARMRK 0000010 0x0008</span> +<span id="L181" class="LineNr">181 </span><span class="subxComment"># INPCK 0000020 0x0010</span> +<span id="L182" class="LineNr">182 </span><span class="subxComment"># ISTRIP 0000040 0x0020</span> +<span id="L183" class="LineNr">183 </span><span class="subxComment"># INLCR 0000100 0x0040</span> +<span id="L184" class="LineNr">184 </span><span class="subxComment"># IGNCR 0000200 0x0080</span> +<span id="L185" class="LineNr">185 </span><span class="subxComment"># ICRNL 0000400 0x0100</span> +<span id="L186" class="LineNr">186 </span><span class="subxComment"># IUCLC 0001000 0x0200</span> +<span id="L187" class="LineNr">187 </span><span class="subxComment"># IXON 0002000 0x0400</span> +<span id="L188" class="LineNr">188 </span><span class="subxComment"># IXANY 0004000 0x0800</span> +<span id="L189" class="LineNr">189 </span><span class="subxComment"># IXOFF 0010000 0x1000</span> +<span id="L190" class="LineNr">190 </span><span class="subxComment"># IMAXBEL 0020000 0x2000</span> +<span id="L191" class="LineNr">191 </span><span class="subxComment"># IUTF8 0040000 0x4000</span> +<span id="L192" class="LineNr">192 </span> +<span id="L193" class="LineNr">193 </span><span class="subxComment"># lflags:</span> +<span id="L194" class="LineNr">194 </span><span class="subxComment"># ISIG 0000001 0x0001</span> +<span id="L195" class="LineNr">195 </span><span class="subxComment"># ICANON 0000002 0x0002</span> +<span id="L196" class="LineNr">196 </span><span class="subxComment"># ECHO 0000010 0x0008</span> +<span id="L197" class="LineNr">197 </span><span class="subxComment"># ECHOE 0000020 0x0010</span> +<span id="L198" class="LineNr">198 </span><span class="subxComment"># ECHOK 0000040 0x0020</span> +<span id="L199" class="LineNr">199 </span><span class="subxComment"># ECHONL 0000100 0x0040</span> +<span id="L200" class="LineNr">200 </span><span class="subxComment"># NOFLSH 0000200 0x0080</span> +<span id="L201" class="LineNr">201 </span><span class="subxComment"># TOSTOP 0000400 0x0100</span> +<span id="L202" class="LineNr">202 </span><span class="subxComment"># IEXTEN 0100000 0x8000</span> +<span id="L203" class="LineNr">203 </span> +<span id="L204" class="LineNr">204 </span><span class="subxComment"># recipe for raw mode according to the termios.3 manpage on Linux:</span> +<span id="L205" class="LineNr">205 </span><span class="subxComment"># termios_p->c_iflag &= ~(IGNBRK | BRKINT | PARMRK | ISTRIP | INLCR | IGNCR | ICRNL | IXON);</span> +<span id="L206" class="LineNr">206 </span><span class="subxComment"># termios_p->c_oflag &= ~OPOST;</span> +<span id="L207" class="LineNr">207 </span><span class="subxComment"># termios_p->c_lflag &= ~(ECHO | ECHONL | ICANON | ISIG | IEXTEN);</span> +<span id="L208" class="LineNr">208 </span><span class="subxComment"># termios_p->c_cflag &= ~(CSIZE | PARENB);</span> +<span id="L209" class="LineNr">209 </span><span class="subxComment"># termios_p->c_cflag |= CS8;</span> +<span id="L210" class="LineNr">210 </span> +<span id="L211" class="LineNr">211 </span><span class="SpecialChar">Keyboard-immediate-mode-iflags</span>: <span class="subxComment"># (addr tcflag_t)</span> +<span id="L212" class="LineNr">212 </span><span class="CommentedCode">#? 0xfffffa14 # ~IGNBRK & ~BRKINT & ~PARMRK & ~ISTRIP & ~INLCR & ~IGNCR & ~ICRNL & ~IXON</span> +<span id="L213" class="LineNr">213 </span> 0xffffffff/imm32 +<span id="L214" class="LineNr">214 </span> +<span id="L215" class="LineNr">215 </span><span class="SpecialChar">Keyboard-immediate-mode-lflags</span>: <span class="subxComment"># (addr tcflag_t)</span> +<span id="L216" class="LineNr">216 </span><span class="CommentedCode">#? 0xffff7fb4/imm32 # ~ICANON & ~ISIG & ~IEXTEN & ~ECHO & ~ECHONL</span> +<span id="L217" class="LineNr">217 </span> 0xffffffb5/imm32 <span class="subxComment"># ~ICANON & ~ECHO & ~ECHONL</span> +<span id="L218" class="LineNr">218 </span> +<span id="L219" class="LineNr">219 </span><span class="SpecialChar">Keyboard-type-mode-iflags</span>: <span class="subxComment"># (addr tcflag_t)</span> +<span id="L220" class="LineNr">220 </span> 0x00000000/imm32 <span class="subxComment"># ~Keyboard-immediate-mode-iflags</span> +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span><span class="SpecialChar">Keyboard-type-mode-lflags</span>: <span class="subxComment"># (addr tcflag_t)</span> +<span id="L223" class="LineNr">223 </span> 0x0000004a/imm32 <span class="subxComment"># ~Keyboard-immediate-mode-lflags</span> </pre> </body> </html> diff --git a/html/306files.subx.html b/html/306files.subx.html index 8b376ea8..f0d65248 100644 --- a/html/306files.subx.html +++ b/html/306files.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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> @@ -101,113 +101,116 @@ if ('onhashchange' in window) { <span id="L44" class="LineNr"> 44 </span> 89/<- %ecx 0/r32/eax <span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># restore edx</span> <span id="L46" class="LineNr"> 46 </span> 5a/pop-to-edx -<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># allocate a buffered-file</span> -<span id="L48" class="LineNr"> 48 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x1010 *(ebp+0x10)) <span class="subxComment"># file-buffer-size + 16 for other fields</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># var out-addr/edi: (addr buffered-file)</span> -<span id="L50" class="LineNr"> 50 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L51" class="LineNr"> 51 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L52" class="LineNr"> 52 </span> 89/<- %edi 0/r32/eax -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># out-addr->size = 4KB</span> -<span id="L54" class="LineNr"> 54 </span> c7 0/subop/copy *(edi+0xc) 0x1000/imm32/file-buffer-size <span class="subxComment"># Stream-size + 4 for fd</span> -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># out-addr->fd = fd</span> -<span id="L56" class="LineNr"> 56 </span> 89/<- *edi 1/r32/ecx -<span id="L57" class="LineNr"> 57 </span><span class="Constant">$open:end</span>: -<span id="L58" class="LineNr"> 58 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L59" class="LineNr"> 59 </span> 01/add-to %esp 2/r32/edx -<span id="L60" class="LineNr"> 60 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L62" class="LineNr"> 62 </span> 5f/pop-to-edi -<span id="L63" class="LineNr"> 63 </span> 5e/pop-to-esi -<span id="L64" class="LineNr"> 64 </span> 5b/pop-to-ebx -<span id="L65" class="LineNr"> 65 </span> 5a/pop-to-edx -<span id="L66" class="LineNr"> 66 </span> 59/pop-to-ecx -<span id="L67" class="LineNr"> 67 </span> 58/pop-to-eax -<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L69" class="LineNr"> 69 </span> 89/<- %esp 5/r32/ebp -<span id="L70" class="LineNr"> 70 </span> 5d/pop-to-ebp -<span id="L71" class="LineNr"> 71 </span> c3/return -<span id="L72" class="LineNr"> 72 </span> -<span id="L73" class="LineNr"> 73 </span><span class="subxFunction">populate-buffered-file-containing</span>: <span class="subxComment"># contents: (addr array byte), out: (addr handle buffered-file)</span> -<span id="L74" class="LineNr"> 74 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L75" class="LineNr"> 75 </span> 55/push-ebp -<span id="L76" class="LineNr"> 76 </span> 89/<- %ebp 4/r32/esp -<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L78" class="LineNr"> 78 </span> 50/push-eax -<span id="L79" class="LineNr"> 79 </span> 51/push-ecx -<span id="L80" class="LineNr"> 80 </span> 56/push-esi -<span id="L81" class="LineNr"> 81 </span> 57/push-edi -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># esi = contents</span> -<span id="L83" class="LineNr"> 83 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># var n/ecx: int = len(contents)</span> -<span id="L85" class="LineNr"> 85 </span> 8b/-> *esi 1/r32/ecx -<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># var stream/edi: (handle stream byte)</span> -<span id="L87" class="LineNr"> 87 </span> 68/push 0/imm32 -<span id="L88" class="LineNr"> 88 </span> 68/push 0/imm32 -<span id="L89" class="LineNr"> 89 </span> 89/<- %edi 4/r32/esp -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># allocate stream</span> -<span id="L91" class="LineNr"> 91 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx 1 %edi) -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var stream-addr/edi: (addr stream byte) = lookup(stream)</span> -<span id="L93" class="LineNr"> 93 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L94" class="LineNr"> 94 </span> 89/<- %edi 0/r32/eax -<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># write contents to stream</span> -<span id="L96" class="LineNr"> 96 </span> (<a href='108write.subx.html#L24'>write</a> %edi %esi) -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># allocate buffered-file</span> -<span id="L98" class="LineNr"> 98 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+0xc)) -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> -<span id="L100" class="LineNr">100 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L101" class="LineNr">101 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L102" class="LineNr">102 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> -<span id="L103" class="LineNr">103 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># out-addr->fd = stream</span> -<span id="L105" class="LineNr">105 </span> 89/<- *eax 7/r32/edi -<span id="L106" class="LineNr">106 </span><span class="Constant">$populate-buffered-file-containing:end</span>: -<span id="L107" class="LineNr">107 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L108" class="LineNr">108 </span> 81 0/subop/add %esp 8/imm32 -<span id="L109" class="LineNr">109 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L110" class="LineNr">110 </span> 5f/pop-to-edi -<span id="L111" class="LineNr">111 </span> 5e/pop-to-esi -<span id="L112" class="LineNr">112 </span> 59/pop-to-ecx -<span id="L113" class="LineNr">113 </span> 58/pop-to-eax -<span id="L114" class="LineNr">114 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L115" class="LineNr">115 </span> 89/<- %esp 5/r32/ebp -<span id="L116" class="LineNr">116 </span> 5d/pop-to-ebp -<span id="L117" class="LineNr">117 </span> c3/return -<span id="L118" class="LineNr">118 </span> -<span id="L119" class="LineNr">119 </span><span class="subxFunction">new-buffered-file</span>: <span class="subxComment"># out: (addr handle buffered-file)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L121" class="LineNr">121 </span> 55/push-ebp -<span id="L122" class="LineNr">122 </span> 89/<- %ebp 4/r32/esp -<span id="L123" class="LineNr">123 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L124" class="LineNr">124 </span> 50/push-eax -<span id="L125" class="LineNr">125 </span> 51/push-ecx -<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var stream/ecx: (handle stream byte)</span> -<span id="L127" class="LineNr">127 </span> 68/push 0/imm32 -<span id="L128" class="LineNr">128 </span> 68/push 0/imm32 -<span id="L129" class="LineNr">129 </span> 89/<- %ecx 4/r32/esp -<span id="L130" class="LineNr">130 </span> <span class="subxComment"># allocate stream</span> -<span id="L131" class="LineNr">131 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x100 1 %ecx) -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># var stream-addr/ecx: (addr stream byte) = lookup(stream)</span> -<span id="L133" class="LineNr">133 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L134" class="LineNr">134 </span> 89/<- %ecx 0/r32/eax -<span id="L135" class="LineNr">135 </span> <span class="subxComment"># allocate buffered-file</span> -<span id="L136" class="LineNr">136 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+8)) -<span id="L137" class="LineNr">137 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> -<span id="L138" class="LineNr">138 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L139" class="LineNr">139 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L140" class="LineNr">140 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> -<span id="L141" class="LineNr">141 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size -<span id="L142" class="LineNr">142 </span> <span class="subxComment"># out-addr->fd = stream</span> -<span id="L143" class="LineNr">143 </span> 89/<- *eax 1/r32/ecx -<span id="L144" class="LineNr">144 </span><span class="Constant">$new-buffered-file:end</span>: -<span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L146" class="LineNr">146 </span> 81 0/subop/add %esp 8/imm32 -<span id="L147" class="LineNr">147 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L148" class="LineNr">148 </span> 59/pop-to-ecx -<span id="L149" class="LineNr">149 </span> 58/pop-to-eax -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L151" class="LineNr">151 </span> 89/<- %esp 5/r32/ebp -<span id="L152" class="LineNr">152 </span> 5d/pop-to-ebp -<span id="L153" class="LineNr">153 </span> c3/return +<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># if fd < 0 return</span> +<span id="L48" class="LineNr"> 48 </span> 3d/compare-eax-with 0/imm32 +<span id="L49" class="LineNr"> 49 </span> 7c/jump-if-< $open:end/disp8 +<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># allocate a buffered-file</span> +<span id="L51" class="LineNr"> 51 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x1010 *(ebp+0x10)) <span class="subxComment"># file-buffer-size + 16 for other fields</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># var out-addr/edi: (addr buffered-file)</span> +<span id="L53" class="LineNr"> 53 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L54" class="LineNr"> 54 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L55" class="LineNr"> 55 </span> 89/<- %edi 0/r32/eax +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># out-addr->size = 4KB</span> +<span id="L57" class="LineNr"> 57 </span> c7 0/subop/copy *(edi+0xc) 0x1000/imm32/file-buffer-size <span class="subxComment"># Stream-size + 4 for fd</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># out-addr->fd = fd</span> +<span id="L59" class="LineNr"> 59 </span> 89/<- *edi 1/r32/ecx +<span id="L60" class="LineNr"> 60 </span><span class="Constant">$open:end</span>: +<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L62" class="LineNr"> 62 </span> 01/add-to %esp 2/r32/edx +<span id="L63" class="LineNr"> 63 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L64" class="LineNr"> 64 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L65" class="LineNr"> 65 </span> 5f/pop-to-edi +<span id="L66" class="LineNr"> 66 </span> 5e/pop-to-esi +<span id="L67" class="LineNr"> 67 </span> 5b/pop-to-ebx +<span id="L68" class="LineNr"> 68 </span> 5a/pop-to-edx +<span id="L69" class="LineNr"> 69 </span> 59/pop-to-ecx +<span id="L70" class="LineNr"> 70 </span> 58/pop-to-eax +<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L72" class="LineNr"> 72 </span> 89/<- %esp 5/r32/ebp +<span id="L73" class="LineNr"> 73 </span> 5d/pop-to-ebp +<span id="L74" class="LineNr"> 74 </span> c3/return +<span id="L75" class="LineNr"> 75 </span> +<span id="L76" class="LineNr"> 76 </span><span class="subxFunction">populate-buffered-file-containing</span>: <span class="subxComment"># contents: (addr array byte), out: (addr handle buffered-file)</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L78" class="LineNr"> 78 </span> 55/push-ebp +<span id="L79" class="LineNr"> 79 </span> 89/<- %ebp 4/r32/esp +<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L81" class="LineNr"> 81 </span> 50/push-eax +<span id="L82" class="LineNr"> 82 </span> 51/push-ecx +<span id="L83" class="LineNr"> 83 </span> 56/push-esi +<span id="L84" class="LineNr"> 84 </span> 57/push-edi +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># esi = contents</span> +<span id="L86" class="LineNr"> 86 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># var n/ecx: int = len(contents)</span> +<span id="L88" class="LineNr"> 88 </span> 8b/-> *esi 1/r32/ecx +<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># var stream/edi: (handle stream byte)</span> +<span id="L90" class="LineNr"> 90 </span> 68/push 0/imm32 +<span id="L91" class="LineNr"> 91 </span> 68/push 0/imm32 +<span id="L92" class="LineNr"> 92 </span> 89/<- %edi 4/r32/esp +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># allocate stream</span> +<span id="L94" class="LineNr"> 94 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx 1 %edi) +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># var stream-addr/edi: (addr stream byte) = lookup(stream)</span> +<span id="L96" class="LineNr"> 96 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L97" class="LineNr"> 97 </span> 89/<- %edi 0/r32/eax +<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># write contents to stream</span> +<span id="L99" class="LineNr"> 99 </span> (<a href='108write.subx.html#L24'>write</a> %edi %esi) +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># allocate buffered-file</span> +<span id="L101" class="LineNr">101 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+0xc)) +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> +<span id="L103" class="LineNr">103 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L104" class="LineNr">104 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L105" class="LineNr">105 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> +<span id="L106" class="LineNr">106 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size +<span id="L107" class="LineNr">107 </span> <span class="subxComment"># out-addr->fd = stream</span> +<span id="L108" class="LineNr">108 </span> 89/<- *eax 7/r32/edi +<span id="L109" class="LineNr">109 </span><span class="Constant">$populate-buffered-file-containing:end</span>: +<span id="L110" class="LineNr">110 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L111" class="LineNr">111 </span> 81 0/subop/add %esp 8/imm32 +<span id="L112" class="LineNr">112 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L113" class="LineNr">113 </span> 5f/pop-to-edi +<span id="L114" class="LineNr">114 </span> 5e/pop-to-esi +<span id="L115" class="LineNr">115 </span> 59/pop-to-ecx +<span id="L116" class="LineNr">116 </span> 58/pop-to-eax +<span id="L117" class="LineNr">117 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L118" class="LineNr">118 </span> 89/<- %esp 5/r32/ebp +<span id="L119" class="LineNr">119 </span> 5d/pop-to-ebp +<span id="L120" class="LineNr">120 </span> c3/return +<span id="L121" class="LineNr">121 </span> +<span id="L122" class="LineNr">122 </span><span class="subxFunction">new-buffered-file</span>: <span class="subxComment"># out: (addr handle buffered-file)</span> +<span id="L123" class="LineNr">123 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L124" class="LineNr">124 </span> 55/push-ebp +<span id="L125" class="LineNr">125 </span> 89/<- %ebp 4/r32/esp +<span id="L126" class="LineNr">126 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L127" class="LineNr">127 </span> 50/push-eax +<span id="L128" class="LineNr">128 </span> 51/push-ecx +<span id="L129" class="LineNr">129 </span> <span class="subxComment"># var stream/ecx: (handle stream byte)</span> +<span id="L130" class="LineNr">130 </span> 68/push 0/imm32 +<span id="L131" class="LineNr">131 </span> 68/push 0/imm32 +<span id="L132" class="LineNr">132 </span> 89/<- %ecx 4/r32/esp +<span id="L133" class="LineNr">133 </span> <span class="subxComment"># allocate stream</span> +<span id="L134" class="LineNr">134 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x100 1 %ecx) +<span id="L135" class="LineNr">135 </span> <span class="subxComment"># var stream-addr/ecx: (addr stream byte) = lookup(stream)</span> +<span id="L136" class="LineNr">136 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L137" class="LineNr">137 </span> 89/<- %ecx 0/r32/eax +<span id="L138" class="LineNr">138 </span> <span class="subxComment"># allocate buffered-file</span> +<span id="L139" class="LineNr">139 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+8)) +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> +<span id="L141" class="LineNr">141 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L142" class="LineNr">142 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L143" class="LineNr">143 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> +<span id="L144" class="LineNr">144 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size +<span id="L145" class="LineNr">145 </span> <span class="subxComment"># out-addr->fd = stream</span> +<span id="L146" class="LineNr">146 </span> 89/<- *eax 1/r32/ecx +<span id="L147" class="LineNr">147 </span><span class="Constant">$new-buffered-file:end</span>: +<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L149" class="LineNr">149 </span> 81 0/subop/add %esp 8/imm32 +<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L151" class="LineNr">151 </span> 59/pop-to-ecx +<span id="L152" class="LineNr">152 </span> 58/pop-to-eax +<span id="L153" class="LineNr">153 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L154" class="LineNr">154 </span> 89/<- %esp 5/r32/ebp +<span id="L155" class="LineNr">155 </span> 5d/pop-to-ebp +<span id="L156" class="LineNr">156 </span> c3/return </pre> </body> </html> diff --git a/html/307size.subx.html b/html/307size.subx.html index 32296163..363a8d6c 100644 --- a/html/307size.subx.html +++ b/html/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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/308allocate-array.subx.html b/html/308allocate-array.subx.html index 4ce56f4e..e664347d 100644 --- a/html/308allocate-array.subx.html +++ b/html/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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> @@ -67,7 +67,7 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr">11 </span> 52/push-edx <span id="L12" class="LineNr">12 </span> <span class="subxComment">#</span> <span id="L13" class="LineNr">13 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14" class="LineNr">14 </span> f7 4/subop/multiply-into-eax-edx *(ebp+0x10) +<span id="L14" class="LineNr">14 </span> f7 4/subop/multiply-into-edx-eax *(ebp+0x10) <span id="L15" class="LineNr">15 </span> <span class="subxComment"># TODO: check edx for overflow</span> <span id="L16" class="LineNr">16 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) <span id="L17" class="LineNr">17 </span><span class="Constant">$allocate-array2:end</span>: diff --git a/html/309stream.subx.html b/html/309stream.subx.html index e950cd8e..9fc1c261 100644 --- a/html/309stream.subx.html +++ b/html/309stream.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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/310copy-bytes.subx.html b/html/310copy-bytes.subx.html index eac701fa..6f799a95 100644 --- a/html/310copy-bytes.subx.html +++ b/html/310copy-bytes.subx.html @@ -15,10 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.SpecialChar { color: #d70000; } .subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } --> </style> @@ -54,63 +56,121 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/310copy-bytes.subx'>https://github.com/akkartik/mu/blob/master/310copy-bytes.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> -<span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span>== code -<span id="L4" class="LineNr"> 4 </span> -<span id="L5" class="LineNr"> 5 </span><span class="subxFunction">copy-bytes</span>: <span class="subxComment"># src: (addr byte), dest: (addr byte), size: int</span> -<span id="L6" class="LineNr"> 6 </span> <span class="subxComment"># pseudocode:</span> -<span id="L7" class="LineNr"> 7 </span> <span class="subxComment"># curr-src/esi = src</span> -<span id="L8" class="LineNr"> 8 </span> <span class="subxComment"># curr-dest/edi = dest</span> -<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># i/ecx = 0</span> -<span id="L10" class="LineNr">10 </span> <span class="subxComment"># while true</span> -<span id="L11" class="LineNr">11 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L12" class="LineNr">12 </span> <span class="subxComment"># *curr-dest = *curr-src</span> -<span id="L13" class="LineNr">13 </span> <span class="subxComment"># ++curr-src</span> -<span id="L14" class="LineNr">14 </span> <span class="subxComment"># ++curr-dest</span> -<span id="L15" class="LineNr">15 </span> <span class="subxComment"># ++i</span> -<span id="L16" class="LineNr">16 </span> <span class="subxComment">#</span> -<span id="L17" class="LineNr">17 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18" class="LineNr">18 </span> 55/push-ebp -<span id="L19" class="LineNr">19 </span> 89/<- %ebp 4/r32/esp -<span id="L20" class="LineNr">20 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21" class="LineNr">21 </span> 50/push-eax -<span id="L22" class="LineNr">22 </span> 51/push-ecx -<span id="L23" class="LineNr">23 </span> 52/push-edx -<span id="L24" class="LineNr">24 </span> 56/push-esi -<span id="L25" class="LineNr">25 </span> 57/push-edi -<span id="L26" class="LineNr">26 </span> <span class="subxComment"># curr-src/esi = src</span> -<span id="L27" class="LineNr">27 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># curr-dest/edi = dest</span> -<span id="L29" class="LineNr">29 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L30" class="LineNr">30 </span> <span class="subxComment"># var i/ecx: int = 0</span> -<span id="L31" class="LineNr">31 </span> b9/copy-to-ecx 0/imm32 -<span id="L32" class="LineNr">32 </span> <span class="subxComment"># edx = size</span> -<span id="L33" class="LineNr">33 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L34" class="LineNr">34 </span> { -<span id="L35" class="LineNr">35 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L36" class="LineNr">36 </span> 39/compare %ecx 2/r32/edx -<span id="L37" class="LineNr">37 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L38" class="LineNr">38 </span> <span class="subxComment"># *curr-dest = *curr-src</span> -<span id="L39" class="LineNr">39 </span> 8a/byte-> *esi 0/r32/AL -<span id="L40" class="LineNr">40 </span> 88/byte<- *edi 0/r32/AL -<span id="L41" class="LineNr">41 </span> <span class="subxComment"># update</span> -<span id="L42" class="LineNr">42 </span> 46/increment-esi -<span id="L43" class="LineNr">43 </span> 47/increment-edi -<span id="L44" class="LineNr">44 </span> 41/increment-ecx -<span id="L45" class="LineNr">45 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L46" class="LineNr">46 </span> } -<span id="L47" class="LineNr">47 </span><span class="Constant">$copy-bytes:end</span>: -<span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L49" class="LineNr">49 </span> 5f/pop-to-edi -<span id="L50" class="LineNr">50 </span> 5e/pop-to-esi -<span id="L51" class="LineNr">51 </span> 5a/pop-to-edx -<span id="L52" class="LineNr">52 </span> 59/pop-to-ecx -<span id="L53" class="LineNr">53 </span> 58/pop-to-eax -<span id="L54" class="LineNr">54 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L55" class="LineNr">55 </span> 89/<- %esp 5/r32/ebp -<span id="L56" class="LineNr">56 </span> 5d/pop-to-ebp -<span id="L57" class="LineNr">57 </span> c3/return +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span>== code +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="subxFunction">copy-bytes</span>: <span class="subxComment"># src: (addr byte), dest: (addr byte), size: int</span> +<span id="L6" class="LineNr"> 6 </span> <span class="subxComment"># pseudocode:</span> +<span id="L7" class="LineNr"> 7 </span> <span class="subxComment"># curr-src/esi = src</span> +<span id="L8" class="LineNr"> 8 </span> <span class="subxComment"># curr-dest/edi = dest</span> +<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># i/ecx = 0</span> +<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># while true</span> +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L12" class="LineNr"> 12 </span> <span class="subxComment"># *curr-dest = *curr-src</span> +<span id="L13" class="LineNr"> 13 </span> <span class="subxComment"># ++curr-src</span> +<span id="L14" class="LineNr"> 14 </span> <span class="subxComment"># ++curr-dest</span> +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># ++i</span> +<span id="L16" class="LineNr"> 16 </span> <span class="subxComment">#</span> +<span id="L17" class="LineNr"> 17 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18" class="LineNr"> 18 </span> 55/push-ebp +<span id="L19" class="LineNr"> 19 </span> 89/<- %ebp 4/r32/esp +<span id="L20" class="LineNr"> 20 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21" class="LineNr"> 21 </span> 50/push-eax +<span id="L22" class="LineNr"> 22 </span> 51/push-ecx +<span id="L23" class="LineNr"> 23 </span> 52/push-edx +<span id="L24" class="LineNr"> 24 </span> 56/push-esi +<span id="L25" class="LineNr"> 25 </span> 57/push-edi +<span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># curr-src/esi = src</span> +<span id="L27" class="LineNr"> 27 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># curr-dest/edi = dest</span> +<span id="L29" class="LineNr"> 29 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L31" class="LineNr"> 31 </span> b9/copy-to-ecx 0/imm32 +<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># edx = size</span> +<span id="L33" class="LineNr"> 33 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L34" class="LineNr"> 34 </span> { +<span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L36" class="LineNr"> 36 </span> 39/compare %ecx 2/r32/edx +<span id="L37" class="LineNr"> 37 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># *curr-dest = *curr-src</span> +<span id="L39" class="LineNr"> 39 </span> 8a/byte-> *esi 0/r32/AL +<span id="L40" class="LineNr"> 40 </span> 88/byte<- *edi 0/r32/AL +<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># update</span> +<span id="L42" class="LineNr"> 42 </span> 46/increment-esi +<span id="L43" class="LineNr"> 43 </span> 47/increment-edi +<span id="L44" class="LineNr"> 44 </span> 41/increment-ecx +<span id="L45" class="LineNr"> 45 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L46" class="LineNr"> 46 </span> } +<span id="L47" class="LineNr"> 47 </span><span class="Constant">$copy-bytes:end</span>: +<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L49" class="LineNr"> 49 </span> 5f/pop-to-edi +<span id="L50" class="LineNr"> 50 </span> 5e/pop-to-esi +<span id="L51" class="LineNr"> 51 </span> 5a/pop-to-edx +<span id="L52" class="LineNr"> 52 </span> 59/pop-to-ecx +<span id="L53" class="LineNr"> 53 </span> 58/pop-to-eax +<span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L55" class="LineNr"> 55 </span> 89/<- %esp 5/r32/ebp +<span id="L56" class="LineNr"> 56 </span> 5d/pop-to-ebp +<span id="L57" class="LineNr"> 57 </span> c3/return +<span id="L58" class="LineNr"> 58 </span> +<span id="L59" class="LineNr"> 59 </span><span class="subxFunction">stream-to-string</span>: <span class="subxComment"># in: (addr stream _), out: (addr handle array _)</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L61" class="LineNr"> 61 </span> 55/push-ebp +<span id="L62" class="LineNr"> 62 </span> 89/<- %ebp 4/r32/esp +<span id="L63" class="LineNr"> 63 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L64" class="LineNr"> 64 </span> 50/push-eax +<span id="L65" class="LineNr"> 65 </span> 51/push-ecx +<span id="L66" class="LineNr"> 66 </span> 52/push-edx +<span id="L67" class="LineNr"> 67 </span> 56/push-esi +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># esi = s</span> +<span id="L69" class="LineNr"> 69 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># var len/ecx: int = s->write - s->read</span> +<span id="L71" class="LineNr"> 71 </span> 8b/-> *esi 1/r32/ecx +<span id="L72" class="LineNr"> 72 </span> 2b/subtract *(esi+4) 1/r32/ecx +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># allocate</span> +<span id="L74" class="LineNr"> 74 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> +<span id="L76" class="LineNr"> 76 </span> 8b/-> *(esi+4) 2/r32/edx +<span id="L77" class="LineNr"> 77 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> +<span id="L79" class="LineNr"> 79 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L80" class="LineNr"> 80 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L81" class="LineNr"> 81 </span> 8d/copy-address *(eax+4) 0/r32/eax +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment">#</span> +<span id="L83" class="LineNr"> 83 </span> (<a href='310copy-bytes.subx.html#L5'>copy-bytes</a> %edx %eax %ecx) +<span id="L84" class="LineNr"> 84 </span><span class="Constant">$stream-to-string:end</span>: +<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L86" class="LineNr"> 86 </span> 5e/pop-to-esi +<span id="L87" class="LineNr"> 87 </span> 5a/pop-to-edx +<span id="L88" class="LineNr"> 88 </span> 59/pop-to-ecx +<span id="L89" class="LineNr"> 89 </span> 58/pop-to-eax +<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L91" class="LineNr"> 91 </span> 89/<- %esp 5/r32/ebp +<span id="L92" class="LineNr"> 92 </span> 5d/pop-to-ebp +<span id="L93" class="LineNr"> 93 </span> c3/return +<span id="L94" class="LineNr"> 94 </span> +<span id="L95" class="LineNr"> 95 </span><span class="subxTest">test-stream-to-string</span>: +<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L97" class="LineNr"> 97 </span> 55/push-ebp +<span id="L98" class="LineNr"> 98 </span> 89/<- %ebp 4/r32/esp +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># setup</span> +<span id="L100" class="LineNr">100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L101" class="LineNr">101 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"abc"</span>) +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># skip something</span> +<span id="L103" class="LineNr">103 </span> (<a href='112read-byte.subx.html#L273'>read-byte</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) <span class="subxComment"># => eax</span> +<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var out/ecx: (handle array byte)</span> +<span id="L105" class="LineNr">105 </span> 68/push 0/imm32 +<span id="L106" class="LineNr">106 </span> 68/push 0/imm32 +<span id="L107" class="LineNr">107 </span> 89/<- %ecx 4/r32/esp +<span id="L108" class="LineNr">108 </span> <span class="subxComment">#</span> +<span id="L109" class="LineNr">109 </span> (<a href='310copy-bytes.subx.html#L59'>stream-to-string</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx) +<span id="L110" class="LineNr">110 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L111" class="LineNr">111 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) +<span id="L112" class="LineNr">112 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L113" class="LineNr">113 </span> 89/<- %esp 5/r32/ebp +<span id="L114" class="LineNr">114 </span> 5d/pop-to-ebp +<span id="L115" class="LineNr">115 </span> c3/return </pre> </body> </html> diff --git a/html/311decimal-int.subx.html b/html/311decimal-int.subx.html new file mode 100644 index 00000000..1ceab4d8 --- /dev/null +++ b/html/311decimal-int.subx.html @@ -0,0 +1,463 @@ +<!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 - 311decimal-int.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.LineNr { } +.subxTest { color: #5f8700; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/311decimal-int.subx'>https://github.com/akkartik/mu/blob/master/311decimal-int.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helpers for decimal ints.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="subxFunction">parse-decimal-int-from-slice</span>: <span class="subxComment"># in: (addr slice) -> out/eax: int</span> +<span id="L4" class="LineNr"> 4 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5" class="LineNr"> 5 </span> 55/push-ebp +<span id="L6" class="LineNr"> 6 </span> 89/<- %ebp 4/r32/esp +<span id="L7" class="LineNr"> 7 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L8" class="LineNr"> 8 </span> 51/push-ecx +<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># ecx = in</span> +<span id="L10" class="LineNr"> 10 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment">#</span> +<span id="L12" class="LineNr"> 12 </span> (<a href='311decimal-int.subx.html#L72'>parse-decimal-int-helper</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L13" class="LineNr"> 13 </span><span class="Constant">$parse-decimal-int-from-slice:end</span>: +<span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15" class="LineNr"> 15 </span> 59/pop-to-ecx +<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17" class="LineNr"> 17 </span> 89/<- %esp 5/r32/ebp +<span id="L18" class="LineNr"> 18 </span> 5d/pop-to-ebp +<span id="L19" class="LineNr"> 19 </span> c3/return +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">parse-decimal-int</span>: <span class="subxComment"># in: (addr array byte) -> result/eax: int</span> +<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23" class="LineNr"> 23 </span> 55/push-ebp +<span id="L24" class="LineNr"> 24 </span> 89/<- %ebp 4/r32/esp +<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26" class="LineNr"> 26 </span> 51/push-ecx +<span id="L27" class="LineNr"> 27 </span> 52/push-edx +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># eax = in</span> +<span id="L29" class="LineNr"> 29 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># var start/ecx: (addr byte) = &in->data</span> +<span id="L31" class="LineNr"> 31 </span> 8d/copy-address *(eax+4) 1/r32/ecx +<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># var end/edx: (addr byte) = &in->data[in->size]</span> +<span id="L33" class="LineNr"> 33 </span> 8b/-> *eax 2/r32/edx +<span id="L34" class="LineNr"> 34 </span> 8d/copy-address *(eax+edx+4) 2/r32/edx +<span id="L35" class="LineNr"> 35 </span> <span class="subxComment">#</span> +<span id="L36" class="LineNr"> 36 </span> (<a href='311decimal-int.subx.html#L72'>parse-decimal-int-helper</a> %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L37" class="LineNr"> 37 </span><span class="Constant">$parse-decimal-int:end</span>: +<span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L39" class="LineNr"> 39 </span> 5a/pop-to-edx +<span id="L40" class="LineNr"> 40 </span> 59/pop-to-ecx +<span id="L41" class="LineNr"> 41 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L42" class="LineNr"> 42 </span> 89/<- %esp 5/r32/ebp +<span id="L43" class="LineNr"> 43 </span> 5d/pop-to-ebp +<span id="L44" class="LineNr"> 44 </span> c3/return +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span><span class="subxFunction">parse-decimal-int-from-stream</span>: <span class="subxComment"># in: (addr stream byte) -> result/eax: int</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L48" class="LineNr"> 48 </span> 55/push-ebp +<span id="L49" class="LineNr"> 49 </span> 89/<- %ebp 4/r32/esp +<span id="L50" class="LineNr"> 50 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L51" class="LineNr"> 51 </span> 51/push-ecx +<span id="L52" class="LineNr"> 52 </span> 52/push-edx +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># eax = in</span> +<span id="L54" class="LineNr"> 54 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># var start/ecx: (addr byte) = &in->data[in->read]</span> +<span id="L56" class="LineNr"> 56 </span> 8b/-> *(eax+4) 1/r32/ecx +<span id="L57" class="LineNr"> 57 </span> 8d/copy-address *(eax+ecx+0xc) 1/r32/ecx +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var end/edx: (addr byte) = &in->data[in->write]</span> +<span id="L59" class="LineNr"> 59 </span> 8b/-> *eax 2/r32/edx +<span id="L60" class="LineNr"> 60 </span> 8d/copy-address *(eax+edx+0xc) 2/r32/edx +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment">#</span> +<span id="L62" class="LineNr"> 62 </span> (<a href='311decimal-int.subx.html#L72'>parse-decimal-int-helper</a> %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L63" class="LineNr"> 63 </span><span class="Constant">$parse-decimal-int-from-stream:end</span>: +<span id="L64" class="LineNr"> 64 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L65" class="LineNr"> 65 </span> 5a/pop-to-edx +<span id="L66" class="LineNr"> 66 </span> 59/pop-to-ecx +<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L68" class="LineNr"> 68 </span> 89/<- %esp 5/r32/ebp +<span id="L69" class="LineNr"> 69 </span> 5d/pop-to-ebp +<span id="L70" class="LineNr"> 70 </span> c3/return +<span id="L71" class="LineNr"> 71 </span> +<span id="L72" class="LineNr"> 72 </span><span class="subxFunction">parse-decimal-int-helper</span>: <span class="subxComment"># start: (addr byte), end: (addr byte) -> result/eax: int</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L74" class="LineNr"> 74 </span> 55/push-ebp +<span id="L75" class="LineNr"> 75 </span> 89/<- %ebp 4/r32/esp +<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L77" class="LineNr"> 77 </span> 51/push-ecx +<span id="L78" class="LineNr"> 78 </span> 52/push-edx +<span id="L79" class="LineNr"> 79 </span> 53/push-ebx +<span id="L80" class="LineNr"> 80 </span> 56/push-esi +<span id="L81" class="LineNr"> 81 </span> 57/push-edi +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var curr/esi: (addr byte) = start</span> +<span id="L83" class="LineNr"> 83 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># edi = end</span> +<span id="L85" class="LineNr"> 85 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># var negate?/edx: boolean = false</span> +<span id="L87" class="LineNr"> 87 </span> ba/copy-to-edx 0/imm32/false +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># if (*curr == '-') ++curr, negate = true</span> +<span id="L89" class="LineNr"> 89 </span> { +<span id="L90" class="LineNr"> 90 </span><span class="Constant">$parse-decimal-int-helper:negative</span>: +<span id="L91" class="LineNr"> 91 </span> b8/copy-to-eax 0/imm32 +<span id="L92" class="LineNr"> 92 </span> 8a/copy-byte *esi 0/r32/AL +<span id="L93" class="LineNr"> 93 </span> 3d/compare-eax-and 0x2d/imm32/- +<span id="L94" class="LineNr"> 94 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L96" class="LineNr"> 96 </span> 46/increment-esi +<span id="L97" class="LineNr"> 97 </span> <span class="subxS1Comment"># . negate = true</span> +<span id="L98" class="LineNr"> 98 </span> ba/copy-to-edx 1/imm32/true +<span id="L99" class="LineNr"> 99 </span> } +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># spill negate?</span> +<span id="L101" class="LineNr">101 </span> 52/push-edx +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># var result/eax: int = 0</span> +<span id="L103" class="LineNr">103 </span> b8/copy-to-eax 0/imm32 +<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var digit/ecx: int = 0</span> +<span id="L105" class="LineNr">105 </span> b9/copy-to-ecx 0/imm32 +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># const TEN/ebx: int = 10</span> +<span id="L107" class="LineNr">107 </span> bb/copy-to-ebx 0xa/imm32 +<span id="L108" class="LineNr">108 </span> { +<span id="L109" class="LineNr">109 </span><span class="Constant">$parse-decimal-int-helper:loop</span>: +<span id="L110" class="LineNr">110 </span> <span class="subxComment"># if (curr >= in->end) break</span> +<span id="L111" class="LineNr">111 </span> 39/compare %esi 7/r32/edi +<span id="L112" class="LineNr">112 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L113" class="LineNr">113 </span> <span class="subxComment"># digit = from-decimal-char(*curr)</span> +<span id="L114" class="LineNr">114 </span> 8a/copy-byte *esi 1/r32/CL +<span id="L115" class="LineNr">115 </span> 81 5/subop/subtract %ecx 0x30/imm32/zero +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># TODO: error checking</span> +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># result = result * 10 + digit</span> +<span id="L118" class="LineNr">118 </span> ba/copy-to-edx 0/imm32 +<span id="L119" class="LineNr">119 </span> f7 4/subop/multiply-into-edx-eax %ebx +<span id="L120" class="LineNr">120 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L121" class="LineNr">121 </span> 01/add %eax 1/r32/ecx +<span id="L122" class="LineNr">122 </span> <span class="subxComment"># ++curr</span> +<span id="L123" class="LineNr">123 </span> 46/increment-esi +<span id="L124" class="LineNr">124 </span> <span class="subxComment">#</span> +<span id="L125" class="LineNr">125 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L126" class="LineNr">126 </span> } +<span id="L127" class="LineNr">127 </span><span class="Constant">$parse-decimal-int-helper:negate</span>: +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># if (negate?) result = -result</span> +<span id="L129" class="LineNr">129 </span> 5a/pop-to-edx +<span id="L130" class="LineNr">130 </span> { +<span id="L131" class="LineNr">131 </span> 81 7/subop/compare %edx 0/imm32/false +<span id="L132" class="LineNr">132 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L133" class="LineNr">133 </span> f7 3/subop/negate %eax +<span id="L134" class="LineNr">134 </span> } +<span id="L135" class="LineNr">135 </span><span class="Constant">$parse-decimal-int-helper:end</span>: +<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L137" class="LineNr">137 </span> 5f/pop-to-edi +<span id="L138" class="LineNr">138 </span> 5e/pop-to-esi +<span id="L139" class="LineNr">139 </span> 5b/pop-to-ebx +<span id="L140" class="LineNr">140 </span> 5a/pop-to-edx +<span id="L141" class="LineNr">141 </span> 59/pop-to-ecx +<span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L143" class="LineNr">143 </span> 89/<- %esp 5/r32/ebp +<span id="L144" class="LineNr">144 </span> 5d/pop-to-ebp +<span id="L145" class="LineNr">145 </span> c3/return +<span id="L146" class="LineNr">146 </span> +<span id="L147" class="LineNr">147 </span><span class="subxTest">test-parse-decimal-int-from-slice-single-digit</span>: +<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L149" class="LineNr">149 </span> 55/push-ebp +<span id="L150" class="LineNr">150 </span> 89/<- %ebp 4/r32/esp +<span id="L151" class="LineNr">151 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L152" class="LineNr">152 </span> 50/push-eax +<span id="L153" class="LineNr">153 </span> 51/push-ecx +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># (eax..ecx) = "3"</span> +<span id="L155" class="LineNr">155 </span> b8/copy-to-eax <span class="Constant">"3"</span>/imm32 +<span id="L156" class="LineNr">156 </span> 8b/-> *eax 1/r32/ecx +<span id="L157" class="LineNr">157 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L158" class="LineNr">158 </span> 05/add-to-eax 4/imm32 +<span id="L159" class="LineNr">159 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L160" class="LineNr">160 </span> 51/push-ecx +<span id="L161" class="LineNr">161 </span> 50/push-eax +<span id="L162" class="LineNr">162 </span> 89/<- %ecx 4/r32/esp +<span id="L163" class="LineNr">163 </span> <span class="subxComment">#</span> +<span id="L164" class="LineNr">164 </span> (<a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L165" class="LineNr">165 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-parse-decimal-int-from-slice-single-digit"</span>) +<span id="L166" class="LineNr">166 </span><span class="Constant">$test-parse-decimal-int-helper-single-digit:end</span>: +<span id="L167" class="LineNr">167 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L168" class="LineNr">168 </span> 59/pop-to-ecx +<span id="L169" class="LineNr">169 </span> 58/pop-to-eax +<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L171" class="LineNr">171 </span> 89/<- %esp 5/r32/ebp +<span id="L172" class="LineNr">172 </span> 5d/pop-to-ebp +<span id="L173" class="LineNr">173 </span> c3/return +<span id="L174" class="LineNr">174 </span> +<span id="L175" class="LineNr">175 </span><span class="subxTest">test-parse-decimal-int-from-slice-multi-digit</span>: +<span id="L176" class="LineNr">176 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L177" class="LineNr">177 </span> 55/push-ebp +<span id="L178" class="LineNr">178 </span> 89/<- %ebp 4/r32/esp +<span id="L179" class="LineNr">179 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L180" class="LineNr">180 </span> 50/push-eax +<span id="L181" class="LineNr">181 </span> 51/push-ecx +<span id="L182" class="LineNr">182 </span> <span class="subxComment"># (eax..ecx) = "34"</span> +<span id="L183" class="LineNr">183 </span> b8/copy-to-eax <span class="Constant">"34"</span>/imm32 +<span id="L184" class="LineNr">184 </span> 8b/-> *eax 1/r32/ecx +<span id="L185" class="LineNr">185 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L186" class="LineNr">186 </span> 05/add-to-eax 4/imm32 +<span id="L187" class="LineNr">187 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L188" class="LineNr">188 </span> 51/push-ecx +<span id="L189" class="LineNr">189 </span> 50/push-eax +<span id="L190" class="LineNr">190 </span> 89/<- %ecx 4/r32/esp +<span id="L191" class="LineNr">191 </span> <span class="subxComment">#</span> +<span id="L192" class="LineNr">192 </span> (<a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L193" class="LineNr">193 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0x22 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit"</span>) <span class="subxComment"># 34 in hex</span> +<span id="L194" class="LineNr">194 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit:end</span>: +<span id="L195" class="LineNr">195 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L196" class="LineNr">196 </span> 59/pop-to-ecx +<span id="L197" class="LineNr">197 </span> 58/pop-to-eax +<span id="L198" class="LineNr">198 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L199" class="LineNr">199 </span> 89/<- %esp 5/r32/ebp +<span id="L200" class="LineNr">200 </span> 5d/pop-to-ebp +<span id="L201" class="LineNr">201 </span> c3/return +<span id="L202" class="LineNr">202 </span> +<span id="L203" class="LineNr">203 </span><span class="subxTest">test-parse-decimal-int-from-slice-zero</span>: +<span id="L204" class="LineNr">204 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L205" class="LineNr">205 </span> 55/push-ebp +<span id="L206" class="LineNr">206 </span> 89/<- %ebp 4/r32/esp +<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L208" class="LineNr">208 </span> 50/push-eax +<span id="L209" class="LineNr">209 </span> 51/push-ecx +<span id="L210" class="LineNr">210 </span> <span class="subxComment"># (eax..ecx) = "00"</span> +<span id="L211" class="LineNr">211 </span> b8/copy-to-eax <span class="Constant">"00"</span>/imm32 +<span id="L212" class="LineNr">212 </span> 8b/-> *eax 1/r32/ecx +<span id="L213" class="LineNr">213 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L214" class="LineNr">214 </span> 05/add-to-eax 4/imm32 +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L216" class="LineNr">216 </span> 51/push-ecx +<span id="L217" class="LineNr">217 </span> 50/push-eax +<span id="L218" class="LineNr">218 </span> 89/<- %ecx 4/r32/esp +<span id="L219" class="LineNr">219 </span> <span class="subxComment">#</span> +<span id="L220" class="LineNr">220 </span> (<a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L221" class="LineNr">221 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-parse-decimal-int-from-slice-zero"</span>) +<span id="L222" class="LineNr">222 </span><span class="Constant">$test-parse-decimal-int-helper-zero:end</span>: +<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L224" class="LineNr">224 </span> 59/pop-to-ecx +<span id="L225" class="LineNr">225 </span> 58/pop-to-eax +<span id="L226" class="LineNr">226 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L227" class="LineNr">227 </span> 89/<- %esp 5/r32/ebp +<span id="L228" class="LineNr">228 </span> 5d/pop-to-ebp +<span id="L229" class="LineNr">229 </span> c3/return +<span id="L230" class="LineNr">230 </span> +<span id="L231" class="LineNr">231 </span><span class="subxTest">test-parse-decimal-int-from-slice-negative</span>: +<span id="L232" class="LineNr">232 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L233" class="LineNr">233 </span> 55/push-ebp +<span id="L234" class="LineNr">234 </span> 89/<- %ebp 4/r32/esp +<span id="L235" class="LineNr">235 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L236" class="LineNr">236 </span> 50/push-eax +<span id="L237" class="LineNr">237 </span> 51/push-ecx +<span id="L238" class="LineNr">238 </span> <span class="subxComment"># (eax..ecx) = "-3"</span> +<span id="L239" class="LineNr">239 </span> b8/copy-to-eax <span class="Constant">"-3"</span>/imm32 +<span id="L240" class="LineNr">240 </span> 8b/-> *eax 1/r32/ecx +<span id="L241" class="LineNr">241 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L242" class="LineNr">242 </span> 05/add-to-eax 4/imm32 +<span id="L243" class="LineNr">243 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L244" class="LineNr">244 </span> 51/push-ecx +<span id="L245" class="LineNr">245 </span> 50/push-eax +<span id="L246" class="LineNr">246 </span> 89/<- %ecx 4/r32/esp +<span id="L247" class="LineNr">247 </span> <span class="subxComment">#</span> +<span id="L248" class="LineNr">248 </span> (<a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L249" class="LineNr">249 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -3 <span class="Constant">"F - test-parse-decimal-int-from-slice-negative"</span>) +<span id="L250" class="LineNr">250 </span><span class="Constant">$test-parse-decimal-int-helper-negative:end</span>: +<span id="L251" class="LineNr">251 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L252" class="LineNr">252 </span> 59/pop-to-ecx +<span id="L253" class="LineNr">253 </span> 58/pop-to-eax +<span id="L254" class="LineNr">254 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L255" class="LineNr">255 </span> 89/<- %esp 5/r32/ebp +<span id="L256" class="LineNr">256 </span> 5d/pop-to-ebp +<span id="L257" class="LineNr">257 </span> c3/return +<span id="L258" class="LineNr">258 </span> +<span id="L259" class="LineNr">259 </span><span class="subxTest">test-parse-decimal-int-from-slice-multi-digit-negative</span>: +<span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L261" class="LineNr">261 </span> 55/push-ebp +<span id="L262" class="LineNr">262 </span> 89/<- %ebp 4/r32/esp +<span id="L263" class="LineNr">263 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L264" class="LineNr">264 </span> 50/push-eax +<span id="L265" class="LineNr">265 </span> 51/push-ecx +<span id="L266" class="LineNr">266 </span> <span class="subxComment"># (eax..ecx) = "-32"</span> +<span id="L267" class="LineNr">267 </span> b8/copy-to-eax <span class="Constant">"-32"</span>/imm32 +<span id="L268" class="LineNr">268 </span> 8b/-> *eax 1/r32/ecx +<span id="L269" class="LineNr">269 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L270" class="LineNr">270 </span> 05/add-to-eax 4/imm32 +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L272" class="LineNr">272 </span> 51/push-ecx +<span id="L273" class="LineNr">273 </span> 50/push-eax +<span id="L274" class="LineNr">274 </span> 89/<- %ecx 4/r32/esp +<span id="L275" class="LineNr">275 </span> <span class="subxComment">#</span> +<span id="L276" class="LineNr">276 </span> (<a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L277" class="LineNr">277 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -0x20 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit-negative"</span>) <span class="subxComment"># -32 in hex</span> +<span id="L278" class="LineNr">278 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit-negative:end</span>: +<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L280" class="LineNr">280 </span> 59/pop-to-ecx +<span id="L281" class="LineNr">281 </span> 58/pop-to-eax +<span id="L282" class="LineNr">282 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L283" class="LineNr">283 </span> 89/<- %esp 5/r32/ebp +<span id="L284" class="LineNr">284 </span> 5d/pop-to-ebp +<span id="L285" class="LineNr">285 </span> c3/return +<span id="L286" class="LineNr">286 </span> +<span id="L287" class="LineNr">287 </span><span class="subxFunction">decimal-size</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L288" class="LineNr">288 </span> <span class="subxComment"># pseudocode:</span> +<span id="L289" class="LineNr">289 </span> <span class="subxComment"># edi = 0</span> +<span id="L290" class="LineNr">290 </span> <span class="subxComment"># eax = n</span> +<span id="L291" class="LineNr">291 </span> <span class="subxComment"># if eax < 0</span> +<span id="L292" class="LineNr">292 </span> <span class="subxComment"># ++edi # for '-'</span> +<span id="L293" class="LineNr">293 </span> <span class="subxComment"># negate eax</span> +<span id="L294" class="LineNr">294 </span> <span class="subxComment"># while true</span> +<span id="L295" class="LineNr">295 </span> <span class="subxComment"># edx = 0</span> +<span id="L296" class="LineNr">296 </span> <span class="subxComment"># eax, edx = eax/10, eax%10</span> +<span id="L297" class="LineNr">297 </span> <span class="subxComment"># ++edi</span> +<span id="L298" class="LineNr">298 </span> <span class="subxComment"># if (eax == 0) break</span> +<span id="L299" class="LineNr">299 </span> <span class="subxComment"># eax = edi</span> +<span id="L300" class="LineNr">300 </span> <span class="subxComment">#</span> +<span id="L301" class="LineNr">301 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L302" class="LineNr">302 </span> 55/push-ebp +<span id="L303" class="LineNr">303 </span> 89/<- %ebp 4/r32/esp +<span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L305" class="LineNr">305 </span> 51/push-ecx +<span id="L306" class="LineNr">306 </span> 52/push-edx +<span id="L307" class="LineNr">307 </span> 57/push-edi +<span id="L308" class="LineNr">308 </span> <span class="subxComment"># edi = 0</span> +<span id="L309" class="LineNr">309 </span> bf/copy-to-edi 0/imm32 +<span id="L310" class="LineNr">310 </span> <span class="subxComment"># eax = n</span> +<span id="L311" class="LineNr">311 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L312" class="LineNr">312 </span> <span class="subxComment"># if (n < 0) negate n, increment edi</span> +<span id="L313" class="LineNr">313 </span> { +<span id="L314" class="LineNr">314 </span> 3d/compare-eax-with 0/imm32 +<span id="L315" class="LineNr">315 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L316" class="LineNr">316 </span> f7 3/subop/negate %eax +<span id="L317" class="LineNr">317 </span> 47/increment-edi +<span id="L318" class="LineNr">318 </span> } +<span id="L319" class="LineNr">319 </span> <span class="subxComment"># const ten/ecx = 10</span> +<span id="L320" class="LineNr">320 </span> b9/copy-to-ecx 0xa/imm32 +<span id="L321" class="LineNr">321 </span> { +<span id="L322" class="LineNr">322 </span> ba/copy-to-edx 0/imm32 +<span id="L323" class="LineNr">323 </span> f7 7/subop/idiv-edx-eax-by %ecx <span class="subxComment"># eax = edx:eax/10; edx = edx:eax%10</span> +<span id="L324" class="LineNr">324 </span> 47/increment-edi +<span id="L325" class="LineNr">325 </span> 3d/compare-eax-and 0/imm32 +<span id="L326" class="LineNr">326 </span> 75/jump-if-!= <span class="Constant">loop</span>/disp8 +<span id="L327" class="LineNr">327 </span> } +<span id="L328" class="LineNr">328 </span><span class="Constant">$decimal-size:end</span>: +<span id="L329" class="LineNr">329 </span> 89/<- %eax 7/r32/edi +<span id="L330" class="LineNr">330 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L331" class="LineNr">331 </span> 5f/pop-to-edi +<span id="L332" class="LineNr">332 </span> 5a/pop-to-edx +<span id="L333" class="LineNr">333 </span> 59/pop-to-ecx +<span id="L334" class="LineNr">334 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L335" class="LineNr">335 </span> 89/<- %esp 5/r32/ebp +<span id="L336" class="LineNr">336 </span> 5d/pop-to-ebp +<span id="L337" class="LineNr">337 </span> c3/return +<span id="L338" class="LineNr">338 </span> +<span id="L339" class="LineNr">339 </span><span class="subxTest">test-decimal-size-of-zero</span>: +<span id="L340" class="LineNr">340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L341" class="LineNr">341 </span> 55/push-ebp +<span id="L342" class="LineNr">342 </span> 89/<- %ebp 4/r32/esp +<span id="L343" class="LineNr">343 </span> <span class="subxComment">#</span> +<span id="L344" class="LineNr">344 </span> (<a href='311decimal-int.subx.html#L287'>decimal-size</a> 0) <span class="subxComment"># => eax</span> +<span id="L345" class="LineNr">345 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-of-zero"</span>) +<span id="L346" class="LineNr">346 </span><span class="Constant">$test-decimal-size-of-zero:end</span>: +<span id="L347" class="LineNr">347 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L348" class="LineNr">348 </span> 89/<- %esp 5/r32/ebp +<span id="L349" class="LineNr">349 </span> 5d/pop-to-ebp +<span id="L350" class="LineNr">350 </span> c3/return +<span id="L351" class="LineNr">351 </span> +<span id="L352" class="LineNr">352 </span><span class="subxTest">test-decimal-size-single-digit</span>: +<span id="L353" class="LineNr">353 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L354" class="LineNr">354 </span> 55/push-ebp +<span id="L355" class="LineNr">355 </span> 89/<- %ebp 4/r32/esp +<span id="L356" class="LineNr">356 </span> <span class="subxComment">#</span> +<span id="L357" class="LineNr">357 </span> (<a href='311decimal-int.subx.html#L287'>decimal-size</a> 4) <span class="subxComment"># => eax</span> +<span id="L358" class="LineNr">358 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-single-digit"</span>) +<span id="L359" class="LineNr">359 </span><span class="Constant">$test-decimal-size-single-digit:end</span>: +<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L361" class="LineNr">361 </span> 89/<- %esp 5/r32/ebp +<span id="L362" class="LineNr">362 </span> 5d/pop-to-ebp +<span id="L363" class="LineNr">363 </span> c3/return +<span id="L364" class="LineNr">364 </span> +<span id="L365" class="LineNr">365 </span><span class="subxTest">test-decimal-size-multi-digit</span>: +<span id="L366" class="LineNr">366 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L367" class="LineNr">367 </span> 55/push-ebp +<span id="L368" class="LineNr">368 </span> 89/<- %ebp 4/r32/esp +<span id="L369" class="LineNr">369 </span> <span class="subxComment">#</span> +<span id="L370" class="LineNr">370 </span> (<a href='311decimal-int.subx.html#L287'>decimal-size</a> 0xa) <span class="subxComment"># => eax</span> +<span id="L371" class="LineNr">371 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-multi-digit"</span>) +<span id="L372" class="LineNr">372 </span><span class="Constant">$test-decimal-size-multi-digit:end</span>: +<span id="L373" class="LineNr">373 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L374" class="LineNr">374 </span> 89/<- %esp 5/r32/ebp +<span id="L375" class="LineNr">375 </span> 5d/pop-to-ebp +<span id="L376" class="LineNr">376 </span> c3/return +<span id="L377" class="LineNr">377 </span> +<span id="L378" class="LineNr">378 </span><span class="subxTest">test-decimal-size-single-digit-negative</span>: +<span id="L379" class="LineNr">379 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L380" class="LineNr">380 </span> 55/push-ebp +<span id="L381" class="LineNr">381 </span> 89/<- %ebp 4/r32/esp +<span id="L382" class="LineNr">382 </span> <span class="subxComment">#</span> +<span id="L383" class="LineNr">383 </span> (<a href='311decimal-int.subx.html#L287'>decimal-size</a> -4) <span class="subxComment"># => eax</span> +<span id="L384" class="LineNr">384 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-single-digit-negative"</span>) +<span id="L385" class="LineNr">385 </span><span class="Constant">$test-decimal-size-single-digit-negative:end</span>: +<span id="L386" class="LineNr">386 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L387" class="LineNr">387 </span> 89/<- %esp 5/r32/ebp +<span id="L388" class="LineNr">388 </span> 5d/pop-to-ebp +<span id="L389" class="LineNr">389 </span> c3/return +<span id="L390" class="LineNr">390 </span> +<span id="L391" class="LineNr">391 </span><span class="subxTest">test-decimal-size-multi-digit-negative</span>: +<span id="L392" class="LineNr">392 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L393" class="LineNr">393 </span> 55/push-ebp +<span id="L394" class="LineNr">394 </span> 89/<- %ebp 4/r32/esp +<span id="L395" class="LineNr">395 </span> <span class="subxComment">#</span> +<span id="L396" class="LineNr">396 </span> (<a href='311decimal-int.subx.html#L287'>decimal-size</a> -0xa) <span class="subxComment"># => eax</span> +<span id="L397" class="LineNr">397 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-decimal-size-multi-digit-negative"</span>) +<span id="L398" class="LineNr">398 </span><span class="Constant">$test-decimal-size-multi-digit-negative:end</span>: +<span id="L399" class="LineNr">399 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L400" class="LineNr">400 </span> 89/<- %esp 5/r32/ebp +<span id="L401" class="LineNr">401 </span> 5d/pop-to-ebp +<span id="L402" class="LineNr">402 </span> c3/return +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/400.mu.html b/html/400.mu.html index 83914026..887a0a2d 100644 --- a/html/400.mu.html +++ b/html/400.mu.html @@ -14,8 +14,8 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.Comment { color: #005faf; } .Constant { color: #008787; } .PreProc { color: #c000c0; } --> @@ -53,42 +53,42 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/400.mu'>https://github.com/akkartik/mu/blob/master/400.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># The 4xx series is for primitives implemented in Mu.</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># The 4xx series is for primitives implemented in Mu.</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># Signatures for major SubX functions defined so far.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Signatures for major SubX functions defined so far.</span> <span id="L4" class="LineNr"> 4 </span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># autogenerated</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># autogenerated</span> <span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> run-tests <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># init.linux</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># TODO: make this OS-specific</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment"># TODO: include result type at least, even if register args are too much</span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">sig</span> syscall_exit <span class="Comment"># status/ebx: int</span> -<span id="L12" class="LineNr"> 12 </span><span class="PreProc">sig</span> syscall_read <span class="Comment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> -<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> syscall_write <span class="Comment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">sig</span> syscall_open <span class="Comment"># filename/ebx: (addr kernel-string), flags/ecx: int, dummy=0x180/edx -> fd-or-error/eax: int</span> -<span id="L15" class="LineNr"> 15 </span><span class="PreProc">sig</span> syscall_close <span class="Comment"># fd/ebx: int -> status/eax</span> -<span id="L16" class="LineNr"> 16 </span><span class="PreProc">sig</span> syscall_creat <span class="Comment"># filename/ebx: (addr kernel-string) -> fd-or-error/eax: int</span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> syscall_unlink <span class="Comment"># filename/ebx: (addr kernel-string) -> status/eax: int</span> -<span id="L18" class="LineNr"> 18 </span><span class="PreProc">sig</span> syscall_rename <span class="Comment"># source/ebx: (addr kernel-string), dest/ecx: (addr kernel-string) -> status/eax: int</span> -<span id="L19" class="LineNr"> 19 </span><span class="PreProc">sig</span> syscall_mmap <span class="Comment"># arg/ebx: (addr mmap_arg_struct) -> status/eax: int</span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> syscall_ioctl <span class="Comment"># fd/ebx: int, cmd/ecx: int, arg/edx: (addr _)</span> -<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> syscall_nanosleep <span class="Comment"># req/ebx: (addr timespec)</span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">sig</span> syscall_clock_gettime <span class="Comment"># clock/ebx: int, out/ecx: (addr timespec)</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># init.linux</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># TODO: make this OS-specific</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># TODO: include result type at least, even if register args are too much</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">sig</span> syscall_exit <span class="muComment"># status/ebx: int</span> +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">sig</span> syscall_read <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> syscall_write <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">sig</span> syscall_open <span class="muComment"># filename/ebx: (addr kernel-string), flags/ecx: int, dummy=0x180/edx -> fd-or-error/eax: int</span> +<span id="L15" class="LineNr"> 15 </span><span class="PreProc">sig</span> syscall_close <span class="muComment"># fd/ebx: int -> status/eax</span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">sig</span> syscall_creat <span class="muComment"># filename/ebx: (addr kernel-string) -> fd-or-error/eax: int</span> +<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> syscall_unlink <span class="muComment"># filename/ebx: (addr kernel-string) -> status/eax: int</span> +<span id="L18" class="LineNr"> 18 </span><span class="PreProc">sig</span> syscall_rename <span class="muComment"># source/ebx: (addr kernel-string), dest/ecx: (addr kernel-string) -> status/eax: int</span> +<span id="L19" class="LineNr"> 19 </span><span class="PreProc">sig</span> syscall_mmap <span class="muComment"># arg/ebx: (addr mmap_arg_struct) -> status/eax: int</span> +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> syscall_ioctl <span class="muComment"># fd/ebx: int, cmd/ecx: int, arg/edx: (addr _)</span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> syscall_nanosleep <span class="muComment"># req/ebx: (addr timespec)</span> +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">sig</span> syscall_clock_gettime <span class="muComment"># clock/ebx: int, out/ecx: (addr timespec)</span> <span id="L23" class="LineNr"> 23 </span> -<span id="L24" class="LineNr"> 24 </span><span class="Comment"># Generated using:</span> -<span id="L25" class="LineNr"> 25 </span><span class="Comment"># grep -h '^[a-z]' [0-9]*.subx |grep -v '^test-'</span> -<span id="L26" class="LineNr"> 26 </span><span class="Comment"># Functions we don't want to make accessible from Mu are commented out.</span> -<span id="L27" class="LineNr"> 27 </span><span class="Comment"># Many functions here may not be usable yet because of missing features</span> -<span id="L28" class="LineNr"> 28 </span><span class="Comment"># (global variable support, etc.)</span> +<span id="L24" class="LineNr"> 24 </span><span class="muComment"># Generated using:</span> +<span id="L25" class="LineNr"> 25 </span><span class="muComment"># grep -h '^[a-z]' [0-9]*.subx |grep -v '^test-'</span> +<span id="L26" class="LineNr"> 26 </span><span class="muComment"># Functions we don't want to make accessible from Mu are commented out.</span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># Many functions here may not be usable yet because of missing features</span> +<span id="L28" class="LineNr"> 28 </span><span class="muComment"># (global variable support, etc.)</span> <span id="L29" class="LineNr"> 29 </span><span class="PreProc">sig</span> <a href='102test.subx.html#L23'>check-ints-equal</a> a: int, b: int, msg: (addr array byte) <span id="L30" class="LineNr"> 30 </span><span class="PreProc">sig</span> <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> s: (addr kernel-string), benchmark: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L31" class="LineNr"> 31 </span><span class="PreProc">sig</span> <a href='104new-segment.subx.html#L40'>new-segment</a> len: int, ad: (addr allocation-descriptor) <span id="L32" class="LineNr"> 32 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L15'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L33" class="LineNr"> 33 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L57'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L34" class="LineNr"> 34 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) -<span id="L35" class="LineNr"> 35 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L17'>clear-stream</a> f: (addr stream byte) -<span id="L36" class="LineNr"> 36 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L56'>rewind-stream</a> f: (addr stream byte) +<span id="L35" class="LineNr"> 35 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L17'>clear-stream</a> f: (addr stream _) +<span id="L36" class="LineNr"> 36 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L56'>rewind-stream</a> f: (addr stream _) <span id="L37" class="LineNr"> 37 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L48'>initialize-trace-stream</a> n: int <span id="L38" class="LineNr"> 38 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L86'>trace</a> line: (addr array byte) <span id="L39" class="LineNr"> 39 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L253'>check-trace-contains</a> line: (addr string), msg: (addr string) @@ -97,130 +97,143 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L561'>next-line-matches?</a> t: (addr stream byte), line: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L43" class="LineNr"> 43 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L737'>skip-next-line</a> t: (addr stream byte) <span id="L44" class="LineNr"> 44 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L845'>clear-trace-stream</a> -<span id="L45" class="LineNr"> 45 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L24'>write</a> f: (addr stream byte), s: (addr array byte) <span class="Comment"># writing to file descriptor not supported; use buffered-file</span> +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L24'>write</a> f: (addr stream byte), s: (addr array byte) <span class="muComment"># writing to file descriptor not supported; use buffered-file</span> <span id="L46" class="LineNr"> 46 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L47" class="LineNr"> 47 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) <span id="L48" class="LineNr"> 48 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span id="L49" class="LineNr"> 49 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) <span id="L50" class="LineNr"> 50 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> ed: (addr exit-descriptor), nbytes: int <span id="L51" class="LineNr"> 51 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L92'>stop</a> ed: (addr exit-descriptor), value: int -<span id="L52" class="LineNr"> 52 </span><span class="Comment">#sig read f: fd or (addr stream byte), s: (addr stream byte) -> num-bytes-read/eax: int</span> +<span id="L52" class="LineNr"> 52 </span><span class="muComment">#sig read f: fd or (addr stream byte), s: (addr stream byte) -> num-bytes-read/eax: int</span> <span id="L53" class="LineNr"> 53 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> f: (addr buffered-file)<span class="PreProc"> -> </span>byte-or-Eof/<span class="Constant">eax</span>: byte <span id="L54" class="LineNr"> 54 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L273'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: byte -<span id="L55" class="LineNr"> 55 </span><span class="Comment">#sig write-stream f: fd or (addr stream byte), s: (addr stream byte)</span> -<span id="L56" class="LineNr"> 56 </span><span class="Comment">#sig error ed: (addr exit-descriptor), out: fd or (addr stream byte), msg: (addr array byte)</span> +<span id="L55" class="LineNr"> 55 </span><span class="muComment">#sig write-stream f: fd or (addr stream byte), s: (addr stream byte)</span> +<span id="L56" class="LineNr"> 56 </span><span class="muComment">#sig error ed: (addr exit-descriptor), out: fd or (addr stream byte), msg: (addr array byte)</span> <span id="L57" class="LineNr"> 57 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L33'>write-byte-buffered</a> f: (addr buffered-file), n: int <span id="L58" class="LineNr"> 58 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L81'>flush</a> f: (addr buffered-file) <span id="L59" class="LineNr"> 59 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L208'>append-byte</a> f: (addr stream byte), n: int <span id="L60" class="LineNr"> 60 </span><span class="PreProc">sig</span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> f: (addr buffered-file), msg: (addr array byte) -<span id="L61" class="LineNr"> 61 </span><span class="Comment">#sig to-hex-char in/eax: int -> out/eax: int</span> +<span id="L61" class="LineNr"> 61 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> <span id="L62" class="LineNr"> 62 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int <span id="L63" class="LineNr"> 63 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a> f: (addr buffered-file), n: int <span id="L64" class="LineNr"> 64 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> f: (addr stream byte), n: int -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> f: (addr buffered-file), n: int -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='118parse-hex.subx.html#L9'>is-hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L67" class="LineNr"> 67 </span><span class="PreProc">sig</span> <a href='118parse-hex.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int -<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int -<span id="L69" class="LineNr"> 69 </span><span class="Comment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> result/eax: int</span> -<span id="L70" class="LineNr"> 70 </span><span class="PreProc">sig</span> <a href='118parse-hex.subx.html#L701'>is-hex-digit?</a> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L71" class="LineNr"> 71 </span><span class="Comment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> -<span id="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='119error-byte.subx.html#L26'>error-byte</a> ed: (addr exit-descriptor), out: (addr buffered-file), msg: (addr array byte), n: byte -<span id="L73" class="LineNr"> 73 </span><span class="Comment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L74" class="LineNr"> 74 </span><span class="Comment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L256'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: (addr _T) -<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L458'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L77" class="LineNr"> 77 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L489'>copy-handle</a> src: (handle _T), dest: (addr handle _T) -<span id="L78" class="LineNr"> 78 </span><span class="Comment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L79" class="LineNr"> 79 </span><span class="Comment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L80" class="LineNr"> 80 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L710'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) -<span id="L81" class="LineNr"> 81 </span><span class="Comment">#sig zero-out start: (addr byte), size: int</span> -<span id="L82" class="LineNr"> 82 </span><span class="Comment">#sig new-stream ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _)</span> -<span id="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> f: (addr buffered-file), s: (addr stream byte) -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L218'>read-line</a> f: (addr stream byte), s: (addr stream byte) -<span id="L85" class="LineNr"> 85 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L86" class="LineNr"> 86 </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>result/<span class="Constant">eax</span>: boolean -<span id="L87" class="LineNr"> 87 </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>result/<span class="Constant">eax</span>: boolean -<span id="L88" class="LineNr"> 88 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) -<span id="L89" class="LineNr"> 89 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L908'>write-slice-buffered</a> out: (addr buffered-file), s: (addr slice) -<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L1043'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) -<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L10'>next-token</a> in: (addr stream byte), delimiter: byte, out: (addr slice) -<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L163'>next-token-from-slice</a> start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice) -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L341'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> in: (addr stream byte) -<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) -<span id="L97" class="LineNr"> 97 </span><span class="Comment">#sig skip-chars-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> -<span id="L98" class="LineNr"> 98 </span><span class="Comment">#sig skip-chars-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L99" class="LineNr"> 99 </span><span class="Comment">#sig skip-chars-not-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> -<span id="L100" class="LineNr">100 </span><span class="Comment">#sig skip-chars-not-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1171'>skip-string</a> line: (addr stream byte) -<span id="L102" class="LineNr">102 </span><span class="Comment">#sig skip-string-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L103" class="LineNr">103 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a> line: (addr stream byte) -<span id="L104" class="LineNr">104 </span><span class="Comment">#sig skip-until-close-paren-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L105" class="LineNr">105 </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="L106" class="LineNr">106 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int32 -<span id="L107" class="LineNr">107 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L108" class="LineNr">108 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: byte<span class="PreProc"> -> </span>out/<span class="Constant">eax</span>: int -<span id="L109" class="LineNr">109 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L10'>next-word</a> line: (addr stream byte), out: (addr slice) -<span id="L110" class="LineNr">110 </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>result/<span class="Constant">eax</span>: boolean -<span id="L111" class="LineNr">111 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L278'>is-valid-name?</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L112" class="LineNr">112 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L535'>is-label?</a> word: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L113" class="LineNr">113 </span><span class="PreProc">sig</span> <a href='129emit-hex.subx.html#L7'>emit-hex</a> out: (addr buffered-file), n: int, width: int -<span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='130emit.subx.html#L10'>emit</a> out: (addr buffered-file), word: (addr slice), width: int -<span id="L115" class="LineNr">115 </span><span class="Comment">#sig get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, abort-message-prefix: (addr array byte) -> result/eax: (addr T)</span> -<span id="L116" class="LineNr">116 </span><span class="Comment">#sig get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, abort-message-prefix: (addr array byte) -> result/eax: (addr T)</span> -<span id="L117" class="LineNr">117 </span><span class="Comment">#sig get-or-insert 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="L118" class="LineNr">118 </span><span class="Comment">#sig get-or-insert-handle table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> result/eax: (addr T)</span> -<span id="L119" class="LineNr">119 </span><span class="Comment">#sig get-or-insert-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> -<span id="L120" class="LineNr">120 </span><span class="Comment">#sig get-or-stop table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int</span> -<span id="L121" class="LineNr">121 </span><span class="Comment">#sig get-slice-or-stop table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int</span> -<span id="L122" class="LineNr">122 </span><span class="Comment">#sig maybe-get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> result/eax: (addr T)</span> -<span id="L123" class="LineNr">123 </span><span class="Comment">#sig maybe-get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> result/eax: (addr T)</span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='132slurp.subx.html#L8'>slurp</a> f: (addr buffered-file), s: (addr stream byte) -<span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L11'>compute-width</a> word: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int -<span id="L126" class="LineNr">126 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a> s: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int -<span id="L127" class="LineNr">127 </span><span class="PreProc">sig</span> <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a> out: (addr buffered-file), arr: (addr array byte) -<span id="L128" class="LineNr">128 </span><span class="PreProc">sig</span> <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a> line: (addr stream byte), out: (addr slice) -<span id="L129" class="LineNr">129 </span><span class="PreProc">sig</span> <a href='202write-int.subx.html#L8'>write-int</a> out: (addr stream byte), n: int -<span id="L130" class="LineNr">130 </span><span class="PreProc">sig</span> <a href='203stack.subx.html#L13'>clear-stack</a> s: (addr stack) -<span id="L131" class="LineNr">131 </span><span class="PreProc">sig</span> <a href='203stack.subx.html#L114'>push</a> s: (addr stack), n: int -<span id="L132" class="LineNr">132 </span><span class="PreProc">sig</span> <a href='203stack.subx.html#L234'>pop</a> s: (addr stack)<span class="PreProc"> -> </span>n/<span class="Constant">eax</span>: int -<span id="L133" class="LineNr">133 </span><span class="PreProc">sig</span> <a href='203stack.subx.html#L338'>top</a> s: (addr stack)<span class="PreProc"> -> </span>n/<span class="Constant">eax</span>: int -<span id="L134" class="LineNr">134 </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>result/<span class="Constant">eax</span>: boolean -<span id="L135" class="LineNr">135 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L174'>parse-array-of-ints</a> ad: (addr allocation-descriptor), s: (addr string), out: (addr handle array int) -<span id="L136" class="LineNr">136 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L370'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) -<span id="L137" class="LineNr">137 </span><span class="Comment">#sig push-n-zero-bytes n: int</span> -<span id="L138" class="LineNr">138 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> ad: (addr allocation-descriptor), in: (addr kernel-string), out: (addr handle array byte) -<span id="L139" class="LineNr">139 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L57'>kernel-string-length</a> in: (addr kernel-string)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int -<span id="L140" class="LineNr">140 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L141" class="LineNr">141 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L142" class="LineNr">142 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L37'>real-screen-size</a><span class="PreProc"> -> </span>nrows/<span class="Constant">eax</span>: int, ncols/<span class="Constant">ecx</span>: int -<span id="L143" class="LineNr">143 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L75'>clear-real-screen</a> -<span id="L144" class="LineNr">144 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row: int, column: int -<span id="L145" class="LineNr">145 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s: (addr array byte) -<span id="L146" class="LineNr">146 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L134'>print-stream-to-real-screen</a> s: (addr stream byte) -<span id="L147" class="LineNr">147 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> c: grapheme -<span id="L148" class="LineNr">148 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> n: int -<span id="L149" class="LineNr">149 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L226'>reset-formatting-on-real-screen</a> -<span id="L150" class="LineNr">150 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L241'>start-color-on-real-screen</a> fg: int, bg: int -<span id="L151" class="LineNr">151 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L276'>start-bold-on-real-screen</a> -<span id="L152" class="LineNr">152 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L289'>start-underline-on-real-screen</a> -<span id="L153" class="LineNr">153 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L302'>start-reverse-video-on-real-screen</a> -<span id="L154" class="LineNr">154 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L316'>start-blinking-on-real-screen</a> -<span id="L155" class="LineNr">155 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L329'>hide-cursor-on-real-screen</a> -<span id="L156" class="LineNr">156 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L342'>show-cursor-on-real-screen</a> -<span id="L157" class="LineNr">157 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L158" class="LineNr">158 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L122'>read-key</a><span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: byte -<span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L12'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) -<span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L73'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) -<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L119'>new-buffered-file</a> out: (addr handle buffered-file) -<span id="L163" class="LineNr">163 </span><span class="Comment">#sig size in: (addr array _) -> result/eax: int</span> -<span id="L164" class="LineNr">164 </span> -<span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L166" class="LineNr">166 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean -<span id="L167" class="LineNr">167 </span> -<span id="L168" class="LineNr">168 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L5'>copy-bytes</a> src: (addr byte), dest: (addr byte), n: int +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> f: (addr buffered-file), n: int +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a> f: (addr buffered-file), n: int, bits: int +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L69" class="LineNr"> 69 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L70" class="LineNr"> 70 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L71" class="LineNr"> 71 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> result/eax: int</span> +<span id="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L73" class="LineNr"> 73 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> +<span id="L74" class="LineNr"> 74 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L21'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L46'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L77" class="LineNr"> 77 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> result/eax: int</span> +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L287'>decimal-size</a> n: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">sig</span> <a href='119error-byte.subx.html#L26'>error-byte</a> ed: (addr exit-descriptor), out: (addr buffered-file), msg: (addr array byte), n: byte +<span id="L80" class="LineNr"> 80 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L81" class="LineNr"> 81 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L82" class="LineNr"> 82 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L256'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: (addr _T) +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L458'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L489'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L85" class="LineNr"> 85 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L86" class="LineNr"> 86 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L710'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L88" class="LineNr"> 88 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> +<span id="L89" class="LineNr"> 89 </span><span class="muComment">#sig new-stream ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _)</span> +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> f: (addr buffered-file), s: (addr stream byte) +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L218'>read-line</a> f: (addr stream byte), s: (addr stream byte) +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L908'>write-slice-buffered</a> out: (addr buffered-file), s: (addr slice) +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L1043'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L10'>next-token</a> in: (addr stream byte), delimiter: byte, out: (addr slice) +<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L163'>next-token-from-slice</a> start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice) +<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L341'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte +<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> in: (addr stream byte) +<span id="L102" class="LineNr">102 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte +<span id="L103" class="LineNr">103 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) +<span id="L104" class="LineNr">104 </span><span class="muComment">#sig skip-chars-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> +<span id="L105" class="LineNr">105 </span><span class="muComment">#sig skip-chars-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L106" class="LineNr">106 </span><span class="muComment">#sig skip-chars-not-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> +<span id="L107" class="LineNr">107 </span><span class="muComment">#sig skip-chars-not-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L108" class="LineNr">108 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1171'>skip-string</a> line: (addr stream byte) +<span id="L109" class="LineNr">109 </span><span class="muComment">#sig skip-string-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a> line: (addr stream byte) +<span id="L111" class="LineNr">111 </span><span class="muComment">#sig skip-until-close-paren-in-slice curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L112" class="LineNr">112 </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="L113" class="LineNr">113 </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="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>out/<span class="Constant">eax</span>: int +<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L10'>next-word</a> line: (addr stream byte), out: (addr slice) +<span id="L117" class="LineNr">117 </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>result/<span class="Constant">eax</span>: boolean +<span id="L118" class="LineNr">118 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L278'>is-valid-name?</a> in: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L119" class="LineNr">119 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L535'>is-label?</a> word: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L120" class="LineNr">120 </span><span class="PreProc">sig</span> <a href='129emit-hex.subx.html#L7'>emit-hex</a> out: (addr buffered-file), n: int, width: int +<span id="L121" class="LineNr">121 </span><span class="PreProc">sig</span> <a href='130emit.subx.html#L10'>emit</a> out: (addr buffered-file), word: (addr slice), width: int +<span id="L122" class="LineNr">122 </span><span class="muComment">#sig get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, abort-message-prefix: (addr array byte) -> result/eax: (addr T)</span> +<span id="L123" class="LineNr">123 </span><span class="muComment">#sig get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, abort-message-prefix: (addr array byte) -> result/eax: (addr T)</span> +<span id="L124" class="LineNr">124 </span><span class="muComment">#sig get-or-insert table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> +<span id="L125" class="LineNr">125 </span><span class="muComment">#sig get-or-insert-handle table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> result/eax: (addr T)</span> +<span id="L126" class="LineNr">126 </span><span class="muComment">#sig get-or-insert-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> +<span id="L127" class="LineNr">127 </span><span class="muComment">#sig get-or-stop table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int</span> +<span id="L128" class="LineNr">128 </span><span class="muComment">#sig get-slice-or-stop table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int</span> +<span id="L129" class="LineNr">129 </span><span class="muComment">#sig maybe-get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> result/eax: (addr T)</span> +<span id="L130" class="LineNr">130 </span><span class="muComment">#sig maybe-get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> result/eax: (addr T)</span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">sig</span> <a href='132slurp.subx.html#L8'>slurp</a> f: (addr buffered-file), s: (addr stream byte) +<span id="L132" class="LineNr">132 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L11'>compute-width</a> word: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L133" class="LineNr">133 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a> s: (addr slice)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L134" class="LineNr">134 </span><span class="PreProc">sig</span> <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a> out: (addr buffered-file), arr: (addr array byte) +<span id="L135" class="LineNr">135 </span><span class="PreProc">sig</span> <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a> line: (addr stream byte), out: (addr slice) +<span id="L136" class="LineNr">136 </span><span class="PreProc">sig</span> <a href='202write-int.subx.html#L8'>write-int</a> out: (addr stream byte), n: int +<span id="L137" class="LineNr">137 </span><span class="muComment">#sig clear-stack s: (addr stack)</span> +<span id="L138" class="LineNr">138 </span><span class="muComment">#sig push s: (addr stack), n: int</span> +<span id="L139" class="LineNr">139 </span><span class="muComment">#sig pop s: (addr stack) -> n/eax: int</span> +<span id="L140" class="LineNr">140 </span><span class="muComment">#sig top s: (addr stack) -> n/eax: int</span> +<span id="L141" class="LineNr">141 </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>result/<span class="Constant">eax</span>: boolean +<span id="L142" class="LineNr">142 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L174'>parse-array-of-ints</a> ad: (addr allocation-descriptor), s: (addr string), out: (addr handle array int) +<span id="L143" class="LineNr">143 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L370'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) +<span id="L144" class="LineNr">144 </span><span class="muComment">#sig push-n-zero-bytes n: int</span> +<span id="L145" class="LineNr">145 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> ad: (addr allocation-descriptor), in: (addr kernel-string), out: (addr handle array byte) +<span id="L146" class="LineNr">146 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L57'>kernel-string-length</a> in: (addr kernel-string)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int +<span id="L147" class="LineNr">147 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L148" class="LineNr">148 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L149" class="LineNr">149 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L37'>real-screen-size</a><span class="PreProc"> -> </span>nrows/<span class="Constant">eax</span>: int, ncols/<span class="Constant">ecx</span>: int +<span id="L150" class="LineNr">150 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L75'>clear-real-screen</a> +<span id="L151" class="LineNr">151 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row: int, column: int +<span id="L152" class="LineNr">152 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s: (addr array byte) +<span id="L153" class="LineNr">153 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L134'>print-slice-to-real-screen</a> s: (addr slice) +<span id="L154" class="LineNr">154 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L147'>print-stream-to-real-screen</a> s: (addr stream byte) +<span id="L155" class="LineNr">155 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c: grapheme +<span id="L156" class="LineNr">156 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n: int +<span id="L157" class="LineNr">157 </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="L158" class="LineNr">158 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n: int +<span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L265'>write-int32-decimal-buffered</a> f: (addr buffered-file), n: int +<span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> +<span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg: int, bg: int +<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> +<span id="L163" class="LineNr">163 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> +<span id="L164" class="LineNr">164 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> +<span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> +<span id="L166" class="LineNr">166 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> +<span id="L167" class="LineNr">167 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> +<span id="L168" class="LineNr">168 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L169" class="LineNr">169 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L170" class="LineNr">170 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a><span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: grapheme +<span id="L171" class="LineNr">171 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> in: (addr stream byte) +<span id="L172" class="LineNr">172 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L12'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) +<span id="L173" class="LineNr">173 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L76'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) +<span id="L174" class="LineNr">174 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L122'>new-buffered-file</a> out: (addr handle buffered-file) +<span id="L175" class="LineNr">175 </span><span class="muComment">#sig size in: (addr array _) -> result/eax: int</span> +<span id="L176" class="LineNr">176 </span> +<span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L178" class="LineNr">178 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean +<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L59'>stream-to-string</a> in: (addr stream _), out: (addr handle array _) +<span id="L180" class="LineNr">180 </span> +<span id="L181" class="LineNr">181 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> </pre> </body> </html> diff --git a/html/401test.mu.html b/html/401test.mu.html index f5213bd6..d236a7f2 100644 --- a/html/401test.mu.html +++ b/html/401test.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .PreProc { color: #c000c0; } --> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/401test.mu'>https://github.com/akkartik/mu/blob/master/401test.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Some helpers for Mu tests.</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some helpers for Mu tests.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='401test.mu.html#L3'>check-true</a></span> val: boolean, msg: (addr array byte) <span class="Delimiter">{</span> <span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy val diff --git a/html/402time.mu.html b/html/402time.mu.html index 06e1256a..1d5eb787 100644 --- a/html/402time.mu.html +++ b/html/402time.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .PreProc { color: #c000c0; } --> @@ -61,10 +61,10 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span> tv_nsec: 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="Comment"># TODO: y2038</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># TODO: y2038</span> <span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L7'>time</a></span><span class="PreProc"> -> </span>secs/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># CLOCK_MONOTONIC</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># CLOCK_MONOTONIC</span> <span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t <span id="L11" class="LineNr">11 </span> syscall_clock_gettime <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> t-secs-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_sec @@ -73,24 +73,24 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr">15 </span> <span id="L16" class="LineNr">16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L16'>ntime</a></span><span class="PreProc"> -> </span>nsecs/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># CLOCK_MONOTONIC</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># CLOCK_MONOTONIC</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t <span id="L20" class="LineNr">20 </span> syscall_clock_gettime <span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> t-nsecs-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_nsec <span id="L22" class="LineNr">22 </span> nsecs <span class="SpecialChar"><-</span> copy *t-nsecs-addr <span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr">24 </span> -<span id="L25" class="LineNr">25 </span><span class="Comment"># nsecs must be less than 999999999 or 0x3b9ac9ff nanoseconds</span> +<span id="L25" class="LineNr">25 </span><span class="muComment"># nsecs must be less than 999999999 or 0x3b9ac9ff nanoseconds</span> <span id="L26" class="LineNr">26 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L26'>sleep</a></span> secs: int, nsecs: int <span class="Delimiter">{</span> <span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> -<span id="L28" class="LineNr">28 </span> <span class="Comment"># initialize t</span> +<span id="L28" class="LineNr">28 </span> <span class="muComment"># initialize t</span> <span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_sec <span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy secs <span id="L31" class="LineNr">31 </span> copy-to *tmp, tmp2 <span id="L32" class="LineNr">32 </span> tmp <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_nsec <span id="L33" class="LineNr">33 </span> tmp2 <span class="SpecialChar"><-</span> copy nsecs <span id="L34" class="LineNr">34 </span> copy-to *tmp, tmp2 -<span id="L35" class="LineNr">35 </span> <span class="Comment"># perform the syscall</span> +<span id="L35" class="LineNr">35 </span> <span class="muComment"># perform the syscall</span> <span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ebx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> rem-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L38" class="LineNr">38 </span> syscall_nanosleep diff --git a/html/403unicode.mu.html b/html/403unicode.mu.html index 99b24b59..c8b90a93 100644 --- a/html/403unicode.mu.html +++ b/html/403unicode.mu.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muTest { color: #5f8700; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.CommentedCode { color: #8a8a8a; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -58,41 +58,41 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/403unicode.mu'>https://github.com/akkartik/mu/blob/master/403unicode.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Helpers for Unicode.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># Mu has no characters, only code points and graphemes.</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># Code points are the indivisible atoms of text streams.</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># <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="Comment"># Graphemes are the smallest self-contained unit of text.</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># Graphemes may consist of multiple code points.</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment"># in 4 bytes.</span> -<span id="L11" class="LineNr"> 11 </span><span class="Comment">#</span> -<span id="L12" class="LineNr"> 12 </span><span class="Comment"># Mu doesn't currently support combining code points, or graphemes made of</span> -<span id="L13" class="LineNr"> 13 </span><span class="Comment"># multiple code points. One day we will.</span> -<span id="L14" class="LineNr"> 14 </span><span class="Comment"># We also don't currently support code points that translate into multiple</span> -<span id="L15" class="LineNr"> 15 </span><span class="Comment"># or wide graphemes. (In particular, Tab will never be supported.)</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Helpers for Unicode.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and graphemes.</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Code points are the indivisible atoms of text streams.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Graphemes are the smallest self-contained unit of text.</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Graphemes may consist of multiple code points.</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># in 4 bytes.</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Mu doesn't currently support combining code points, or graphemes made of</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># multiple code points. One day we will.</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># We also don't currently support code points that translate into multiple</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># or wide graphemes. (In particular, Tab will never be supported.)</span> <span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="Comment"># 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="Comment"># <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="Comment">#</span> -<span id="L20" class="LineNr"> 20 </span><span class="Comment"># The day we want to support combining characters, this function will need to</span> -<span id="L21" class="LineNr"> 21 </span><span class="Comment"># take multiple code points. Or something.</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>out/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> <span id="L23" class="LineNr"> 23 </span>$to-grapheme:body: <span class="Delimiter">{</span> <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy in <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> first/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L27" class="LineNr"> 27 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="Comment"># single byte: just return it</span> +<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># single byte: just return it</span> <span id="L29" class="LineNr"> 29 </span> compare c, <span class="Constant">0x7f</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-></span> <span id="L32" class="LineNr"> 32 </span> out <span class="SpecialChar"><-</span> copy c <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">break</span> $to-grapheme:body <span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">}</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Comment"># 2 bytes</span> +<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># 2 bytes</span> <span id="L36" class="LineNr"> 36 </span> compare c, <span class="Constant">0x7ff</span> <span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-></span> @@ -100,7 +100,7 @@ if ('onhashchange' in window) { <span id="L40" class="LineNr"> 40 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xc0</span> <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Comment"># 3 bytes</span> +<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># 3 bytes</span> <span id="L44" class="LineNr"> 44 </span> compare c, <span class="Constant">0xffff</span> <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">{</span> <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">break-if-></span> @@ -108,7 +108,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr"> 48 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Comment"># 4 bytes</span> +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># 4 bytes</span> <span id="L52" class="LineNr"> 52 </span> compare c, <span class="Constant">0x1fffff</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> <span id="L54" class="LineNr"> 54 </span> <span class="PreProc">break-if-></span> @@ -116,19 +116,19 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xf0</span> <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Comment"># more than 4 bytes: unsupported</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Comment"># TODO: print to stderr</span> +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># more than 4 bytes: unsupported</span> +<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># TODO: print to stderr</span> <span id="L61" class="LineNr"> 61 </span> compare c, <span class="Constant">0x1fffff</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">{</span> <span id="L63" class="LineNr"> 63 </span> <span class="PreProc">break-if-></span> <span id="L64" class="LineNr"> 64 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"unsupported code point "</span> -<span id="L65" class="LineNr"> 65 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> c +<span id="L65" class="LineNr"> 65 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> c <span id="L66" class="LineNr"> 66 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L68" class="LineNr"> 68 </span> syscall_exit <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> <span class="Comment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> +<span id="L71" class="LineNr"> 71 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> compare num-trailers, <span class="Constant">0</span> @@ -138,21 +138,21 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> tmp <span class="SpecialChar"><-</span> or <span class="Constant">0x80</span> <span id="L79" class="LineNr"> 79 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> <span id="L80" class="LineNr"> 80 </span> result <span class="SpecialChar"><-</span> or tmp -<span id="L81" class="LineNr"> 81 </span> <span class="Comment"># update loop state</span> +<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># update loop state</span> <span id="L82" class="LineNr"> 82 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">6</span> <span id="L83" class="LineNr"> 83 </span> num-trailers <span class="SpecialChar"><-</span> decrement <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">loop</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Comment"># emit engine</span> +<span id="L86" class="LineNr"> 86 </span> <span class="muComment"># emit engine</span> <span id="L87" class="LineNr"> 87 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> <span id="L88" class="LineNr"> 88 </span> result <span class="SpecialChar"><-</span> or c <span id="L89" class="LineNr"> 89 </span> result <span class="SpecialChar"><-</span> or first -<span id="L90" class="LineNr"> 90 </span> <span class="Comment">#</span> +<span id="L90" class="LineNr"> 90 </span> <span class="muComment">#</span> <span id="L91" class="LineNr"> 91 </span> out <span class="SpecialChar"><-</span> copy result <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> <span id="L94" class="LineNr"> 94 </span> -<span id="L95" class="LineNr"> 95 </span><span class="Comment"># single-byte code point have identical graphemes</span> +<span id="L95" class="LineNr"> 95 </span><span class="muComment"># single-byte code point have identical graphemes</span> <span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L96'>test-to-grapheme-single-byte</a></span> <span class="Delimiter">{</span> <span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> in-int/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> @@ -167,62 +167,62 @@ if ('onhashchange' in window) { <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="Comment"># byte | byte | byte | byte</span> -<span id="L111" class="LineNr">111 </span><span class="Comment"># smallest 2-byte utf-8</span> +<span id="L110" class="LineNr">110 </span> <span class="muComment"># byte | byte | byte | byte</span> +<span id="L111" class="LineNr">111 </span><span class="muComment"># smallest 2-byte utf-8</span> <span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L112'>test-to-grapheme-two-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x80</span> <span class="Comment"># 10 00-0000</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> <span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L116" class="LineNr">116 </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="Comment"># 110 0-0010 10 00-0000</span> +<span id="L116" class="LineNr">116 </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="L117" class="LineNr">117 </span><span class="Delimiter">}</span> <span id="L118" class="LineNr">118 </span> -<span id="L119" class="LineNr">119 </span><span class="Comment"># largest 2-byte utf-8</span> +<span id="L119" class="LineNr">119 </span><span class="muComment"># largest 2-byte utf-8</span> <span id="L120" class="LineNr">120 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L120'>test-to-grapheme-two-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x7ff</span> <span class="Comment"># 1-1111 11-1111</span> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> <span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L124" class="LineNr">124 </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="Comment"># 110 1-1111 10 11-1111</span> +<span id="L124" class="LineNr">124 </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="L125" class="LineNr">125 </span><span class="Delimiter">}</span> <span id="L126" class="LineNr">126 </span> -<span id="L127" class="LineNr">127 </span><span class="Comment"># smallest 3-byte utf-8</span> +<span id="L127" class="LineNr">127 </span><span class="muComment"># smallest 3-byte utf-8</span> <span id="L128" class="LineNr">128 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L128'>test-to-grapheme-three-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x800</span> <span class="Comment"># 10-0000 00-0000</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> <span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L132" class="LineNr">132 </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="Comment"># 1110 0000 10 10-0000 10 00-0000</span> +<span id="L132" class="LineNr">132 </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="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="Comment"># largest 3-byte utf-8</span> +<span id="L135" class="LineNr">135 </span><span class="muComment"># largest 3-byte utf-8</span> <span id="L136" class="LineNr">136 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L136'>test-to-grapheme-three-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0xffff</span> <span class="Comment"># 1111 11-1111 11-1111</span> +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> <span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L140" class="LineNr">140 </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="Comment"># 1110 1111 10 11-1111 10 11-1111</span> +<span id="L140" class="LineNr">140 </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="L141" class="LineNr">141 </span><span class="Delimiter">}</span> <span id="L142" class="LineNr">142 </span> -<span id="L143" class="LineNr">143 </span><span class="Comment"># smallest 4-byte utf-8</span> +<span id="L143" class="LineNr">143 </span><span class="muComment"># smallest 4-byte utf-8</span> <span id="L144" class="LineNr">144 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L144'>test-to-grapheme-four-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x10000</span> <span class="Comment"># 1-0000 00-0000 00-0000</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> <span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L148" class="LineNr">148 </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="Comment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> +<span id="L148" class="LineNr">148 </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="L149" class="LineNr">149 </span><span class="Delimiter">}</span> <span id="L150" class="LineNr">150 </span> -<span id="L151" class="LineNr">151 </span><span class="Comment"># largest 4-byte utf-8</span> +<span id="L151" class="LineNr">151 </span><span class="muComment"># largest 4-byte utf-8</span> <span id="L152" class="LineNr">152 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L152'>test-to-grapheme-four-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x1fffff</span> <span class="Comment"># 111 11-1111 11-1111 11-1111</span> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> <span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in <span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L156" class="LineNr">156 </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="Comment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> +<span id="L156" class="LineNr">156 </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="L157" class="LineNr">157 </span><span class="Delimiter">}</span> <span id="L158" class="LineNr">158 </span> -<span id="L159" class="LineNr">159 </span><span class="Comment"># read the next grapheme from a stream of bytes</span> +<span id="L159" class="LineNr">159 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> <span id="L160" class="LineNr">160 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L160'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>out/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span>$read-grapheme:body: <span class="Delimiter">{</span> <span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in <span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L164" class="LineNr">164 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <span class="Comment"># single byte: just return it</span> +<span id="L165" class="LineNr">165 </span> <span class="muComment"># single byte: just return it</span> <span id="L166" class="LineNr">166 </span> compare c, <span class="Constant">0xc0</span> <span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> <span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if->=</span> @@ -236,21 +236,21 @@ if ('onhashchange' in window) { <span id="L176" class="LineNr">176 </span> out <span class="SpecialChar"><-</span> copy c <span id="L177" class="LineNr">177 </span> <span class="PreProc">break</span> $read-grapheme:body <span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> -<span id="L179" class="LineNr">179 </span> <span class="Comment"># 2 bytes</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="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L184" class="LineNr">184 </span> <span class="PreProc">break</span> $read-grapheme:compute-length <span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> <span class="Comment"># 3 bytes</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="SpecialChar"><-</span> copy <span class="Constant">2</span> <span id="L191" class="LineNr">191 </span> <span class="PreProc">break</span> $read-grapheme:compute-length <span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> <span class="Comment"># 4 bytes</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> @@ -258,16 +258,16 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr">198 </span> <span class="PreProc">break</span> $read-grapheme:compute-length <span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> <span id="L200" class="LineNr">200 </span>$read-grapheme:abort: <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <span class="Comment"># TODO: print to stderr</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 supported. First byte seen: "</span> <span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L204" class="LineNr">204 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> n +<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="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L207" class="LineNr">207 </span> syscall_exit <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="Comment"># prepend trailer bytes</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="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy c <span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> @@ -277,7 +277,7 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy tmp <span id="L218" class="LineNr">218 </span> tmp2 <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L326'>shift-left-bytes</a> tmp2, num-byte-shifts <span id="L219" class="LineNr">219 </span> result <span class="SpecialChar"><-</span> or tmp2 -<span id="L220" class="LineNr">220 </span> <span class="Comment"># update loop state</span> +<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="SpecialChar"><-</span> increment <span id="L222" class="LineNr">222 </span> num-trailers <span class="SpecialChar"><-</span> decrement <span id="L223" class="LineNr">223 </span> <span class="PreProc">loop</span> @@ -295,7 +295,7 @@ if ('onhashchange' in window) { <span id="L235" class="LineNr">235 </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="L236" class="LineNr">236 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> s2 <span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L238" class="LineNr">238 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>, <span class="Constant">"F - test grapheme/1"</span> <span class="Comment"># greek capital letter beta</span> +<span id="L238" class="LineNr">238 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>, <span class="Constant">"F - test grapheme/1"</span> <span class="muComment"># greek capital letter beta</span> <span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> s2 <span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c <span id="L241" class="LineNr">241 </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> @@ -318,7 +318,7 @@ if ('onhashchange' in window) { <span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in <span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L260" class="LineNr">260 </span> $read-grapheme-buffered:compute-length: <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="Comment"># single byte: just return it</span> +<span id="L261" class="LineNr">261 </span> <span class="muComment"># single byte: just return it</span> <span id="L262" class="LineNr">262 </span> compare c, <span class="Constant">0xc0</span> <span id="L263" class="LineNr">263 </span> <span class="Delimiter">{</span> <span id="L264" class="LineNr">264 </span> <span class="PreProc">break-if->=</span> @@ -332,21 +332,21 @@ if ('onhashchange' in window) { <span id="L272" class="LineNr">272 </span> out <span class="SpecialChar"><-</span> copy c <span id="L273" class="LineNr">273 </span> <span class="PreProc">break</span> $read-grapheme-buffered:body <span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> -<span id="L275" class="LineNr">275 </span> <span class="Comment"># 2 bytes</span> +<span id="L275" class="LineNr">275 </span> <span class="muComment"># 2 bytes</span> <span id="L276" class="LineNr">276 </span> compare c, <span class="Constant">0xe0</span> <span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> <span id="L278" class="LineNr">278 </span> <span class="PreProc">break-if->=</span> <span id="L279" class="LineNr">279 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L280" class="LineNr">280 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length <span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> <span class="Comment"># 3 bytes</span> +<span id="L282" class="LineNr">282 </span> <span class="muComment"># 3 bytes</span> <span id="L283" class="LineNr">283 </span> compare c, <span class="Constant">0xf0</span> <span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> <span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if->=</span> <span id="L286" class="LineNr">286 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> <span id="L287" class="LineNr">287 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length <span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> -<span id="L289" class="LineNr">289 </span> <span class="Comment"># 4 bytes</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> @@ -354,16 +354,16 @@ if ('onhashchange' in window) { <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="Comment"># TODO: print to stderr</span> +<span id="L297" class="LineNr">297 </span> <span class="muComment"># TODO: print to stderr</span> <span id="L298" class="LineNr">298 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> <span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L300" class="LineNr">300 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> n +<span id="L300" class="LineNr">300 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n <span id="L301" class="LineNr">301 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> <span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L303" class="LineNr">303 </span> syscall_exit <span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> <span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> <span class="Comment"># prepend trailer bytes</span> +<span id="L306" class="LineNr">306 </span> <span class="muComment"># prepend trailer bytes</span> <span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy c <span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> @@ -373,7 +373,7 @@ if ('onhashchange' in window) { <span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy tmp <span id="L314" class="LineNr">314 </span> tmp2 <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L326'>shift-left-bytes</a> tmp2, num-byte-shifts <span id="L315" class="LineNr">315 </span> result <span class="SpecialChar"><-</span> or tmp2 -<span id="L316" class="LineNr">316 </span> <span class="Comment"># update loop state</span> +<span id="L316" class="LineNr">316 </span> <span class="muComment"># update loop state</span> <span id="L317" class="LineNr">317 </span> num-byte-shifts <span class="SpecialChar"><-</span> increment <span id="L318" class="LineNr">318 </span> num-trailers <span class="SpecialChar"><-</span> decrement <span id="L319" class="LineNr">319 </span> <span class="PreProc">loop</span> @@ -382,14 +382,14 @@ if ('onhashchange' in window) { <span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> <span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="Comment"># needed because available primitives only shift by a literal/constant number of bits</span> +<span id="L325" class="LineNr">325 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> <span id="L326" class="LineNr">326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L326'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L328" class="LineNr">328 </span> result <span class="SpecialChar"><-</span> copy n <span id="L329" class="LineNr">329 </span> <span class="Delimiter">{</span> <span id="L330" class="LineNr">330 </span> compare i, k <span id="L331" class="LineNr">331 </span> <span class="PreProc">break-if->=</span> -<span id="L332" class="LineNr">332 </span> compare i, <span class="Constant">4</span> <span class="Comment"># only 4 bytes in 32 bits</span> +<span id="L332" class="LineNr">332 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> <span id="L333" class="LineNr">333 </span> <span class="PreProc">break-if->=</span> <span id="L334" class="LineNr">334 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> <span id="L335" class="LineNr">335 </span> i <span class="SpecialChar"><-</span> increment @@ -427,12 +427,33 @@ if ('onhashchange' in window) { <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#L326'>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="Comment"># To run all tests, uncomment this and run:</span> -<span id="L371" class="LineNr">371 </span><span class="Comment"># $ ./translate_mu && ./a.elf</span> +<span id="L370" class="LineNr">370 </span><span class="muComment"># To run all tests, uncomment this and run:</span> +<span id="L371" class="LineNr">371 </span><span class="muComment"># $ ./translate_mu && ./a.elf</span> <span id="L372" class="LineNr">372 </span><span class="CommentedCode">#? fn main -> r/ebx: int {</span> <span id="L373" class="LineNr">373 </span><span class="CommentedCode">#? run-tests</span> <span id="L374" class="LineNr">374 </span><span class="CommentedCode">#? r <- copy 0</span> <span id="L375" class="LineNr">375 </span><span class="CommentedCode">#? }</span> +<span id="L376" class="LineNr">376 </span> +<span id="L377" class="LineNr">377 </span><span class="muComment"># write a grapheme to a stream of bytes</span> +<span id="L378" class="LineNr">378 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> +<span id="L379" class="LineNr">379 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L379'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> +<span id="L380" class="LineNr">380 </span>$write-grapheme:body: <span class="Delimiter">{</span> +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy g +<span id="L382" class="LineNr">382 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> +<span id="L383" class="LineNr">383 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> +<span id="L384" class="LineNr">384 </span> compare c, <span class="Constant">0</span> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L386" class="LineNr">386 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L387" class="LineNr">387 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> +<span id="L388" class="LineNr">388 </span> compare c, <span class="Constant">0</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L390" class="LineNr">390 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L391" class="LineNr">391 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> +<span id="L392" class="LineNr">392 </span> compare c, <span class="Constant">0</span> +<span id="L393" class="LineNr">393 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L394" class="LineNr">394 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L395" class="LineNr">395 </span><span class="Delimiter">}</span> +<span id="L396" class="LineNr">396 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/404stream.mu.html b/html/404stream.mu.html index c2ba328b..fe99a9b2 100644 --- a/html/404stream.mu.html +++ b/html/404stream.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } .SpecialChar { color: #d70000; } -.muTest { color: #5f8700; } -.Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.muTest { color: #5f8700; } .Constant { color: #008787; } .PreProc { color: #c000c0; } --> @@ -56,18 +56,18 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/404stream.mu'>https://github.com/akkartik/mu/blob/master/404stream.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Tests for Mu's stream primitives.</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Tests for Mu's stream primitives.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L3'>test-stream</a></span> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="Comment"># - write an int to a stream, then read it back</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Comment"># step 1: initialize</span> +<span id="L4" class="LineNr"> 4 </span> # - write an int to a stream, then read it back +<span id="L5" class="LineNr"> 5 </span> <span class="muComment"># step 1: initialize</span> <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> s: (stream int <span class="Constant">4</span>) <span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="SpecialChar"><-</span> address s <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 <span id="L9" class="LineNr"> 9 </span> <a href='401test.mu.html#L3'>check-true</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/0"</span> <span id="L10" class="LineNr">10 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 <span id="L11" class="LineNr">11 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/0"</span> -<span id="L12" class="LineNr">12 </span> <span class="Comment"># step 2: write to stream</span> +<span id="L12" class="LineNr">12 </span> <span class="muComment"># step 2: write to stream</span> <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> x: int <span id="L14" class="LineNr">14 </span> copy-to x, <span class="Constant">0x34</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> address x @@ -76,9 +76,9 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/1"</span> <span id="L19" class="LineNr">19 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 <span id="L20" class="LineNr">20 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/1"</span> -<span id="L21" class="LineNr">21 </span> <span class="Comment"># step 3: modify the value written (should make no difference)</span> +<span id="L21" class="LineNr">21 </span> <span class="muComment"># step 3: modify the value written (should make no difference)</span> <span id="L22" class="LineNr">22 </span> copy-to x, <span class="Constant">0</span> -<span id="L23" class="LineNr">23 </span> <span class="Comment"># step 4: read back</span> +<span id="L23" class="LineNr">23 </span> <span class="muComment"># step 4: read back</span> <span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> y: int <span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> y2/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> address y <span id="L26" class="LineNr">26 </span> <a href='309stream.subx.html#L107'>read-from-stream</a> s2, y2 @@ -86,12 +86,12 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr">28 </span> <a href='401test.mu.html#L3'>check-true</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/2"</span> <span id="L29" class="LineNr">29 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 <span id="L30" class="LineNr">30 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/2"</span> -<span id="L31" class="LineNr">31 </span> <span class="Comment"># we read back what was written</span> +<span id="L31" class="LineNr">31 </span> <span class="muComment"># we read back what was written</span> <span id="L32" class="LineNr">32 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> y, <span class="Constant">0x34</span>, <span class="Constant">"F - test-stream"</span> <span id="L33" class="LineNr">33 </span><span class="Delimiter">}</span> <span id="L34" class="LineNr">34 </span> <span id="L35" class="LineNr">35 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L35'>test-stream-full</a></span> <span class="Delimiter">{</span> -<span id="L36" class="LineNr">36 </span> <span class="Comment"># write an int to a stream of capacity 1</span> +<span id="L36" class="LineNr">36 </span> <span class="muComment"># write an int to a stream of capacity 1</span> <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> s: (stream int <span class="Constant">1</span>) <span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="SpecialChar"><-</span> address s <span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 @@ -106,7 +106,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr">48 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L48'>test-fake-input-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> foo: (handle buffered-file) <span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address foo -<span id="L51" class="LineNr">51 </span> <a href='306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"abc"</span>, foo-ah +<span id="L51" class="LineNr">51 </span> <a href='306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"abc"</span>, foo-ah <span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> foo <span id="L53" class="LineNr">53 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) <span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L59" class="LineNr">59 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L59'>test-fake-output-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L60" class="LineNr">60 </span> <span class="PreProc">var</span> foo: (handle buffered-file) <span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address foo -<span id="L62" class="LineNr">62 </span> <a href='306files.subx.html#L119'>new-buffered-file</a> foo-ah +<span id="L62" class="LineNr">62 </span> <a href='306files.subx.html#L122'>new-buffered-file</a> foo-ah <span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> foo <span id="L64" class="LineNr">64 </span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> foo-addr, <span class="Constant">"abc"</span> <span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) diff --git a/html/405screen.mu.html b/html/405screen.mu.html index e252bb0d..bee8a00a 100644 --- a/html/405screen.mu.html +++ b/html/405screen.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; } .CommentedCode { color: #8a8a8a; } -.muTest { color: #5f8700; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } .Constant { color: #008787; } .PreProc { color: #c000c0; } --> @@ -58,21 +58,21 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/405screen.mu'>https://github.com/akkartik/mu/blob/master/405screen.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Wrappers for real screen primitives that can be passed a fake screen.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># The tests here have been painstakingly validated against a real terminal</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># emulator. I believe functionality here is broadly portable across terminal</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># emulators.</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># Remember: fake screen co-ordinates are 1-based, just like in real terminal</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># emulators.</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Wrappers for real screen primitives that can be passed a fake screen.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># The tests here have been painstakingly validated against a real terminal</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># emulator. I believe functionality here is broadly portable across terminal</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># emulators.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Remember: fake screen co-ordinates are 1-based, just like in real terminal</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># emulators.</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L9'>screen</a> <span class="Delimiter">{</span> <span id="L10" class="LineNr"> 10 </span> num-rows: int <span id="L11" class="LineNr"> 11 </span> num-cols: int <span id="L12" class="LineNr"> 12 </span> data: (handle array <a href='405screen.mu.html#L20'>screen-cell</a>) -<span id="L13" class="LineNr"> 13 </span> top-index: int <span class="Comment"># 0-indexed</span> -<span id="L14" class="LineNr"> 14 </span> cursor-row: int <span class="Comment"># 1-indexed</span> -<span id="L15" class="LineNr"> 15 </span> cursor-col: int <span class="Comment"># 1-indexed</span> +<span id="L13" class="LineNr"> 13 </span> top-index: int <span class="muComment"># 0-indexed</span> +<span id="L14" class="LineNr"> 14 </span> cursor-row: int <span class="muComment"># 1-indexed</span> +<span id="L15" class="LineNr"> 15 </span> cursor-col: int <span class="muComment"># 1-indexed</span> <span id="L16" class="LineNr"> 16 </span> cursor-hide?: boolean <span id="L17" class="LineNr"> 17 </span> curr-attributes: <a href='405screen.mu.html#L20'>screen-cell</a> <span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> @@ -91,27 +91,27 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Comment"># screen->num-rows = nrows</span> +<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># screen->num-rows = nrows</span> <span id="L35" class="LineNr"> 35 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows <span id="L36" class="LineNr"> 36 </span> tmp <span class="SpecialChar"><-</span> copy nrows <span id="L37" class="LineNr"> 37 </span> copy-to *dest, tmp -<span id="L38" class="LineNr"> 38 </span> <span class="Comment"># screen->num-cols = ncols</span> +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># screen->num-cols = ncols</span> <span id="L39" class="LineNr"> 39 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols <span id="L40" class="LineNr"> 40 </span> tmp <span class="SpecialChar"><-</span> copy ncols <span id="L41" class="LineNr"> 41 </span> copy-to *dest, tmp -<span id="L42" class="LineNr"> 42 </span> <span class="Comment"># screen->data = new screen-cell[nrows*ncols]</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># screen->data = new screen-cell[nrows*ncols]</span> <span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data <span id="L45" class="LineNr"> 45 </span> tmp <span class="SpecialChar"><-</span> multiply nrows <span id="L46" class="LineNr"> 46 </span> populate data-addr, tmp <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Comment"># screen->cursor-row = 1</span> +<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># screen->cursor-row = 1</span> <span id="L49" class="LineNr"> 49 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row <span id="L50" class="LineNr"> 50 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Comment"># screen->cursor-col = 1</span> +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># screen->cursor-col = 1</span> <span id="L52" class="LineNr"> 52 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col <span id="L53" class="LineNr"> 53 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L54" class="LineNr"> 54 </span> <span class="Comment"># screen->curr-attributes->background-color = 7 (simulate light background)</span> +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># screen->curr-attributes->background-color = 7 (simulate light background)</span> <span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes <span id="L56" class="LineNr"> 56 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> tmp2, background-color <span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">7</span> @@ -127,7 +127,7 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">}</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Comment"># fake screen</span> +<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># fake screen</span> <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows <span id="L73" class="LineNr"> 73 </span> nrows <span class="SpecialChar"><-</span> copy *tmp @@ -147,7 +147,7 @@ if ('onhashchange' in window) { <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Comment"># fake screen</span> +<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># fake screen</span> <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> space/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> <span id="L92" class="LineNr"> 92 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> @@ -183,20 +183,20 @@ if ('onhashchange' in window) { <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="PreProc">break-if-=</span> -<span id="L126" class="LineNr"> 126 </span> <span class="Comment"># fake screen</span> +<span id="L126" class="LineNr"> 126 </span> <span class="muComment"># fake screen</span> <span id="L127" class="LineNr"> 127 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L128" class="LineNr"> 128 </span> <span class="Comment"># row < 0 is ignored</span> +<span id="L128" class="LineNr"> 128 </span> <span class="muComment"># row < 0 is ignored</span> <span id="L129" class="LineNr"> 129 </span> <span class="Delimiter">{</span> <span id="L130" class="LineNr"> 130 </span> compare row, <span class="Constant">0</span> <span id="L131" class="LineNr"> 131 </span> <span class="PreProc">break-if-<</span> $move-cursor:body <span id="L132" class="LineNr"> 132 </span> <span class="Delimiter">}</span> -<span id="L133" class="LineNr"> 133 </span> <span class="Comment"># row = 0 is treated same as 1</span> +<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># row = 0 is treated same as 1</span> <span id="L134" class="LineNr"> 134 </span> <span class="Delimiter">{</span> <span id="L135" class="LineNr"> 135 </span> compare row, <span class="Constant">0</span> <span id="L136" class="LineNr"> 136 </span> <span class="PreProc">break-if-!=</span> <span id="L137" class="LineNr"> 137 </span> copy-to row, <span class="Constant">1</span> <span id="L138" class="LineNr"> 138 </span> <span class="Delimiter">}</span> -<span id="L139" class="LineNr"> 139 </span> <span class="Comment"># row > num-rows saturates to num-rows</span> +<span id="L139" class="LineNr"> 139 </span> <span class="muComment"># row > num-rows saturates to num-rows</span> <span id="L140" class="LineNr"> 140 </span> <span class="Delimiter">{</span> <span id="L141" class="LineNr"> 141 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows <span id="L142" class="LineNr"> 142 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *nrows-addr @@ -204,18 +204,18 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr"> 144 </span> <span class="PreProc">break-if-<=</span> <span id="L145" class="LineNr"> 145 </span> copy-to row, nrows <span id="L146" class="LineNr"> 146 </span> <span class="Delimiter">}</span> -<span id="L147" class="LineNr"> 147 </span> <span class="Comment"># column < 0 is ignored</span> +<span id="L147" class="LineNr"> 147 </span> <span class="muComment"># column < 0 is ignored</span> <span id="L148" class="LineNr"> 148 </span> <span class="Delimiter">{</span> <span id="L149" class="LineNr"> 149 </span> compare column, <span class="Constant">0</span> <span id="L150" class="LineNr"> 150 </span> <span class="PreProc">break-if-<</span> $move-cursor:body <span id="L151" class="LineNr"> 151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr"> 152 </span> <span class="Comment"># column = 0 is treated same as 1</span> +<span id="L152" class="LineNr"> 152 </span> <span class="muComment"># column = 0 is treated same as 1</span> <span id="L153" class="LineNr"> 153 </span> <span class="Delimiter">{</span> <span id="L154" class="LineNr"> 154 </span> compare column, <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> copy-to column, <span class="Constant">1</span> <span id="L157" class="LineNr"> 157 </span> <span class="Delimiter">}</span> -<span id="L158" class="LineNr"> 158 </span> <span class="Comment"># column > num-cols saturates to num-cols+1 (so wrapping to next row)</span> +<span id="L158" class="LineNr"> 158 </span> <span class="muComment"># column > num-cols saturates to num-cols+1 (so wrapping to next row)</span> <span id="L159" class="LineNr"> 159 </span> <span class="Delimiter">{</span> <span id="L160" class="LineNr"> 160 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols <span id="L161" class="LineNr"> 161 </span> <span class="PreProc">var</span> ncols/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *ncols-addr @@ -224,11 +224,11 @@ if ('onhashchange' in window) { <span id="L164" class="LineNr"> 164 </span> copy-to column, ncols <span id="L165" class="LineNr"> 165 </span> increment column <span id="L166" class="LineNr"> 166 </span> <span class="Delimiter">}</span> -<span id="L167" class="LineNr"> 167 </span> <span class="Comment"># screen->cursor-row = row</span> +<span id="L167" class="LineNr"> 167 </span> <span class="muComment"># screen->cursor-row = row</span> <span id="L168" class="LineNr"> 168 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row <span id="L169" class="LineNr"> 169 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row <span id="L170" class="LineNr"> 170 </span> copy-to *dest, src -<span id="L171" class="LineNr"> 171 </span> <span class="Comment"># screen->cursor-col = column</span> +<span id="L171" class="LineNr"> 171 </span> <span class="muComment"># screen->cursor-col = column</span> <span id="L172" class="LineNr"> 172 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col <span id="L173" class="LineNr"> 173 </span> src <span class="SpecialChar"><-</span> copy column <span id="L174" class="LineNr"> 174 </span> copy-to *dest, src @@ -246,7 +246,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr"> 186 </span> <span class="Delimiter">}</span> <span id="L187" class="LineNr"> 187 </span> <span class="Delimiter">{</span> <span id="L188" class="LineNr"> 188 </span> <span class="PreProc">break-if-=</span> -<span id="L189" class="LineNr"> 189 </span> <span class="Comment"># fake screen</span> +<span id="L189" class="LineNr"> 189 </span> <span class="muComment"># fake screen</span> <span id="L190" class="LineNr"> 190 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) <span id="L191" class="LineNr"> 191 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 <span id="L192" class="LineNr"> 192 </span> <a href='108write.subx.html#L24'>write</a> s2-addr, s @@ -268,18 +268,18 @@ if ('onhashchange' in window) { <span id="L208" class="LineNr"> 208 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L209" class="LineNr"> 209 </span> <span class="Delimiter">{</span> <span id="L210" class="LineNr"> 210 </span> <span class="PreProc">break-if-!=</span> -<span id="L211" class="LineNr"> 211 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> c +<span id="L211" class="LineNr"> 211 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c <span id="L212" class="LineNr"> 212 </span> <span class="PreProc">break</span> $print-grapheme:body <span id="L213" class="LineNr"> 213 </span> <span class="Delimiter">}</span> <span id="L214" class="LineNr"> 214 </span> <span class="Delimiter">{</span> <span id="L215" class="LineNr"> 215 </span> <span class="PreProc">break-if-=</span> -<span id="L216" class="LineNr"> 216 </span> <span class="Comment"># fake screen</span> +<span id="L216" class="LineNr"> 216 </span> <span class="muComment"># fake screen</span> <span id="L217" class="LineNr"> 217 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> <span id="L218" class="LineNr"> 218 </span> <span class="PreProc">var</span> cursor-col-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col -<span id="L219" class="LineNr"> 219 </span> <span class="Comment"># adjust cursor if necessary</span> -<span id="L220" class="LineNr"> 220 </span> <span class="Comment"># to avoid premature scrolling it's important to do this lazily, at the last possible time</span> +<span id="L219" class="LineNr"> 219 </span> <span class="muComment"># adjust cursor if necessary</span> +<span id="L220" class="LineNr"> 220 </span> <span class="muComment"># to avoid premature scrolling it's important to do this lazily, at the last possible time</span> <span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr"> 222 </span> <span class="Comment"># next row</span> +<span id="L222" class="LineNr"> 222 </span> <span class="muComment"># next row</span> <span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> num-cols-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols <span id="L224" class="LineNr"> 224 </span> <span class="PreProc">var</span> num-cols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *num-cols-addr <span id="L225" class="LineNr"> 225 </span> compare *cursor-col-addr, num-cols @@ -287,13 +287,13 @@ if ('onhashchange' in window) { <span id="L227" class="LineNr"> 227 </span> copy-to *cursor-col-addr, <span class="Constant">1</span> <span id="L228" class="LineNr"> 228 </span> <span class="PreProc">var</span> cursor-row-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row <span id="L229" class="LineNr"> 229 </span> increment *cursor-row-addr -<span id="L230" class="LineNr"> 230 </span> <span class="Comment"># scroll</span> +<span id="L230" class="LineNr"> 230 </span> <span class="muComment"># scroll</span> <span id="L231" class="LineNr"> 231 </span> <span class="PreProc">var</span> num-rows-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows <span id="L232" class="LineNr"> 232 </span> <span class="PreProc">var</span> num-rows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *num-rows-addr <span id="L233" class="LineNr"> 233 </span> compare *cursor-row-addr, num-rows <span id="L234" class="LineNr"> 234 </span> <span class="PreProc">break-if-<=</span> <span id="L235" class="LineNr"> 235 </span> copy-to *cursor-row-addr, num-rows -<span id="L236" class="LineNr"> 236 </span> <span class="Comment"># if (top-index > data size) top-index = 0, otherwise top-index += num-cols</span> +<span id="L236" class="LineNr"> 236 </span> <span class="muComment"># if (top-index > data size) top-index = 0, otherwise top-index += num-cols</span> <span id="L237" class="LineNr"> 237 </span> $print-grapheme:perform-scroll: <span class="Delimiter">{</span> <span id="L238" class="LineNr"> 238 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, top-index <span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data @@ -347,7 +347,7 @@ if ('onhashchange' in window) { <span id="L287" class="LineNr"> 287 </span> result <span class="SpecialChar"><-</span> multiply num-cols <span id="L288" class="LineNr"> 288 </span> result <span class="SpecialChar"><-</span> add col <span id="L289" class="LineNr"> 289 </span> result <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> -<span id="L290" class="LineNr"> 290 </span> <span class="Comment"># result = (result + top-index) % data length</span> +<span id="L290" class="LineNr"> 290 </span> <span class="muComment"># result = (result + top-index) % data length</span> <span id="L291" class="LineNr"> 291 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, top-index <span id="L292" class="LineNr"> 292 </span> result <span class="SpecialChar"><-</span> add *top-index-addr <span id="L293" class="LineNr"> 293 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, data @@ -489,239 +489,239 @@ if ('onhashchange' in window) { <span id="L429" class="LineNr"> 429 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L430" class="LineNr"> 430 </span> <span class="Delimiter">{</span> <span id="L431" class="LineNr"> 431 </span> <span class="PreProc">break-if-!=</span> -<span id="L432" class="LineNr"> 432 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> n +<span id="L432" class="LineNr"> 432 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n <span id="L433" class="LineNr"> 433 </span> <span class="PreProc">break</span> $print-int32-hex:body <span id="L434" class="LineNr"> 434 </span> <span class="Delimiter">}</span> <span id="L435" class="LineNr"> 435 </span> <span class="Delimiter">{</span> <span id="L436" class="LineNr"> 436 </span> <span class="PreProc">break-if-=</span> -<span id="L437" class="LineNr"> 437 </span> <span class="Comment"># fake screen</span> -<span id="L438" class="LineNr"> 438 </span> <span class="Delimiter">}</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 id="L442" class="LineNr"> 442 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L442'>reset-formatting</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L443" class="LineNr"> 443 </span>$reset-formatting:body: <span class="Delimiter">{</span> -<span id="L444" class="LineNr"> 444 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">{</span> -<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">break-if-!=</span> -<span id="L447" class="LineNr"> 447 </span> <a href='304screen.subx.html#L226'>reset-formatting-on-real-screen</a> -<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">break</span> $reset-formatting:body -<span id="L449" class="LineNr"> 449 </span> <span class="Delimiter">}</span> -<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> <span class="Comment"># fake screen</span> -<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L455" class="LineNr"> 455 </span> <span class="PreProc">var</span> default-cell: <a href='405screen.mu.html#L20'>screen-cell</a> -<span id="L456" class="LineNr"> 456 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> default-cell, background-color -<span id="L457" class="LineNr"> 457 </span> copy-to *bg, <span class="Constant">7</span> -<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">var</span> default-cell-addr/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> address default-cell -<span id="L459" class="LineNr"> 459 </span> copy-object default-cell-addr, dest -<span id="L460" class="LineNr"> 460 </span> <span class="Delimiter">}</span> -<span id="L461" class="LineNr"> 461 </span><span class="Delimiter">}</span> -<span id="L462" class="LineNr"> 462 </span><span class="Delimiter">}</span> -<span id="L463" class="LineNr"> 463 </span> -<span id="L464" class="LineNr"> 464 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L464'>start-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, bg: int <span class="Delimiter">{</span> -<span id="L465" class="LineNr"> 465 </span>$start-color:body: <span class="Delimiter">{</span> -<span id="L466" class="LineNr"> 466 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L467" class="LineNr"> 467 </span> <span class="Delimiter">{</span> -<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">break-if-!=</span> -<span id="L469" class="LineNr"> 469 </span> <a href='304screen.subx.html#L241'>start-color-on-real-screen</a> fg, bg -<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">break</span> $start-color:body -<span id="L471" class="LineNr"> 471 </span> <span class="Delimiter">}</span> -<span id="L472" class="LineNr"> 472 </span> <span class="Delimiter">{</span> -<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">break-if-=</span> -<span id="L474" class="LineNr"> 474 </span> <span class="Comment"># fake screen</span> -<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, color -<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy fg -<span id="L479" class="LineNr"> 479 </span> copy-to *dest, src -<span id="L480" class="LineNr"> 480 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, background-color -<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy bg -<span id="L482" class="LineNr"> 482 </span> copy-to *dest, src -<span id="L483" class="LineNr"> 483 </span> <span class="Delimiter">}</span> -<span id="L484" class="LineNr"> 484 </span><span class="Delimiter">}</span> -<span id="L485" class="LineNr"> 485 </span><span class="Delimiter">}</span> -<span id="L486" class="LineNr"> 486 </span> -<span id="L487" class="LineNr"> 487 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L487'>start-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L488" class="LineNr"> 488 </span>$start-bold:body: <span class="Delimiter">{</span> -<span id="L489" class="LineNr"> 489 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L490" class="LineNr"> 490 </span> <span class="Delimiter">{</span> -<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">break-if-!=</span> -<span id="L492" class="LineNr"> 492 </span> <a href='304screen.subx.html#L276'>start-bold-on-real-screen</a> -<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">break</span> $start-bold:body -<span id="L494" class="LineNr"> 494 </span> <span class="Delimiter">}</span> -<span id="L495" class="LineNr"> 495 </span> <span class="Delimiter">{</span> -<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">break-if-=</span> -<span id="L497" class="LineNr"> 497 </span> <span class="Comment"># fake screen</span> -<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, bold? -<span id="L501" class="LineNr"> 501 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L502" class="LineNr"> 502 </span> <span class="Delimiter">}</span> -<span id="L503" class="LineNr"> 503 </span><span class="Delimiter">}</span> -<span id="L504" class="LineNr"> 504 </span><span class="Delimiter">}</span> -<span id="L505" class="LineNr"> 505 </span> -<span id="L506" class="LineNr"> 506 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L506'>start-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L507" class="LineNr"> 507 </span>$start-underline:body: <span class="Delimiter">{</span> -<span id="L508" class="LineNr"> 508 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L509" class="LineNr"> 509 </span> <span class="Delimiter">{</span> -<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">break-if-!=</span> -<span id="L511" class="LineNr"> 511 </span> <a href='304screen.subx.html#L289'>start-underline-on-real-screen</a> -<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">break</span> $start-underline:body -<span id="L513" class="LineNr"> 513 </span> <span class="Delimiter">}</span> -<span id="L514" class="LineNr"> 514 </span> <span class="Delimiter">{</span> -<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">break-if-=</span> -<span id="L516" class="LineNr"> 516 </span> <span class="Comment"># fake screen</span> -<span id="L517" class="LineNr"> 517 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L518" class="LineNr"> 518 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, underline? -<span id="L520" class="LineNr"> 520 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L521" class="LineNr"> 521 </span> <span class="Delimiter">}</span> -<span id="L522" class="LineNr"> 522 </span><span class="Delimiter">}</span> -<span id="L523" class="LineNr"> 523 </span><span class="Delimiter">}</span> -<span id="L524" class="LineNr"> 524 </span> -<span id="L525" class="LineNr"> 525 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L525'>start-reverse-video</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L526" class="LineNr"> 526 </span>$start-reverse-video:body: <span class="Delimiter">{</span> -<span id="L527" class="LineNr"> 527 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L528" class="LineNr"> 528 </span> <span class="Delimiter">{</span> -<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">break-if-!=</span> -<span id="L530" class="LineNr"> 530 </span> <a href='304screen.subx.html#L302'>start-reverse-video-on-real-screen</a> -<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">break</span> $start-reverse-video:body -<span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">}</span> -<span id="L533" class="LineNr"> 533 </span> <span class="Delimiter">{</span> -<span id="L534" class="LineNr"> 534 </span> <span class="PreProc">break-if-=</span> -<span id="L535" class="LineNr"> 535 </span> <span class="Comment"># fake screen</span> -<span id="L536" class="LineNr"> 536 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, reverse? -<span id="L539" class="LineNr"> 539 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L540" class="LineNr"> 540 </span> <span class="Delimiter">}</span> -<span id="L541" class="LineNr"> 541 </span><span class="Delimiter">}</span> -<span id="L542" class="LineNr"> 542 </span><span 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='405screen.mu.html#L544'>start-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L545" class="LineNr"> 545 </span>$start-blinking:body: <span class="Delimiter">{</span> -<span id="L546" class="LineNr"> 546 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<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> <a href='304screen.subx.html#L316'>start-blinking-on-real-screen</a> -<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">break</span> $start-blinking:body -<span id="L551" class="LineNr"> 551 </span> <span class="Delimiter">}</span> -<span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">{</span> -<span id="L553" class="LineNr"> 553 </span> <span class="PreProc">break-if-=</span> -<span id="L554" class="LineNr"> 554 </span> <span class="Comment"># fake screen</span> -<span id="L555" class="LineNr"> 555 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L556" class="LineNr"> 556 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L557" class="LineNr"> 557 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, blink? -<span id="L558" class="LineNr"> 558 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L559" class="LineNr"> 559 </span> <span class="Delimiter">}</span> -<span id="L560" class="LineNr"> 560 </span><span class="Delimiter">}</span> -<span id="L561" class="LineNr"> 561 </span><span class="Delimiter">}</span> -<span id="L562" class="LineNr"> 562 </span> -<span id="L563" class="LineNr"> 563 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L563'>hide-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L564" class="LineNr"> 564 </span>$hide-cursor:body: <span class="Delimiter">{</span> -<span id="L565" class="LineNr"> 565 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L566" class="LineNr"> 566 </span> <span class="Delimiter">{</span> -<span id="L567" class="LineNr"> 567 </span> <span class="PreProc">break-if-!=</span> -<span id="L568" class="LineNr"> 568 </span> <a href='304screen.subx.html#L329'>hide-cursor-on-real-screen</a> -<span id="L569" class="LineNr"> 569 </span> <span class="PreProc">break</span> $hide-cursor:body -<span id="L570" class="LineNr"> 570 </span> <span class="Delimiter">}</span> -<span id="L571" class="LineNr"> 571 </span> <span class="Delimiter">{</span> -<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">break-if-=</span> -<span id="L573" class="LineNr"> 573 </span> <span class="Comment"># fake screen</span> -<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L575" class="LineNr"> 575 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? -<span id="L576" class="LineNr"> 576 </span> copy-to *hide?, <span class="Constant">1</span> -<span id="L577" class="LineNr"> 577 </span> <span class="Delimiter">}</span> -<span id="L578" class="LineNr"> 578 </span><span class="Delimiter">}</span> -<span id="L579" class="LineNr"> 579 </span><span class="Delimiter">}</span> -<span id="L580" class="LineNr"> 580 </span> -<span id="L581" class="LineNr"> 581 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L581'>show-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L582" class="LineNr"> 582 </span>$show-cursor:body: <span class="Delimiter">{</span> -<span id="L583" class="LineNr"> 583 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L584" class="LineNr"> 584 </span> <span class="Delimiter">{</span> -<span id="L585" class="LineNr"> 585 </span> <span class="PreProc">break-if-!=</span> -<span id="L586" class="LineNr"> 586 </span> <a href='304screen.subx.html#L342'>show-cursor-on-real-screen</a> -<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">break</span> $show-cursor:body -<span id="L588" class="LineNr"> 588 </span> <span class="Delimiter">}</span> -<span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">{</span> -<span id="L590" class="LineNr"> 590 </span> <span class="PreProc">break-if-=</span> -<span id="L591" class="LineNr"> 591 </span> <span class="Comment"># fake screen</span> -<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? -<span id="L594" class="LineNr"> 594 </span> copy-to *hide?, <span class="Constant">0</span> -<span id="L595" class="LineNr"> 595 </span> <span class="Delimiter">}</span> +<span id="L437" class="LineNr"> 437 </span> <span class="muComment"># fake screen</span> +<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) +<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 +<span id="L440" class="LineNr"> 440 </span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> s2-addr, n +<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L442" class="LineNr"> 442 </span> <span class="Delimiter">{</span> +<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr +<span id="L444" class="LineNr"> 444 </span> compare done?, <span class="Constant">0</span> +<span id="L445" class="LineNr"> 445 </span> <span class="PreProc">break-if-!=</span> +<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> s2-addr +<span id="L447" class="LineNr"> 447 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">loop</span> +<span id="L449" class="LineNr"> 449 </span> <span class="Delimiter">}</span> +<span id="L450" class="LineNr"> 450 </span> <span class="Delimiter">}</span> +<span id="L451" class="LineNr"> 451 </span><span class="Delimiter">}</span> +<span id="L452" class="LineNr"> 452 </span><span class="Delimiter">}</span> +<span id="L453" class="LineNr"> 453 </span> +<span id="L454" class="LineNr"> 454 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L454'>print-int32-hex-bits</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, bits: int <span class="Delimiter">{</span> +<span id="L455" class="LineNr"> 455 </span>$print-int32-hex-bits:body: <span class="Delimiter">{</span> +<span id="L456" class="LineNr"> 456 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L457" class="LineNr"> 457 </span> <span class="Delimiter">{</span> +<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">break-if-!=</span> +<span id="L459" class="LineNr"> 459 </span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n, bits +<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">break</span> $print-int32-hex-bits:body +<span id="L461" class="LineNr"> 461 </span> <span class="Delimiter">}</span> +<span id="L462" class="LineNr"> 462 </span> <span class="Delimiter">{</span> +<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">break-if-=</span> +<span id="L464" class="LineNr"> 464 </span> <span class="muComment"># fake screen</span> +<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) +<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 +<span id="L467" class="LineNr"> 467 </span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> s2-addr, n, bits +<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L469" class="LineNr"> 469 </span> <span class="Delimiter">{</span> +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr +<span id="L471" class="LineNr"> 471 </span> compare done?, <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="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> s2-addr +<span id="L474" class="LineNr"> 474 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<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> <span class="Delimiter">}</span> +<span id="L478" class="LineNr"> 478 </span><span class="Delimiter">}</span> +<span id="L479" class="LineNr"> 479 </span><span class="Delimiter">}</span> +<span id="L480" class="LineNr"> 480 </span> +<span id="L481" class="LineNr"> 481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L481'>print-int32-decimal</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> +<span id="L482" class="LineNr"> 482 </span>$print-int32-decimal:body: <span class="Delimiter">{</span> +<span id="L483" class="LineNr"> 483 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L484" class="LineNr"> 484 </span> <span class="Delimiter">{</span> +<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">break-if-!=</span> +<span id="L486" class="LineNr"> 486 </span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n +<span id="L487" class="LineNr"> 487 </span> <span class="PreProc">break</span> $print-int32-decimal:body +<span id="L488" class="LineNr"> 488 </span> <span class="Delimiter">}</span> +<span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">{</span> +<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">break-if-=</span> +<span id="L491" class="LineNr"> 491 </span> <span class="muComment"># fake screen</span> +<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">}</span> +<span id="L493" class="LineNr"> 493 </span><span class="Delimiter">}</span> +<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='405screen.mu.html#L496'>reset-formatting</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L497" class="LineNr"> 497 </span>$reset-formatting:body: <span class="Delimiter">{</span> +<span id="L498" class="LineNr"> 498 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L499" class="LineNr"> 499 </span> <span class="Delimiter">{</span> +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">break-if-!=</span> +<span id="L501" class="LineNr"> 501 </span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> +<span id="L502" class="LineNr"> 502 </span> <span class="PreProc">break</span> $reset-formatting:body +<span id="L503" class="LineNr"> 503 </span> <span class="Delimiter">}</span> +<span id="L504" class="LineNr"> 504 </span> <span class="Delimiter">{</span> +<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">break-if-=</span> +<span id="L506" class="LineNr"> 506 </span> <span class="muComment"># fake screen</span> +<span id="L507" class="LineNr"> 507 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L508" class="LineNr"> 508 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L509" class="LineNr"> 509 </span> <span class="PreProc">var</span> default-cell: <a href='405screen.mu.html#L20'>screen-cell</a> +<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> default-cell, background-color +<span id="L511" class="LineNr"> 511 </span> copy-to *bg, <span class="Constant">7</span> +<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">var</span> default-cell-addr/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> address default-cell +<span id="L513" class="LineNr"> 513 </span> copy-object default-cell-addr, dest +<span id="L514" class="LineNr"> 514 </span> <span class="Delimiter">}</span> +<span id="L515" class="LineNr"> 515 </span><span class="Delimiter">}</span> +<span id="L516" class="LineNr"> 516 </span><span class="Delimiter">}</span> +<span id="L517" class="LineNr"> 517 </span> +<span id="L518" class="LineNr"> 518 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L518'>start-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, bg: int <span class="Delimiter">{</span> +<span id="L519" class="LineNr"> 519 </span>$start-color:body: <span class="Delimiter">{</span> +<span id="L520" class="LineNr"> 520 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L521" class="LineNr"> 521 </span> <span class="Delimiter">{</span> +<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">break-if-!=</span> +<span id="L523" class="LineNr"> 523 </span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg, bg +<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">break</span> $start-color:body +<span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">}</span> +<span id="L526" class="LineNr"> 526 </span> <span class="Delimiter">{</span> +<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">break-if-=</span> +<span id="L528" class="LineNr"> 528 </span> <span class="muComment"># fake screen</span> +<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, color +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy fg +<span id="L533" class="LineNr"> 533 </span> copy-to *dest, src +<span id="L534" class="LineNr"> 534 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, background-color +<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy bg +<span id="L536" class="LineNr"> 536 </span> copy-to *dest, src +<span id="L537" class="LineNr"> 537 </span> <span class="Delimiter">}</span> +<span id="L538" class="LineNr"> 538 </span><span class="Delimiter">}</span> +<span id="L539" class="LineNr"> 539 </span><span class="Delimiter">}</span> +<span id="L540" class="LineNr"> 540 </span> +<span id="L541" class="LineNr"> 541 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L541'>start-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L542" class="LineNr"> 542 </span>$start-bold:body: <span class="Delimiter">{</span> +<span id="L543" class="LineNr"> 543 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<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> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> +<span id="L547" class="LineNr"> 547 </span> <span class="PreProc">break</span> $start-bold:body +<span id="L548" class="LineNr"> 548 </span> <span class="Delimiter">}</span> +<span id="L549" class="LineNr"> 549 </span> <span class="Delimiter">{</span> +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">break-if-=</span> +<span id="L551" class="LineNr"> 551 </span> <span class="muComment"># fake screen</span> +<span id="L552" class="LineNr"> 552 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L553" class="LineNr"> 553 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, bold? +<span id="L555" class="LineNr"> 555 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L556" class="LineNr"> 556 </span> <span class="Delimiter">}</span> +<span id="L557" class="LineNr"> 557 </span><span class="Delimiter">}</span> +<span id="L558" class="LineNr"> 558 </span><span class="Delimiter">}</span> +<span id="L559" class="LineNr"> 559 </span> +<span id="L560" class="LineNr"> 560 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L560'>start-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L561" class="LineNr"> 561 </span>$start-underline:body: <span class="Delimiter">{</span> +<span id="L562" class="LineNr"> 562 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L563" class="LineNr"> 563 </span> <span class="Delimiter">{</span> +<span id="L564" class="LineNr"> 564 </span> <span class="PreProc">break-if-!=</span> +<span id="L565" class="LineNr"> 565 </span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> +<span id="L566" class="LineNr"> 566 </span> <span class="PreProc">break</span> $start-underline:body +<span id="L567" class="LineNr"> 567 </span> <span class="Delimiter">}</span> +<span id="L568" class="LineNr"> 568 </span> <span class="Delimiter">{</span> +<span id="L569" class="LineNr"> 569 </span> <span class="PreProc">break-if-=</span> +<span id="L570" class="LineNr"> 570 </span> <span class="muComment"># fake screen</span> +<span id="L571" class="LineNr"> 571 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, underline? +<span id="L574" class="LineNr"> 574 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L575" class="LineNr"> 575 </span> <span class="Delimiter">}</span> +<span id="L576" class="LineNr"> 576 </span><span class="Delimiter">}</span> +<span id="L577" class="LineNr"> 577 </span><span class="Delimiter">}</span> +<span id="L578" class="LineNr"> 578 </span> +<span id="L579" class="LineNr"> 579 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L579'>start-reverse-video</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L580" class="LineNr"> 580 </span>$start-reverse-video:body: <span class="Delimiter">{</span> +<span id="L581" class="LineNr"> 581 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L582" class="LineNr"> 582 </span> <span class="Delimiter">{</span> +<span id="L583" class="LineNr"> 583 </span> <span class="PreProc">break-if-!=</span> +<span id="L584" class="LineNr"> 584 </span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> +<span id="L585" class="LineNr"> 585 </span> <span class="PreProc">break</span> $start-reverse-video:body +<span id="L586" class="LineNr"> 586 </span> <span class="Delimiter">}</span> +<span id="L587" class="LineNr"> 587 </span> <span class="Delimiter">{</span> +<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">break-if-=</span> +<span id="L589" class="LineNr"> 589 </span> <span class="muComment"># fake screen</span> +<span id="L590" class="LineNr"> 590 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L591" class="LineNr"> 591 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, reverse? +<span id="L593" class="LineNr"> 593 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L594" class="LineNr"> 594 </span> <span class="Delimiter">}</span> +<span id="L595" class="LineNr"> 595 </span><span class="Delimiter">}</span> <span id="L596" class="LineNr"> 596 </span><span class="Delimiter">}</span> -<span id="L597" class="LineNr"> 597 </span><span class="Delimiter">}</span> -<span id="L598" class="LineNr"> 598 </span> -<span id="L599" class="LineNr"> 599 </span><span class="Comment"># validate data on screen regardless of attributes (color, bold, etc.)</span> -<span id="L600" class="LineNr"> 600 </span><span class="Comment"># Mu doesn't have multi-line strings, so we provide functions for rows or portions of rows.</span> -<span id="L601" class="LineNr"> 601 </span><span class="Comment"># Tab characters (that translate into multiple screen cells) not supported.</span> -<span id="L602" class="LineNr"> 602 </span> -<span id="L603" class="LineNr"> 603 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L603'>check-screen-row</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L604" class="LineNr"> 604 </span> <a href='405screen.mu.html#L607'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L605" class="LineNr"> 605 </span><span class="Delimiter">}</span> -<span id="L606" class="LineNr"> 606 </span> -<span id="L607" class="LineNr"> 607 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L607'>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="L608" class="LineNr"> 608 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L609" class="LineNr"> 609 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L610" class="LineNr"> 610 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L612" class="LineNr"> 612 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L613" class="LineNr"> 613 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L614" class="LineNr"> 614 </span> <span class="Delimiter">{</span> -<span id="L615" class="LineNr"> 615 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L616" class="LineNr"> 616 </span> compare done?, <span class="Constant">0</span> -<span id="L617" class="LineNr"> 617 </span> <span class="PreProc">break-if-!=</span> -<span id="L618" class="LineNr"> 618 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L621" class="LineNr"> 621 </span> <span class="Comment"># compare graphemes</span> -<span id="L622" class="LineNr"> 622 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L623" class="LineNr"> 623 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L624" class="LineNr"> 624 </span> <span class="Delimiter">{</span> -<span id="L625" class="LineNr"> 625 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">break-if-!=</span> -<span id="L627" class="LineNr"> 627 </span> compare g, <span class="Constant">0</span> -<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes -<span id="L629" class="LineNr"> 629 </span> <span class="Delimiter">}</span> -<span id="L630" class="LineNr"> 630 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L631" class="LineNr"> 631 </span> compare g, expected-grapheme -<span id="L632" class="LineNr"> 632 </span> <span class="Delimiter">{</span> -<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">break-if-!=</span> -<span id="L634" class="LineNr"> 634 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L635" class="LineNr"> 635 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes -<span id="L636" class="LineNr"> 636 </span> <span class="Delimiter">}</span> -<span id="L637" class="LineNr"> 637 </span> <span class="Comment"># otherwise print an error</span> -<span id="L638" class="LineNr"> 638 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L639" class="LineNr"> 639 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L640" class="LineNr"> 640 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L641" class="LineNr"> 641 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L642" class="LineNr"> 642 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L643" class="LineNr"> 643 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L644" class="LineNr"> 644 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L645" class="LineNr"> 645 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L646" class="LineNr"> 646 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L647" class="LineNr"> 647 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">}</span> -<span id="L649" class="LineNr"> 649 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L650" class="LineNr"> 650 </span> increment col-idx -<span id="L651" class="LineNr"> 651 </span> <span class="PreProc">loop</span> -<span id="L652" class="LineNr"> 652 </span> <span class="Delimiter">}</span> -<span id="L653" class="LineNr"> 653 </span><span class="Delimiter">}</span> -<span id="L654" class="LineNr"> 654 </span> -<span id="L655" class="LineNr"> 655 </span><span class="Comment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> +<span id="L597" class="LineNr"> 597 </span> +<span id="L598" class="LineNr"> 598 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L598'>start-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L599" class="LineNr"> 599 </span>$start-blinking:body: <span class="Delimiter">{</span> +<span id="L600" class="LineNr"> 600 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L601" class="LineNr"> 601 </span> <span class="Delimiter">{</span> +<span id="L602" class="LineNr"> 602 </span> <span class="PreProc">break-if-!=</span> +<span id="L603" class="LineNr"> 603 </span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> +<span id="L604" class="LineNr"> 604 </span> <span class="PreProc">break</span> $start-blinking:body +<span id="L605" class="LineNr"> 605 </span> <span class="Delimiter">}</span> +<span id="L606" class="LineNr"> 606 </span> <span class="Delimiter">{</span> +<span id="L607" class="LineNr"> 607 </span> <span class="PreProc">break-if-=</span> +<span id="L608" class="LineNr"> 608 </span> <span class="muComment"># fake screen</span> +<span id="L609" class="LineNr"> 609 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L610" class="LineNr"> 610 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, blink? +<span id="L612" class="LineNr"> 612 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L613" class="LineNr"> 613 </span> <span class="Delimiter">}</span> +<span id="L614" class="LineNr"> 614 </span><span class="Delimiter">}</span> +<span id="L615" class="LineNr"> 615 </span><span class="Delimiter">}</span> +<span id="L616" class="LineNr"> 616 </span> +<span id="L617" class="LineNr"> 617 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L617'>hide-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L618" class="LineNr"> 618 </span>$hide-cursor:body: <span class="Delimiter">{</span> +<span id="L619" class="LineNr"> 619 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<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> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> +<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">break</span> $hide-cursor:body +<span id="L624" class="LineNr"> 624 </span> <span class="Delimiter">}</span> +<span id="L625" class="LineNr"> 625 </span> <span class="Delimiter">{</span> +<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">break-if-=</span> +<span id="L627" class="LineNr"> 627 </span> <span class="muComment"># fake screen</span> +<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L629" class="LineNr"> 629 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? +<span id="L630" class="LineNr"> 630 </span> copy-to *hide?, <span class="Constant">1</span> +<span id="L631" class="LineNr"> 631 </span> <span class="Delimiter">}</span> +<span id="L632" class="LineNr"> 632 </span><span class="Delimiter">}</span> +<span id="L633" class="LineNr"> 633 </span><span class="Delimiter">}</span> +<span id="L634" class="LineNr"> 634 </span> +<span id="L635" class="LineNr"> 635 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L635'>show-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L636" class="LineNr"> 636 </span>$show-cursor:body: <span class="Delimiter">{</span> +<span id="L637" class="LineNr"> 637 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L638" class="LineNr"> 638 </span> <span class="Delimiter">{</span> +<span id="L639" class="LineNr"> 639 </span> <span class="PreProc">break-if-!=</span> +<span id="L640" class="LineNr"> 640 </span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> +<span id="L641" class="LineNr"> 641 </span> <span class="PreProc">break</span> $show-cursor:body +<span id="L642" class="LineNr"> 642 </span> <span class="Delimiter">}</span> +<span id="L643" class="LineNr"> 643 </span> <span class="Delimiter">{</span> +<span id="L644" class="LineNr"> 644 </span> <span class="PreProc">break-if-=</span> +<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># fake screen</span> +<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? +<span id="L648" class="LineNr"> 648 </span> copy-to *hide?, <span class="Constant">0</span> +<span id="L649" class="LineNr"> 649 </span> <span class="Delimiter">}</span> +<span id="L650" class="LineNr"> 650 </span><span class="Delimiter">}</span> +<span id="L651" class="LineNr"> 651 </span><span class="Delimiter">}</span> +<span id="L652" class="LineNr"> 652 </span> +<span id="L653" class="LineNr"> 653 </span><span class="muComment"># validate data on screen regardless of attributes (color, bold, etc.)</span> +<span id="L654" class="LineNr"> 654 </span><span class="muComment"># Mu doesn't have multi-line strings, so we provide functions for rows or portions of rows.</span> +<span id="L655" class="LineNr"> 655 </span><span class="muComment"># Tab characters (that translate into multiple screen cells) not supported.</span> <span id="L656" class="LineNr"> 656 </span> -<span id="L657" class="LineNr"> 657 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L657'>check-screen-row-in-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L658" class="LineNr"> 658 </span> <a href='405screen.mu.html#L661'>check-screen-row-in-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, fg, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L657" class="LineNr"> 657 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L657'>check-screen-row</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L658" class="LineNr"> 658 </span> <a href='405screen.mu.html#L661'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg <span id="L659" class="LineNr"> 659 </span><span class="Delimiter">}</span> <span id="L660" class="LineNr"> 660 </span> -<span id="L661" class="LineNr"> 661 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L661'>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="L661" class="LineNr"> 661 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L661'>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="L662" class="LineNr"> 662 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack <span id="L663" class="LineNr"> 663 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L664" class="LineNr"> 664 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L664" class="LineNr"> 664 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> <span id="L665" class="LineNr"> 665 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L666" class="LineNr"> 666 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e <span id="L667" class="LineNr"> 667 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -731,754 +731,808 @@ if ('onhashchange' in window) { <span id="L671" class="LineNr"> 671 </span> <span class="PreProc">break-if-!=</span> <span id="L672" class="LineNr"> 672 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L673" class="LineNr"> 673 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L674" class="LineNr"> 674 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L676" class="LineNr"> 676 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L677" class="LineNr"> 677 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L674" class="LineNr"> 674 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L675" class="LineNr"> 675 </span> <span class="muComment"># compare graphemes</span> +<span id="L676" class="LineNr"> 676 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L677" class="LineNr"> 677 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> <span id="L678" class="LineNr"> 678 </span> <span class="Delimiter">{</span> <span id="L679" class="LineNr"> 679 </span> compare expected-grapheme, <span class="Constant">0x20</span> <span id="L680" class="LineNr"> 680 </span> <span class="PreProc">break-if-!=</span> <span id="L681" class="LineNr"> 681 </span> compare g, <span class="Constant">0</span> -<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells +<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes <span id="L683" class="LineNr"> 683 </span> <span class="Delimiter">}</span> -<span id="L684" class="LineNr"> 684 </span> <span class="Comment"># if expected-grapheme is space, a different color is ok</span> -<span id="L685" class="LineNr"> 685 </span> <span class="Delimiter">{</span> -<span id="L686" class="LineNr"> 686 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L684" class="LineNr"> 684 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L685" class="LineNr"> 685 </span> compare g, expected-grapheme +<span id="L686" class="LineNr"> 686 </span> <span class="Delimiter">{</span> <span id="L687" class="LineNr"> 687 </span> <span class="PreProc">break-if-!=</span> -<span id="L688" class="LineNr"> 688 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L326'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L689" class="LineNr"> 689 </span> compare color, fg -<span id="L690" class="LineNr"> 690 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells -<span id="L691" class="LineNr"> 691 </span> <span class="Delimiter">}</span> -<span id="L692" class="LineNr"> 692 </span> <span class="Comment"># compare graphemes</span> -<span id="L693" class="LineNr"> 693 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L694" class="LineNr"> 694 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L695" class="LineNr"> 695 </span> compare g, expected-grapheme -<span id="L696" class="LineNr"> 696 </span> <span class="Delimiter">{</span> -<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">break-if-!=</span> -<span id="L698" class="LineNr"> 698 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes -<span id="L700" class="LineNr"> 700 </span> <span class="Delimiter">}</span> -<span id="L701" class="LineNr"> 701 </span> <span class="Comment"># otherwise print an error</span> -<span id="L702" class="LineNr"> 702 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L703" class="LineNr"> 703 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L704" class="LineNr"> 704 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L705" class="LineNr"> 705 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L706" class="LineNr"> 706 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L707" class="LineNr"> 707 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L708" class="LineNr"> 708 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L709" class="LineNr"> 709 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L710" class="LineNr"> 710 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L711" class="LineNr"> 711 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L712" class="LineNr"> 712 </span> <span class="Delimiter">}</span> -<span id="L713" class="LineNr"> 713 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> -<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L326'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L715" class="LineNr"> 715 </span> compare fg, color -<span id="L716" class="LineNr"> 716 </span> <span class="Delimiter">{</span> -<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">break-if-!=</span> -<span id="L718" class="LineNr"> 718 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors -<span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">}</span> -<span id="L721" class="LineNr"> 721 </span> <span class="Comment"># otherwise print an error</span> -<span id="L722" class="LineNr"> 722 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L723" class="LineNr"> 723 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L724" class="LineNr"> 724 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L725" class="LineNr"> 725 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L726" class="LineNr"> 726 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L727" class="LineNr"> 727 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L728" class="LineNr"> 728 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L729" class="LineNr"> 729 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in color "</span> -<span id="L730" class="LineNr"> 730 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> fg -<span id="L731" class="LineNr"> 731 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> -<span id="L732" class="LineNr"> 732 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> color -<span id="L733" class="LineNr"> 733 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L734" class="LineNr"> 734 </span> <span class="Delimiter">}</span> -<span id="L735" class="LineNr"> 735 </span> <span class="Delimiter">}</span> -<span id="L736" class="LineNr"> 736 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L737" class="LineNr"> 737 </span> increment col-idx -<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">loop</span> -<span id="L739" class="LineNr"> 739 </span> <span class="Delimiter">}</span> -<span id="L740" class="LineNr"> 740 </span><span class="Delimiter">}</span> -<span id="L741" class="LineNr"> 741 </span> -<span id="L742" class="LineNr"> 742 </span><span class="Comment"># background color is visible even for spaces, so 'expected' behaves as an array of booleans.</span> -<span id="L743" class="LineNr"> 743 </span><span class="Comment"># non-space = given background must match; space = background must not match</span> -<span id="L744" class="LineNr"> 744 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L744'>check-screen-row-in-background-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L745" class="LineNr"> 745 </span> <a href='405screen.mu.html#L748'>check-screen-row-in-background-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, bg, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L746" class="LineNr"> 746 </span><span class="Delimiter">}</span> -<span id="L747" class="LineNr"> 747 </span> -<span id="L748" class="LineNr"> 748 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L748'>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="L749" class="LineNr"> 749 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L750" class="LineNr"> 750 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L751" class="LineNr"> 751 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L752" class="LineNr"> 752 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L754" class="LineNr"> 754 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L755" class="LineNr"> 755 </span> <span class="Delimiter">{</span> -<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L757" class="LineNr"> 757 </span> compare done?, <span class="Constant">0</span> -<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">break-if-!=</span> -<span id="L759" class="LineNr"> 759 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L763" class="LineNr"> 763 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L764" class="LineNr"> 764 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L765" class="LineNr"> 765 </span> <span class="Delimiter">{</span> -<span id="L766" class="LineNr"> 766 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L767" class="LineNr"> 767 </span> <span class="PreProc">break-if-!=</span> -<span id="L768" class="LineNr"> 768 </span> compare g, <span class="Constant">0</span> -<span id="L769" class="LineNr"> 769 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L770" class="LineNr"> 770 </span> <span class="Delimiter">}</span> -<span id="L771" class="LineNr"> 771 </span> <span class="Comment"># if expected-grapheme is space, a different color is ok</span> -<span id="L772" class="LineNr"> 772 </span> <span class="Delimiter">{</span> -<span id="L773" class="LineNr"> 773 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<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> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L343'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L776" class="LineNr"> 776 </span> compare color, bg -<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L778" class="LineNr"> 778 </span> <span class="Delimiter">}</span> -<span id="L779" class="LineNr"> 779 </span> <span class="Comment"># compare graphemes</span> -<span id="L780" class="LineNr"> 780 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L781" class="LineNr"> 781 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L782" class="LineNr"> 782 </span> compare g, expected-grapheme -<span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">{</span> -<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">break-if-!=</span> -<span id="L785" class="LineNr"> 785 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes -<span id="L787" class="LineNr"> 787 </span> <span class="Delimiter">}</span> -<span id="L788" class="LineNr"> 788 </span> <span class="Comment"># otherwise print an error</span> -<span id="L789" class="LineNr"> 789 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L790" class="LineNr"> 790 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L791" class="LineNr"> 791 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L792" class="LineNr"> 792 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L793" class="LineNr"> 793 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L794" class="LineNr"> 794 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L795" class="LineNr"> 795 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L796" class="LineNr"> 796 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L797" class="LineNr"> 797 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L798" class="LineNr"> 798 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L799" class="LineNr"> 799 </span> <span class="Delimiter">}</span> -<span id="L800" class="LineNr"> 800 </span> $check-screen-row-in-background-color-from:compare-colors: <span class="Delimiter">{</span> -<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L343'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L802" class="LineNr"> 802 </span> compare bg, color -<span id="L803" class="LineNr"> 803 </span> <span class="Delimiter">{</span> -<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">break-if-!=</span> -<span id="L805" class="LineNr"> 805 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-colors -<span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">}</span> -<span id="L808" class="LineNr"> 808 </span> <span class="Comment"># otherwise print an error</span> -<span id="L809" class="LineNr"> 809 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L810" class="LineNr"> 810 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L811" class="LineNr"> 811 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L812" class="LineNr"> 812 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L813" class="LineNr"> 813 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L814" class="LineNr"> 814 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L815" class="LineNr"> 815 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L816" class="LineNr"> 816 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in background color "</span> -<span id="L817" class="LineNr"> 817 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> bg -<span id="L818" class="LineNr"> 818 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> -<span id="L819" class="LineNr"> 819 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> color -<span id="L820" class="LineNr"> 820 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L821" class="LineNr"> 821 </span> <span class="Delimiter">}</span> -<span id="L822" class="LineNr"> 822 </span> <span class="Delimiter">}</span> -<span id="L823" class="LineNr"> 823 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L824" class="LineNr"> 824 </span> increment col-idx -<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">loop</span> -<span id="L826" class="LineNr"> 826 </span> <span class="Delimiter">}</span> -<span id="L827" class="LineNr"> 827 </span><span class="Delimiter">}</span> -<span id="L828" class="LineNr"> 828 </span> -<span id="L829" class="LineNr"> 829 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L829'>check-screen-row-in-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L830" class="LineNr"> 830 </span> <a href='405screen.mu.html#L833'>check-screen-row-in-bold-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L831" class="LineNr"> 831 </span><span class="Delimiter">}</span> -<span id="L832" class="LineNr"> 832 </span> -<span id="L833" class="LineNr"> 833 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L833'>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="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L835" class="LineNr"> 835 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L836" class="LineNr"> 836 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L839" class="LineNr"> 839 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">{</span> -<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L842" class="LineNr"> 842 </span> compare done?, <span class="Constant">0</span> -<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">break-if-!=</span> -<span id="L844" class="LineNr"> 844 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L848" class="LineNr"> 848 </span> $check-screen-row-in-bold-from:compare-cells: <span class="Delimiter">{</span> -<span id="L849" class="LineNr"> 849 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L850" class="LineNr"> 850 </span> <span class="Delimiter">{</span> -<span id="L851" class="LineNr"> 851 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">break-if-!=</span> -<span id="L853" class="LineNr"> 853 </span> compare g, <span class="Constant">0</span> -<span id="L854" class="LineNr"> 854 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-bold-from:compare-cells -<span id="L855" class="LineNr"> 855 </span> <span class="Delimiter">}</span> -<span id="L856" class="LineNr"> 856 </span> <span class="Comment"># if expected-grapheme is space, non-bold is ok</span> -<span id="L857" class="LineNr"> 857 </span> <span class="Delimiter">{</span> -<span id="L858" class="LineNr"> 858 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">break-if-!=</span> -<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L360'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L861" class="LineNr"> 861 </span> compare bold?, <span class="Constant">1</span> -<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-bold-from:compare-cells -<span id="L863" class="LineNr"> 863 </span> <span class="Delimiter">}</span> -<span id="L864" class="LineNr"> 864 </span> <span class="Comment"># compare graphemes</span> -<span id="L865" class="LineNr"> 865 </span> $check-screen-row-in-bold-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L866" class="LineNr"> 866 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L867" class="LineNr"> 867 </span> compare g, expected-grapheme -<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> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-graphemes -<span id="L872" class="LineNr"> 872 </span> <span class="Delimiter">}</span> -<span id="L873" class="LineNr"> 873 </span> <span class="Comment"># otherwise print an error</span> -<span id="L874" class="LineNr"> 874 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L875" class="LineNr"> 875 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L876" class="LineNr"> 876 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L877" class="LineNr"> 877 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L878" class="LineNr"> 878 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L879" class="LineNr"> 879 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L880" class="LineNr"> 880 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L881" class="LineNr"> 881 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L882" class="LineNr"> 882 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L883" class="LineNr"> 883 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L884" class="LineNr"> 884 </span> <span class="Delimiter">}</span> -<span id="L885" class="LineNr"> 885 </span> $check-screen-row-in-bold-from:compare-bold: <span class="Delimiter">{</span> -<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L360'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L887" class="LineNr"> 887 </span> compare bold?, <span class="Constant">1</span> -<span id="L888" class="LineNr"> 888 </span> <span class="Delimiter">{</span> -<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">break-if-!=</span> -<span id="L890" class="LineNr"> 890 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-bold -<span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">}</span> -<span id="L893" class="LineNr"> 893 </span> <span class="Comment"># otherwise print an error</span> -<span id="L894" class="LineNr"> 894 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L895" class="LineNr"> 895 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L896" class="LineNr"> 896 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L897" class="LineNr"> 897 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L898" class="LineNr"> 898 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L899" class="LineNr"> 899 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L900" class="LineNr"> 900 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L901" class="LineNr"> 901 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in bold\n"</span> -<span id="L902" class="LineNr"> 902 </span> <span class="Delimiter">}</span> -<span id="L903" class="LineNr"> 903 </span> <span class="Delimiter">}</span> -<span id="L904" class="LineNr"> 904 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L905" class="LineNr"> 905 </span> increment col-idx -<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">loop</span> -<span id="L907" class="LineNr"> 907 </span> <span class="Delimiter">}</span> -<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='405screen.mu.html#L910'>check-screen-row-in-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L911" class="LineNr"> 911 </span> <a href='405screen.mu.html#L914'>check-screen-row-in-underline-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L912" class="LineNr"> 912 </span><span class="Delimiter">}</span> -<span id="L913" class="LineNr"> 913 </span> -<span id="L914" class="LineNr"> 914 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L914'>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="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L916" class="LineNr"> 916 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L917" class="LineNr"> 917 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L918" class="LineNr"> 918 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L920" class="LineNr"> 920 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L921" class="LineNr"> 921 </span> <span class="Delimiter">{</span> -<span id="L922" class="LineNr"> 922 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L923" class="LineNr"> 923 </span> compare done?, <span class="Constant">0</span> -<span id="L924" class="LineNr"> 924 </span> <span class="PreProc">break-if-!=</span> -<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L927" class="LineNr"> 927 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L928" class="LineNr"> 928 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L929" class="LineNr"> 929 </span> $check-screen-row-in-underline-from:compare-cells: <span class="Delimiter">{</span> -<span id="L930" class="LineNr"> 930 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L931" class="LineNr"> 931 </span> <span class="Delimiter">{</span> -<span id="L932" class="LineNr"> 932 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L933" class="LineNr"> 933 </span> <span class="PreProc">break-if-!=</span> -<span id="L934" class="LineNr"> 934 </span> compare g, <span class="Constant">0</span> -<span id="L935" class="LineNr"> 935 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-underline-from:compare-cells -<span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">}</span> -<span id="L937" class="LineNr"> 937 </span> <span class="Comment"># if expected-grapheme is space, non-underline is ok</span> -<span id="L938" class="LineNr"> 938 </span> <span class="Delimiter">{</span> -<span id="L939" class="LineNr"> 939 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L940" class="LineNr"> 940 </span> <span class="PreProc">break-if-!=</span> -<span id="L941" class="LineNr"> 941 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L377'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L942" class="LineNr"> 942 </span> compare underline?, <span class="Constant">1</span> -<span id="L943" class="LineNr"> 943 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-underline-from:compare-cells -<span id="L944" class="LineNr"> 944 </span> <span class="Delimiter">}</span> -<span id="L945" class="LineNr"> 945 </span> <span class="Comment"># compare graphemes</span> -<span id="L946" class="LineNr"> 946 </span> $check-screen-row-in-underline-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L947" class="LineNr"> 947 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L948" class="LineNr"> 948 </span> compare g, expected-grapheme -<span id="L949" class="LineNr"> 949 </span> <span class="Delimiter">{</span> -<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">break-if-!=</span> -<span id="L951" class="LineNr"> 951 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-graphemes -<span id="L953" class="LineNr"> 953 </span> <span class="Delimiter">}</span> -<span id="L954" class="LineNr"> 954 </span> <span class="Comment"># otherwise print an error</span> -<span id="L955" class="LineNr"> 955 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L956" class="LineNr"> 956 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L957" class="LineNr"> 957 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L958" class="LineNr"> 958 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L959" class="LineNr"> 959 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L960" class="LineNr"> 960 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L961" class="LineNr"> 961 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L962" class="LineNr"> 962 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L963" class="LineNr"> 963 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L964" class="LineNr"> 964 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L965" class="LineNr"> 965 </span> <span class="Delimiter">}</span> -<span id="L966" class="LineNr"> 966 </span> $check-screen-row-in-underline-from:compare-underline: <span class="Delimiter">{</span> -<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L377'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L968" class="LineNr"> 968 </span> compare underline?, <span class="Constant">1</span> -<span id="L969" class="LineNr"> 969 </span> <span class="Delimiter">{</span> -<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">break-if-!=</span> -<span id="L971" class="LineNr"> 971 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-underline -<span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">}</span> -<span id="L974" class="LineNr"> 974 </span> <span class="Comment"># otherwise print an error</span> -<span id="L975" class="LineNr"> 975 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L976" class="LineNr"> 976 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L977" class="LineNr"> 977 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L978" class="LineNr"> 978 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L979" class="LineNr"> 979 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L980" class="LineNr"> 980 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L981" class="LineNr"> 981 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L982" class="LineNr"> 982 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be underlined\n"</span> -<span id="L983" class="LineNr"> 983 </span> <span class="Delimiter">}</span> -<span id="L984" class="LineNr"> 984 </span> <span class="Delimiter">}</span> -<span id="L985" class="LineNr"> 985 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L986" class="LineNr"> 986 </span> increment col-idx -<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">loop</span> -<span id="L988" class="LineNr"> 988 </span> <span class="Delimiter">}</span> -<span id="L989" class="LineNr"> 989 </span><span class="Delimiter">}</span> -<span id="L990" class="LineNr"> 990 </span> -<span id="L991" class="LineNr"> 991 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L991'>check-screen-row-in-reverse</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L992" class="LineNr"> 992 </span> <a href='405screen.mu.html#L995'>check-screen-row-in-reverse-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L993" class="LineNr"> 993 </span><span class="Delimiter">}</span> -<span id="L994" class="LineNr"> 994 </span> -<span id="L995" class="LineNr"> 995 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L995'>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="L996" class="LineNr"> 996 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L997" class="LineNr"> 997 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L998" class="LineNr"> 998 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L999" class="LineNr"> 999 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L1000" class="LineNr">1000 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L1001" class="LineNr">1001 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L1002" class="LineNr">1002 </span> <span class="Delimiter">{</span> -<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L1004" class="LineNr">1004 </span> compare done?, <span class="Constant">0</span> -<span id="L1005" class="LineNr">1005 </span> <span class="PreProc">break-if-!=</span> -<span id="L1006" class="LineNr">1006 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L1008" class="LineNr">1008 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L1009" class="LineNr">1009 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L1010" class="LineNr">1010 </span> $check-screen-row-in-reverse-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1011" class="LineNr">1011 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">{</span> -<span id="L1013" class="LineNr">1013 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1014" class="LineNr">1014 </span> <span class="PreProc">break-if-!=</span> -<span id="L1015" class="LineNr">1015 </span> compare g, <span class="Constant">0</span> -<span id="L1016" class="LineNr">1016 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-reverse-from:compare-cells -<span id="L1017" class="LineNr">1017 </span> <span class="Delimiter">}</span> -<span id="L1018" class="LineNr">1018 </span> <span class="Comment"># if expected-grapheme is space, non-reverse is ok</span> -<span id="L1019" class="LineNr">1019 </span> <span class="Delimiter">{</span> -<span id="L1020" class="LineNr">1020 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">break-if-!=</span> -<span id="L1022" class="LineNr">1022 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L394'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1023" class="LineNr">1023 </span> compare reverse?, <span class="Constant">1</span> -<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-reverse-from:compare-cells -<span id="L1025" class="LineNr">1025 </span> <span class="Delimiter">}</span> -<span id="L1026" class="LineNr">1026 </span> <span class="Comment"># compare graphemes</span> -<span id="L1027" class="LineNr">1027 </span> $check-screen-row-in-reverse-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1028" class="LineNr">1028 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L1029" class="LineNr">1029 </span> compare g, expected-grapheme -<span id="L1030" class="LineNr">1030 </span> <span class="Delimiter">{</span> -<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">break-if-!=</span> -<span id="L1032" class="LineNr">1032 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1033" class="LineNr">1033 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-graphemes -<span id="L1034" class="LineNr">1034 </span> <span class="Delimiter">}</span> -<span id="L1035" class="LineNr">1035 </span> <span class="Comment"># otherwise print an error</span> -<span id="L1036" class="LineNr">1036 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1037" class="LineNr">1037 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1038" class="LineNr">1038 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1039" class="LineNr">1039 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1040" class="LineNr">1040 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1041" class="LineNr">1041 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1042" class="LineNr">1042 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1043" class="LineNr">1043 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1044" class="LineNr">1044 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L1045" class="LineNr">1045 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L1046" class="LineNr">1046 </span> <span class="Delimiter">}</span> -<span id="L1047" class="LineNr">1047 </span> $check-screen-row-in-reverse-from:compare-reverse: <span class="Delimiter">{</span> -<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L394'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1049" class="LineNr">1049 </span> compare reverse?, <span class="Constant">1</span> -<span id="L1050" class="LineNr">1050 </span> <span class="Delimiter">{</span> -<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-!=</span> -<span id="L1052" class="LineNr">1052 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1053" class="LineNr">1053 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-reverse -<span id="L1054" class="LineNr">1054 </span> <span class="Delimiter">}</span> -<span id="L1055" class="LineNr">1055 </span> <span class="Comment"># otherwise print an error</span> -<span id="L1056" class="LineNr">1056 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1057" class="LineNr">1057 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1058" class="LineNr">1058 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1059" class="LineNr">1059 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1060" class="LineNr">1060 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1061" class="LineNr">1061 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1062" class="LineNr">1062 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1063" class="LineNr">1063 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in reverse-video\n"</span> -<span id="L1064" class="LineNr">1064 </span> <span class="Delimiter">}</span> -<span id="L1065" class="LineNr">1065 </span> <span class="Delimiter">}</span> -<span id="L1066" class="LineNr">1066 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L1067" class="LineNr">1067 </span> increment col-idx -<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">loop</span> -<span id="L1069" class="LineNr">1069 </span> <span class="Delimiter">}</span> -<span id="L1070" class="LineNr">1070 </span><span class="Delimiter">}</span> -<span id="L1071" class="LineNr">1071 </span> -<span id="L1072" class="LineNr">1072 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1072'>check-screen-row-in-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L1073" class="LineNr">1073 </span> <a href='405screen.mu.html#L1076'>check-screen-row-in-blinking-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L1074" class="LineNr">1074 </span><span class="Delimiter">}</span> -<span id="L1075" class="LineNr">1075 </span> -<span id="L1076" class="LineNr">1076 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1076'>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="L1077" class="LineNr">1077 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L1078" class="LineNr">1078 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L1079" class="LineNr">1079 </span> <span class="Comment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L1080" class="LineNr">1080 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L1081" class="LineNr">1081 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L1082" class="LineNr">1082 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L1083" class="LineNr">1083 </span> <span class="Delimiter">{</span> -<span id="L1084" class="LineNr">1084 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L1085" class="LineNr">1085 </span> compare done?, <span class="Constant">0</span> -<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">break-if-!=</span> -<span id="L1087" class="LineNr">1087 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L1089" class="LineNr">1089 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr -<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L1091" class="LineNr">1091 </span> $check-screen-row-in-blinking-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1092" class="LineNr">1092 </span> <span class="Comment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L1093" class="LineNr">1093 </span> <span class="Delimiter">{</span> -<span id="L1094" class="LineNr">1094 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1095" class="LineNr">1095 </span> <span class="PreProc">break-if-!=</span> -<span id="L1096" class="LineNr">1096 </span> compare g, <span class="Constant">0</span> -<span id="L1097" class="LineNr">1097 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-blinking-from:compare-cells -<span id="L1098" class="LineNr">1098 </span> <span class="Delimiter">}</span> -<span id="L1099" class="LineNr">1099 </span> <span class="Comment"># if expected-grapheme is space, non-blinking is ok</span> -<span id="L1100" class="LineNr">1100 </span> <span class="Delimiter">{</span> -<span id="L1101" class="LineNr">1101 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">break-if-!=</span> -<span id="L1103" class="LineNr">1103 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L411'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1104" class="LineNr">1104 </span> compare blinking?, <span class="Constant">1</span> -<span id="L1105" class="LineNr">1105 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-blinking-from:compare-cells -<span id="L1106" class="LineNr">1106 </span> <span class="Delimiter">}</span> -<span id="L1107" class="LineNr">1107 </span> <span class="Comment"># compare graphemes</span> -<span id="L1108" class="LineNr">1108 </span> $check-screen-row-in-blinking-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1109" class="LineNr">1109 </span> <span class="Comment"># if (g == expected-grapheme) print "."</span> -<span id="L1110" class="LineNr">1110 </span> compare g, expected-grapheme -<span id="L1111" class="LineNr">1111 </span> <span class="Delimiter">{</span> -<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">break-if-!=</span> -<span id="L1113" class="LineNr">1113 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-graphemes -<span id="L1115" class="LineNr">1115 </span> <span class="Delimiter">}</span> -<span id="L1116" class="LineNr">1116 </span> <span class="Comment"># otherwise print an error</span> -<span id="L1117" class="LineNr">1117 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1118" class="LineNr">1118 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1119" class="LineNr">1119 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1120" class="LineNr">1120 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1121" class="LineNr">1121 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1122" class="LineNr">1122 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1123" class="LineNr">1123 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1124" class="LineNr">1124 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1125" class="LineNr">1125 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> g -<span id="L1126" class="LineNr">1126 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L1127" class="LineNr">1127 </span> <span class="Delimiter">}</span> -<span id="L1128" class="LineNr">1128 </span> $check-screen-row-in-blinking-from:compare-blinking: <span class="Delimiter">{</span> -<span id="L1129" class="LineNr">1129 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L411'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1130" class="LineNr">1130 </span> compare blinking?, <span class="Constant">1</span> -<span id="L1131" class="LineNr">1131 </span> <span class="Delimiter">{</span> -<span id="L1132" class="LineNr">1132 </span> <span class="PreProc">break-if-!=</span> -<span id="L1133" class="LineNr">1133 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-blinking -<span id="L1135" class="LineNr">1135 </span> <span class="Delimiter">}</span> -<span id="L1136" class="LineNr">1136 </span> <span class="Comment"># otherwise print an error</span> -<span id="L1137" class="LineNr">1137 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1138" class="LineNr">1138 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1139" class="LineNr">1139 </span> <a href='304screen.subx.html#L148'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1140" class="LineNr">1140 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1141" class="LineNr">1141 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1142" class="LineNr">1142 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1143" class="LineNr">1143 </span> <a href='304screen.subx.html#L213'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1144" class="LineNr">1144 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be blinking\n"</span> -<span id="L1145" class="LineNr">1145 </span> <span class="Delimiter">}</span> -<span id="L1146" class="LineNr">1146 </span> <span class="Delimiter">}</span> -<span id="L1147" class="LineNr">1147 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L1148" class="LineNr">1148 </span> increment col-idx -<span id="L1149" class="LineNr">1149 </span> -<span id="L1150" class="LineNr">1150 </span> <span class="PreProc">loop</span> -<span id="L1151" class="LineNr">1151 </span> <span class="Delimiter">}</span> -<span id="L1152" class="LineNr">1152 </span><span class="Delimiter">}</span> -<span id="L1153" class="LineNr">1153 </span> -<span id="L1154" class="LineNr">1154 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1154'>test-print-single-grapheme</a></span> <span class="Delimiter">{</span> -<span id="L1155" class="LineNr">1155 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1157" class="LineNr">1157 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1159" class="LineNr">1159 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1160" class="LineNr">1160 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-grapheme"</span> <span class="Comment"># top-left corner of the screen</span> -<span id="L1161" class="LineNr">1161 </span><span class="Delimiter">}</span> -<span id="L1162" class="LineNr">1162 </span> -<span id="L1163" class="LineNr">1163 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1163'>test-print-multiple-graphemes</a></span> <span class="Delimiter">{</span> -<span id="L1164" class="LineNr">1164 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1165" class="LineNr">1165 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1166" class="LineNr">1166 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1167" class="LineNr">1167 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span> -<span id="L1168" class="LineNr">1168 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-graphemes"</span> -<span id="L1169" class="LineNr">1169 </span><span class="Delimiter">}</span> -<span id="L1170" class="LineNr">1170 </span> -<span id="L1171" class="LineNr">1171 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1171'>test-move-cursor</a></span> <span class="Delimiter">{</span> -<span id="L1172" class="LineNr">1172 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1173" class="LineNr">1173 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1174" class="LineNr">1174 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1175" class="LineNr">1175 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1177" class="LineNr">1177 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1178" class="LineNr">1178 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor"</span> <span class="Comment"># top row</span> -<span id="L1179" class="LineNr">1179 </span><span class="Delimiter">}</span> -<span id="L1180" class="LineNr">1180 </span> -<span id="L1181" class="LineNr">1181 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1181'>test-move-cursor-zeroes</a></span> <span class="Delimiter">{</span> -<span id="L1182" class="LineNr">1182 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1183" class="LineNr">1183 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1184" class="LineNr">1184 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1185" class="LineNr">1185 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1187" class="LineNr">1187 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1188" class="LineNr">1188 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zeroes"</span> <span class="Comment"># top-left corner of the screen</span> -<span id="L1189" class="LineNr">1189 </span><span class="Delimiter">}</span> -<span id="L1190" class="LineNr">1190 </span> -<span id="L1191" class="LineNr">1191 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1191'>test-move-cursor-zero-row</a></span> <span class="Delimiter">{</span> -<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1194" class="LineNr">1194 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1195" class="LineNr">1195 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">2</span> -<span id="L1196" class="LineNr">1196 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1197" class="LineNr">1197 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1198" class="LineNr">1198 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-zero-row"</span> <span class="Comment"># top row</span> -<span id="L1199" class="LineNr">1199 </span><span class="Delimiter">}</span> -<span id="L1200" class="LineNr">1200 </span> -<span id="L1201" class="LineNr">1201 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1201'>test-move-cursor-zero-column</a></span> <span class="Delimiter">{</span> -<span id="L1202" class="LineNr">1202 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1203" class="LineNr">1203 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1204" class="LineNr">1204 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1205" class="LineNr">1205 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">0</span> -<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1207" class="LineNr">1207 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1208" class="LineNr">1208 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zero-column"</span> -<span id="L1209" class="LineNr">1209 </span><span class="Delimiter">}</span> -<span id="L1210" class="LineNr">1210 </span> -<span id="L1211" class="LineNr">1211 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1211'>test-move-cursor-negative-row</a></span> <span class="Delimiter">{</span> -<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1214" class="LineNr">1214 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> -<span id="L1215" class="LineNr">1215 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">-1</span>, <span class="Constant">2</span> <span class="Comment"># row -1</span> -<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1217" class="LineNr">1217 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1218" class="LineNr">1218 </span> <span class="Comment"># no move</span> -<span id="L1219" class="LineNr">1219 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-row"</span> -<span id="L1220" class="LineNr">1220 </span><span class="Delimiter">}</span> -<span id="L1221" class="LineNr">1221 </span> -<span id="L1222" class="LineNr">1222 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1222'>test-move-cursor-negative-column</a></span> <span class="Delimiter">{</span> -<span id="L1223" class="LineNr">1223 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1224" class="LineNr">1224 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1225" class="LineNr">1225 </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="L1226" class="LineNr">1226 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">-1</span> <span class="Comment"># column -1</span> -<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1228" class="LineNr">1228 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1229" class="LineNr">1229 </span> <span class="Comment"># no move</span> -<span id="L1230" class="LineNr">1230 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-column"</span> -<span id="L1231" class="LineNr">1231 </span><span class="Delimiter">}</span> -<span id="L1232" class="LineNr">1232 </span> -<span id="L1233" class="LineNr">1233 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1233'>test-move-cursor-column-too-large</a></span> <span class="Delimiter">{</span> -<span id="L1234" class="LineNr">1234 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1235" class="LineNr">1235 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1236" class="LineNr">1236 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="Comment"># 5 rows, 3 columns</span> -<span id="L1237" class="LineNr">1237 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> <span class="Comment"># row 1, column 4 (overflow)</span> -<span id="L1238" class="LineNr">1238 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1239" class="LineNr">1239 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1240" class="LineNr">1240 </span> <span class="Comment"># top row is empty</span> -<span id="L1241" class="LineNr">1241 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> -<span id="L1242" class="LineNr">1242 </span> <span class="Comment"># character shows up on next row</span> -<span id="L1243" class="LineNr">1243 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> -<span id="L1244" class="LineNr">1244 </span><span class="Delimiter">}</span> -<span id="L1245" class="LineNr">1245 </span> -<span id="L1246" class="LineNr">1246 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1246'>test-move-cursor-column-too-large-saturates</a></span> <span class="Delimiter">{</span> -<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1248" class="LineNr">1248 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</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 class="Comment"># 5 rows, 3 columns</span> -<span id="L1250" class="LineNr">1250 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">6</span> <span class="Comment"># row 1, column 6 (overflow)</span> -<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1252" class="LineNr">1252 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1253" class="LineNr">1253 </span> <span class="Comment"># top row is empty</span> -<span id="L1254" class="LineNr">1254 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="Comment"># top-left corner of the screen</span> -<span id="L1255" class="LineNr">1255 </span> <span class="Comment"># character shows up at the start of next row</span> -<span id="L1256" class="LineNr">1256 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="Comment"># top-left corner of the screen</span> -<span id="L1257" class="LineNr">1257 </span><span class="Delimiter">}</span> -<span id="L1258" class="LineNr">1258 </span> -<span id="L1259" class="LineNr">1259 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1259'>test-move-cursor-row-too-large</a></span> <span class="Delimiter">{</span> -<span id="L1260" class="LineNr">1260 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1261" class="LineNr">1261 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1262" class="LineNr">1262 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="Comment"># 5 rows</span> -<span id="L1263" class="LineNr">1263 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>, <span class="Constant">2</span> <span class="Comment"># row 6 (overflow)</span> -<span id="L1264" class="LineNr">1264 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1265" class="LineNr">1265 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1266" class="LineNr">1266 </span> <span class="Comment"># bottom row shows the character</span> -<span id="L1267" class="LineNr">1267 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large"</span> -<span id="L1268" class="LineNr">1268 </span><span class="Delimiter">}</span> -<span id="L1269" class="LineNr">1269 </span> -<span id="L1270" class="LineNr">1270 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1270'>test-move-cursor-row-too-large-saturates</a></span> <span class="Delimiter">{</span> -<span id="L1271" class="LineNr">1271 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</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>, <span class="Constant">3</span> <span class="Comment"># 5 rows</span> -<span id="L1274" class="LineNr">1274 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">9</span>, <span class="Constant">2</span> <span class="Comment"># row 9 (overflow)</span> -<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1276" class="LineNr">1276 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1277" class="LineNr">1277 </span> <span class="Comment"># bottom row shows the character</span> -<span id="L1278" class="LineNr">1278 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large-saturates"</span> -<span id="L1279" class="LineNr">1279 </span><span class="Delimiter">}</span> -<span id="L1280" class="LineNr">1280 </span> -<span id="L1281" class="LineNr">1281 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1281'>test-check-screen-row-from</a></span> <span class="Delimiter">{</span> -<span id="L1282" class="LineNr">1282 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1283" class="LineNr">1283 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1284" class="LineNr">1284 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1285" class="LineNr">1285 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1286" class="LineNr">1286 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1287" class="LineNr">1287 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1288" class="LineNr">1288 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1281'>test-check-screen-row-from</a>/baseline"</span> -<span id="L1289" class="LineNr">1289 </span> <a href='405screen.mu.html#L607'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-screen-row-from"</span> -<span id="L1290" class="LineNr">1290 </span><span class="Delimiter">}</span> -<span id="L1291" class="LineNr">1291 </span> -<span id="L1292" class="LineNr">1292 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1292'>test-print-string-overflows-to-next-row</a></span> <span class="Delimiter">{</span> -<span id="L1293" class="LineNr">1293 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1294" class="LineNr">1294 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1295" class="LineNr">1295 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> <span class="Comment"># 5 rows, 4 columns</span> -<span id="L1296" class="LineNr">1296 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"abcdefg"</span> -<span id="L1297" class="LineNr">1297 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> -<span id="L1298" class="LineNr">1298 </span> <a href='405screen.mu.html#L603'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"efg"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> -<span id="L1299" class="LineNr">1299 </span><span class="Delimiter">}</span> -<span id="L1300" class="LineNr">1300 </span> -<span id="L1301" class="LineNr">1301 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1301'>test-check-screen-scrolls-on-overflow</a></span> <span class="Delimiter">{</span> -<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1304" class="LineNr">1304 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1305" class="LineNr">1305 </span> <span class="Comment"># single character starting at bottom right</span> -<span id="L1306" class="LineNr">1306 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1308" class="LineNr">1308 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1309" class="LineNr">1309 </span> <a href='405screen.mu.html#L607'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1301'>test-check-screen-scrolls-on-overflow</a>/baseline"</span> <span class="Comment"># bottom-right corner of the screen</span> -<span id="L1310" class="LineNr">1310 </span> <span class="Comment"># multiple characters starting at bottom right</span> -<span id="L1311" class="LineNr">1311 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1312" class="LineNr">1312 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"ab"</span> -<span id="L1313" class="LineNr">1313 </span> <span class="Comment"># screen scrolled up one row</span> -<span id="L1314" class="LineNr">1314 </span><span class="CommentedCode">#? check-screen-row screen, 1, " ", "F - test-check-screen-scrolls-on-overflow/x1"</span> -<span id="L1315" class="LineNr">1315 </span><span class="CommentedCode">#? check-screen-row screen, 2, " ", "F - test-check-screen-scrolls-on-overflow/x2"</span> -<span id="L1316" class="LineNr">1316 </span><span class="CommentedCode">#? check-screen-row screen, 3, " ", "F - test-check-screen-scrolls-on-overflow/x3"</span> -<span id="L1317" class="LineNr">1317 </span><span class="CommentedCode">#? check-screen-row screen, 4, " a", "F - test-check-screen-scrolls-on-overflow/x4"</span> -<span id="L1318" class="LineNr">1318 </span><span class="CommentedCode">#? check-screen-row screen, 5, "b ", "F - test-check-screen-scrolls-on-overflow/x5"</span> -<span id="L1319" class="LineNr">1319 </span> <a href='405screen.mu.html#L607'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1301'>test-check-screen-scrolls-on-overflow</a>/1"</span> -<span id="L1320" class="LineNr">1320 </span> <a href='405screen.mu.html#L607'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">"b"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1301'>test-check-screen-scrolls-on-overflow</a>/2"</span> -<span id="L1321" class="LineNr">1321 </span><span class="Delimiter">}</span> -<span id="L1322" class="LineNr">1322 </span> -<span id="L1323" class="LineNr">1323 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1323'>test-check-screen-color</a></span> <span class="Delimiter">{</span> -<span id="L1324" class="LineNr">1324 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1325" class="LineNr">1325 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1326" class="LineNr">1326 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1328" class="LineNr">1328 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1329" class="LineNr">1329 </span> <a href='405screen.mu.html#L464'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">0</span> <span class="Comment"># foreground=1</span> -<span id="L1330" class="LineNr">1330 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> -<span id="L1331" class="LineNr">1331 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L464'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="Comment"># back to default</span> -<span id="L1333" class="LineNr">1333 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> -<span id="L1334" class="LineNr">1334 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1335" class="LineNr">1335 </span> <a href='405screen.mu.html#L657'>check-screen-row-in-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-color"</span> -<span id="L1336" class="LineNr">1336 </span><span class="Delimiter">}</span> -<span id="L1337" class="LineNr">1337 </span> -<span id="L1338" class="LineNr">1338 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1338'>test-check-screen-background-color</a></span> <span class="Delimiter">{</span> -<span id="L1339" class="LineNr">1339 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1340" class="LineNr">1340 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1341" class="LineNr">1341 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1342" class="LineNr">1342 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1343" class="LineNr">1343 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1344" class="LineNr">1344 </span> <a href='405screen.mu.html#L464'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="Comment"># background=1</span> -<span id="L1345" class="LineNr">1345 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> -<span id="L1346" class="LineNr">1346 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1347" class="LineNr">1347 </span> <a href='405screen.mu.html#L464'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">7</span> <span class="Comment"># back to default</span> -<span id="L1348" class="LineNr">1348 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> -<span id="L1349" class="LineNr">1349 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1350" class="LineNr">1350 </span> <a href='405screen.mu.html#L744'>check-screen-row-in-background-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-background-color"</span> -<span id="L1351" class="LineNr">1351 </span><span class="Delimiter">}</span> -<span id="L1352" class="LineNr">1352 </span> -<span id="L1353" class="LineNr">1353 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1353'>test-check-screen-bold</a></span> <span class="Delimiter">{</span> -<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1355" class="LineNr">1355 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1356" class="LineNr">1356 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1357" class="LineNr">1357 </span> <a href='405screen.mu.html#L487'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1359" class="LineNr">1359 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1360" class="LineNr">1360 </span> <a href='405screen.mu.html#L442'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1361" class="LineNr">1361 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L688" class="LineNr"> 688 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes +<span id="L690" class="LineNr"> 690 </span> <span class="Delimiter">}</span> +<span id="L691" class="LineNr"> 691 </span> <span class="muComment"># otherwise print an error</span> +<span id="L692" class="LineNr"> 692 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L693" class="LineNr"> 693 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L694" class="LineNr"> 694 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L695" class="LineNr"> 695 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L696" class="LineNr"> 696 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L697" class="LineNr"> 697 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L698" class="LineNr"> 698 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L699" class="LineNr"> 699 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L700" class="LineNr"> 700 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L701" class="LineNr"> 701 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L702" class="LineNr"> 702 </span> <span class="Delimiter">}</span> +<span id="L703" class="LineNr"> 703 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L704" class="LineNr"> 704 </span> increment col-idx +<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">loop</span> +<span id="L706" class="LineNr"> 706 </span> <span class="Delimiter">}</span> +<span id="L707" class="LineNr"> 707 </span><span class="Delimiter">}</span> +<span id="L708" class="LineNr"> 708 </span> +<span id="L709" class="LineNr"> 709 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> +<span id="L710" class="LineNr"> 710 </span> +<span id="L711" class="LineNr"> 711 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L711'>check-screen-row-in-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L712" class="LineNr"> 712 </span> <a href='405screen.mu.html#L715'>check-screen-row-in-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, fg, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L713" class="LineNr"> 713 </span><span class="Delimiter">}</span> +<span id="L714" class="LineNr"> 714 </span> +<span id="L715" class="LineNr"> 715 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L715'>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="L716" class="LineNr"> 716 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L721" class="LineNr"> 721 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L722" class="LineNr"> 722 </span> <span class="Delimiter">{</span> +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L724" class="LineNr"> 724 </span> compare done?, <span class="Constant">0</span> +<span id="L725" class="LineNr"> 725 </span> <span class="PreProc">break-if-!=</span> +<span id="L726" class="LineNr"> 726 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L728" class="LineNr"> 728 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L729" class="LineNr"> 729 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L730" class="LineNr"> 730 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L731" class="LineNr"> 731 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L732" class="LineNr"> 732 </span> <span class="Delimiter">{</span> +<span id="L733" class="LineNr"> 733 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">break-if-!=</span> +<span id="L735" class="LineNr"> 735 </span> compare g, <span class="Constant">0</span> +<span id="L736" class="LineNr"> 736 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells +<span id="L737" class="LineNr"> 737 </span> <span class="Delimiter">}</span> +<span id="L738" class="LineNr"> 738 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L739" class="LineNr"> 739 </span> <span class="Delimiter">{</span> +<span id="L740" class="LineNr"> 740 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">break-if-!=</span> +<span id="L742" class="LineNr"> 742 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L326'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L743" class="LineNr"> 743 </span> compare color, fg +<span id="L744" class="LineNr"> 744 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells +<span id="L745" class="LineNr"> 745 </span> <span class="Delimiter">}</span> +<span id="L746" class="LineNr"> 746 </span> <span class="muComment"># compare graphemes</span> +<span id="L747" class="LineNr"> 747 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L748" class="LineNr"> 748 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L749" class="LineNr"> 749 </span> compare g, expected-grapheme +<span id="L750" class="LineNr"> 750 </span> <span class="Delimiter">{</span> +<span id="L751" class="LineNr"> 751 </span> <span class="PreProc">break-if-!=</span> +<span id="L752" class="LineNr"> 752 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes +<span id="L754" class="LineNr"> 754 </span> <span class="Delimiter">}</span> +<span id="L755" class="LineNr"> 755 </span> <span class="muComment"># otherwise print an error</span> +<span id="L756" class="LineNr"> 756 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L757" class="LineNr"> 757 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L758" class="LineNr"> 758 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L759" class="LineNr"> 759 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L760" class="LineNr"> 760 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L761" class="LineNr"> 761 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L762" class="LineNr"> 762 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L763" class="LineNr"> 763 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L764" class="LineNr"> 764 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L765" class="LineNr"> 765 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L766" class="LineNr"> 766 </span> <span class="Delimiter">}</span> +<span id="L767" class="LineNr"> 767 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> +<span id="L768" class="LineNr"> 768 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L326'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L769" class="LineNr"> 769 </span> compare fg, color +<span id="L770" class="LineNr"> 770 </span> <span class="Delimiter">{</span> +<span id="L771" class="LineNr"> 771 </span> <span class="PreProc">break-if-!=</span> +<span id="L772" class="LineNr"> 772 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L773" class="LineNr"> 773 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors +<span id="L774" class="LineNr"> 774 </span> <span class="Delimiter">}</span> +<span id="L775" class="LineNr"> 775 </span> <span class="muComment"># otherwise print an error</span> +<span id="L776" class="LineNr"> 776 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L777" class="LineNr"> 777 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L778" class="LineNr"> 778 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L779" class="LineNr"> 779 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L780" class="LineNr"> 780 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L781" class="LineNr"> 781 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L782" class="LineNr"> 782 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L783" class="LineNr"> 783 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in color "</span> +<span id="L784" class="LineNr"> 784 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> fg +<span id="L785" class="LineNr"> 785 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> +<span id="L786" class="LineNr"> 786 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color +<span id="L787" class="LineNr"> 787 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L788" class="LineNr"> 788 </span> <span class="Delimiter">}</span> +<span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">}</span> +<span id="L790" class="LineNr"> 790 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L791" class="LineNr"> 791 </span> increment col-idx +<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">loop</span> +<span id="L793" class="LineNr"> 793 </span> <span class="Delimiter">}</span> +<span id="L794" class="LineNr"> 794 </span><span class="Delimiter">}</span> +<span id="L795" class="LineNr"> 795 </span> +<span id="L796" class="LineNr"> 796 </span><span class="muComment"># background color is visible even for spaces, so 'expected' behaves as an array of booleans.</span> +<span id="L797" class="LineNr"> 797 </span><span class="muComment"># non-space = given background must match; space = background must not match</span> +<span id="L798" class="LineNr"> 798 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L798'>check-screen-row-in-background-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L799" class="LineNr"> 799 </span> <a href='405screen.mu.html#L802'>check-screen-row-in-background-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, bg, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L800" class="LineNr"> 800 </span><span class="Delimiter">}</span> +<span id="L801" class="LineNr"> 801 </span> +<span id="L802" class="LineNr"> 802 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L802'>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="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L805" class="LineNr"> 805 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L808" class="LineNr"> 808 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">{</span> +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L811" class="LineNr"> 811 </span> compare done?, <span class="Constant">0</span> +<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/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L815" class="LineNr"> 815 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L816" class="LineNr"> 816 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L817" class="LineNr"> 817 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L818" class="LineNr"> 818 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L819" class="LineNr"> 819 </span> <span class="Delimiter">{</span> +<span id="L820" class="LineNr"> 820 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">break-if-!=</span> +<span id="L822" class="LineNr"> 822 </span> compare g, <span class="Constant">0</span> +<span id="L823" class="LineNr"> 823 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L824" class="LineNr"> 824 </span> <span class="Delimiter">}</span> +<span id="L825" class="LineNr"> 825 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L826" class="LineNr"> 826 </span> <span class="Delimiter">{</span> +<span id="L827" class="LineNr"> 827 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">break-if-!=</span> +<span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L343'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L830" class="LineNr"> 830 </span> compare color, bg +<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L832" class="LineNr"> 832 </span> <span class="Delimiter">}</span> +<span id="L833" class="LineNr"> 833 </span> <span class="muComment"># compare graphemes</span> +<span id="L834" class="LineNr"> 834 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L835" class="LineNr"> 835 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L836" class="LineNr"> 836 </span> compare g, expected-grapheme +<span id="L837" class="LineNr"> 837 </span> <span class="Delimiter">{</span> +<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">break-if-!=</span> +<span id="L839" class="LineNr"> 839 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L841" class="LineNr"> 841 </span> <span class="Delimiter">}</span> +<span id="L842" class="LineNr"> 842 </span> <span class="muComment"># otherwise print an error</span> +<span id="L843" class="LineNr"> 843 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L844" class="LineNr"> 844 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L845" class="LineNr"> 845 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L846" class="LineNr"> 846 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L847" class="LineNr"> 847 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L848" class="LineNr"> 848 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L849" class="LineNr"> 849 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L850" class="LineNr"> 850 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L851" class="LineNr"> 851 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L852" class="LineNr"> 852 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L853" class="LineNr"> 853 </span> <span class="Delimiter">}</span> +<span id="L854" class="LineNr"> 854 </span> $check-screen-row-in-background-color-from:compare-colors: <span class="Delimiter">{</span> +<span id="L855" class="LineNr"> 855 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L343'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L856" class="LineNr"> 856 </span> compare bg, color +<span id="L857" class="LineNr"> 857 </span> <span class="Delimiter">{</span> +<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">break-if-!=</span> +<span id="L859" class="LineNr"> 859 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-colors +<span id="L861" class="LineNr"> 861 </span> <span class="Delimiter">}</span> +<span id="L862" class="LineNr"> 862 </span> <span class="muComment"># otherwise print an error</span> +<span id="L863" class="LineNr"> 863 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L864" class="LineNr"> 864 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L865" class="LineNr"> 865 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L866" class="LineNr"> 866 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L867" class="LineNr"> 867 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L868" class="LineNr"> 868 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L869" class="LineNr"> 869 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L870" class="LineNr"> 870 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in background color "</span> +<span id="L871" class="LineNr"> 871 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> bg +<span id="L872" class="LineNr"> 872 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> +<span id="L873" class="LineNr"> 873 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color +<span id="L874" class="LineNr"> 874 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L875" class="LineNr"> 875 </span> <span class="Delimiter">}</span> +<span id="L876" class="LineNr"> 876 </span> <span class="Delimiter">}</span> +<span id="L877" class="LineNr"> 877 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L878" class="LineNr"> 878 </span> increment col-idx +<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">loop</span> +<span id="L880" class="LineNr"> 880 </span> <span class="Delimiter">}</span> +<span id="L881" class="LineNr"> 881 </span><span class="Delimiter">}</span> +<span id="L882" class="LineNr"> 882 </span> +<span id="L883" class="LineNr"> 883 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L883'>check-screen-row-in-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L884" class="LineNr"> 884 </span> <a href='405screen.mu.html#L887'>check-screen-row-in-bold-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L885" class="LineNr"> 885 </span><span class="Delimiter">}</span> +<span id="L886" class="LineNr"> 886 </span> +<span id="L887" class="LineNr"> 887 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L887'>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="L888" class="LineNr"> 888 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L890" class="LineNr"> 890 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L892" class="LineNr"> 892 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L893" class="LineNr"> 893 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L894" class="LineNr"> 894 </span> <span class="Delimiter">{</span> +<span id="L895" class="LineNr"> 895 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L896" class="LineNr"> 896 </span> compare done?, <span class="Constant">0</span> +<span id="L897" class="LineNr"> 897 </span> <span class="PreProc">break-if-!=</span> +<span id="L898" class="LineNr"> 898 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L901" class="LineNr"> 901 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L902" class="LineNr"> 902 </span> $check-screen-row-in-bold-from:compare-cells: <span class="Delimiter">{</span> +<span id="L903" class="LineNr"> 903 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L904" class="LineNr"> 904 </span> <span class="Delimiter">{</span> +<span id="L905" class="LineNr"> 905 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">break-if-!=</span> +<span id="L907" class="LineNr"> 907 </span> compare g, <span class="Constant">0</span> +<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-bold-from:compare-cells +<span id="L909" class="LineNr"> 909 </span> <span class="Delimiter">}</span> +<span id="L910" class="LineNr"> 910 </span> <span class="muComment"># if expected-grapheme is space, non-bold is ok</span> +<span id="L911" class="LineNr"> 911 </span> <span class="Delimiter">{</span> +<span id="L912" class="LineNr"> 912 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L913" class="LineNr"> 913 </span> <span class="PreProc">break-if-!=</span> +<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L360'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L915" class="LineNr"> 915 </span> compare bold?, <span class="Constant">1</span> +<span id="L916" class="LineNr"> 916 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-bold-from:compare-cells +<span id="L917" class="LineNr"> 917 </span> <span class="Delimiter">}</span> +<span id="L918" class="LineNr"> 918 </span> <span class="muComment"># compare graphemes</span> +<span id="L919" class="LineNr"> 919 </span> $check-screen-row-in-bold-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L920" class="LineNr"> 920 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L921" class="LineNr"> 921 </span> compare g, expected-grapheme +<span id="L922" class="LineNr"> 922 </span> <span class="Delimiter">{</span> +<span id="L923" class="LineNr"> 923 </span> <span class="PreProc">break-if-!=</span> +<span id="L924" class="LineNr"> 924 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-graphemes +<span id="L926" class="LineNr"> 926 </span> <span class="Delimiter">}</span> +<span id="L927" class="LineNr"> 927 </span> <span class="muComment"># otherwise print an error</span> +<span id="L928" class="LineNr"> 928 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L929" class="LineNr"> 929 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L930" class="LineNr"> 930 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L931" class="LineNr"> 931 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L932" class="LineNr"> 932 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L933" class="LineNr"> 933 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L934" class="LineNr"> 934 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L935" class="LineNr"> 935 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L936" class="LineNr"> 936 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L937" class="LineNr"> 937 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L938" class="LineNr"> 938 </span> <span class="Delimiter">}</span> +<span id="L939" class="LineNr"> 939 </span> $check-screen-row-in-bold-from:compare-bold: <span class="Delimiter">{</span> +<span id="L940" class="LineNr"> 940 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L360'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L941" class="LineNr"> 941 </span> compare bold?, <span class="Constant">1</span> +<span id="L942" class="LineNr"> 942 </span> <span class="Delimiter">{</span> +<span id="L943" class="LineNr"> 943 </span> <span class="PreProc">break-if-!=</span> +<span id="L944" class="LineNr"> 944 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-bold +<span id="L946" class="LineNr"> 946 </span> <span class="Delimiter">}</span> +<span id="L947" class="LineNr"> 947 </span> <span class="muComment"># otherwise print an error</span> +<span id="L948" class="LineNr"> 948 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L949" class="LineNr"> 949 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L950" class="LineNr"> 950 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L951" class="LineNr"> 951 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L952" class="LineNr"> 952 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L953" class="LineNr"> 953 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L954" class="LineNr"> 954 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L955" class="LineNr"> 955 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in bold\n"</span> +<span id="L956" class="LineNr"> 956 </span> <span class="Delimiter">}</span> +<span id="L957" class="LineNr"> 957 </span> <span class="Delimiter">}</span> +<span id="L958" class="LineNr"> 958 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L959" class="LineNr"> 959 </span> increment col-idx +<span id="L960" class="LineNr"> 960 </span> <span class="PreProc">loop</span> +<span id="L961" class="LineNr"> 961 </span> <span class="Delimiter">}</span> +<span id="L962" class="LineNr"> 962 </span><span class="Delimiter">}</span> +<span id="L963" class="LineNr"> 963 </span> +<span id="L964" class="LineNr"> 964 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L964'>check-screen-row-in-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L965" class="LineNr"> 965 </span> <a href='405screen.mu.html#L968'>check-screen-row-in-underline-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L966" class="LineNr"> 966 </span><span class="Delimiter">}</span> +<span id="L967" class="LineNr"> 967 </span> +<span id="L968" class="LineNr"> 968 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L968'>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="L969" class="LineNr"> 969 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L971" class="LineNr"> 971 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L974" class="LineNr"> 974 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">{</span> +<span id="L976" class="LineNr"> 976 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L977" class="LineNr"> 977 </span> compare done?, <span class="Constant">0</span> +<span id="L978" class="LineNr"> 978 </span> <span class="PreProc">break-if-!=</span> +<span id="L979" class="LineNr"> 979 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L980" class="LineNr"> 980 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L983" class="LineNr"> 983 </span> $check-screen-row-in-underline-from:compare-cells: <span class="Delimiter">{</span> +<span id="L984" class="LineNr"> 984 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L985" class="LineNr"> 985 </span> <span class="Delimiter">{</span> +<span id="L986" class="LineNr"> 986 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">break-if-!=</span> +<span id="L988" class="LineNr"> 988 </span> compare g, <span class="Constant">0</span> +<span id="L989" class="LineNr"> 989 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-underline-from:compare-cells +<span id="L990" class="LineNr"> 990 </span> <span class="Delimiter">}</span> +<span id="L991" class="LineNr"> 991 </span> <span class="muComment"># if expected-grapheme is space, non-underline is ok</span> +<span id="L992" class="LineNr"> 992 </span> <span class="Delimiter">{</span> +<span id="L993" class="LineNr"> 993 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">break-if-!=</span> +<span id="L995" class="LineNr"> 995 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L377'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L996" class="LineNr"> 996 </span> compare underline?, <span class="Constant">1</span> +<span id="L997" class="LineNr"> 997 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-underline-from:compare-cells +<span id="L998" class="LineNr"> 998 </span> <span class="Delimiter">}</span> +<span id="L999" class="LineNr"> 999 </span> <span class="muComment"># compare graphemes</span> +<span id="L1000" class="LineNr">1000 </span> $check-screen-row-in-underline-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L1001" class="LineNr">1001 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L1002" class="LineNr">1002 </span> compare g, expected-grapheme +<span id="L1003" class="LineNr">1003 </span> <span class="Delimiter">{</span> +<span id="L1004" class="LineNr">1004 </span> <span class="PreProc">break-if-!=</span> +<span id="L1005" class="LineNr">1005 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1006" class="LineNr">1006 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-graphemes +<span id="L1007" class="LineNr">1007 </span> <span class="Delimiter">}</span> +<span id="L1008" class="LineNr">1008 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1009" class="LineNr">1009 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1010" class="LineNr">1010 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1011" class="LineNr">1011 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1012" class="LineNr">1012 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1013" class="LineNr">1013 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1014" class="LineNr">1014 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1015" class="LineNr">1015 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1016" class="LineNr">1016 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L1017" class="LineNr">1017 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1018" class="LineNr">1018 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L1019" class="LineNr">1019 </span> <span class="Delimiter">}</span> +<span id="L1020" class="LineNr">1020 </span> $check-screen-row-in-underline-from:compare-underline: <span class="Delimiter">{</span> +<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L377'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1022" class="LineNr">1022 </span> compare underline?, <span class="Constant">1</span> +<span id="L1023" class="LineNr">1023 </span> <span class="Delimiter">{</span> +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">break-if-!=</span> +<span id="L1025" class="LineNr">1025 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-underline +<span id="L1027" class="LineNr">1027 </span> <span class="Delimiter">}</span> +<span id="L1028" class="LineNr">1028 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1029" class="LineNr">1029 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1030" class="LineNr">1030 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1031" class="LineNr">1031 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1032" class="LineNr">1032 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1033" class="LineNr">1033 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1034" class="LineNr">1034 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1035" class="LineNr">1035 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1036" class="LineNr">1036 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be underlined\n"</span> +<span id="L1037" class="LineNr">1037 </span> <span class="Delimiter">}</span> +<span id="L1038" class="LineNr">1038 </span> <span class="Delimiter">}</span> +<span id="L1039" class="LineNr">1039 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L1040" class="LineNr">1040 </span> increment col-idx +<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">loop</span> +<span id="L1042" class="LineNr">1042 </span> <span class="Delimiter">}</span> +<span id="L1043" class="LineNr">1043 </span><span class="Delimiter">}</span> +<span id="L1044" class="LineNr">1044 </span> +<span id="L1045" class="LineNr">1045 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1045'>check-screen-row-in-reverse</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1046" class="LineNr">1046 </span> <a href='405screen.mu.html#L1049'>check-screen-row-in-reverse-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L1047" class="LineNr">1047 </span><span class="Delimiter">}</span> +<span id="L1048" class="LineNr">1048 </span> +<span id="L1049" class="LineNr">1049 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1049'>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="L1050" class="LineNr">1050 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L1052" class="LineNr">1052 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1053" class="LineNr">1053 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L1054" class="LineNr">1054 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L1055" class="LineNr">1055 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L1056" class="LineNr">1056 </span> <span class="Delimiter">{</span> +<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L1058" class="LineNr">1058 </span> compare done?, <span class="Constant">0</span> +<span id="L1059" class="LineNr">1059 </span> <span class="PreProc">break-if-!=</span> +<span id="L1060" class="LineNr">1060 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1061" class="LineNr">1061 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L1064" class="LineNr">1064 </span> $check-screen-row-in-reverse-from:compare-cells: <span class="Delimiter">{</span> +<span id="L1065" class="LineNr">1065 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1066" class="LineNr">1066 </span> <span class="Delimiter">{</span> +<span id="L1067" class="LineNr">1067 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">break-if-!=</span> +<span id="L1069" class="LineNr">1069 </span> compare g, <span class="Constant">0</span> +<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-reverse-from:compare-cells +<span id="L1071" class="LineNr">1071 </span> <span class="Delimiter">}</span> +<span id="L1072" class="LineNr">1072 </span> <span class="muComment"># if expected-grapheme is space, non-reverse is ok</span> +<span id="L1073" class="LineNr">1073 </span> <span class="Delimiter">{</span> +<span id="L1074" class="LineNr">1074 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">break-if-!=</span> +<span id="L1076" class="LineNr">1076 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L394'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1077" class="LineNr">1077 </span> compare reverse?, <span class="Constant">1</span> +<span id="L1078" class="LineNr">1078 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-reverse-from:compare-cells +<span id="L1079" class="LineNr">1079 </span> <span class="Delimiter">}</span> +<span id="L1080" class="LineNr">1080 </span> <span class="muComment"># compare graphemes</span> +<span id="L1081" class="LineNr">1081 </span> $check-screen-row-in-reverse-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L1082" class="LineNr">1082 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L1083" class="LineNr">1083 </span> compare g, expected-grapheme +<span id="L1084" class="LineNr">1084 </span> <span class="Delimiter">{</span> +<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">break-if-!=</span> +<span id="L1086" class="LineNr">1086 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1087" class="LineNr">1087 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-graphemes +<span id="L1088" class="LineNr">1088 </span> <span class="Delimiter">}</span> +<span id="L1089" class="LineNr">1089 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1090" class="LineNr">1090 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1091" class="LineNr">1091 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1092" class="LineNr">1092 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1093" class="LineNr">1093 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1094" class="LineNr">1094 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1095" class="LineNr">1095 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1096" class="LineNr">1096 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1097" class="LineNr">1097 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L1098" class="LineNr">1098 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1099" class="LineNr">1099 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L1100" class="LineNr">1100 </span> <span class="Delimiter">}</span> +<span id="L1101" class="LineNr">1101 </span> $check-screen-row-in-reverse-from:compare-reverse: <span class="Delimiter">{</span> +<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L394'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1103" class="LineNr">1103 </span> compare reverse?, <span class="Constant">1</span> +<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> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-reverse +<span id="L1108" class="LineNr">1108 </span> <span class="Delimiter">}</span> +<span id="L1109" class="LineNr">1109 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1110" class="LineNr">1110 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1111" class="LineNr">1111 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1112" class="LineNr">1112 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1113" class="LineNr">1113 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1114" class="LineNr">1114 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1115" class="LineNr">1115 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1116" class="LineNr">1116 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1117" class="LineNr">1117 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in reverse-video\n"</span> +<span id="L1118" class="LineNr">1118 </span> <span class="Delimiter">}</span> +<span id="L1119" class="LineNr">1119 </span> <span class="Delimiter">}</span> +<span id="L1120" class="LineNr">1120 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L1121" class="LineNr">1121 </span> increment col-idx +<span id="L1122" class="LineNr">1122 </span> <span class="PreProc">loop</span> +<span id="L1123" class="LineNr">1123 </span> <span class="Delimiter">}</span> +<span id="L1124" class="LineNr">1124 </span><span class="Delimiter">}</span> +<span id="L1125" class="LineNr">1125 </span> +<span id="L1126" class="LineNr">1126 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1126'>check-screen-row-in-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1127" class="LineNr">1127 </span> <a href='405screen.mu.html#L1130'>check-screen-row-in-blinking-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L1128" class="LineNr">1128 </span><span class="Delimiter">}</span> +<span id="L1129" class="LineNr">1129 </span> +<span id="L1130" class="LineNr">1130 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1130'>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="L1131" class="LineNr">1131 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L1132" class="LineNr">1132 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L1133" class="LineNr">1133 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L1135" class="LineNr">1135 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L1136" class="LineNr">1136 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L1137" class="LineNr">1137 </span> <span class="Delimiter">{</span> +<span id="L1138" class="LineNr">1138 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L1139" class="LineNr">1139 </span> compare done?, <span class="Constant">0</span> +<span id="L1140" class="LineNr">1140 </span> <span class="PreProc">break-if-!=</span> +<span id="L1141" class="LineNr">1141 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L309'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1142" class="LineNr">1142 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g +<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L160'>read-grapheme</a> e-addr +<span id="L1144" class="LineNr">1144 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme +<span id="L1145" class="LineNr">1145 </span> $check-screen-row-in-blinking-from:compare-cells: <span class="Delimiter">{</span> +<span id="L1146" class="LineNr">1146 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1147" class="LineNr">1147 </span> <span class="Delimiter">{</span> +<span id="L1148" class="LineNr">1148 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1149" class="LineNr">1149 </span> <span class="PreProc">break-if-!=</span> +<span id="L1150" class="LineNr">1150 </span> compare g, <span class="Constant">0</span> +<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-blinking-from:compare-cells +<span id="L1152" class="LineNr">1152 </span> <span class="Delimiter">}</span> +<span id="L1153" class="LineNr">1153 </span> <span class="muComment"># if expected-grapheme is space, non-blinking is ok</span> +<span id="L1154" class="LineNr">1154 </span> <span class="Delimiter">{</span> +<span id="L1155" class="LineNr">1155 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">break-if-!=</span> +<span id="L1157" class="LineNr">1157 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L411'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1158" class="LineNr">1158 </span> compare blinking?, <span class="Constant">1</span> +<span id="L1159" class="LineNr">1159 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-blinking-from:compare-cells +<span id="L1160" class="LineNr">1160 </span> <span class="Delimiter">}</span> +<span id="L1161" class="LineNr">1161 </span> <span class="muComment"># compare graphemes</span> +<span id="L1162" class="LineNr">1162 </span> $check-screen-row-in-blinking-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L1163" class="LineNr">1163 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L1164" class="LineNr">1164 </span> compare g, expected-grapheme +<span id="L1165" class="LineNr">1165 </span> <span class="Delimiter">{</span> +<span id="L1166" class="LineNr">1166 </span> <span class="PreProc">break-if-!=</span> +<span id="L1167" class="LineNr">1167 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1168" class="LineNr">1168 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-graphemes +<span id="L1169" class="LineNr">1169 </span> <span class="Delimiter">}</span> +<span id="L1170" class="LineNr">1170 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1171" class="LineNr">1171 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1172" class="LineNr">1172 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1173" class="LineNr">1173 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1174" class="LineNr">1174 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1175" class="LineNr">1175 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1176" class="LineNr">1176 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1177" class="LineNr">1177 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1178" class="LineNr">1178 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L1179" class="LineNr">1179 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1180" class="LineNr">1180 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L1181" class="LineNr">1181 </span> <span class="Delimiter">}</span> +<span id="L1182" class="LineNr">1182 </span> $check-screen-row-in-blinking-from:compare-blinking: <span class="Delimiter">{</span> +<span id="L1183" class="LineNr">1183 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L411'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1184" class="LineNr">1184 </span> compare blinking?, <span class="Constant">1</span> +<span id="L1185" class="LineNr">1185 </span> <span class="Delimiter">{</span> +<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">break-if-!=</span> +<span id="L1187" class="LineNr">1187 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1188" class="LineNr">1188 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-blinking +<span id="L1189" class="LineNr">1189 </span> <span class="Delimiter">}</span> +<span id="L1190" class="LineNr">1190 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1191" class="LineNr">1191 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1192" class="LineNr">1192 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1193" class="LineNr">1193 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1194" class="LineNr">1194 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1195" class="LineNr">1195 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1196" class="LineNr">1196 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1197" class="LineNr">1197 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1198" class="LineNr">1198 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be blinking\n"</span> +<span id="L1199" class="LineNr">1199 </span> <span class="Delimiter">}</span> +<span id="L1200" class="LineNr">1200 </span> <span class="Delimiter">}</span> +<span id="L1201" class="LineNr">1201 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L1202" class="LineNr">1202 </span> increment col-idx +<span id="L1203" class="LineNr">1203 </span> +<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">loop</span> +<span id="L1205" class="LineNr">1205 </span> <span class="Delimiter">}</span> +<span id="L1206" class="LineNr">1206 </span><span class="Delimiter">}</span> +<span id="L1207" class="LineNr">1207 </span> +<span id="L1208" class="LineNr">1208 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1208'>test-print-single-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L1209" class="LineNr">1209 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1211" class="LineNr">1211 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1213" class="LineNr">1213 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1214" class="LineNr">1214 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1215" class="LineNr">1215 </span><span class="Delimiter">}</span> +<span id="L1216" class="LineNr">1216 </span> +<span id="L1217" class="LineNr">1217 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1217'>test-print-multiple-graphemes</a></span> <span class="Delimiter">{</span> +<span id="L1218" class="LineNr">1218 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1219" class="LineNr">1219 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1220" class="LineNr">1220 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1221" class="LineNr">1221 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span> +<span id="L1222" class="LineNr">1222 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-graphemes"</span> +<span id="L1223" class="LineNr">1223 </span><span class="Delimiter">}</span> +<span id="L1224" class="LineNr">1224 </span> +<span id="L1225" class="LineNr">1225 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1225'>test-move-cursor</a></span> <span class="Delimiter">{</span> +<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</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>, <span class="Constant">4</span> +<span id="L1229" class="LineNr">1229 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1231" class="LineNr">1231 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1232" class="LineNr">1232 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor"</span> <span class="muComment"># top row</span> +<span id="L1233" class="LineNr">1233 </span><span class="Delimiter">}</span> +<span id="L1234" class="LineNr">1234 </span> +<span id="L1235" class="LineNr">1235 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1235'>test-move-cursor-zeroes</a></span> <span class="Delimiter">{</span> +<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</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">4</span> +<span id="L1239" class="LineNr">1239 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1241" class="LineNr">1241 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1242" class="LineNr">1242 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zeroes"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1243" class="LineNr">1243 </span><span class="Delimiter">}</span> +<span id="L1244" class="LineNr">1244 </span> +<span id="L1245" class="LineNr">1245 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1245'>test-move-cursor-zero-row</a></span> <span class="Delimiter">{</span> +<span id="L1246" class="LineNr">1246 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1248" class="LineNr">1248 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1249" class="LineNr">1249 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">2</span> +<span id="L1250" class="LineNr">1250 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1251" class="LineNr">1251 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1252" class="LineNr">1252 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-zero-row"</span> <span class="muComment"># top row</span> +<span id="L1253" class="LineNr">1253 </span><span class="Delimiter">}</span> +<span id="L1254" class="LineNr">1254 </span> +<span id="L1255" class="LineNr">1255 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1255'>test-move-cursor-zero-column</a></span> <span class="Delimiter">{</span> +<span id="L1256" class="LineNr">1256 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1257" class="LineNr">1257 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1258" class="LineNr">1258 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1259" class="LineNr">1259 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">0</span> +<span id="L1260" class="LineNr">1260 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1261" class="LineNr">1261 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1262" class="LineNr">1262 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zero-column"</span> +<span id="L1263" class="LineNr">1263 </span><span class="Delimiter">}</span> +<span id="L1264" class="LineNr">1264 </span> +<span id="L1265" class="LineNr">1265 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1265'>test-move-cursor-negative-row</a></span> <span class="Delimiter">{</span> +<span id="L1266" class="LineNr">1266 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1267" class="LineNr">1267 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1268" class="LineNr">1268 </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="L1269" class="LineNr">1269 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">-1</span>, <span class="Constant">2</span> <span class="muComment"># row -1</span> +<span id="L1270" class="LineNr">1270 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1271" class="LineNr">1271 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1272" class="LineNr">1272 </span> <span class="muComment"># no move</span> +<span id="L1273" class="LineNr">1273 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-row"</span> +<span id="L1274" class="LineNr">1274 </span><span class="Delimiter">}</span> +<span id="L1275" class="LineNr">1275 </span> +<span id="L1276" class="LineNr">1276 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1276'>test-move-cursor-negative-column</a></span> <span class="Delimiter">{</span> +<span id="L1277" class="LineNr">1277 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1278" class="LineNr">1278 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1279" class="LineNr">1279 </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="L1280" class="LineNr">1280 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">-1</span> <span class="muComment"># column -1</span> +<span id="L1281" class="LineNr">1281 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1282" class="LineNr">1282 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1283" class="LineNr">1283 </span> <span class="muComment"># no move</span> +<span id="L1284" class="LineNr">1284 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-column"</span> +<span id="L1285" class="LineNr">1285 </span><span class="Delimiter">}</span> +<span id="L1286" class="LineNr">1286 </span> +<span id="L1287" class="LineNr">1287 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1287'>test-move-cursor-column-too-large</a></span> <span class="Delimiter">{</span> +<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1289" class="LineNr">1289 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1290" class="LineNr">1290 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows, 3 columns</span> +<span id="L1291" class="LineNr">1291 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> <span class="muComment"># row 1, column 4 (overflow)</span> +<span id="L1292" class="LineNr">1292 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1293" class="LineNr">1293 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1294" class="LineNr">1294 </span> <span class="muComment"># top row is empty</span> +<span id="L1295" class="LineNr">1295 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> +<span id="L1296" class="LineNr">1296 </span> <span class="muComment"># character shows up on next row</span> +<span id="L1297" class="LineNr">1297 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> +<span id="L1298" class="LineNr">1298 </span><span class="Delimiter">}</span> +<span id="L1299" class="LineNr">1299 </span> +<span id="L1300" class="LineNr">1300 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1300'>test-move-cursor-column-too-large-saturates</a></span> <span class="Delimiter">{</span> +<span id="L1301" class="LineNr">1301 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1303" class="LineNr">1303 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows, 3 columns</span> +<span id="L1304" class="LineNr">1304 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">6</span> <span class="muComment"># row 1, column 6 (overflow)</span> +<span id="L1305" class="LineNr">1305 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1306" class="LineNr">1306 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1307" class="LineNr">1307 </span> <span class="muComment"># top row is empty</span> +<span id="L1308" class="LineNr">1308 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1309" class="LineNr">1309 </span> <span class="muComment"># character shows up at the start of next row</span> +<span id="L1310" class="LineNr">1310 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1311" class="LineNr">1311 </span><span class="Delimiter">}</span> +<span id="L1312" class="LineNr">1312 </span> +<span id="L1313" class="LineNr">1313 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1313'>test-move-cursor-row-too-large</a></span> <span class="Delimiter">{</span> +<span id="L1314" class="LineNr">1314 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1315" class="LineNr">1315 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1316" class="LineNr">1316 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows</span> +<span id="L1317" class="LineNr">1317 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>, <span class="Constant">2</span> <span class="muComment"># row 6 (overflow)</span> +<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1319" class="LineNr">1319 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1320" class="LineNr">1320 </span> <span class="muComment"># bottom row shows the character</span> +<span id="L1321" class="LineNr">1321 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large"</span> +<span id="L1322" class="LineNr">1322 </span><span class="Delimiter">}</span> +<span id="L1323" class="LineNr">1323 </span> +<span id="L1324" class="LineNr">1324 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1324'>test-move-cursor-row-too-large-saturates</a></span> <span class="Delimiter">{</span> +<span id="L1325" class="LineNr">1325 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1327" class="LineNr">1327 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows</span> +<span id="L1328" class="LineNr">1328 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">9</span>, <span class="Constant">2</span> <span class="muComment"># row 9 (overflow)</span> +<span id="L1329" class="LineNr">1329 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1330" class="LineNr">1330 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1331" class="LineNr">1331 </span> <span class="muComment"># bottom row shows the character</span> +<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large-saturates"</span> +<span id="L1333" class="LineNr">1333 </span><span class="Delimiter">}</span> +<span id="L1334" class="LineNr">1334 </span> +<span id="L1335" class="LineNr">1335 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1335'>test-check-screen-row-from</a></span> <span class="Delimiter">{</span> +<span id="L1336" class="LineNr">1336 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1337" class="LineNr">1337 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1338" class="LineNr">1338 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1339" class="LineNr">1339 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L1340" class="LineNr">1340 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1341" class="LineNr">1341 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1342" class="LineNr">1342 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1335'>test-check-screen-row-from</a>/baseline"</span> +<span id="L1343" class="LineNr">1343 </span> <a href='405screen.mu.html#L661'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-screen-row-from"</span> +<span id="L1344" class="LineNr">1344 </span><span class="Delimiter">}</span> +<span id="L1345" class="LineNr">1345 </span> +<span id="L1346" class="LineNr">1346 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1346'>test-print-string-overflows-to-next-row</a></span> <span class="Delimiter">{</span> +<span id="L1347" class="LineNr">1347 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1348" class="LineNr">1348 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1349" class="LineNr">1349 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> <span class="muComment"># 5 rows, 4 columns</span> +<span id="L1350" class="LineNr">1350 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"abcdefg"</span> +<span id="L1351" class="LineNr">1351 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> +<span id="L1352" class="LineNr">1352 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"efg"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> +<span id="L1353" class="LineNr">1353 </span><span class="Delimiter">}</span> +<span id="L1354" class="LineNr">1354 </span> +<span id="L1355" class="LineNr">1355 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1355'>test-check-screen-scrolls-on-overflow</a></span> <span class="Delimiter">{</span> +<span id="L1356" class="LineNr">1356 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1357" class="LineNr">1357 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1358" class="LineNr">1358 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1359" class="LineNr">1359 </span> <span class="muComment"># single character starting at bottom right</span> +<span id="L1360" class="LineNr">1360 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1361" class="LineNr">1361 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L1362" class="LineNr">1362 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1363" class="LineNr">1363 </span> <a href='405screen.mu.html#L487'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1364" class="LineNr">1364 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> -<span id="L1365" class="LineNr">1365 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1366" class="LineNr">1366 </span> <a href='405screen.mu.html#L829'>check-screen-row-in-bold</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-bold"</span> -<span id="L1367" class="LineNr">1367 </span><span class="Delimiter">}</span> -<span id="L1368" class="LineNr">1368 </span> -<span id="L1369" class="LineNr">1369 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1369'>test-check-screen-underline</a></span> <span class="Delimiter">{</span> -<span id="L1370" class="LineNr">1370 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1371" class="LineNr">1371 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1372" class="LineNr">1372 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1373" class="LineNr">1373 </span> <a href='405screen.mu.html#L506'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1374" class="LineNr">1374 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1375" class="LineNr">1375 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1376" class="LineNr">1376 </span> <a href='405screen.mu.html#L442'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1377" class="LineNr">1377 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> -<span id="L1378" class="LineNr">1378 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1379" class="LineNr">1379 </span> <a href='405screen.mu.html#L506'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1380" class="LineNr">1380 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> -<span id="L1381" class="LineNr">1381 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1382" class="LineNr">1382 </span> <a href='405screen.mu.html#L910'>check-screen-row-in-underline</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-underline"</span> -<span id="L1383" class="LineNr">1383 </span><span class="Delimiter">}</span> -<span id="L1384" class="LineNr">1384 </span> -<span id="L1385" class="LineNr">1385 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1385'>test-check-screen-reverse</a></span> <span class="Delimiter">{</span> -<span id="L1386" class="LineNr">1386 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1387" class="LineNr">1387 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1388" class="LineNr">1388 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1389" class="LineNr">1389 </span> <a href='405screen.mu.html#L525'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1390" class="LineNr">1390 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1391" class="LineNr">1391 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1392" class="LineNr">1392 </span> <a href='405screen.mu.html#L442'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1393" class="LineNr">1393 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> -<span id="L1394" class="LineNr">1394 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1395" class="LineNr">1395 </span> <a href='405screen.mu.html#L525'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1396" class="LineNr">1396 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L1363" class="LineNr">1363 </span> <a href='405screen.mu.html#L661'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1355'>test-check-screen-scrolls-on-overflow</a>/baseline"</span> <span class="muComment"># bottom-right corner of the screen</span> +<span id="L1364" class="LineNr">1364 </span> <span class="muComment"># multiple characters starting at bottom right</span> +<span id="L1365" class="LineNr">1365 </span> <a href='405screen.mu.html#L116'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1366" class="LineNr">1366 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"ab"</span> +<span id="L1367" class="LineNr">1367 </span> <span class="muComment"># screen scrolled up one row</span> +<span id="L1368" class="LineNr">1368 </span><span class="CommentedCode">#? check-screen-row screen, 1, " ", "F - test-check-screen-scrolls-on-overflow/x1"</span> +<span id="L1369" class="LineNr">1369 </span><span class="CommentedCode">#? check-screen-row screen, 2, " ", "F - test-check-screen-scrolls-on-overflow/x2"</span> +<span id="L1370" class="LineNr">1370 </span><span class="CommentedCode">#? check-screen-row screen, 3, " ", "F - test-check-screen-scrolls-on-overflow/x3"</span> +<span id="L1371" class="LineNr">1371 </span><span class="CommentedCode">#? check-screen-row screen, 4, " a", "F - test-check-screen-scrolls-on-overflow/x4"</span> +<span id="L1372" class="LineNr">1372 </span><span class="CommentedCode">#? check-screen-row screen, 5, "b ", "F - test-check-screen-scrolls-on-overflow/x5"</span> +<span id="L1373" class="LineNr">1373 </span> <a href='405screen.mu.html#L661'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1355'>test-check-screen-scrolls-on-overflow</a>/1"</span> +<span id="L1374" class="LineNr">1374 </span> <a href='405screen.mu.html#L661'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">"b"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1355'>test-check-screen-scrolls-on-overflow</a>/2"</span> +<span id="L1375" class="LineNr">1375 </span><span class="Delimiter">}</span> +<span id="L1376" class="LineNr">1376 </span> +<span id="L1377" class="LineNr">1377 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1377'>test-check-screen-color</a></span> <span class="Delimiter">{</span> +<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</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>, <span class="Constant">4</span> +<span id="L1381" class="LineNr">1381 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1382" class="LineNr">1382 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1383" class="LineNr">1383 </span> <a href='405screen.mu.html#L518'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">0</span> <span class="muComment"># foreground=1</span> +<span id="L1384" class="LineNr">1384 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1385" class="LineNr">1385 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1386" class="LineNr">1386 </span> <a href='405screen.mu.html#L518'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># back to default</span> +<span id="L1387" class="LineNr">1387 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1388" class="LineNr">1388 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1389" class="LineNr">1389 </span> <a href='405screen.mu.html#L711'>check-screen-row-in-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-color"</span> +<span id="L1390" class="LineNr">1390 </span><span class="Delimiter">}</span> +<span id="L1391" class="LineNr">1391 </span> +<span id="L1392" class="LineNr">1392 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1392'>test-check-screen-background-color</a></span> <span class="Delimiter">{</span> +<span id="L1393" class="LineNr">1393 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1395" class="LineNr">1395 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1396" class="LineNr">1396 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L1397" class="LineNr">1397 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1398" class="LineNr">1398 </span> <a href='405screen.mu.html#L991'>check-screen-row-in-reverse</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-reverse"</span> -<span id="L1399" class="LineNr">1399 </span><span class="Delimiter">}</span> -<span id="L1400" class="LineNr">1400 </span> -<span id="L1401" class="LineNr">1401 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1401'>test-check-screen-blinking</a></span> <span class="Delimiter">{</span> -<span id="L1402" class="LineNr">1402 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1403" class="LineNr">1403 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1404" class="LineNr">1404 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1405" class="LineNr">1405 </span> <a href='405screen.mu.html#L544'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1406" class="LineNr">1406 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> -<span id="L1407" class="LineNr">1407 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1408" class="LineNr">1408 </span> <a href='405screen.mu.html#L442'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1409" class="LineNr">1409 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> -<span id="L1410" class="LineNr">1410 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1411" class="LineNr">1411 </span> <a href='405screen.mu.html#L544'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1412" class="LineNr">1412 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L1398" class="LineNr">1398 </span> <a href='405screen.mu.html#L518'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="muComment"># background=1</span> +<span id="L1399" class="LineNr">1399 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1400" class="LineNr">1400 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1401" class="LineNr">1401 </span> <a href='405screen.mu.html#L518'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">7</span> <span class="muComment"># back to default</span> +<span id="L1402" class="LineNr">1402 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1403" class="LineNr">1403 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1404" class="LineNr">1404 </span> <a href='405screen.mu.html#L798'>check-screen-row-in-background-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-background-color"</span> +<span id="L1405" class="LineNr">1405 </span><span class="Delimiter">}</span> +<span id="L1406" class="LineNr">1406 </span> +<span id="L1407" class="LineNr">1407 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1407'>test-check-screen-bold</a></span> <span class="Delimiter">{</span> +<span id="L1408" class="LineNr">1408 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1409" class="LineNr">1409 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1410" class="LineNr">1410 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1411" class="LineNr">1411 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L1413" class="LineNr">1413 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1414" class="LineNr">1414 </span> <a href='405screen.mu.html#L1072'>check-screen-row-in-blinking</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-blinking"</span> -<span id="L1415" class="LineNr">1415 </span><span class="Delimiter">}</span> -<span id="L1416" class="LineNr">1416 </span> -<span id="L1417" class="LineNr">1417 </span><span class="CommentedCode">#? fn main -> exit-status/ebx: int {</span> -<span id="L1418" class="LineNr">1418 </span><span class="CommentedCode">#? #? test-check-screen-color</span> -<span id="L1419" class="LineNr">1419 </span><span class="CommentedCode">#? run-tests</span> -<span id="L1420" class="LineNr">1420 </span><span class="CommentedCode">#? exit-status <- copy 0</span> -<span id="L1421" class="LineNr">1421 </span><span class="CommentedCode">#? }</span> +<span id="L1414" class="LineNr">1414 </span> <a href='405screen.mu.html#L496'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1415" class="LineNr">1415 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1416" class="LineNr">1416 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1417" class="LineNr">1417 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1418" class="LineNr">1418 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1419" class="LineNr">1419 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1420" class="LineNr">1420 </span> <a href='405screen.mu.html#L883'>check-screen-row-in-bold</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-bold"</span> +<span id="L1421" class="LineNr">1421 </span><span class="Delimiter">}</span> +<span id="L1422" class="LineNr">1422 </span> +<span id="L1423" class="LineNr">1423 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1423'>test-check-screen-underline</a></span> <span class="Delimiter">{</span> +<span id="L1424" class="LineNr">1424 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1425" class="LineNr">1425 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1426" class="LineNr">1426 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1427" class="LineNr">1427 </span> <a href='405screen.mu.html#L560'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1428" class="LineNr">1428 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1429" class="LineNr">1429 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1430" class="LineNr">1430 </span> <a href='405screen.mu.html#L496'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1431" class="LineNr">1431 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1432" class="LineNr">1432 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1433" class="LineNr">1433 </span> <a href='405screen.mu.html#L560'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1434" class="LineNr">1434 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1435" class="LineNr">1435 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1436" class="LineNr">1436 </span> <a href='405screen.mu.html#L964'>check-screen-row-in-underline</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-underline"</span> +<span id="L1437" class="LineNr">1437 </span><span class="Delimiter">}</span> +<span id="L1438" class="LineNr">1438 </span> +<span id="L1439" class="LineNr">1439 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1439'>test-check-screen-reverse</a></span> <span class="Delimiter">{</span> +<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1441" class="LineNr">1441 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1442" class="LineNr">1442 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1443" class="LineNr">1443 </span> <a href='405screen.mu.html#L579'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1445" class="LineNr">1445 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1446" class="LineNr">1446 </span> <a href='405screen.mu.html#L496'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1447" class="LineNr">1447 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1448" class="LineNr">1448 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1449" class="LineNr">1449 </span> <a href='405screen.mu.html#L579'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1450" class="LineNr">1450 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1451" class="LineNr">1451 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1452" class="LineNr">1452 </span> <a href='405screen.mu.html#L1045'>check-screen-row-in-reverse</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-reverse"</span> +<span id="L1453" class="LineNr">1453 </span><span class="Delimiter">}</span> +<span id="L1454" class="LineNr">1454 </span> +<span id="L1455" class="LineNr">1455 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1455'>test-check-screen-blinking</a></span> <span class="Delimiter">{</span> +<span id="L1456" class="LineNr">1456 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1457" class="LineNr">1457 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L1458" class="LineNr">1458 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1459" class="LineNr">1459 </span> <a href='405screen.mu.html#L598'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1460" class="LineNr">1460 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L1461" class="LineNr">1461 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1462" class="LineNr">1462 </span> <a href='405screen.mu.html#L496'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1463" class="LineNr">1463 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> +<span id="L1464" class="LineNr">1464 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1465" class="LineNr">1465 </span> <a href='405screen.mu.html#L598'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1466" class="LineNr">1466 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> +<span id="L1467" class="LineNr">1467 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1468" class="LineNr">1468 </span> <a href='405screen.mu.html#L1126'>check-screen-row-in-blinking</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-blinking"</span> +<span id="L1469" class="LineNr">1469 </span><span class="Delimiter">}</span> +<span id="L1470" class="LineNr">1470 </span> +<span id="L1471" class="LineNr">1471 </span><span class="CommentedCode">#? fn main -> exit-status/ebx: int {</span> +<span id="L1472" class="LineNr">1472 </span><span class="CommentedCode">#? #? test-check-screen-color</span> +<span id="L1473" class="LineNr">1473 </span><span class="CommentedCode">#? run-tests</span> +<span id="L1474" class="LineNr">1474 </span><span class="CommentedCode">#? exit-status <- copy 0</span> +<span id="L1475" class="LineNr">1475 </span><span class="CommentedCode">#? }</span> </pre> </body> </html> diff --git a/html/406try-divide.mu.html b/html/406try-divide.mu.html new file mode 100644 index 00000000..c7531fec --- /dev/null +++ b/html/406try-divide.mu.html @@ -0,0 +1,169 @@ +<!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 - 406try-divide.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/406try-divide.mu'>https://github.com/akkartik/mu/blob/master/406try-divide.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># slow, iterative divide instruction</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># preconditions: _nr >= 0, _dr > 0</span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406try-divide.mu.html#L3'>try-divide</a></span> _nr: int, _dr: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="muComment"># x = next power-of-2 multiple of _dr after _nr</span> +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span><span class="CommentedCode">#? print-int32-hex 0, x</span> +<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _dr +<span id="L10" class="LineNr"> 10 </span> tmp <span class="SpecialChar"><-</span> multiply x +<span id="L11" class="LineNr"> 11 </span> compare tmp, _nr +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">break-if-></span> +<span id="L13" class="LineNr"> 13 </span> x <span class="SpecialChar"><-</span> shift-left <span class="Constant">1</span> +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">loop</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">}</span> +<span id="L16" class="LineNr"> 16 </span><span class="CommentedCode">#? print-string 0, "--\n"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># min, max = x/2, x</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> min/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy max +<span id="L20" class="LineNr"> 20 </span> min <span class="SpecialChar"><-</span> shift-right <span class="Constant">1</span> +<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># narrow down result between min and max</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy min +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span><span class="CommentedCode">#? print-int32-hex 0, i</span> +<span id="L25" class="LineNr"> 25 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> foo/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy _dr +<span id="L27" class="LineNr"> 27 </span> foo <span class="SpecialChar"><-</span> multiply i +<span id="L28" class="LineNr"> 28 </span> compare foo, _nr +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">break-if-></span> +<span id="L30" class="LineNr"> 30 </span> i <span class="SpecialChar"><-</span> increment +<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> result <span class="SpecialChar"><-</span> copy i +<span id="L34" class="LineNr"> 34 </span> result <span class="SpecialChar"><-</span> decrement +<span id="L35" class="LineNr"> 35 </span><span class="CommentedCode">#? print-string 0, "=> "</span> +<span id="L36" class="LineNr"> 36 </span><span class="CommentedCode">#? print-int32-hex 0, result</span> +<span id="L37" class="LineNr"> 37 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span> +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L40'>test-try-divide-1</a></span> <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">0</span>, <span class="Constant">2</span> +<span id="L42" class="LineNr"> 42 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - try-divide-1"</span> +<span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L45'>test-try-divide-2</a></span> <span class="Delimiter">{</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L47" class="LineNr"> 47 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - try-divide-2"</span> +<span id="L48" class="LineNr"> 48 </span><span class="Delimiter">}</span> +<span id="L49" class="LineNr"> 49 </span> +<span id="L50" class="LineNr"> 50 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L50'>test-try-divide-3</a></span> <span class="Delimiter">{</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">2</span>, <span class="Constant">2</span> +<span id="L52" class="LineNr"> 52 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - try-divide-3"</span> +<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L55'>test-try-divide-4</a></span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">4</span>, <span class="Constant">2</span> +<span id="L57" class="LineNr"> 57 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">2</span>, <span class="Constant">"F - try-divide-4"</span> +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L60'>test-try-divide-5</a></span> <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">6</span>, <span class="Constant">2</span> +<span id="L62" class="LineNr"> 62 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">3</span>, <span class="Constant">"F - try-divide-5"</span> +<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr"> 64 </span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L65'>test-try-divide-6</a></span> <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">9</span>, <span class="Constant">3</span> +<span id="L67" class="LineNr"> 67 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">3</span>, <span class="Constant">"F - try-divide-6"</span> +<span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> +<span id="L70" class="LineNr"> 70 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L70'>test-try-divide-7</a></span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">0xc</span>, <span class="Constant">4</span> +<span id="L72" class="LineNr"> 72 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">3</span>, <span class="Constant">"F - try-divide-7"</span> +<span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> +<span id="L74" class="LineNr"> 74 </span> +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L75'>test-try-divide-8</a></span> <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">0x1b</span>, <span class="Constant">3</span> <span class="muComment"># 27/3</span> +<span id="L77" class="LineNr"> 77 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">9</span>, <span class="Constant">"F - try-divide-8"</span> +<span id="L78" class="LineNr"> 78 </span><span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span> +<span id="L80" class="LineNr"> 80 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L80'>test-try-divide-9</a></span> <span class="Delimiter">{</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> <span class="Constant">0x1c</span>, <span class="Constant">3</span> <span class="muComment"># 28/3</span> +<span id="L82" class="LineNr"> 82 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">9</span>, <span class="Constant">"F - try-divide-9"</span> +<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> +<span id="L85" class="LineNr"> 85 </span><span class="muComment"># only positive dr for now</span> +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406try-divide.mu.html#L86'>try-modulo</a></span> nr: int, dr: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> _positive-nr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L100'>abs</a> nr +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> positive-nr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _positive-nr +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> positive-nr, dr +<span id="L90" class="LineNr"> 90 </span> tmp <span class="SpecialChar"><-</span> multiply dr +<span id="L91" class="LineNr"> 91 </span> tmp <span class="SpecialChar"><-</span> subtract positive-nr +<span id="L92" class="LineNr"> 92 </span> result <span class="SpecialChar"><-</span> negate +<span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> +<span id="L94" class="LineNr"> 94 </span> +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">fn</span> <span class="muTest"><a href='406try-divide.mu.html#L95'>test-try-modulo-negative-nr</a></span> <span class="Delimiter">{</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L86'>try-modulo</a> <span class="Constant">-0xa</span>, <span class="Constant">7</span> +<span id="L97" class="LineNr"> 97 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">3</span>, <span class="Constant">"F - test-try-modulo-negative-nr"</span> +<span id="L98" class="LineNr"> 98 </span><span class="Delimiter">}</span> +<span id="L99" class="LineNr"> 99 </span> +<span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406try-divide.mu.html#L100'>abs</a></span> n: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> result <span class="SpecialChar"><-</span> copy n +<span id="L102" class="LineNr">102 </span> compare n, <span class="Constant">0</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">break-if->=</span> +<span id="L104" class="LineNr">104 </span> result <span class="SpecialChar"><-</span> negate +<span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/407print-int32-decimal-right-justified.mu.html b/html/407print-int32-decimal-right-justified.mu.html new file mode 100644 index 00000000..fc2801e1 --- /dev/null +++ b/html/407print-int32-decimal-right-justified.mu.html @@ -0,0 +1,128 @@ +<!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 - 407print-int32-decimal-right-justified.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/407print-int32-decimal-right-justified.mu'>https://github.com/akkartik/mu/blob/master/407print-int32-decimal-right-justified.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># print 'n' with enough leading spaces to be right-justified in 'width'</span> +<span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='407print-int32-decimal-right-justified.mu.html#L2'>print-int32-decimal-right-justified</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, _width: int <span class="Delimiter">{</span> +<span id="L3" class="LineNr"> 3 </span> <span class="muComment"># tweak things for negative numbers</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> n-width/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> n +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _width +<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> compare n-width, width +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if->=</span> +<span id="L9" class="LineNr"> 9 </span> <a href='405screen.mu.html#L206'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L10" class="LineNr">10 </span> width <span class="SpecialChar"><-</span> decrement +<span id="L11" class="LineNr">11 </span> <span class="PreProc">loop</span> +<span id="L12" class="LineNr">12 </span> <span class="Delimiter">}</span> +<span id="L13" class="LineNr">13 </span> <a href='405screen.mu.html#L481'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, n +<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='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a></span> n: int<span class="PreProc"> -> </span>result/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L17" class="LineNr">17 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n +<span id="L19" class="LineNr">19 </span> <span class="muComment"># account for '-'</span> +<span id="L20" class="LineNr">20 </span> compare curr, <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="PreProc">break-if->=</span> +<span id="L23" class="LineNr">23 </span> curr <span class="SpecialChar"><-</span> negate +<span id="L24" class="LineNr">24 </span> result <span class="SpecialChar"><-</span> increment +<span id="L25" class="LineNr">25 </span> <span class="Delimiter">}</span> +<span id="L26" class="LineNr">26 </span> <span class="muComment"># now we're dealing with a positive number</span> +<span id="L27" class="LineNr">27 </span> <span class="Delimiter">{</span> +<span id="L28" class="LineNr">28 </span> compare curr, <span class="Constant">0xa</span> +<span id="L29" class="LineNr">29 </span> <span class="PreProc">break-if-<</span> +<span id="L30" class="LineNr">30 </span> curr <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L3'>try-divide</a> curr, <span class="Constant">0xa</span> +<span id="L31" class="LineNr">31 </span> result <span class="SpecialChar"><-</span> increment +<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><span class="Delimiter">}</span> +<span id="L35" class="LineNr">35 </span> +<span id="L36" class="LineNr">36 </span><span class="PreProc">fn</span> <span class="muTest"><a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a></span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0</span> +<span id="L38" class="LineNr">38 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">1</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 0"</span> +<span id="L39" class="LineNr">39 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">1</span> +<span id="L40" class="LineNr">40 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">1</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 1"</span> +<span id="L41" class="LineNr">41 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">4</span> +<span id="L42" class="LineNr">42 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">1</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 4"</span> +<span id="L43" class="LineNr">43 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">9</span> +<span id="L44" class="LineNr">44 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">1</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 9"</span> +<span id="L45" class="LineNr">45 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0xa</span> +<span id="L46" class="LineNr">46 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">2</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 10"</span> +<span id="L47" class="LineNr">47 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0xb</span> +<span id="L48" class="LineNr">48 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">2</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 11"</span> +<span id="L49" class="LineNr">49 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x4f</span> <span class="muComment"># 79</span> +<span id="L50" class="LineNr">50 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">2</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 79"</span> +<span id="L51" class="LineNr">51 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x63</span> <span class="muComment"># 99</span> +<span id="L52" class="LineNr">52 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">2</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 100"</span> +<span id="L53" class="LineNr">53 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x64</span> <span class="muComment"># 100</span> +<span id="L54" class="LineNr">54 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 100"</span> +<span id="L55" class="LineNr">55 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x65</span> <span class="muComment"># 101</span> +<span id="L56" class="LineNr">56 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 101"</span> +<span id="L57" class="LineNr">57 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x3e7</span> <span class="muComment"># 999</span> +<span id="L58" class="LineNr">58 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 999"</span> +<span id="L59" class="LineNr">59 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">0x3e8</span> <span class="muComment"># 1000</span> +<span id="L60" class="LineNr">60 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: 1000"</span> +<span id="L61" class="LineNr">61 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">-1</span> +<span id="L62" class="LineNr">62 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">2</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: -1"</span> +<span id="L63" class="LineNr">63 </span> x <span class="SpecialChar"><-</span> <a href='407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> <span class="Constant">-0xb</span> <span class="muComment"># -11</span> +<span id="L64" class="LineNr">64 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='407print-int32-decimal-right-justified.mu.html#L36'>test-int-width-decimal</a>: -11"</span> +<span id="L65" class="LineNr">65 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/408print-float.mu.html b/html/408print-float.mu.html new file mode 100644 index 00000000..7abf33a6 --- /dev/null +++ b/html/408print-float.mu.html @@ -0,0 +1,235 @@ +<!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 - 408print-float.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/408print-float.mu'>https://github.com/akkartik/mu/blob/master/408print-float.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># quick-n-dirty way to print out floats in hex</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># examples:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># 0.5 = 0x3f000000 = 0011| 1111 | 0000 | 0000 | 0000 | 0000 | 0000 | 0000</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># = 0 | 01111110 | 00000000000000000000000</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># + exponent mantissa</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># = 0 | 00000000000000000000000 | 01111110</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># mantissa exponent</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># = 0 | 000000000000000000000000 | 01111110</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># zero-pad mantissa exponent</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># = +1.000000 P -01</span> +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muTest"><a href='408print-float.mu.html#L12'>test-print-float-normal</a></span> <span class="Delimiter">{</span> +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L15" class="LineNr"> 15 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># print 0.5</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert one +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert two +<span id="L21" class="LineNr"> 21 </span> half <span class="SpecialChar"><-</span> divide two-f +<span id="L22" class="LineNr"> 22 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, half +<span id="L23" class="LineNr"> 23 </span> <span class="muComment">#</span> +<span id="L24" class="LineNr"> 24 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P-01 "</span>, <span class="Constant">"F - test-print-float-normal"</span> +<span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> +<span id="L26" class="LineNr"> 26 </span> +<span id="L27" class="LineNr"> 27 </span><span class="PreProc">fn</span> <span class="muTest"><a href='408print-float.mu.html#L27'>test-print-float-zero</a></span> <span class="Delimiter">{</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L30" class="LineNr"> 30 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># print 0</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> zero: float +<span id="L33" class="LineNr"> 33 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, zero +<span id="L34" class="LineNr"> 34 </span> <span class="muComment">#</span> +<span id="L35" class="LineNr"> 35 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0 "</span>, <span class="Constant">"F - test-print-float-zero"</span> +<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muTest"><a href='408print-float.mu.html#L38'>test-print-float-negative-zero</a></span> <span class="Delimiter">{</span> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L41" class="LineNr"> 41 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># print 0</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> n: int +<span id="L44" class="LineNr"> 44 </span> copy-to n, <span class="Constant">0x80000000</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L46" class="LineNr"> 46 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, negative-zero +<span id="L47" class="LineNr"> 47 </span> <span class="muComment">#</span> +<span id="L48" class="LineNr"> 48 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-0 "</span>, <span class="Constant">"F - test-print-float-negative-zero"</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="muTest"><a href='408print-float.mu.html#L51'>test-print-float-infinity</a></span> <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L54" class="LineNr"> 54 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># print</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> n: int +<span id="L57" class="LineNr"> 57 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> +<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> +<span id="L59" class="LineNr"> 59 </span> copy-to n, <span class="Constant">0x7f800000</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L61" class="LineNr"> 61 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, infinity +<span id="L62" class="LineNr"> 62 </span> <span class="muComment">#</span> +<span id="L63" class="LineNr"> 63 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Inf "</span>, <span class="Constant">"F - test-print-float-infinity"</span> +<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muTest"><a href='408print-float.mu.html#L66'>test-print-float-negative-infinity</a></span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L69" class="LineNr"> 69 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># print</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> n: int +<span id="L72" class="LineNr"> 72 </span> copy-to n, <span class="Constant">0xff800000</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L74" class="LineNr"> 74 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, negative-infinity +<span id="L75" class="LineNr"> 75 </span> <span class="muComment">#</span> +<span id="L76" class="LineNr"> 76 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-Inf "</span>, <span class="Constant">"F - test-print-float-negative-infinity"</span> +<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> +<span id="L78" class="LineNr"> 78 </span> +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">fn</span> <span class="muTest"><a href='408print-float.mu.html#L79'>test-print-float-not-a-number</a></span> <span class="Delimiter">{</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L82" class="LineNr"> 82 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> +<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># print</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> n: int +<span id="L85" class="LineNr"> 85 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L87" class="LineNr"> 87 </span> <a href='408print-float.mu.html#L92'>print-float</a> <a href='405screen.mu.html#L9'>screen</a>, negative-infinity +<span id="L88" class="LineNr"> 88 </span> <span class="muComment">#</span> +<span id="L89" class="LineNr"> 89 </span> <a href='405screen.mu.html#L657'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Nan "</span>, <span class="Constant">"F - test-print-float-not-a-number"</span> +<span id="L90" class="LineNr"> 90 </span><span class="Delimiter">}</span> +<span id="L91" class="LineNr"> 91 </span> +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408print-float.mu.html#L92'>print-float</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: float <span class="Delimiter">{</span> +<span id="L93" class="LineNr"> 93 </span>$print-float:body: <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> # - special names +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret n +<span id="L96" class="LineNr"> 96 </span> compare bits, <span class="Constant">0</span> +<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='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"0"</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">break</span> $print-float:body +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> +<span id="L102" class="LineNr">102 </span> compare bits, <span class="Constant">0x80000000</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> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-0"</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break</span> $print-float:body +<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> compare bits, <span class="Constant">0x7f800000</span> +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">break-if-!=</span> +<span id="L111" class="LineNr">111 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Inf"</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">break</span> $print-float:body +<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> +<span id="L114" class="LineNr">114 </span> compare bits, <span class="Constant">0xff800000</span> +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">{</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">break-if-!=</span> +<span id="L117" class="LineNr">117 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-Inf"</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">break</span> $print-float:body +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits +<span id="L121" class="LineNr">121 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L122" class="LineNr">122 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> +<span id="L123" class="LineNr">123 </span> compare exponent, <span class="Constant">0xff</span> +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">{</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">break-if-!=</span> +<span id="L126" class="LineNr">126 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Nan"</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">break</span> $print-float:body +<span id="L128" class="LineNr">128 </span> <span class="Delimiter">}</span> +<span id="L129" class="LineNr">129 </span> # - regular numbers +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy bits +<span id="L131" class="LineNr">131 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> compare sign, <span class="Constant">1</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">break-if-!=</span> +<span id="L135" class="LineNr">135 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-"</span> +<span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> $print-float:leading-digit: <span class="Delimiter">{</span> +<span id="L138" class="LineNr">138 </span> <span class="muComment"># check for subnormal numbers</span> +<span id="L139" class="LineNr">139 </span> compare exponent, <span class="Constant">0</span> +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">break-if-!=</span> +<span id="L142" class="LineNr">142 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"0."</span> +<span id="L143" class="LineNr">143 </span> exponent <span class="SpecialChar"><-</span> increment +<span id="L144" class="LineNr">144 </span> <span class="PreProc">break</span> $print-float:leading-digit +<span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> +<span id="L146" class="LineNr">146 </span> <span class="muComment"># normal numbers</span> +<span id="L147" class="LineNr">147 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"1."</span> +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> mantissa/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits +<span id="L150" class="LineNr">150 </span> mantissa <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L151" class="LineNr">151 </span> <a href='405screen.mu.html#L454'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, mantissa, <span class="Constant">0x18</span> +<span id="L152" class="LineNr">152 </span> <span class="muComment"># print exponent</span> +<span id="L153" class="LineNr">153 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"P"</span> +<span id="L154" class="LineNr">154 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L155" class="LineNr">155 </span> compare exponent, <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">break-if->=</span> +<span id="L158" class="LineNr">158 </span> <a href='405screen.mu.html#L179'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-"</span> +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> exp-magnitude/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406try-divide.mu.html#L100'>abs</a> exponent +<span id="L161" class="LineNr">161 </span> <a href='405screen.mu.html#L454'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, exp-magnitude, <span class="Constant">8</span> +<span id="L162" class="LineNr">162 </span><span class="Delimiter">}</span> +<span id="L163" class="LineNr">163 </span><span class="Delimiter">}</span> +<span id="L164" class="LineNr">164 </span> +<span id="L165" class="LineNr">165 </span><span class="CommentedCode">#? fn main -> r/ebx: int {</span> +<span id="L166" class="LineNr">166 </span><span class="CommentedCode">#? run-tests</span> +<span id="L167" class="LineNr">167 </span><span class="CommentedCode">#? #? test-print-float-negative-zero</span> +<span id="L168" class="LineNr">168 </span><span class="CommentedCode">#? #? print-int32-hex 0, 0</span> +<span id="L169" class="LineNr">169 </span><span class="CommentedCode">#? #? test-print-float-normal</span> +<span id="L170" class="LineNr">170 </span><span class="CommentedCode">#? r <- copy 0</span> +<span id="L171" class="LineNr">171 </span><span class="CommentedCode">#? }</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/409float.mu.html b/html/409float.mu.html new file mode 100644 index 00000000..7f7ab3c6 --- /dev/null +++ b/html/409float.mu.html @@ -0,0 +1,78 @@ +<!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 - 409float.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/409float.mu'>https://github.com/akkartik/mu/blob/master/409float.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some quick-n-dirty ways to create floats.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='409float.mu.html#L3'>fill-in-rational</a></span> _out: (addr float), nr: int, dr: int <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert nr +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert dr +<span id="L7" class="LineNr"> 7 </span> result <span class="SpecialChar"><-</span> divide divisor +<span id="L8" class="LineNr"> 8 </span> copy-to *out, result +<span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> +<span id="L10" class="LineNr">10 </span> +<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='409float.mu.html#L11'>fill-in-sqrt</a></span> _out: (addr float), n: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n +<span id="L14" class="LineNr">14 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L15" class="LineNr">15 </span> copy-to *out, result +<span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/arith.mu.html b/html/apps/arith.mu.html index 80cd7ae6..7350b6f2 100644 --- a/html/apps/arith.mu.html +++ b/html/apps/arith.mu.html @@ -15,11 +15,11 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -57,261 +57,260 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/arith.mu'>https://github.com/akkartik/mu/blob/master/apps/arith.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Integer arithmetic using conventional precedence.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># Follows part 2 of Jack Crenshaw's "Let's build a compiler!"</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># <a href="https://compilers.iecc.com/crenshaw">https://compilers.iecc.com/crenshaw</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># Limitations:</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># Reads numbers in decimal, but prints numbers in hex :(</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># No division yet.</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment">#</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment"># To build:</span> -<span id="L11" class="LineNr"> 11 </span><span class="Comment"># $ ./translate_mu apps/arith.mu</span> -<span id="L12" class="LineNr"> 12 </span><span class="Comment">#</span> -<span id="L13" class="LineNr"> 13 </span><span class="Comment"># Example session:</span> -<span id="L14" class="LineNr"> 14 </span><span class="Comment"># $ ./a.elf</span> -<span id="L15" class="LineNr"> 15 </span><span class="Comment"># press ctrl-c or ctrl-d to exit</span> -<span id="L16" class="LineNr"> 16 </span><span class="Comment"># > 1</span> -<span id="L17" class="LineNr"> 17 </span><span class="Comment"># 0x00000001</span> -<span id="L18" class="LineNr"> 18 </span><span class="Comment"># > 1+1</span> -<span id="L19" class="LineNr"> 19 </span><span class="Comment"># 0x00000002</span> -<span id="L20" class="LineNr"> 20 </span><span class="Comment"># > 1 + 1</span> -<span id="L21" class="LineNr"> 21 </span><span class="Comment"># 0x00000002</span> -<span id="L22" class="LineNr"> 22 </span><span class="Comment"># > 1+2 +3</span> -<span id="L23" class="LineNr"> 23 </span><span class="Comment"># 0x00000006</span> -<span id="L24" class="LineNr"> 24 </span><span class="Comment"># > 1+2 *3</span> -<span id="L25" class="LineNr"> 25 </span><span class="Comment"># 0x00000007</span> -<span id="L26" class="LineNr"> 26 </span><span class="Comment"># > (1+2) *3</span> -<span id="L27" class="LineNr"> 27 </span><span class="Comment"># 0x00000009</span> -<span id="L28" class="LineNr"> 28 </span><span class="Comment"># > 1 + 3*4</span> -<span id="L29" class="LineNr"> 29 </span><span class="Comment"># 0x0000000d</span> -<span id="L30" class="LineNr"> 30 </span><span class="Comment"># > ^D</span> -<span id="L31" class="LineNr"> 31 </span><span class="Comment"># $</span> -<span id="L32" class="LineNr"> 32 </span><span class="Comment">#</span> -<span id="L33" class="LineNr"> 33 </span><span class="Comment"># Error handling is non-existent. This is just a prototype.</span> -<span id="L34" class="LineNr"> 34 </span> -<span id="L35" class="LineNr"> 35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L35'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># lookahead</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># result of each expression</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> -<span id="L39" class="LineNr"> 39 </span> <span class="Comment"># read-eval-print loop</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Comment"># print prompt</span> -<span id="L42" class="LineNr"> 42 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"> "</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Comment"># read and eval</span> -<span id="L44" class="LineNr"> 44 </span> n, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L57'>simplify</a> <span class="Comment"># we explicitly thread 'look' everywhere</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Comment"># if (look == 0) break</span> -<span id="L46" class="LineNr"> 46 </span> compare look, <span class="Constant">0</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Comment"># print</span> -<span id="L49" class="LineNr"> 49 </span> <a href='../405screen.mu.html#L427'>print-int32-hex</a> <span class="Constant">0</span>, n -<span id="L50" class="LineNr"> 50 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Comment">#</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> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L57'>simplify</a></span><span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Comment"># prime the pump</span> -<span id="L59" class="LineNr"> 59 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> -<span id="L60" class="LineNr"> 60 </span> <span class="Comment"># do it</span> -<span id="L61" class="LineNr"> 61 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L64'>expression</a> look -<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L64'>expression</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L65" class="LineNr"> 65 </span> look <span class="SpecialChar"><-</span> copy _look <span class="Comment"># should be a no-op</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Comment"># read arg</span> -<span id="L67" class="LineNr"> 67 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L107'>term</a> look -<span id="L68" class="LineNr"> 68 </span> $expression:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Comment"># while next non-space char in ['+', '-']</span> -<span id="L70" class="LineNr"> 70 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">{</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L187'>is-add-or-sub?</a> look -<span id="L73" class="LineNr"> 73 </span> compare continue?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-=</span> $expression:<span class="PreProc">loop</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">}</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Comment"># read operator</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L78" class="LineNr"> 78 </span> op, look <span class="SpecialChar"><-</span> operator look -<span id="L79" class="LineNr"> 79 </span> <span class="Comment"># read next arg</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L81" class="LineNr"> 81 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L84" class="LineNr"> 84 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L107'>term</a> look -<span id="L85" class="LineNr"> 85 </span> second <span class="SpecialChar"><-</span> copy tmp -<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Comment"># reduce</span> -<span id="L88" class="LineNr"> 88 </span> $expression:perform-op: <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">{</span> -<span id="L90" class="LineNr"> 90 </span> compare op, <span class="Constant">0x2b</span> <span class="Comment"># '+'</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">break-if-!=</span> -<span id="L92" class="LineNr"> 92 </span> result <span class="SpecialChar"><-</span> add second -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break</span> $expression:perform-op -<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> compare op, <span class="Constant">0x2d</span> <span class="Comment"># '-'</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-!=</span> -<span id="L98" class="LineNr"> 98 </span> result <span class="SpecialChar"><-</span> subtract second -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break</span> $expression:perform-op -<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 class="PreProc">loop</span> -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> -<span id="L104" class="LineNr">104 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> -<span id="L106" class="LineNr">106 </span> -<span id="L107" class="LineNr">107 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L107'>term</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L108" class="LineNr">108 </span> look <span class="SpecialChar"><-</span> copy _look <span class="Comment"># should be a no-op</span> -<span id="L109" class="LineNr">109 </span> <span class="Comment"># read arg</span> -<span id="L110" class="LineNr">110 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L111" class="LineNr">111 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L150'>factor</a> look -<span id="L112" class="LineNr">112 </span> $term:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="Comment"># while next non-space char in ['*', '/']</span> -<span id="L114" class="LineNr">114 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L115" class="LineNr">115 </span> <span class="Delimiter">{</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L169'>is-mul-or-div?</a> look -<span id="L117" class="LineNr">117 </span> compare continue?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-=</span> $term:<span class="PreProc">loop</span> -<span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> -<span id="L120" class="LineNr">120 </span> <span class="Comment"># read operator</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L122" class="LineNr">122 </span> op, look <span class="SpecialChar"><-</span> operator look -<span id="L123" class="LineNr">123 </span> <span class="Comment"># read next arg</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L125" class="LineNr">125 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L128" class="LineNr">128 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L150'>factor</a> look -<span id="L129" class="LineNr">129 </span> second <span class="SpecialChar"><-</span> copy tmp -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> <span class="Comment"># reduce</span> -<span id="L132" class="LineNr">132 </span> $term:perform-op: <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="Delimiter">{</span> -<span id="L134" class="LineNr">134 </span> compare op, <span class="Constant">0x2a</span> <span class="Comment"># '*'</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">break-if-!=</span> -<span id="L136" class="LineNr">136 </span> result <span class="SpecialChar"><-</span> multiply second -<span id="L137" class="LineNr">137 </span> <span class="PreProc">break</span> $term:perform-op -<span id="L138" class="LineNr">138 </span> <span class="Delimiter">}</span> -<span id="L139" class="LineNr">139 </span><span class="CommentedCode">#? {</span> -<span id="L140" class="LineNr">140 </span><span class="CommentedCode">#? compare op, 0x2f # '/'</span> -<span id="L141" class="LineNr">141 </span><span class="CommentedCode">#? break-if-!=</span> -<span id="L142" class="LineNr">142 </span><span class="CommentedCode">#? result <- divide second # not in Mu yet</span> -<span id="L143" class="LineNr">143 </span><span class="CommentedCode">#? break $term:perform-op</span> -<span id="L144" class="LineNr">144 </span><span class="CommentedCode">#? }</span> -<span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">loop</span> -<span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span> -<span id="L148" class="LineNr">148 </span><span class="Delimiter">}</span> -<span id="L149" class="LineNr">149 </span> -<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L150'>factor</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L151" class="LineNr">151 </span>$factor:body: <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> look <span class="SpecialChar"><-</span> copy _look <span class="Comment"># should be a no-op</span> -<span id="L153" class="LineNr">153 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L154" class="LineNr">154 </span> <span class="Comment"># if next char is not '(', parse a number</span> -<span id="L155" class="LineNr">155 </span> compare look, <span class="Constant">0x28</span> <span class="Comment"># '('</span> -<span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">break-if-=</span> -<span id="L158" class="LineNr">158 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L210'>num</a> look -<span id="L159" class="LineNr">159 </span> <span class="PreProc">break</span> $factor:body -<span id="L160" class="LineNr">160 </span> <span class="Delimiter">}</span> -<span id="L161" class="LineNr">161 </span> <span class="Comment"># otherwise recurse</span> -<span id="L162" class="LineNr">162 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> <span class="Comment"># '('</span> -<span id="L163" class="LineNr">163 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L64'>expression</a> look -<span id="L164" class="LineNr">164 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L236'>skip-spaces</a> look -<span id="L165" class="LineNr">165 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> <span class="Comment"># ')'</span> -<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> <span class="Comment"># $factor:body</span> -<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='arith.mu.html#L169'>is-mul-or-div?</a></span> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span>$is-mul-or-div?:body: <span class="Delimiter">{</span> -<span id="L171" class="LineNr">171 </span> compare c, <span class="Constant">0x2a</span> <span class="Comment"># '*'</span> -<span id="L172" class="LineNr">172 </span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">break-if-!=</span> -<span id="L174" class="LineNr">174 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L175" class="LineNr">175 </span> <span class="PreProc">break</span> $is-mul-or-div?:body -<span id="L176" class="LineNr">176 </span> <span class="Delimiter">}</span> -<span id="L177" class="LineNr">177 </span> compare c, <span class="Constant">0x2f</span> <span class="Comment"># '/'</span> -<span id="L178" class="LineNr">178 </span> <span class="Delimiter">{</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">break-if-!=</span> -<span id="L180" class="LineNr">180 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">break</span> $is-mul-or-div?:body -<span id="L182" class="LineNr">182 </span> <span class="Delimiter">}</span> -<span id="L183" class="LineNr">183 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> <span class="Comment"># $is-mul-or-div?:body</span> -<span id="L185" class="LineNr">185 </span><span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> -<span id="L187" class="LineNr">187 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L187'>is-add-or-sub?</a></span> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L188" class="LineNr">188 </span>$is-add-or-sub?:body: <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> compare c, <span class="Constant">0x2b</span> <span class="Comment"># '+'</span> -<span id="L190" class="LineNr">190 </span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">break-if-!=</span> -<span id="L192" class="LineNr">192 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">break</span> $is-add-or-sub?:body -<span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> -<span id="L195" class="LineNr">195 </span> compare c, <span class="Constant">0x2d</span> <span class="Comment"># '-'</span> -<span id="L196" class="LineNr">196 </span> <span class="Delimiter">{</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">break-if-!=</span> -<span id="L198" class="LineNr">198 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break</span> $is-add-or-sub?:body -<span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> -<span id="L201" class="LineNr">201 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> <span class="Comment"># $is-add-or-sub?:body</span> -<span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> -<span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction">operator</span> _look: byte<span class="PreProc"> -> </span>op/<span class="Constant">ecx</span>: byte, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> op <span class="SpecialChar"><-</span> copy _look -<span id="L207" class="LineNr">207 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> -<span id="L208" class="LineNr">208 </span><span class="Delimiter">}</span> -<span id="L209" class="LineNr">209 </span> -<span id="L210" class="LineNr">210 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L210'>num</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L211" class="LineNr">211 </span> look <span class="SpecialChar"><-</span> copy _look <span class="Comment"># should be a no-op</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> first-digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look -<span id="L215" class="LineNr">215 </span> out <span class="SpecialChar"><-</span> copy first-digit -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span> <span class="Delimiter">{</span> -<span id="L218" class="LineNr">218 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> -<span id="L219" class="LineNr">219 </span> <span class="Comment"># done?</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> look -<span id="L221" class="LineNr">221 </span> compare digit?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L222" class="LineNr">222 </span> <span class="PreProc">break-if-=</span> -<span id="L223" class="LineNr">223 </span> <span class="Comment"># out *= 10</span> -<span id="L224" class="LineNr">224 </span> <span class="Delimiter">{</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L226" class="LineNr">226 </span> out <span class="SpecialChar"><-</span> multiply ten -<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> <span class="Comment"># out += digit(look)</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look -<span id="L230" class="LineNr">230 </span> out <span class="SpecialChar"><-</span> add digit -<span id="L231" class="LineNr">231 </span> <span class="PreProc">loop</span> -<span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span> result <span class="SpecialChar"><-</span> copy out -<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='arith.mu.html#L236'>skip-spaces</a></span> _look: byte<span class="PreProc"> -> </span>look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> look <span class="SpecialChar"><-</span> copy _look <span class="Comment"># should be a no-op</span> -<span id="L238" class="LineNr">238 </span> <span class="Delimiter">{</span> -<span id="L239" class="LineNr">239 </span> compare look, <span class="Constant">0x20</span> -<span id="L240" class="LineNr">240 </span> <span class="PreProc">break-if-!=</span> -<span id="L241" class="LineNr">241 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L246'>get-char</a> -<span id="L242" class="LineNr">242 </span> <span class="PreProc">loop</span> -<span id="L243" class="LineNr">243 </span> <span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span><span class="Delimiter">}</span> -<span id="L245" class="LineNr">245 </span> -<span id="L246" class="LineNr">246 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L246'>get-char</a></span><span class="PreProc"> -> </span>look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L122'>read-key</a> -<span id="L248" class="LineNr">248 </span> look <span class="SpecialChar"><-</span> copy tmp -<span id="L249" class="LineNr">249 </span> compare look, <span class="Constant">0</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> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"^D\n"</span> -<span id="L253" class="LineNr">253 </span> syscall_exit -<span id="L254" class="LineNr">254 </span> <span class="Delimiter">}</span> -<span id="L255" class="LineNr">255 </span><span class="Delimiter">}</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Integer arithmetic using conventional precedence.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Follows part 2 of Jack Crenshaw's "Let's build a compiler!"</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># <a href="https://compilers.iecc.com/crenshaw">https://compilers.iecc.com/crenshaw</a></span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Limitations:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># No division yet.</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># To build:</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ ./translate_mu apps/arith.mu</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Example session:</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># $ ./a.elf</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># press ctrl-c or ctrl-d to exit</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># > 1</span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment"># 1</span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># > 1+1</span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># 2</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># > 1 + 1</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># 2</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment"># > 1+2 +3</span> +<span id="L22" class="LineNr"> 22 </span><span class="muComment"># 6</span> +<span id="L23" class="LineNr"> 23 </span><span class="muComment"># > 1+2 *3</span> +<span id="L24" class="LineNr"> 24 </span><span class="muComment"># 7</span> +<span id="L25" class="LineNr"> 25 </span><span class="muComment"># > (1+2) *3</span> +<span id="L26" class="LineNr"> 26 </span><span class="muComment"># 9</span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># > 1 + 3*4</span> +<span id="L28" class="LineNr"> 28 </span><span class="muComment"># 13</span> +<span id="L29" class="LineNr"> 29 </span><span class="muComment"># > ^D</span> +<span id="L30" class="LineNr"> 30 </span><span class="muComment"># $</span> +<span id="L31" class="LineNr"> 31 </span><span class="muComment">#</span> +<span id="L32" class="LineNr"> 32 </span><span class="muComment"># Error handling is non-existent. This is just a prototype.</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L34'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># lookahead</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># result of each expression</span> +<span id="L37" class="LineNr"> 37 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># read-eval-print loop</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># print prompt</span> +<span id="L41" class="LineNr"> 41 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"> "</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># read and eval</span> +<span id="L43" class="LineNr"> 43 </span> n, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L56'>simplify</a> <span class="muComment"># we explicitly thread 'look' everywhere</span> +<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># if (look == 0) break</span> +<span id="L45" class="LineNr"> 45 </span> compare look, <span class="Constant">0</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">break-if-=</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># print</span> +<span id="L48" class="LineNr"> 48 </span> <a href='../405screen.mu.html#L481'>print-int32-decimal</a> <span class="Constant">0</span>, n +<span id="L49" class="LineNr"> 49 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="muComment">#</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> exit-status <span class="SpecialChar"><-</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> +<span id="L56" class="LineNr"> 56 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L56'>simplify</a></span><span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L57" class="LineNr"> 57 </span> <span class="muComment"># prime the pump</span> +<span id="L58" class="LineNr"> 58 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># do it</span> +<span id="L60" class="LineNr"> 60 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L63'>expression</a> look +<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='arith.mu.html#L63'>expression</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> look <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># read arg</span> +<span id="L66" class="LineNr"> 66 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L106'>term</a> look +<span id="L67" class="LineNr"> 67 </span> $expression:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="muComment"># while next non-space char in ['+', '-']</span> +<span id="L69" class="LineNr"> 69 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L186'>is-add-or-sub?</a> look +<span id="L72" class="LineNr"> 72 </span> compare continue?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-=</span> $expression:<span class="PreProc">loop</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">}</span> +<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># read operator</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L77" class="LineNr"> 77 </span> op, look <span class="SpecialChar"><-</span> operator look +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># read next arg</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L80" class="LineNr"> 80 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L83" class="LineNr"> 83 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L106'>term</a> look +<span id="L84" class="LineNr"> 84 </span> second <span class="SpecialChar"><-</span> copy tmp +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span> <span class="muComment"># reduce</span> +<span id="L87" class="LineNr"> 87 </span> $expression:perform-op: <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> compare op, <span class="Constant">0x2b</span> <span class="muComment"># '+'</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-!=</span> +<span id="L91" class="LineNr"> 91 </span> result <span class="SpecialChar"><-</span> add second +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">break</span> $expression:perform-op +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">}</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> compare op, <span class="Constant">0x2d</span> <span class="muComment"># '-'</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-!=</span> +<span id="L97" class="LineNr"> 97 </span> result <span class="SpecialChar"><-</span> subtract second +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break</span> $expression:perform-op +<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> <span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">loop</span> +<span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> +<span id="L105" class="LineNr">105 </span> +<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L106'>term</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L107" class="LineNr">107 </span> look <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L108" class="LineNr">108 </span> <span class="muComment"># read arg</span> +<span id="L109" class="LineNr">109 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L110" class="LineNr">110 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L149'>factor</a> look +<span id="L111" class="LineNr">111 </span> $term:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="muComment"># while next non-space char in ['*', '/']</span> +<span id="L113" class="LineNr">113 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L114" class="LineNr">114 </span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L168'>is-mul-or-div?</a> look +<span id="L116" class="LineNr">116 </span> compare continue?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">break-if-=</span> $term:<span class="PreProc">loop</span> +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> <span class="muComment"># read operator</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L121" class="LineNr">121 </span> op, look <span class="SpecialChar"><-</span> operator look +<span id="L122" class="LineNr">122 </span> <span class="muComment"># read next arg</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L124" class="LineNr">124 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L127" class="LineNr">127 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L149'>factor</a> look +<span id="L128" class="LineNr">128 </span> second <span class="SpecialChar"><-</span> copy tmp +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> <span class="muComment"># reduce</span> +<span id="L131" class="LineNr">131 </span> $term:perform-op: <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> compare op, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">break-if-!=</span> +<span id="L135" class="LineNr">135 </span> result <span class="SpecialChar"><-</span> multiply second +<span id="L136" class="LineNr">136 </span> <span class="PreProc">break</span> $term:perform-op +<span id="L137" class="LineNr">137 </span> <span class="Delimiter">}</span> +<span id="L138" class="LineNr">138 </span><span class="CommentedCode">#? {</span> +<span id="L139" class="LineNr">139 </span><span class="CommentedCode">#? compare op, 0x2f # '/'</span> +<span id="L140" class="LineNr">140 </span><span class="CommentedCode">#? break-if-!=</span> +<span id="L141" class="LineNr">141 </span><span class="CommentedCode">#? result <- divide second # not in Mu yet</span> +<span id="L142" class="LineNr">142 </span><span class="CommentedCode">#? break $term:perform-op</span> +<span id="L143" class="LineNr">143 </span><span class="CommentedCode">#? }</span> +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">loop</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 id="L149" class="LineNr">149 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L149'>factor</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span>$factor:body: <span class="Delimiter">{</span> +<span id="L151" class="LineNr">151 </span> look <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L152" class="LineNr">152 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L153" class="LineNr">153 </span> <span class="muComment"># if next char is not '(', parse a number</span> +<span id="L154" class="LineNr">154 </span> compare look, <span class="Constant">0x28</span> <span class="muComment"># '('</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> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L209'>num</a> look +<span id="L158" class="LineNr">158 </span> <span class="PreProc">break</span> $factor:body +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> <span class="muComment"># otherwise recurse</span> +<span id="L161" class="LineNr">161 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> <span class="muComment"># '('</span> +<span id="L162" class="LineNr">162 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L63'>expression</a> look +<span id="L163" class="LineNr">163 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L235'>skip-spaces</a> look +<span id="L164" class="LineNr">164 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> <span class="muComment"># ')'</span> +<span id="L165" class="LineNr">165 </span><span class="Delimiter">}</span> <span class="muComment"># $factor:body</span> +<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> +<span id="L167" class="LineNr">167 </span> +<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L168'>is-mul-or-div?</a></span> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L169" class="LineNr">169 </span>$is-mul-or-div?:body: <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</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> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L174" class="LineNr">174 </span> <span class="PreProc">break</span> $is-mul-or-div?:body +<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> compare c, <span class="Constant">0x2f</span> <span class="muComment"># '/'</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> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">break</span> $is-mul-or-div?:body +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> +<span id="L182" class="LineNr">182 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> <span class="muComment"># $is-mul-or-div?:body</span> +<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> +<span id="L185" class="LineNr">185 </span> +<span id="L186" class="LineNr">186 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L186'>is-add-or-sub?</a></span> c: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span>$is-add-or-sub?:body: <span class="Delimiter">{</span> +<span id="L188" class="LineNr">188 </span> compare c, <span class="Constant">0x2b</span> <span class="muComment"># '+'</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-!=</span> +<span id="L191" class="LineNr">191 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break</span> $is-add-or-sub?:body +<span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> +<span id="L194" class="LineNr">194 </span> compare c, <span class="Constant">0x2d</span> <span class="muComment"># '-'</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> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">break</span> $is-add-or-sub?:body +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> <span class="muComment"># $is-add-or-sub?:body</span> +<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> +<span id="L204" class="LineNr">204 </span><span class="PreProc">fn</span> <span class="muFunction">operator</span> _look: byte<span class="PreProc"> -> </span>op/<span class="Constant">ecx</span>: byte, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L205" class="LineNr">205 </span> op <span class="SpecialChar"><-</span> copy _look +<span id="L206" class="LineNr">206 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> +<span id="L207" class="LineNr">207 </span><span class="Delimiter">}</span> +<span id="L208" class="LineNr">208 </span> +<span id="L209" class="LineNr">209 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L209'>num</a></span> _look: byte<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int, look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> look <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L212" class="LineNr">212 </span> <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> first-digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look +<span id="L214" class="LineNr">214 </span> out <span class="SpecialChar"><-</span> copy first-digit +<span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> +<span id="L216" class="LineNr">216 </span> <span class="Delimiter">{</span> +<span id="L217" class="LineNr">217 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> +<span id="L218" class="LineNr">218 </span> <span class="muComment"># done?</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> look +<span id="L220" class="LineNr">220 </span> compare digit?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-=</span> +<span id="L222" class="LineNr">222 </span> <span class="muComment"># out *= 10</span> +<span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> +<span id="L225" class="LineNr">225 </span> out <span class="SpecialChar"><-</span> multiply ten +<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span> <span class="muComment"># out += digit(look)</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look +<span id="L229" class="LineNr">229 </span> out <span class="SpecialChar"><-</span> add digit +<span id="L230" class="LineNr">230 </span> <span class="PreProc">loop</span> +<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span> result <span class="SpecialChar"><-</span> copy out +<span id="L233" class="LineNr">233 </span><span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> +<span id="L235" class="LineNr">235 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L235'>skip-spaces</a></span> _look: byte<span class="PreProc"> -> </span>look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> look <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L237" class="LineNr">237 </span> <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> compare look, <span class="Constant">0x20</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">break-if-!=</span> +<span id="L240" class="LineNr">240 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L245'>get-char</a> +<span id="L241" class="LineNr">241 </span> <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="Delimiter">}</span> +<span id="L244" class="LineNr">244 </span> +<span id="L245" class="LineNr">245 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L245'>get-char</a></span><span class="PreProc"> -> </span>look/<span class="Constant">esi</span>: byte <span class="Delimiter">{</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L247" class="LineNr">247 </span> look <span class="SpecialChar"><-</span> copy tmp +<span id="L248" class="LineNr">248 </span> compare look, <span class="Constant">0</span> +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">break-if-!=</span> +<span id="L251" class="LineNr">251 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"^D\n"</span> +<span id="L252" class="LineNr">252 </span> syscall_exit +<span id="L253" class="LineNr">253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/assort.subx.html b/html/apps/assort.subx.html index 864be9ce..cfcc9c9c 100644 --- a/html/apps/assort.subx.html +++ b/html/apps/assort.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -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 @@ -363,15 +363,15 @@ if ('onhashchange' in window) { <span id="L317" class="LineNr"> 317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># subx-assort(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . call</span> <span id="L323" class="LineNr"> 323 </span> e8/call <a href='assort.subx.html#L88'>subx-assort</a>/disp32 <span id="L324" class="LineNr"> 324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L325" class="LineNr"> 325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L326" class="LineNr"> 326 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L327" class="LineNr"> 327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr"> 328 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L328" class="LineNr"> 328 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L329" class="LineNr"> 329 </span> <span class="subxS2Comment"># . . call</span> <span id="L330" class="LineNr"> 330 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L331" class="LineNr"> 331 </span> <span class="subxS2Comment"># . . discard args</span> @@ -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> @@ -607,7 +607,7 @@ if ('onhashchange' in window) { <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/apps/braces.subx.html b/html/apps/braces.subx.html index b04f007c..2be7916c 100644 --- a/html/apps/braces.subx.html +++ b/html/apps/braces.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; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } @@ -218,7 +218,7 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr">159 </span><span class="Constant">$subx-braces:emit-curly-open</span>: <span id="L160" class="LineNr">160 </span> <span class="subxComment"># print(out, "_loop" next-label-id ":")</span> <span id="L161" class="LineNr">161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) -<span id="L162" class="LineNr">162 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) %ebx) +<span id="L162" class="LineNr">162 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %ebx) <span id="L163" class="LineNr">163 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L164" class="LineNr">164 </span> <span class="subxComment"># push(label-stack, next-label-id)</span> <span id="L165" class="LineNr">165 </span> (<a href='../203stack.subx.html#L114'>push</a> %edx %ebx) @@ -235,7 +235,7 @@ if ('onhashchange' in window) { <span id="L176" class="LineNr">176 </span> (<a href='../203stack.subx.html#L234'>pop</a> %edx) <span id="L177" class="LineNr">177 </span> <span class="subxComment"># print(out, "_break" eax ":")</span> <span id="L178" class="LineNr">178 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) -<span id="L179" class="LineNr">179 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L179" class="LineNr">179 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L180" class="LineNr">180 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L181" class="LineNr">181 </span> <span class="subxComment"># continue</span> <span id="L182" class="LineNr">182 </span> e9/jump $subx-braces:next-line/disp32 @@ -266,7 +266,7 @@ if ('onhashchange' in window) { <span id="L207" class="LineNr">207 </span> (<a href='../203stack.subx.html#L338'>top</a> %edx) <span id="L208" class="LineNr">208 </span> <span class="subxComment"># print(out, "_break" eax)</span> <span id="L209" class="LineNr">209 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) -<span id="L210" class="LineNr">210 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L210" class="LineNr">210 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L211" class="LineNr">211 </span> <span class="subxComment"># word-slice->start += len("break")</span> <span id="L212" class="LineNr">212 </span> 81 0/subop/add *edi 5/imm32/strlen <span id="L213" class="LineNr">213 </span> <span class="subxComment"># emit rest of word as usual</span> @@ -282,7 +282,7 @@ if ('onhashchange' in window) { <span id="L223" class="LineNr">223 </span> (<a href='../203stack.subx.html#L338'>top</a> %edx) <span id="L224" class="LineNr">224 </span> <span class="subxComment"># print(out, "_loop" eax)</span> <span id="L225" class="LineNr">225 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) -<span id="L226" class="LineNr">226 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L226" class="LineNr">226 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L227" class="LineNr">227 </span> <span class="subxComment"># word-slice->start += len("loop")</span> <span id="L228" class="LineNr">228 </span> 81 0/subop/add *edi 4/imm32/strlen <span id="L229" class="LineNr">229 </span> <span class="subxComment"># fall through</span> @@ -325,10 +325,10 @@ if ('onhashchange' in window) { <span id="L266" class="LineNr">266 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L267" class="LineNr">267 </span> <span class="subxComment"># test</span> <span id="L268" class="LineNr">268 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"== abcd 0x1"</span>) -<span id="L269" class="LineNr">269 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>) +<span id="L269" class="LineNr">269 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="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#L359'>_test-output-buffered-file</a>) -<span id="L272" class="Folded">272 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L271" class="LineNr">271 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L272" class="Folded">272 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L277" class="LineNr">277 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"== abcd 0x1 \n"</span> <span class="Constant">"F - test-subx-braces-passes-most-words-through"</span>) <span id="L278" class="LineNr">278 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L279" class="LineNr">279 </span> 89/<- %esp 5/r32/ebp @@ -358,10 +358,10 @@ if ('onhashchange' in window) { <span id="L303" class="LineNr">303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L304" class="LineNr">304 </span> <span class="subxComment"># test</span> <span id="L305" class="LineNr">305 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\nab break/imm32\ncd loop/imm32\n}"</span>) -<span id="L306" class="LineNr">306 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>) +<span id="L306" class="LineNr">306 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="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#L359'>_test-output-buffered-file</a>) -<span id="L309" class="Folded">309 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L308" class="LineNr">308 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L309" class="Folded">309 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L314" class="LineNr">314 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\nab _break0x00000001/imm32 \ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-1"</span>) <span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L316" class="LineNr">316 </span> 89/<- %esp 5/r32/ebp @@ -395,10 +395,10 @@ if ('onhashchange' in window) { <span id="L344" class="LineNr">344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L345" class="LineNr">345 </span> <span class="subxComment"># test</span> <span id="L346" class="LineNr">346 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\n{\nab break/imm32\n}\ncd loop/imm32\n}"</span>) -<span id="L347" class="LineNr">347 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>) +<span id="L347" class="LineNr">347 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="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#L359'>_test-output-buffered-file</a>) -<span id="L350" class="Folded">350 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L349" class="LineNr">349 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L350" class="Folded">350 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L355" class="LineNr">355 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\n_loop0x00000002:\nab _break0x00000002/imm32 \n_break0x00000002:\ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-2"</span>) <span id="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/apps/browse/main.mu.html b/html/apps/browse/main.mu.html index 72eae1e4..6f66e8b8 100644 --- a/html/apps/browse/main.mu.html +++ b/html/apps/browse/main.mu.html @@ -14,15 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muTest { color: #5f8700; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } -.Comment { color: #005faf; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } -.SalientComment { color: #0000af; } --> </style> @@ -60,10 +59,10 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L1'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args <span id="L4" class="LineNr"> 4 </span> $main-body: <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Comment"># if (len(args) <= 1) print usage and exit</span> -<span id="L6" class="LineNr"> 6 </span> compare tmp, <span class="Constant">1</span> +<span id="L5" class="LineNr"> 5 </span> <span class="muComment"># if (len(args) <= 1) print usage and exit</span> +<span id="L6" class="LineNr"> 6 </span> compare len, <span class="Constant">1</span> <span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if-></span> <span id="L9" class="LineNr"> 9 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"usage: browse [filename]\n"</span> @@ -71,390 +70,400 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">break</span> $main-body <span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">}</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Comment"># if (args[1] == "test") run-tests()</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp2, <span class="Constant">"test"</span> -<span id="L17" class="LineNr"> 17 </span> compare tmp3, <span class="Constant">0</span> +<span id="L14" class="LineNr"> 14 </span> <span class="muComment"># if (args[1] == "test") run-tests()</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test"</span> +<span id="L17" class="LineNr"> 17 </span> compare tmp2, <span class="Constant">0</span> <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">{</span> <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">break-if-=</span> <span id="L20" class="LineNr"> 20 </span> run-tests -<span id="L21" class="LineNr"> 21 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># TODO: get at Num-test-failures somehow</span> +<span id="L21" class="LineNr"> 21 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> <span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break</span> $main-body <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Comment"># otherwise interactive mode</span> +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># otherwise interactive mode</span> <span id="L25" class="LineNr"> 25 </span> exit-status <span class="SpecialChar"><-</span> <a href='main.mu.html#L29'>interactive</a> args-on-stack <span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">}</span> <span id="L28" class="LineNr"> 28 </span> <span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L29'>interactive</a></span> args: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Comment"># initialize fs from args[1]</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> filename/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='main.mu.html#L388'>first-arg</a> args -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> file-storage: (handle buffered-file) -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> file-storage-addr/<span class="Constant">esi</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address file-storage -<span id="L34" class="LineNr"> 34 </span> <a href='../../306files.subx.html#L12'>open</a> filename, <span class="Constant">0</span>, file-storage-addr -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> _fs/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> file-storage -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> fs/<span class="Constant">esi</span>: (addr buffered-file) <span class="SpecialChar"><-</span> copy _fs -<span id="L37" class="LineNr"> 37 </span> <span class="Comment">#</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../../304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L39" class="LineNr"> 39 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L40" class="LineNr"> 40 </span> <span class="Comment"># initialize screen state</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> paginated-screen-storage: paginated-screen -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> paginated-screen/<span class="Constant">eax</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address paginated-screen-storage -<span id="L43" class="LineNr"> 43 </span> initialize-paginated-screen paginated-screen, <span class="Constant">0x40</span>, <span class="Constant">2</span>, <span class="Constant">5</span> -<span id="L44" class="LineNr"> 44 </span> <a href='main.mu.html#L394'>normal-text</a> paginated-screen -<span id="L45" class="LineNr"> 45 </span> <span class="Comment">#</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <a href='main.mu.html#L57'>render</a> paginated-screen, fs -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L122'>read-key</a> -<span id="L49" class="LineNr"> 49 </span> compare key, <span class="Constant">0x71</span> <span class="Comment"># 'q'</span> -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">loop-if-!=</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> -<span id="L52" class="LineNr"> 52 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L53" class="LineNr"> 53 </span> <a href='../../304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L54" class="LineNr"> 54 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L57'>render</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> start-drawing <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L59" class="LineNr"> 59 </span> <a href='main.mu.html#L157'>render-normal</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<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="muTest"><a href='main.mu.html#L62'>test-render-multicolumn-text</a></span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Comment"># input text</span> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L66" class="LineNr"> 66 </span> <a href='../../306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"abcdefgh"</span>, input-ah -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L68" class="LineNr"> 68 </span> <span class="Comment"># output screen</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> pg: paginated-screen -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg -<span id="L71" class="LineNr"> 71 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 3 rows, 6 columns, 2 pages * 2 columns each</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Comment">#</span> -<span id="L73" class="LineNr"> 73 </span> <a href='main.mu.html#L57'>render</a> pg-addr, in -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L76" class="LineNr"> 76 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L62'>test-render-multicolumn-text</a>/row1"</span> -<span id="L77" class="LineNr"> 77 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='main.mu.html#L62'>test-render-multicolumn-text</a>/row2"</span> -<span id="L78" class="LineNr"> 78 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='main.mu.html#L62'>test-render-multicolumn-text</a>/row3"</span> -<span id="L79" class="LineNr"> 79 </span><span class="Delimiter">}</span> -<span id="L80" class="LineNr"> 80 </span> -<span id="L81" class="LineNr"> 81 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L81'>test-render-heading-text</a></span> <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Comment"># input text</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L85" class="LineNr"> 85 </span> <a href='../../306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"# abc\n\ndef"</span>, input-ah -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L87" class="LineNr"> 87 </span> <span class="Comment"># output screen</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> pg: paginated-screen -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg -<span id="L90" class="LineNr"> 90 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 6 columns, single page</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Comment">#</span> -<span id="L92" class="LineNr"> 92 </span> <a href='main.mu.html#L57'>render</a> pg-addr, in -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L95" class="LineNr"> 95 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L81'>test-render-heading-text</a>/row1"</span> -<span id="L96" class="LineNr"> 96 </span> <a href='../../405screen.mu.html#L657'>check-screen-row-in-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">2</span>, <span class="Constant">" abc "</span>, <span class="Constant">"F - <a href='main.mu.html#L81'>test-render-heading-text</a>/heading"</span> -<span id="L97" class="LineNr"> 97 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L81'>test-render-heading-text</a>/row3"</span> -<span id="L98" class="LineNr"> 98 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">" def "</span>, <span class="Constant">"F - <a href='main.mu.html#L81'>test-render-heading-text</a>/row4"</span> -<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L101'>test-render-bold-text</a></span> <span class="Delimiter">{</span> -<span id="L102" class="LineNr">102 </span> <span class="Comment"># input text</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L105" class="LineNr">105 </span> <a href='../../306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"a *b* c"</span>, input-ah -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L107" class="LineNr">107 </span> <span class="Comment"># output screen</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> pg: paginated-screen -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg -<span id="L110" class="LineNr">110 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 6 columns, single page</span> -<span id="L111" class="LineNr">111 </span> <span class="Comment">#</span> -<span id="L112" class="LineNr">112 </span> <a href='main.mu.html#L57'>render</a> pg-addr, in -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L115" class="LineNr">115 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L101'>test-render-bold-text</a>/text"</span> -<span id="L116" class="LineNr">116 </span> <a href='../../405screen.mu.html#L829'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L101'>test-render-bold-text</a>/bold"</span> -<span id="L117" class="LineNr">117 </span><span class="Delimiter">}</span> -<span id="L118" class="LineNr">118 </span> -<span id="L119" class="LineNr">119 </span><span class="Comment"># terminals don't always support italics, so we'll just always render italics</span> -<span id="L120" class="LineNr">120 </span><span class="Comment"># as bold.</span> -<span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L121'>test-render-pseudoitalic-text</a></span> <span class="Delimiter">{</span> -<span id="L122" class="LineNr">122 </span> <span class="Comment"># input text</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L125" class="LineNr">125 </span> <a href='../../306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"a _b_ c"</span>, input-ah -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L127" class="LineNr">127 </span> <span class="Comment"># output screen</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> pg: paginated-screen -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg -<span id="L130" class="LineNr">130 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 6 columns, single page</span> -<span id="L131" class="LineNr">131 </span> <span class="Comment">#</span> -<span id="L132" class="LineNr">132 </span> <a href='main.mu.html#L57'>render</a> pg-addr, in -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L135" class="LineNr">135 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L121'>test-render-pseudoitalic-text</a>/text"</span> -<span id="L136" class="LineNr">136 </span> <a href='../../405screen.mu.html#L829'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L121'>test-render-pseudoitalic-text</a>/bold"</span> -<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="muTest"><a href='main.mu.html#L139'>test-render-asterisk-in-text</a></span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> <span class="Comment"># input text</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L143" class="LineNr">143 </span> <a href='../../306files.subx.html#L73'>populate-buffered-file-containing</a> <span class="Constant">"a*b*c"</span>, input-ah -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L145" class="LineNr">145 </span> <span class="Comment"># output screen</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> pg: paginated-screen -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg -<span id="L148" class="LineNr">148 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 6 columns, single page</span> -<span id="L149" class="LineNr">149 </span> <span class="Comment">#</span> -<span id="L150" class="LineNr">150 </span> <a href='main.mu.html#L57'>render</a> pg-addr, in -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L153" class="LineNr">153 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a*b*c"</span>, <span class="Constant">"F - <a href='main.mu.html#L101'>test-render-bold-text</a>/text"</span> -<span id="L154" class="LineNr">154 </span> <a href='../../405screen.mu.html#L829'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L101'>test-render-bold-text</a>/bold"</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="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L157'>render-normal</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> newline-seen?/<span class="Constant">esi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> start-of-paragraph?/<span class="Constant">edi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> previous-grapheme/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L161" class="LineNr">161 </span>$render-normal:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L162" class="LineNr">162 </span> <span class="Comment"># if done-drawing?(screen) break</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L164" class="LineNr">164 </span> compare done?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">break-if-!=</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs -<span id="L167" class="LineNr">167 </span>$render-normal:loop-body: <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> <span class="Comment"># if (c == EOF) break</span> -<span id="L169" class="LineNr">169 </span> compare c, <span class="Constant">0xffffffff</span> <span class="Comment"># EOF marker</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-=</span> $render-normal:<span class="PreProc">loop</span> -<span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span> <span class="SalientComment">## if (c == newline) perform some fairly sophisticated parsing for soft newlines</span> -<span id="L173" class="LineNr">173 </span> compare c, <span class="Constant">0xa</span> <span class="Comment"># newline</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="Comment"># if it's the first newline, buffer it</span> -<span id="L177" class="LineNr">177 </span> compare newline-seen?, <span class="Constant">0</span> -<span id="L178" class="LineNr">178 </span> <span class="Delimiter">{</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">break-if-!=</span> -<span id="L180" class="LineNr">180 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L182" class="LineNr">182 </span> <span class="Delimiter">}</span> -<span id="L183" class="LineNr">183 </span> <span class="Comment"># otherwise render two newlines</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> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="Comment"># newline</span> -<span id="L187" class="LineNr">187 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="Comment"># newline</span> -<span id="L188" class="LineNr">188 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L189" class="LineNr">189 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">}</span> -<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> <span class="Comment"># if start of paragraph and c == '#', switch to header</span> -<span id="L194" class="LineNr">194 </span> compare start-of-paragraph?, <span class="Constant">0</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> compare c, <span class="Constant">0x23</span> <span class="Comment"># '#'</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> <a href='main.mu.html#L267'>render-header-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L201" class="LineNr">201 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> -<span id="L204" class="LineNr">204 </span> <span class="Delimiter">}</span> -<span id="L205" class="LineNr">205 </span> <span class="Comment"># c is not a newline</span> -<span id="L206" class="LineNr">206 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L207" class="LineNr">207 </span> <span class="Comment"># if c is unprintable (particularly a '\r' CR), skip it</span> -<span id="L208" class="LineNr">208 </span> compare c, <span class="Constant">0x20</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">loop-if-<</span> $render-normal:<span class="PreProc">loop</span> -<span id="L210" class="LineNr">210 </span> <span class="Comment"># If there's a newline buffered and c is a space, print the buffered</span> -<span id="L211" class="LineNr">211 </span> <span class="Comment"># newline (hard newline).</span> -<span id="L212" class="LineNr">212 </span> <span class="Comment"># If there's a newline buffered and c is not a newline or space, print a</span> -<span id="L213" class="LineNr">213 </span> <span class="Comment"># space (soft newline).</span> -<span id="L214" class="LineNr">214 </span> compare newline-seen?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L215" class="LineNr">215 </span>$render-normal:flush-buffered-newline: <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">break-if-=</span> -<span id="L217" class="LineNr">217 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> compare c, <span class="Constant">0x20</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">break-if-!=</span> -<span id="L221" class="LineNr">221 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="Comment"># newline</span> -<span id="L222" class="LineNr">222 </span> <span class="PreProc">break</span> $render-normal:flush-buffered-newline -<span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> -<span id="L224" class="LineNr">224 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="Comment"># space</span> -<span id="L225" class="LineNr">225 </span> <span class="Comment"># fall through to print c</span> -<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> -<span id="L227" class="LineNr">227 </span> <span class="SalientComment">## end soft newline support</span> -<span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span>$render-normal:whitespace-separated-regions: <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="Comment"># if previous-grapheme wasn't whitespace, skip this block</span> -<span id="L231" class="LineNr">231 </span> <span class="Delimiter">{</span> -<span id="L232" class="LineNr">232 </span> compare previous-grapheme, <span class="Constant">0x20</span> <span class="Comment"># space</span> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">break-if-=</span> -<span id="L234" class="LineNr">234 </span> compare previous-grapheme, <span class="Constant">0xa</span> <span class="Comment"># newline</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">break-if-=</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">break</span> $render-normal:whitespace-separated-regions -<span id="L237" class="LineNr">237 </span> <span class="Delimiter">}</span> -<span id="L238" class="LineNr">238 </span> <span class="Comment"># if (c == '*') switch to bold</span> -<span id="L239" class="LineNr">239 </span> compare c, <span class="Constant">0x2a</span> <span class="Comment"># '*'</span> -<span id="L240" class="LineNr">240 </span> <span class="Delimiter">{</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-!=</span> -<span id="L242" class="LineNr">242 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="Comment"># 236 = darkish gray</span> -<span id="L243" class="LineNr">243 </span> start-bold-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L244" class="LineNr">244 </span> <a href='main.mu.html#L346'>render-until-asterisk</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L245" class="LineNr">245 </span> <a href='main.mu.html#L394'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">break</span> $render-normal:loop-body +<span id="L30" class="LineNr"> 30 </span>$interactive:body: <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># initialize fs from args[1]</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> filename/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='main.mu.html#L398'>first-arg</a> args +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> file-storage: (handle buffered-file) +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> file-storage-addr/<span class="Constant">esi</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address file-storage +<span id="L35" class="LineNr"> 35 </span> <a href='../../306files.subx.html#L12'>open</a> filename, <span class="Constant">0</span>, file-storage-addr +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> _fs/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> file-storage +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> fs/<span class="Constant">esi</span>: (addr buffered-file) <span class="SpecialChar"><-</span> copy _fs +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># if no file, exit</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> compare fs, <span class="Constant">0</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">break-if-!=</span> +<span id="L42" class="LineNr"> 42 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"file not found\n"</span> +<span id="L43" class="LineNr"> 43 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">break</span> $interactive:body +<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> <span class="muComment">#</span> +<span id="L47" class="LineNr"> 47 </span> <a href='../../304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L48" class="LineNr"> 48 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># initialize screen state</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> paginated-screen-storage: paginated-screen +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> paginated-screen/<span class="Constant">eax</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address paginated-screen-storage +<span id="L52" class="LineNr"> 52 </span> initialize-paginated-screen paginated-screen, <span class="Constant">0x40</span>, <span class="Constant">2</span>, <span class="Constant">5</span> +<span id="L53" class="LineNr"> 53 </span> <a href='main.mu.html#L404'>normal-text</a> paginated-screen +<span id="L54" class="LineNr"> 54 </span> <span class="muComment">#</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <a href='main.mu.html#L67'>render</a> paginated-screen, fs +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L58" class="LineNr"> 58 </span> compare key, <span class="Constant">0x71</span> <span class="muComment"># 'q'</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">loop-if-!=</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L62" class="LineNr"> 62 </span> <a href='../../304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L63" class="LineNr"> 63 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> +<span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L67'>render</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> start-drawing <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L69" class="LineNr"> 69 </span> <a href='main.mu.html#L167'>render-normal</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs +<span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> +<span id="L71" class="LineNr"> 71 </span> +<span id="L72" class="LineNr"> 72 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L72'>test-render-multicolumn-text</a></span> <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span> <span class="muComment"># input text</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage +<span id="L76" class="LineNr"> 76 </span> <a href='../../306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"abcdefgh"</span>, input-ah +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># output screen</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> pg: paginated-screen +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg +<span id="L81" class="LineNr"> 81 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 3 rows, 6 columns, 2 pages * 2 columns each</span> +<span id="L82" class="LineNr"> 82 </span> <span class="muComment">#</span> +<span id="L83" class="LineNr"> 83 </span> <a href='main.mu.html#L67'>render</a> pg-addr, in +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L86" class="LineNr"> 86 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L72'>test-render-multicolumn-text</a>/row1"</span> +<span id="L87" class="LineNr"> 87 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='main.mu.html#L72'>test-render-multicolumn-text</a>/row2"</span> +<span id="L88" class="LineNr"> 88 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='main.mu.html#L72'>test-render-multicolumn-text</a>/row3"</span> +<span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> +<span id="L90" class="LineNr"> 90 </span> +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L91'>test-render-heading-text</a></span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muComment"># input text</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage +<span id="L95" class="LineNr"> 95 </span> <a href='../../306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"# abc\n\ndef"</span>, input-ah +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage +<span id="L97" class="LineNr"> 97 </span> <span class="muComment"># output screen</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> pg: paginated-screen +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg +<span id="L100" class="LineNr">100 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> +<span id="L101" class="LineNr">101 </span> <span class="muComment">#</span> +<span id="L102" class="LineNr">102 </span> <a href='main.mu.html#L67'>render</a> pg-addr, in +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L105" class="LineNr">105 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L91'>test-render-heading-text</a>/row1"</span> +<span id="L106" class="LineNr">106 </span> <a href='../../405screen.mu.html#L711'>check-screen-row-in-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">2</span>, <span class="Constant">" abc "</span>, <span class="Constant">"F - <a href='main.mu.html#L91'>test-render-heading-text</a>/heading"</span> +<span id="L107" class="LineNr">107 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L91'>test-render-heading-text</a>/row3"</span> +<span id="L108" class="LineNr">108 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">" def "</span>, <span class="Constant">"F - <a href='main.mu.html#L91'>test-render-heading-text</a>/row4"</span> +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> +<span id="L110" class="LineNr">110 </span> +<span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L111'>test-render-bold-text</a></span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="muComment"># input text</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage +<span id="L115" class="LineNr">115 </span> <a href='../../306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"a *b* c"</span>, input-ah +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage +<span id="L117" class="LineNr">117 </span> <span class="muComment"># output screen</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> pg: paginated-screen +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg +<span id="L120" class="LineNr">120 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> +<span id="L121" class="LineNr">121 </span> <span class="muComment">#</span> +<span id="L122" class="LineNr">122 </span> <a href='main.mu.html#L67'>render</a> pg-addr, in +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L125" class="LineNr">125 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L111'>test-render-bold-text</a>/text"</span> +<span id="L126" class="LineNr">126 </span> <a href='../../405screen.mu.html#L883'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L111'>test-render-bold-text</a>/bold"</span> +<span id="L127" class="LineNr">127 </span><span class="Delimiter">}</span> +<span id="L128" class="LineNr">128 </span> +<span id="L129" class="LineNr">129 </span><span class="muComment"># terminals don't always support italics, so we'll just always render italics</span> +<span id="L130" class="LineNr">130 </span><span class="muComment"># as bold.</span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L131'>test-render-pseudoitalic-text</a></span> <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="muComment"># input text</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage +<span id="L135" class="LineNr">135 </span> <a href='../../306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"a _b_ c"</span>, input-ah +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage +<span id="L137" class="LineNr">137 </span> <span class="muComment"># output screen</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> pg: paginated-screen +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg +<span id="L140" class="LineNr">140 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> +<span id="L141" class="LineNr">141 </span> <span class="muComment">#</span> +<span id="L142" class="LineNr">142 </span> <a href='main.mu.html#L67'>render</a> pg-addr, in +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L145" class="LineNr">145 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L131'>test-render-pseudoitalic-text</a>/text"</span> +<span id="L146" class="LineNr">146 </span> <a href='../../405screen.mu.html#L883'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L131'>test-render-pseudoitalic-text</a>/bold"</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="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L149'>test-render-asterisk-in-text</a></span> <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> <span class="muComment"># input text</span> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage +<span id="L153" class="LineNr">153 </span> <a href='../../306files.subx.html#L76'>populate-buffered-file-containing</a> <span class="Constant">"a*b*c"</span>, input-ah +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage +<span id="L155" class="LineNr">155 </span> <span class="muComment"># output screen</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> pg: paginated-screen +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr paginated-screen) <span class="SpecialChar"><-</span> address pg +<span id="L158" class="LineNr">158 </span> initialize-fake-paginated-screen pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> +<span id="L159" class="LineNr">159 </span> <span class="muComment">#</span> +<span id="L160" class="LineNr">160 </span> <a href='main.mu.html#L67'>render</a> pg-addr, in +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L163" class="LineNr">163 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a*b*c"</span>, <span class="Constant">"F - <a href='main.mu.html#L111'>test-render-bold-text</a>/text"</span> +<span id="L164" class="LineNr">164 </span> <a href='../../405screen.mu.html#L883'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L111'>test-render-bold-text</a>/bold"</span> +<span id="L165" class="LineNr">165 </span><span class="Delimiter">}</span> +<span id="L166" class="LineNr">166 </span> +<span id="L167" class="LineNr">167 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L167'>render-normal</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> newline-seen?/<span class="Constant">esi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> start-of-paragraph?/<span class="Constant">edi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> previous-grapheme/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L171" class="LineNr">171 </span>$render-normal:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L172" class="LineNr">172 </span> <span class="muComment"># if done-drawing?(screen) break</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L174" class="LineNr">174 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</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> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs +<span id="L177" class="LineNr">177 </span>$render-normal:loop-body: <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="muComment"># if (c == EOF) break</span> +<span id="L179" class="LineNr">179 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-=</span> $render-normal:<span class="PreProc">loop</span> +<span id="L181" class="LineNr">181 </span> +<span id="L182" class="LineNr">182 </span> <span class="muComment">## if (c == newline) perform some fairly sophisticated parsing for soft newlines</span> +<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</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> <span class="muComment"># if it's the first newline, buffer it</span> +<span id="L187" class="LineNr">187 </span> compare newline-seen?, <span class="Constant">0</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> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break</span> $render-normal:loop-body +<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span> <span class="muComment"># otherwise render two newlines</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> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L197" class="LineNr">197 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L198" class="LineNr">198 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L199" class="LineNr">199 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">break</span> $render-normal:loop-body +<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> <span class="muComment"># if start of paragraph and c == '#', switch to header</span> +<span id="L204" class="LineNr">204 </span> compare start-of-paragraph?, <span class="Constant">0</span> +<span id="L205" class="LineNr">205 </span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">break-if-=</span> +<span id="L207" class="LineNr">207 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> +<span id="L208" class="LineNr">208 </span> <span class="Delimiter">{</span> +<span id="L209" class="LineNr">209 </span> <span class="PreProc">break-if-!=</span> +<span id="L210" class="LineNr">210 </span> <a href='main.mu.html#L277'>render-header-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs +<span id="L211" class="LineNr">211 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L212" class="LineNr">212 </span> <span class="PreProc">break</span> $render-normal:loop-body +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">}</span> +<span id="L214" class="LineNr">214 </span> <span class="Delimiter">}</span> +<span id="L215" class="LineNr">215 </span> <span class="muComment"># c is not a newline</span> +<span id="L216" class="LineNr">216 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L217" class="LineNr">217 </span> <span class="muComment"># if c is unprintable (particularly a '\r' CR), skip it</span> +<span id="L218" class="LineNr">218 </span> compare c, <span class="Constant">0x20</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">loop-if-<</span> $render-normal:<span class="PreProc">loop</span> +<span id="L220" class="LineNr">220 </span> <span class="muComment"># If there's a newline buffered and c is a space, print the buffered</span> +<span id="L221" class="LineNr">221 </span> <span class="muComment"># newline (hard newline).</span> +<span id="L222" class="LineNr">222 </span> <span class="muComment"># If there's a newline buffered and c is not a newline or space, print a</span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># space (soft newline).</span> +<span id="L224" class="LineNr">224 </span> compare newline-seen?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L225" class="LineNr">225 </span>$render-normal:flush-buffered-newline: <span class="Delimiter">{</span> +<span id="L226" class="LineNr">226 </span> <span class="PreProc">break-if-=</span> +<span id="L227" class="LineNr">227 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> compare c, <span class="Constant">0x20</span> +<span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if-!=</span> +<span id="L231" class="LineNr">231 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">break</span> $render-normal:flush-buffered-newline +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L235" class="LineNr">235 </span> <span class="muComment"># fall through to print c</span> +<span id="L236" class="LineNr">236 </span> <span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span> <span class="muComment">## end soft newline support</span> +<span id="L238" class="LineNr">238 </span> +<span id="L239" class="LineNr">239 </span>$render-normal:whitespace-separated-regions: <span class="Delimiter">{</span> +<span id="L240" class="LineNr">240 </span> <span class="muComment"># if previous-grapheme wasn't whitespace, skip this block</span> +<span id="L241" class="LineNr">241 </span> <span class="Delimiter">{</span> +<span id="L242" class="LineNr">242 </span> compare previous-grapheme, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">break-if-=</span> +<span id="L244" class="LineNr">244 </span> compare previous-grapheme, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">break-if-=</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">break</span> $render-normal:whitespace-separated-regions <span id="L247" class="LineNr">247 </span> <span class="Delimiter">}</span> -<span id="L248" class="LineNr">248 </span> <span class="Comment"># if (c == '_') switch to bold</span> -<span id="L249" class="LineNr">249 </span> compare c, <span class="Constant">0x5f</span> <span class="Comment"># '_'</span> +<span id="L248" class="LineNr">248 </span> <span class="muComment"># if (c == '*') switch to bold</span> +<span id="L249" class="LineNr">249 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</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> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="Comment"># 236 = darkish gray</span> +<span id="L252" class="LineNr">252 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> <span id="L253" class="LineNr">253 </span> start-bold-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L254" class="LineNr">254 </span> <a href='main.mu.html#L367'>render-until-underscore</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L255" class="LineNr">255 </span> <a href='main.mu.html#L394'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L254" class="LineNr">254 </span> <a href='main.mu.html#L356'>render-until-asterisk</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs +<span id="L255" class="LineNr">255 </span> <a href='main.mu.html#L404'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> <span id="L256" class="LineNr">256 </span> <span class="PreProc">break</span> $render-normal:loop-body <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="Comment">#</span> -<span id="L260" class="LineNr">260 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L261" class="LineNr">261 </span> <span class="Delimiter">}</span> <span class="Comment"># $render-normal:loop-body</span> -<span id="L262" class="LineNr">262 </span> previous-grapheme <span class="SpecialChar"><-</span> copy c -<span id="L263" class="LineNr">263 </span> <span class="PreProc">loop</span> -<span id="L264" class="LineNr">264 </span> <span class="Delimiter">}</span> <span class="Comment"># $render-normal:loop</span> -<span id="L265" class="LineNr">265 </span><span class="Delimiter">}</span> -<span id="L266" class="LineNr">266 </span> -<span id="L267" class="LineNr">267 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L267'>render-header-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L268" class="LineNr">268 </span>$render-header-line:body: <span class="Delimiter">{</span> -<span id="L269" class="LineNr">269 </span> <span class="Comment"># compute color based on number of '#'s</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> header-level/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># caller already grabbed one</span> -<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> -<span id="L273" class="LineNr">273 </span> <span class="Comment"># if done-drawing?(screen) return</span> -<span id="L274" class="LineNr">274 </span> <span class="Delimiter">{</span> -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L276" class="LineNr">276 </span> compare done?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L277" class="LineNr">277 </span> <span class="PreProc">break-if-!=</span> $render-header-line:body -<span id="L278" class="LineNr">278 </span> <span class="Delimiter">}</span> -<span id="L279" class="LineNr">279 </span> <span class="Comment">#</span> -<span id="L280" class="LineNr">280 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs -<span id="L281" class="LineNr">281 </span> <span class="Comment"># if (c != '#') break</span> -<span id="L282" class="LineNr">282 </span> compare c, <span class="Constant">0x23</span> <span class="Comment"># '#'</span> -<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-!=</span> -<span id="L284" class="LineNr">284 </span> <span class="Comment">#</span> -<span id="L285" class="LineNr">285 </span> header-level <span class="SpecialChar"><-</span> increment -<span id="L286" class="LineNr">286 </span> <span class="Comment">#</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">loop</span> -<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> -<span id="L289" class="LineNr">289 </span> <a href='main.mu.html#L315'>start-heading</a> <a href='../../405screen.mu.html#L9'>screen</a>, header-level -<span id="L290" class="LineNr">290 </span> <span class="Delimiter">{</span> -<span id="L291" class="LineNr">291 </span> <span class="Comment"># if done-drawing?(screen) break</span> -<span id="L292" class="LineNr">292 </span> <span class="Delimiter">{</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L294" class="LineNr">294 </span> compare done?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">break-if-!=</span> -<span id="L296" class="LineNr">296 </span> <span class="Delimiter">}</span> -<span id="L297" class="LineNr">297 </span> <span class="Comment">#</span> -<span id="L298" class="LineNr">298 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs -<span id="L299" class="LineNr">299 </span> <span class="Comment"># if (c == EOF) break</span> -<span id="L300" class="LineNr">300 </span> compare c, <span class="Constant">0xffffffff</span> <span class="Comment"># EOF marker</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">break-if-=</span> -<span id="L302" class="LineNr">302 </span> <span class="Comment"># if (c == newline) break</span> -<span id="L303" class="LineNr">303 </span> compare c, <span class="Constant">0xa</span> <span class="Comment"># newline</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">break-if-=</span> -<span id="L305" class="LineNr">305 </span> <span class="Comment">#</span> -<span id="L306" class="LineNr">306 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L307" class="LineNr">307 </span> <span class="Comment">#</span> -<span id="L308" class="LineNr">308 </span> <span class="PreProc">loop</span> -<span id="L309" class="LineNr">309 </span> <span class="Delimiter">}</span> -<span id="L310" class="LineNr">310 </span> <a href='main.mu.html#L394'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> -<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="Comment"># colors for a light background, going from bright to dark (meeting up with bold-text)</span> -<span id="L315" class="LineNr">315 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L315'>start-heading</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), header-level: int <span class="Delimiter">{</span> -<span id="L316" class="LineNr">316 </span>$start-heading:body: <span class="Delimiter">{</span> -<span id="L317" class="LineNr">317 </span> start-bold-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L318" class="LineNr">318 </span> compare header-level, <span class="Constant">1</span> -<span id="L319" class="LineNr">319 </span> <span class="Delimiter">{</span> -<span id="L320" class="LineNr">320 </span> <span class="PreProc">break-if-!=</span> -<span id="L321" class="LineNr">321 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">7</span> -<span id="L322" class="LineNr">322 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L323" class="LineNr">323 </span> <span class="Delimiter">}</span> -<span id="L324" class="LineNr">324 </span> compare header-level, <span class="Constant">2</span> -<span id="L325" class="LineNr">325 </span> <span class="Delimiter">{</span> -<span id="L326" class="LineNr">326 </span> <span class="PreProc">break-if-!=</span> -<span id="L327" class="LineNr">327 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x7c</span>, <span class="Constant">7</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L329" class="LineNr">329 </span> <span class="Delimiter">}</span> -<span id="L330" class="LineNr">330 </span> compare header-level, <span class="Constant">3</span> -<span id="L331" class="LineNr">331 </span> <span class="Delimiter">{</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if-!=</span> -<span id="L333" class="LineNr">333 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x58</span>, <span class="Constant">7</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> compare header-level, <span class="Constant">4</span> -<span id="L337" class="LineNr">337 </span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="PreProc">break-if-!=</span> -<span id="L339" class="LineNr">339 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x34</span>, <span class="Constant">7</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> -<span id="L342" class="LineNr">342 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xe8</span>, <span class="Constant">7</span> -<span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> -<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='main.mu.html#L346'>render-until-asterisk</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L258" class="LineNr">258 </span> <span class="muComment"># if (c == '_') switch to bold</span> +<span id="L259" class="LineNr">259 </span> compare c, <span class="Constant">0x5f</span> <span class="muComment"># '_'</span> +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">break-if-!=</span> +<span id="L262" class="LineNr">262 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> +<span id="L263" class="LineNr">263 </span> start-bold-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L264" class="LineNr">264 </span> <a href='main.mu.html#L377'>render-until-underscore</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs +<span id="L265" class="LineNr">265 </span> <a href='main.mu.html#L404'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">break</span> $render-normal:loop-body +<span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> <span class="muComment">#</span> +<span id="L270" class="LineNr">270 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c +<span id="L271" class="LineNr">271 </span> <span class="Delimiter">}</span> <span class="muComment"># $render-normal:loop-body</span> +<span id="L272" class="LineNr">272 </span> previous-grapheme <span class="SpecialChar"><-</span> copy c +<span id="L273" class="LineNr">273 </span> <span class="PreProc">loop</span> +<span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> <span class="muComment"># $render-normal:loop</span> +<span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> +<span id="L276" class="LineNr">276 </span> +<span id="L277" class="LineNr">277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L277'>render-header-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L278" class="LineNr">278 </span>$render-header-line:body: <span class="Delimiter">{</span> +<span id="L279" class="LineNr">279 </span> <span class="muComment"># compute color based on number of '#'s</span> +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> header-level/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># caller already grabbed one</span> +<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> +<span id="L283" class="LineNr">283 </span> <span class="muComment"># if done-drawing?(screen) return</span> +<span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L286" class="LineNr">286 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L287" class="LineNr">287 </span> <span class="PreProc">break-if-!=</span> $render-header-line:body +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> <span class="muComment">#</span> +<span id="L290" class="LineNr">290 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs +<span id="L291" class="LineNr">291 </span> <span class="muComment"># if (c != '#') break</span> +<span id="L292" class="LineNr">292 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> +<span id="L293" class="LineNr">293 </span> <span class="PreProc">break-if-!=</span> +<span id="L294" class="LineNr">294 </span> <span class="muComment">#</span> +<span id="L295" class="LineNr">295 </span> header-level <span class="SpecialChar"><-</span> increment +<span id="L296" class="LineNr">296 </span> <span class="muComment">#</span> +<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> <a href='main.mu.html#L325'>start-heading</a> <a href='../../405screen.mu.html#L9'>screen</a>, header-level +<span id="L300" class="LineNr">300 </span> <span class="Delimiter">{</span> +<span id="L301" class="LineNr">301 </span> <span class="muComment"># if done-drawing?(screen) break</span> +<span id="L302" class="LineNr">302 </span> <span class="Delimiter">{</span> +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L304" class="LineNr">304 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">break-if-!=</span> +<span id="L306" class="LineNr">306 </span> <span class="Delimiter">}</span> +<span id="L307" class="LineNr">307 </span> <span class="muComment">#</span> +<span id="L308" class="LineNr">308 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs +<span id="L309" class="LineNr">309 </span> <span class="muComment"># if (c == EOF) break</span> +<span id="L310" class="LineNr">310 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-=</span> +<span id="L312" class="LineNr">312 </span> <span class="muComment"># if (c == newline) break</span> +<span id="L313" class="LineNr">313 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L314" class="LineNr">314 </span> <span class="PreProc">break-if-=</span> +<span id="L315" class="LineNr">315 </span> <span class="muComment">#</span> +<span id="L316" class="LineNr">316 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c +<span id="L317" class="LineNr">317 </span> <span class="muComment">#</span> +<span id="L318" class="LineNr">318 </span> <span class="PreProc">loop</span> +<span id="L319" class="LineNr">319 </span> <span class="Delimiter">}</span> +<span id="L320" class="LineNr">320 </span> <a href='main.mu.html#L404'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L321" class="LineNr">321 </span><span class="Delimiter">}</span> +<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> +<span id="L323" class="LineNr">323 </span> +<span id="L324" class="LineNr">324 </span><span class="muComment"># colors for a light background, going from bright to dark (meeting up with bold-text)</span> +<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L325'>start-heading</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), header-level: int <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span>$start-heading:body: <span class="Delimiter">{</span> +<span id="L327" class="LineNr">327 </span> start-bold-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L328" class="LineNr">328 </span> compare header-level, <span class="Constant">1</span> +<span id="L329" class="LineNr">329 </span> <span class="Delimiter">{</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if-!=</span> +<span id="L331" class="LineNr">331 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">7</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">break</span> $start-heading:body +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">}</span> +<span id="L334" class="LineNr">334 </span> compare header-level, <span class="Constant">2</span> +<span id="L335" class="LineNr">335 </span> <span class="Delimiter">{</span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">break-if-!=</span> +<span id="L337" class="LineNr">337 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x7c</span>, <span class="Constant">7</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">break</span> $start-heading:body +<span id="L339" class="LineNr">339 </span> <span class="Delimiter">}</span> +<span id="L340" class="LineNr">340 </span> compare header-level, <span class="Constant">3</span> +<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> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x58</span>, <span class="Constant">7</span> +<span id="L344" class="LineNr">344 </span> <span class="PreProc">break</span> $start-heading:body +<span id="L345" class="LineNr">345 </span> <span class="Delimiter">}</span> +<span id="L346" class="LineNr">346 </span> compare header-level, <span class="Constant">4</span> <span id="L347" class="LineNr">347 </span> <span class="Delimiter">{</span> -<span id="L348" class="LineNr">348 </span> <span class="Comment"># if done-drawing?(screen) break</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L350" class="LineNr">350 </span> compare done?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">break-if-!=</span> -<span id="L352" class="LineNr">352 </span> <span class="Comment">#</span> -<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs -<span id="L354" class="LineNr">354 </span> <span class="Comment"># if (c == EOF) break</span> -<span id="L355" class="LineNr">355 </span> compare c, <span class="Constant">0xffffffff</span> <span class="Comment"># EOF marker</span> -<span id="L356" class="LineNr">356 </span> <span class="PreProc">break-if-=</span> -<span id="L357" class="LineNr">357 </span> <span class="Comment"># if (c == '*') break</span> -<span id="L358" class="LineNr">358 </span> compare c, <span class="Constant">0x2a</span> <span class="Comment"># '*'</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">break-if-=</span> -<span id="L360" class="LineNr">360 </span> <span class="Comment">#</span> -<span id="L361" class="LineNr">361 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L362" class="LineNr">362 </span> <span class="Comment">#</span> -<span id="L363" class="LineNr">363 </span> <span class="PreProc">loop</span> -<span id="L364" class="LineNr">364 </span> <span class="Delimiter">}</span> -<span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> -<span id="L366" class="LineNr">366 </span> -<span id="L367" class="LineNr">367 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L367'>render-until-underscore</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L368" class="LineNr">368 </span> <span class="Delimiter">{</span> -<span id="L369" class="LineNr">369 </span> <span class="Comment"># if done-drawing?(screen) break</span> -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L371" class="LineNr">371 </span> compare done?, <span class="Constant">0</span> <span class="Comment"># false</span> -<span id="L372" class="LineNr">372 </span> <span class="PreProc">break-if-!=</span> -<span id="L373" class="LineNr">373 </span> <span class="Comment">#</span> -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs -<span id="L375" class="LineNr">375 </span> <span class="Comment"># if (c == EOF) break</span> -<span id="L376" class="LineNr">376 </span> compare c, <span class="Constant">0xffffffff</span> <span class="Comment"># EOF marker</span> -<span id="L377" class="LineNr">377 </span> <span class="PreProc">break-if-=</span> -<span id="L378" class="LineNr">378 </span> <span class="Comment"># if (c == '_') break</span> -<span id="L379" class="LineNr">379 </span> compare c, <span class="Constant">0x5f</span> <span class="Comment"># '_'</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">break-if-=</span> -<span id="L381" class="LineNr">381 </span> <span class="Comment">#</span> -<span id="L382" class="LineNr">382 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L383" class="LineNr">383 </span> <span class="Comment">#</span> -<span id="L384" class="LineNr">384 </span> <span class="PreProc">loop</span> -<span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> -<span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> -<span id="L387" class="LineNr">387 </span> -<span id="L388" class="LineNr">388 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L388'>first-arg</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>out/<span class="Constant">eax</span>: (addr array byte) <span class="Delimiter">{</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L391" class="LineNr">391 </span> out <span class="SpecialChar"><-</span> copy *result -<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='main.mu.html#L394'>normal-text</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen) <span class="Delimiter">{</span> -<span id="L395" class="LineNr">395 </span> reset-formatting-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L396" class="LineNr">396 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="Comment"># 236 = darkish gray</span> -<span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> +<span id="L348" class="LineNr">348 </span> <span class="PreProc">break-if-!=</span> +<span id="L349" class="LineNr">349 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x34</span>, <span class="Constant">7</span> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">break</span> $start-heading:body +<span id="L351" class="LineNr">351 </span> <span class="Delimiter">}</span> +<span id="L352" class="LineNr">352 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xe8</span>, <span class="Constant">7</span> +<span id="L353" class="LineNr">353 </span><span class="Delimiter">}</span> +<span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> +<span id="L355" class="LineNr">355 </span> +<span id="L356" class="LineNr">356 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L356'>render-until-asterisk</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L357" class="LineNr">357 </span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr">358 </span> <span class="muComment"># if done-drawing?(screen) break</span> +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L360" class="LineNr">360 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">break-if-!=</span> +<span id="L362" class="LineNr">362 </span> <span class="muComment">#</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs +<span id="L364" class="LineNr">364 </span> <span class="muComment"># if (c == EOF) break</span> +<span id="L365" class="LineNr">365 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">break-if-=</span> +<span id="L367" class="LineNr">367 </span> <span class="muComment"># if (c == '*') break</span> +<span id="L368" class="LineNr">368 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> +<span id="L369" class="LineNr">369 </span> <span class="PreProc">break-if-=</span> +<span id="L370" class="LineNr">370 </span> <span class="muComment">#</span> +<span id="L371" class="LineNr">371 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c +<span id="L372" class="LineNr">372 </span> <span class="muComment">#</span> +<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><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='main.mu.html#L377'>render-until-underscore</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen), fs: (addr buffered-file) <span class="Delimiter">{</span> +<span id="L378" class="LineNr">378 </span> <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> <span class="muComment"># if done-drawing?(screen) break</span> +<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> done-drawing? <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L381" class="LineNr">381 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">break-if-!=</span> +<span id="L383" class="LineNr">383 </span> <span class="muComment">#</span> +<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L256'>read-grapheme-buffered</a> fs +<span id="L385" class="LineNr">385 </span> <span class="muComment"># if (c == EOF) break</span> +<span id="L386" class="LineNr">386 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">break-if-=</span> +<span id="L388" class="LineNr">388 </span> <span class="muComment"># if (c == '_') break</span> +<span id="L389" class="LineNr">389 </span> compare c, <span class="Constant">0x5f</span> <span class="muComment"># '_'</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">break-if-=</span> +<span id="L391" class="LineNr">391 </span> <span class="muComment">#</span> +<span id="L392" class="LineNr">392 </span> add-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, c +<span id="L393" class="LineNr">393 </span> <span class="muComment">#</span> +<span id="L394" class="LineNr">394 </span> <span class="PreProc">loop</span> +<span id="L395" class="LineNr">395 </span> <span class="Delimiter">}</span> +<span id="L396" class="LineNr">396 </span><span class="Delimiter">}</span> +<span id="L397" class="LineNr">397 </span> +<span id="L398" class="LineNr">398 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L398'>first-arg</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>out/<span class="Constant">eax</span>: (addr array byte) <span class="Delimiter">{</span> +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack +<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> +<span id="L401" class="LineNr">401 </span> out <span class="SpecialChar"><-</span> copy *result +<span id="L402" class="LineNr">402 </span><span class="Delimiter">}</span> +<span id="L403" class="LineNr">403 </span> +<span id="L404" class="LineNr">404 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L404'>normal-text</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr paginated-screen) <span class="Delimiter">{</span> +<span id="L405" class="LineNr">405 </span> reset-formatting-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L406" class="LineNr">406 </span> start-color-on-paginated-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> +<span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/browse/paginated-screen.mu.html b/html/apps/browse/paginated-screen.mu.html index d2ec0b7f..da509aad 100644 --- a/html/apps/browse/paginated-screen.mu.html +++ b/html/apps/browse/paginated-screen.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; } .CommentedCode { color: #8a8a8a; } -.muTest { color: #5f8700; } +.muComment { color: #005faf; } +.muS1Comment { color: #0000af; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } .Constant { color: #008787; } .PreProc { color: #c000c0; } -.SalientComment { color: #0000af; } --> </style> @@ -59,30 +59,30 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/browse/paginated-screen.mu'>https://github.com/akkartik/mu/blob/master/apps/browse/paginated-screen.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># If a screen is too wide, split it up into a fixed size of pages.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># We take control of drawing and moving the cursor, and delegate everything else.</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># Never scroll; use the 'done-drawing?' method instead.</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># Example usage:</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># initialize-paginated-screen</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># on each frame</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># start-drawing</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># while !done-drawing</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment"># add-grapheme ...</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># If a screen is too wide, split it up into a fixed size of pages.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># We take control of drawing and moving the cursor, and delegate everything else.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Never scroll; use the 'done-drawing?' method instead.</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment">#</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Example usage:</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># initialize-paginated-screen</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># on each frame</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># start-drawing</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># while !done-drawing</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># add-grapheme ...</span> <span id="L11" class="LineNr"> 11 </span> <span id="L12" class="LineNr"> 12 </span><span class="PreProc">type</span> <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span class="Delimiter">{</span> <span id="L13" class="LineNr"> 13 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) -<span id="L14" class="LineNr"> 14 </span> nrows: int <span class="Comment"># const</span> -<span id="L15" class="LineNr"> 15 </span> ncols: int <span class="Comment"># const</span> +<span id="L14" class="LineNr"> 14 </span> nrows: int <span class="muComment"># const</span> +<span id="L15" class="LineNr"> 15 </span> ncols: int <span class="muComment"># const</span> <span id="L16" class="LineNr"> 16 </span> page-width: int <span id="L17" class="LineNr"> 17 </span> top-margin: int <span id="L18" class="LineNr"> 18 </span> left-margin: int -<span id="L19" class="LineNr"> 19 </span> <span class="Comment"># page bounds</span> +<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># page bounds</span> <span id="L20" class="LineNr"> 20 </span> toprow: int -<span id="L21" class="LineNr"> 21 </span> botrow: int <span class="Comment"># (inclusive)</span> +<span id="L21" class="LineNr"> 21 </span> botrow: int <span class="muComment"># (inclusive)</span> <span id="L22" class="LineNr"> 22 </span> leftcol: int -<span id="L23" class="LineNr"> 23 </span> rightcol: int <span class="Comment"># (exclusive)</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Comment"># current cursor position</span> +<span id="L23" class="LineNr"> 23 </span> rightcol: int <span class="muComment"># (exclusive)</span> +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># current cursor position</span> <span id="L25" class="LineNr"> 25 </span> row: int <span id="L26" class="LineNr"> 26 </span> col: int <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">}</span> @@ -96,43 +96,43 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L36" class="LineNr"> 36 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> screen-addr <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Comment"># self->nrows = nrows</span> +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># self->nrows = nrows</span> <span id="L39" class="LineNr"> 39 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows <span id="L40" class="LineNr"> 40 </span> copy-to *dest, nrows -<span id="L41" class="LineNr"> 41 </span> <span class="Comment"># self->ncols = ncols</span> +<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># self->ncols = ncols</span> <span id="L42" class="LineNr"> 42 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols <span id="L43" class="LineNr"> 43 </span> copy-to *dest, ncols -<span id="L44" class="LineNr"> 44 </span> <span class="Comment"># self->page-width = page-width</span> +<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># self->page-width = page-width</span> <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">{</span> <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy page-width <span id="L47" class="LineNr"> 47 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width <span id="L48" class="LineNr"> 48 </span> copy-to *dest, tmp <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Comment"># self->top-margin = top-margin</span> +<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># self->top-margin = top-margin</span> <span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">{</span> <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy top-margin <span id="L53" class="LineNr"> 53 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, top-margin <span id="L54" class="LineNr"> 54 </span> copy-to *dest, tmp <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Comment"># self->left-margin = left-margin</span> +<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># self->left-margin = left-margin</span> <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy left-margin <span id="L59" class="LineNr"> 59 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin <span id="L60" class="LineNr"> 60 </span> copy-to *dest, tmp <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Comment"># self->toprow = 1 + top-margin</span> +<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># self->toprow = 1 + top-margin</span> <span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy top-margin <span id="L65" class="LineNr"> 65 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow <span id="L66" class="LineNr"> 66 </span> copy-to *dest, <span class="Constant">1</span> <span id="L67" class="LineNr"> 67 </span> add-to *dest, tmp <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Comment"># self->botrow = nrows</span> +<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># self->botrow = nrows</span> <span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> <span id="L71" class="LineNr"> 71 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, botrow <span id="L72" class="LineNr"> 72 </span> copy-to *dest, nrows <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Comment">#</span> +<span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> <span id="L75" class="LineNr"> 75 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> self <span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> <span id="L77" class="LineNr"> 77 </span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <a href='paginated-screen.mu.html#L550'>clear-paginated-screen</a> self <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Comment"># self->leftcol = 1 + left-margin</span> +<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># self->leftcol = 1 + left-margin</span> <span id="L84" class="LineNr"> 84 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin <span id="L85" class="LineNr"> 85 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L86" class="LineNr"> 86 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol @@ -149,13 +149,13 @@ if ('onhashchange' in window) { <span id="L88" class="LineNr"> 88 </span> add-to *tmp, tmp2 <span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? print-string-to-real-screen "start: left column: "</span> <span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Comment"># self->rightcol = min(ncols+1, self->leftcol + page-width)</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Comment"># . tmp2 = self->leftcol + page-width</span> +<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># self->rightcol = min(ncols+1, self->leftcol + page-width)</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muS1Comment"># . tmp2 = self->leftcol + page-width</span> <span id="L93" class="LineNr"> 93 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width <span id="L94" class="LineNr"> 94 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L95" class="LineNr"> 95 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol <span id="L96" class="LineNr"> 96 </span> tmp2 <span class="SpecialChar"><-</span> add *tmp -<span id="L97" class="LineNr"> 97 </span> <span class="Comment"># . if (tmp2 > ncols+1) tmp2 = ncols+1</span> +<span id="L97" class="LineNr"> 97 </span> <span class="muS1Comment"># . if (tmp2 > ncols+1) tmp2 = ncols+1</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> <span id="L99" class="LineNr"> 99 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols <span id="L100" class="LineNr">100 </span> compare tmp2, *tmp @@ -163,29 +163,29 @@ if ('onhashchange' in window) { <span id="L102" class="LineNr">102 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L103" class="LineNr">103 </span> tmp2 <span class="SpecialChar"><-</span> increment <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> <span class="Comment"># . self->rightcol = tmp2</span> +<span id="L105" class="LineNr">105 </span> <span class="muS1Comment"># . self->rightcol = tmp2</span> <span id="L106" class="LineNr">106 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol <span id="L107" class="LineNr">107 </span> copy-to *tmp, tmp2 <span id="L108" class="LineNr">108 </span><span class="CommentedCode">#? print-string-to-real-screen "; right column: "</span> <span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> <span id="L110" class="LineNr">110 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="Comment"># self->row = self->toprow</span> +<span id="L111" class="LineNr">111 </span> <span class="muComment"># self->row = self->toprow</span> <span id="L112" class="LineNr">112 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow <span id="L113" class="LineNr">113 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L114" class="LineNr">114 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row <span id="L115" class="LineNr">115 </span> copy-to *tmp, tmp2 -<span id="L116" class="LineNr">116 </span> <span class="Comment"># self->col = self->leftcol</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># self->col = self->leftcol</span> <span id="L117" class="LineNr">117 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol <span id="L118" class="LineNr">118 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L119" class="LineNr">119 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col <span id="L120" class="LineNr">120 </span> copy-to *tmp, tmp2 -<span id="L121" class="LineNr">121 </span> <span class="Comment">#</span> +<span id="L121" class="LineNr">121 </span> <span class="muComment">#</span> <span id="L122" class="LineNr">122 </span> <a href='paginated-screen.mu.html#L536'>reposition-cursor</a> self <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L125'>done-drawing?</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span>$done-drawing?:body: <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="Comment"># if (self->leftcol == left-margin + 1) return false</span> +<span id="L127" class="LineNr">127 </span> <span class="muComment"># if (self->leftcol == left-margin + 1) return false</span> <span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin <span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> first-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp @@ -197,7 +197,7 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L137" class="LineNr">137 </span> <span class="PreProc">break</span> $done-drawing?:body <span id="L138" class="LineNr">138 </span> <span class="Delimiter">}</span> -<span id="L139" class="LineNr">139 </span> <span class="Comment"># return self->rightcol > self->ncols + 1</span> +<span id="L139" class="LineNr">139 </span> <span class="muComment"># return self->rightcol > self->ncols + 1</span> <span id="L140" class="LineNr">140 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols <span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp <span id="L142" class="LineNr">142 </span> max <span class="SpecialChar"><-</span> increment @@ -210,12 +210,12 @@ if ('onhashchange' in window) { <span id="L149" class="LineNr">149 </span> compare *tmp, max <span id="L150" class="LineNr">150 </span> <span class="Delimiter">{</span> <span id="L151" class="LineNr">151 </span> <span class="PreProc">break-if-></span> -<span id="L152" class="LineNr">152 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># false</span> +<span id="L152" class="LineNr">152 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> <span id="L153" class="LineNr">153 </span> <span class="PreProc">break</span> $done-drawing?:body <span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> <span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> <span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-<=</span> -<span id="L157" class="LineNr">157 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="Comment"># true</span> +<span id="L157" class="LineNr">157 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L158" class="LineNr">158 </span> <span class="Delimiter">}</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> <span id="L160" class="LineNr">160 </span><span class="Delimiter">}</span> @@ -227,20 +227,20 @@ if ('onhashchange' in window) { <span id="L166" class="LineNr">166 </span>$add-grapheme:body: <span class="Delimiter">{</span> <span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> compare c, <span class="Constant">0xa</span> <span class="Comment"># newline</span> +<span id="L169" class="LineNr">169 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> <span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-!=</span> <span id="L171" class="LineNr">171 </span> <a href='paginated-screen.mu.html#L601'>next-line</a> self <span id="L172" class="LineNr">172 </span> <a href='paginated-screen.mu.html#L536'>reposition-cursor</a> self <span id="L173" class="LineNr">173 </span> <span class="PreProc">break</span> $add-grapheme:body <span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> -<span id="L175" class="LineNr">175 </span> <span class="Comment"># print c</span> +<span id="L175" class="LineNr">175 </span> <span class="muComment"># print c</span> <span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah <span id="L178" class="LineNr">178 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> screen-addr, c -<span id="L179" class="LineNr">179 </span> <span class="Comment"># self->col++</span> +<span id="L179" class="LineNr">179 </span> <span class="muComment"># self->col++</span> <span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col <span id="L181" class="LineNr">181 </span> increment *tmp -<span id="L182" class="LineNr">182 </span> <span class="Comment"># if (self->col > self->rightcol) next-line(self)</span> +<span id="L182" class="LineNr">182 </span> <span class="muComment"># if (self->col > self->rightcol) next-line(self)</span> <span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp <span id="L184" class="LineNr">184 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol <span id="L185" class="LineNr">185 </span> compare tmp2, *tmp @@ -252,7 +252,7 @@ if ('onhashchange' in window) { <span id="L191" class="LineNr">191 </span><span class="Delimiter">}</span> <span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> <span id="L193" class="LineNr">193 </span> -<span id="L194" class="LineNr">194 </span><span class="SalientComment">## tests</span> +<span id="L194" class="LineNr">194 </span><span class="muComment">## tests</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='paginated-screen.mu.html#L196'>test-print-grapheme-on-paginated-screen</a></span> <span class="Delimiter">{</span> <span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> @@ -260,7 +260,7 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">3</span>, <span class="Constant">0xa</span>, <span class="Constant">0xa</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span id="L200" class="LineNr">200 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L201" class="LineNr">201 </span> <span class="Delimiter">{</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L203" class="LineNr">203 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -268,38 +268,38 @@ if ('onhashchange' in window) { <span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> <span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L210" class="LineNr">210 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-grapheme-on-paginated-screen"</span> +<span id="L210" class="LineNr">210 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-grapheme-on-paginated-screen"</span> <span id="L211" class="LineNr">211 </span><span class="Delimiter">}</span> <span id="L212" class="LineNr">212 </span> <span id="L213" class="LineNr">213 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L213'>test-print-single-page</a></span> <span class="Delimiter">{</span> <span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L216" class="LineNr">216 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="Comment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> +<span id="L216" class="LineNr">216 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> <span id="L217" class="LineNr">217 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L218" class="LineNr">218 </span> <span class="Comment"># pages at columns [1, 3), [3, 5)</span> +<span id="L218" class="LineNr">218 </span> <span class="muComment"># pages at columns [1, 3), [3, 5)</span> <span id="L219" class="LineNr">219 </span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L221" class="LineNr">221 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L224" class="LineNr">224 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/done-1"</span> <span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> <span id="L226" class="LineNr">226 </span> <span class="Delimiter">{</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L228" class="LineNr">228 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L231" class="LineNr">231 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/done-2"</span> <span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> <span id="L233" class="LineNr">233 </span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L235" class="LineNr">235 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L238" class="LineNr">238 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/done-3"</span> <span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> <span id="L240" class="LineNr">240 </span> <span class="Delimiter">{</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L242" class="LineNr">242 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -307,46 +307,46 @@ if ('onhashchange' in window) { <span id="L246" class="LineNr">246 </span> <span class="Delimiter">}</span> <span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L249" class="LineNr">249 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ab "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/row1"</span> -<span id="L250" class="LineNr">250 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cd "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/row2"</span> -<span id="L251" class="LineNr">251 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L249" class="LineNr">249 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ab "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/row1"</span> +<span id="L250" class="LineNr">250 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cd "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L213'>test-print-single-page</a>/row2"</span> +<span id="L251" class="LineNr">251 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L252" class="LineNr">252 </span><span class="Delimiter">}</span> <span id="L253" class="LineNr">253 </span> <span id="L254" class="LineNr">254 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a></span> <span class="Delimiter">{</span> <span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L257" class="LineNr">257 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="Comment"># 2 rows, 4 columns, 5-column pages</span> +<span id="L257" class="LineNr">257 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 5-column pages</span> <span id="L258" class="LineNr">258 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L259" class="LineNr">259 </span> <span class="Delimiter">{</span> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L261" class="LineNr">261 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L264" class="LineNr">264 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/done-1"</span> <span id="L265" class="LineNr">265 </span> <span class="Delimiter">}</span> <span id="L266" class="LineNr">266 </span> <span class="Delimiter">{</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L268" class="LineNr">268 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L271" class="LineNr">271 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/done-2"</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> <span id="L273" class="LineNr">273 </span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L275" class="LineNr">275 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L278" class="LineNr">278 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/done-3"</span> <span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> <span id="L280" class="LineNr">280 </span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L282" class="LineNr">282 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L285" class="LineNr">285 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/done-4"</span> <span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> <span id="L287" class="LineNr">287 </span> <span class="Delimiter">{</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="Comment"># 'e'</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> <span id="L289" class="LineNr">289 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -354,46 +354,46 @@ 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">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L296" class="LineNr">296 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/row1"</span> -<span id="L297" class="LineNr">297 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"e "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/row2"</span> -<span id="L298" class="LineNr">298 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L296" class="LineNr">296 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/row1"</span> +<span id="L297" class="LineNr">297 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"e "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L254'>test-print-single-page-narrower-than-page-width</a>/row2"</span> +<span id="L298" class="LineNr">298 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L299" class="LineNr">299 </span><span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> <span id="L301" class="LineNr">301 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a></span> <span class="Delimiter">{</span> <span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L304" class="LineNr">304 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="Comment"># 2 rows, 4 columns, 5-column pages, left margin</span> +<span id="L304" class="LineNr">304 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="muComment"># 2 rows, 4 columns, 5-column pages, left margin</span> <span id="L305" class="LineNr">305 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L306" class="LineNr">306 </span> <span class="Delimiter">{</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L308" class="LineNr">308 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L311" class="LineNr">311 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-1"</span> <span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> <span id="L313" class="LineNr">313 </span> <span class="Delimiter">{</span> -<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L315" class="LineNr">315 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L318" class="LineNr">318 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-2"</span> <span id="L319" class="LineNr">319 </span> <span class="Delimiter">}</span> <span id="L320" class="LineNr">320 </span> <span class="Delimiter">{</span> -<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L322" class="LineNr">322 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L325" class="LineNr">325 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-3"</span> <span id="L326" class="LineNr">326 </span> <span class="Delimiter">}</span> <span id="L327" class="LineNr">327 </span> <span class="Delimiter">{</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L329" class="LineNr">329 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L332" class="LineNr">332 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-4"</span> <span id="L333" class="LineNr">333 </span> <span class="Delimiter">}</span> <span id="L334" class="LineNr">334 </span> <span class="Delimiter">{</span> -<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="Comment"># 'e'</span> +<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> <span id="L336" class="LineNr">336 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -401,39 +401,39 @@ if ('onhashchange' in window) { <span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> <span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L343" class="LineNr">343 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/row1"</span> -<span id="L344" class="LineNr">344 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" de "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/row2"</span> -<span id="L345" class="LineNr">345 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L343" class="LineNr">343 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/row1"</span> +<span id="L344" class="LineNr">344 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" de "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L301'>test-print-single-page-narrower-than-page-width-with-margin</a>/row2"</span> +<span id="L345" class="LineNr">345 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> <span id="L347" class="LineNr">347 </span> <span id="L348" class="LineNr">348 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a></span> <span class="Delimiter">{</span> <span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L351" class="LineNr">351 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="Comment"># 2 rows, 2 columns, 2 pages * 1 column each</span> +<span id="L351" class="LineNr">351 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 2 columns, 2 pages * 1 column each</span> <span id="L352" class="LineNr">352 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L353" class="LineNr">353 </span> <span class="Delimiter">{</span> -<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L355" class="LineNr">355 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L358" class="LineNr">358 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/done-1"</span> <span id="L359" class="LineNr">359 </span> <span class="Delimiter">}</span> <span id="L360" class="LineNr">360 </span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L362" class="LineNr">362 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L365" class="LineNr">365 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/done-2"</span> <span id="L366" class="LineNr">366 </span> <span class="Delimiter">}</span> <span id="L367" class="LineNr">367 </span> <span class="Delimiter">{</span> -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L369" class="LineNr">369 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L372" class="LineNr">372 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/done-3"</span> <span id="L373" class="LineNr">373 </span> <span class="Delimiter">}</span> <span id="L374" class="LineNr">374 </span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L376" class="LineNr">376 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -441,67 +441,67 @@ if ('onhashchange' in window) { <span id="L380" class="LineNr">380 </span> <span class="Delimiter">}</span> <span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L383" class="LineNr">383 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ac"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/row1"</span> -<span id="L384" class="LineNr">384 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"bd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/row2"</span> -<span id="L385" class="LineNr">385 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L383" class="LineNr">383 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ac"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/row1"</span> +<span id="L384" class="LineNr">384 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"bd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L348'>test-print-multiple-pages</a>/row2"</span> +<span id="L385" class="LineNr">385 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> <span id="L387" class="LineNr">387 </span> <span id="L388" class="LineNr">388 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a></span> <span class="Delimiter">{</span> <span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L391" class="LineNr">391 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="Comment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> +<span id="L391" class="LineNr">391 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> <span id="L392" class="LineNr">392 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L393" class="LineNr">393 </span> <span class="Delimiter">{</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L395" class="LineNr">395 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L398" class="LineNr">398 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-1"</span> <span id="L399" class="LineNr">399 </span> <span class="Delimiter">}</span> <span id="L400" class="LineNr">400 </span> <span class="Delimiter">{</span> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L402" class="LineNr">402 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L405" class="LineNr">405 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-2"</span> <span id="L406" class="LineNr">406 </span> <span class="Delimiter">}</span> <span id="L407" class="LineNr">407 </span> <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L409" class="LineNr">409 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L412" class="LineNr">412 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-3"</span> <span id="L413" class="LineNr">413 </span> <span class="Delimiter">}</span> <span id="L414" class="LineNr">414 </span> <span class="Delimiter">{</span> -<span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L416" class="LineNr">416 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L419" class="LineNr">419 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-4"</span> <span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> <span id="L421" class="LineNr">421 </span> <span class="Delimiter">{</span> -<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="Comment"># 'e'</span> +<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> <span id="L423" class="LineNr">423 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L426" class="LineNr">426 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-5"</span> <span id="L427" class="LineNr">427 </span> <span class="Delimiter">}</span> <span id="L428" class="LineNr">428 </span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="Comment"># 'f'</span> +<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="muComment"># 'f'</span> <span id="L430" class="LineNr">430 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L433" class="LineNr">433 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-6"</span> <span id="L434" class="LineNr">434 </span> <span class="Delimiter">}</span> <span id="L435" class="LineNr">435 </span> <span class="Delimiter">{</span> -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="Comment"># 'g'</span> +<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="muComment"># 'g'</span> <span id="L437" class="LineNr">437 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L440" class="LineNr">440 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/done-7"</span> <span id="L441" class="LineNr">441 </span> <span class="Delimiter">}</span> <span id="L442" class="LineNr">442 </span> <span class="Delimiter">{</span> -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="Comment"># 'h'</span> +<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="muComment"># 'h'</span> <span id="L444" class="LineNr">444 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L446" class="LineNr">446 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -509,67 +509,67 @@ if ('onhashchange' in window) { <span id="L448" class="LineNr">448 </span> <span class="Delimiter">}</span> <span id="L449" class="LineNr">449 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L451" class="LineNr">451 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/row1"</span> -<span id="L452" class="LineNr">452 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cdgh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/row2"</span> -<span id="L453" class="LineNr">453 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L451" class="LineNr">451 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/row1"</span> +<span id="L452" class="LineNr">452 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cdgh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L388'>test-print-multiple-pages-2</a>/row2"</span> +<span id="L453" class="LineNr">453 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> <span id="L455" class="LineNr">455 </span> <span id="L456" class="LineNr">456 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a></span> <span class="Delimiter">{</span> <span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L459" class="LineNr">459 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="Comment"># 3 rows, 5 columns, 2 pages * 2 columns each</span> +<span id="L459" class="LineNr">459 </span> <a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a> pg, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 3 rows, 5 columns, 2 pages * 2 columns each</span> <span id="L460" class="LineNr">460 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg <span id="L461" class="LineNr">461 </span> <span class="Delimiter">{</span> -<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="Comment"># 'a'</span> +<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> <span id="L463" class="LineNr">463 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L464" class="LineNr">464 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L466" class="LineNr">466 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-1"</span> <span id="L467" class="LineNr">467 </span> <span class="Delimiter">}</span> <span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="Comment"># 'b'</span> +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> <span id="L470" class="LineNr">470 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L473" class="LineNr">473 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-2"</span> <span id="L474" class="LineNr">474 </span> <span class="Delimiter">}</span> <span id="L475" class="LineNr">475 </span> <span class="Delimiter">{</span> -<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="Comment"># 'c'</span> +<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> <span id="L477" class="LineNr">477 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L480" class="LineNr">480 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-3"</span> <span id="L481" class="LineNr">481 </span> <span class="Delimiter">}</span> <span id="L482" class="LineNr">482 </span> <span class="Delimiter">{</span> -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="Comment"># 'd'</span> +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> <span id="L484" class="LineNr">484 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L487" class="LineNr">487 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-4"</span> <span id="L488" class="LineNr">488 </span> <span class="Delimiter">}</span> <span id="L489" class="LineNr">489 </span> <span class="Delimiter">{</span> -<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="Comment"># 'e'</span> +<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> <span id="L491" class="LineNr">491 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L494" class="LineNr">494 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-5"</span> <span id="L495" class="LineNr">495 </span> <span class="Delimiter">}</span> <span id="L496" class="LineNr">496 </span> <span class="Delimiter">{</span> -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="Comment"># 'f'</span> +<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="muComment"># 'f'</span> <span id="L498" class="LineNr">498 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L501" class="LineNr">501 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-6"</span> <span id="L502" class="LineNr">502 </span> <span class="Delimiter">}</span> <span id="L503" class="LineNr">503 </span> <span class="Delimiter">{</span> -<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="Comment"># 'g'</span> +<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="muComment"># 'g'</span> <span id="L505" class="LineNr">505 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L506" class="LineNr">506 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? <span id="L508" class="LineNr">508 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/grapheme-7"</span> <span id="L509" class="LineNr">509 </span> <span class="Delimiter">}</span> <span id="L510" class="LineNr">510 </span> <span class="Delimiter">{</span> -<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="Comment"># 'h'</span> +<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="muComment"># 'h'</span> <span id="L512" class="LineNr">512 </span> <a href='paginated-screen.mu.html#L162'>add-grapheme</a> pg, c <span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg <span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? @@ -577,10 +577,10 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr">516 </span> <span class="Delimiter">}</span> <span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L518" class="LineNr">518 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L519" class="LineNr">519 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row1"</span> -<span id="L520" class="LineNr">520 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row2"</span> -<span id="L521" class="LineNr">521 </span> <a href='../../405screen.mu.html#L603'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row3"</span> -<span id="L522" class="LineNr">522 </span> <span class="Comment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> +<span id="L519" class="LineNr">519 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row1"</span> +<span id="L520" class="LineNr">520 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row2"</span> +<span id="L521" class="LineNr">521 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L456'>test-print-multiple-pages-with-margins</a>/row3"</span> +<span id="L522" class="LineNr">522 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> <span id="L523" class="LineNr">523 </span><span class="Delimiter">}</span> <span id="L524" class="LineNr">524 </span> <span id="L525" class="LineNr">525 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L525'>initialize-fake-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), nrows: int, ncols: int, page-width: int, top-margin: int, left-margin: int <span class="Delimiter">{</span> @@ -592,7 +592,7 @@ if ('onhashchange' in window) { <span id="L531" class="LineNr">531 </span> <a href='paginated-screen.mu.html#L29'>initialize-paginated-screen</a> self, page-width, top-margin, left-margin <span id="L532" class="LineNr">532 </span><span class="Delimiter">}</span> <span id="L533" class="LineNr">533 </span> -<span id="L534" class="LineNr">534 </span><span class="SalientComment">## simple delegates</span> +<span id="L534" class="LineNr">534 </span><span class="muComment">## simple delegates</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='paginated-screen.mu.html#L536'>reposition-cursor</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self @@ -619,63 +619,63 @@ if ('onhashchange' in window) { <span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L561" class="LineNr">561 </span> <a href='../../405screen.mu.html#L464'>start-color</a> screen-addr, fg, bg +<span id="L561" class="LineNr">561 </span> <a href='../../405screen.mu.html#L518'>start-color</a> screen-addr, fg, bg <span id="L562" class="LineNr">562 </span><span class="Delimiter">}</span> <span id="L563" class="LineNr">563 </span> <span id="L564" class="LineNr">564 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L564'>start-bold-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L565" class="LineNr">565 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L568" class="LineNr">568 </span> <a href='../../405screen.mu.html#L487'>start-bold</a> screen-addr +<span id="L568" class="LineNr">568 </span> <a href='../../405screen.mu.html#L541'>start-bold</a> screen-addr <span id="L569" class="LineNr">569 </span><span class="Delimiter">}</span> <span id="L570" class="LineNr">570 </span> <span id="L571" class="LineNr">571 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L571'>start-underline-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L574" class="LineNr">574 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L575" class="LineNr">575 </span> <a href='../../405screen.mu.html#L506'>start-underline</a> screen-addr +<span id="L575" class="LineNr">575 </span> <a href='../../405screen.mu.html#L560'>start-underline</a> screen-addr <span id="L576" class="LineNr">576 </span><span class="Delimiter">}</span> <span id="L577" class="LineNr">577 </span> <span id="L578" class="LineNr">578 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L578'>start-reverse-video-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L580" class="LineNr">580 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L581" class="LineNr">581 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L582" class="LineNr">582 </span> <a href='../../405screen.mu.html#L525'>start-reverse-video</a> screen-addr +<span id="L582" class="LineNr">582 </span> <a href='../../405screen.mu.html#L579'>start-reverse-video</a> screen-addr <span id="L583" class="LineNr">583 </span><span class="Delimiter">}</span> <span id="L584" class="LineNr">584 </span> <span id="L585" class="LineNr">585 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L585'>start-blinking-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L586" class="LineNr">586 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L587" class="LineNr">587 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L588" class="LineNr">588 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L589" class="LineNr">589 </span> <a href='../../405screen.mu.html#L544'>start-blinking</a> screen-addr +<span id="L589" class="LineNr">589 </span> <a href='../../405screen.mu.html#L598'>start-blinking</a> screen-addr <span id="L590" class="LineNr">590 </span><span class="Delimiter">}</span> <span id="L591" class="LineNr">591 </span> <span id="L592" class="LineNr">592 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L592'>reset-formatting-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L593" class="LineNr">593 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> <span id="L595" class="LineNr">595 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L596" class="LineNr">596 </span> <a href='../../405screen.mu.html#L442'>reset-formatting</a> screen-addr +<span id="L596" class="LineNr">596 </span> <a href='../../405screen.mu.html#L496'>reset-formatting</a> screen-addr <span id="L597" class="LineNr">597 </span><span class="Delimiter">}</span> <span id="L598" class="LineNr">598 </span> -<span id="L599" class="LineNr">599 </span><span class="SalientComment">## helpers</span> +<span id="L599" class="LineNr">599 </span><span class="muComment">## helpers</span> <span id="L600" class="LineNr">600 </span> <span id="L601" class="LineNr">601 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L601'>next-line</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> <span id="L602" class="LineNr">602 </span><span class="CommentedCode">#? print-string-to-real-screen "next-line\n"</span> <span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self <span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L605" class="LineNr">605 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L606" class="LineNr">606 </span> <span class="Comment"># self->col = self->leftcol</span> +<span id="L606" class="LineNr">606 </span> <span class="muComment"># self->col = self->leftcol</span> <span id="L607" class="LineNr">607 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol <span id="L608" class="LineNr">608 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L609" class="LineNr">609 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col <span id="L610" class="LineNr">610 </span> copy-to *tmp, tmp2 -<span id="L611" class="LineNr">611 </span> <span class="Comment"># self->row++</span> +<span id="L611" class="LineNr">611 </span> <span class="muComment"># self->row++</span> <span id="L612" class="LineNr">612 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row <span id="L613" class="LineNr">613 </span> increment *tmp <span id="L614" class="LineNr">614 </span><span class="CommentedCode">#? print-string-to-real-screen "next-line: row: "</span> <span id="L615" class="LineNr">615 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> <span id="L616" class="LineNr">616 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L617" class="LineNr">617 </span> <span class="Comment"># if (self->row > self->botrow) next-page(self)</span> +<span id="L617" class="LineNr">617 </span> <span class="muComment"># if (self->row > self->botrow) next-page(self)</span> <span id="L618" class="LineNr">618 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L619" class="LineNr">619 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, botrow <span id="L620" class="LineNr">620 </span> compare tmp2, *tmp @@ -695,8 +695,8 @@ if ('onhashchange' in window) { <span id="L634" class="LineNr">634 </span><span class="CommentedCode">#? tmp2 <- copy *tmp</span> <span id="L635" class="LineNr">635 </span><span class="CommentedCode">#? tmp <- get self, rightcol</span> <span id="L636" class="LineNr">636 </span><span class="CommentedCode">#? copy-to *tmp, tmp2</span> -<span id="L637" class="LineNr">637 </span> <span class="Comment"># real: multiple pages</span> -<span id="L638" class="LineNr">638 </span> <span class="Comment"># self->leftcol = self->rightcol + left-margin</span> +<span id="L637" class="LineNr">637 </span> <span class="muComment"># real: multiple pages</span> +<span id="L638" class="LineNr">638 </span> <span class="muComment"># self->leftcol = self->rightcol + left-margin</span> <span id="L639" class="LineNr">639 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol <span id="L640" class="LineNr">640 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L641" class="LineNr">641 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin @@ -706,7 +706,7 @@ if ('onhashchange' in window) { <span id="L645" class="LineNr">645 </span><span class="CommentedCode">#? print-string-to-real-screen "left: "</span> <span id="L646" class="LineNr">646 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen tmp2</span> <span id="L647" class="LineNr">647 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L648" class="LineNr">648 </span> <span class="Comment"># self->rightcol = self->leftcol + page-width</span> +<span id="L648" class="LineNr">648 </span> <span class="muComment"># self->rightcol = self->leftcol + page-width</span> <span id="L649" class="LineNr">649 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width <span id="L650" class="LineNr">650 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L651" class="LineNr">651 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol @@ -716,12 +716,12 @@ if ('onhashchange' in window) { <span id="L655" class="LineNr">655 </span><span class="CommentedCode">#? print-string-to-real-screen "right: "</span> <span id="L656" class="LineNr">656 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen tmp2</span> <span id="L657" class="LineNr">657 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L658" class="LineNr">658 </span> <span class="Comment"># self->row = self->toprow</span> +<span id="L658" class="LineNr">658 </span> <span class="muComment"># self->row = self->toprow</span> <span id="L659" class="LineNr">659 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow <span id="L660" class="LineNr">660 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L661" class="LineNr">661 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row <span id="L662" class="LineNr">662 </span> copy-to *tmp, tmp2 -<span id="L663" class="LineNr">663 </span> <span class="Comment"># self->col = self->leftcol</span> +<span id="L663" class="LineNr">663 </span> <span class="muComment"># self->col = self->leftcol</span> <span id="L664" class="LineNr">664 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol <span id="L665" class="LineNr">665 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp <span id="L666" class="LineNr">666 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col diff --git a/html/apps/calls.subx.html b/html/apps/calls.subx.html index b1d13705..4497ab95 100644 --- a/html/apps/calls.subx.html +++ b/html/apps/calls.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } @@ -317,7 +317,7 @@ if ('onhashchange' in window) { <span id="L256" class="LineNr"> 256 </span> 51/push-ecx <span id="L257" class="LineNr"> 257 </span> ff 6/subop/push *(ebp+8) <span id="L258" class="LineNr"> 258 </span> <span class="subxS2Comment"># . . call</span> -<span id="L259" class="LineNr"> 259 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L259" class="LineNr"> 259 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L260" class="LineNr"> 260 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L261" class="LineNr"> 261 </span> 81 0/subop/add %esp 8/imm32 <span id="L262" class="LineNr"> 262 </span><span class="Constant">$parse-line:check1</span>: @@ -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> @@ -370,1399 +370,1456 @@ if ('onhashchange' in window) { <span id="L348" class="LineNr"> 348 </span> <span class="subxComment"># # emit pushes</span> <span id="L349" class="LineNr"> 349 </span> <span class="subxComment"># while true</span> <span id="L350" class="LineNr"> 350 </span> <span class="subxComment"># if (curr <= min) break</span> -<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># if *curr->start in '%' '*'</span> -<span id="L352" class="LineNr"> 352 </span> <span class="subxComment"># write-buffered(out, "ff 6/subop/push ")</span> -<span id="L353" class="LineNr"> 353 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L354" class="LineNr"> 354 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L355" class="LineNr"> 355 </span> <span class="subxComment"># else</span> -<span id="L356" class="LineNr"> 356 </span> <span class="subxComment"># write-buffered(out, "68/push ")</span> -<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L358" class="LineNr"> 358 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> -<span id="L359" class="LineNr"> 359 </span> <span class="subxComment"># curr -= 8</span> -<span id="L360" class="LineNr"> 360 </span> <span class="subxComment"># # emit call</span> -<span id="L361" class="LineNr"> 361 </span> <span class="subxComment"># write-buffered(out, "e8/call ")</span> -<span id="L362" class="LineNr"> 362 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L363" class="LineNr"> 363 </span> <span class="subxComment"># write-buffered(out, "/disp32\n")</span> -<span id="L364" class="LineNr"> 364 </span> <span class="subxComment"># # emit pops</span> -<span id="L365" class="LineNr"> 365 </span> <span class="subxComment"># write-buffered(out, "81 0/subop/add %esp ")</span> -<span id="L366" class="LineNr"> 366 </span> <span class="subxComment"># write-int32-hex-buffered(out, words->write >> 1 - 4)</span> -<span id="L367" class="LineNr"> 367 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> -<span id="L368" class="LineNr"> 368 </span> <span class="subxComment">#</span> -<span id="L369" class="LineNr"> 369 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L370" class="LineNr"> 370 </span> 55/push-ebp -<span id="L371" class="LineNr"> 371 </span> 89/<- %ebp 4/r32/esp -<span id="L372" class="LineNr"> 372 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L373" class="LineNr"> 373 </span> 50/push-eax -<span id="L374" class="LineNr"> 374 </span> 51/push-ecx -<span id="L375" class="LineNr"> 375 </span> 52/push-edx -<span id="L376" class="LineNr"> 376 </span> 56/push-esi -<span id="L377" class="LineNr"> 377 </span> <span class="subxComment"># esi = words</span> -<span id="L378" class="LineNr"> 378 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L379" class="LineNr"> 379 </span> <span class="subxComment"># if (words->write < 8) abort</span> -<span id="L380" class="LineNr"> 380 </span> <span class="subxS1Comment"># . ecx = words->write - 8</span> -<span id="L381" class="LineNr"> 381 </span> 8b/-> *esi 1/r32/ecx -<span id="L382" class="LineNr"> 382 </span> 81 5/subop/subtract %ecx 8/imm32 -<span id="L383" class="LineNr"> 383 </span> 0f 8c/jump-if-< $emit-call:error1/disp32 -<span id="L384" class="LineNr"> 384 </span> <span class="subxComment"># var curr/ecx: (addr slice) = &words->data[words->write-8]</span> -<span id="L385" class="LineNr"> 385 </span> 8d/copy-address *(esi+ecx+0xc) 1/r32/ecx -<span id="L386" class="LineNr"> 386 </span> <span class="subxComment"># var min/edx: (addr byte) = words->data</span> -<span id="L387" class="LineNr"> 387 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L388" class="LineNr"> 388 </span> <span class="subxH1Comment"># - emit pushes</span> -<span id="L389" class="LineNr"> 389 </span><span class="Constant">$emit-call:push-loop</span>: -<span id="L390" class="LineNr"> 390 </span> <span class="subxComment"># if (curr <= min) break</span> -<span id="L391" class="LineNr"> 391 </span> 39/compare %ecx 2/r32/edx -<span id="L392" class="LineNr"> 392 </span> 0f 8e/jump-if-<= $emit-call:call-instruction/disp32 -<span id="L393" class="LineNr"> 393 </span> <span class="subxComment"># if (*curr->start in '%' '*') goto push-rm32</span> -<span id="L394" class="LineNr"> 394 </span> <span class="subxS1Comment"># . var start/eax: (addr byte) = curr->start</span> -<span id="L395" class="LineNr"> 395 </span> 8b/-> *ecx 0/r32/eax -<span id="L396" class="LineNr"> 396 </span> <span class="subxS1Comment"># . var c/eax: byte = *eax</span> -<span id="L397" class="LineNr"> 397 </span> 8b/-> *eax 0/r32/eax -<span id="L398" class="LineNr"> 398 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L399" class="LineNr"> 399 </span> <span class="subxS1Comment"># . if (c == '%') goto push-rm32</span> -<span id="L400" class="LineNr"> 400 </span> 3d/compare-eax-and 0x25/imm32/percent -<span id="L401" class="LineNr"> 401 </span> 74/jump-if-= $emit-call:push-rm32/disp8 -<span id="L402" class="LineNr"> 402 </span> <span class="subxS1Comment"># . if (c == '*') goto push-rm32</span> -<span id="L403" class="LineNr"> 403 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L404" class="LineNr"> 404 </span> 74/jump-if-= $emit-call:push-rm32/disp8 -<span id="L405" class="LineNr"> 405 </span><span class="Constant">$emit-call:push-imm32</span>: -<span id="L406" class="LineNr"> 406 </span> <span class="subxComment"># write-buffered(out, "68/push ")</span> -<span id="L407" class="LineNr"> 407 </span> 68/push <span class="Constant">"68/push "</span>/imm32 -<span id="L408" class="LineNr"> 408 </span> ff 6/subop/push *(ebp+8) -<span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L410" class="LineNr"> 410 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L412" class="LineNr"> 412 </span> 81 0/subop/add %esp 8/imm32 -<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L414" class="LineNr"> 414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L415" class="LineNr"> 415 </span> 51/push-ecx -<span id="L416" class="LineNr"> 416 </span> ff 6/subop/push *(ebp+8) -<span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . call</span> -<span id="L418" class="LineNr"> 418 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L420" class="LineNr"> 420 </span> 81 0/subop/add %esp 8/imm32 -<span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> -<span id="L422" class="LineNr"> 422 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 -<span id="L423" class="LineNr"> 423 </span> ff 6/subop/push *(ebp+8) -<span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L425" class="LineNr"> 425 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L427" class="LineNr"> 427 </span> 81 0/subop/add %esp 8/imm32 -<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># continue</span> -<span id="L429" class="LineNr"> 429 </span> eb/jump $emit-call:next-push/disp8 -<span id="L430" class="LineNr"> 430 </span><span class="Constant">$emit-call:push-rm32</span>: -<span id="L431" class="LineNr"> 431 </span> <span class="subxComment"># write-buffered(out, "ff 6/subop/push ")</span> +<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># if slice-starts-with?(curr, "%x") # floating-point register</span> +<span id="L352" class="LineNr"> 352 </span> <span class="subxComment"># write-buffered(out, "81 5/subop/subtract %esp 4/imm32\n")</span> +<span id="L353" class="LineNr"> 353 </span> <span class="subxComment"># write-buffered(out, "f3 0f 11/<- *esp ")</span> +<span id="L354" class="LineNr"> 354 </span> <span class="subxComment"># write-byte-buffered(out, *(curr->start+4))</span> +<span id="L355" class="LineNr"> 355 </span> <span class="subxComment"># write-buffered(out, "/x32\n")</span> +<span id="L356" class="LineNr"> 356 </span> <span class="subxComment"># else if *curr->start in '%' '*'</span> +<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># write-buffered(out, "ff 6/subop/push ")</span> +<span id="L358" class="LineNr"> 358 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L359" class="LineNr"> 359 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L360" class="LineNr"> 360 </span> <span class="subxComment"># else</span> +<span id="L361" class="LineNr"> 361 </span> <span class="subxComment"># write-buffered(out, "68/push ")</span> +<span id="L362" class="LineNr"> 362 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L363" class="LineNr"> 363 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> +<span id="L364" class="LineNr"> 364 </span> <span class="subxComment"># curr -= 8</span> +<span id="L365" class="LineNr"> 365 </span> <span class="subxComment"># # emit call</span> +<span id="L366" class="LineNr"> 366 </span> <span class="subxComment"># write-buffered(out, "e8/call ")</span> +<span id="L367" class="LineNr"> 367 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L368" class="LineNr"> 368 </span> <span class="subxComment"># write-buffered(out, "/disp32\n")</span> +<span id="L369" class="LineNr"> 369 </span> <span class="subxComment"># # emit pops</span> +<span id="L370" class="LineNr"> 370 </span> <span class="subxComment"># write-buffered(out, "81 0/subop/add %esp ")</span> +<span id="L371" class="LineNr"> 371 </span> <span class="subxComment"># write-int32-hex-buffered(out, words->write >> 1 - 4)</span> +<span id="L372" class="LineNr"> 372 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> +<span id="L373" class="LineNr"> 373 </span> <span class="subxComment">#</span> +<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L375" class="LineNr"> 375 </span> 55/push-ebp +<span id="L376" class="LineNr"> 376 </span> 89/<- %ebp 4/r32/esp +<span id="L377" class="LineNr"> 377 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L378" class="LineNr"> 378 </span> 50/push-eax +<span id="L379" class="LineNr"> 379 </span> 51/push-ecx +<span id="L380" class="LineNr"> 380 </span> 52/push-edx +<span id="L381" class="LineNr"> 381 </span> 56/push-esi +<span id="L382" class="LineNr"> 382 </span> <span class="subxComment"># esi = words</span> +<span id="L383" class="LineNr"> 383 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L384" class="LineNr"> 384 </span> <span class="subxComment"># if (words->write < 8) abort</span> +<span id="L385" class="LineNr"> 385 </span> <span class="subxS1Comment"># . ecx = words->write - 8</span> +<span id="L386" class="LineNr"> 386 </span> 8b/-> *esi 1/r32/ecx +<span id="L387" class="LineNr"> 387 </span> 81 5/subop/subtract %ecx 8/imm32 +<span id="L388" class="LineNr"> 388 </span> 0f 8c/jump-if-< $emit-call:error1/disp32 +<span id="L389" class="LineNr"> 389 </span> <span class="subxComment"># var curr/ecx: (addr slice) = &words->data[words->write-8]</span> +<span id="L390" class="LineNr"> 390 </span> 8d/copy-address *(esi+ecx+0xc) 1/r32/ecx +<span id="L391" class="LineNr"> 391 </span> <span class="subxComment"># var min/edx: (addr byte) = words->data</span> +<span id="L392" class="LineNr"> 392 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L393" class="LineNr"> 393 </span> <span class="subxH1Comment"># - emit pushes</span> +<span id="L394" class="LineNr"> 394 </span><span class="Constant">$emit-call:push-loop</span>: +<span id="L395" class="LineNr"> 395 </span> <span class="subxComment"># if (curr <= min) break</span> +<span id="L396" class="LineNr"> 396 </span> 39/compare %ecx 2/r32/edx +<span id="L397" class="LineNr"> 397 </span> 0f 8e/jump-if-<= $emit-call:call-instruction/disp32 +<span id="L398" class="LineNr"> 398 </span> <span class="subxComment"># if !slice-starts-with?(curr, "%x") goto next check</span> +<span id="L399" class="LineNr"> 399 </span> <span class="subxS1Comment"># . eax = slice-starts-with?(curr, "%x")</span> +<span id="L400" class="LineNr"> 400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L401" class="LineNr"> 401 </span> 68/push <span class="Constant">"%x"</span>/imm32 +<span id="L402" class="LineNr"> 402 </span> 51/push-ecx +<span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . call</span> +<span id="L404" class="LineNr"> 404 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L405" class="LineNr"> 405 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L406" class="LineNr"> 406 </span> 81 0/subop/add %esp 8/imm32 +<span id="L407" class="LineNr"> 407 </span> <span class="subxS1Comment"># . if (eax != 0) goto next check</span> +<span id="L408" class="LineNr"> 408 </span> 3d/compare-eax-and 0/imm32/false +<span id="L409" class="LineNr"> 409 </span> 74/jump-if-= $emit-call:push-int/disp8 +<span id="L410" class="LineNr"> 410 </span> <span class="subxComment"># emit floating-point push</span> +<span id="L411" class="LineNr"> 411 </span> <span class="subxS1Comment"># . write-buffered(out, "81 5/subop/subtract %esp 4/imm32\n")</span> +<span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>/imm32 +<span id="L414" class="LineNr"> 414 </span> ff 6/subop/push *(ebp+8) +<span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . call</span> +<span id="L416" class="LineNr"> 416 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L418" class="LineNr"> 418 </span> 81 0/subop/add %esp 8/imm32 +<span id="L419" class="LineNr"> 419 </span> <span class="subxS1Comment"># . write-buffered(out, "f3 0f 11/<- *esp ")</span> +<span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L421" class="LineNr"> 421 </span> 68/push <span class="Constant">"f3 0f 11/<- *esp "</span>/imm32 +<span id="L422" class="LineNr"> 422 </span> ff 6/subop/push *(ebp+8) +<span id="L423" class="LineNr"> 423 </span> <span class="subxS2Comment"># . . call</span> +<span id="L424" class="LineNr"> 424 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L425" class="LineNr"> 425 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L426" class="LineNr"> 426 </span> 81 0/subop/add %esp 8/imm32 +<span id="L427" class="LineNr"> 427 </span> <span class="subxS1Comment"># . write-byte-buffered(out, *(curr->start+4))</span> +<span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . eax = *(curr->start+4)</span> +<span id="L429" class="LineNr"> 429 </span> 8b/-> *ecx 0/r32/eax +<span id="L430" class="LineNr"> 430 </span> 8a/copy-byte *(eax+4) 0/r32/eax +<span id="L431" class="LineNr"> 431 </span> 81 4/subop/and %eax 0xff/imm32 <span id="L432" class="LineNr"> 432 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L433" class="LineNr"> 433 </span> 68/push <span class="Constant">"ff 6/subop/push "</span>/imm32 +<span id="L433" class="LineNr"> 433 </span> 50/push-eax <span id="L434" class="LineNr"> 434 </span> ff 6/subop/push *(ebp+8) <span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L436" class="LineNr"> 436 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L436" class="LineNr"> 436 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 <span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L438" class="LineNr"> 438 </span> 81 0/subop/add %esp 8/imm32 -<span id="L439" class="LineNr"> 439 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L440" class="LineNr"> 440 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L441" class="LineNr"> 441 </span> 51/push-ecx -<span id="L442" class="LineNr"> 442 </span> ff 6/subop/push *(ebp+8) -<span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L444" class="LineNr"> 444 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L445" class="LineNr"> 445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L446" class="LineNr"> 446 </span> 81 0/subop/add %esp 8/imm32 -<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L448" class="LineNr"> 448 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L449" class="LineNr"> 449 </span> ff 6/subop/push *(ebp+8) -<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . call</span> -<span id="L451" class="LineNr"> 451 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L452" class="LineNr"> 452 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L453" class="LineNr"> 453 </span> 81 0/subop/add %esp 8/imm32 -<span id="L454" class="LineNr"> 454 </span><span class="Constant">$emit-call:next-push</span>: -<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># curr -= 8</span> -<span id="L456" class="LineNr"> 456 </span> 81 5/subop/subtract %ecx 8/imm32 -<span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># loop</span> -<span id="L458" class="LineNr"> 458 </span> e9/jump $emit-call:push-loop/disp32 -<span id="L459" class="LineNr"> 459 </span><span class="Constant">$emit-call:call-instruction</span>: -<span id="L460" class="LineNr"> 460 </span> <span class="subxComment"># write-buffered(out, "e8/call ")</span> -<span id="L461" class="LineNr"> 461 </span> 68/push <span class="Constant">"e8/call "</span>/imm32 -<span id="L462" class="LineNr"> 462 </span> ff 6/subop/push *(ebp+8) -<span id="L463" class="LineNr"> 463 </span> <span class="subxS2Comment"># . . call</span> -<span id="L464" class="LineNr"> 464 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L465" class="LineNr"> 465 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L466" class="LineNr"> 466 </span> 81 0/subop/add %esp 8/imm32 -<span id="L467" class="LineNr"> 467 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> -<span id="L468" class="LineNr"> 468 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L469" class="LineNr"> 469 </span> 51/push-ecx -<span id="L470" class="LineNr"> 470 </span> ff 6/subop/push *(ebp+8) -<span id="L471" class="LineNr"> 471 </span> <span class="subxS2Comment"># . . call</span> -<span id="L472" class="LineNr"> 472 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L473" class="LineNr"> 473 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L474" class="LineNr"> 474 </span> 81 0/subop/add %esp 8/imm32 -<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># write-buffered(out, "/disp32\n")</span> -<span id="L476" class="LineNr"> 476 </span> 68/push <span class="Constant">"/disp32\n"</span>/imm32 -<span id="L477" class="LineNr"> 477 </span> ff 6/subop/push *(ebp+8) -<span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L479" class="LineNr"> 479 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L481" class="LineNr"> 481 </span> 81 0/subop/add %esp 8/imm32 -<span id="L482" class="LineNr"> 482 </span><span class="Constant">$emit-call:pop-instruction</span>: -<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># write-buffered(out, "81 0/subop/add %esp ")</span> -<span id="L484" class="LineNr"> 484 </span> 68/push <span class="Constant">"81 0/subop/add %esp "</span>/imm32 -<span id="L485" class="LineNr"> 485 </span> ff 6/subop/push *(ebp+8) -<span id="L486" class="LineNr"> 486 </span> <span class="subxS2Comment"># . . call</span> -<span id="L487" class="LineNr"> 487 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L488" class="LineNr"> 488 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L489" class="LineNr"> 489 </span> 81 0/subop/add %esp 8/imm32 -<span id="L490" class="LineNr"> 490 </span> <span class="subxComment"># write-int32-hex-buffered(out, words->write >> 1 - 4)</span> -<span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L492" class="LineNr"> 492 </span> 8b/-> *esi 0/r32/eax -<span id="L493" class="LineNr"> 493 </span> c1/shift 7/subop/arith-right %eax 1/imm8 -<span id="L494" class="LineNr"> 494 </span> 2d/subtract-from-eax 4/imm32 -<span id="L495" class="LineNr"> 495 </span> 50/push-eax -<span id="L496" class="LineNr"> 496 </span> ff 6/subop/push *(ebp+8) -<span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . call</span> -<span id="L498" class="LineNr"> 498 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L499" class="LineNr"> 499 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L500" class="LineNr"> 500 </span> 81 0/subop/add %esp 8/imm32 -<span id="L501" class="LineNr"> 501 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> -<span id="L502" class="LineNr"> 502 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 -<span id="L503" class="LineNr"> 503 </span> ff 6/subop/push *(ebp+8) -<span id="L504" class="LineNr"> 504 </span> <span class="subxS2Comment"># . . call</span> -<span id="L505" class="LineNr"> 505 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L506" class="LineNr"> 506 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L507" class="LineNr"> 507 </span> 81 0/subop/add %esp 8/imm32 -<span id="L508" class="LineNr"> 508 </span><span class="Constant">$emit-call:end</span>: -<span id="L509" class="LineNr"> 509 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L510" class="LineNr"> 510 </span> 5e/pop-to-esi -<span id="L511" class="LineNr"> 511 </span> 5a/pop-to-edx -<span id="L512" class="LineNr"> 512 </span> 59/pop-to-ecx -<span id="L513" class="LineNr"> 513 </span> 58/pop-to-eax -<span id="L514" class="LineNr"> 514 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L515" class="LineNr"> 515 </span> 89/<- %esp 5/r32/ebp -<span id="L516" class="LineNr"> 516 </span> 5d/pop-to-ebp -<span id="L517" class="LineNr"> 517 </span> c3/return -<span id="L518" class="LineNr"> 518 </span> -<span id="L519" class="LineNr"> 519 </span><span class="Constant">$emit-call:error1</span>: -<span id="L520" class="LineNr"> 520 </span> <span class="subxComment"># print(stderr, "error: calls.subx: '()' is not a valid call")</span> -<span id="L521" class="LineNr"> 521 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: calls.subx: '()' is not a valid call")</span> -<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L523" class="LineNr"> 523 </span> 68/push <span class="Constant">"error: calls.subx: '()' is not a valid call"</span>/imm32 -<span id="L524" class="LineNr"> 524 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L526" class="LineNr"> 526 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L527" class="LineNr"> 527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L528" class="LineNr"> 528 </span> 81 0/subop/add %esp 8/imm32 -<span id="L529" class="LineNr"> 529 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L531" class="LineNr"> 531 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L532" class="LineNr"> 532 </span> <span class="subxS2Comment"># . . call</span> -<span id="L533" class="LineNr"> 533 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L534" class="LineNr"> 534 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L535" class="LineNr"> 535 </span> 81 0/subop/add %esp 4/imm32 -<span id="L536" class="LineNr"> 536 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L537" class="LineNr"> 537 </span> bb/copy-to-ebx 1/imm32 -<span id="L538" class="LineNr"> 538 </span> e8/call syscall_exit/disp32 -<span id="L539" class="LineNr"> 539 </span> <span class="subxComment"># never gets here</span> -<span id="L540" class="LineNr"> 540 </span> -<span id="L541" class="LineNr"> 541 </span><span class="subxTest">test-subx-calls-passes-most-lines-through</span>: -<span id="L542" class="LineNr"> 542 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L543" class="LineNr"> 543 </span> 55/push-ebp -<span id="L544" class="LineNr"> 544 </span> 89/<- %ebp 4/r32/esp -<span id="L545" class="LineNr"> 545 </span> <span class="subxComment"># setup</span> -<span id="L546" class="LineNr"> 546 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L548" class="LineNr"> 548 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L549" class="LineNr"> 549 </span> <span class="subxS2Comment"># . . call</span> -<span id="L550" class="LineNr"> 550 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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 %esp 4/imm32 -<span id="L553" class="LineNr"> 553 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L554" class="LineNr"> 554 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L555" class="LineNr"> 555 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<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#L17'>clear-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 %esp 4/imm32 -<span id="L560" class="LineNr"> 560 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L562" class="LineNr"> 562 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . call</span> -<span id="L564" class="LineNr"> 564 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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 %esp 4/imm32 -<span id="L567" class="LineNr"> 567 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L568" class="LineNr"> 568 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L569" class="LineNr"> 569 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L570" class="LineNr"> 570 </span> <span class="subxS2Comment"># . . call</span> -<span id="L571" class="LineNr"> 571 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L573" class="LineNr"> 573 </span> 81 0/subop/add %esp 4/imm32 -<span id="L574" class="LineNr"> 574 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1\n")</span> -<span id="L575" class="LineNr"> 575 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L576" class="LineNr"> 576 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 -<span id="L577" class="LineNr"> 577 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L578" class="LineNr"> 578 </span> <span class="subxS2Comment"># . . call</span> -<span id="L579" class="LineNr"> 579 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L580" class="LineNr"> 580 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L581" class="LineNr"> 581 </span> 81 0/subop/add %esp 8/imm32 -<span id="L582" class="LineNr"> 582 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L584" class="LineNr"> 584 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L585" class="LineNr"> 585 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L587" class="LineNr"> 587 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 -<span id="L588" class="LineNr"> 588 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L589" class="LineNr"> 589 </span> 81 0/subop/add %esp 8/imm32 -<span id="L590" class="LineNr"> 590 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L591" class="LineNr"> 591 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L592" class="LineNr"> 592 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L593" class="LineNr"> 593 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L594" class="LineNr"> 594 </span> <span class="subxS2Comment"># . . call</span> -<span id="L595" class="LineNr"> 595 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L596" class="LineNr"> 596 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L597" class="LineNr"> 597 </span> 81 0/subop/add %esp 4/imm32 -<span id="L598" class="LineNr"> 598 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1\n", msg)</span> -<span id="L599" class="LineNr"> 599 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L600" class="LineNr"> 600 </span> 68/push <span class="Constant">"F - test-subx-calls-passes-most-lines-through"</span>/imm32 -<span id="L601" class="LineNr"> 601 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 -<span id="L602" class="LineNr"> 602 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L603" class="LineNr"> 603 </span> <span class="subxS2Comment"># . . call</span> -<span id="L604" class="LineNr"> 604 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L605" class="LineNr"> 605 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L606" class="LineNr"> 606 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L608" class="LineNr"> 608 </span> 89/<- %esp 5/r32/ebp -<span id="L609" class="LineNr"> 609 </span> 5d/pop-to-ebp -<span id="L610" class="LineNr"> 610 </span> c3/return -<span id="L611" class="LineNr"> 611 </span> -<span id="L612" class="LineNr"> 612 </span><span class="subxTest">test-subx-calls-processes-calls</span>: -<span id="L613" class="LineNr"> 613 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L614" class="LineNr"> 614 </span> 55/push-ebp -<span id="L615" class="LineNr"> 615 </span> 89/<- %ebp 4/r32/esp -<span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># setup</span> -<span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxS1Comment"># . write-buffered(out, "/x32\n")</span> +<span id="L440" class="LineNr"> 440 </span> 68/push <span class="Constant">"/x32\n"</span>/imm32 +<span id="L441" class="LineNr"> 441 </span> ff 6/subop/push *(ebp+8) +<span id="L442" class="LineNr"> 442 </span> <span class="subxS2Comment"># . . call</span> +<span id="L443" class="LineNr"> 443 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L445" class="LineNr"> 445 </span> 81 0/subop/add %esp 8/imm32 +<span id="L446" class="LineNr"> 446 </span> <span class="subxS1Comment"># . continue</span> +<span id="L447" class="LineNr"> 447 </span> e9/jump $emit-call:next-push/disp32 +<span id="L448" class="LineNr"> 448 </span><span class="Constant">$emit-call:push-int</span>: +<span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># if (*curr->start in '%' '*') goto push-rm32</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxS1Comment"># . var start/eax: (addr byte) = curr->start</span> +<span id="L451" class="LineNr"> 451 </span> 8b/-> *ecx 0/r32/eax +<span id="L452" class="LineNr"> 452 </span> <span class="subxS1Comment"># . var c/eax: byte = *eax</span> +<span id="L453" class="LineNr"> 453 </span> 8b/-> *eax 0/r32/eax +<span id="L454" class="LineNr"> 454 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L455" class="LineNr"> 455 </span> <span class="subxS1Comment"># . if (c == '%') goto push-rm32</span> +<span id="L456" class="LineNr"> 456 </span> 3d/compare-eax-and 0x25/imm32/percent +<span id="L457" class="LineNr"> 457 </span> 74/jump-if-= $emit-call:push-rm32/disp8 +<span id="L458" class="LineNr"> 458 </span> <span class="subxS1Comment"># . if (c == '*') goto push-rm32</span> +<span id="L459" class="LineNr"> 459 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L460" class="LineNr"> 460 </span> 74/jump-if-= $emit-call:push-rm32/disp8 +<span id="L461" class="LineNr"> 461 </span><span class="Constant">$emit-call:push-imm32</span>: +<span id="L462" class="LineNr"> 462 </span> <span class="subxComment"># write-buffered(out, "68/push ")</span> +<span id="L463" class="LineNr"> 463 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L464" class="LineNr"> 464 </span> 68/push <span class="Constant">"68/push "</span>/imm32 +<span id="L465" class="LineNr"> 465 </span> ff 6/subop/push *(ebp+8) +<span id="L466" class="LineNr"> 466 </span> <span class="subxS2Comment"># . . call</span> +<span id="L467" class="LineNr"> 467 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L468" class="LineNr"> 468 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L469" class="LineNr"> 469 </span> 81 0/subop/add %esp 8/imm32 +<span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L471" class="LineNr"> 471 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L472" class="LineNr"> 472 </span> 51/push-ecx +<span id="L473" class="LineNr"> 473 </span> ff 6/subop/push *(ebp+8) +<span id="L474" class="LineNr"> 474 </span> <span class="subxS2Comment"># . . call</span> +<span id="L475" class="LineNr"> 475 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L476" class="LineNr"> 476 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L477" class="LineNr"> 477 </span> 81 0/subop/add %esp 8/imm32 +<span id="L478" class="LineNr"> 478 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> +<span id="L479" class="LineNr"> 479 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 +<span id="L480" class="LineNr"> 480 </span> ff 6/subop/push *(ebp+8) +<span id="L481" class="LineNr"> 481 </span> <span class="subxS2Comment"># . . call</span> +<span id="L482" class="LineNr"> 482 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L484" class="LineNr"> 484 </span> 81 0/subop/add %esp 8/imm32 +<span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># continue</span> +<span id="L486" class="LineNr"> 486 </span> eb/jump $emit-call:next-push/disp8 +<span id="L487" class="LineNr"> 487 </span><span class="Constant">$emit-call:push-rm32</span>: +<span id="L488" class="LineNr"> 488 </span> <span class="subxComment"># write-buffered(out, "ff 6/subop/push ")</span> +<span id="L489" class="LineNr"> 489 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L490" class="LineNr"> 490 </span> 68/push <span class="Constant">"ff 6/subop/push "</span>/imm32 +<span id="L491" class="LineNr"> 491 </span> ff 6/subop/push *(ebp+8) +<span id="L492" class="LineNr"> 492 </span> <span class="subxS2Comment"># . . call</span> +<span id="L493" class="LineNr"> 493 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L494" class="LineNr"> 494 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L495" class="LineNr"> 495 </span> 81 0/subop/add %esp 8/imm32 +<span id="L496" class="LineNr"> 496 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L498" class="LineNr"> 498 </span> 51/push-ecx +<span id="L499" class="LineNr"> 499 </span> ff 6/subop/push *(ebp+8) +<span id="L500" class="LineNr"> 500 </span> <span class="subxS2Comment"># . . call</span> +<span id="L501" class="LineNr"> 501 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L502" class="LineNr"> 502 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L503" class="LineNr"> 503 </span> 81 0/subop/add %esp 8/imm32 +<span id="L504" class="LineNr"> 504 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L505" class="LineNr"> 505 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L506" class="LineNr"> 506 </span> ff 6/subop/push *(ebp+8) +<span id="L507" class="LineNr"> 507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L508" class="LineNr"> 508 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L509" class="LineNr"> 509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L510" class="LineNr"> 510 </span> 81 0/subop/add %esp 8/imm32 +<span id="L511" class="LineNr"> 511 </span><span class="Constant">$emit-call:next-push</span>: +<span id="L512" class="LineNr"> 512 </span> <span class="subxComment"># curr -= 8</span> +<span id="L513" class="LineNr"> 513 </span> 81 5/subop/subtract %ecx 8/imm32 +<span id="L514" class="LineNr"> 514 </span> <span class="subxComment"># loop</span> +<span id="L515" class="LineNr"> 515 </span> e9/jump $emit-call:push-loop/disp32 +<span id="L516" class="LineNr"> 516 </span><span class="Constant">$emit-call:call-instruction</span>: +<span id="L517" class="LineNr"> 517 </span> <span class="subxComment"># write-buffered(out, "e8/call ")</span> +<span id="L518" class="LineNr"> 518 </span> 68/push <span class="Constant">"e8/call "</span>/imm32 +<span id="L519" class="LineNr"> 519 </span> ff 6/subop/push *(ebp+8) +<span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> +<span id="L521" class="LineNr"> 521 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L523" class="LineNr"> 523 </span> 81 0/subop/add %esp 8/imm32 +<span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> +<span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L526" class="LineNr"> 526 </span> 51/push-ecx +<span id="L527" class="LineNr"> 527 </span> ff 6/subop/push *(ebp+8) +<span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> +<span id="L529" class="LineNr"> 529 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L531" class="LineNr"> 531 </span> 81 0/subop/add %esp 8/imm32 +<span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># write-buffered(out, "/disp32\n")</span> +<span id="L533" class="LineNr"> 533 </span> 68/push <span class="Constant">"/disp32\n"</span>/imm32 +<span id="L534" class="LineNr"> 534 </span> ff 6/subop/push *(ebp+8) +<span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> +<span id="L536" class="LineNr"> 536 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L538" class="LineNr"> 538 </span> 81 0/subop/add %esp 8/imm32 +<span id="L539" class="LineNr"> 539 </span><span class="Constant">$emit-call:pop-instruction</span>: +<span id="L540" class="LineNr"> 540 </span> <span class="subxComment"># write-buffered(out, "81 0/subop/add %esp ")</span> +<span id="L541" class="LineNr"> 541 </span> 68/push <span class="Constant">"81 0/subop/add %esp "</span>/imm32 +<span id="L542" class="LineNr"> 542 </span> ff 6/subop/push *(ebp+8) +<span id="L543" class="LineNr"> 543 </span> <span class="subxS2Comment"># . . call</span> +<span id="L544" class="LineNr"> 544 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L545" class="LineNr"> 545 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L546" class="LineNr"> 546 </span> 81 0/subop/add %esp 8/imm32 +<span id="L547" class="LineNr"> 547 </span> <span class="subxComment"># write-int32-hex-buffered(out, words->write >> 1 - 4)</span> +<span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L549" class="LineNr"> 549 </span> 8b/-> *esi 0/r32/eax +<span id="L550" class="LineNr"> 550 </span> c1/shift 7/subop/arith-right %eax 1/imm8 +<span id="L551" class="LineNr"> 551 </span> 2d/subtract-from-eax 4/imm32 +<span id="L552" class="LineNr"> 552 </span> 50/push-eax +<span id="L553" class="LineNr"> 553 </span> ff 6/subop/push *(ebp+8) +<span id="L554" class="LineNr"> 554 </span> <span class="subxS2Comment"># . . call</span> +<span id="L555" class="LineNr"> 555 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L557" class="LineNr"> 557 </span> 81 0/subop/add %esp 8/imm32 +<span id="L558" class="LineNr"> 558 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> +<span id="L559" class="LineNr"> 559 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 +<span id="L560" class="LineNr"> 560 </span> ff 6/subop/push *(ebp+8) +<span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . call</span> +<span id="L562" class="LineNr"> 562 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L564" class="LineNr"> 564 </span> 81 0/subop/add %esp 8/imm32 +<span id="L565" class="LineNr"> 565 </span><span class="Constant">$emit-call:end</span>: +<span id="L566" class="LineNr"> 566 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L567" class="LineNr"> 567 </span> 5e/pop-to-esi +<span id="L568" class="LineNr"> 568 </span> 5a/pop-to-edx +<span id="L569" class="LineNr"> 569 </span> 59/pop-to-ecx +<span id="L570" class="LineNr"> 570 </span> 58/pop-to-eax +<span id="L571" class="LineNr"> 571 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L572" class="LineNr"> 572 </span> 89/<- %esp 5/r32/ebp +<span id="L573" class="LineNr"> 573 </span> 5d/pop-to-ebp +<span id="L574" class="LineNr"> 574 </span> c3/return +<span id="L575" class="LineNr"> 575 </span> +<span id="L576" class="LineNr"> 576 </span><span class="Constant">$emit-call:error1</span>: +<span id="L577" class="LineNr"> 577 </span> <span class="subxComment"># print(stderr, "error: calls.subx: '()' is not a valid call")</span> +<span id="L578" class="LineNr"> 578 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: calls.subx: '()' is not a valid call")</span> +<span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L580" class="LineNr"> 580 </span> 68/push <span class="Constant">"error: calls.subx: '()' is not a valid call"</span>/imm32 +<span id="L581" class="LineNr"> 581 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L582" class="LineNr"> 582 </span> <span class="subxS2Comment"># . . call</span> +<span id="L583" class="LineNr"> 583 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L585" class="LineNr"> 585 </span> 81 0/subop/add %esp 8/imm32 +<span id="L586" class="LineNr"> 586 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L588" class="LineNr"> 588 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L589" class="LineNr"> 589 </span> <span class="subxS2Comment"># . . call</span> +<span id="L590" class="LineNr"> 590 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L591" class="LineNr"> 591 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L592" class="LineNr"> 592 </span> 81 0/subop/add %esp 4/imm32 +<span id="L593" class="LineNr"> 593 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L594" class="LineNr"> 594 </span> bb/copy-to-ebx 1/imm32 +<span id="L595" class="LineNr"> 595 </span> e8/call syscall_exit/disp32 +<span id="L596" class="LineNr"> 596 </span> <span class="subxComment"># never gets here</span> +<span id="L597" class="LineNr"> 597 </span> +<span id="L598" class="LineNr"> 598 </span><span class="subxTest">test-subx-calls-passes-most-lines-through</span>: +<span id="L599" class="LineNr"> 599 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L600" class="LineNr"> 600 </span> 55/push-ebp +<span id="L601" class="LineNr"> 601 </span> 89/<- %ebp 4/r32/esp +<span id="L602" class="LineNr"> 602 </span> <span class="subxComment"># setup</span> +<span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L605" class="LineNr"> 605 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . call</span> +<span id="L607" class="LineNr"> 607 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L608" class="LineNr"> 608 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L609" class="LineNr"> 609 </span> 81 0/subop/add %esp 4/imm32 +<span id="L610" class="LineNr"> 610 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L611" class="LineNr"> 611 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L612" class="LineNr"> 612 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L613" class="LineNr"> 613 </span> <span class="subxS2Comment"># . . call</span> +<span id="L614" class="LineNr"> 614 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L615" class="LineNr"> 615 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L616" class="LineNr"> 616 </span> 81 0/subop/add %esp 4/imm32 +<span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L619" class="LineNr"> 619 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L619" class="LineNr"> 619 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> <span id="L621" class="LineNr"> 621 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L623" class="LineNr"> 623 </span> 81 0/subop/add %esp 4/imm32 -<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L626" class="LineNr"> 626 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L626" class="LineNr"> 626 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L627" class="LineNr"> 627 </span> <span class="subxS2Comment"># . . call</span> <span id="L628" class="LineNr"> 628 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L630" class="LineNr"> 630 </span> 81 0/subop/add %esp 4/imm32 -<span id="L631" class="LineNr"> 631 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L631" class="LineNr"> 631 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1\n")</span> <span id="L632" class="LineNr"> 632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L633" class="LineNr"> 633 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L634" class="LineNr"> 634 </span> <span class="subxS2Comment"># . . call</span> -<span id="L635" class="LineNr"> 635 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L636" class="LineNr"> 636 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L637" class="LineNr"> 637 </span> 81 0/subop/add %esp 4/imm32 -<span id="L638" class="LineNr"> 638 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L640" class="LineNr"> 640 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L642" class="LineNr"> 642 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L644" class="LineNr"> 644 </span> 81 0/subop/add %esp 4/imm32 -<span id="L645" class="LineNr"> 645 </span> <span class="subxS1Comment"># . write(_test-input-stream, "(foo %eax)\n")</span> -<span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L647" class="LineNr"> 647 </span> 68/push <span class="Constant">"(foo %eax)\n"</span>/imm32 -<span id="L648" class="LineNr"> 648 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L650" class="LineNr"> 650 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L652" class="LineNr"> 652 </span> 81 0/subop/add %esp 8/imm32 -<span id="L653" class="LineNr"> 653 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L654" class="LineNr"> 654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L655" class="LineNr"> 655 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L656" class="LineNr"> 656 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L657" class="LineNr"> 657 </span> <span class="subxS2Comment"># . . call</span> -<span id="L658" class="LineNr"> 658 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 -<span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L660" class="LineNr"> 660 </span> 81 0/subop/add %esp 8/imm32 -<span id="L661" class="LineNr"> 661 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L662" class="LineNr"> 662 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L663" class="LineNr"> 663 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L664" class="LineNr"> 664 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L665" class="LineNr"> 665 </span> <span class="subxS2Comment"># . . call</span> -<span id="L666" class="LineNr"> 666 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L668" class="LineNr"> 668 </span> 81 0/subop/add %esp 4/imm32 -<span id="L669" class="Folded"> 669 </span><span class="Folded">+-- 33 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L702" class="LineNr"> 702 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# . (foo %eax)", msg)</span> +<span id="L633" class="LineNr"> 633 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 +<span id="L634" class="LineNr"> 634 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . call</span> +<span id="L636" class="LineNr"> 636 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L638" class="LineNr"> 638 </span> 81 0/subop/add %esp 8/imm32 +<span id="L639" class="LineNr"> 639 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L641" class="LineNr"> 641 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L642" class="LineNr"> 642 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . call</span> +<span id="L644" class="LineNr"> 644 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 +<span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L646" class="LineNr"> 646 </span> 81 0/subop/add %esp 8/imm32 +<span id="L647" class="LineNr"> 647 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L650" class="LineNr"> 650 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> +<span id="L652" class="LineNr"> 652 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L654" class="LineNr"> 654 </span> 81 0/subop/add %esp 4/imm32 +<span id="L655" class="LineNr"> 655 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1\n", msg)</span> +<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L657" class="LineNr"> 657 </span> 68/push <span class="Constant">"F - test-subx-calls-passes-most-lines-through"</span>/imm32 +<span id="L658" class="LineNr"> 658 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 +<span id="L659" class="LineNr"> 659 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . call</span> +<span id="L661" class="LineNr"> 661 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L662" class="LineNr"> 662 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L663" class="LineNr"> 663 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L664" class="LineNr"> 664 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L665" class="LineNr"> 665 </span> 89/<- %esp 5/r32/ebp +<span id="L666" class="LineNr"> 666 </span> 5d/pop-to-ebp +<span id="L667" class="LineNr"> 667 </span> c3/return +<span id="L668" class="LineNr"> 668 </span> +<span id="L669" class="LineNr"> 669 </span><span class="subxTest">test-subx-calls-processes-calls</span>: +<span id="L670" class="LineNr"> 670 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L671" class="LineNr"> 671 </span> 55/push-ebp +<span id="L672" class="LineNr"> 672 </span> 89/<- %ebp 4/r32/esp +<span id="L673" class="LineNr"> 673 </span> <span class="subxComment"># setup</span> +<span id="L674" class="LineNr"> 674 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L676" class="LineNr"> 676 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L680" class="LineNr"> 680 </span> 81 0/subop/add %esp 4/imm32 +<span id="L681" class="LineNr"> 681 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L683" class="LineNr"> 683 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . call</span> +<span id="L685" class="LineNr"> 685 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L687" class="LineNr"> 687 </span> 81 0/subop/add %esp 4/imm32 +<span id="L688" class="LineNr"> 688 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L689" class="LineNr"> 689 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L690" class="LineNr"> 690 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . call</span> +<span id="L692" class="LineNr"> 692 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L694" class="LineNr"> 694 </span> 81 0/subop/add %esp 4/imm32 +<span id="L695" class="LineNr"> 695 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L696" class="LineNr"> 696 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L697" class="LineNr"> 697 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L698" class="LineNr"> 698 </span> <span class="subxS2Comment"># . . call</span> +<span id="L699" class="LineNr"> 699 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L701" class="LineNr"> 701 </span> 81 0/subop/add %esp 4/imm32 +<span id="L702" class="LineNr"> 702 </span> <span class="subxS1Comment"># . write(_test-input-stream, "(foo %eax)\n")</span> <span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L704" class="LineNr"> 704 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L612'>test-subx-calls-processes-calls</a>: comment"</span>/imm32 -<span id="L705" class="LineNr"> 705 </span> 68/push <span class="Constant">"# . (foo %eax)"</span>/imm32 -<span id="L706" class="LineNr"> 706 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . call</span> -<span id="L708" class="LineNr"> 708 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L710" class="LineNr"> 710 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L711" class="LineNr"> 711 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ff 6/subop/push %eax", msg)</span> -<span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L713" class="LineNr"> 713 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L612'>test-subx-calls-processes-calls</a>: arg 0"</span>/imm32 -<span id="L714" class="LineNr"> 714 </span> 68/push <span class="Constant">"ff 6/subop/push %eax"</span>/imm32 -<span id="L715" class="LineNr"> 715 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . call</span> -<span id="L717" class="LineNr"> 717 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L719" class="LineNr"> 719 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L720" class="LineNr"> 720 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8/call foo/disp32", msg)</span> -<span id="L721" class="LineNr"> 721 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L722" class="LineNr"> 722 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L612'>test-subx-calls-processes-calls</a>: call"</span>/imm32 -<span id="L723" class="LineNr"> 723 </span> 68/push <span class="Constant">"e8/call foo/disp32"</span>/imm32 -<span id="L724" class="LineNr"> 724 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . call</span> -<span id="L726" class="LineNr"> 726 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L728" class="LineNr"> 728 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L729" class="LineNr"> 729 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "81 0/subop/add %esp 4/imm32", msg)</span> -<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L731" class="LineNr"> 731 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L612'>test-subx-calls-processes-calls</a>: pops"</span>/imm32 -<span id="L732" class="LineNr"> 732 </span> 68/push <span class="Constant">"81 0/subop/add %esp 0x00000004/imm32"</span>/imm32 -<span id="L733" class="LineNr"> 733 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . call</span> -<span id="L735" class="LineNr"> 735 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L736" class="LineNr"> 736 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L737" class="LineNr"> 737 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L738" class="LineNr"> 738 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L739" class="LineNr"> 739 </span> 89/<- %esp 5/r32/ebp -<span id="L740" class="LineNr"> 740 </span> 5d/pop-to-ebp -<span id="L741" class="LineNr"> 741 </span> c3/return -<span id="L742" class="LineNr"> 742 </span> -<span id="L743" class="LineNr"> 743 </span><span class="subxFunction">next-word-string-or-expression-without-metadata</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> -<span id="L744" class="LineNr"> 744 </span> <span class="subxComment"># pseudocode:</span> -<span id="L745" class="LineNr"> 745 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L746" class="LineNr"> 746 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> -<span id="L747" class="LineNr"> 747 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L748" class="LineNr"> 748 </span> <span class="subxComment"># return</span> -<span id="L749" class="LineNr"> 749 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> -<span id="L751" class="LineNr"> 751 </span> <span class="subxComment"># out->end = &line->data[line->write] # skip to end of line</span> -<span id="L752" class="LineNr"> 752 </span> <span class="subxComment"># return</span> -<span id="L753" class="LineNr"> 753 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> -<span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L755" class="LineNr"> 755 </span> <span class="subxComment"># out->end = &line->data[line->read] # no metadata</span> -<span id="L756" class="LineNr"> 756 </span> <span class="subxComment"># return</span> -<span id="L757" class="LineNr"> 757 </span> <span class="subxComment"># if line->data[line->read] == '*' # expression</span> -<span id="L758" class="LineNr"> 758 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> -<span id="L759" class="LineNr"> 759 </span> <span class="subxComment"># abort</span> -<span id="L760" class="LineNr"> 760 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> -<span id="L761" class="LineNr"> 761 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L762" class="LineNr"> 762 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> -<span id="L763" class="LineNr"> 763 </span> <span class="subxComment"># abort</span> -<span id="L764" class="LineNr"> 764 </span> <span class="subxComment"># ++line->read to skip ')'</span> -<span id="L765" class="LineNr"> 765 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L766" class="LineNr"> 766 </span> <span class="subxComment"># return</span> -<span id="L767" class="LineNr"> 767 </span> <span class="subxComment"># if line->data[line->read] == ')'</span> -<span id="L768" class="LineNr"> 768 </span> <span class="subxComment"># ++line->read to skip ')'</span> -<span id="L769" class="LineNr"> 769 </span> <span class="subxComment"># # make sure there's nothing else of importance</span> -<span id="L770" class="LineNr"> 770 </span> <span class="subxComment"># if line->read >= line->write</span> -<span id="L771" class="LineNr"> 771 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L772" class="LineNr"> 772 </span> <span class="subxComment"># return</span> -<span id="L773" class="LineNr"> 773 </span> <span class="subxComment"># if line->data[line->read] != ' '</span> -<span id="L774" class="LineNr"> 774 </span> <span class="subxComment"># abort</span> -<span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> -<span id="L776" class="LineNr"> 776 </span> <span class="subxComment"># if line->read >= line->write</span> -<span id="L777" class="LineNr"> 777 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L778" class="LineNr"> 778 </span> <span class="subxComment"># return</span> -<span id="L779" class="LineNr"> 779 </span> <span class="subxComment"># if line->data[line->read] == '#' # only thing permitted after ')' is a comment</span> -<span id="L780" class="LineNr"> 780 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L781" class="LineNr"> 781 </span> <span class="subxComment"># return</span> -<span id="L782" class="LineNr"> 782 </span> <span class="subxComment"># abort</span> -<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># # default case: read a word -- but no metadata</span> -<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># while true</span> -<span id="L785" class="LineNr"> 785 </span> <span class="subxComment"># if line->read >= line->write</span> -<span id="L786" class="LineNr"> 786 </span> <span class="subxComment"># break</span> -<span id="L787" class="LineNr"> 787 </span> <span class="subxComment"># if line->data[line->read] == ' '</span> -<span id="L788" class="LineNr"> 788 </span> <span class="subxComment"># break</span> -<span id="L789" class="LineNr"> 789 </span> <span class="subxComment"># if line->data[line->read] == ')'</span> -<span id="L790" class="LineNr"> 790 </span> <span class="subxComment"># break</span> -<span id="L791" class="LineNr"> 791 </span> <span class="subxComment"># if line->data[line->read] == '/'</span> -<span id="L792" class="LineNr"> 792 </span> <span class="subxComment"># abort</span> -<span id="L793" class="LineNr"> 793 </span> <span class="subxComment"># ++line->read</span> -<span id="L794" class="LineNr"> 794 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L795" class="LineNr"> 795 </span> <span class="subxComment">#</span> -<span id="L796" class="LineNr"> 796 </span> <span class="subxComment"># registers:</span> -<span id="L797" class="LineNr"> 797 </span> <span class="subxComment"># ecx: often line->read</span> -<span id="L798" class="LineNr"> 798 </span> <span class="subxComment"># eax: often line->data[line->read]</span> -<span id="L799" class="LineNr"> 799 </span> <span class="subxComment">#</span> -<span id="L800" class="LineNr"> 800 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L801" class="LineNr"> 801 </span> 55/push-ebp -<span id="L802" class="LineNr"> 802 </span> 89/<- %ebp 4/r32/esp -<span id="L803" class="LineNr"> 803 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L804" class="LineNr"> 804 </span> 50/push-eax -<span id="L805" class="LineNr"> 805 </span> 51/push-ecx -<span id="L806" class="LineNr"> 806 </span> 56/push-esi -<span id="L807" class="LineNr"> 807 </span> 57/push-edi -<span id="L808" class="LineNr"> 808 </span> <span class="subxComment"># esi = line</span> -<span id="L809" class="LineNr"> 809 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L810" class="LineNr"> 810 </span> <span class="subxComment"># edi = out</span> -<span id="L811" class="LineNr"> 811 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L812" class="LineNr"> 812 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L813" class="LineNr"> 813 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L814" class="LineNr"> 814 </span> 68/push 0x20/imm32/space -<span id="L815" class="LineNr"> 815 </span> ff 6/subop/push *(ebp+8) -<span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . call</span> -<span id="L817" class="LineNr"> 817 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L818" class="LineNr"> 818 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L819" class="LineNr"> 819 </span> 81 0/subop/add %esp 8/imm32 -<span id="L820" class="LineNr"> 820 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check0</span>: -<span id="L821" class="LineNr"> 821 </span> <span class="subxComment"># if (line->read >= line->write) abort because we didn't encounter a final ')'</span> -<span id="L822" class="LineNr"> 822 </span> <span class="subxS1Comment"># . ecx = line->read</span> -<span id="L823" class="LineNr"> 823 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . if (ecx >= line->write) abort</span> -<span id="L825" class="LineNr"> 825 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L826" class="LineNr"> 826 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:error0/disp32 -<span id="L827" class="LineNr"> 827 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-comment</span>: -<span id="L828" class="LineNr"> 828 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L829" class="LineNr"> 829 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L830" class="LineNr"> 830 </span> 89/<- *edi 0/r32/eax -<span id="L831" class="LineNr"> 831 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> -<span id="L832" class="LineNr"> 832 </span> <span class="subxS1Comment"># . var eax: byte = line->data[line->read]</span> -<span id="L833" class="LineNr"> 833 </span> 31/xor-with %eax 0/r32/eax -<span id="L834" class="LineNr"> 834 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L835" class="LineNr"> 835 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> -<span id="L836" class="LineNr"> 836 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L837" class="LineNr"> 837 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-string-literal/disp8 -<span id="L838" class="LineNr"> 838 </span><span class="Constant">$next-word-string-or-expression-without-metadata:comment</span>: -<span id="L839" class="LineNr"> 839 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> -<span id="L840" class="LineNr"> 840 </span> 8b/-> *esi 0/r32/eax -<span id="L841" class="LineNr"> 841 </span> 8d/copy-address *(esi+eax+0xc) 0/r32/eax -<span id="L842" class="LineNr"> 842 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L843" class="LineNr"> 843 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> -<span id="L844" class="LineNr"> 844 </span> 8b/-> *esi 0/r32/eax -<span id="L845" class="LineNr"> 845 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L846" class="LineNr"> 846 </span> <span class="subxComment"># return</span> -<span id="L847" class="LineNr"> 847 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 -<span id="L848" class="LineNr"> 848 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-string-literal</span>: -<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> -<span id="L850" class="LineNr"> 850 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L851" class="LineNr"> 851 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-expression/disp8 -<span id="L852" class="LineNr"> 852 </span><span class="Constant">$next-word-string-or-expression-without-metadata:string-literal</span>: -<span id="L853" class="LineNr"> 853 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L854" class="LineNr"> 854 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L855" class="LineNr"> 855 </span> 56/push-esi -<span id="L856" class="LineNr"> 856 </span> <span class="subxS2Comment"># . . call</span> -<span id="L857" class="LineNr"> 857 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L858" class="LineNr"> 858 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L859" class="LineNr"> 859 </span> 81 0/subop/add %esp 4/imm32 -<span id="L860" class="LineNr"> 860 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L861" class="LineNr"> 861 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L862" class="LineNr"> 862 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L863" class="LineNr"> 863 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L864" class="LineNr"> 864 </span> <span class="subxComment"># return</span> -<span id="L865" class="LineNr"> 865 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 -<span id="L866" class="LineNr"> 866 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-expression</span>: -<span id="L867" class="LineNr"> 867 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> -<span id="L868" class="LineNr"> 868 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L869" class="LineNr"> 869 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-end-of-call/disp8 -<span id="L870" class="LineNr"> 870 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> -<span id="L871" class="LineNr"> 871 </span> 8a/copy-byte *(esi+ecx+0xd) 0/r32/AL -<span id="L872" class="LineNr"> 872 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L873" class="LineNr"> 873 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error1/disp32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular-word</span> -<span id="L875" class="LineNr"> 875 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L876" class="LineNr"> 876 </span> 0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32 -<span id="L877" class="LineNr"> 877 </span><span class="Constant">$next-word-string-or-expression-without-metadata:paren</span>: -<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 56/push-esi -<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . call</span> -<span id="L882" class="LineNr"> 882 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L884" class="LineNr"> 884 </span> 81 0/subop/add %esp 4/imm32 -<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L887" class="LineNr"> 887 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L888" class="LineNr"> 888 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L889" class="LineNr"> 889 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> -<span id="L890" class="LineNr"> 890 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L891" class="LineNr"> 891 </span> 0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:error2/disp32 -<span id="L892" class="LineNr"> 892 </span> <span class="subxComment"># ++line->read to skip ')'</span> -<span id="L893" class="LineNr"> 893 </span> ff 0/subop/increment *(esi+4) -<span id="L894" class="LineNr"> 894 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L895" class="LineNr"> 895 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L896" class="LineNr"> 896 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L897" class="LineNr"> 897 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L898" class="LineNr"> 898 </span> <span class="subxComment"># return</span> -<span id="L899" class="LineNr"> 899 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 -<span id="L900" class="LineNr"> 900 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-end-of-call</span>: -<span id="L901" class="LineNr"> 901 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto next check</span> -<span id="L902" class="LineNr"> 902 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L903" class="LineNr"> 903 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp8 -<span id="L904" class="LineNr"> 904 </span> <span class="subxComment"># ++line->read to skip ')'</span> -<span id="L905" class="LineNr"> 905 </span> ff 0/subop/increment *(esi+4) -<span id="L906" class="LineNr"> 906 </span> <span class="subxH1Comment"># - error checking: make sure there's nothing else of importance on the line</span> -<span id="L907" class="LineNr"> 907 </span> <span class="subxComment"># if (line->read >= line->write) return out = {0, 0}</span> -<span id="L908" class="LineNr"> 908 </span> <span class="subxS1Comment"># . ecx = line->read</span> -<span id="L909" class="LineNr"> 909 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L910" class="LineNr"> 910 </span> <span class="subxS1Comment"># . if (ecx >= line->write) return {0, 0}</span> -<span id="L911" class="LineNr"> 911 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L912" class="LineNr"> 912 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32 -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># if (line->data[line->read] == '/') goto error3</span> -<span id="L914" class="LineNr"> 914 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L915" class="LineNr"> 915 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L916" class="LineNr"> 916 </span> <span class="subxS1Comment"># . if (eax == '/') goto error3</span> -<span id="L917" class="LineNr"> 917 </span> 3d/compare-eax-and 0x2f/imm32/slash -<span id="L918" class="LineNr"> 918 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error3/disp32 -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> -<span id="L920" class="LineNr"> 920 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L921" class="LineNr"> 921 </span> 56/push-esi -<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . call</span> -<span id="L923" class="LineNr"> 923 </span> e8/call <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 -<span id="L924" class="LineNr"> 924 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L925" class="LineNr"> 925 </span> 81 0/subop/add %esp 4/imm32 -<span id="L926" class="LineNr"> 926 </span> <span class="subxComment"># if (line->read >= line->write) return out = {0, 0}</span> -<span id="L927" class="LineNr"> 927 </span> <span class="subxS1Comment"># . ecx = line->read</span> -<span id="L928" class="LineNr"> 928 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L929" class="LineNr"> 929 </span> <span class="subxS1Comment"># . if (ecx >= line->write) return {0, 0}</span> -<span id="L930" class="LineNr"> 930 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L931" class="LineNr"> 931 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32 -<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (line->data[line->read] == '#') return out = {0, 0}</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L934" class="LineNr"> 934 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L935" class="LineNr"> 935 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L936" class="LineNr"> 936 </span> <span class="subxS1Comment"># . if (eax == '#') return out = {0, 0}</span> -<span id="L937" class="LineNr"> 937 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L938" class="LineNr"> 938 </span> 74/jump-if-= $next-word-string-or-expression-without-metadata:return-eol/disp8 -<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># otherwise goto error4</span> -<span id="L940" class="LineNr"> 940 </span> e9/jump $next-word-string-or-expression-without-metadata:error4/disp32 -<span id="L941" class="LineNr"> 941 </span><span class="Constant">$next-word-string-or-expression-without-metadata:regular-word-without-metadata</span>: -<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># if (line->read >= line->write) break</span> -<span id="L943" class="LineNr"> 943 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L704" class="LineNr"> 704 </span> 68/push <span class="Constant">"(foo %eax)\n"</span>/imm32 +<span id="L705" class="LineNr"> 705 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L706" class="LineNr"> 706 </span> <span class="subxS2Comment"># . . call</span> +<span id="L707" class="LineNr"> 707 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L708" class="LineNr"> 708 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L709" class="LineNr"> 709 </span> 81 0/subop/add %esp 8/imm32 +<span id="L710" class="LineNr"> 710 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L712" class="LineNr"> 712 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L713" class="LineNr"> 713 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . call</span> +<span id="L715" class="LineNr"> 715 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 +<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L717" class="LineNr"> 717 </span> 81 0/subop/add %esp 8/imm32 +<span id="L718" class="LineNr"> 718 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L719" class="LineNr"> 719 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L721" class="LineNr"> 721 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L722" class="LineNr"> 722 </span> <span class="subxS2Comment"># . . call</span> +<span id="L723" class="LineNr"> 723 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="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="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 +<span id="L762" class="LineNr"> 762 </span> 68/push <span class="Constant">"# . (foo %eax)"</span>/imm32 +<span id="L763" class="LineNr"> 763 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L764" class="LineNr"> 764 </span> <span class="subxS2Comment"># . . call</span> +<span id="L765" class="LineNr"> 765 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L766" class="LineNr"> 766 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L767" class="LineNr"> 767 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L768" class="LineNr"> 768 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ff 6/subop/push %eax", msg)</span> +<span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L770" class="LineNr"> 770 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: arg 0"</span>/imm32 +<span id="L771" class="LineNr"> 771 </span> 68/push <span class="Constant">"ff 6/subop/push %eax"</span>/imm32 +<span id="L772" class="LineNr"> 772 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . call</span> +<span id="L774" class="LineNr"> 774 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L776" class="LineNr"> 776 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L777" class="LineNr"> 777 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8/call foo/disp32", msg)</span> +<span id="L778" class="LineNr"> 778 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L779" class="LineNr"> 779 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: call"</span>/imm32 +<span id="L780" class="LineNr"> 780 </span> 68/push <span class="Constant">"e8/call foo/disp32"</span>/imm32 +<span id="L781" class="LineNr"> 781 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L785" class="LineNr"> 785 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "81 0/subop/add %esp 4/imm32", msg)</span> +<span id="L787" class="LineNr"> 787 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: pops"</span>/imm32 +<span id="L789" class="LineNr"> 789 </span> 68/push <span class="Constant">"81 0/subop/add %esp 0x00000004/imm32"</span>/imm32 +<span id="L790" class="LineNr"> 790 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . call</span> +<span id="L792" class="LineNr"> 792 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L794" class="LineNr"> 794 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L795" class="LineNr"> 795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L796" class="LineNr"> 796 </span> 89/<- %esp 5/r32/ebp +<span id="L797" class="LineNr"> 797 </span> 5d/pop-to-ebp +<span id="L798" class="LineNr"> 798 </span> c3/return +<span id="L799" class="LineNr"> 799 </span> +<span id="L800" class="LineNr"> 800 </span><span class="subxFunction">next-word-string-or-expression-without-metadata</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> +<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># pseudocode:</span> +<span id="L802" class="LineNr"> 802 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> +<span id="L804" class="LineNr"> 804 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># return</span> +<span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> +<span id="L808" class="LineNr"> 808 </span> <span class="subxComment"># out->end = &line->data[line->write] # skip to end of line</span> +<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># return</span> +<span id="L810" class="LineNr"> 810 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> +<span id="L811" class="LineNr"> 811 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L812" class="LineNr"> 812 </span> <span class="subxComment"># out->end = &line->data[line->read] # no metadata</span> +<span id="L813" class="LineNr"> 813 </span> <span class="subxComment"># return</span> +<span id="L814" class="LineNr"> 814 </span> <span class="subxComment"># if line->data[line->read] == '*' # expression</span> +<span id="L815" class="LineNr"> 815 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> +<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># abort</span> +<span id="L817" class="LineNr"> 817 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> +<span id="L818" class="LineNr"> 818 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L819" class="LineNr"> 819 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> +<span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># abort</span> +<span id="L821" class="LineNr"> 821 </span> <span class="subxComment"># ++line->read to skip ')'</span> +<span id="L822" class="LineNr"> 822 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># return</span> +<span id="L824" class="LineNr"> 824 </span> <span class="subxComment"># if line->data[line->read] == ')'</span> +<span id="L825" class="LineNr"> 825 </span> <span class="subxComment"># ++line->read to skip ')'</span> +<span id="L826" class="LineNr"> 826 </span> <span class="subxComment"># # make sure there's nothing else of importance</span> +<span id="L827" class="LineNr"> 827 </span> <span class="subxComment"># if line->read >= line->write</span> +<span id="L828" class="LineNr"> 828 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L829" class="LineNr"> 829 </span> <span class="subxComment"># return</span> +<span id="L830" class="LineNr"> 830 </span> <span class="subxComment"># if line->data[line->read] != ' '</span> +<span id="L831" class="LineNr"> 831 </span> <span class="subxComment"># abort</span> +<span id="L832" class="LineNr"> 832 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> +<span id="L833" class="LineNr"> 833 </span> <span class="subxComment"># if line->read >= line->write</span> +<span id="L834" class="LineNr"> 834 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L835" class="LineNr"> 835 </span> <span class="subxComment"># return</span> +<span id="L836" class="LineNr"> 836 </span> <span class="subxComment"># if line->data[line->read] == '#' # only thing permitted after ')' is a comment</span> +<span id="L837" class="LineNr"> 837 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L838" class="LineNr"> 838 </span> <span class="subxComment"># return</span> +<span id="L839" class="LineNr"> 839 </span> <span class="subxComment"># abort</span> +<span id="L840" class="LineNr"> 840 </span> <span class="subxComment"># # default case: read a word -- but no metadata</span> +<span id="L841" class="LineNr"> 841 </span> <span class="subxComment"># while true</span> +<span id="L842" class="LineNr"> 842 </span> <span class="subxComment"># if line->read >= line->write</span> +<span id="L843" class="LineNr"> 843 </span> <span class="subxComment"># break</span> +<span id="L844" class="LineNr"> 844 </span> <span class="subxComment"># if line->data[line->read] == ' '</span> +<span id="L845" class="LineNr"> 845 </span> <span class="subxComment"># break</span> +<span id="L846" class="LineNr"> 846 </span> <span class="subxComment"># if line->data[line->read] == ')'</span> +<span id="L847" class="LineNr"> 847 </span> <span class="subxComment"># break</span> +<span id="L848" class="LineNr"> 848 </span> <span class="subxComment"># if line->data[line->read] == '/'</span> +<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># abort</span> +<span id="L850" class="LineNr"> 850 </span> <span class="subxComment"># ++line->read</span> +<span id="L851" class="LineNr"> 851 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L852" class="LineNr"> 852 </span> <span class="subxComment">#</span> +<span id="L853" class="LineNr"> 853 </span> <span class="subxComment"># registers:</span> +<span id="L854" class="LineNr"> 854 </span> <span class="subxComment"># ecx: often line->read</span> +<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># eax: often line->data[line->read]</span> +<span id="L856" class="LineNr"> 856 </span> <span class="subxComment">#</span> +<span id="L857" class="LineNr"> 857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L858" class="LineNr"> 858 </span> 55/push-ebp +<span id="L859" class="LineNr"> 859 </span> 89/<- %ebp 4/r32/esp +<span id="L860" class="LineNr"> 860 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L861" class="LineNr"> 861 </span> 50/push-eax +<span id="L862" class="LineNr"> 862 </span> 51/push-ecx +<span id="L863" class="LineNr"> 863 </span> 56/push-esi +<span id="L864" class="LineNr"> 864 </span> 57/push-edi +<span id="L865" class="LineNr"> 865 </span> <span class="subxComment"># esi = line</span> +<span id="L866" class="LineNr"> 866 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L867" class="LineNr"> 867 </span> <span class="subxComment"># edi = out</span> +<span id="L868" class="LineNr"> 868 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L871" class="LineNr"> 871 </span> 68/push 0x20/imm32/space +<span id="L872" class="LineNr"> 872 </span> ff 6/subop/push *(ebp+8) +<span id="L873" class="LineNr"> 873 </span> <span class="subxS2Comment"># . . call</span> +<span id="L874" class="LineNr"> 874 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 +<span id="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L876" class="LineNr"> 876 </span> 81 0/subop/add %esp 8/imm32 +<span id="L877" class="LineNr"> 877 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check0</span>: +<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># if (line->read >= line->write) abort because we didn't encounter a final ')'</span> +<span id="L879" class="LineNr"> 879 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L880" class="LineNr"> 880 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L881" class="LineNr"> 881 </span> <span class="subxS1Comment"># . if (ecx >= line->write) abort</span> +<span id="L882" class="LineNr"> 882 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L883" class="LineNr"> 883 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:error0/disp32 +<span id="L884" class="LineNr"> 884 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-comment</span>: +<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L886" class="LineNr"> 886 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L887" class="LineNr"> 887 </span> 89/<- *edi 0/r32/eax +<span id="L888" class="LineNr"> 888 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> +<span id="L889" class="LineNr"> 889 </span> <span class="subxS1Comment"># . var eax: byte = line->data[line->read]</span> +<span id="L890" class="LineNr"> 890 </span> 31/xor-with %eax 0/r32/eax +<span id="L891" class="LineNr"> 891 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> +<span id="L893" class="LineNr"> 893 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L894" class="LineNr"> 894 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-string-literal/disp8 +<span id="L895" class="LineNr"> 895 </span><span class="Constant">$next-word-string-or-expression-without-metadata:comment</span>: +<span id="L896" class="LineNr"> 896 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> +<span id="L897" class="LineNr"> 897 </span> 8b/-> *esi 0/r32/eax +<span id="L898" class="LineNr"> 898 </span> 8d/copy-address *(esi+eax+0xc) 0/r32/eax +<span id="L899" class="LineNr"> 899 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L900" class="LineNr"> 900 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> +<span id="L901" class="LineNr"> 901 </span> 8b/-> *esi 0/r32/eax +<span id="L902" class="LineNr"> 902 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L903" class="LineNr"> 903 </span> <span class="subxComment"># return</span> +<span id="L904" class="LineNr"> 904 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 +<span id="L905" class="LineNr"> 905 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-string-literal</span>: +<span id="L906" class="LineNr"> 906 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> +<span id="L907" class="LineNr"> 907 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L908" class="LineNr"> 908 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-expression/disp8 +<span id="L909" class="LineNr"> 909 </span><span class="Constant">$next-word-string-or-expression-without-metadata:string-literal</span>: +<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L912" class="LineNr"> 912 </span> 56/push-esi +<span id="L913" class="LineNr"> 913 </span> <span class="subxS2Comment"># . . call</span> +<span id="L914" class="LineNr"> 914 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</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 %esp 4/imm32 +<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L918" class="LineNr"> 918 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L919" class="LineNr"> 919 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L920" class="LineNr"> 920 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># return</span> +<span id="L922" class="LineNr"> 922 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 +<span id="L923" class="LineNr"> 923 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-expression</span>: +<span id="L924" class="LineNr"> 924 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> +<span id="L925" class="LineNr"> 925 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L926" class="LineNr"> 926 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-end-of-call/disp8 +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> +<span id="L928" class="LineNr"> 928 </span> 8a/copy-byte *(esi+ecx+0xd) 0/r32/AL +<span id="L929" class="LineNr"> 929 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L930" class="LineNr"> 930 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error1/disp32 +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular-word</span> +<span id="L932" class="LineNr"> 932 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L933" class="LineNr"> 933 </span> 0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32 +<span id="L934" class="LineNr"> 934 </span><span class="Constant">$next-word-string-or-expression-without-metadata:paren</span>: +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L936" class="LineNr"> 936 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L937" class="LineNr"> 937 </span> 56/push-esi +<span id="L938" class="LineNr"> 938 </span> <span class="subxS2Comment"># . . call</span> +<span id="L939" class="LineNr"> 939 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</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 %esp 4/imm32 +<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> +<span id="L943" class="LineNr"> 943 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> <span id="L944" class="LineNr"> 944 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L945" class="LineNr"> 945 </span> <span class="subxS1Comment"># . if (ecx >= line->write) break</span> -<span id="L946" class="LineNr"> 946 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L947" class="LineNr"> 947 </span> 7d/jump-if->= $next-word-string-or-expression-without-metadata:regular-word-break/disp8 -<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># if (line->data[line->read] == ' ') break</span> -<span id="L949" class="LineNr"> 949 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L950" class="LineNr"> 950 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L951" class="LineNr"> 951 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L952" class="LineNr"> 952 </span> <span class="subxS1Comment"># . if (eax == ' ') break</span> -<span id="L953" class="LineNr"> 953 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L954" class="LineNr"> 954 </span> 74/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp8 -<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># if (line->data[line->read] == ')') break</span> -<span id="L956" class="LineNr"> 956 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L957" class="LineNr"> 957 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp32 -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># if (line->data[line->read] == '/') goto error5</span> -<span id="L959" class="LineNr"> 959 </span> 3d/compare-eax-and 0x2f/imm32/slash -<span id="L960" class="LineNr"> 960 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error5/disp32 -<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># ++line->read</span> +<span id="L945" class="LineNr"> 945 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L946" class="LineNr"> 946 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> +<span id="L947" class="LineNr"> 947 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L948" class="LineNr"> 948 </span> 0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:error2/disp32 +<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># ++line->read to skip ')'</span> +<span id="L950" class="LineNr"> 950 </span> ff 0/subop/increment *(esi+4) +<span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L952" class="LineNr"> 952 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L953" class="LineNr"> 953 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L954" class="LineNr"> 954 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># return</span> +<span id="L956" class="LineNr"> 956 </span> e9/jump $next-word-string-or-expression-without-metadata:end/disp32 +<span id="L957" class="LineNr"> 957 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check-for-end-of-call</span>: +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto next check</span> +<span id="L959" class="LineNr"> 959 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L960" class="LineNr"> 960 </span> 75/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp8 +<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># ++line->read to skip ')'</span> <span id="L962" class="LineNr"> 962 </span> ff 0/subop/increment *(esi+4) -<span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># loop</span> -<span id="L964" class="LineNr"> 964 </span> e9/jump $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32 -<span id="L965" class="LineNr"> 965 </span><span class="Constant">$next-word-string-or-expression-without-metadata:regular-word-break</span>: -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L967" class="LineNr"> 967 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L968" class="LineNr"> 968 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L969" class="LineNr"> 969 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L970" class="LineNr"> 970 </span> eb/jump $next-word-string-or-expression-without-metadata:end/disp8 -<span id="L971" class="LineNr"> 971 </span><span class="Constant">$next-word-string-or-expression-without-metadata:return-eol</span>: -<span id="L972" class="LineNr"> 972 </span> <span class="subxComment"># return out = {0, 0}</span> -<span id="L973" class="LineNr"> 973 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L974" class="LineNr"> 974 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L975" class="LineNr"> 975 </span><span class="Constant">$next-word-string-or-expression-without-metadata:end</span>: -<span id="L976" class="LineNr"> 976 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L977" class="LineNr"> 977 </span> 5f/pop-to-edi -<span id="L978" class="LineNr"> 978 </span> 5e/pop-to-esi -<span id="L979" class="LineNr"> 979 </span> 59/pop-to-ecx -<span id="L980" class="LineNr"> 980 </span> 58/pop-to-eax -<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L982" class="LineNr"> 982 </span> 89/<- %esp 5/r32/ebp -<span id="L983" class="LineNr"> 983 </span> 5d/pop-to-ebp -<span id="L984" class="LineNr"> 984 </span> c3/return -<span id="L985" class="LineNr"> 985 </span> -<span id="L986" class="LineNr"> 986 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error0</span>: -<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># print(stderr, "error: missing final ')' in '" line "'")</span> -<span id="L988" class="LineNr"> 988 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: missing final ')' in '")</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">"error: missing final ')' in '"</span>/imm32 -<span id="L991" class="LineNr"> 991 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L992" class="LineNr"> 992 </span> <span class="subxS2Comment"># . . call</span> -<span id="L993" class="LineNr"> 993 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L994" class="LineNr"> 994 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L995" class="LineNr"> 995 </span> 81 0/subop/add %esp 8/imm32 -<span id="L996" class="LineNr"> 996 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L997" class="LineNr"> 997 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L998" class="LineNr"> 998 </span> 56/push-esi -<span id="L999" class="LineNr"> 999 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1001" class="LineNr">1001 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1003" class="LineNr">1003 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1004" class="LineNr">1004 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1006" class="LineNr">1006 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1007" class="LineNr">1007 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1008" class="LineNr">1008 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1009" class="LineNr">1009 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1010" class="LineNr">1010 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1011" class="LineNr">1011 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1012" class="LineNr">1012 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1014" class="LineNr">1014 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1016" class="LineNr">1016 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1018" class="LineNr">1018 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1019" class="LineNr">1019 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1020" class="LineNr">1020 </span> bb/copy-to-ebx 1/imm32 -<span id="L1021" class="LineNr">1021 </span> e8/call syscall_exit/disp32 -<span id="L1022" class="LineNr">1022 </span> <span class="subxComment"># never gets here</span> -<span id="L1023" class="LineNr">1023 </span> -<span id="L1024" class="LineNr">1024 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error1</span>: -<span id="L1025" class="LineNr">1025 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> -<span id="L1026" class="LineNr">1026 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> -<span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1028" class="LineNr">1028 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 -<span id="L1029" class="LineNr">1029 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1031" class="LineNr">1031 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1032" class="LineNr">1032 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1033" class="LineNr">1033 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1034" class="LineNr">1034 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1036" class="LineNr">1036 </span> 56/push-esi -<span id="L1037" class="LineNr">1037 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1038" class="LineNr">1038 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1039" class="LineNr">1039 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1040" class="LineNr">1040 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1041" class="LineNr">1041 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1042" class="LineNr">1042 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1043" class="LineNr">1043 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1044" class="LineNr">1044 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1045" class="LineNr">1045 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1047" class="LineNr">1047 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1048" class="LineNr">1048 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1049" class="LineNr">1049 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1050" class="LineNr">1050 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1052" class="LineNr">1052 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1053" class="LineNr">1053 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1054" class="LineNr">1054 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1055" class="LineNr">1055 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1056" class="LineNr">1056 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1057" class="LineNr">1057 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1058" class="LineNr">1058 </span> bb/copy-to-ebx 1/imm32 -<span id="L1059" class="LineNr">1059 </span> e8/call syscall_exit/disp32 -<span id="L1060" class="LineNr">1060 </span> <span class="subxComment"># never gets here</span> -<span id="L1061" class="LineNr">1061 </span> -<span id="L1062" class="LineNr">1062 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error2</span>: -<span id="L1063" class="LineNr">1063 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> -<span id="L1065" class="LineNr">1065 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1066" class="LineNr">1066 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 -<span id="L1067" class="LineNr">1067 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1068" class="LineNr">1068 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1069" class="LineNr">1069 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1071" class="LineNr">1071 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1072" class="LineNr">1072 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1073" class="LineNr">1073 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1074" class="LineNr">1074 </span> 56/push-esi -<span id="L1075" class="LineNr">1075 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1077" class="LineNr">1077 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1079" class="LineNr">1079 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1080" class="LineNr">1080 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1082" class="LineNr">1082 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1083" class="LineNr">1083 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1085" class="LineNr">1085 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1086" class="LineNr">1086 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1087" class="LineNr">1087 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1088" class="LineNr">1088 </span> <span class="subxS1Comment"># . flush(Stderr)</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='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1092" class="LineNr">1092 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1094" class="LineNr">1094 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1095" class="LineNr">1095 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1096" class="LineNr">1096 </span> bb/copy-to-ebx 1/imm32 -<span id="L1097" class="LineNr">1097 </span> e8/call syscall_exit/disp32 -<span id="L1098" class="LineNr">1098 </span> <span class="subxComment"># never gets here</span> -<span id="L1099" class="LineNr">1099 </span> -<span id="L1100" class="LineNr">1100 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error3</span>: -<span id="L1101" class="LineNr">1101 </span> <span class="subxComment"># print(stderr, "error: no metadata after calls; just use a comment (in '" line "')")</span> -<span id="L1102" class="LineNr">1102 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata after calls; just use a comment (in '")</span> -<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1104" class="LineNr">1104 </span> 68/push <span class="Constant">"error: no metadata after calls; just use a comment (in '"</span>/imm32 -<span id="L1105" class="LineNr">1105 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1107" class="LineNr">1107 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1110" class="LineNr">1110 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1111" class="LineNr">1111 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1112" class="LineNr">1112 </span> 56/push-esi -<span id="L1113" class="LineNr">1113 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1115" class="LineNr">1115 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1117" class="LineNr">1117 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1118" class="LineNr">1118 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> -<span id="L1119" class="LineNr">1119 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1120" class="LineNr">1120 </span> 68/push <span class="Constant">"')"</span>/imm32 -<span id="L1121" class="LineNr">1121 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1123" class="LineNr">1123 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1124" class="LineNr">1124 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1125" class="LineNr">1125 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1126" class="LineNr">1126 </span> <span class="subxS1Comment"># . flush(Stderr)</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="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1129" class="LineNr">1129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1130" class="LineNr">1130 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1131" class="LineNr">1131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1132" class="LineNr">1132 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1133" class="LineNr">1133 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1134" class="LineNr">1134 </span> bb/copy-to-ebx 1/imm32 -<span id="L1135" class="LineNr">1135 </span> e8/call syscall_exit/disp32 -<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># never gets here</span> -<span id="L1137" class="LineNr">1137 </span> -<span id="L1138" class="LineNr">1138 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error4</span>: -<span id="L1139" class="LineNr">1139 </span> <span class="subxComment"># print(stderr, "error: unexpected text after end of call in '" line "'")</span> -<span id="L1140" class="LineNr">1140 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected text after end of call in '")</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="Constant">"error: unexpected text after end of call in '"</span>/imm32 -<span id="L1143" class="LineNr">1143 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1144" class="LineNr">1144 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1145" class="LineNr">1145 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1146" class="LineNr">1146 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1147" class="LineNr">1147 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1148" class="LineNr">1148 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1149" class="LineNr">1149 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1150" class="LineNr">1150 </span> 56/push-esi -<span id="L1151" class="LineNr">1151 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1152" class="LineNr">1152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1153" class="LineNr">1153 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1154" class="LineNr">1154 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1155" class="LineNr">1155 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1156" class="LineNr">1156 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1158" class="LineNr">1158 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1159" class="LineNr">1159 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1161" class="LineNr">1161 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1163" class="LineNr">1163 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1164" class="LineNr">1164 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1165" class="LineNr">1165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1166" class="LineNr">1166 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1167" class="LineNr">1167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1168" class="LineNr">1168 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1169" class="LineNr">1169 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1170" class="LineNr">1170 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1172" class="LineNr">1172 </span> bb/copy-to-ebx 1/imm32 -<span id="L1173" class="LineNr">1173 </span> e8/call syscall_exit/disp32 -<span id="L1174" class="LineNr">1174 </span> <span class="subxComment"># never gets here</span> -<span id="L1175" class="LineNr">1175 </span> -<span id="L1176" class="LineNr">1176 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error5</span>: -<span id="L1177" class="LineNr">1177 </span> <span class="subxComment"># print(stderr, "error: no metadata anywhere in calls (in '" line "')")</span> -<span id="L1178" class="LineNr">1178 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata anywhere in calls (in '")</span> -<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1180" class="LineNr">1180 </span> 68/push <span class="Constant">"error: no metadata anywhere in calls (in '"</span>/imm32 -<span id="L1181" class="LineNr">1181 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1182" class="LineNr">1182 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1183" class="LineNr">1183 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1185" class="LineNr">1185 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1186" class="LineNr">1186 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1187" class="LineNr">1187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1188" class="LineNr">1188 </span> 56/push-esi -<span id="L1189" class="LineNr">1189 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1191" class="LineNr">1191 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1193" class="LineNr">1193 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1194" class="LineNr">1194 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> -<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1196" class="LineNr">1196 </span> 68/push <span class="Constant">"')"</span>/imm32 -<span id="L1197" class="LineNr">1197 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1199" class="LineNr">1199 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1201" class="LineNr">1201 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1202" class="LineNr">1202 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1203" class="LineNr">1203 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1204" class="LineNr">1204 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1206" class="LineNr">1206 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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 %esp 4/imm32 -<span id="L1209" class="LineNr">1209 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1210" class="LineNr">1210 </span> bb/copy-to-ebx 1/imm32 -<span id="L1211" class="LineNr">1211 </span> e8/call syscall_exit/disp32 -<span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># never gets here</span> -<span id="L1213" class="LineNr">1213 </span> -<span id="L1214" class="LineNr">1214 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata</span>: -<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1216" class="LineNr">1216 </span> 55/push-ebp -<span id="L1217" class="LineNr">1217 </span> 89/<- %ebp 4/r32/esp -<span id="L1218" class="LineNr">1218 </span> <span class="subxComment"># setup</span> -<span id="L1219" class="LineNr">1219 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1221" class="LineNr">1221 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1223" class="LineNr">1223 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1225" class="LineNr">1225 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1226" class="LineNr">1226 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1227" class="LineNr">1227 </span> 68/push 0/imm32/end -<span id="L1228" class="LineNr">1228 </span> 68/push 0/imm32/start -<span id="L1229" class="LineNr">1229 </span> 89/<- %ecx 4/r32/esp -<span id="L1230" class="LineNr">1230 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> -<span id="L1231" class="LineNr">1231 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1232" class="LineNr">1232 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L1233" class="LineNr">1233 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1234" class="LineNr">1234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1235" class="LineNr">1235 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1236" class="LineNr">1236 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1237" class="LineNr">1237 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1238" class="LineNr">1238 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1240" class="LineNr">1240 </span> 51/push-ecx -<span id="L1241" class="LineNr">1241 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1242" class="LineNr">1242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1243" class="LineNr">1243 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</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 %esp 8/imm32 -<span id="L1246" class="LineNr">1246 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> -<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1248" class="LineNr">1248 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1214'>test-next-word-string-or-expression-without-metadata</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1249" class="LineNr">1249 </span> 68/push 4/imm32 -<span id="L1250" class="LineNr">1250 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1251" class="LineNr">1251 </span> ff 6/subop/push *(eax+4) -<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1253" class="LineNr">1253 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1255" class="LineNr">1255 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1256" class="LineNr">1256 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1257" class="LineNr">1257 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1258" class="LineNr">1258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1259" class="LineNr">1259 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1214'>test-next-word-string-or-expression-without-metadata</a>: start"</span>/imm32 -<span id="L1260" class="LineNr">1260 </span> 68/push 0xe/imm32 -<span id="L1261" class="LineNr">1261 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1262" class="LineNr">1262 </span> 8b/-> *ecx 0/r32/eax -<span id="L1263" class="LineNr">1263 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1264" class="LineNr">1264 </span> 50/push-eax -<span id="L1265" class="LineNr">1265 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1266" class="LineNr">1266 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1267" class="LineNr">1267 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1268" class="LineNr">1268 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1269" class="LineNr">1269 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> -<span id="L1270" class="LineNr">1270 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, msg)</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="Constant">"F - <a href='calls.subx.html#L1214'>test-next-word-string-or-expression-without-metadata</a>: end"</span>/imm32 -<span id="L1273" class="LineNr">1273 </span> 68/push 0x10/imm32 -<span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1275" class="LineNr">1275 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1276" class="LineNr">1276 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1277" class="LineNr">1277 </span> 50/push-eax -<span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1279" class="LineNr">1279 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1281" class="LineNr">1281 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1282" class="LineNr">1282 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1283" class="LineNr">1283 </span> 89/<- %esp 5/r32/ebp -<span id="L1284" class="LineNr">1284 </span> 5d/pop-to-ebp -<span id="L1285" class="LineNr">1285 </span> c3/return -<span id="L1286" class="LineNr">1286 </span> -<span id="L1287" class="LineNr">1287 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-whole-comment</span>: -<span id="L1288" class="LineNr">1288 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1289" class="LineNr">1289 </span> 55/push-ebp -<span id="L1290" class="LineNr">1290 </span> 89/<- %ebp 4/r32/esp -<span id="L1291" class="LineNr">1291 </span> <span class="subxComment"># setup</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1294" class="LineNr">1294 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1296" class="LineNr">1296 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1298" class="LineNr">1298 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1299" class="LineNr">1299 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1300" class="LineNr">1300 </span> 68/push 0/imm32/end -<span id="L1301" class="LineNr">1301 </span> 68/push 0/imm32/start -<span id="L1302" class="LineNr">1302 </span> 89/<- %ecx 4/r32/esp -<span id="L1303" class="LineNr">1303 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> +<span id="L963" class="LineNr"> 963 </span> <span class="subxH1Comment"># - error checking: make sure there's nothing else of importance on the line</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># if (line->read >= line->write) return out = {0, 0}</span> +<span id="L965" class="LineNr"> 965 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L966" class="LineNr"> 966 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . if (ecx >= line->write) return {0, 0}</span> +<span id="L968" class="LineNr"> 968 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L969" class="LineNr"> 969 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32 +<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># if (line->data[line->read] == '/') goto error3</span> +<span id="L971" class="LineNr"> 971 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L972" class="LineNr"> 972 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . if (eax == '/') goto error3</span> +<span id="L974" class="LineNr"> 974 </span> 3d/compare-eax-and 0x2f/imm32/slash +<span id="L975" class="LineNr"> 975 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error3/disp32 +<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L978" class="LineNr"> 978 </span> 56/push-esi +<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . call</span> +<span id="L980" class="LineNr"> 980 </span> e8/call <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L981" class="LineNr"> 981 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L982" class="LineNr"> 982 </span> 81 0/subop/add %esp 4/imm32 +<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># if (line->read >= line->write) return out = {0, 0}</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L985" class="LineNr"> 985 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . if (ecx >= line->write) return {0, 0}</span> +<span id="L987" class="LineNr"> 987 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L988" class="LineNr"> 988 </span> 0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32 +<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># if (line->data[line->read] == '#') return out = {0, 0}</span> +<span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L991" class="LineNr"> 991 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L992" class="LineNr"> 992 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L993" class="LineNr"> 993 </span> <span class="subxS1Comment"># . if (eax == '#') return out = {0, 0}</span> +<span id="L994" class="LineNr"> 994 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L995" class="LineNr"> 995 </span> 74/jump-if-= $next-word-string-or-expression-without-metadata:return-eol/disp8 +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># otherwise goto error4</span> +<span id="L997" class="LineNr"> 997 </span> e9/jump $next-word-string-or-expression-without-metadata:error4/disp32 +<span id="L998" class="LineNr"> 998 </span><span class="Constant">$next-word-string-or-expression-without-metadata:regular-word-without-metadata</span>: +<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># if (line->read >= line->write) break</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L1001" class="LineNr">1001 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L1002" class="LineNr">1002 </span> <span class="subxS1Comment"># . if (ecx >= line->write) break</span> +<span id="L1003" class="LineNr">1003 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L1004" class="LineNr">1004 </span> 7d/jump-if->= $next-word-string-or-expression-without-metadata:regular-word-break/disp8 +<span id="L1005" class="LineNr">1005 </span> <span class="subxComment"># if (line->data[line->read] == ' ') break</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L1007" class="LineNr">1007 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L1008" class="LineNr">1008 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L1009" class="LineNr">1009 </span> <span class="subxS1Comment"># . if (eax == ' ') break</span> +<span id="L1010" class="LineNr">1010 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L1011" class="LineNr">1011 </span> 74/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp8 +<span id="L1012" class="LineNr">1012 </span> <span class="subxComment"># if (line->data[line->read] == ')') break</span> +<span id="L1013" class="LineNr">1013 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L1014" class="LineNr">1014 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp32 +<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># if (line->data[line->read] == '/') goto error5</span> +<span id="L1016" class="LineNr">1016 </span> 3d/compare-eax-and 0x2f/imm32/slash +<span id="L1017" class="LineNr">1017 </span> 0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error5/disp32 +<span id="L1018" class="LineNr">1018 </span> <span class="subxComment"># ++line->read</span> +<span id="L1019" class="LineNr">1019 </span> ff 0/subop/increment *(esi+4) +<span id="L1020" class="LineNr">1020 </span> <span class="subxComment"># loop</span> +<span id="L1021" class="LineNr">1021 </span> e9/jump $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32 +<span id="L1022" class="LineNr">1022 </span><span class="Constant">$next-word-string-or-expression-without-metadata:regular-word-break</span>: +<span id="L1023" class="LineNr">1023 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L1024" class="LineNr">1024 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L1025" class="LineNr">1025 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L1026" class="LineNr">1026 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L1027" class="LineNr">1027 </span> eb/jump $next-word-string-or-expression-without-metadata:end/disp8 +<span id="L1028" class="LineNr">1028 </span><span class="Constant">$next-word-string-or-expression-without-metadata:return-eol</span>: +<span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># return out = {0, 0}</span> +<span id="L1030" class="LineNr">1030 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L1031" class="LineNr">1031 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L1032" class="LineNr">1032 </span><span class="Constant">$next-word-string-or-expression-without-metadata:end</span>: +<span id="L1033" class="LineNr">1033 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1034" class="LineNr">1034 </span> 5f/pop-to-edi +<span id="L1035" class="LineNr">1035 </span> 5e/pop-to-esi +<span id="L1036" class="LineNr">1036 </span> 59/pop-to-ecx +<span id="L1037" class="LineNr">1037 </span> 58/pop-to-eax +<span id="L1038" class="LineNr">1038 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1039" class="LineNr">1039 </span> 89/<- %esp 5/r32/ebp +<span id="L1040" class="LineNr">1040 </span> 5d/pop-to-ebp +<span id="L1041" class="LineNr">1041 </span> c3/return +<span id="L1042" class="LineNr">1042 </span> +<span id="L1043" class="LineNr">1043 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error0</span>: +<span id="L1044" class="LineNr">1044 </span> <span class="subxComment"># print(stderr, "error: missing final ')' in '" line "'")</span> +<span id="L1045" class="LineNr">1045 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: missing final ')' in '")</span> +<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"error: missing final ')' in '"</span>/imm32 +<span id="L1048" class="LineNr">1048 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1050" class="LineNr">1050 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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 %esp 8/imm32 +<span id="L1053" class="LineNr">1053 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1055" class="LineNr">1055 </span> 56/push-esi +<span id="L1056" class="LineNr">1056 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1057" class="LineNr">1057 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1058" class="LineNr">1058 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1059" class="LineNr">1059 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1060" class="LineNr">1060 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1061" class="LineNr">1061 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1063" class="LineNr">1063 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1064" class="LineNr">1064 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1065" class="LineNr">1065 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1066" class="LineNr">1066 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1067" class="LineNr">1067 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1068" class="LineNr">1068 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1069" class="LineNr">1069 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1071" class="LineNr">1071 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1073" class="LineNr">1073 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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 %esp 4/imm32 +<span id="L1076" class="LineNr">1076 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1077" class="LineNr">1077 </span> bb/copy-to-ebx 1/imm32 +<span id="L1078" class="LineNr">1078 </span> e8/call syscall_exit/disp32 +<span id="L1079" class="LineNr">1079 </span> <span class="subxComment"># never gets here</span> +<span id="L1080" class="LineNr">1080 </span> +<span id="L1081" class="LineNr">1081 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error1</span>: +<span id="L1082" class="LineNr">1082 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> +<span id="L1083" class="LineNr">1083 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> +<span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1085" class="LineNr">1085 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 +<span id="L1086" class="LineNr">1086 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1088" class="LineNr">1088 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1089" class="LineNr">1089 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1090" class="LineNr">1090 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1091" class="LineNr">1091 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1093" class="LineNr">1093 </span> 56/push-esi +<span id="L1094" class="LineNr">1094 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1096" class="LineNr">1096 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1098" class="LineNr">1098 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1099" class="LineNr">1099 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1100" class="LineNr">1100 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1101" class="LineNr">1101 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1102" class="LineNr">1102 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1104" class="LineNr">1104 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1105" class="LineNr">1105 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1106" class="LineNr">1106 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1107" class="LineNr">1107 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1109" class="LineNr">1109 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</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='../115write-byte.subx.html#L81'>flush</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 %esp 4/imm32 +<span id="L1114" class="LineNr">1114 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1115" class="LineNr">1115 </span> bb/copy-to-ebx 1/imm32 +<span id="L1116" class="LineNr">1116 </span> e8/call syscall_exit/disp32 +<span id="L1117" class="LineNr">1117 </span> <span class="subxComment"># never gets here</span> +<span id="L1118" class="LineNr">1118 </span> +<span id="L1119" class="LineNr">1119 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error2</span>: +<span id="L1120" class="LineNr">1120 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> +<span id="L1121" class="LineNr">1121 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> +<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1123" class="LineNr">1123 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 +<span id="L1124" class="LineNr">1124 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1126" class="LineNr">1126 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1127" class="LineNr">1127 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1128" class="LineNr">1128 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1129" class="LineNr">1129 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1130" class="LineNr">1130 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1131" class="LineNr">1131 </span> 56/push-esi +<span id="L1132" class="LineNr">1132 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1133" class="LineNr">1133 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1134" class="LineNr">1134 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1135" class="LineNr">1135 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1136" class="LineNr">1136 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1137" class="LineNr">1137 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1138" class="LineNr">1138 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1139" class="LineNr">1139 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1140" class="LineNr">1140 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1141" class="LineNr">1141 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1142" class="LineNr">1142 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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 %esp 8/imm32 +<span id="L1145" class="LineNr">1145 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1147" class="LineNr">1147 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1148" class="LineNr">1148 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1149" class="LineNr">1149 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1150" class="LineNr">1150 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1151" class="LineNr">1151 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1152" class="LineNr">1152 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1153" class="LineNr">1153 </span> bb/copy-to-ebx 1/imm32 +<span id="L1154" class="LineNr">1154 </span> e8/call syscall_exit/disp32 +<span id="L1155" class="LineNr">1155 </span> <span class="subxComment"># never gets here</span> +<span id="L1156" class="LineNr">1156 </span> +<span id="L1157" class="LineNr">1157 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error3</span>: +<span id="L1158" class="LineNr">1158 </span> <span class="subxComment"># print(stderr, "error: no metadata after calls; just use a comment (in '" line "')")</span> +<span id="L1159" class="LineNr">1159 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata after calls; just use a comment (in '")</span> +<span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1161" class="LineNr">1161 </span> 68/push <span class="Constant">"error: no metadata after calls; just use a comment (in '"</span>/imm32 +<span id="L1162" class="LineNr">1162 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1163" class="LineNr">1163 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1164" class="LineNr">1164 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1165" class="LineNr">1165 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1166" class="LineNr">1166 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1167" class="LineNr">1167 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1168" class="LineNr">1168 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1169" class="LineNr">1169 </span> 56/push-esi +<span id="L1170" class="LineNr">1170 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1171" class="LineNr">1171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1172" class="LineNr">1172 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1173" class="LineNr">1173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1174" class="LineNr">1174 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1175" class="LineNr">1175 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> +<span id="L1176" class="LineNr">1176 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1177" class="LineNr">1177 </span> 68/push <span class="Constant">"')"</span>/imm32 +<span id="L1178" class="LineNr">1178 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1180" class="LineNr">1180 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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 %esp 8/imm32 +<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . flush(Stderr)</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="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1187" class="LineNr">1187 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1189" class="LineNr">1189 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1190" class="LineNr">1190 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1191" class="LineNr">1191 </span> bb/copy-to-ebx 1/imm32 +<span id="L1192" class="LineNr">1192 </span> e8/call syscall_exit/disp32 +<span id="L1193" class="LineNr">1193 </span> <span class="subxComment"># never gets here</span> +<span id="L1194" class="LineNr">1194 </span> +<span id="L1195" class="LineNr">1195 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error4</span>: +<span id="L1196" class="LineNr">1196 </span> <span class="subxComment"># print(stderr, "error: unexpected text after end of call in '" line "'")</span> +<span id="L1197" class="LineNr">1197 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected text after end of call in '")</span> +<span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1199" class="LineNr">1199 </span> 68/push <span class="Constant">"error: unexpected text after end of call in '"</span>/imm32 +<span id="L1200" class="LineNr">1200 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1202" class="LineNr">1202 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1203" class="LineNr">1203 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1204" class="LineNr">1204 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1205" class="LineNr">1205 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1207" class="LineNr">1207 </span> 56/push-esi +<span id="L1208" class="LineNr">1208 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1210" class="LineNr">1210 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1212" class="LineNr">1212 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1215" class="LineNr">1215 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1216" class="LineNr">1216 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1217" class="LineNr">1217 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1218" class="LineNr">1218 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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 %esp 8/imm32 +<span id="L1221" class="LineNr">1221 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1223" class="LineNr">1223 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1225" class="LineNr">1225 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1226" class="LineNr">1226 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1227" class="LineNr">1227 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1228" class="LineNr">1228 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1229" class="LineNr">1229 </span> bb/copy-to-ebx 1/imm32 +<span id="L1230" class="LineNr">1230 </span> e8/call syscall_exit/disp32 +<span id="L1231" class="LineNr">1231 </span> <span class="subxComment"># never gets here</span> +<span id="L1232" class="LineNr">1232 </span> +<span id="L1233" class="LineNr">1233 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error5</span>: +<span id="L1234" class="LineNr">1234 </span> <span class="subxComment"># print(stderr, "error: no metadata anywhere in calls (in '" line "')")</span> +<span id="L1235" class="LineNr">1235 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata anywhere in calls (in '")</span> +<span id="L1236" class="LineNr">1236 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1237" class="LineNr">1237 </span> 68/push <span class="Constant">"error: no metadata anywhere in calls (in '"</span>/imm32 +<span id="L1238" class="LineNr">1238 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1240" class="LineNr">1240 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1241" class="LineNr">1241 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1242" class="LineNr">1242 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1243" class="LineNr">1243 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1245" class="LineNr">1245 </span> 56/push-esi +<span id="L1246" class="LineNr">1246 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1248" class="LineNr">1248 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1250" class="LineNr">1250 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1251" class="LineNr">1251 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> +<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1253" class="LineNr">1253 </span> 68/push <span class="Constant">"')"</span>/imm32 +<span id="L1254" class="LineNr">1254 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1256" class="LineNr">1256 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1259" class="LineNr">1259 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1260" class="LineNr">1260 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1261" class="LineNr">1261 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1262" class="LineNr">1262 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1263" class="LineNr">1263 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1264" class="LineNr">1264 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1265" class="LineNr">1265 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1267" class="LineNr">1267 </span> bb/copy-to-ebx 1/imm32 +<span id="L1268" class="LineNr">1268 </span> e8/call syscall_exit/disp32 +<span id="L1269" class="LineNr">1269 </span> <span class="subxComment"># never gets here</span> +<span id="L1270" class="LineNr">1270 </span> +<span id="L1271" class="LineNr">1271 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata</span>: +<span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1273" class="LineNr">1273 </span> 55/push-ebp +<span id="L1274" class="LineNr">1274 </span> 89/<- %ebp 4/r32/esp +<span id="L1275" class="LineNr">1275 </span> <span class="subxComment"># setup</span> +<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1278" class="LineNr">1278 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1280" class="LineNr">1280 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1282" class="LineNr">1282 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1283" class="LineNr">1283 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1284" class="LineNr">1284 </span> 68/push 0/imm32/end +<span id="L1285" class="LineNr">1285 </span> 68/push 0/imm32/start +<span id="L1286" class="LineNr">1286 </span> 89/<- %ecx 4/r32/esp +<span id="L1287" class="LineNr">1287 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> +<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1289" class="LineNr">1289 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L1290" class="LineNr">1290 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1291" class="LineNr">1291 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1292" class="LineNr">1292 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1294" class="LineNr">1294 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1295" class="LineNr">1295 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1296" class="LineNr">1296 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1297" class="LineNr">1297 </span> 51/push-ecx +<span id="L1298" class="LineNr">1298 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1300" class="LineNr">1300 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1302" class="LineNr">1302 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1303" class="LineNr">1303 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> <span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1305" class="LineNr">1305 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L1306" class="LineNr">1306 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1308" class="LineNr">1308 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1309" class="LineNr">1309 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1310" class="LineNr">1310 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1311" class="LineNr">1311 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1313" class="LineNr">1313 </span> 51/push-ecx -<span id="L1314" class="LineNr">1314 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1316" class="LineNr">1316 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1317" class="LineNr">1317 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1318" class="LineNr">1318 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1319" class="LineNr">1319 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, msg)</span> -<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1321" class="LineNr">1321 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1287'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1322" class="LineNr">1322 </span> 68/push 5/imm32 -<span id="L1323" class="LineNr">1323 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1324" class="LineNr">1324 </span> ff 6/subop/push *(eax+4) -<span id="L1325" class="LineNr">1325 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1326" class="LineNr">1326 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1327" class="LineNr">1327 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1328" class="LineNr">1328 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1329" class="LineNr">1329 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1330" class="LineNr">1330 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1331" class="LineNr">1331 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1332" class="LineNr">1332 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1287'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>: start"</span>/imm32 -<span id="L1333" class="LineNr">1333 </span> 68/push 0xe/imm32 -<span id="L1334" class="LineNr">1334 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1335" class="LineNr">1335 </span> 8b/-> *ecx 0/r32/eax -<span id="L1336" class="LineNr">1336 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1337" class="LineNr">1337 </span> 50/push-eax -<span id="L1338" class="LineNr">1338 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1339" class="LineNr">1339 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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 %esp 0xc/imm32 -<span id="L1342" class="LineNr">1342 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> -<span id="L1343" class="LineNr">1343 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> -<span id="L1344" class="LineNr">1344 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1345" class="LineNr">1345 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1287'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>: end"</span>/imm32 -<span id="L1346" class="LineNr">1346 </span> 68/push 0x11/imm32 -<span id="L1347" class="LineNr">1347 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1348" class="LineNr">1348 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1349" class="LineNr">1349 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1350" class="LineNr">1350 </span> 50/push-eax -<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1352" class="LineNr">1352 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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 %esp 0xc/imm32 -<span id="L1355" class="LineNr">1355 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1356" class="LineNr">1356 </span> 89/<- %esp 5/r32/ebp -<span id="L1357" class="LineNr">1357 </span> 5d/pop-to-ebp -<span id="L1358" class="LineNr">1358 </span> c3/return -<span id="L1359" class="LineNr">1359 </span> -<span id="L1360" class="LineNr">1360 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-string-literal</span>: -<span id="L1361" class="LineNr">1361 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1362" class="LineNr">1362 </span> 55/push-ebp -<span id="L1363" class="LineNr">1363 </span> 89/<- %ebp 4/r32/esp -<span id="L1364" class="LineNr">1364 </span> <span class="subxComment"># setup</span> -<span id="L1365" class="LineNr">1365 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1366" class="LineNr">1366 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1367" class="LineNr">1367 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1368" class="LineNr">1368 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1369" class="LineNr">1369 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1370" class="LineNr">1370 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1371" class="LineNr">1371 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1372" class="LineNr">1372 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1373" class="LineNr">1373 </span> 68/push 0/imm32/end -<span id="L1374" class="LineNr">1374 </span> 68/push 0/imm32/start -<span id="L1375" class="LineNr">1375 </span> 89/<- %ecx 4/r32/esp -<span id="L1376" class="LineNr">1376 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\" ")</span> +<span id="L1305" class="LineNr">1305 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1271'>test-next-word-string-or-expression-without-metadata</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1306" class="LineNr">1306 </span> 68/push 4/imm32 +<span id="L1307" class="LineNr">1307 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1308" class="LineNr">1308 </span> ff 6/subop/push *(eax+4) +<span id="L1309" class="LineNr">1309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1310" class="LineNr">1310 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1311" class="LineNr">1311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1312" class="LineNr">1312 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1313" class="LineNr">1313 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1314" class="LineNr">1314 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, 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='calls.subx.html#L1271'>test-next-word-string-or-expression-without-metadata</a>: start"</span>/imm32 +<span id="L1317" class="LineNr">1317 </span> 68/push 0xe/imm32 +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1319" class="LineNr">1319 </span> 8b/-> *ecx 0/r32/eax +<span id="L1320" class="LineNr">1320 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1321" class="LineNr">1321 </span> 50/push-eax +<span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1323" class="LineNr">1323 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1325" class="LineNr">1325 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1326" class="LineNr">1326 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> +<span id="L1327" class="LineNr">1327 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, msg)</span> +<span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1329" class="LineNr">1329 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1271'>test-next-word-string-or-expression-without-metadata</a>: end"</span>/imm32 +<span id="L1330" class="LineNr">1330 </span> 68/push 0x10/imm32 +<span id="L1331" class="LineNr">1331 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1332" class="LineNr">1332 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1333" class="LineNr">1333 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1334" class="LineNr">1334 </span> 50/push-eax +<span id="L1335" class="LineNr">1335 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1336" class="LineNr">1336 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1338" class="LineNr">1338 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1339" class="LineNr">1339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1340" class="LineNr">1340 </span> 89/<- %esp 5/r32/ebp +<span id="L1341" class="LineNr">1341 </span> 5d/pop-to-ebp +<span id="L1342" class="LineNr">1342 </span> c3/return +<span id="L1343" class="LineNr">1343 </span> +<span id="L1344" class="LineNr">1344 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-whole-comment</span>: +<span id="L1345" class="LineNr">1345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1346" class="LineNr">1346 </span> 55/push-ebp +<span id="L1347" class="LineNr">1347 </span> 89/<- %ebp 4/r32/esp +<span id="L1348" class="LineNr">1348 </span> <span class="subxComment"># setup</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1350" class="LineNr">1350 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1351" class="LineNr">1351 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1352" class="LineNr">1352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1353" class="LineNr">1353 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1354" class="LineNr">1354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1355" class="LineNr">1355 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1356" class="LineNr">1356 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1357" class="LineNr">1357 </span> 68/push 0/imm32/end +<span id="L1358" class="LineNr">1358 </span> 68/push 0/imm32/start +<span id="L1359" class="LineNr">1359 </span> 89/<- %ecx 4/r32/esp +<span id="L1360" class="LineNr">1360 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> +<span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1362" class="LineNr">1362 </span> 68/push <span class="Constant">" # a"</span>/imm32 +<span id="L1363" class="LineNr">1363 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-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='../108write.subx.html#L24'>write</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 %esp 8/imm32 +<span id="L1368" class="LineNr">1368 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1369" class="LineNr">1369 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1370" class="LineNr">1370 </span> 51/push-ecx +<span id="L1371" class="LineNr">1371 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1372" class="LineNr">1372 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1373" class="LineNr">1373 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1374" class="LineNr">1374 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1375" class="LineNr">1375 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1376" class="LineNr">1376 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, msg)</span> <span id="L1377" class="LineNr">1377 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1378" class="LineNr">1378 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">" "</span>/imm32 -<span id="L1379" class="LineNr">1379 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1380" class="LineNr">1380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1381" class="LineNr">1381 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1382" class="LineNr">1382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1383" class="LineNr">1383 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1385" class="LineNr">1385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1386" class="LineNr">1386 </span> 51/push-ecx -<span id="L1387" class="LineNr">1387 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-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='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</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 %esp 8/imm32 -<span id="L1392" class="LineNr">1392 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L1393" class="LineNr">1393 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1395" class="LineNr">1395 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1360'>test-next-word-string-or-expression-without-metadata-returns-string-literal</a>: start"</span>/imm32 -<span id="L1396" class="LineNr">1396 </span> 68/push 0xd/imm32 -<span id="L1397" class="LineNr">1397 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1398" class="LineNr">1398 </span> 8b/-> *ecx 0/r32/eax -<span id="L1399" class="LineNr">1399 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1400" class="LineNr">1400 </span> 50/push-eax -<span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1402" class="LineNr">1402 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1404" class="LineNr">1404 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1405" class="LineNr">1405 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 6, msg)</span> -<span id="L1406" class="LineNr">1406 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 18, msg)</span> -<span id="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1408" class="LineNr">1408 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1360'>test-next-word-string-or-expression-without-metadata-returns-string-literal</a>: end"</span>/imm32 -<span id="L1409" class="LineNr">1409 </span> 68/push 0x12/imm32 -<span id="L1410" class="LineNr">1410 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1411" class="LineNr">1411 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1412" class="LineNr">1412 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1413" class="LineNr">1413 </span> 50/push-eax -<span id="L1414" class="LineNr">1414 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1415" class="LineNr">1415 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1417" class="LineNr">1417 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1418" class="LineNr">1418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1419" class="LineNr">1419 </span> 89/<- %esp 5/r32/ebp -<span id="L1420" class="LineNr">1420 </span> 5d/pop-to-ebp -<span id="L1421" class="LineNr">1421 </span> c3/return -<span id="L1422" class="LineNr">1422 </span> -<span id="L1423" class="LineNr">1423 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</span>: -<span id="L1424" class="LineNr">1424 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1425" class="LineNr">1425 </span> 55/push-ebp -<span id="L1426" class="LineNr">1426 </span> 89/<- %ebp 4/r32/esp -<span id="L1427" class="LineNr">1427 </span> <span class="subxComment"># setup</span> -<span id="L1428" class="LineNr">1428 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . push args</span> -<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='../106stream.subx.html#L17'>clear-stream</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 %esp 4/imm32 -<span id="L1435" class="LineNr">1435 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1436" class="LineNr">1436 </span> 68/push 0/imm32/end -<span id="L1437" class="LineNr">1437 </span> 68/push 0/imm32/start -<span id="L1438" class="LineNr">1438 </span> 89/<- %ecx 4/r32/esp -<span id="L1439" class="LineNr">1439 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"")</span> -<span id="L1440" class="LineNr">1440 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1441" class="LineNr">1441 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>"/imm32 -<span id="L1442" class="LineNr">1442 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1443" class="LineNr">1443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1444" class="LineNr">1444 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1445" class="LineNr">1445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1446" class="LineNr">1446 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1447" class="LineNr">1447 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1449" class="LineNr">1449 </span> 51/push-ecx -<span id="L1450" class="LineNr">1450 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1451" class="LineNr">1451 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1452" class="LineNr">1452 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1453" class="LineNr">1453 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1454" class="LineNr">1454 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1455" class="LineNr">1455 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L1456" class="LineNr">1456 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1458" class="LineNr">1458 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1423'>test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</a>: start"</span>/imm32 -<span id="L1459" class="LineNr">1459 </span> 68/push 0xd/imm32 -<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1461" class="LineNr">1461 </span> 8b/-> *ecx 0/r32/eax -<span id="L1462" class="LineNr">1462 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1463" class="LineNr">1463 </span> 50/push-eax -<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1465" class="LineNr">1465 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1466" class="LineNr">1466 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1467" class="LineNr">1467 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1468" class="LineNr">1468 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> -<span id="L1469" class="LineNr">1469 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 19, msg)</span> -<span id="L1470" class="LineNr">1470 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1471" class="LineNr">1471 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1423'>test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</a>: end"</span>/imm32 -<span id="L1472" class="LineNr">1472 </span> 68/push 0x13/imm32 -<span id="L1473" class="LineNr">1473 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1474" class="LineNr">1474 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1475" class="LineNr">1475 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1476" class="LineNr">1476 </span> 50/push-eax -<span id="L1477" class="LineNr">1477 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1478" class="LineNr">1478 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1479" class="LineNr">1479 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1480" class="LineNr">1480 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1481" class="LineNr">1481 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1482" class="LineNr">1482 </span> 89/<- %esp 5/r32/ebp -<span id="L1483" class="LineNr">1483 </span> 5d/pop-to-ebp -<span id="L1484" class="LineNr">1484 </span> c3/return -<span id="L1485" class="LineNr">1485 </span> -<span id="L1486" class="LineNr">1486 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-whole-expression</span>: -<span id="L1487" class="LineNr">1487 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1488" class="LineNr">1488 </span> 55/push-ebp -<span id="L1489" class="LineNr">1489 </span> 89/<- %ebp 4/r32/esp -<span id="L1490" class="LineNr">1490 </span> <span class="subxComment"># setup</span> -<span id="L1491" class="LineNr">1491 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1492" class="LineNr">1492 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1493" class="LineNr">1493 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1494" class="LineNr">1494 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1495" class="LineNr">1495 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1496" class="LineNr">1496 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1497" class="LineNr">1497 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1498" class="LineNr">1498 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1499" class="LineNr">1499 </span> 68/push 0/imm32/end -<span id="L1500" class="LineNr">1500 </span> 68/push 0/imm32/start -<span id="L1501" class="LineNr">1501 </span> 89/<- %ecx 4/r32/esp -<span id="L1502" class="LineNr">1502 </span> <span class="subxComment"># write(_test-input-stream, " *(a b) ")</span> -<span id="L1503" class="LineNr">1503 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1504" class="LineNr">1504 </span> 68/push <span class="Constant">" *(a b) "</span>/imm32 -<span id="L1505" class="LineNr">1505 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1506" class="LineNr">1506 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1507" class="LineNr">1507 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1508" class="LineNr">1508 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1509" class="LineNr">1509 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1510" class="LineNr">1510 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1512" class="LineNr">1512 </span> 51/push-ecx -<span id="L1513" class="LineNr">1513 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1515" class="LineNr">1515 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1517" class="LineNr">1517 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1518" class="LineNr">1518 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L1519" class="LineNr">1519 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, 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='calls.subx.html#L1486'>test-next-word-string-or-expression-without-metadata-returns-whole-expression</a>: start"</span>/imm32 -<span id="L1522" class="LineNr">1522 </span> 68/push 0xd/imm32 -<span id="L1523" class="LineNr">1523 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1524" class="LineNr">1524 </span> 8b/-> *ecx 0/r32/eax -<span id="L1525" class="LineNr">1525 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1526" class="LineNr">1526 </span> 50/push-eax -<span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1528" class="LineNr">1528 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1529" class="LineNr">1529 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1530" class="LineNr">1530 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1531" class="LineNr">1531 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> -<span id="L1532" class="LineNr">1532 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 19, msg)</span> -<span id="L1533" class="LineNr">1533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1534" class="LineNr">1534 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1486'>test-next-word-string-or-expression-without-metadata-returns-whole-expression</a>: end"</span>/imm32 -<span id="L1535" class="LineNr">1535 </span> 68/push 0x13/imm32 -<span id="L1536" class="LineNr">1536 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1537" class="LineNr">1537 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1538" class="LineNr">1538 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1539" class="LineNr">1539 </span> 50/push-eax -<span id="L1540" class="LineNr">1540 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1541" class="LineNr">1541 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1542" class="LineNr">1542 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1543" class="LineNr">1543 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1544" class="LineNr">1544 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1545" class="LineNr">1545 </span> 89/<- %esp 5/r32/ebp -<span id="L1546" class="LineNr">1546 </span> 5d/pop-to-ebp -<span id="L1547" class="LineNr">1547 </span> c3/return -<span id="L1548" class="LineNr">1548 </span> -<span id="L1549" class="LineNr">1549 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</span>: -<span id="L1550" class="LineNr">1550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1551" class="LineNr">1551 </span> 55/push-ebp -<span id="L1552" class="LineNr">1552 </span> 89/<- %ebp 4/r32/esp -<span id="L1553" class="LineNr">1553 </span> <span class="subxComment"># setup</span> -<span id="L1554" class="LineNr">1554 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1555" class="LineNr">1555 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1556" class="LineNr">1556 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1558" class="LineNr">1558 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1559" class="LineNr">1559 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1560" class="LineNr">1560 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1561" class="LineNr">1561 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1562" class="LineNr">1562 </span> 68/push 0/imm32/end -<span id="L1563" class="LineNr">1563 </span> 68/push 0/imm32/start -<span id="L1564" class="LineNr">1564 </span> 89/<- %ecx 4/r32/esp -<span id="L1565" class="LineNr">1565 </span> <span class="subxComment"># write(_test-input-stream, " ) ")</span> -<span id="L1566" class="LineNr">1566 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1567" class="LineNr">1567 </span> 68/push <span class="Constant">" ) "</span>/imm32 -<span id="L1568" class="LineNr">1568 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-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='../108write.subx.html#L24'>write</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 %esp 8/imm32 -<span id="L1573" class="LineNr">1573 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1575" class="LineNr">1575 </span> 51/push-ecx -<span id="L1576" class="LineNr">1576 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1577" class="LineNr">1577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1578" class="LineNr">1578 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1579" class="LineNr">1579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1580" class="LineNr">1580 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1581" class="LineNr">1581 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, msg)</span> -<span id="L1582" class="LineNr">1582 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1583" class="LineNr">1583 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1549'>test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</a>: start"</span>/imm32 -<span id="L1584" class="LineNr">1584 </span> 68/push 0/imm32 -<span id="L1585" class="LineNr">1585 </span> ff 6/subop/push *ecx -<span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1587" class="LineNr">1587 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1589" class="LineNr">1589 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1590" class="LineNr">1590 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</span> -<span id="L1591" class="LineNr">1591 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1592" class="LineNr">1592 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1549'>test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</a>: end"</span>/imm32 -<span id="L1593" class="LineNr">1593 </span> 68/push 0/imm32 -<span id="L1594" class="LineNr">1594 </span> ff 6/subop/push *(ecx+4) -<span id="L1595" class="LineNr">1595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1596" class="LineNr">1596 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1597" class="LineNr">1597 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1598" class="LineNr">1598 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1599" class="LineNr">1599 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1600" class="LineNr">1600 </span> 89/<- %esp 5/r32/ebp -<span id="L1601" class="LineNr">1601 </span> 5d/pop-to-ebp -<span id="L1602" class="LineNr">1602 </span> c3/return -<span id="L1603" class="LineNr">1603 </span> -<span id="L1604" class="LineNr">1604 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</span>: -<span id="L1605" class="LineNr">1605 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1606" class="LineNr">1606 </span> 55/push-ebp -<span id="L1607" class="LineNr">1607 </span> 89/<- %ebp 4/r32/esp -<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># setup</span> -<span id="L1609" class="LineNr">1609 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1610" class="LineNr">1610 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1611" class="LineNr">1611 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1612" class="LineNr">1612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1613" class="LineNr">1613 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1615" class="LineNr">1615 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1616" class="LineNr">1616 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1617" class="LineNr">1617 </span> 68/push 0/imm32/end -<span id="L1618" class="LineNr">1618 </span> 68/push 0/imm32/start -<span id="L1619" class="LineNr">1619 </span> 89/<- %ecx 4/r32/esp -<span id="L1620" class="LineNr">1620 </span> <span class="subxComment"># write(_test-input-stream, " ) # abc ")</span> -<span id="L1621" class="LineNr">1621 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1622" class="LineNr">1622 </span> 68/push <span class="Constant">" ) # abc "</span>/imm32 -<span id="L1623" class="LineNr">1623 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1624" class="LineNr">1624 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1625" class="LineNr">1625 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1626" class="LineNr">1626 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1627" class="LineNr">1627 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1630" class="LineNr">1630 </span> 51/push-ecx -<span id="L1631" class="LineNr">1631 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1632" class="LineNr">1632 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1633" class="LineNr">1633 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1634" class="LineNr">1634 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1635" class="LineNr">1635 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, msg)</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1638" class="LineNr">1638 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1604'>test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</a>: start"</span>/imm32 -<span id="L1639" class="LineNr">1639 </span> 68/push 0/imm32 -<span id="L1640" class="LineNr">1640 </span> ff 6/subop/push *ecx -<span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1642" class="LineNr">1642 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1644" class="LineNr">1644 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</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="Constant">"F - <a href='calls.subx.html#L1604'>test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</a>: end"</span>/imm32 -<span id="L1648" class="LineNr">1648 </span> 68/push 0/imm32 -<span id="L1649" class="LineNr">1649 </span> ff 6/subop/push *(ecx+4) -<span id="L1650" class="LineNr">1650 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1651" class="LineNr">1651 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1652" class="LineNr">1652 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1653" class="LineNr">1653 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1654" class="LineNr">1654 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1655" class="LineNr">1655 </span> 89/<- %esp 5/r32/ebp -<span id="L1656" class="LineNr">1656 </span> 5d/pop-to-ebp -<span id="L1657" class="LineNr">1657 </span> c3/return -<span id="L1658" class="LineNr">1658 </span> -<span id="L1659" class="LineNr">1659 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</span>: -<span id="L1660" class="LineNr">1660 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1661" class="LineNr">1661 </span> 55/push-ebp -<span id="L1662" class="LineNr">1662 </span> 89/<- %ebp 4/r32/esp -<span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># setup</span> -<span id="L1664" class="LineNr">1664 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1665" class="LineNr">1665 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1666" class="LineNr">1666 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1667" class="LineNr">1667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1668" class="LineNr">1668 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1670" class="LineNr">1670 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1671" class="LineNr">1671 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1672" class="LineNr">1672 </span> 68/push 0/imm32/end -<span id="L1673" class="LineNr">1673 </span> 68/push 0/imm32/start -<span id="L1674" class="LineNr">1674 </span> 89/<- %ecx 4/r32/esp -<span id="L1675" class="LineNr">1675 </span> <span class="subxComment"># write(_test-input-stream, " )\n")</span> -<span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1677" class="LineNr">1677 </span> 68/push <span class="Constant">" )\n"</span>/imm32 -<span id="L1678" class="LineNr">1678 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1679" class="LineNr">1679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1680" class="LineNr">1680 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1682" class="LineNr">1682 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1683" class="LineNr">1683 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1684" class="LineNr">1684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1685" class="LineNr">1685 </span> 51/push-ecx -<span id="L1686" class="LineNr">1686 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1687" class="LineNr">1687 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1688" class="LineNr">1688 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1689" class="LineNr">1689 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1690" class="LineNr">1690 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1691" class="LineNr">1691 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, msg)</span> -<span id="L1692" class="LineNr">1692 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1693" class="LineNr">1693 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1659'>test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</a>: start"</span>/imm32 -<span id="L1694" class="LineNr">1694 </span> 68/push 0/imm32 -<span id="L1695" class="LineNr">1695 </span> ff 6/subop/push *ecx -<span id="L1696" class="LineNr">1696 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1697" class="LineNr">1697 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1698" class="LineNr">1698 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1699" class="LineNr">1699 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1700" class="LineNr">1700 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</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">"F - <a href='calls.subx.html#L1659'>test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</a>: end"</span>/imm32 -<span id="L1703" class="LineNr">1703 </span> 68/push 0/imm32 -<span id="L1704" class="LineNr">1704 </span> ff 6/subop/push *(ecx+4) -<span id="L1705" class="LineNr">1705 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1706" class="LineNr">1706 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1707" class="LineNr">1707 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1708" class="LineNr">1708 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1709" class="LineNr">1709 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1710" class="LineNr">1710 </span> 89/<- %esp 5/r32/ebp -<span id="L1711" class="LineNr">1711 </span> 5d/pop-to-ebp -<span id="L1712" class="LineNr">1712 </span> c3/return -<span id="L1713" class="LineNr">1713 </span> -<span id="L1714" class="LineNr">1714 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-stops-at-close-paren</span>: -<span id="L1715" class="LineNr">1715 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1716" class="LineNr">1716 </span> 55/push-ebp -<span id="L1717" class="LineNr">1717 </span> 89/<- %ebp 4/r32/esp -<span id="L1718" class="LineNr">1718 </span> <span class="subxComment"># setup</span> -<span id="L1719" class="LineNr">1719 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1721" class="LineNr">1721 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1723" class="LineNr">1723 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1725" class="LineNr">1725 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1726" class="LineNr">1726 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1727" class="LineNr">1727 </span> 68/push 0/imm32/end -<span id="L1728" class="LineNr">1728 </span> 68/push 0/imm32/start -<span id="L1729" class="LineNr">1729 </span> 89/<- %ecx 4/r32/esp -<span id="L1730" class="LineNr">1730 </span> <span class="subxComment"># write(_test-input-stream, " abc) # def")</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">" abc) # def"</span>/imm32 -<span id="L1733" class="LineNr">1733 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1735" class="LineNr">1735 </span> e8/call <a href='../108write.subx.html#L24'>write</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 %esp 8/imm32 -<span id="L1738" class="LineNr">1738 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> -<span id="L1739" class="LineNr">1739 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1740" class="LineNr">1740 </span> 51/push-ecx -<span id="L1741" class="LineNr">1741 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1742" class="LineNr">1742 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1743" class="LineNr">1743 </span> e8/call <a href='calls.subx.html#L743'>next-word-string-or-expression-without-metadata</a>/disp32 -<span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1745" class="LineNr">1745 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1746" class="LineNr">1746 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L1747" class="LineNr">1747 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L1748" class="LineNr">1748 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1749" class="LineNr">1749 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1714'>test-next-word-string-or-expression-without-metadata-stops-at-close-paren</a>: start"</span>/imm32 -<span id="L1750" class="LineNr">1750 </span> 68/push 0xd/imm32 -<span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1752" class="LineNr">1752 </span> 8b/-> *ecx 0/r32/eax -<span id="L1753" class="LineNr">1753 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1754" class="LineNr">1754 </span> 50/push-eax -<span id="L1755" class="LineNr">1755 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1756" class="LineNr">1756 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1758" class="LineNr">1758 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1759" class="LineNr">1759 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> -<span id="L1760" class="LineNr">1760 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, 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='calls.subx.html#L1714'>test-next-word-string-or-expression-without-metadata-stops-at-close-paren</a>: end"</span>/imm32 -<span id="L1763" class="LineNr">1763 </span> 68/push 0x10/imm32 -<span id="L1764" class="LineNr">1764 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1765" class="LineNr">1765 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1766" class="LineNr">1766 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1767" class="LineNr">1767 </span> 50/push-eax -<span id="L1768" class="LineNr">1768 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1769" class="LineNr">1769 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1770" class="LineNr">1770 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1771" class="LineNr">1771 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L1772" class="LineNr">1772 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1773" class="LineNr">1773 </span> 89/<- %esp 5/r32/ebp -<span id="L1774" class="LineNr">1774 </span> 5d/pop-to-ebp -<span id="L1775" class="LineNr">1775 </span> c3/return +<span id="L1378" class="LineNr">1378 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1344'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1379" class="LineNr">1379 </span> 68/push 5/imm32 +<span id="L1380" class="LineNr">1380 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1381" class="LineNr">1381 </span> ff 6/subop/push *(eax+4) +<span id="L1382" class="LineNr">1382 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1383" class="LineNr">1383 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1385" class="LineNr">1385 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1386" class="LineNr">1386 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1387" class="LineNr">1387 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> +<span id="L1388" class="LineNr">1388 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1389" class="LineNr">1389 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1344'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>: start"</span>/imm32 +<span id="L1390" class="LineNr">1390 </span> 68/push 0xe/imm32 +<span id="L1391" class="LineNr">1391 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1392" class="LineNr">1392 </span> 8b/-> *ecx 0/r32/eax +<span id="L1393" class="LineNr">1393 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1394" class="LineNr">1394 </span> 50/push-eax +<span id="L1395" class="LineNr">1395 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1396" class="LineNr">1396 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1397" class="LineNr">1397 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1398" class="LineNr">1398 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1399" class="LineNr">1399 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> +<span id="L1400" class="LineNr">1400 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> +<span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1402" class="LineNr">1402 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1344'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>: end"</span>/imm32 +<span id="L1403" class="LineNr">1403 </span> 68/push 0x11/imm32 +<span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1405" class="LineNr">1405 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1406" class="LineNr">1406 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1407" class="LineNr">1407 </span> 50/push-eax +<span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1409" class="LineNr">1409 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1410" class="LineNr">1410 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1411" class="LineNr">1411 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1412" class="LineNr">1412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1413" class="LineNr">1413 </span> 89/<- %esp 5/r32/ebp +<span id="L1414" class="LineNr">1414 </span> 5d/pop-to-ebp +<span id="L1415" class="LineNr">1415 </span> c3/return +<span id="L1416" class="LineNr">1416 </span> +<span id="L1417" class="LineNr">1417 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-string-literal</span>: +<span id="L1418" class="LineNr">1418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1419" class="LineNr">1419 </span> 55/push-ebp +<span id="L1420" class="LineNr">1420 </span> 89/<- %ebp 4/r32/esp +<span id="L1421" class="LineNr">1421 </span> <span class="subxComment"># setup</span> +<span id="L1422" class="LineNr">1422 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1424" class="LineNr">1424 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1425" class="LineNr">1425 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1426" class="LineNr">1426 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1427" class="LineNr">1427 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1428" class="LineNr">1428 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1429" class="LineNr">1429 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1430" class="LineNr">1430 </span> 68/push 0/imm32/end +<span id="L1431" class="LineNr">1431 </span> 68/push 0/imm32/start +<span id="L1432" class="LineNr">1432 </span> 89/<- %ecx 4/r32/esp +<span id="L1433" class="LineNr">1433 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\" ")</span> +<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1435" class="LineNr">1435 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">" "</span>/imm32 +<span id="L1436" class="LineNr">1436 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1437" class="LineNr">1437 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1438" class="LineNr">1438 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1440" class="LineNr">1440 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1441" class="LineNr">1441 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1443" class="LineNr">1443 </span> 51/push-ecx +<span id="L1444" class="LineNr">1444 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1445" class="LineNr">1445 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1446" class="LineNr">1446 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</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 %esp 8/imm32 +<span id="L1449" class="LineNr">1449 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L1450" class="LineNr">1450 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L1451" class="LineNr">1451 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1452" class="LineNr">1452 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1417'>test-next-word-string-or-expression-without-metadata-returns-string-literal</a>: start"</span>/imm32 +<span id="L1453" class="LineNr">1453 </span> 68/push 0xd/imm32 +<span id="L1454" class="LineNr">1454 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1455" class="LineNr">1455 </span> 8b/-> *ecx 0/r32/eax +<span id="L1456" class="LineNr">1456 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1457" class="LineNr">1457 </span> 50/push-eax +<span id="L1458" class="LineNr">1458 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1459" class="LineNr">1459 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1461" class="LineNr">1461 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1462" class="LineNr">1462 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 6, msg)</span> +<span id="L1463" class="LineNr">1463 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 18, msg)</span> +<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1465" class="LineNr">1465 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1417'>test-next-word-string-or-expression-without-metadata-returns-string-literal</a>: end"</span>/imm32 +<span id="L1466" class="LineNr">1466 </span> 68/push 0x12/imm32 +<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1468" class="LineNr">1468 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1469" class="LineNr">1469 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1470" class="LineNr">1470 </span> 50/push-eax +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1472" class="LineNr">1472 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1473" class="LineNr">1473 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1474" class="LineNr">1474 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1475" class="LineNr">1475 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1476" class="LineNr">1476 </span> 89/<- %esp 5/r32/ebp +<span id="L1477" class="LineNr">1477 </span> 5d/pop-to-ebp +<span id="L1478" class="LineNr">1478 </span> c3/return +<span id="L1479" class="LineNr">1479 </span> +<span id="L1480" class="LineNr">1480 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</span>: +<span id="L1481" class="LineNr">1481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1482" class="LineNr">1482 </span> 55/push-ebp +<span id="L1483" class="LineNr">1483 </span> 89/<- %ebp 4/r32/esp +<span id="L1484" class="LineNr">1484 </span> <span class="subxComment"># setup</span> +<span id="L1485" class="LineNr">1485 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1487" class="LineNr">1487 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1489" class="LineNr">1489 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1490" class="LineNr">1490 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1491" class="LineNr">1491 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1492" class="LineNr">1492 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1493" class="LineNr">1493 </span> 68/push 0/imm32/end +<span id="L1494" class="LineNr">1494 </span> 68/push 0/imm32/start +<span id="L1495" class="LineNr">1495 </span> 89/<- %ecx 4/r32/esp +<span id="L1496" class="LineNr">1496 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"")</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">" \"</span>a\\\<span class="Constant">"b\"</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 %esp 8/imm32 +<span id="L1504" class="LineNr">1504 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1505" class="LineNr">1505 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1506" class="LineNr">1506 </span> 51/push-ecx +<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='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</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 %esp 8/imm32 +<span id="L1512" class="LineNr">1512 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L1513" class="LineNr">1513 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1515" class="LineNr">1515 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1480'>test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</a>: start"</span>/imm32 +<span id="L1516" class="LineNr">1516 </span> 68/push 0xd/imm32 +<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1518" class="LineNr">1518 </span> 8b/-> *ecx 0/r32/eax +<span id="L1519" class="LineNr">1519 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1520" class="LineNr">1520 </span> 50/push-eax +<span id="L1521" class="LineNr">1521 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1522" class="LineNr">1522 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-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 %esp 0xc/imm32 +<span id="L1525" class="LineNr">1525 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> +<span id="L1526" class="LineNr">1526 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 19, msg)</span> +<span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1528" class="LineNr">1528 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1480'>test-next-word-string-or-expression-without-metadata-returns-string-with-escapes</a>: end"</span>/imm32 +<span id="L1529" class="LineNr">1529 </span> 68/push 0x13/imm32 +<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1531" class="LineNr">1531 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1532" class="LineNr">1532 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1533" class="LineNr">1533 </span> 50/push-eax +<span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1535" class="LineNr">1535 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1536" class="LineNr">1536 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1537" class="LineNr">1537 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1538" class="LineNr">1538 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1539" class="LineNr">1539 </span> 89/<- %esp 5/r32/ebp +<span id="L1540" class="LineNr">1540 </span> 5d/pop-to-ebp +<span id="L1541" class="LineNr">1541 </span> c3/return +<span id="L1542" class="LineNr">1542 </span> +<span id="L1543" class="LineNr">1543 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-whole-expression</span>: +<span id="L1544" class="LineNr">1544 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1545" class="LineNr">1545 </span> 55/push-ebp +<span id="L1546" class="LineNr">1546 </span> 89/<- %ebp 4/r32/esp +<span id="L1547" class="LineNr">1547 </span> <span class="subxComment"># setup</span> +<span id="L1548" class="LineNr">1548 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1550" class="LineNr">1550 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-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='../106stream.subx.html#L17'>clear-stream</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 %esp 4/imm32 +<span id="L1555" class="LineNr">1555 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1556" class="LineNr">1556 </span> 68/push 0/imm32/end +<span id="L1557" class="LineNr">1557 </span> 68/push 0/imm32/start +<span id="L1558" class="LineNr">1558 </span> 89/<- %ecx 4/r32/esp +<span id="L1559" class="LineNr">1559 </span> <span class="subxComment"># write(_test-input-stream, " *(a b) ")</span> +<span id="L1560" class="LineNr">1560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1561" class="LineNr">1561 </span> 68/push <span class="Constant">" *(a b) "</span>/imm32 +<span id="L1562" class="LineNr">1562 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1563" class="LineNr">1563 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1564" class="LineNr">1564 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1565" class="LineNr">1565 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1566" class="LineNr">1566 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1567" class="LineNr">1567 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1569" class="LineNr">1569 </span> 51/push-ecx +<span id="L1570" class="LineNr">1570 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1572" class="LineNr">1572 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1574" class="LineNr">1574 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1575" class="LineNr">1575 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L1576" class="LineNr">1576 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L1577" class="LineNr">1577 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1578" class="LineNr">1578 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1543'>test-next-word-string-or-expression-without-metadata-returns-whole-expression</a>: start"</span>/imm32 +<span id="L1579" class="LineNr">1579 </span> 68/push 0xd/imm32 +<span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1581" class="LineNr">1581 </span> 8b/-> *ecx 0/r32/eax +<span id="L1582" class="LineNr">1582 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1583" class="LineNr">1583 </span> 50/push-eax +<span id="L1584" class="LineNr">1584 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1585" class="LineNr">1585 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-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 %esp 0xc/imm32 +<span id="L1588" class="LineNr">1588 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> +<span id="L1589" class="LineNr">1589 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 19, msg)</span> +<span id="L1590" class="LineNr">1590 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1591" class="LineNr">1591 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1543'>test-next-word-string-or-expression-without-metadata-returns-whole-expression</a>: end"</span>/imm32 +<span id="L1592" class="LineNr">1592 </span> 68/push 0x13/imm32 +<span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1594" class="LineNr">1594 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1595" class="LineNr">1595 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1596" class="LineNr">1596 </span> 50/push-eax +<span id="L1597" class="LineNr">1597 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1598" class="LineNr">1598 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1599" class="LineNr">1599 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1600" class="LineNr">1600 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1601" class="LineNr">1601 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1602" class="LineNr">1602 </span> 89/<- %esp 5/r32/ebp +<span id="L1603" class="LineNr">1603 </span> 5d/pop-to-ebp +<span id="L1604" class="LineNr">1604 </span> c3/return +<span id="L1605" class="LineNr">1605 </span> +<span id="L1606" class="LineNr">1606 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</span>: +<span id="L1607" class="LineNr">1607 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1608" class="LineNr">1608 </span> 55/push-ebp +<span id="L1609" class="LineNr">1609 </span> 89/<- %ebp 4/r32/esp +<span id="L1610" class="LineNr">1610 </span> <span class="subxComment"># setup</span> +<span id="L1611" class="LineNr">1611 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1612" class="LineNr">1612 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1613" class="LineNr">1613 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1615" class="LineNr">1615 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1617" class="LineNr">1617 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1618" class="LineNr">1618 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1619" class="LineNr">1619 </span> 68/push 0/imm32/end +<span id="L1620" class="LineNr">1620 </span> 68/push 0/imm32/start +<span id="L1621" class="LineNr">1621 </span> 89/<- %ecx 4/r32/esp +<span id="L1622" class="LineNr">1622 </span> <span class="subxComment"># write(_test-input-stream, " ) ")</span> +<span id="L1623" class="LineNr">1623 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1624" class="LineNr">1624 </span> 68/push <span class="Constant">" ) "</span>/imm32 +<span id="L1625" class="LineNr">1625 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1626" class="LineNr">1626 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1627" class="LineNr">1627 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1628" class="LineNr">1628 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1629" class="LineNr">1629 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1631" class="LineNr">1631 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1632" class="LineNr">1632 </span> 51/push-ecx +<span id="L1633" class="LineNr">1633 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1634" class="LineNr">1634 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1635" class="LineNr">1635 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1636" class="LineNr">1636 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1637" class="LineNr">1637 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, msg)</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1640" class="LineNr">1640 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1606'>test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</a>: start"</span>/imm32 +<span id="L1641" class="LineNr">1641 </span> 68/push 0/imm32 +<span id="L1642" class="LineNr">1642 </span> ff 6/subop/push *ecx +<span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1644" class="LineNr">1644 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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 %esp 0xc/imm32 +<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</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">"F - <a href='calls.subx.html#L1606'>test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren</a>: end"</span>/imm32 +<span id="L1650" class="LineNr">1650 </span> 68/push 0/imm32 +<span id="L1651" class="LineNr">1651 </span> ff 6/subop/push *(ecx+4) +<span id="L1652" class="LineNr">1652 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1653" class="LineNr">1653 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1654" class="LineNr">1654 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1655" class="LineNr">1655 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1656" class="LineNr">1656 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1657" class="LineNr">1657 </span> 89/<- %esp 5/r32/ebp +<span id="L1658" class="LineNr">1658 </span> 5d/pop-to-ebp +<span id="L1659" class="LineNr">1659 </span> c3/return +<span id="L1660" class="LineNr">1660 </span> +<span id="L1661" class="LineNr">1661 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</span>: +<span id="L1662" class="LineNr">1662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1663" class="LineNr">1663 </span> 55/push-ebp +<span id="L1664" class="LineNr">1664 </span> 89/<- %ebp 4/r32/esp +<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># setup</span> +<span id="L1666" class="LineNr">1666 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1668" class="LineNr">1668 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1670" class="LineNr">1670 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1672" class="LineNr">1672 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1673" class="LineNr">1673 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1674" class="LineNr">1674 </span> 68/push 0/imm32/end +<span id="L1675" class="LineNr">1675 </span> 68/push 0/imm32/start +<span id="L1676" class="LineNr">1676 </span> 89/<- %ecx 4/r32/esp +<span id="L1677" class="LineNr">1677 </span> <span class="subxComment"># write(_test-input-stream, " ) # abc ")</span> +<span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1679" class="LineNr">1679 </span> 68/push <span class="Constant">" ) # abc "</span>/imm32 +<span id="L1680" class="LineNr">1680 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1682" class="LineNr">1682 </span> e8/call <a href='../108write.subx.html#L24'>write</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 %esp 8/imm32 +<span id="L1685" class="LineNr">1685 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1687" class="LineNr">1687 </span> 51/push-ecx +<span id="L1688" class="LineNr">1688 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1689" class="LineNr">1689 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1690" class="LineNr">1690 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1691" class="LineNr">1691 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1692" class="LineNr">1692 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, msg)</span> +<span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1695" class="LineNr">1695 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1661'>test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</a>: start"</span>/imm32 +<span id="L1696" class="LineNr">1696 </span> 68/push 0/imm32 +<span id="L1697" class="LineNr">1697 </span> ff 6/subop/push *ecx +<span id="L1698" class="LineNr">1698 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1699" class="LineNr">1699 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1700" class="LineNr">1700 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1701" class="LineNr">1701 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</span> +<span id="L1703" class="LineNr">1703 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1704" class="LineNr">1704 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1661'>test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren</a>: end"</span>/imm32 +<span id="L1705" class="LineNr">1705 </span> 68/push 0/imm32 +<span id="L1706" class="LineNr">1706 </span> ff 6/subop/push *(ecx+4) +<span id="L1707" class="LineNr">1707 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1708" class="LineNr">1708 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1709" class="LineNr">1709 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1710" class="LineNr">1710 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1711" class="LineNr">1711 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1712" class="LineNr">1712 </span> 89/<- %esp 5/r32/ebp +<span id="L1713" class="LineNr">1713 </span> 5d/pop-to-ebp +<span id="L1714" class="LineNr">1714 </span> c3/return +<span id="L1715" class="LineNr">1715 </span> +<span id="L1716" class="LineNr">1716 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</span>: +<span id="L1717" class="LineNr">1717 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1718" class="LineNr">1718 </span> 55/push-ebp +<span id="L1719" class="LineNr">1719 </span> 89/<- %ebp 4/r32/esp +<span id="L1720" class="LineNr">1720 </span> <span class="subxComment"># setup</span> +<span id="L1721" class="LineNr">1721 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1723" class="LineNr">1723 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1725" class="LineNr">1725 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1726" class="LineNr">1726 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1727" class="LineNr">1727 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1728" class="LineNr">1728 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1729" class="LineNr">1729 </span> 68/push 0/imm32/end +<span id="L1730" class="LineNr">1730 </span> 68/push 0/imm32/start +<span id="L1731" class="LineNr">1731 </span> 89/<- %ecx 4/r32/esp +<span id="L1732" class="LineNr">1732 </span> <span class="subxComment"># write(_test-input-stream, " )\n")</span> +<span id="L1733" class="LineNr">1733 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1734" class="LineNr">1734 </span> 68/push <span class="Constant">" )\n"</span>/imm32 +<span id="L1735" class="LineNr">1735 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1737" class="LineNr">1737 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1739" class="LineNr">1739 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1740" class="LineNr">1740 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1741" class="LineNr">1741 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1742" class="LineNr">1742 </span> 51/push-ecx +<span id="L1743" class="LineNr">1743 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1745" class="LineNr">1745 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1747" class="LineNr">1747 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># check-ints-equal(slice->start, 0, 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='calls.subx.html#L1716'>test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</a>: start"</span>/imm32 +<span id="L1751" class="LineNr">1751 </span> 68/push 0/imm32 +<span id="L1752" class="LineNr">1752 </span> ff 6/subop/push *ecx +<span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1754" class="LineNr">1754 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-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 %esp 0xc/imm32 +<span id="L1757" class="LineNr">1757 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, 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='calls.subx.html#L1716'>test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren</a>: end"</span>/imm32 +<span id="L1760" class="LineNr">1760 </span> 68/push 0/imm32 +<span id="L1761" class="LineNr">1761 </span> ff 6/subop/push *(ecx+4) +<span id="L1762" class="LineNr">1762 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1763" class="LineNr">1763 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1764" class="LineNr">1764 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1765" class="LineNr">1765 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1766" class="LineNr">1766 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1767" class="LineNr">1767 </span> 89/<- %esp 5/r32/ebp +<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-next-word-string-or-expression-without-metadata-stops-at-close-paren</span>: +<span id="L1772" class="LineNr">1772 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1773" class="LineNr">1773 </span> 55/push-ebp +<span id="L1774" class="LineNr">1774 </span> 89/<- %ebp 4/r32/esp +<span id="L1775" class="LineNr">1775 </span> <span class="subxComment"># setup</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1778" class="LineNr">1778 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1780" class="LineNr">1780 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1781" class="LineNr">1781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1782" class="LineNr">1782 </span> 81 0/subop/add %esp 4/imm32 +<span id="L1783" class="LineNr">1783 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1784" class="LineNr">1784 </span> 68/push 0/imm32/end +<span id="L1785" class="LineNr">1785 </span> 68/push 0/imm32/start +<span id="L1786" class="LineNr">1786 </span> 89/<- %ecx 4/r32/esp +<span id="L1787" class="LineNr">1787 </span> <span class="subxComment"># write(_test-input-stream, " abc) # def")</span> +<span id="L1788" class="LineNr">1788 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1789" class="LineNr">1789 </span> 68/push <span class="Constant">" abc) # def"</span>/imm32 +<span id="L1790" class="LineNr">1790 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1791" class="LineNr">1791 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1792" class="LineNr">1792 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1793" class="LineNr">1793 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1794" class="LineNr">1794 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1795" class="LineNr">1795 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> +<span id="L1796" class="LineNr">1796 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1797" class="LineNr">1797 </span> 51/push-ecx +<span id="L1798" class="LineNr">1798 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1799" class="LineNr">1799 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1800" class="LineNr">1800 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 +<span id="L1801" class="LineNr">1801 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1802" class="LineNr">1802 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1803" class="LineNr">1803 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L1804" class="LineNr">1804 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L1805" class="LineNr">1805 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1806" class="LineNr">1806 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1771'>test-next-word-string-or-expression-without-metadata-stops-at-close-paren</a>: start"</span>/imm32 +<span id="L1807" class="LineNr">1807 </span> 68/push 0xd/imm32 +<span id="L1808" class="LineNr">1808 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1809" class="LineNr">1809 </span> 8b/-> *ecx 0/r32/eax +<span id="L1810" class="LineNr">1810 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1811" class="LineNr">1811 </span> 50/push-eax +<span id="L1812" class="LineNr">1812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1813" class="LineNr">1813 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1814" class="LineNr">1814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1815" class="LineNr">1815 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1816" class="LineNr">1816 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> +<span id="L1817" class="LineNr">1817 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, 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='calls.subx.html#L1771'>test-next-word-string-or-expression-without-metadata-stops-at-close-paren</a>: end"</span>/imm32 +<span id="L1820" class="LineNr">1820 </span> 68/push 0x10/imm32 +<span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1822" class="LineNr">1822 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L1823" class="LineNr">1823 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1824" class="LineNr">1824 </span> 50/push-eax +<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1826" class="LineNr">1826 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1827" class="LineNr">1827 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1828" class="LineNr">1828 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L1829" class="LineNr">1829 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1830" class="LineNr">1830 </span> 89/<- %esp 5/r32/ebp +<span id="L1831" class="LineNr">1831 </span> 5d/pop-to-ebp +<span id="L1832" class="LineNr">1832 </span> c3/return </pre> </body> </html> diff --git a/html/apps/crenshaw2-1.subx.html b/html/apps/crenshaw2-1.subx.html index d97fcd22..d9e6acfa 100644 --- a/html/apps/crenshaw2-1.subx.html +++ b/html/apps/crenshaw2-1.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -378,7 +378,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L320" class="LineNr">320 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -415,7 +415,7 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . push args</span> <span id="L356" class="LineNr">356 </span> 50/push-eax/ed -<span id="L357" class="LineNr">357 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L357" class="LineNr">357 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L358" class="LineNr">358 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L359" class="LineNr">359 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . call</span> @@ -467,7 +467,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L409" class="LineNr">409 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -497,7 +497,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L439" class="LineNr">439 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L440" class="LineNr">440 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L441" class="LineNr">441 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L442" class="LineNr">442 </span> <span class="subxS2Comment"># . . call</span> diff --git a/html/apps/crenshaw2-1b.subx.html b/html/apps/crenshaw2-1b.subx.html index d60fab0d..579cd89c 100644 --- a/html/apps/crenshaw2-1b.subx.html +++ b/html/apps/crenshaw2-1b.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -394,7 +394,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L336" class="LineNr">336 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -431,7 +431,7 @@ if ('onhashchange' in window) { <span id="L370" class="LineNr">370 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> <span id="L372" class="LineNr">372 </span> 50/push-eax/ed -<span id="L373" class="LineNr">373 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L373" class="LineNr">373 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L374" class="LineNr">374 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L375" class="LineNr">375 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> @@ -483,7 +483,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L425" class="LineNr">425 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -513,7 +513,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L455" class="LineNr">455 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L456" class="LineNr">456 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L457" class="LineNr">457 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L458" class="LineNr">458 </span> <span class="subxS2Comment"># . . call</span> @@ -566,7 +566,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L508" class="LineNr">508 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -603,7 +603,7 @@ if ('onhashchange' in window) { <span id="L542" class="LineNr">542 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . push args</span> <span id="L544" class="LineNr">544 </span> 50/push-eax/ed -<span id="L545" class="LineNr">545 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L545" class="LineNr">545 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L546" class="LineNr">546 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L547" class="LineNr">547 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . call</span> @@ -655,7 +655,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L597" class="LineNr">597 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -692,7 +692,7 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr">631 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> <span id="L633" class="LineNr">633 </span> 50/push-eax/ed -<span id="L634" class="LineNr">634 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L634" class="LineNr">634 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L635" class="LineNr">635 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 <span id="L636" class="LineNr">636 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L637" class="LineNr">637 </span> <span class="subxS2Comment"># . . call</span> diff --git a/html/apps/dquotes.subx.html b/html/apps/dquotes.subx.html index 338782a4..4e4b2a26 100644 --- a/html/apps/dquotes.subx.html +++ b/html/apps/dquotes.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .subxMinorFunction { color: #875f5f; } .SpecialChar { color: #d70000; } @@ -586,15 +586,15 @@ if ('onhashchange' in window) { <span id="L523" class="LineNr"> 523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># subx-dquotes(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L526" class="LineNr"> 526 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L527" class="LineNr"> 527 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L526" class="LineNr"> 526 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L527" class="LineNr"> 527 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> <span id="L529" class="LineNr"> 529 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L531" class="LineNr"> 531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L533" class="LineNr"> 533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L534" class="LineNr"> 534 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L534" class="LineNr"> 534 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> <span id="L536" class="LineNr"> 536 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> @@ -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 @@ -758,15 +758,15 @@ if ('onhashchange' in window) { <span id="L720" class="LineNr"> 720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L721" class="LineNr"> 721 </span> <span class="subxComment"># subx-dquotes(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L722" class="LineNr"> 722 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L723" class="LineNr"> 723 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L724" class="LineNr"> 724 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L723" class="LineNr"> 723 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L724" class="LineNr"> 724 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . call</span> <span id="L726" class="LineNr"> 726 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L728" class="LineNr"> 728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L729" class="LineNr"> 729 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L731" class="LineNr"> 731 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L731" class="LineNr"> 731 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . call</span> <span id="L733" class="LineNr"> 733 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . discard args</span> @@ -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 @@ -1396,14 +1396,14 @@ if ('onhashchange' in window) { <span id="L1515" class="LineNr">1515 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1517" class="LineNr">1517 </span> 51/push-ecx -<span id="L1518" class="LineNr">1518 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1518" class="LineNr">1518 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1519" class="LineNr">1519 </span> <span class="subxS2Comment"># . . call</span> <span id="L1520" class="LineNr">1520 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1521" class="LineNr">1521 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1522" class="LineNr">1522 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1523" class="LineNr">1523 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1525" class="LineNr">1525 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1525" class="LineNr">1525 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . call</span> <span id="L1527" class="LineNr">1527 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1453,14 +1453,14 @@ if ('onhashchange' in window) { <span id="L1572" class="LineNr">1572 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1574" class="LineNr">1574 </span> 51/push-ecx -<span id="L1575" class="LineNr">1575 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1575" class="LineNr">1575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . call</span> <span id="L1577" class="LineNr">1577 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1579" class="LineNr">1579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1580" class="LineNr">1580 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1581" class="LineNr">1581 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1582" class="LineNr">1582 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1582" class="LineNr">1582 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . call</span> <span id="L1584" class="LineNr">1584 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1585" class="LineNr">1585 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1510,14 +1510,14 @@ if ('onhashchange' in window) { <span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1630" class="LineNr">1630 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1631" class="LineNr">1631 </span> 51/push-ecx -<span id="L1632" class="LineNr">1632 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1632" class="LineNr">1632 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1633" class="LineNr">1633 </span> <span class="subxS2Comment"># . . call</span> <span id="L1634" class="LineNr">1634 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1636" class="LineNr">1636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1638" class="LineNr">1638 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1639" class="LineNr">1639 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1639" class="LineNr">1639 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1640" class="LineNr">1640 </span> <span class="subxS2Comment"># . . call</span> <span id="L1641" class="LineNr">1641 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1642" class="LineNr">1642 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1569,14 +1569,14 @@ if ('onhashchange' in window) { <span id="L1688" class="LineNr">1688 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1689" class="LineNr">1689 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1690" class="LineNr">1690 </span> 51/push-ecx -<span id="L1691" class="LineNr">1691 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1691" class="LineNr">1691 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1692" class="LineNr">1692 </span> <span class="subxS2Comment"># . . call</span> <span id="L1693" class="LineNr">1693 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1695" class="LineNr">1695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1697" class="LineNr">1697 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1698" class="LineNr">1698 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1698" class="LineNr">1698 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1699" class="LineNr">1699 </span> <span class="subxS2Comment"># . . call</span> <span id="L1700" class="LineNr">1700 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1701" class="LineNr">1701 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1621,19 +1621,19 @@ if ('onhashchange' in window) { <span id="L1740" class="LineNr">1740 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1741" class="LineNr">1741 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1742" class="LineNr">1742 </span> 51/push-ecx -<span id="L1743" class="LineNr">1743 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1743" class="LineNr">1743 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . call</span> <span id="L1745" class="LineNr">1745 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1747" class="LineNr">1747 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1750" class="LineNr">1750 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1750" class="LineNr">1750 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . call</span> <span id="L1752" class="LineNr">1752 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="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/apps/ex1.mu.html b/html/apps/ex1.mu.html index 159569ff..453480e2 100644 --- a/html/apps/ex1.mu.html +++ b/html/apps/ex1.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,18 +56,18 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/ex1.mu'>https://github.com/akkartik/mu/blob/master/apps/ex1.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># First example: return the answer to the Ultimate Question of Life, the</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># Universe, and Everything.</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./translate_mu apps/ex1.mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ ./a.elf</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># Expected result:</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># $ echo $?</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># 42</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># First example: return the answer to the Ultimate Question of Life, the</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># Universe, and Everything.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run:</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate_mu apps/ex1.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./a.elf</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Expected result:</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ echo $?</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># 42</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='ex1.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>result/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0x2a</span> <span class="Comment"># Mu requires hexadecimal</span> +<span id="L12" class="LineNr">12 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0x2a</span> <span class="muComment"># Mu requires hexadecimal</span> <span id="L13" class="LineNr">13 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/ex11.subx.html b/html/apps/ex11.subx.html index c06d6fe0..577920fc 100644 --- a/html/apps/ex11.subx.html +++ b/html/apps/ex11.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; } -.subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .Constant { color: #008787; } +.subxS2Comment { color: #8a8a8a; } .subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> diff --git a/html/apps/ex2.mu.html b/html/apps/ex2.mu.html index b88c8e1d..ef0838f8 100644 --- a/html/apps/ex2.mu.html +++ b/html/apps/ex2.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,14 +56,14 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/ex2.mu'>https://github.com/akkartik/mu/blob/master/apps/ex2.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Add 3 and 4, and return the result in the exit code.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/ex2.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># Expected result:</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ echo $?</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># 7</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Add 3 and 4, and return the result in the exit code.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/ex2.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Expected result:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ echo $?</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># 7</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L10'>main</a></span><span class="PreProc"> -> </span>result/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L11" class="LineNr">11 </span> result <span class="SpecialChar"><-</span> <a href='ex2.mu.html#L14'>do-add</a> <span class="Constant">3</span> <span class="Constant">4</span> diff --git a/html/apps/ex3.2.mu.html b/html/apps/ex3.2.mu.html index cc0c290d..4622da03 100644 --- a/html/apps/ex3.2.mu.html +++ b/html/apps/ex3.2.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,17 +56,17 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/ex3.2.mu'>https://github.com/akkartik/mu/blob/master/apps/ex3.2.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Unnecessarily use an array to sum 1..10</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/ex3.2.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ echo $?</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># 55</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Unnecessarily use an array to sum 1..10</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/ex3.2.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># 55</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex3.2.mu.html#L9'>main</a></span><span class="PreProc"> -> </span>result/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <span class="Comment"># populate a</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> a: (array int <span class="Constant">0xb</span>) <span class="Comment"># 11; we waste index 0</span> +<span id="L10" class="LineNr">10 </span> <span class="muComment"># populate a</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> a: (array int <span class="Constant">0xb</span>) <span class="muComment"># 11; we waste index 0</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> <span id="L14" class="LineNr">14 </span> compare i, <span class="Constant">0xb</span> @@ -76,7 +76,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> i <span class="SpecialChar"><-</span> increment <span id="L19" class="LineNr">19 </span> <span class="PreProc">loop</span> <span id="L20" class="LineNr">20 </span> <span class="Delimiter">}</span> -<span id="L21" class="LineNr">21 </span> <span class="Comment"># sum</span> +<span id="L21" class="LineNr">21 </span> <span class="muComment"># sum</span> <span id="L22" class="LineNr">22 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L23" class="LineNr">23 </span> i <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L24" class="LineNr">24 </span> <span class="Delimiter">{</span> diff --git a/html/apps/ex3.mu.html b/html/apps/ex3.mu.html index cb76985a..054c0ca3 100644 --- a/html/apps/ex3.mu.html +++ b/html/apps/ex3.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,14 +56,14 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/ex3.mu'>https://github.com/akkartik/mu/blob/master/apps/ex3.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Add the first 10 numbers, and return the result in the exit code.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/browse.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># Expected result:</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ echo $?</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># 55</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Add the first 10 numbers, and return the result in the exit code.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/browse.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Expected result:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ echo $?</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># 55</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex3.mu.html#L10'>main</a></span><span class="PreProc"> -> </span>result/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L11" class="LineNr">11 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> diff --git a/html/apps/factorial.mu.html b/html/apps/factorial.mu.html index 4880270d..289330dd 100644 --- a/html/apps/factorial.mu.html +++ b/html/apps/factorial.mu.html @@ -14,12 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muTest { color: #5f8700; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -57,18 +57,18 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/factorial.mu'>https://github.com/akkartik/mu/blob/master/apps/factorial.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># compute the factorial of 5, and return the result in the exit code</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/factorial.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ echo $?</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># 120</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># You can also run the automated test suite:</span> -<span id="L10" class="LineNr">10 </span><span class="Comment"># $ ./a.elf test</span> -<span id="L11" class="LineNr">11 </span><span class="Comment">#</span> -<span id="L12" class="LineNr">12 </span><span class="Comment"># Compare apps/factorial4.subx</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># compute the factorial of 5, and return the result in the exit code</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/factorial.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># 120</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You can also run the automated test suite:</span> +<span id="L10" class="LineNr">10 </span><span class="muComment"># $ ./a.elf test</span> +<span id="L11" class="LineNr">11 </span><span class="muComment">#</span> +<span id="L12" class="LineNr">12 </span><span class="muComment"># Compare apps/factorial4.subx</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='factorial.mu.html#L14'>factorial</a></span> n: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L15" class="LineNr">15 </span> compare n <span class="Constant">1</span> @@ -94,7 +94,7 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack <span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args <span id="L37" class="LineNr">37 </span> $main-body: <span class="Delimiter">{</span> -<span id="L38" class="LineNr">38 </span> <span class="Comment"># if (len(args) <= 1) factorial(5)</span> +<span id="L38" class="LineNr">38 </span> <span class="muComment"># if (len(args) <= 1) factorial(5)</span> <span id="L39" class="LineNr">39 </span> compare tmp, <span class="Constant">1</span> <span id="L40" class="LineNr">40 </span> <span class="Delimiter">{</span> <span id="L41" class="LineNr">41 </span> <span class="PreProc">break-if-></span> @@ -102,14 +102,14 @@ if ('onhashchange' in window) { <span id="L43" class="LineNr">43 </span> exit-status <span class="SpecialChar"><-</span> copy tmp <span id="L44" class="LineNr">44 </span> <span class="PreProc">break</span> $main-body <span id="L45" class="LineNr">45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr">46 </span> <span class="Comment"># if (args[1] == "test") run-tests()</span> +<span id="L46" class="LineNr">46 </span> <span class="muComment"># if (args[1] == "test") run-tests()</span> <span id="L47" class="LineNr">47 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> <span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp2, <span class="Constant">"test"</span> <span id="L49" class="LineNr">49 </span> compare tmp3, <span class="Constant">0</span> <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> run-tests -<span id="L53" class="LineNr">53 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="Comment"># TODO: get at Num-test-failures somehow</span> +<span id="L53" class="LineNr">53 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> <span id="L54" class="LineNr">54 </span> <span class="Delimiter">}</span> <span id="L55" class="LineNr">55 </span> <span class="Delimiter">}</span> <span id="L56" class="LineNr">56 </span><span class="Delimiter">}</span> diff --git a/html/apps/factorial.subx.html b/html/apps/factorial.subx.html index f76c776b..9890611e 100644 --- a/html/apps/factorial.subx.html +++ b/html/apps/factorial.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } diff --git a/html/apps/factorial2.subx.html b/html/apps/factorial2.subx.html index 109ce199..cf2478f8 100644 --- a/html/apps/factorial2.subx.html +++ b/html/apps/factorial2.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } diff --git a/html/apps/factorial3.subx.html b/html/apps/factorial3.subx.html index e8c1a117..2c522450 100644 --- a/html/apps/factorial3.subx.html +++ b/html/apps/factorial3.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; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } diff --git a/html/apps/factorial4.subx.html b/html/apps/factorial4.subx.html index df467f04..b40586bf 100644 --- a/html/apps/factorial4.subx.html +++ b/html/apps/factorial4.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; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } diff --git a/html/apps/hello.mu.html b/html/apps/hello.mu.html index 9cebd30d..04c0f103 100644 --- a/html/apps/hello.mu.html +++ b/html/apps/hello.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,11 +56,11 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/hello.mu'>https://github.com/akkartik/mu/blob/master/apps/hello.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Meaningless conventional example.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/hello.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Meaningless conventional example.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/hello.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hello.mu.html#L7'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"Hello world!\n"</span> diff --git a/html/apps/hex.subx.html b/html/apps/hex.subx.html index c13632c7..f230b3be 100644 --- a/html/apps/hex.subx.html +++ b/html/apps/hex.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -218,7 +218,7 @@ if ('onhashchange' in window) { <span id="L157" class="LineNr"> 157 </span> 3d/compare-eax-and 0xffffffff/imm32/Eof <span id="L158" class="LineNr"> 158 </span> 74/jump-if-= $convert-next-octet:end/disp8 <span id="L159" class="LineNr"> 159 </span> <span class="subxComment"># eax = from-hex-char(eax)</span> -<span id="L160" class="LineNr"> 160 </span> e8/call <a href='../118parse-hex.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L160" class="LineNr"> 160 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 <span id="L161" class="LineNr"> 161 </span> <span class="subxComment"># ecx = eax</span> <span id="L162" class="LineNr"> 162 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> <span id="L163" class="LineNr"> 163 </span> <span class="subxComment"># eax = scan-next-byte(in, err, ed)</span> @@ -243,7 +243,7 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr"> 182 </span> e8/call <a href='../119error-byte.subx.html#L26'>error-byte</a>/disp32 <span class="subxComment"># never returns</span> <span id="L183" class="LineNr"> 183 </span><span class="Constant">$convert-next-octet:convert</span>: <span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># eax = from-hex-char(eax)</span> -<span id="L185" class="LineNr"> 185 </span> e8/call <a href='../118parse-hex.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L185" class="LineNr"> 185 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 <span id="L186" class="LineNr"> 186 </span> <span class="subxComment"># eax = (ecx << 4) | eax</span> <span id="L187" class="LineNr"> 187 </span> <span class="subxS1Comment"># . ecx <<= 4</span> <span id="L188" class="LineNr"> 188 </span> c1/shift 4/subop/left 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift ecx left by 4 bits</span> @@ -279,7 +279,7 @@ if ('onhashchange' in window) { <span id="L218" class="LineNr"> 218 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L219" class="LineNr"> 219 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L220" class="LineNr"> 220 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L221" class="LineNr"> 221 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L221" class="LineNr"> 221 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L222" class="LineNr"> 222 </span> <span class="subxS2Comment"># . . call</span> <span id="L223" class="LineNr"> 223 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L224" class="LineNr"> 224 </span> <span class="subxS2Comment"># . . discard args</span> @@ -315,7 +315,7 @@ if ('onhashchange' in window) { <span id="L254" class="LineNr"> 254 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . push args</span> <span id="L256" class="LineNr"> 256 </span> 51/push-ecx/ed -<span id="L257" class="LineNr"> 257 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L257" class="LineNr"> 257 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L258" class="LineNr"> 258 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . call</span> <span id="L260" class="LineNr"> 260 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 @@ -377,7 +377,7 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr"> 316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L317" class="LineNr"> 317 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L319" class="LineNr"> 319 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L319" class="LineNr"> 319 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L320" class="LineNr"> 320 </span> <span class="subxS2Comment"># . . call</span> <span id="L321" class="LineNr"> 321 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . discard args</span> @@ -405,7 +405,7 @@ if ('onhashchange' in window) { <span id="L344" class="LineNr"> 344 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L345" class="LineNr"> 345 </span> <span class="subxS2Comment"># . . push args</span> <span id="L346" class="LineNr"> 346 </span> 51/push-ecx/ed -<span id="L347" class="LineNr"> 347 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L347" class="LineNr"> 347 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L348" class="LineNr"> 348 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L349" class="LineNr"> 349 </span> <span class="subxS2Comment"># . . call</span> <span id="L350" class="LineNr"> 350 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 @@ -467,7 +467,7 @@ if ('onhashchange' in window) { <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#L372'>_test-error-stream</a>/imm32 +<span id="L409" class="LineNr"> 409 </span> 68/push <a href='../115write-byte.subx.html#L436'>_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> @@ -503,7 +503,7 @@ if ('onhashchange' in window) { <span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . push args</span> <span id="L444" class="LineNr"> 444 </span> 51/push-ecx/ed -<span id="L445" class="LineNr"> 445 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L445" class="LineNr"> 445 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L446" class="LineNr"> 446 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L447" class="LineNr"> 447 </span> <span class="subxS2Comment"># . . call</span> <span id="L448" class="LineNr"> 448 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 @@ -567,7 +567,7 @@ if ('onhashchange' in window) { <span id="L506" class="LineNr"> 506 </span> <span class="subxS2Comment"># . . push args</span> <span id="L507" class="LineNr"> 507 </span> 50/push-eax <span id="L508" class="LineNr"> 508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L509" class="LineNr"> 509 </span> e8/call <a href='../118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L509" class="LineNr"> 509 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 <span id="L510" class="LineNr"> 510 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L511" class="LineNr"> 511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L512" class="LineNr"> 512 </span> <span class="subxS1Comment"># . compare with 'false'</span> @@ -636,7 +636,7 @@ if ('onhashchange' in window) { <span id="L575" class="LineNr"> 575 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L576" class="LineNr"> 576 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L578" class="LineNr"> 578 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L578" class="LineNr"> 578 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . call</span> <span id="L580" class="LineNr"> 580 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . discard args</span> @@ -672,7 +672,7 @@ if ('onhashchange' in window) { <span id="L611" class="LineNr"> 611 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L612" class="LineNr"> 612 </span> <span class="subxS2Comment"># . . push args</span> <span id="L613" class="LineNr"> 613 </span> 51/push-ecx/ed -<span id="L614" class="LineNr"> 614 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L614" class="LineNr"> 614 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L615" class="LineNr"> 615 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . call</span> <span id="L617" class="LineNr"> 617 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -734,7 +734,7 @@ if ('onhashchange' in window) { <span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L674" class="LineNr"> 674 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L676" class="LineNr"> 676 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L676" class="LineNr"> 676 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> <span id="L678" class="LineNr"> 678 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> @@ -770,7 +770,7 @@ if ('onhashchange' in window) { <span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . push args</span> <span id="L711" class="LineNr"> 711 </span> 51/push-ecx/ed -<span id="L712" class="LineNr"> 712 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L712" class="LineNr"> 712 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L713" class="LineNr"> 713 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . call</span> <span id="L715" class="LineNr"> 715 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -832,7 +832,7 @@ if ('onhashchange' in window) { <span id="L771" class="LineNr"> 771 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L772" class="LineNr"> 772 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L774" class="LineNr"> 774 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L774" class="LineNr"> 774 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . call</span> <span id="L776" class="LineNr"> 776 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L777" class="LineNr"> 777 </span> <span class="subxS2Comment"># . . discard args</span> @@ -876,7 +876,7 @@ if ('onhashchange' in window) { <span id="L815" class="LineNr"> 815 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . push args</span> <span id="L817" class="LineNr"> 817 </span> 51/push-ecx/ed -<span id="L818" class="LineNr"> 818 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L818" class="LineNr"> 818 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L819" class="LineNr"> 819 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L820" class="LineNr"> 820 </span> <span class="subxS2Comment"># . . call</span> <span id="L821" class="LineNr"> 821 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -938,7 +938,7 @@ if ('onhashchange' in window) { <span id="L877" class="LineNr"> 877 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L878" class="LineNr"> 878 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L880" class="LineNr"> 880 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . call</span> <span id="L882" class="LineNr"> 882 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . discard args</span> @@ -982,7 +982,7 @@ if ('onhashchange' in window) { <span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> <span id="L923" class="LineNr"> 923 </span> 51/push-ecx/ed -<span id="L924" class="LineNr"> 924 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L924" class="LineNr"> 924 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L925" class="LineNr"> 925 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> <span id="L927" class="LineNr"> 927 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -1046,7 +1046,7 @@ if ('onhashchange' in window) { <span id="L985" class="LineNr"> 985 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L987" class="LineNr"> 987 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L988" class="LineNr"> 988 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L988" class="LineNr"> 988 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . call</span> <span id="L990" class="LineNr"> 990 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1090,7 +1090,7 @@ if ('onhashchange' in window) { <span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1031" class="LineNr">1031 </span> 51/push-ecx/ed -<span id="L1032" class="LineNr">1032 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1032" class="LineNr">1032 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1033" class="LineNr">1033 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1034" class="LineNr">1034 </span> <span class="subxS2Comment"># . . call</span> <span id="L1035" class="LineNr">1035 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -1152,7 +1152,7 @@ if ('onhashchange' in window) { <span id="L1091" class="LineNr">1091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1092" class="LineNr">1092 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1094" class="LineNr">1094 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L1094" class="LineNr">1094 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . call</span> <span id="L1096" class="LineNr">1096 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1188,7 +1188,7 @@ if ('onhashchange' in window) { <span id="L1127" class="LineNr">1127 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1128" class="LineNr">1128 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1129" class="LineNr">1129 </span> 51/push-ecx/ed -<span id="L1130" class="LineNr">1130 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1130" class="LineNr">1130 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1131" class="LineNr">1131 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1132" class="LineNr">1132 </span> <span class="subxS2Comment"># . . call</span> <span id="L1133" class="LineNr">1133 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -1250,7 +1250,7 @@ if ('onhashchange' in window) { <span id="L1189" class="LineNr">1189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1190" class="LineNr">1190 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1191" class="LineNr">1191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1192" class="LineNr">1192 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L1192" class="LineNr">1192 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . call</span> <span id="L1194" class="LineNr">1194 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1278,7 +1278,7 @@ if ('onhashchange' in window) { <span id="L1217" class="LineNr">1217 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1219" class="LineNr">1219 </span> 51/push-ecx/ed -<span id="L1220" class="LineNr">1220 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1220" class="LineNr">1220 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1221" class="LineNr">1221 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> <span id="L1223" class="LineNr">1223 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 @@ -1340,7 +1340,7 @@ if ('onhashchange' in window) { <span id="L1279" class="LineNr">1279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1280" class="LineNr">1280 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1282" class="LineNr">1282 </span> 68/push <a href='../115write-byte.subx.html#L372'>_test-error-stream</a>/imm32 +<span id="L1282" class="LineNr">1282 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 <span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . call</span> <span id="L1284" class="LineNr">1284 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1285" class="LineNr">1285 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1376,7 +1376,7 @@ if ('onhashchange' in window) { <span id="L1315" class="LineNr">1315 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1317" class="LineNr">1317 </span> 51/push-ecx/ed -<span id="L1318" class="LineNr">1318 </span> 68/push <a href='../115write-byte.subx.html#L390'>_test-error-buffered-file</a>/imm32 +<span id="L1318" class="LineNr">1318 </span> 68/push <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>/imm32 <span id="L1319" class="LineNr">1319 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . call</span> <span id="L1321" class="LineNr">1321 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html index 098c8005..a29c97e6 100644 --- a/html/apps/mu.subx.html +++ b/html/apps/mu.subx.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; } .subxComment { color: #005faf; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } -.Constant { color: #008787; } +.subxMinorFunction { color: #875f5f; } .Folded { color: #080808; background-color: #949494; } +.Constant { color: #008787; } .subxH1Comment { color: #005faf; text-decoration: underline; } -.subxMinorFunction { color: #875f5f; } --> </style> @@ -569,7 +569,7 @@ if ('onhashchange' in window) { <span id="L507" class="LineNr"> 507 </span> <span class="subxS1Comment"># . save registers</span> <span id="L508" class="LineNr"> 508 </span> 50/push-eax <span id="L509" class="LineNr"> 509 </span> <span class="subxComment"># initialize global data structures</span> -<span id="L510" class="LineNr"> 510 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7846'>Next-block-index</a></span> 1/imm32 +<span id="L510" class="LineNr"> 510 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7944'>Next-block-index</a></span> 1/imm32 <span id="L511" class="LineNr"> 511 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax <span id="L512" class="LineNr"> 512 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> <span id="L513" class="LineNr"> 513 </span> c7 0/subop/copy *_Program-functions 0/imm32 @@ -579,11 +579,11 @@ if ('onhashchange' in window) { <span id="L517" class="LineNr"> 517 </span> c7 0/subop/copy *_Program-signatures 0/imm32 <span id="L518" class="LineNr"> 518 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 <span id="L519" class="LineNr"> 519 </span> <span class="subxComment">#</span> -<span id="L520" class="LineNr"> 520 </span> (<a href='mu.subx.html#L7854'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) -<span id="L521" class="LineNr"> 521 </span> (<a href='mu.subx.html#L12416'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L520" class="LineNr"> 520 </span> (<a href='mu.subx.html#L7952'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) +<span id="L521" class="LineNr"> 521 </span> (<a href='mu.subx.html#L12546'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) <span id="L522" class="LineNr"> 522 </span><span class="CommentedCode">#? (dump-typeinfos "=== typeinfos\n")</span> -<span id="L523" class="LineNr"> 523 </span> (<a href='mu.subx.html#L12945'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L524" class="LineNr"> 524 </span> (<a href='mu.subx.html#L15202'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L523" class="LineNr"> 523 </span> (<a href='mu.subx.html#L13075'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L524" class="LineNr"> 524 </span> (<a href='mu.subx.html#L15342'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) <span id="L525" class="LineNr"> 525 </span><span class="Constant">$convert-mu:end</span>: <span id="L526" class="LineNr"> 526 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L527" class="LineNr"> 527 </span> 58/pop-to-eax @@ -626,7 +626,7 @@ if ('onhashchange' in window) { <span id="L564" class="LineNr"> 564 </span> <span class="subxComment"># convert</span> <span id="L565" class="LineNr"> 565 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L566" class="LineNr"> 566 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L567" class="Folded"> 567 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L567" class="Folded"> 567 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L573" class="LineNr"> 573 </span> <span class="subxComment"># check output</span> <span id="L574" class="LineNr"> 574 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L552'>test-convert-function-skeleton</a>/0"</span>) <span id="L575" class="LineNr"> 575 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-skeleton/1"</span>) @@ -658,7 +658,7 @@ if ('onhashchange' in window) { <span id="L601" class="LineNr"> 601 </span> <span class="subxComment"># convert</span> <span id="L602" class="LineNr"> 602 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L603" class="LineNr"> 603 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L604" class="Folded"> 604 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L604" class="Folded"> 604 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L610" class="LineNr"> 610 </span> <span class="subxComment"># check first function</span> <span id="L611" class="LineNr"> 611 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L587'>test-convert-multiple-function-skeletons</a>/0"</span>) <span id="L612" class="LineNr"> 612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/1"</span>) @@ -697,7 +697,7 @@ if ('onhashchange' in window) { <span id="L645" class="LineNr"> 645 </span> <span class="subxComment"># convert</span> <span id="L646" class="LineNr"> 646 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L647" class="LineNr"> 647 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L648" class="Folded"> 648 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L648" class="Folded"> 648 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L654" class="LineNr"> 654 </span> <span class="subxComment"># check output</span> <span id="L655" class="LineNr"> 655 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L633'>test-convert-function-with-arg</a>/0"</span>) <span id="L656" class="LineNr"> 656 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg/1"</span>) @@ -728,7 +728,7 @@ if ('onhashchange' in window) { <span id="L681" class="LineNr"> 681 </span> <span class="subxComment"># convert</span> <span id="L682" class="LineNr"> 682 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L683" class="LineNr"> 683 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L684" class="Folded"> 684 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L684" class="Folded"> 684 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L690" class="LineNr"> 690 </span> <span class="subxComment"># check output</span> <span id="L691" class="LineNr"> 691 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L668'>test-convert-function-with-arg-and-body</a>/0"</span>) <span id="L692" class="LineNr"> 692 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/1"</span>) @@ -764,7 +764,7 @@ if ('onhashchange' in window) { <span id="L722" class="LineNr"> 722 </span> <span class="subxComment"># convert</span> <span id="L723" class="LineNr"> 723 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L724" class="LineNr"> 724 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L725" class="Folded"> 725 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L725" class="Folded"> 725 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L731" class="LineNr"> 731 </span> <span class="subxComment"># check output</span> <span id="L732" class="LineNr"> 732 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L709'>test-convert-function-distinguishes-args</a>/0"</span>) <span id="L733" class="LineNr"> 733 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/1"</span>) @@ -801,7 +801,7 @@ if ('onhashchange' in window) { <span id="L764" class="LineNr"> 764 </span> <span class="subxComment"># convert</span> <span id="L765" class="LineNr"> 765 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L766" class="LineNr"> 766 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L767" class="Folded"> 767 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L767" class="Folded"> 767 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L773" class="LineNr"> 773 </span> <span class="subxComment"># check output</span> <span id="L774" class="LineNr"> 774 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L750'>test-convert-function-returns-result</a>/0"</span>) <span id="L775" class="LineNr"> 775 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-returns-result/1"</span>) @@ -839,7 +839,7 @@ if ('onhashchange' in window) { <span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># convert</span> <span id="L808" class="LineNr"> 808 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L809" class="LineNr"> 809 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L810" class="Folded"> 810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L810" class="Folded"> 810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># check output</span> <span id="L817" class="LineNr"> 817 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L793'>test-convert-function-with-literal-arg</a>/0"</span>) <span id="L818" class="LineNr"> 818 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/1"</span>) @@ -877,7 +877,7 @@ if ('onhashchange' in window) { <span id="L850" class="LineNr"> 850 </span> <span class="subxComment"># convert</span> <span id="L851" class="LineNr"> 851 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L852" class="LineNr"> 852 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L853" class="Folded"> 853 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L853" class="Folded"> 853 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># check output</span> <span id="L860" class="LineNr"> 860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L836'>test-convert-function-with-literal-arg-2</a>/0"</span>) <span id="L861" class="LineNr"> 861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/1"</span>) @@ -918,7 +918,7 @@ if ('onhashchange' in window) { <span id="L896" class="LineNr"> 896 </span> <span class="subxComment"># convert</span> <span id="L897" class="LineNr"> 897 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L898" class="LineNr"> 898 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L899" class="Folded"> 899 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L899" class="Folded"> 899 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L905" class="LineNr"> 905 </span> <span class="subxComment"># check output</span> <span id="L906" class="LineNr"> 906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L879'>test-convert-function-call-with-literal-arg</a>/0"</span>) <span id="L907" class="LineNr"> 907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/1"</span>) @@ -969,7 +969,7 @@ if ('onhashchange' in window) { <span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># convert</span> <span id="L953" class="LineNr"> 953 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L954" class="LineNr"> 954 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L955" class="Folded"> 955 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L955" class="Folded"> 955 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># check output</span> <span id="L962" class="LineNr"> 962 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L938'>test-convert-function-call-with-signature</a>/0"</span>) <span id="L963" class="LineNr"> 963 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/1"</span>) @@ -1006,7 +1006,7 @@ if ('onhashchange' in window) { <span id="L994" class="LineNr"> 994 </span> <span class="subxComment"># convert</span> <span id="L995" class="LineNr"> 995 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L996" class="LineNr"> 996 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L997" class="Folded"> 997 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L997" class="Folded"> 997 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1003" class="LineNr"> 1003 </span> <span class="subxComment"># check output</span> <span id="L1004" class="LineNr"> 1004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L980'>test-convert-function-with-local-var-in-mem</a>/0"</span>) <span id="L1005" class="LineNr"> 1005 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) @@ -1055,7 +1055,7 @@ if ('onhashchange' in window) { <span id="L1048" class="LineNr"> 1048 </span> 89/<- %edx 4/r32/esp <span id="L1049" class="LineNr"> 1049 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1050" class="LineNr"> 1050 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1051" class="Folded"> 1051 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1051" class="Folded"> 1051 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1057" class="LineNr"> 1057 </span> <span class="subxComment"># check output</span> <span id="L1058" class="LineNr"> 1058 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1024'>test-convert-invalid-literal</a>: output should be empty"</span>) <span id="L1059" class="LineNr"> 1059 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: variable '1n' cannot begin with a digit (or do you have a typo in a number?)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1024'>test-convert-invalid-literal</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1095,7 +1095,7 @@ if ('onhashchange' in window) { <span id="L1093" class="LineNr"> 1093 </span> 89/<- %edx 4/r32/esp <span id="L1094" class="LineNr"> 1094 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1095" class="LineNr"> 1095 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1096" class="Folded"> 1096 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1096" class="Folded"> 1096 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1102" class="LineNr"> 1102 </span> <span class="subxComment"># check output</span> <span id="L1103" class="LineNr"> 1103 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: output should be empty"</span>) <span id="L1104" class="LineNr"> 1104 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: var x: variables on the stack can't take an initializer"</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: error message"</span>) @@ -1124,7 +1124,7 @@ if ('onhashchange' in window) { <span id="L1127" class="LineNr"> 1127 </span> <span class="subxComment"># convert</span> <span id="L1128" class="LineNr"> 1128 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L1129" class="LineNr"> 1129 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1130" class="Folded"> 1130 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1130" class="Folded"> 1130 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1136" class="LineNr"> 1136 </span> <span class="subxComment"># check output</span> <span id="L1137" class="LineNr"> 1137 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1113'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</span>) <span id="L1138" class="LineNr"> 1138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) @@ -1163,7 +1163,7 @@ if ('onhashchange' in window) { <span id="L1171" class="LineNr"> 1171 </span> <span class="subxComment"># convert</span> <span id="L1172" class="LineNr"> 1172 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L1173" class="LineNr"> 1173 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1174" class="Folded"> 1174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1174" class="Folded"> 1174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1180" class="LineNr"> 1180 </span> <span class="subxComment"># check output</span> <span id="L1181" class="LineNr"> 1181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1157'>test-convert-function-with-local-var-in-reg</a>/0"</span>) <span id="L1182" class="LineNr"> 1182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/1"</span>) @@ -1203,7 +1203,7 @@ if ('onhashchange' in window) { <span id="L1216" class="LineNr"> 1216 </span> <span class="subxComment"># convert</span> <span id="L1217" class="LineNr"> 1217 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L1218" class="LineNr"> 1218 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1219" class="Folded"> 1219 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1219" class="Folded"> 1219 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1225" class="LineNr"> 1225 </span> <span class="subxComment"># check output</span> <span id="L1226" class="LineNr"> 1226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1202'>test-convert-function-with-allocate</a>/0"</span>) <span id="L1227" class="LineNr"> 1227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) @@ -1253,7 +1253,7 @@ if ('onhashchange' in window) { <span id="L1271" class="LineNr"> 1271 </span> 89/<- %edx 4/r32/esp <span id="L1272" class="LineNr"> 1272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1273" class="LineNr"> 1273 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1274" class="Folded"> 1274 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1274" class="Folded"> 1274 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1280" class="LineNr"> 1280 </span> <span class="subxComment"># check output</span> <span id="L1281" class="LineNr"> 1281 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1247'>test-initializer-in-hex</a>: output should be empty"</span>) <span id="L1282" class="LineNr"> 1282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; either start '10' with a '0x' to be unambiguous, or convert it to decimal."</span> <span class="Constant">"F - <a href='mu.subx.html#L1247'>test-initializer-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1283,7 +1283,7 @@ if ('onhashchange' in window) { <span id="L1306" class="LineNr"> 1306 </span> <span class="subxComment"># convert</span> <span id="L1307" class="LineNr"> 1307 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L1308" class="LineNr"> 1308 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1309" class="Folded"> 1309 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1309" class="Folded"> 1309 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1315" class="LineNr"> 1315 </span> <span class="subxComment"># check output</span> <span id="L1316" class="LineNr"> 1316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1291'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) <span id="L1317" class="LineNr"> 1317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/1"</span>) @@ -1336,7 +1336,7 @@ if ('onhashchange' in window) { <span id="L1364" class="LineNr"> 1364 </span> 89/<- %edx 4/r32/esp <span id="L1365" class="LineNr"> 1365 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1366" class="LineNr"> 1366 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1367" class="Folded"> 1367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1367" class="Folded"> 1367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1373" class="LineNr"> 1373 </span> <span class="subxComment"># check output</span> <span id="L1374" class="LineNr"> 1374 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1338'>test-read-clobbered-reg-var</a>: output should be empty"</span>) <span id="L1375" class="LineNr"> 1375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: register ecx reads var 'x' after writing var 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1338'>test-read-clobbered-reg-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1348,7 +1348,7 @@ if ('onhashchange' in window) { <span id="L1381" class="LineNr"> 1381 </span> 5d/pop-to-ebp <span id="L1382" class="LineNr"> 1382 </span> c3/return <span id="L1383" class="LineNr"> 1383 </span> -<span id="L1384" class="LineNr"> 1384 </span><span class="subxTest">test-convert-function-call</span>: +<span id="L1384" class="LineNr"> 1384 </span><span class="subxTest">test-overlapping-int-fp-registers</span>: <span id="L1385" class="LineNr"> 1385 </span> <span class="subxS1Comment"># . prologue</span> <span id="L1386" class="LineNr"> 1386 </span> 55/push-ebp <span id="L1387" class="LineNr"> 1387 </span> 89/<- %ebp 4/r32/esp @@ -1357,362 +1357,362 @@ if ('onhashchange' in window) { <span id="L1390" class="LineNr"> 1390 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L1391" class="LineNr"> 1391 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) <span id="L1392" class="LineNr"> 1392 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1393" class="LineNr"> 1393 </span> <span class="subxComment">#</span> -<span id="L1394" class="LineNr"> 1394 </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 -> result/ebx: int {\n"</span>) -<span id="L1395" class="LineNr"> 1395 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- foo\n"</span>) -<span id="L1396" class="LineNr"> 1396 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1397" class="LineNr"> 1397 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> result/ebx: int {\n"</span>) -<span id="L1398" class="LineNr"> 1398 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- copy 3\n"</span>) -<span id="L1399" class="LineNr"> 1399 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1400" class="LineNr"> 1400 </span> <span class="subxComment"># convert</span> -<span id="L1401" class="LineNr"> 1401 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1402" class="LineNr"> 1402 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1403" class="Folded"> 1403 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1409" class="LineNr"> 1409 </span> <span class="subxComment"># check output</span> -<span id="L1410" class="LineNr"> 1410 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/0"</span>) -<span id="L1411" class="LineNr"> 1411 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) -<span id="L1412" class="LineNr"> 1412 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/2"</span>) -<span id="L1413" class="LineNr"> 1413 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/3"</span>) -<span id="L1414" class="LineNr"> 1414 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/4"</span>) -<span id="L1415" class="LineNr"> 1415 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/5"</span>) -<span id="L1416" class="LineNr"> 1416 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/6"</span>) -<span id="L1417" class="LineNr"> 1417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/7"</span>) -<span id="L1418" class="LineNr"> 1418 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/8"</span>) -<span id="L1419" class="LineNr"> 1419 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) -<span id="L1420" class="LineNr"> 1420 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/10"</span>) -<span id="L1421" class="LineNr"> 1421 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/11"</span>) -<span id="L1422" class="LineNr"> 1422 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/12"</span>) -<span id="L1423" class="LineNr"> 1423 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/13"</span>) -<span id="L1424" class="LineNr"> 1424 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) -<span id="L1425" class="LineNr"> 1425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/15"</span>) -<span id="L1426" class="LineNr"> 1426 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/16"</span>) -<span id="L1427" class="LineNr"> 1427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/17"</span>) -<span id="L1428" class="LineNr"> 1428 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/18"</span>) -<span id="L1429" class="LineNr"> 1429 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/19"</span>) -<span id="L1430" class="LineNr"> 1430 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/20"</span>) -<span id="L1431" class="LineNr"> 1431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/21"</span>) -<span id="L1432" class="LineNr"> 1432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) -<span id="L1433" class="LineNr"> 1433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/23"</span>) -<span id="L1434" class="LineNr"> 1434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/24"</span>) -<span id="L1435" class="LineNr"> 1435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-convert-function-call</a>/25"</span>) -<span id="L1436" class="LineNr"> 1436 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1437" class="LineNr"> 1437 </span> 89/<- %esp 5/r32/ebp -<span id="L1438" class="LineNr"> 1438 </span> 5d/pop-to-ebp -<span id="L1439" class="LineNr"> 1439 </span> c3/return -<span id="L1440" class="LineNr"> 1440 </span> -<span id="L1441" class="LineNr"> 1441 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: -<span id="L1442" class="LineNr"> 1442 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1443" class="LineNr"> 1443 </span> 55/push-ebp -<span id="L1444" class="LineNr"> 1444 </span> 89/<- %ebp 4/r32/esp -<span id="L1445" class="LineNr"> 1445 </span> <span class="subxComment"># setup</span> -<span id="L1446" class="LineNr"> 1446 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1447" class="LineNr"> 1447 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1448" class="LineNr"> 1448 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1449" class="LineNr"> 1449 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1450" class="LineNr"> 1450 </span> <span class="subxComment">#</span> -<span id="L1451" class="LineNr"> 1451 </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="L1452" class="LineNr"> 1452 </span> (<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="L1453" class="LineNr"> 1453 </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="L1454" class="LineNr"> 1454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1455" class="LineNr"> 1455 </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="L1456" class="LineNr"> 1456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1457" class="LineNr"> 1457 </span> <span class="subxComment"># convert</span> -<span id="L1458" class="LineNr"> 1458 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1459" class="LineNr"> 1459 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1460" class="Folded"> 1460 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1466" class="LineNr"> 1466 </span> <span class="subxComment"># check output</span> -<span id="L1467" class="LineNr"> 1467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) -<span id="L1468" class="LineNr"> 1468 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) -<span id="L1469" class="LineNr"> 1469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) -<span id="L1470" class="LineNr"> 1470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) -<span id="L1471" class="LineNr"> 1471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) -<span id="L1472" class="LineNr"> 1472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) -<span id="L1473" class="LineNr"> 1473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) -<span id="L1474" class="LineNr"> 1474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) -<span id="L1475" class="LineNr"> 1475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) -<span id="L1476" class="LineNr"> 1476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) -<span id="L1477" class="LineNr"> 1477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) -<span id="L1478" class="LineNr"> 1478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) -<span id="L1479" class="LineNr"> 1479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) -<span id="L1480" class="LineNr"> 1480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) -<span id="L1481" class="LineNr"> 1481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) -<span id="L1482" class="LineNr"> 1482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) -<span id="L1483" class="LineNr"> 1483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) -<span id="L1484" class="LineNr"> 1484 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) -<span id="L1485" class="LineNr"> 1485 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) -<span id="L1486" class="LineNr"> 1486 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) -<span id="L1487" class="LineNr"> 1487 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) -<span id="L1488" class="LineNr"> 1488 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1441'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) -<span id="L1490" class="LineNr"> 1490 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1491" class="LineNr"> 1491 </span> 89/<- %esp 5/r32/ebp -<span id="L1492" class="LineNr"> 1492 </span> 5d/pop-to-ebp -<span id="L1493" class="LineNr"> 1493 </span> c3/return -<span id="L1494" class="LineNr"> 1494 </span> -<span id="L1495" class="LineNr"> 1495 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: -<span id="L1496" class="LineNr"> 1496 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1497" class="LineNr"> 1497 </span> 55/push-ebp -<span id="L1498" class="LineNr"> 1498 </span> 89/<- %ebp 4/r32/esp -<span id="L1499" class="LineNr"> 1499 </span> <span class="subxComment"># setup</span> -<span id="L1500" class="LineNr"> 1500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1501" class="LineNr"> 1501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1502" class="LineNr"> 1502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1503" class="LineNr"> 1503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1504" class="LineNr"> 1504 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1505" class="LineNr"> 1505 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1506" class="LineNr"> 1506 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1507" class="LineNr"> 1507 </span> 68/push 0/imm32 -<span id="L1508" class="LineNr"> 1508 </span> 68/push 0/imm32 -<span id="L1509" class="LineNr"> 1509 </span> 89/<- %edx 4/r32/esp -<span id="L1510" class="LineNr"> 1510 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1511" class="LineNr"> 1511 </span> <span class="subxComment">#</span> -<span id="L1512" class="LineNr"> 1512 </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="L1513" class="LineNr"> 1513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L1514" class="LineNr"> 1514 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L1515" class="LineNr"> 1515 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1516" class="LineNr"> 1516 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) -<span id="L1517" class="LineNr"> 1517 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1518" class="LineNr"> 1518 </span> <span class="subxComment"># convert</span> -<span id="L1519" class="LineNr"> 1519 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1520" class="LineNr"> 1520 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1521" class="LineNr"> 1521 </span> <span class="subxComment"># restore ed</span> -<span id="L1522" class="LineNr"> 1522 </span> 89/<- %edx 4/r32/esp -<span id="L1523" class="LineNr"> 1523 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1524" class="LineNr"> 1524 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1525" class="Folded"> 1525 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1531" class="LineNr"> 1531 </span> <span class="subxComment"># no error; types matched</span> -<span id="L1532" class="LineNr"> 1532 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1495'>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="L1533" class="LineNr"> 1533 </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="L1534" class="LineNr"> 1534 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1535" class="LineNr"> 1535 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1536" class="LineNr"> 1536 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1537" class="LineNr"> 1537 </span> 5d/pop-to-ebp -<span id="L1538" class="LineNr"> 1538 </span> c3/return -<span id="L1539" class="LineNr"> 1539 </span> -<span id="L1540" class="LineNr"> 1540 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: -<span id="L1541" class="LineNr"> 1541 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1542" class="LineNr"> 1542 </span> 55/push-ebp -<span id="L1543" class="LineNr"> 1543 </span> 89/<- %ebp 4/r32/esp -<span id="L1544" class="LineNr"> 1544 </span> <span class="subxComment"># setup</span> -<span id="L1545" class="LineNr"> 1545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1546" class="LineNr"> 1546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1547" class="LineNr"> 1547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1548" class="LineNr"> 1548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1549" class="LineNr"> 1549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1550" class="LineNr"> 1550 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1551" class="LineNr"> 1551 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1393" class="LineNr"> 1393 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1394" class="LineNr"> 1394 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1395" class="LineNr"> 1395 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L1396" class="LineNr"> 1396 </span> 68/push 0/imm32 +<span id="L1397" class="LineNr"> 1397 </span> 68/push 0/imm32 +<span id="L1398" class="LineNr"> 1398 </span> 89/<- %edx 4/r32/esp +<span id="L1399" class="LineNr"> 1399 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1400" class="LineNr"> 1400 </span> <span class="subxComment">#</span> +<span id="L1401" class="LineNr"> 1401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L1402" class="LineNr"> 1402 </span> (<a 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="L1403" class="LineNr"> 1403 </span> (<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="L1404" class="LineNr"> 1404 </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="L1405" class="LineNr"> 1405 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1406" class="LineNr"> 1406 </span> <span class="subxComment"># convert</span> +<span id="L1407" class="LineNr"> 1407 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1408" class="LineNr"> 1408 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1409" class="LineNr"> 1409 </span> <span class="subxComment"># restore ed</span> +<span id="L1410" class="LineNr"> 1410 </span> 89/<- %edx 4/r32/esp +<span id="L1411" class="LineNr"> 1411 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1412" class="LineNr"> 1412 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1413" class="Folded"> 1413 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1419" class="LineNr"> 1419 </span> <span class="subxComment"># no errors</span> +<span id="L1420" class="LineNr"> 1420 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1384'>test-overlapping-int-fp-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1421" class="LineNr"> 1421 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L1422" class="LineNr"> 1422 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1423" class="LineNr"> 1423 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1424" class="LineNr"> 1424 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1425" class="LineNr"> 1425 </span> 5d/pop-to-ebp +<span id="L1426" class="LineNr"> 1426 </span> c3/return +<span id="L1427" class="LineNr"> 1427 </span> +<span id="L1428" class="LineNr"> 1428 </span><span class="subxTest">test-convert-function-call</span>: +<span id="L1429" class="LineNr"> 1429 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1430" class="LineNr"> 1430 </span> 55/push-ebp +<span id="L1431" class="LineNr"> 1431 </span> 89/<- %ebp 4/r32/esp +<span id="L1432" class="LineNr"> 1432 </span> <span class="subxComment"># setup</span> +<span id="L1433" class="LineNr"> 1433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1434" class="LineNr"> 1434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1435" class="LineNr"> 1435 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1436" class="LineNr"> 1436 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1437" class="LineNr"> 1437 </span> <span class="subxComment">#</span> +<span id="L1438" class="LineNr"> 1438 </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 -> result/ebx: int {\n"</span>) +<span id="L1439" class="LineNr"> 1439 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- foo\n"</span>) +<span id="L1440" class="LineNr"> 1440 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1441" class="LineNr"> 1441 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> result/ebx: int {\n"</span>) +<span id="L1442" class="LineNr"> 1442 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- copy 3\n"</span>) +<span id="L1443" class="LineNr"> 1443 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1444" class="LineNr"> 1444 </span> <span class="subxComment"># convert</span> +<span id="L1445" class="LineNr"> 1445 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1446" class="LineNr"> 1446 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1447" class="Folded"> 1447 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1453" class="LineNr"> 1453 </span> <span class="subxComment"># check output</span> +<span id="L1454" class="LineNr"> 1454 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/0"</span>) +<span id="L1455" class="LineNr"> 1455 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) +<span id="L1456" class="LineNr"> 1456 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/2"</span>) +<span id="L1457" class="LineNr"> 1457 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/3"</span>) +<span id="L1458" class="LineNr"> 1458 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/4"</span>) +<span id="L1459" class="LineNr"> 1459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/5"</span>) +<span id="L1460" class="LineNr"> 1460 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/6"</span>) +<span id="L1461" class="LineNr"> 1461 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/7"</span>) +<span id="L1462" class="LineNr"> 1462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/8"</span>) +<span id="L1463" class="LineNr"> 1463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) +<span id="L1464" class="LineNr"> 1464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/10"</span>) +<span id="L1465" class="LineNr"> 1465 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/11"</span>) +<span id="L1466" class="LineNr"> 1466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/12"</span>) +<span id="L1467" class="LineNr"> 1467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/13"</span>) +<span id="L1468" class="LineNr"> 1468 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) +<span id="L1469" class="LineNr"> 1469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/15"</span>) +<span id="L1470" class="LineNr"> 1470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/16"</span>) +<span id="L1471" class="LineNr"> 1471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/17"</span>) +<span id="L1472" class="LineNr"> 1472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/18"</span>) +<span id="L1473" class="LineNr"> 1473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/19"</span>) +<span id="L1474" class="LineNr"> 1474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/20"</span>) +<span id="L1475" class="LineNr"> 1475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/21"</span>) +<span id="L1476" class="LineNr"> 1476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) +<span id="L1477" class="LineNr"> 1477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/23"</span>) +<span id="L1478" class="LineNr"> 1478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/24"</span>) +<span id="L1479" class="LineNr"> 1479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1428'>test-convert-function-call</a>/25"</span>) +<span id="L1480" class="LineNr"> 1480 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1481" class="LineNr"> 1481 </span> 89/<- %esp 5/r32/ebp +<span id="L1482" class="LineNr"> 1482 </span> 5d/pop-to-ebp +<span id="L1483" class="LineNr"> 1483 </span> c3/return +<span id="L1484" class="LineNr"> 1484 </span> +<span id="L1485" class="LineNr"> 1485 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: +<span id="L1486" class="LineNr"> 1486 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1487" class="LineNr"> 1487 </span> 55/push-ebp +<span id="L1488" class="LineNr"> 1488 </span> 89/<- %ebp 4/r32/esp +<span id="L1489" class="LineNr"> 1489 </span> <span class="subxComment"># setup</span> +<span id="L1490" class="LineNr"> 1490 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1491" class="LineNr"> 1491 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1492" class="LineNr"> 1492 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1493" class="LineNr"> 1493 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1494" class="LineNr"> 1494 </span> <span class="subxComment">#</span> +<span id="L1495" class="LineNr"> 1495 </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="L1496" class="LineNr"> 1496 </span> (<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="L1497" class="LineNr"> 1497 </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="L1498" class="LineNr"> 1498 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1499" class="LineNr"> 1499 </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="L1500" class="LineNr"> 1500 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1501" class="LineNr"> 1501 </span> <span class="subxComment"># convert</span> +<span id="L1502" class="LineNr"> 1502 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1503" class="LineNr"> 1503 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1504" class="Folded"> 1504 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1510" class="LineNr"> 1510 </span> <span class="subxComment"># check output</span> +<span id="L1511" class="LineNr"> 1511 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) +<span id="L1512" class="LineNr"> 1512 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) +<span id="L1513" class="LineNr"> 1513 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) +<span id="L1514" class="LineNr"> 1514 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) +<span id="L1515" class="LineNr"> 1515 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) +<span id="L1516" class="LineNr"> 1516 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) +<span id="L1517" class="LineNr"> 1517 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) +<span id="L1518" class="LineNr"> 1518 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) +<span id="L1519" class="LineNr"> 1519 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) +<span id="L1520" class="LineNr"> 1520 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) +<span id="L1521" class="LineNr"> 1521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) +<span id="L1522" class="LineNr"> 1522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) +<span id="L1523" class="LineNr"> 1523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) +<span id="L1524" class="LineNr"> 1524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) +<span id="L1525" class="LineNr"> 1525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) +<span id="L1526" class="LineNr"> 1526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) +<span id="L1527" class="LineNr"> 1527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) +<span id="L1528" class="LineNr"> 1528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) +<span id="L1529" class="LineNr"> 1529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) +<span id="L1530" class="LineNr"> 1530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) +<span id="L1531" class="LineNr"> 1531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) +<span id="L1532" class="LineNr"> 1532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/21"</span>) +<span id="L1533" class="LineNr"> 1533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1485'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) +<span id="L1534" class="LineNr"> 1534 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1535" class="LineNr"> 1535 </span> 89/<- %esp 5/r32/ebp +<span id="L1536" class="LineNr"> 1536 </span> 5d/pop-to-ebp +<span id="L1537" class="LineNr"> 1537 </span> c3/return +<span id="L1538" class="LineNr"> 1538 </span> +<span id="L1539" class="LineNr"> 1539 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: +<span id="L1540" class="LineNr"> 1540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1541" class="LineNr"> 1541 </span> 55/push-ebp +<span id="L1542" class="LineNr"> 1542 </span> 89/<- %ebp 4/r32/esp +<span id="L1543" class="LineNr"> 1543 </span> <span class="subxComment"># setup</span> +<span id="L1544" class="LineNr"> 1544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1545" class="LineNr"> 1545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1546" class="LineNr"> 1546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1547" class="LineNr"> 1547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1548" class="LineNr"> 1548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1549" class="LineNr"> 1549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1550" class="LineNr"> 1550 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1551" class="LineNr"> 1551 </span> 68/push 0/imm32 <span id="L1552" class="LineNr"> 1552 </span> 68/push 0/imm32 -<span id="L1553" class="LineNr"> 1553 </span> 68/push 0/imm32 -<span id="L1554" class="LineNr"> 1554 </span> 89/<- %edx 4/r32/esp -<span id="L1555" class="LineNr"> 1555 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1556" class="LineNr"> 1556 </span> <span class="subxComment">#</span> -<span id="L1557" class="LineNr"> 1557 </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="L1558" class="LineNr"> 1558 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L1559" class="LineNr"> 1559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L1560" class="LineNr"> 1560 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1561" class="LineNr"> 1561 </span> (<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="L1562" class="LineNr"> 1562 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1563" class="LineNr"> 1563 </span> <span class="subxComment"># convert</span> -<span id="L1564" class="LineNr"> 1564 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1565" class="LineNr"> 1565 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1566" class="LineNr"> 1566 </span> <span class="subxComment"># restore ed</span> -<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#L423'>_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#L454'>_test-error-buffered-file</a>) -<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1540'>test-convert-function-call-with-incorrect-inout-type</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#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1540'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1579" class="LineNr"> 1579 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1580" class="LineNr"> 1580 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1540'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) -<span id="L1581" class="LineNr"> 1581 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1582" class="LineNr"> 1582 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1583" class="LineNr"> 1583 </span> 5d/pop-to-ebp -<span id="L1584" class="LineNr"> 1584 </span> c3/return -<span id="L1585" class="LineNr"> 1585 </span> -<span id="L1586" class="LineNr"> 1586 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: -<span id="L1587" class="LineNr"> 1587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1588" class="LineNr"> 1588 </span> 55/push-ebp -<span id="L1589" class="LineNr"> 1589 </span> 89/<- %ebp 4/r32/esp -<span id="L1590" class="LineNr"> 1590 </span> <span class="subxComment"># setup</span> -<span id="L1591" class="LineNr"> 1591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1592" class="LineNr"> 1592 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1593" class="LineNr"> 1593 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1594" class="LineNr"> 1594 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1595" class="LineNr"> 1595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1596" class="LineNr"> 1596 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1597" class="LineNr"> 1597 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1598" class="LineNr"> 1598 </span> 68/push 0/imm32 -<span id="L1599" class="LineNr"> 1599 </span> 68/push 0/imm32 -<span id="L1600" class="LineNr"> 1600 </span> 89/<- %edx 4/r32/esp -<span id="L1601" class="LineNr"> 1601 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1602" class="LineNr"> 1602 </span> <span class="subxComment">#</span> -<span id="L1603" class="LineNr"> 1603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L1604" class="LineNr"> 1604 </span> (<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="L1605" class="LineNr"> 1605 </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="L1553" class="LineNr"> 1553 </span> 89/<- %edx 4/r32/esp +<span id="L1554" class="LineNr"> 1554 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1555" class="LineNr"> 1555 </span> <span class="subxComment">#</span> +<span id="L1556" class="LineNr"> 1556 </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="L1557" class="LineNr"> 1557 </span> (<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="L1558" class="LineNr"> 1558 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L1559" class="LineNr"> 1559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1560" class="LineNr"> 1560 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) +<span id="L1561" class="LineNr"> 1561 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1562" class="LineNr"> 1562 </span> <span class="subxComment"># convert</span> +<span id="L1563" class="LineNr"> 1563 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1564" class="LineNr"> 1564 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1565" class="LineNr"> 1565 </span> <span class="subxComment"># restore ed</span> +<span id="L1566" class="LineNr"> 1566 </span> 89/<- %edx 4/r32/esp +<span id="L1567" class="LineNr"> 1567 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1568" class="LineNr"> 1568 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1569" class="Folded"> 1569 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1575" class="LineNr"> 1575 </span> <span class="subxComment"># no error; types matched</span> +<span id="L1576" class="LineNr"> 1576 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1539'>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="L1577" class="LineNr"> 1577 </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="L1578" class="LineNr"> 1578 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1579" class="LineNr"> 1579 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1580" class="LineNr"> 1580 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1581" class="LineNr"> 1581 </span> 5d/pop-to-ebp +<span id="L1582" class="LineNr"> 1582 </span> c3/return +<span id="L1583" class="LineNr"> 1583 </span> +<span id="L1584" class="LineNr"> 1584 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: +<span id="L1585" class="LineNr"> 1585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1586" class="LineNr"> 1586 </span> 55/push-ebp +<span id="L1587" class="LineNr"> 1587 </span> 89/<- %ebp 4/r32/esp +<span id="L1588" class="LineNr"> 1588 </span> <span class="subxComment"># setup</span> +<span id="L1589" class="LineNr"> 1589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1590" class="LineNr"> 1590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1591" class="LineNr"> 1591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1592" class="LineNr"> 1592 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1593" class="LineNr"> 1593 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1594" class="LineNr"> 1594 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1595" class="LineNr"> 1595 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1596" class="LineNr"> 1596 </span> 68/push 0/imm32 +<span id="L1597" class="LineNr"> 1597 </span> 68/push 0/imm32 +<span id="L1598" class="LineNr"> 1598 </span> 89/<- %edx 4/r32/esp +<span id="L1599" class="LineNr"> 1599 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1600" class="LineNr"> 1600 </span> <span class="subxComment">#</span> +<span id="L1601" class="LineNr"> 1601 </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="L1602" class="LineNr"> 1602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L1603" class="LineNr"> 1603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L1604" class="LineNr"> 1604 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1605" class="LineNr"> 1605 </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="L1606" class="LineNr"> 1606 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1607" class="LineNr"> 1607 </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="L1608" class="LineNr"> 1608 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1609" class="LineNr"> 1609 </span> <span class="subxComment"># convert</span> -<span id="L1610" class="LineNr"> 1610 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1611" class="LineNr"> 1611 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1612" class="LineNr"> 1612 </span> <span class="subxComment"># restore ed</span> -<span id="L1613" class="LineNr"> 1613 </span> 89/<- %edx 4/r32/esp -<span id="L1614" class="LineNr"> 1614 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1615" class="LineNr"> 1615 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1616" class="Folded"> 1616 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1622" class="LineNr"> 1622 </span> <span class="subxComment"># check output</span> -<span id="L1623" class="LineNr"> 1623 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1586'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) -<span id="L1624" class="LineNr"> 1624 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1586'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1607" class="LineNr"> 1607 </span> <span class="subxComment"># convert</span> +<span id="L1608" class="LineNr"> 1608 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1609" class="LineNr"> 1609 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1610" class="LineNr"> 1610 </span> <span class="subxComment"># restore ed</span> +<span id="L1611" class="LineNr"> 1611 </span> 89/<- %edx 4/r32/esp +<span id="L1612" class="LineNr"> 1612 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1613" class="LineNr"> 1613 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1614" class="Folded"> 1614 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1620" class="LineNr"> 1620 </span> <span class="subxComment"># check output</span> +<span id="L1621" class="LineNr"> 1621 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1584'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) +<span id="L1622" class="LineNr"> 1622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1584'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1623" class="LineNr"> 1623 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1624" class="LineNr"> 1624 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1584'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) <span id="L1625" class="LineNr"> 1625 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L1626" class="LineNr"> 1626 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1627" class="LineNr"> 1627 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1628" class="LineNr"> 1628 </span> 5d/pop-to-ebp -<span id="L1629" class="LineNr"> 1629 </span> c3/return -<span id="L1630" class="LineNr"> 1630 </span> -<span id="L1631" class="LineNr"> 1631 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: -<span id="L1632" class="LineNr"> 1632 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1633" class="LineNr"> 1633 </span> 55/push-ebp -<span id="L1634" class="LineNr"> 1634 </span> 89/<- %ebp 4/r32/esp -<span id="L1635" class="LineNr"> 1635 </span> <span class="subxComment"># setup</span> -<span id="L1636" class="LineNr"> 1636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1637" class="LineNr"> 1637 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1638" class="LineNr"> 1638 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1639" class="LineNr"> 1639 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1640" class="LineNr"> 1640 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1641" class="LineNr"> 1641 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1642" class="LineNr"> 1642 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1627" class="LineNr"> 1627 </span> 5d/pop-to-ebp +<span id="L1628" class="LineNr"> 1628 </span> c3/return +<span id="L1629" class="LineNr"> 1629 </span> +<span id="L1630" class="LineNr"> 1630 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: +<span id="L1631" class="LineNr"> 1631 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1632" class="LineNr"> 1632 </span> 55/push-ebp +<span id="L1633" class="LineNr"> 1633 </span> 89/<- %ebp 4/r32/esp +<span id="L1634" class="LineNr"> 1634 </span> <span class="subxComment"># setup</span> +<span id="L1635" class="LineNr"> 1635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1636" class="LineNr"> 1636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1637" class="LineNr"> 1637 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1638" class="LineNr"> 1638 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1639" class="LineNr"> 1639 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1640" class="LineNr"> 1640 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1641" class="LineNr"> 1641 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1642" class="LineNr"> 1642 </span> 68/push 0/imm32 <span id="L1643" class="LineNr"> 1643 </span> 68/push 0/imm32 -<span id="L1644" class="LineNr"> 1644 </span> 68/push 0/imm32 -<span id="L1645" class="LineNr"> 1645 </span> 89/<- %edx 4/r32/esp -<span id="L1646" class="LineNr"> 1646 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1647" class="LineNr"> 1647 </span> <span class="subxComment">#</span> -<span id="L1648" class="LineNr"> 1648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L1649" class="LineNr"> 1649 </span> (<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="L1650" class="LineNr"> 1650 </span> (<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="L1651" class="LineNr"> 1651 </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="L1644" class="LineNr"> 1644 </span> 89/<- %edx 4/r32/esp +<span id="L1645" class="LineNr"> 1645 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1646" class="LineNr"> 1646 </span> <span class="subxComment">#</span> +<span id="L1647" class="LineNr"> 1647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L1648" class="LineNr"> 1648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L1649" class="LineNr"> 1649 </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="L1650" class="LineNr"> 1650 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1651" class="LineNr"> 1651 </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="L1652" class="LineNr"> 1652 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1653" class="LineNr"> 1653 </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="L1654" class="LineNr"> 1654 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1655" class="LineNr"> 1655 </span> <span class="subxComment"># convert</span> -<span id="L1656" class="LineNr"> 1656 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1657" class="LineNr"> 1657 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1658" class="LineNr"> 1658 </span> <span class="subxComment"># restore ed</span> -<span id="L1659" class="LineNr"> 1659 </span> 89/<- %edx 4/r32/esp -<span id="L1660" class="LineNr"> 1660 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1661" class="LineNr"> 1661 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1662" class="Folded"> 1662 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1668" class="LineNr"> 1668 </span> <span class="subxComment"># no errors</span> -<span id="L1669" class="LineNr"> 1669 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1631'>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="L1670" class="LineNr"> 1670 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L1671" class="LineNr"> 1671 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1672" class="LineNr"> 1672 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1673" class="LineNr"> 1673 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1674" class="LineNr"> 1674 </span> 5d/pop-to-ebp -<span id="L1675" class="LineNr"> 1675 </span> c3/return -<span id="L1676" class="LineNr"> 1676 </span> -<span id="L1677" class="LineNr"> 1677 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: -<span id="L1678" class="LineNr"> 1678 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1679" class="LineNr"> 1679 </span> 55/push-ebp -<span id="L1680" class="LineNr"> 1680 </span> 89/<- %ebp 4/r32/esp -<span id="L1681" class="LineNr"> 1681 </span> <span class="subxComment"># setup</span> -<span id="L1682" class="LineNr"> 1682 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1683" class="LineNr"> 1683 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1684" class="LineNr"> 1684 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1685" class="LineNr"> 1685 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1686" class="LineNr"> 1686 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1687" class="LineNr"> 1687 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1688" class="LineNr"> 1688 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1689" class="LineNr"> 1689 </span> 68/push 0/imm32 -<span id="L1690" class="LineNr"> 1690 </span> 68/push 0/imm32 -<span id="L1691" class="LineNr"> 1691 </span> 89/<- %edx 4/r32/esp -<span id="L1692" class="LineNr"> 1692 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1693" class="LineNr"> 1693 </span> <span class="subxComment">#</span> -<span id="L1694" class="LineNr"> 1694 </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="L1695" class="LineNr"> 1695 </span> (<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="L1696" class="LineNr"> 1696 </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="L1697" class="LineNr"> 1697 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1698" class="LineNr"> 1698 </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="L1699" class="LineNr"> 1699 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1700" class="LineNr"> 1700 </span> <span class="subxComment"># convert</span> -<span id="L1701" class="LineNr"> 1701 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1702" class="LineNr"> 1702 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1703" class="LineNr"> 1703 </span> <span class="subxComment"># restore ed</span> -<span id="L1704" class="LineNr"> 1704 </span> 89/<- %edx 4/r32/esp -<span id="L1705" class="LineNr"> 1705 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1706" class="LineNr"> 1706 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1707" class="Folded"> 1707 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1713" class="LineNr"> 1713 </span> <span class="subxComment"># no errors</span> -<span id="L1714" class="LineNr"> 1714 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1677'>test-type-parameter-matches-rest-of-type</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L1715" class="LineNr"> 1715 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L1716" class="LineNr"> 1716 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1717" class="LineNr"> 1717 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1718" class="LineNr"> 1718 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1719" class="LineNr"> 1719 </span> 5d/pop-to-ebp -<span id="L1720" class="LineNr"> 1720 </span> c3/return -<span id="L1721" class="LineNr"> 1721 </span> -<span id="L1722" class="LineNr"> 1722 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: -<span id="L1723" class="LineNr"> 1723 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1724" class="LineNr"> 1724 </span> 55/push-ebp -<span id="L1725" class="LineNr"> 1725 </span> 89/<- %ebp 4/r32/esp -<span id="L1726" class="LineNr"> 1726 </span> <span class="subxComment"># setup</span> -<span id="L1727" class="LineNr"> 1727 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1728" class="LineNr"> 1728 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1729" class="LineNr"> 1729 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1730" class="LineNr"> 1730 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1731" class="LineNr"> 1731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1732" class="LineNr"> 1732 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1733" class="LineNr"> 1733 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1653" class="LineNr"> 1653 </span> <span class="subxComment"># convert</span> +<span id="L1654" class="LineNr"> 1654 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1655" class="LineNr"> 1655 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1656" class="LineNr"> 1656 </span> <span class="subxComment"># restore ed</span> +<span id="L1657" class="LineNr"> 1657 </span> 89/<- %edx 4/r32/esp +<span id="L1658" class="LineNr"> 1658 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1659" class="LineNr"> 1659 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1660" class="Folded"> 1660 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1666" class="LineNr"> 1666 </span> <span class="subxComment"># check output</span> +<span id="L1667" class="LineNr"> 1667 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1630'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) +<span id="L1668" class="LineNr"> 1668 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1630'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1669" class="LineNr"> 1669 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1670" class="LineNr"> 1670 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1671" class="LineNr"> 1671 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1672" class="LineNr"> 1672 </span> 5d/pop-to-ebp +<span id="L1673" class="LineNr"> 1673 </span> c3/return +<span id="L1674" class="LineNr"> 1674 </span> +<span id="L1675" class="LineNr"> 1675 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: +<span id="L1676" class="LineNr"> 1676 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1677" class="LineNr"> 1677 </span> 55/push-ebp +<span id="L1678" class="LineNr"> 1678 </span> 89/<- %ebp 4/r32/esp +<span id="L1679" class="LineNr"> 1679 </span> <span class="subxComment"># setup</span> +<span id="L1680" class="LineNr"> 1680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1681" class="LineNr"> 1681 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1682" class="LineNr"> 1682 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1683" class="LineNr"> 1683 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1684" class="LineNr"> 1684 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1685" class="LineNr"> 1685 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1686" class="LineNr"> 1686 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1687" class="LineNr"> 1687 </span> 68/push 0/imm32 +<span id="L1688" class="LineNr"> 1688 </span> 68/push 0/imm32 +<span id="L1689" class="LineNr"> 1689 </span> 89/<- %edx 4/r32/esp +<span id="L1690" class="LineNr"> 1690 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1691" class="LineNr"> 1691 </span> <span class="subxComment">#</span> +<span id="L1692" class="LineNr"> 1692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L1693" class="LineNr"> 1693 </span> (<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="L1694" class="LineNr"> 1694 </span> (<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="L1695" class="LineNr"> 1695 </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="L1696" class="LineNr"> 1696 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1697" class="LineNr"> 1697 </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="L1698" class="LineNr"> 1698 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1699" class="LineNr"> 1699 </span> <span class="subxComment"># convert</span> +<span id="L1700" class="LineNr"> 1700 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1701" class="LineNr"> 1701 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1702" class="LineNr"> 1702 </span> <span class="subxComment"># restore ed</span> +<span id="L1703" class="LineNr"> 1703 </span> 89/<- %edx 4/r32/esp +<span id="L1704" class="LineNr"> 1704 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1705" class="LineNr"> 1705 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1706" class="Folded"> 1706 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1712" class="LineNr"> 1712 </span> <span class="subxComment"># no errors</span> +<span id="L1713" class="LineNr"> 1713 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1675'>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="L1714" class="LineNr"> 1714 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L1715" class="LineNr"> 1715 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1716" class="LineNr"> 1716 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1717" class="LineNr"> 1717 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1718" class="LineNr"> 1718 </span> 5d/pop-to-ebp +<span id="L1719" class="LineNr"> 1719 </span> c3/return +<span id="L1720" class="LineNr"> 1720 </span> +<span id="L1721" class="LineNr"> 1721 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: +<span id="L1722" class="LineNr"> 1722 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1723" class="LineNr"> 1723 </span> 55/push-ebp +<span id="L1724" class="LineNr"> 1724 </span> 89/<- %ebp 4/r32/esp +<span id="L1725" class="LineNr"> 1725 </span> <span class="subxComment"># setup</span> +<span id="L1726" class="LineNr"> 1726 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1727" class="LineNr"> 1727 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1728" class="LineNr"> 1728 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1729" class="LineNr"> 1729 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1730" class="LineNr"> 1730 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1731" class="LineNr"> 1731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1732" class="LineNr"> 1732 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1733" class="LineNr"> 1733 </span> 68/push 0/imm32 <span id="L1734" class="LineNr"> 1734 </span> 68/push 0/imm32 -<span id="L1735" class="LineNr"> 1735 </span> 68/push 0/imm32 -<span id="L1736" class="LineNr"> 1736 </span> 89/<- %edx 4/r32/esp -<span id="L1737" class="LineNr"> 1737 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1738" class="LineNr"> 1738 </span> <span class="subxComment">#</span> -<span id="L1739" class="LineNr"> 1739 </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="L1740" class="LineNr"> 1740 </span> (<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="L1741" class="LineNr"> 1741 </span> (<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="L1742" class="LineNr"> 1742 </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="L1735" class="LineNr"> 1735 </span> 89/<- %edx 4/r32/esp +<span id="L1736" class="LineNr"> 1736 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1737" class="LineNr"> 1737 </span> <span class="subxComment">#</span> +<span id="L1738" class="LineNr"> 1738 </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="L1739" class="LineNr"> 1739 </span> (<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="L1740" class="LineNr"> 1740 </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="L1741" class="LineNr"> 1741 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1742" class="LineNr"> 1742 </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="L1743" class="LineNr"> 1743 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1744" class="LineNr"> 1744 </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="L1745" class="LineNr"> 1745 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1746" class="LineNr"> 1746 </span> <span class="subxComment"># convert</span> -<span id="L1747" class="LineNr"> 1747 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1748" class="LineNr"> 1748 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1749" class="LineNr"> 1749 </span> <span class="subxComment"># restore ed</span> -<span id="L1750" class="LineNr"> 1750 </span> 89/<- %edx 4/r32/esp -<span id="L1751" class="LineNr"> 1751 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1752" class="LineNr"> 1752 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1753" class="Folded"> 1753 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1759" class="LineNr"> 1759 </span> <span class="subxComment"># check output</span> -<span id="L1760" class="LineNr"> 1760 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1722'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) -<span id="L1761" class="LineNr"> 1761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1722'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1762" class="LineNr"> 1762 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1763" class="LineNr"> 1763 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1764" class="LineNr"> 1764 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1765" class="LineNr"> 1765 </span> 5d/pop-to-ebp -<span id="L1766" class="LineNr"> 1766 </span> c3/return -<span id="L1767" class="LineNr"> 1767 </span> -<span id="L1768" class="LineNr"> 1768 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: -<span id="L1769" class="LineNr"> 1769 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1770" class="LineNr"> 1770 </span> 55/push-ebp -<span id="L1771" class="LineNr"> 1771 </span> 89/<- %ebp 4/r32/esp -<span id="L1772" class="LineNr"> 1772 </span> <span class="subxComment"># setup</span> -<span id="L1773" class="LineNr"> 1773 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1774" class="LineNr"> 1774 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1775" class="LineNr"> 1775 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1776" class="LineNr"> 1776 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1777" class="LineNr"> 1777 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1778" class="LineNr"> 1778 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1779" class="LineNr"> 1779 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1780" class="LineNr"> 1780 </span> 68/push 0/imm32 -<span id="L1781" class="LineNr"> 1781 </span> 68/push 0/imm32 -<span id="L1782" class="LineNr"> 1782 </span> 89/<- %edx 4/r32/esp -<span id="L1783" class="LineNr"> 1783 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1784" class="LineNr"> 1784 </span> <span class="subxComment">#</span> -<span id="L1785" class="LineNr"> 1785 </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="L1786" class="LineNr"> 1786 </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="L1744" class="LineNr"> 1744 </span> <span class="subxComment"># convert</span> +<span id="L1745" class="LineNr"> 1745 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1746" class="LineNr"> 1746 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1747" class="LineNr"> 1747 </span> <span class="subxComment"># restore ed</span> +<span id="L1748" class="LineNr"> 1748 </span> 89/<- %edx 4/r32/esp +<span id="L1749" class="LineNr"> 1749 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1750" class="LineNr"> 1750 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1751" class="Folded"> 1751 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1757" class="LineNr"> 1757 </span> <span class="subxComment"># no errors</span> +<span id="L1758" class="LineNr"> 1758 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1721'>test-type-parameter-matches-rest-of-type</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L1759" class="LineNr"> 1759 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L1760" class="LineNr"> 1760 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1761" class="LineNr"> 1761 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1762" class="LineNr"> 1762 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1763" class="LineNr"> 1763 </span> 5d/pop-to-ebp +<span id="L1764" class="LineNr"> 1764 </span> c3/return +<span id="L1765" class="LineNr"> 1765 </span> +<span id="L1766" class="LineNr"> 1766 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: +<span id="L1767" class="LineNr"> 1767 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1768" class="LineNr"> 1768 </span> 55/push-ebp +<span id="L1769" class="LineNr"> 1769 </span> 89/<- %ebp 4/r32/esp +<span id="L1770" class="LineNr"> 1770 </span> <span class="subxComment"># setup</span> +<span id="L1771" class="LineNr"> 1771 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1772" class="LineNr"> 1772 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1773" class="LineNr"> 1773 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1774" class="LineNr"> 1774 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1775" class="LineNr"> 1775 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1776" class="LineNr"> 1776 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1777" class="LineNr"> 1777 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1778" class="LineNr"> 1778 </span> 68/push 0/imm32 +<span id="L1779" class="LineNr"> 1779 </span> 68/push 0/imm32 +<span id="L1780" class="LineNr"> 1780 </span> 89/<- %edx 4/r32/esp +<span id="L1781" class="LineNr"> 1781 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1782" class="LineNr"> 1782 </span> <span class="subxComment">#</span> +<span id="L1783" class="LineNr"> 1783 </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="L1784" class="LineNr"> 1784 </span> (<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="L1785" class="LineNr"> 1785 </span> (<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="L1786" class="LineNr"> 1786 </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="L1787" class="LineNr"> 1787 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1788" class="LineNr"> 1788 </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="L1788" class="LineNr"> 1788 </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="L1789" class="LineNr"> 1789 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L1790" class="LineNr"> 1790 </span> <span class="subxComment"># convert</span> <span id="L1791" class="LineNr"> 1791 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) @@ -1721,473 +1721,473 @@ if ('onhashchange' in window) { <span id="L1794" class="LineNr"> 1794 </span> 89/<- %edx 4/r32/esp <span id="L1795" class="LineNr"> 1795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1796" class="LineNr"> 1796 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1797" class="Folded"> 1797 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1797" class="Folded"> 1797 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1803" class="LineNr"> 1803 </span> <span class="subxComment"># check output</span> -<span id="L1804" class="LineNr"> 1804 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1768'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L1805" class="LineNr"> 1805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1768'>test-convert-function-call-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1806" class="LineNr"> 1806 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1807" class="LineNr"> 1807 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1768'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) -<span id="L1808" class="LineNr"> 1808 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1809" class="LineNr"> 1809 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1810" class="LineNr"> 1810 </span> 5d/pop-to-ebp -<span id="L1811" class="LineNr"> 1811 </span> c3/return -<span id="L1812" class="LineNr"> 1812 </span> -<span id="L1813" class="LineNr"> 1813 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: -<span id="L1814" class="LineNr"> 1814 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1815" class="LineNr"> 1815 </span> 55/push-ebp -<span id="L1816" class="LineNr"> 1816 </span> 89/<- %ebp 4/r32/esp -<span id="L1817" class="LineNr"> 1817 </span> <span class="subxComment"># setup</span> -<span id="L1818" class="LineNr"> 1818 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1819" class="LineNr"> 1819 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1820" class="LineNr"> 1820 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1821" class="LineNr"> 1821 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1822" class="LineNr"> 1822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1823" class="LineNr"> 1823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1824" class="LineNr"> 1824 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1804" class="LineNr"> 1804 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1766'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) +<span id="L1805" class="LineNr"> 1805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1766'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1806" class="LineNr"> 1806 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1807" class="LineNr"> 1807 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1808" class="LineNr"> 1808 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1809" class="LineNr"> 1809 </span> 5d/pop-to-ebp +<span id="L1810" class="LineNr"> 1810 </span> c3/return +<span id="L1811" class="LineNr"> 1811 </span> +<span id="L1812" class="LineNr"> 1812 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: +<span id="L1813" class="LineNr"> 1813 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1814" class="LineNr"> 1814 </span> 55/push-ebp +<span id="L1815" class="LineNr"> 1815 </span> 89/<- %ebp 4/r32/esp +<span id="L1816" class="LineNr"> 1816 </span> <span class="subxComment"># setup</span> +<span id="L1817" class="LineNr"> 1817 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1818" class="LineNr"> 1818 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1819" class="LineNr"> 1819 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1820" class="LineNr"> 1820 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1821" class="LineNr"> 1821 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1822" class="LineNr"> 1822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1823" class="LineNr"> 1823 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1824" class="LineNr"> 1824 </span> 68/push 0/imm32 <span id="L1825" class="LineNr"> 1825 </span> 68/push 0/imm32 -<span id="L1826" class="LineNr"> 1826 </span> 68/push 0/imm32 -<span id="L1827" class="LineNr"> 1827 </span> 89/<- %edx 4/r32/esp -<span id="L1828" class="LineNr"> 1828 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1829" class="LineNr"> 1829 </span> <span class="subxComment">#</span> -<span id="L1830" class="LineNr"> 1830 </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="L1831" class="LineNr"> 1831 </span> (<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="L1832" class="LineNr"> 1832 </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="L1826" class="LineNr"> 1826 </span> 89/<- %edx 4/r32/esp +<span id="L1827" class="LineNr"> 1827 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1828" class="LineNr"> 1828 </span> <span class="subxComment">#</span> +<span id="L1829" class="LineNr"> 1829 </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="L1830" class="LineNr"> 1830 </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="L1831" class="LineNr"> 1831 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1832" class="LineNr"> 1832 </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="L1833" class="LineNr"> 1833 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1834" class="LineNr"> 1834 </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="L1835" class="LineNr"> 1835 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1836" class="LineNr"> 1836 </span> <span class="subxComment"># convert</span> -<span id="L1837" class="LineNr"> 1837 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1838" class="LineNr"> 1838 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1839" class="LineNr"> 1839 </span> <span class="subxComment"># restore ed</span> -<span id="L1840" class="LineNr"> 1840 </span> 89/<- %edx 4/r32/esp -<span id="L1841" class="LineNr"> 1841 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1842" class="LineNr"> 1842 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1843" class="Folded"> 1843 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1849" class="LineNr"> 1849 </span> <span class="subxComment"># check output</span> -<span id="L1850" class="LineNr"> 1850 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1813'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L1851" class="LineNr"> 1851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1813'>test-convert-function-call-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1852" class="LineNr"> 1852 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1853" class="LineNr"> 1853 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1813'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) -<span id="L1854" class="LineNr"> 1854 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1855" class="LineNr"> 1855 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1856" class="LineNr"> 1856 </span> 5d/pop-to-ebp -<span id="L1857" class="LineNr"> 1857 </span> c3/return -<span id="L1858" class="LineNr"> 1858 </span> -<span id="L1859" class="LineNr"> 1859 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: -<span id="L1860" class="LineNr"> 1860 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1861" class="LineNr"> 1861 </span> 55/push-ebp -<span id="L1862" class="LineNr"> 1862 </span> 89/<- %ebp 4/r32/esp -<span id="L1863" class="LineNr"> 1863 </span> <span class="subxComment"># setup</span> -<span id="L1864" class="LineNr"> 1864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1865" class="LineNr"> 1865 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1866" class="LineNr"> 1866 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1867" class="LineNr"> 1867 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1868" class="LineNr"> 1868 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1869" class="LineNr"> 1869 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1870" class="LineNr"> 1870 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1871" class="LineNr"> 1871 </span> 68/push 0/imm32 -<span id="L1872" class="LineNr"> 1872 </span> 68/push 0/imm32 -<span id="L1873" class="LineNr"> 1873 </span> 89/<- %edx 4/r32/esp -<span id="L1874" class="LineNr"> 1874 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1875" class="LineNr"> 1875 </span> <span class="subxComment">#</span> -<span id="L1876" class="LineNr"> 1876 </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="L1877" class="LineNr"> 1877 </span> (<a 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="L1878" class="LineNr"> 1878 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1879" class="LineNr"> 1879 </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/eax: foo {\n"</span>) -<span id="L1880" class="LineNr"> 1880 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1881" class="LineNr"> 1881 </span> <span class="subxComment"># convert</span> -<span id="L1882" class="LineNr"> 1882 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1883" class="LineNr"> 1883 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1884" class="LineNr"> 1884 </span> <span class="subxComment"># restore ed</span> -<span id="L1885" class="LineNr"> 1885 </span> 89/<- %edx 4/r32/esp -<span id="L1886" class="LineNr"> 1886 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1887" class="LineNr"> 1887 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1888" class="Folded"> 1888 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1894" class="LineNr"> 1894 </span> <span class="subxComment"># check output</span> -<span id="L1895" class="LineNr"> 1895 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1859'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) -<span id="L1896" class="LineNr"> 1896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1859'>test-convert-function-call-with-incorrect-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1897" class="LineNr"> 1897 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1898" class="LineNr"> 1898 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1859'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) -<span id="L1899" class="LineNr"> 1899 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1900" class="LineNr"> 1900 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1901" class="LineNr"> 1901 </span> 5d/pop-to-ebp -<span id="L1902" class="LineNr"> 1902 </span> c3/return -<span id="L1903" class="LineNr"> 1903 </span> -<span id="L1904" class="LineNr"> 1904 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: -<span id="L1905" class="LineNr"> 1905 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1906" class="LineNr"> 1906 </span> 55/push-ebp -<span id="L1907" class="LineNr"> 1907 </span> 89/<- %ebp 4/r32/esp -<span id="L1908" class="LineNr"> 1908 </span> <span class="subxComment"># setup</span> -<span id="L1909" class="LineNr"> 1909 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1910" class="LineNr"> 1910 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1911" class="LineNr"> 1911 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1912" class="LineNr"> 1912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1913" class="LineNr"> 1913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1914" class="LineNr"> 1914 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1915" class="LineNr"> 1915 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1834" class="LineNr"> 1834 </span> <span class="subxComment"># convert</span> +<span id="L1835" class="LineNr"> 1835 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1836" class="LineNr"> 1836 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1837" class="LineNr"> 1837 </span> <span class="subxComment"># restore ed</span> +<span id="L1838" class="LineNr"> 1838 </span> 89/<- %edx 4/r32/esp +<span id="L1839" class="LineNr"> 1839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1840" class="LineNr"> 1840 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1841" class="Folded"> 1841 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1847" class="LineNr"> 1847 </span> <span class="subxComment"># check output</span> +<span id="L1848" class="LineNr"> 1848 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1812'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L1849" class="LineNr"> 1849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1812'>test-convert-function-call-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1850" class="LineNr"> 1850 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1851" class="LineNr"> 1851 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1812'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) +<span id="L1852" class="LineNr"> 1852 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1853" class="LineNr"> 1853 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1854" class="LineNr"> 1854 </span> 5d/pop-to-ebp +<span id="L1855" class="LineNr"> 1855 </span> c3/return +<span id="L1856" class="LineNr"> 1856 </span> +<span id="L1857" class="LineNr"> 1857 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: +<span id="L1858" class="LineNr"> 1858 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1859" class="LineNr"> 1859 </span> 55/push-ebp +<span id="L1860" class="LineNr"> 1860 </span> 89/<- %ebp 4/r32/esp +<span id="L1861" class="LineNr"> 1861 </span> <span class="subxComment"># setup</span> +<span id="L1862" class="LineNr"> 1862 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1863" class="LineNr"> 1863 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1864" class="LineNr"> 1864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1865" class="LineNr"> 1865 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1866" class="LineNr"> 1866 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1867" class="LineNr"> 1867 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1868" class="LineNr"> 1868 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1869" class="LineNr"> 1869 </span> 68/push 0/imm32 +<span id="L1870" class="LineNr"> 1870 </span> 68/push 0/imm32 +<span id="L1871" class="LineNr"> 1871 </span> 89/<- %edx 4/r32/esp +<span id="L1872" class="LineNr"> 1872 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1873" class="LineNr"> 1873 </span> <span class="subxComment">#</span> +<span id="L1874" class="LineNr"> 1874 </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="L1875" class="LineNr"> 1875 </span> (<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="L1876" class="LineNr"> 1876 </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="L1877" class="LineNr"> 1877 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1878" class="LineNr"> 1878 </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="L1879" class="LineNr"> 1879 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1880" class="LineNr"> 1880 </span> <span class="subxComment"># convert</span> +<span id="L1881" class="LineNr"> 1881 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1882" class="LineNr"> 1882 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1883" class="LineNr"> 1883 </span> <span class="subxComment"># restore ed</span> +<span id="L1884" class="LineNr"> 1884 </span> 89/<- %edx 4/r32/esp +<span id="L1885" class="LineNr"> 1885 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1886" class="LineNr"> 1886 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1887" class="Folded"> 1887 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1893" class="LineNr"> 1893 </span> <span class="subxComment"># check output</span> +<span id="L1894" class="LineNr"> 1894 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1857'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L1895" class="LineNr"> 1895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1857'>test-convert-function-call-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1896" class="LineNr"> 1896 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1897" class="LineNr"> 1897 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1857'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) +<span id="L1898" class="LineNr"> 1898 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1899" class="LineNr"> 1899 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1900" class="LineNr"> 1900 </span> 5d/pop-to-ebp +<span id="L1901" class="LineNr"> 1901 </span> c3/return +<span id="L1902" class="LineNr"> 1902 </span> +<span id="L1903" class="LineNr"> 1903 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: +<span id="L1904" class="LineNr"> 1904 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1905" class="LineNr"> 1905 </span> 55/push-ebp +<span id="L1906" class="LineNr"> 1906 </span> 89/<- %ebp 4/r32/esp +<span id="L1907" class="LineNr"> 1907 </span> <span class="subxComment"># setup</span> +<span id="L1908" class="LineNr"> 1908 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1909" class="LineNr"> 1909 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1910" class="LineNr"> 1910 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1911" class="LineNr"> 1911 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1912" class="LineNr"> 1912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1913" class="LineNr"> 1913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1914" class="LineNr"> 1914 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1915" class="LineNr"> 1915 </span> 68/push 0/imm32 <span id="L1916" class="LineNr"> 1916 </span> 68/push 0/imm32 -<span id="L1917" class="LineNr"> 1917 </span> 68/push 0/imm32 -<span id="L1918" class="LineNr"> 1918 </span> 89/<- %edx 4/r32/esp -<span id="L1919" class="LineNr"> 1919 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1920" class="LineNr"> 1920 </span> <span class="subxComment">#</span> -<span id="L1921" class="LineNr"> 1921 </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="L1922" class="LineNr"> 1922 </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="L1923" class="LineNr"> 1923 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1924" class="LineNr"> 1924 </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/eax: int {\n"</span>) -<span id="L1925" class="LineNr"> 1925 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1926" class="LineNr"> 1926 </span> <span class="subxComment"># convert</span> -<span id="L1927" class="LineNr"> 1927 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1928" class="LineNr"> 1928 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1929" class="LineNr"> 1929 </span> <span class="subxComment"># restore ed</span> -<span id="L1930" class="LineNr"> 1930 </span> 89/<- %edx 4/r32/esp -<span id="L1931" class="LineNr"> 1931 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1932" class="LineNr"> 1932 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1933" class="Folded"> 1933 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1939" class="LineNr"> 1939 </span> <span class="subxComment"># check output</span> -<span id="L1940" class="LineNr"> 1940 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1904'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) -<span id="L1941" class="LineNr"> 1941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L1904'>test-convert-function-call-with-too-few-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1942" class="LineNr"> 1942 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1943" class="LineNr"> 1943 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1904'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) -<span id="L1944" class="LineNr"> 1944 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1945" class="LineNr"> 1945 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1946" class="LineNr"> 1946 </span> 5d/pop-to-ebp -<span id="L1947" class="LineNr"> 1947 </span> c3/return -<span id="L1948" class="LineNr"> 1948 </span> -<span id="L1949" class="LineNr"> 1949 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: -<span id="L1950" class="LineNr"> 1950 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1951" class="LineNr"> 1951 </span> 55/push-ebp -<span id="L1952" class="LineNr"> 1952 </span> 89/<- %ebp 4/r32/esp -<span id="L1953" class="LineNr"> 1953 </span> <span class="subxComment"># setup</span> -<span id="L1954" class="LineNr"> 1954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1955" class="LineNr"> 1955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1956" class="LineNr"> 1956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1957" class="LineNr"> 1957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1958" class="LineNr"> 1958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1959" class="LineNr"> 1959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1960" class="LineNr"> 1960 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1917" class="LineNr"> 1917 </span> 89/<- %edx 4/r32/esp +<span id="L1918" class="LineNr"> 1918 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1919" class="LineNr"> 1919 </span> <span class="subxComment">#</span> +<span id="L1920" class="LineNr"> 1920 </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="L1921" class="LineNr"> 1921 </span> (<a 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="L1922" class="LineNr"> 1922 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1923" class="LineNr"> 1923 </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/eax: foo {\n"</span>) +<span id="L1924" class="LineNr"> 1924 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1925" class="LineNr"> 1925 </span> <span class="subxComment"># convert</span> +<span id="L1926" class="LineNr"> 1926 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1927" class="LineNr"> 1927 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1928" class="LineNr"> 1928 </span> <span class="subxComment"># restore ed</span> +<span id="L1929" class="LineNr"> 1929 </span> 89/<- %edx 4/r32/esp +<span id="L1930" class="LineNr"> 1930 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1931" class="LineNr"> 1931 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1932" class="Folded"> 1932 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1938" class="LineNr"> 1938 </span> <span class="subxComment"># check output</span> +<span id="L1939" class="LineNr"> 1939 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1903'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) +<span id="L1940" class="LineNr"> 1940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L1903'>test-convert-function-call-with-incorrect-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1941" class="LineNr"> 1941 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1942" class="LineNr"> 1942 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1903'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) +<span id="L1943" class="LineNr"> 1943 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1944" class="LineNr"> 1944 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1945" class="LineNr"> 1945 </span> 5d/pop-to-ebp +<span id="L1946" class="LineNr"> 1946 </span> c3/return +<span id="L1947" class="LineNr"> 1947 </span> +<span id="L1948" class="LineNr"> 1948 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: +<span id="L1949" class="LineNr"> 1949 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1950" class="LineNr"> 1950 </span> 55/push-ebp +<span id="L1951" class="LineNr"> 1951 </span> 89/<- %ebp 4/r32/esp +<span id="L1952" class="LineNr"> 1952 </span> <span class="subxComment"># setup</span> +<span id="L1953" class="LineNr"> 1953 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1954" class="LineNr"> 1954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1955" class="LineNr"> 1955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L1956" class="LineNr"> 1956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1957" class="LineNr"> 1957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L1958" class="LineNr"> 1958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1959" class="LineNr"> 1959 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1960" class="LineNr"> 1960 </span> 68/push 0/imm32 <span id="L1961" class="LineNr"> 1961 </span> 68/push 0/imm32 -<span id="L1962" class="LineNr"> 1962 </span> 68/push 0/imm32 -<span id="L1963" class="LineNr"> 1963 </span> 89/<- %edx 4/r32/esp -<span id="L1964" class="LineNr"> 1964 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1965" class="LineNr"> 1965 </span> <span class="subxComment">#</span> -<span id="L1966" class="LineNr"> 1966 </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="L1967" class="LineNr"> 1967 </span> (<a 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="L1968" class="LineNr"> 1968 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1969" class="LineNr"> 1969 </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="L1970" class="LineNr"> 1970 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1971" class="LineNr"> 1971 </span> <span class="subxComment"># convert</span> -<span id="L1972" class="LineNr"> 1972 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L1973" class="LineNr"> 1973 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1974" class="LineNr"> 1974 </span> <span class="subxComment"># restore ed</span> -<span id="L1975" class="LineNr"> 1975 </span> 89/<- %edx 4/r32/esp -<span id="L1976" class="LineNr"> 1976 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1977" class="LineNr"> 1977 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L1978" class="Folded"> 1978 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1984" class="LineNr"> 1984 </span> <span class="subxComment"># check output</span> -<span id="L1985" class="LineNr"> 1985 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1949'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L1986" class="LineNr"> 1986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L1949'>test-convert-function-call-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1987" class="LineNr"> 1987 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1988" class="LineNr"> 1988 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1949'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) -<span id="L1989" class="LineNr"> 1989 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1990" class="LineNr"> 1990 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1991" class="LineNr"> 1991 </span> 5d/pop-to-ebp -<span id="L1992" class="LineNr"> 1992 </span> c3/return -<span id="L1993" class="LineNr"> 1993 </span> -<span id="L1994" class="LineNr"> 1994 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: -<span id="L1995" class="LineNr"> 1995 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1996" class="LineNr"> 1996 </span> 55/push-ebp -<span id="L1997" class="LineNr"> 1997 </span> 89/<- %ebp 4/r32/esp -<span id="L1998" class="LineNr"> 1998 </span> <span class="subxComment"># setup</span> -<span id="L1999" class="LineNr"> 1999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2000" class="LineNr"> 2000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2001" class="LineNr"> 2001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2002" class="LineNr"> 2002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2003" class="LineNr"> 2003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2004" class="LineNr"> 2004 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2005" class="LineNr"> 2005 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1962" class="LineNr"> 1962 </span> 89/<- %edx 4/r32/esp +<span id="L1963" class="LineNr"> 1963 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1964" class="LineNr"> 1964 </span> <span class="subxComment">#</span> +<span id="L1965" class="LineNr"> 1965 </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="L1966" class="LineNr"> 1966 </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="L1967" class="LineNr"> 1967 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1968" class="LineNr"> 1968 </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/eax: int {\n"</span>) +<span id="L1969" class="LineNr"> 1969 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1970" class="LineNr"> 1970 </span> <span class="subxComment"># convert</span> +<span id="L1971" class="LineNr"> 1971 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L1972" class="LineNr"> 1972 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1973" class="LineNr"> 1973 </span> <span class="subxComment"># restore ed</span> +<span id="L1974" class="LineNr"> 1974 </span> 89/<- %edx 4/r32/esp +<span id="L1975" class="LineNr"> 1975 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L1976" class="LineNr"> 1976 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L1977" class="Folded"> 1977 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1983" class="LineNr"> 1983 </span> <span class="subxComment"># check output</span> +<span id="L1984" class="LineNr"> 1984 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1948'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) +<span id="L1985" class="LineNr"> 1985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L1948'>test-convert-function-call-with-too-few-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L1986" class="LineNr"> 1986 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1987" class="LineNr"> 1987 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1948'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) +<span id="L1988" class="LineNr"> 1988 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1989" class="LineNr"> 1989 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1990" class="LineNr"> 1990 </span> 5d/pop-to-ebp +<span id="L1991" class="LineNr"> 1991 </span> c3/return +<span id="L1992" class="LineNr"> 1992 </span> +<span id="L1993" class="LineNr"> 1993 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: +<span id="L1994" class="LineNr"> 1994 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1995" class="LineNr"> 1995 </span> 55/push-ebp +<span id="L1996" class="LineNr"> 1996 </span> 89/<- %ebp 4/r32/esp +<span id="L1997" class="LineNr"> 1997 </span> <span class="subxComment"># setup</span> +<span id="L1998" class="LineNr"> 1998 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1999" class="LineNr"> 1999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2000" class="LineNr"> 2000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2001" class="LineNr"> 2001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2002" class="LineNr"> 2002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L2003" class="LineNr"> 2003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2004" class="LineNr"> 2004 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</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> 68/push 0/imm32 -<span id="L2008" class="LineNr"> 2008 </span> 89/<- %edx 4/r32/esp -<span id="L2009" class="LineNr"> 2009 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2010" class="LineNr"> 2010 </span> <span class="subxComment">#</span> -<span id="L2011" class="LineNr"> 2011 </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="L2012" class="LineNr"> 2012 </span> (<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="L2013" class="LineNr"> 2013 </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="L2007" class="LineNr"> 2007 </span> 89/<- %edx 4/r32/esp +<span id="L2008" class="LineNr"> 2008 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2009" class="LineNr"> 2009 </span> <span class="subxComment">#</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">"fn f {\n"</span>) +<span id="L2011" class="LineNr"> 2011 </span> (<a 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="L2012" class="LineNr"> 2012 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2013" class="LineNr"> 2013 </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="L2014" class="LineNr"> 2014 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2015" class="LineNr"> 2015 </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/eax: int {\n"</span>) -<span id="L2016" class="LineNr"> 2016 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2017" class="LineNr"> 2017 </span> <span class="subxComment"># convert</span> -<span id="L2018" class="LineNr"> 2018 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L2019" class="LineNr"> 2019 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2020" class="LineNr"> 2020 </span> <span class="subxComment"># restore ed</span> -<span id="L2021" class="LineNr"> 2021 </span> 89/<- %edx 4/r32/esp -<span id="L2022" class="LineNr"> 2022 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2023" class="LineNr"> 2023 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L2024" class="Folded"> 2024 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2030" class="LineNr"> 2030 </span> <span class="subxComment"># check output</span> -<span id="L2031" class="LineNr"> 2031 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1994'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) -<span id="L2032" class="LineNr"> 2032 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L1994'>test-convert-function-call-with-missing-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2033" class="LineNr"> 2033 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2034" class="LineNr"> 2034 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1994'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) -<span id="L2035" class="LineNr"> 2035 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2036" class="LineNr"> 2036 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2037" class="LineNr"> 2037 </span> 5d/pop-to-ebp -<span id="L2038" class="LineNr"> 2038 </span> c3/return -<span id="L2039" class="LineNr"> 2039 </span> -<span id="L2040" class="LineNr"> 2040 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: -<span id="L2041" class="LineNr"> 2041 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2042" class="LineNr"> 2042 </span> 55/push-ebp -<span id="L2043" class="LineNr"> 2043 </span> 89/<- %ebp 4/r32/esp -<span id="L2044" class="LineNr"> 2044 </span> <span class="subxComment"># setup</span> -<span id="L2045" class="LineNr"> 2045 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2046" class="LineNr"> 2046 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2047" class="LineNr"> 2047 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2048" class="LineNr"> 2048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2049" class="LineNr"> 2049 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2050" class="LineNr"> 2050 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2051" class="LineNr"> 2051 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2052" class="LineNr"> 2052 </span> 68/push 0/imm32 -<span id="L2053" class="LineNr"> 2053 </span> 68/push 0/imm32 -<span id="L2054" class="LineNr"> 2054 </span> 89/<- %edx 4/r32/esp -<span id="L2055" class="LineNr"> 2055 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2056" class="LineNr"> 2056 </span> <span class="subxComment">#</span> -<span id="L2057" class="LineNr"> 2057 </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="L2058" class="LineNr"> 2058 </span> (<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="L2059" class="LineNr"> 2059 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2060" class="LineNr"> 2060 </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/eax: int {\n"</span>) -<span id="L2061" class="LineNr"> 2061 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2062" class="LineNr"> 2062 </span> <span class="subxComment"># convert</span> -<span id="L2063" class="LineNr"> 2063 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L2064" class="LineNr"> 2064 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2065" class="LineNr"> 2065 </span> <span class="subxComment"># restore ed</span> -<span id="L2066" class="LineNr"> 2066 </span> 89/<- %edx 4/r32/esp -<span id="L2067" class="LineNr"> 2067 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2068" class="LineNr"> 2068 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L2069" class="Folded"> 2069 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2075" class="LineNr"> 2075 </span> <span class="subxComment"># check output</span> -<span id="L2076" class="LineNr"> 2076 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2040'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) -<span id="L2077" class="LineNr"> 2077 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L2040'>test-convert-function-call-with-incorrect-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2078" class="LineNr"> 2078 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2079" class="LineNr"> 2079 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2040'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) -<span id="L2080" class="LineNr"> 2080 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2081" class="LineNr"> 2081 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2082" class="LineNr"> 2082 </span> 5d/pop-to-ebp -<span id="L2083" class="LineNr"> 2083 </span> c3/return -<span id="L2084" class="LineNr"> 2084 </span> -<span id="L2085" class="LineNr"> 2085 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: -<span id="L2086" class="LineNr"> 2086 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2087" class="LineNr"> 2087 </span> 55/push-ebp -<span id="L2088" class="LineNr"> 2088 </span> 89/<- %ebp 4/r32/esp -<span id="L2089" class="LineNr"> 2089 </span> <span class="subxComment"># setup</span> -<span id="L2090" class="LineNr"> 2090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2091" class="LineNr"> 2091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2092" class="LineNr"> 2092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2093" class="LineNr"> 2093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2094" class="LineNr"> 2094 </span> <span class="subxComment">#</span> -<span id="L2095" class="LineNr"> 2095 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x/ecx: (addr int) <- copy 0\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">" increment *x\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2101" class="LineNr"> 2101 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2102" class="Folded"> 2102 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2108" class="LineNr"> 2108 </span> <span class="subxComment"># check output</span> -<span id="L2109" class="LineNr"> 2109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) -<span id="L2110" class="LineNr"> 2110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) -<span id="L2111" class="LineNr"> 2111 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) -<span id="L2112" class="LineNr"> 2112 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) -<span id="L2113" class="LineNr"> 2113 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) -<span id="L2114" class="LineNr"> 2114 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) -<span id="L2115" class="LineNr"> 2115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) -<span id="L2116" class="LineNr"> 2116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) -<span id="L2117" class="LineNr"> 2117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) -<span id="L2118" class="LineNr"> 2118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) -<span id="L2119" class="LineNr"> 2119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) -<span id="L2122" class="LineNr"> 2122 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) -<span id="L2123" class="LineNr"> 2123 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/14"</span>) -<span id="L2124" class="LineNr"> 2124 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2085'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) -<span id="L2125" class="LineNr"> 2125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2126" class="LineNr"> 2126 </span> 89/<- %esp 5/r32/ebp -<span id="L2127" class="LineNr"> 2127 </span> 5d/pop-to-ebp -<span id="L2128" class="LineNr"> 2128 </span> c3/return -<span id="L2129" class="LineNr"> 2129 </span> -<span id="L2130" class="LineNr"> 2130 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> -<span id="L2131" class="LineNr"> 2131 </span><span class="subxTest">test-convert-function-with-byte-operations</span>: -<span id="L2132" class="LineNr"> 2132 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2133" class="LineNr"> 2133 </span> 55/push-ebp -<span id="L2134" class="LineNr"> 2134 </span> 89/<- %ebp 4/r32/esp -<span id="L2135" class="LineNr"> 2135 </span> <span class="subxComment"># setup</span> -<span id="L2136" class="LineNr"> 2136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2137" class="LineNr"> 2137 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2138" class="LineNr"> 2138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2139" class="LineNr"> 2139 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2140" class="LineNr"> 2140 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) -<span id="L2142" class="LineNr"> 2142 </span> (<a 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="L2143" class="LineNr"> 2143 </span> (<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="L2144" class="LineNr"> 2144 </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="L2145" class="LineNr"> 2145 </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="L2146" class="LineNr"> 2146 </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="L2147" class="LineNr"> 2147 </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="L2148" class="LineNr"> 2148 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2149" class="LineNr"> 2149 </span> <span class="subxComment"># convert</span> -<span id="L2150" class="LineNr"> 2150 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2151" class="LineNr"> 2151 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2152" class="Folded"> 2152 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2158" class="LineNr"> 2158 </span> <span class="subxComment"># check output</span> -<span id="L2159" class="LineNr"> 2159 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/0"</span>) -<span id="L2160" class="LineNr"> 2160 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) -<span id="L2161" class="LineNr"> 2161 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/2"</span>) -<span id="L2162" class="LineNr"> 2162 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/3"</span>) -<span id="L2163" class="LineNr"> 2163 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/4"</span>) -<span id="L2164" class="LineNr"> 2164 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/5"</span>) -<span id="L2165" class="LineNr"> 2165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/6"</span>) -<span id="L2166" class="LineNr"> 2166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/7"</span>) -<span id="L2167" class="LineNr"> 2167 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/10"</span>) -<span id="L2170" class="LineNr"> 2170 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/11"</span>) -<span id="L2171" class="LineNr"> 2171 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/12"</span>) -<span id="L2172" class="LineNr"> 2172 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/13"</span>) -<span id="L2173" class="LineNr"> 2173 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/14"</span>) -<span id="L2174" class="LineNr"> 2174 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/15"</span>) -<span id="L2175" class="LineNr"> 2175 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/16"</span>) -<span id="L2176" class="LineNr"> 2176 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/17"</span>) -<span id="L2177" class="LineNr"> 2177 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/18"</span>) -<span id="L2178" class="LineNr"> 2178 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/19"</span>) -<span id="L2179" class="LineNr"> 2179 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/20"</span>) -<span id="L2180" class="LineNr"> 2180 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/21"</span>) -<span id="L2181" class="LineNr"> 2181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/22"</span>) -<span id="L2182" class="LineNr"> 2182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2131'>test-convert-function-with-byte-operations</a>/23"</span>) -<span id="L2183" class="LineNr"> 2183 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2184" class="LineNr"> 2184 </span> 89/<- %esp 5/r32/ebp -<span id="L2185" class="LineNr"> 2185 </span> 5d/pop-to-ebp -<span id="L2186" class="LineNr"> 2186 </span> c3/return -<span id="L2187" class="LineNr"> 2187 </span> -<span id="L2188" class="LineNr"> 2188 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> -<span id="L2189" class="LineNr"> 2189 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: -<span id="L2190" class="LineNr"> 2190 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2191" class="LineNr"> 2191 </span> 55/push-ebp -<span id="L2192" class="LineNr"> 2192 </span> 89/<- %ebp 4/r32/esp -<span id="L2193" class="LineNr"> 2193 </span> <span class="subxComment"># setup</span> -<span id="L2194" class="LineNr"> 2194 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2195" class="LineNr"> 2195 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2196" class="LineNr"> 2196 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2197" class="LineNr"> 2197 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2198" class="LineNr"> 2198 </span> <span class="subxComment">#</span> -<span id="L2199" class="LineNr"> 2199 </span> (<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="L2200" class="LineNr"> 2200 </span> (<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="L2201" class="LineNr"> 2201 </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="L2202" class="LineNr"> 2202 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2203" class="LineNr"> 2203 </span> <span class="subxComment"># convert</span> -<span id="L2204" class="LineNr"> 2204 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2205" class="LineNr"> 2205 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2206" class="Folded"> 2206 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2212" class="LineNr"> 2212 </span> <span class="subxComment"># check output</span> -<span id="L2213" class="LineNr"> 2213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</span>) -<span id="L2214" class="LineNr"> 2214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) -<span id="L2215" class="LineNr"> 2215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) -<span id="L2216" class="LineNr"> 2216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) -<span id="L2217" class="LineNr"> 2217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) -<span id="L2218" class="LineNr"> 2218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) -<span id="L2219" class="LineNr"> 2219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) -<span id="L2220" class="LineNr"> 2220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) -<span id="L2221" class="LineNr"> 2221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) -<span id="L2222" class="LineNr"> 2222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) -<span id="L2223" class="LineNr"> 2223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) -<span id="L2224" class="LineNr"> 2224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) -<span id="L2225" class="LineNr"> 2225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) -<span id="L2226" class="LineNr"> 2226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) -<span id="L2227" class="LineNr"> 2227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) -<span id="L2228" class="LineNr"> 2228 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) -<span id="L2229" class="LineNr"> 2229 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2230" class="LineNr"> 2230 </span> 89/<- %esp 5/r32/ebp -<span id="L2231" class="LineNr"> 2231 </span> 5d/pop-to-ebp -<span id="L2232" class="LineNr"> 2232 </span> c3/return -<span id="L2233" class="LineNr"> 2233 </span> -<span id="L2234" class="LineNr"> 2234 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: -<span id="L2235" class="LineNr"> 2235 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2236" class="LineNr"> 2236 </span> 55/push-ebp -<span id="L2237" class="LineNr"> 2237 </span> 89/<- %ebp 4/r32/esp -<span id="L2238" class="LineNr"> 2238 </span> <span class="subxComment"># setup</span> -<span id="L2239" class="LineNr"> 2239 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2240" class="LineNr"> 2240 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2241" class="LineNr"> 2241 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2242" class="LineNr"> 2242 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2243" class="LineNr"> 2243 </span> <span class="subxComment">#</span> -<span id="L2244" class="LineNr"> 2244 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2245" class="LineNr"> 2245 </span> (<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="L2246" class="LineNr"> 2246 </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="L2247" class="LineNr"> 2247 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2248" class="LineNr"> 2248 </span> <span class="subxComment"># convert</span> -<span id="L2249" class="LineNr"> 2249 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2250" class="LineNr"> 2250 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2251" class="Folded"> 2251 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2257" class="LineNr"> 2257 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/15"</span>) -<span id="L2274" class="LineNr"> 2274 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2275" class="LineNr"> 2275 </span> 89/<- %esp 5/r32/ebp -<span id="L2276" class="LineNr"> 2276 </span> 5d/pop-to-ebp -<span id="L2277" class="LineNr"> 2277 </span> c3/return -<span id="L2278" class="LineNr"> 2278 </span> -<span id="L2279" class="LineNr"> 2279 </span><span class="subxTest">test-unknown-variable</span>: -<span id="L2280" class="LineNr"> 2280 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2281" class="LineNr"> 2281 </span> 55/push-ebp -<span id="L2282" class="LineNr"> 2282 </span> 89/<- %ebp 4/r32/esp -<span id="L2283" class="LineNr"> 2283 </span> <span class="subxComment"># setup</span> -<span id="L2284" class="LineNr"> 2284 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2285" class="LineNr"> 2285 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2286" class="LineNr"> 2286 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2287" class="LineNr"> 2287 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2288" class="LineNr"> 2288 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2289" class="LineNr"> 2289 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2290" class="LineNr"> 2290 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2291" class="LineNr"> 2291 </span> 68/push 0/imm32 -<span id="L2292" class="LineNr"> 2292 </span> 68/push 0/imm32 -<span id="L2293" class="LineNr"> 2293 </span> 89/<- %edx 4/r32/esp -<span id="L2294" class="LineNr"> 2294 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2295" class="LineNr"> 2295 </span> <span class="subxComment">#</span> -<span id="L2296" class="LineNr"> 2296 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2297" class="LineNr"> 2297 </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="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">"}\n"</span>) -<span id="L2299" class="LineNr"> 2299 </span> <span class="subxComment"># convert</span> -<span id="L2300" class="LineNr"> 2300 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L2301" class="LineNr"> 2301 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2302" class="LineNr"> 2302 </span> <span class="subxComment"># restore ed</span> -<span id="L2303" class="LineNr"> 2303 </span> 89/<- %edx 4/r32/esp -<span id="L2304" class="LineNr"> 2304 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2305" class="LineNr"> 2305 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L2306" class="Folded"> 2306 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2312" class="LineNr"> 2312 </span> <span class="subxComment"># check output</span> -<span id="L2313" class="LineNr"> 2313 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2279'>test-unknown-variable</a>: output should be empty"</span>) -<span id="L2314" class="LineNr"> 2314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2279'>test-unknown-variable</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2315" class="LineNr"> 2315 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2316" class="LineNr"> 2316 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2279'>test-unknown-variable</a>: exit status"</span>) -<span id="L2317" class="LineNr"> 2317 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2318" class="LineNr"> 2318 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2319" class="LineNr"> 2319 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2015" class="LineNr"> 2015 </span> <span class="subxComment"># convert</span> +<span id="L2016" class="LineNr"> 2016 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L2017" class="LineNr"> 2017 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2018" class="LineNr"> 2018 </span> <span class="subxComment"># restore ed</span> +<span id="L2019" class="LineNr"> 2019 </span> 89/<- %edx 4/r32/esp +<span id="L2020" class="LineNr"> 2020 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2021" class="LineNr"> 2021 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L2022" class="Folded"> 2022 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2028" class="LineNr"> 2028 </span> <span class="subxComment"># check output</span> +<span id="L2029" class="LineNr"> 2029 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1993'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L2030" class="LineNr"> 2030 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L1993'>test-convert-function-call-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L2031" class="LineNr"> 2031 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2032" class="LineNr"> 2032 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1993'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) +<span id="L2033" class="LineNr"> 2033 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2034" class="LineNr"> 2034 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2035" class="LineNr"> 2035 </span> 5d/pop-to-ebp +<span id="L2036" class="LineNr"> 2036 </span> c3/return +<span id="L2037" class="LineNr"> 2037 </span> +<span id="L2038" class="LineNr"> 2038 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: +<span id="L2039" class="LineNr"> 2039 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2040" class="LineNr"> 2040 </span> 55/push-ebp +<span id="L2041" class="LineNr"> 2041 </span> 89/<- %ebp 4/r32/esp +<span id="L2042" class="LineNr"> 2042 </span> <span class="subxComment"># setup</span> +<span id="L2043" class="LineNr"> 2043 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2044" class="LineNr"> 2044 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2045" class="LineNr"> 2045 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2046" class="LineNr"> 2046 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2047" class="LineNr"> 2047 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L2048" class="LineNr"> 2048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2049" class="LineNr"> 2049 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2050" class="LineNr"> 2050 </span> 68/push 0/imm32 +<span id="L2051" class="LineNr"> 2051 </span> 68/push 0/imm32 +<span id="L2052" class="LineNr"> 2052 </span> 89/<- %edx 4/r32/esp +<span id="L2053" class="LineNr"> 2053 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2054" class="LineNr"> 2054 </span> <span class="subxComment">#</span> +<span id="L2055" class="LineNr"> 2055 </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="L2056" class="LineNr"> 2056 </span> (<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="L2057" class="LineNr"> 2057 </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="L2058" class="LineNr"> 2058 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2059" class="LineNr"> 2059 </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/eax: int {\n"</span>) +<span id="L2060" class="LineNr"> 2060 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2061" class="LineNr"> 2061 </span> <span class="subxComment"># convert</span> +<span id="L2062" class="LineNr"> 2062 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L2063" class="LineNr"> 2063 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2064" class="LineNr"> 2064 </span> <span class="subxComment"># restore ed</span> +<span id="L2065" class="LineNr"> 2065 </span> 89/<- %edx 4/r32/esp +<span id="L2066" class="LineNr"> 2066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2067" class="LineNr"> 2067 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L2068" class="Folded"> 2068 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2074" class="LineNr"> 2074 </span> <span class="subxComment"># check output</span> +<span id="L2075" class="LineNr"> 2075 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2038'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) +<span id="L2076" class="LineNr"> 2076 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2038'>test-convert-function-call-with-missing-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L2077" class="LineNr"> 2077 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2078" class="LineNr"> 2078 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2038'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) +<span id="L2079" class="LineNr"> 2079 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2080" class="LineNr"> 2080 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2081" class="LineNr"> 2081 </span> 5d/pop-to-ebp +<span id="L2082" class="LineNr"> 2082 </span> c3/return +<span id="L2083" class="LineNr"> 2083 </span> +<span id="L2084" class="LineNr"> 2084 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: +<span id="L2085" class="LineNr"> 2085 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2086" class="LineNr"> 2086 </span> 55/push-ebp +<span id="L2087" class="LineNr"> 2087 </span> 89/<- %ebp 4/r32/esp +<span id="L2088" class="LineNr"> 2088 </span> <span class="subxComment"># setup</span> +<span id="L2089" class="LineNr"> 2089 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2090" class="LineNr"> 2090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2091" class="LineNr"> 2091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2092" class="LineNr"> 2092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2093" class="LineNr"> 2093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L2094" class="LineNr"> 2094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2095" class="LineNr"> 2095 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2096" class="LineNr"> 2096 </span> 68/push 0/imm32 +<span id="L2097" class="LineNr"> 2097 </span> 68/push 0/imm32 +<span id="L2098" class="LineNr"> 2098 </span> 89/<- %edx 4/r32/esp +<span id="L2099" class="LineNr"> 2099 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2100" class="LineNr"> 2100 </span> <span class="subxComment">#</span> +<span id="L2101" class="LineNr"> 2101 </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="L2102" class="LineNr"> 2102 </span> (<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="L2103" class="LineNr"> 2103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2104" class="LineNr"> 2104 </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/eax: int {\n"</span>) +<span id="L2105" class="LineNr"> 2105 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2106" class="LineNr"> 2106 </span> <span class="subxComment"># convert</span> +<span id="L2107" class="LineNr"> 2107 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L2108" class="LineNr"> 2108 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2109" class="LineNr"> 2109 </span> <span class="subxComment"># restore ed</span> +<span id="L2110" class="LineNr"> 2110 </span> 89/<- %edx 4/r32/esp +<span id="L2111" class="LineNr"> 2111 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2112" class="LineNr"> 2112 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L2113" class="Folded"> 2113 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2119" class="LineNr"> 2119 </span> <span class="subxComment"># check output</span> +<span id="L2120" class="LineNr"> 2120 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2084'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L2084'>test-convert-function-call-with-incorrect-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L2122" class="LineNr"> 2122 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2123" class="LineNr"> 2123 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2084'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) +<span id="L2124" class="LineNr"> 2124 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2125" class="LineNr"> 2125 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2126" class="LineNr"> 2126 </span> 5d/pop-to-ebp +<span id="L2127" class="LineNr"> 2127 </span> c3/return +<span id="L2128" class="LineNr"> 2128 </span> +<span id="L2129" class="LineNr"> 2129 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: +<span id="L2130" class="LineNr"> 2130 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2131" class="LineNr"> 2131 </span> 55/push-ebp +<span id="L2132" class="LineNr"> 2132 </span> 89/<- %ebp 4/r32/esp +<span id="L2133" class="LineNr"> 2133 </span> <span class="subxComment"># setup</span> +<span id="L2134" class="LineNr"> 2134 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2135" class="LineNr"> 2135 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2136" class="LineNr"> 2136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2137" class="LineNr"> 2137 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2138" class="LineNr"> 2138 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/ecx: (addr int) <- copy 0\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">" increment *x\n"</span>) +<span id="L2142" class="LineNr"> 2142 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2143" class="LineNr"> 2143 </span> <span class="subxComment"># convert</span> +<span id="L2144" class="LineNr"> 2144 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2145" class="LineNr"> 2145 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2146" class="Folded"> 2146 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2152" class="LineNr"> 2152 </span> <span class="subxComment"># check output</span> +<span id="L2153" class="LineNr"> 2153 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) +<span id="L2154" class="LineNr"> 2154 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) +<span id="L2155" class="LineNr"> 2155 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) +<span id="L2156" class="LineNr"> 2156 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) +<span id="L2157" class="LineNr"> 2157 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) +<span id="L2158" class="LineNr"> 2158 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) +<span id="L2159" class="LineNr"> 2159 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) +<span id="L2160" class="LineNr"> 2160 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) +<span id="L2161" class="LineNr"> 2161 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) +<span id="L2162" class="LineNr"> 2162 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) +<span id="L2163" class="LineNr"> 2163 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/10"</span>) +<span id="L2164" class="LineNr"> 2164 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/11"</span>) +<span id="L2165" class="LineNr"> 2165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) +<span id="L2166" class="LineNr"> 2166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) +<span id="L2167" class="LineNr"> 2167 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2129'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) +<span id="L2169" class="LineNr"> 2169 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2170" class="LineNr"> 2170 </span> 89/<- %esp 5/r32/ebp +<span id="L2171" class="LineNr"> 2171 </span> 5d/pop-to-ebp +<span id="L2172" class="LineNr"> 2172 </span> c3/return +<span id="L2173" class="LineNr"> 2173 </span> +<span id="L2174" class="LineNr"> 2174 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> +<span id="L2175" class="LineNr"> 2175 </span><span class="subxTest">test-convert-function-with-byte-operations</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#L285'>_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 foo {\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 x/eax: byte <- copy 0\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">" var y/ecx: byte <- copy 0\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">" y <- copy-byte x\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">" var z/edx: (addr byte) <- copy 0\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">" y <- copy-byte *z\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">" copy-byte-to *z, x\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">"}\n"</span>) +<span id="L2193" class="LineNr"> 2193 </span> <span class="subxComment"># convert</span> +<span id="L2194" class="LineNr"> 2194 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2195" class="LineNr"> 2195 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2196" class="Folded"> 2196 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2202" class="LineNr"> 2202 </span> <span class="subxComment"># check output</span> +<span id="L2203" class="LineNr"> 2203 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/0"</span>) +<span id="L2204" class="LineNr"> 2204 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) +<span id="L2205" class="LineNr"> 2205 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/2"</span>) +<span id="L2206" class="LineNr"> 2206 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/3"</span>) +<span id="L2207" class="LineNr"> 2207 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/4"</span>) +<span id="L2208" class="LineNr"> 2208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/5"</span>) +<span id="L2209" class="LineNr"> 2209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/6"</span>) +<span id="L2210" class="LineNr"> 2210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/7"</span>) +<span id="L2211" class="LineNr"> 2211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/8"</span>) +<span id="L2212" class="LineNr"> 2212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/9"</span>) +<span id="L2213" class="LineNr"> 2213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/10"</span>) +<span id="L2214" class="LineNr"> 2214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/11"</span>) +<span id="L2215" class="LineNr"> 2215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/12"</span>) +<span id="L2216" class="LineNr"> 2216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/13"</span>) +<span id="L2217" class="LineNr"> 2217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/14"</span>) +<span id="L2218" class="LineNr"> 2218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/15"</span>) +<span id="L2219" class="LineNr"> 2219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/16"</span>) +<span id="L2220" class="LineNr"> 2220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/17"</span>) +<span id="L2221" class="LineNr"> 2221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/18"</span>) +<span id="L2222" class="LineNr"> 2222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/19"</span>) +<span id="L2223" class="LineNr"> 2223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/20"</span>) +<span id="L2224" class="LineNr"> 2224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/21"</span>) +<span id="L2225" class="LineNr"> 2225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/22"</span>) +<span id="L2226" class="LineNr"> 2226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-with-byte-operations</a>/23"</span>) +<span id="L2227" class="LineNr"> 2227 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2228" class="LineNr"> 2228 </span> 89/<- %esp 5/r32/ebp +<span id="L2229" class="LineNr"> 2229 </span> 5d/pop-to-ebp +<span id="L2230" class="LineNr"> 2230 </span> c3/return +<span id="L2231" class="LineNr"> 2231 </span> +<span id="L2232" class="LineNr"> 2232 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> +<span id="L2233" class="LineNr"> 2233 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: +<span id="L2234" class="LineNr"> 2234 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2235" class="LineNr"> 2235 </span> 55/push-ebp +<span id="L2236" class="LineNr"> 2236 </span> 89/<- %ebp 4/r32/esp +<span id="L2237" class="LineNr"> 2237 </span> <span class="subxComment"># setup</span> +<span id="L2238" class="LineNr"> 2238 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2239" class="LineNr"> 2239 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2240" class="LineNr"> 2240 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2241" class="LineNr"> 2241 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2242" class="LineNr"> 2242 </span> <span class="subxComment">#</span> +<span id="L2243" class="LineNr"> 2243 </span> (<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="L2244" class="LineNr"> 2244 </span> (<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="L2245" class="LineNr"> 2245 </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="L2246" class="LineNr"> 2246 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2247" class="LineNr"> 2247 </span> <span class="subxComment"># convert</span> +<span id="L2248" class="LineNr"> 2248 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2249" class="LineNr"> 2249 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2250" class="Folded"> 2250 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2256" class="LineNr"> 2256 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) +<span id="L2260" class="LineNr"> 2260 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) +<span id="L2261" class="LineNr"> 2261 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) +<span id="L2262" class="LineNr"> 2262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) +<span id="L2263" class="LineNr"> 2263 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) +<span id="L2264" class="LineNr"> 2264 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) +<span id="L2265" class="LineNr"> 2265 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) +<span id="L2266" class="LineNr"> 2266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) +<span id="L2267" class="LineNr"> 2267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) +<span id="L2268" class="LineNr"> 2268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) +<span id="L2269" class="LineNr"> 2269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) +<span id="L2270" class="LineNr"> 2270 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) +<span id="L2271" class="LineNr"> 2271 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) +<span id="L2272" class="LineNr"> 2272 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) +<span id="L2273" class="LineNr"> 2273 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2274" class="LineNr"> 2274 </span> 89/<- %esp 5/r32/ebp +<span id="L2275" class="LineNr"> 2275 </span> 5d/pop-to-ebp +<span id="L2276" class="LineNr"> 2276 </span> c3/return +<span id="L2277" class="LineNr"> 2277 </span> +<span id="L2278" class="LineNr"> 2278 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: +<span id="L2279" class="LineNr"> 2279 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2280" class="LineNr"> 2280 </span> 55/push-ebp +<span id="L2281" class="LineNr"> 2281 </span> 89/<- %ebp 4/r32/esp +<span id="L2282" class="LineNr"> 2282 </span> <span class="subxComment"># setup</span> +<span id="L2283" class="LineNr"> 2283 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2284" class="LineNr"> 2284 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2285" class="LineNr"> 2285 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2286" class="LineNr"> 2286 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2287" class="LineNr"> 2287 </span> <span class="subxComment">#</span> +<span id="L2288" class="LineNr"> 2288 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2289" class="LineNr"> 2289 </span> (<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="L2290" class="LineNr"> 2290 </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="L2291" class="LineNr"> 2291 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2292" class="LineNr"> 2292 </span> <span class="subxComment"># convert</span> +<span id="L2293" class="LineNr"> 2293 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2294" class="LineNr"> 2294 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2295" class="Folded"> 2295 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2301" class="LineNr"> 2301 </span> <span class="subxComment"># check output</span> +<span id="L2302" class="LineNr"> 2302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/0"</span>) +<span id="L2303" class="LineNr"> 2303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</span>) +<span id="L2304" class="LineNr"> 2304 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/2"</span>) +<span id="L2305" class="LineNr"> 2305 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/3"</span>) +<span id="L2306" class="LineNr"> 2306 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/4"</span>) +<span id="L2307" class="LineNr"> 2307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/5"</span>) +<span id="L2308" class="LineNr"> 2308 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/6"</span>) +<span id="L2309" class="LineNr"> 2309 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/7"</span>) +<span id="L2310" class="LineNr"> 2310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/8"</span>) +<span id="L2311" class="LineNr"> 2311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/9"</span>) +<span id="L2312" class="LineNr"> 2312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/10"</span>) +<span id="L2313" class="LineNr"> 2313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/11"</span>) +<span id="L2314" class="LineNr"> 2314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</span>) +<span id="L2315" class="LineNr"> 2315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/13"</span>) +<span id="L2316" class="LineNr"> 2316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/14"</span>) +<span id="L2317" class="LineNr"> 2317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/15"</span>) +<span id="L2318" class="LineNr"> 2318 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2319" class="LineNr"> 2319 </span> 89/<- %esp 5/r32/ebp <span id="L2320" class="LineNr"> 2320 </span> 5d/pop-to-ebp <span id="L2321" class="LineNr"> 2321 </span> c3/return <span id="L2322" class="LineNr"> 2322 </span> -<span id="L2323" class="LineNr"> 2323 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: +<span id="L2323" class="LineNr"> 2323 </span><span class="subxTest">test-unknown-variable</span>: <span id="L2324" class="LineNr"> 2324 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2325" class="LineNr"> 2325 </span> 55/push-ebp <span id="L2326" class="LineNr"> 2326 </span> 89/<- %ebp 4/r32/esp @@ -2196,1666 +2196,1666 @@ if ('onhashchange' in window) { <span id="L2329" class="LineNr"> 2329 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2330" class="LineNr"> 2330 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) <span id="L2331" class="LineNr"> 2331 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2332" class="LineNr"> 2332 </span> <span class="subxComment">#</span> -<span id="L2333" class="LineNr"> 2333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2334" class="LineNr"> 2334 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2335" class="LineNr"> 2335 </span> (<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="L2336" class="LineNr"> 2336 </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="L2337" class="LineNr"> 2337 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2338" class="LineNr"> 2338 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2339" class="LineNr"> 2339 </span> <span class="subxComment"># convert</span> -<span id="L2340" class="LineNr"> 2340 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2341" class="LineNr"> 2341 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2342" class="Folded"> 2342 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2348" class="LineNr"> 2348 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) -<span id="L2351" class="LineNr"> 2351 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/5"</span>) -<span id="L2355" class="LineNr"> 2355 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/6"</span>) -<span id="L2356" class="LineNr"> 2356 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/7"</span>) -<span id="L2357" class="LineNr"> 2357 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/8"</span>) -<span id="L2358" class="LineNr"> 2358 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/9"</span>) -<span id="L2359" class="LineNr"> 2359 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/10"</span>) -<span id="L2360" class="LineNr"> 2360 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/11"</span>) -<span id="L2361" class="LineNr"> 2361 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/12"</span>) -<span id="L2362" class="LineNr"> 2362 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/13"</span>) -<span id="L2363" class="LineNr"> 2363 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/14"</span>) -<span id="L2364" class="LineNr"> 2364 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) -<span id="L2365" class="LineNr"> 2365 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/16"</span>) -<span id="L2366" class="LineNr"> 2366 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/17"</span>) -<span id="L2367" class="LineNr"> 2367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-convert-function-with-local-var-in-block</a>/18"</span>) -<span id="L2368" class="LineNr"> 2368 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2369" class="LineNr"> 2369 </span> 89/<- %esp 5/r32/ebp -<span id="L2370" class="LineNr"> 2370 </span> 5d/pop-to-ebp -<span id="L2371" class="LineNr"> 2371 </span> c3/return -<span id="L2372" class="LineNr"> 2372 </span> -<span id="L2373" class="LineNr"> 2373 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: -<span id="L2374" class="LineNr"> 2374 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2375" class="LineNr"> 2375 </span> 55/push-ebp -<span id="L2376" class="LineNr"> 2376 </span> 89/<- %ebp 4/r32/esp -<span id="L2377" class="LineNr"> 2377 </span> <span class="subxComment"># setup</span> -<span id="L2378" class="LineNr"> 2378 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2379" class="LineNr"> 2379 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2380" class="LineNr"> 2380 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2381" class="LineNr"> 2381 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2382" class="LineNr"> 2382 </span> <span class="subxComment">#</span> -<span id="L2383" class="LineNr"> 2383 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2384" class="LineNr"> 2384 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2385" class="LineNr"> 2385 </span> (<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="L2386" class="LineNr"> 2386 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2387" class="LineNr"> 2387 </span> (<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="L2388" class="LineNr"> 2388 </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="L2389" class="LineNr"> 2389 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2390" class="LineNr"> 2390 </span> <span class="subxComment"># convert</span> -<span id="L2391" class="LineNr"> 2391 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2392" class="LineNr"> 2392 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2393" class="Folded"> 2393 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2399" class="LineNr"> 2399 </span> <span class="subxComment"># check output</span> -<span id="L2400" class="LineNr"> 2400 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) -<span id="L2401" class="LineNr"> 2401 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) -<span id="L2402" class="LineNr"> 2402 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) -<span id="L2403" class="LineNr"> 2403 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) -<span id="L2404" class="LineNr"> 2404 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) -<span id="L2405" class="LineNr"> 2405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) -<span id="L2406" class="LineNr"> 2406 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) -<span id="L2407" class="LineNr"> 2407 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) -<span id="L2408" class="LineNr"> 2408 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) -<span id="L2409" class="LineNr"> 2409 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) -<span id="L2410" class="LineNr"> 2410 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) -<span id="L2411" class="LineNr"> 2411 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) -<span id="L2412" class="LineNr"> 2412 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) -<span id="L2413" class="LineNr"> 2413 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) -<span id="L2414" class="LineNr"> 2414 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) -<span id="L2415" class="LineNr"> 2415 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) -<span id="L2416" class="LineNr"> 2416 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) -<span id="L2417" class="LineNr"> 2417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) -<span id="L2418" class="LineNr"> 2418 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) -<span id="L2419" class="LineNr"> 2419 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) -<span id="L2420" class="LineNr"> 2420 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2373'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) -<span id="L2421" class="LineNr"> 2421 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2422" class="LineNr"> 2422 </span> 89/<- %esp 5/r32/ebp -<span id="L2423" class="LineNr"> 2423 </span> 5d/pop-to-ebp -<span id="L2424" class="LineNr"> 2424 </span> c3/return -<span id="L2425" class="LineNr"> 2425 </span> -<span id="L2426" class="LineNr"> 2426 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: -<span id="L2427" class="LineNr"> 2427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2428" class="LineNr"> 2428 </span> 55/push-ebp -<span id="L2429" class="LineNr"> 2429 </span> 89/<- %ebp 4/r32/esp -<span id="L2430" class="LineNr"> 2430 </span> <span class="subxComment"># setup</span> -<span id="L2431" class="LineNr"> 2431 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2432" class="LineNr"> 2432 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2433" class="LineNr"> 2433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2434" class="LineNr"> 2434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2435" class="LineNr"> 2435 </span> <span class="subxComment">#</span> -<span id="L2436" class="LineNr"> 2436 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2437" class="LineNr"> 2437 </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="L2438" class="LineNr"> 2438 </span> (<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="L2439" class="LineNr"> 2439 </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="L2440" class="LineNr"> 2440 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2441" class="LineNr"> 2441 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2442" class="LineNr"> 2442 </span> <span class="subxComment"># convert</span> -<span id="L2443" class="LineNr"> 2443 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2444" class="LineNr"> 2444 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2445" class="Folded"> 2445 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2451" class="LineNr"> 2451 </span> <span class="subxComment"># check output</span> -<span id="L2452" class="LineNr"> 2452 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) -<span id="L2453" class="LineNr"> 2453 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) -<span id="L2454" class="LineNr"> 2454 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) -<span id="L2455" class="LineNr"> 2455 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) -<span id="L2456" class="LineNr"> 2456 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) -<span id="L2457" class="LineNr"> 2457 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) -<span id="L2458" class="LineNr"> 2458 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) -<span id="L2459" class="LineNr"> 2459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) -<span id="L2460" class="LineNr"> 2460 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) -<span id="L2461" class="LineNr"> 2461 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) -<span id="L2462" class="LineNr"> 2462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) -<span id="L2463" class="LineNr"> 2463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) -<span id="L2464" class="LineNr"> 2464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) -<span id="L2465" class="LineNr"> 2465 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) -<span id="L2466" class="LineNr"> 2466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) -<span id="L2467" class="LineNr"> 2467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) -<span id="L2468" class="LineNr"> 2468 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) -<span id="L2469" class="LineNr"> 2469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) -<span id="L2470" class="LineNr"> 2470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2426'>test-convert-function-with-local-var-in-named-block</a>/18"</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-unknown-variable-in-named-block</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#L285'>_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#L436'>_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">" $a: {\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">" compare x, 0\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2498" class="LineNr"> 2498 </span> <span class="subxComment"># convert</span> -<span id="L2499" class="LineNr"> 2499 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L2500" class="LineNr"> 2500 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2501" class="LineNr"> 2501 </span> <span class="subxComment"># restore ed</span> -<span id="L2502" class="LineNr"> 2502 </span> 89/<- %edx 4/r32/esp -<span id="L2503" class="LineNr"> 2503 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2504" class="LineNr"> 2504 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L2505" class="Folded"> 2505 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2511" class="LineNr"> 2511 </span> <span class="subxComment"># check output</span> -<span id="L2512" class="LineNr"> 2512 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2476'>test-unknown-variable-in-named-block</a>: output should be empty"</span>) -<span id="L2513" class="LineNr"> 2513 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2476'>test-unknown-variable-in-named-block</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2514" class="LineNr"> 2514 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2515" class="LineNr"> 2515 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2476'>test-unknown-variable-in-named-block</a>: exit status"</span>) -<span id="L2516" class="LineNr"> 2516 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2517" class="LineNr"> 2517 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2518" class="LineNr"> 2518 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2519" class="LineNr"> 2519 </span> 5d/pop-to-ebp -<span id="L2520" class="LineNr"> 2520 </span> c3/return -<span id="L2521" class="LineNr"> 2521 </span> -<span id="L2522" class="LineNr"> 2522 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: -<span id="L2523" class="LineNr"> 2523 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2524" class="LineNr"> 2524 </span> 55/push-ebp -<span id="L2525" class="LineNr"> 2525 </span> 89/<- %ebp 4/r32/esp -<span id="L2526" class="LineNr"> 2526 </span> <span class="subxComment"># setup</span> -<span id="L2527" class="LineNr"> 2527 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2528" class="LineNr"> 2528 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L285'>_test-output-stream</a>) -<span id="L2530" class="LineNr"> 2530 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2531" class="LineNr"> 2531 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/ecx: int <- copy 3\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2537" class="LineNr"> 2537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) -<span id="L2547" class="LineNr"> 2547 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2234'>test-convert-compare-register-with-literal</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) -<span id="L2557" class="LineNr"> 2557 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2522'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</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="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="subxMinorFunction">_pending-test-clobber-dead-local</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 -<span id="L2569" class="LineNr"> 2569 </span> <span class="subxComment"># setup</span> -<span id="L2570" class="LineNr"> 2570 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2571" class="LineNr"> 2571 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2572" class="LineNr"> 2572 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<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">" {\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">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2579" class="LineNr"> 2579 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2580" class="LineNr"> 2580 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2581" class="LineNr"> 2581 </span> <span class="subxComment"># convert</span> -<span id="L2582" class="LineNr"> 2582 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2583" class="LineNr"> 2583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2584" class="Folded"> 2584 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2590" class="LineNr"> 2590 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-clobber-dead-local/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-clobber-dead-local/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-clobber-dead-local/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-clobber-dead-local/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-clobber-dead-local/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-clobber-dead-local/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - test-clobber-dead-local/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - test-clobber-dead-local/7"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-clobber-dead-local/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - test-clobber-dead-local/9"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - test-clobber-dead-local/10"</span>) <span class="subxComment"># no push/pop here</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-clobber-dead-local/11"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - test-clobber-dead-local/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - test-clobber-dead-local/13"</span>) -<span id="L2605" class="LineNr"> 2605 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-clobber-dead-local/14"</span>) -<span id="L2606" class="LineNr"> 2606 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-clobber-dead-local/15"</span>) -<span id="L2607" class="LineNr"> 2607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-clobber-dead-local/16"</span>) -<span id="L2608" class="LineNr"> 2608 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-clobber-dead-local/17"</span>) -<span id="L2609" class="LineNr"> 2609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-clobber-dead-local/18"</span>) -<span id="L2610" class="LineNr"> 2610 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-clobber-dead-local/19"</span>) -<span id="L2611" class="LineNr"> 2611 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2612" class="LineNr"> 2612 </span> 89/<- %esp 5/r32/ebp -<span id="L2613" class="LineNr"> 2613 </span> 5d/pop-to-ebp -<span id="L2614" class="LineNr"> 2614 </span> c3/return -<span id="L2615" class="LineNr"> 2615 </span> -<span id="L2616" class="LineNr"> 2616 </span><span class="subxTest">test-shadow-live-local</span>: -<span id="L2617" class="LineNr"> 2617 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2618" class="LineNr"> 2618 </span> 55/push-ebp -<span id="L2619" class="LineNr"> 2619 </span> 89/<- %ebp 4/r32/esp -<span id="L2620" class="LineNr"> 2620 </span> <span class="subxComment"># setup</span> -<span id="L2621" class="LineNr"> 2621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2622" class="LineNr"> 2622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2623" class="LineNr"> 2623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2624" class="LineNr"> 2624 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2625" class="LineNr"> 2625 </span> <span class="subxComment">#</span> -<span id="L2626" class="LineNr"> 2626 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2627" class="LineNr"> 2627 </span> (<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="L2628" class="LineNr"> 2628 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2629" class="LineNr"> 2629 </span> (<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="L2630" class="LineNr"> 2630 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2631" class="LineNr"> 2631 </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="L2632" class="LineNr"> 2632 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2633" class="LineNr"> 2633 </span> <span class="subxComment"># convert</span> -<span id="L2634" class="LineNr"> 2634 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2635" class="LineNr"> 2635 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2636" class="Folded"> 2636 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2642" class="LineNr"> 2642 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-live-local/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/6"</span>) -<span id="L2650" class="LineNr"> 2650 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/7"</span>) -<span id="L2651" class="LineNr"> 2651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/8"</span>) -<span id="L2652" class="LineNr"> 2652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/9"</span>) -<span id="L2653" class="LineNr"> 2653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/10"</span>) -<span id="L2654" class="LineNr"> 2654 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/11"</span>) -<span id="L2655" class="LineNr"> 2655 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/12"</span>) -<span id="L2656" class="LineNr"> 2656 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/13"</span>) -<span id="L2657" class="LineNr"> 2657 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/14"</span>) -<span id="L2658" class="LineNr"> 2658 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/15"</span>) -<span id="L2659" class="LineNr"> 2659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/16"</span>) -<span id="L2660" class="LineNr"> 2660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/17"</span>) -<span id="L2661" class="LineNr"> 2661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/18"</span>) -<span id="L2662" class="LineNr"> 2662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-live-local/19"</span>) -<span id="L2663" class="LineNr"> 2663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/20"</span>) -<span id="L2664" class="LineNr"> 2664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/21"</span>) -<span id="L2665" class="LineNr"> 2665 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2616'>test-shadow-live-local</a>/22"</span>) -<span id="L2666" class="LineNr"> 2666 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2667" class="LineNr"> 2667 </span> 89/<- %esp 5/r32/ebp -<span id="L2668" class="LineNr"> 2668 </span> 5d/pop-to-ebp -<span id="L2669" class="LineNr"> 2669 </span> c3/return -<span id="L2670" class="LineNr"> 2670 </span> -<span id="L2671" class="LineNr"> 2671 </span><span class="subxTest">test-shadow-name</span>: -<span id="L2672" class="LineNr"> 2672 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2673" class="LineNr"> 2673 </span> 55/push-ebp -<span id="L2674" class="LineNr"> 2674 </span> 89/<- %ebp 4/r32/esp -<span id="L2675" class="LineNr"> 2675 </span> <span class="subxComment"># setup</span> -<span id="L2676" class="LineNr"> 2676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2677" class="LineNr"> 2677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2678" class="LineNr"> 2678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2679" class="LineNr"> 2679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2680" class="LineNr"> 2680 </span> <span class="subxComment">#</span> -<span id="L2681" class="LineNr"> 2681 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2682" class="LineNr"> 2682 </span> (<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="L2683" class="LineNr"> 2683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2684" class="LineNr"> 2684 </span> (<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="L2685" class="LineNr"> 2685 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2686" class="LineNr"> 2686 </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="L2687" class="LineNr"> 2687 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2688" class="LineNr"> 2688 </span> <span class="subxComment"># convert</span> -<span id="L2689" class="LineNr"> 2689 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2690" class="LineNr"> 2690 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2691" class="Folded"> 2691 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2697" class="LineNr"> 2697 </span> <span class="subxComment"># check output</span> -<span id="L2698" class="LineNr"> 2698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/0"</span>) -<span id="L2699" class="LineNr"> 2699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) -<span id="L2700" class="LineNr"> 2700 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/2"</span>) -<span id="L2701" class="LineNr"> 2701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/3"</span>) -<span id="L2702" class="LineNr"> 2702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/4"</span>) -<span id="L2703" class="LineNr"> 2703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/5"</span>) -<span id="L2704" class="LineNr"> 2704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/6"</span>) -<span id="L2705" class="LineNr"> 2705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/7"</span>) -<span id="L2706" class="LineNr"> 2706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/8"</span>) -<span id="L2707" class="LineNr"> 2707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/9"</span>) -<span id="L2708" class="LineNr"> 2708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/10"</span>) -<span id="L2709" class="LineNr"> 2709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/11"</span>) -<span id="L2710" class="LineNr"> 2710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/12"</span>) -<span id="L2711" class="LineNr"> 2711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/13"</span>) -<span id="L2712" class="LineNr"> 2712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/14"</span>) -<span id="L2713" class="LineNr"> 2713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/15"</span>) -<span id="L2714" class="LineNr"> 2714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/16"</span>) -<span id="L2715" class="LineNr"> 2715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/17"</span>) -<span id="L2716" class="LineNr"> 2716 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/18"</span>) -<span id="L2717" class="LineNr"> 2717 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) -<span id="L2718" class="LineNr"> 2718 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/20"</span>) -<span id="L2719" class="LineNr"> 2719 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/21"</span>) -<span id="L2720" class="LineNr"> 2720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2671'>test-shadow-name</a>/22"</span>) -<span id="L2721" class="LineNr"> 2721 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2722" class="LineNr"> 2722 </span> 89/<- %esp 5/r32/ebp -<span id="L2723" class="LineNr"> 2723 </span> 5d/pop-to-ebp -<span id="L2724" class="LineNr"> 2724 </span> c3/return -<span id="L2725" class="LineNr"> 2725 </span> -<span id="L2726" class="LineNr"> 2726 </span><span class="subxTest">test-shadow-name-2</span>: -<span id="L2727" class="LineNr"> 2727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2728" class="LineNr"> 2728 </span> 55/push-ebp -<span id="L2729" class="LineNr"> 2729 </span> 89/<- %ebp 4/r32/esp -<span id="L2730" class="LineNr"> 2730 </span> <span class="subxComment"># setup</span> -<span id="L2731" class="LineNr"> 2731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2732" class="LineNr"> 2732 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2733" class="LineNr"> 2733 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2734" class="LineNr"> 2734 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2735" class="LineNr"> 2735 </span> <span class="subxComment">#</span> -<span id="L2736" class="LineNr"> 2736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2737" class="LineNr"> 2737 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2738" class="LineNr"> 2738 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2739" class="LineNr"> 2739 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) -<span id="L2740" class="LineNr"> 2740 </span> (<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="L2741" class="LineNr"> 2741 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L2742" class="LineNr"> 2742 </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="L2743" class="LineNr"> 2743 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2744" class="LineNr"> 2744 </span> <span class="subxComment"># convert</span> -<span id="L2745" class="LineNr"> 2745 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2746" class="LineNr"> 2746 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2747" class="Folded"> 2747 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2753" class="LineNr"> 2753 </span> <span class="subxComment"># check output</span> -<span id="L2754" class="LineNr"> 2754 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/0"</span>) -<span id="L2755" class="LineNr"> 2755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) -<span id="L2756" class="LineNr"> 2756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/2"</span>) -<span id="L2757" class="LineNr"> 2757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/3"</span>) -<span id="L2758" class="LineNr"> 2758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/4"</span>) -<span id="L2759" class="LineNr"> 2759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/5"</span>) -<span id="L2760" class="LineNr"> 2760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/6"</span>) -<span id="L2761" class="LineNr"> 2761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/7"</span>) -<span id="L2762" class="LineNr"> 2762 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/8"</span>) -<span id="L2763" class="LineNr"> 2763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/9"</span>) -<span id="L2764" class="LineNr"> 2764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/10"</span>) -<span id="L2765" class="LineNr"> 2765 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/11"</span>) -<span id="L2766" class="LineNr"> 2766 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/12"</span>) -<span id="L2767" class="LineNr"> 2767 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/13"</span>) -<span id="L2768" class="LineNr"> 2768 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/14"</span>) -<span id="L2769" class="LineNr"> 2769 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/15"</span>) -<span id="L2770" class="LineNr"> 2770 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/16"</span>) -<span id="L2771" class="LineNr"> 2771 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/17"</span>) -<span id="L2772" class="LineNr"> 2772 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/18"</span>) -<span id="L2773" class="LineNr"> 2773 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/19"</span>) -<span id="L2774" class="LineNr"> 2774 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/20"</span>) -<span id="L2775" class="LineNr"> 2775 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/21"</span>) -<span id="L2776" class="LineNr"> 2776 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</span>) -<span id="L2777" class="LineNr"> 2777 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/23"</span>) -<span id="L2778" class="LineNr"> 2778 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/24"</span>) -<span id="L2779" class="LineNr"> 2779 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2726'>test-shadow-name-2</a>/25"</span>) -<span id="L2780" class="LineNr"> 2780 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2781" class="LineNr"> 2781 </span> 89/<- %esp 5/r32/ebp -<span id="L2782" class="LineNr"> 2782 </span> 5d/pop-to-ebp -<span id="L2783" class="LineNr"> 2783 </span> c3/return -<span id="L2784" class="LineNr"> 2784 </span> -<span id="L2785" class="LineNr"> 2785 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: -<span id="L2786" class="LineNr"> 2786 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2787" class="LineNr"> 2787 </span> 55/push-ebp -<span id="L2788" class="LineNr"> 2788 </span> 89/<- %ebp 4/r32/esp -<span id="L2789" class="LineNr"> 2789 </span> <span class="subxComment"># setup</span> -<span id="L2790" class="LineNr"> 2790 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2791" class="LineNr"> 2791 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2792" class="LineNr"> 2792 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2793" class="LineNr"> 2793 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2794" class="LineNr"> 2794 </span> <span class="subxComment">#</span> -<span id="L2795" class="LineNr"> 2795 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2796" class="LineNr"> 2796 </span> (<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="L2797" class="LineNr"> 2797 </span> (<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="L2798" class="LineNr"> 2798 </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="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">"}\n"</span>) -<span id="L2800" class="LineNr"> 2800 </span> <span class="subxComment"># convert</span> -<span id="L2801" class="LineNr"> 2801 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2802" class="LineNr"> 2802 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2803" class="Folded"> 2803 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2809" class="LineNr"> 2809 </span> <span class="subxComment"># check output</span> -<span id="L2810" class="LineNr"> 2810 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/0"</span>) -<span id="L2811" class="LineNr"> 2811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) -<span id="L2812" class="LineNr"> 2812 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) -<span id="L2824" class="LineNr"> 2824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2785'>test-do-not-spill-same-register-in-block</a>/16"</span>) -<span id="L2827" class="LineNr"> 2827 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2828" class="LineNr"> 2828 </span> 89/<- %esp 5/r32/ebp -<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="subxTest">test-spill-different-register-in-block</span>: -<span id="L2833" class="LineNr"> 2833 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2834" class="LineNr"> 2834 </span> 55/push-ebp -<span id="L2835" class="LineNr"> 2835 </span> 89/<- %ebp 4/r32/esp -<span id="L2836" class="LineNr"> 2836 </span> <span class="subxComment"># setup</span> -<span id="L2837" class="LineNr"> 2837 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2838" class="LineNr"> 2838 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2839" class="LineNr"> 2839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2840" class="LineNr"> 2840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2841" class="LineNr"> 2841 </span> <span class="subxComment">#</span> -<span id="L2842" class="LineNr"> 2842 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x/eax: int <- copy 3\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 y/ecx: int <- copy 4\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">" y <- increment\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2849" class="LineNr"> 2849 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</a>/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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) -<span id="L2873" class="LineNr"> 2873 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</a>/16"</span>) -<span id="L2874" class="LineNr"> 2874 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</a>/17"</span>) -<span id="L2875" class="LineNr"> 2875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2832'>test-spill-different-register-in-block</a>/18"</span>) -<span id="L2876" class="LineNr"> 2876 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2877" class="LineNr"> 2877 </span> 89/<- %esp 5/r32/ebp -<span id="L2878" class="LineNr"> 2878 </span> 5d/pop-to-ebp -<span id="L2879" class="LineNr"> 2879 </span> c3/return -<span id="L2880" class="LineNr"> 2880 </span> -<span id="L2881" class="LineNr"> 2881 </span><span class="subxTest">test-shadow-live-output</span>: -<span id="L2882" class="LineNr"> 2882 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2883" class="LineNr"> 2883 </span> 55/push-ebp -<span id="L2884" class="LineNr"> 2884 </span> 89/<- %ebp 4/r32/esp -<span id="L2885" class="LineNr"> 2885 </span> <span class="subxComment"># setup</span> -<span id="L2886" class="LineNr"> 2886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2887" class="LineNr"> 2887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2888" class="LineNr"> 2888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2889" class="LineNr"> 2889 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2890" class="LineNr"> 2890 </span> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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">" x <- copy 3\n"</span>) -<span id="L2893" class="LineNr"> 2893 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L2894" class="LineNr"> 2894 </span> (<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="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">" }\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">" x <- increment\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2900" class="LineNr"> 2900 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2901" class="Folded"> 2901 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2907" class="LineNr"> 2907 </span> <span class="subxComment"># check output</span> -<span id="L2908" class="LineNr"> 2908 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/0"</span>) -<span id="L2909" class="LineNr"> 2909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-live-output/1"</span>) -<span id="L2910" class="LineNr"> 2910 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/2"</span>) -<span id="L2911" class="LineNr"> 2911 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/3"</span>) -<span id="L2912" class="LineNr"> 2912 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/4"</span>) -<span id="L2913" class="LineNr"> 2913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/5"</span>) -<span id="L2914" class="LineNr"> 2914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/7"</span>) <span class="subxComment"># no push because it's an output reg</span> -<span id="L2915" class="LineNr"> 2915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/8"</span>) -<span id="L2916" class="LineNr"> 2916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/9"</span>) -<span id="L2917" class="LineNr"> 2917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/10"</span>) -<span id="L2918" class="LineNr"> 2918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/11"</span>) -<span id="L2919" class="LineNr"> 2919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/12"</span>) -<span id="L2920" class="LineNr"> 2920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/13"</span>) -<span id="L2921" class="LineNr"> 2921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/14"</span>) -<span id="L2922" class="LineNr"> 2922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/15"</span>) -<span id="L2923" class="LineNr"> 2923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/17"</span>) -<span id="L2924" class="LineNr"> 2924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/18"</span>) -<span id="L2925" class="LineNr"> 2925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-live-output/19"</span>) -<span id="L2926" class="LineNr"> 2926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/20"</span>) -<span id="L2927" class="LineNr"> 2927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/21"</span>) -<span id="L2928" class="LineNr"> 2928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2881'>test-shadow-live-output</a>/21"</span>) -<span id="L2929" class="LineNr"> 2929 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2930" class="LineNr"> 2930 </span> 89/<- %esp 5/r32/ebp -<span id="L2931" class="LineNr"> 2931 </span> 5d/pop-to-ebp -<span id="L2932" class="LineNr"> 2932 </span> c3/return -<span id="L2933" class="LineNr"> 2933 </span> -<span id="L2934" class="LineNr"> 2934 </span><span class="subxTest">test-stmt-defines-output-in-same-register-as-inout</span>: -<span id="L2935" class="LineNr"> 2935 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2936" class="LineNr"> 2936 </span> 55/push-ebp -<span id="L2937" class="LineNr"> 2937 </span> 89/<- %ebp 4/r32/esp -<span id="L2938" class="LineNr"> 2938 </span> <span class="subxComment"># setup</span> -<span id="L2939" class="LineNr"> 2939 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2940" class="LineNr"> 2940 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2941" class="LineNr"> 2941 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2942" class="LineNr"> 2942 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2943" class="LineNr"> 2943 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2944" class="LineNr"> 2944 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2945" class="LineNr"> 2945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2946" class="LineNr"> 2946 </span> 68/push 0/imm32 -<span id="L2947" class="LineNr"> 2947 </span> 68/push 0/imm32 -<span id="L2948" class="LineNr"> 2948 </span> 89/<- %edx 4/r32/esp -<span id="L2949" class="LineNr"> 2949 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2950" class="LineNr"> 2950 </span> <span class="subxComment">#</span> -<span id="L2951" class="LineNr"> 2951 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> x/ecx: int {\n"</span>) -<span id="L2952" class="LineNr"> 2952 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2953" class="LineNr"> 2953 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) <span class="subxComment"># writing to a fn output is currently the only way for a statement to define a new var</span> -<span id="L2954" class="LineNr"> 2954 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2955" class="LineNr"> 2955 </span> <span class="subxComment"># convert</span> -<span id="L2956" class="LineNr"> 2956 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L2957" class="LineNr"> 2957 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2958" class="LineNr"> 2958 </span> <span class="subxComment"># restore ed</span> -<span id="L2959" class="LineNr"> 2959 </span> 89/<- %edx 4/r32/esp -<span id="L2960" class="LineNr"> 2960 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2961" class="LineNr"> 2961 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L2962" class="Folded"> 2962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2968" class="LineNr"> 2968 </span> <span class="subxComment"># no error; we looked up 'y' correctly before pushing the binding for 'x'</span> -<span id="L2969" class="LineNr"> 2969 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2934'>test-stmt-defines-output-in-same-register-as-inout</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L2970" class="LineNr"> 2970 </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="L2971" class="LineNr"> 2971 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2972" class="LineNr"> 2972 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2332" class="LineNr"> 2332 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L2333" class="LineNr"> 2333 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2334" class="LineNr"> 2334 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2335" class="LineNr"> 2335 </span> 68/push 0/imm32 +<span id="L2336" class="LineNr"> 2336 </span> 68/push 0/imm32 +<span id="L2337" class="LineNr"> 2337 </span> 89/<- %edx 4/r32/esp +<span id="L2338" class="LineNr"> 2338 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2339" class="LineNr"> 2339 </span> <span class="subxComment">#</span> +<span id="L2340" class="LineNr"> 2340 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2341" class="LineNr"> 2341 </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="L2342" class="LineNr"> 2342 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2343" class="LineNr"> 2343 </span> <span class="subxComment"># convert</span> +<span id="L2344" class="LineNr"> 2344 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L2345" class="LineNr"> 2345 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2346" class="LineNr"> 2346 </span> <span class="subxComment"># restore ed</span> +<span id="L2347" class="LineNr"> 2347 </span> 89/<- %edx 4/r32/esp +<span id="L2348" class="LineNr"> 2348 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2349" class="LineNr"> 2349 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L2350" class="Folded"> 2350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2356" class="LineNr"> 2356 </span> <span class="subxComment"># check output</span> +<span id="L2357" class="LineNr"> 2357 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-unknown-variable</a>: output should be empty"</span>) +<span id="L2358" class="LineNr"> 2358 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-unknown-variable</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L2359" class="LineNr"> 2359 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2360" class="LineNr"> 2360 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2323'>test-unknown-variable</a>: exit status"</span>) +<span id="L2361" class="LineNr"> 2361 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2362" class="LineNr"> 2362 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2363" class="LineNr"> 2363 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2364" class="LineNr"> 2364 </span> 5d/pop-to-ebp +<span id="L2365" class="LineNr"> 2365 </span> c3/return +<span id="L2366" class="LineNr"> 2366 </span> +<span id="L2367" class="LineNr"> 2367 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: +<span id="L2368" class="LineNr"> 2368 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2369" class="LineNr"> 2369 </span> 55/push-ebp +<span id="L2370" class="LineNr"> 2370 </span> 89/<- %ebp 4/r32/esp +<span id="L2371" class="LineNr"> 2371 </span> <span class="subxComment"># setup</span> +<span id="L2372" class="LineNr"> 2372 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2373" class="LineNr"> 2373 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2374" class="LineNr"> 2374 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2375" class="LineNr"> 2375 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2376" class="LineNr"> 2376 </span> <span class="subxComment">#</span> +<span id="L2377" class="LineNr"> 2377 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2378" class="LineNr"> 2378 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2379" class="LineNr"> 2379 </span> (<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="L2380" class="LineNr"> 2380 </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="L2381" class="LineNr"> 2381 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2382" class="LineNr"> 2382 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2383" class="LineNr"> 2383 </span> <span class="subxComment"># convert</span> +<span id="L2384" class="LineNr"> 2384 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2385" class="LineNr"> 2385 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2386" class="Folded"> 2386 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2392" class="LineNr"> 2392 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) +<span id="L2395" class="LineNr"> 2395 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/5"</span>) +<span id="L2399" class="LineNr"> 2399 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/6"</span>) +<span id="L2400" class="LineNr"> 2400 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/7"</span>) +<span id="L2401" class="LineNr"> 2401 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/8"</span>) +<span id="L2402" class="LineNr"> 2402 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/9"</span>) +<span id="L2403" class="LineNr"> 2403 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/10"</span>) +<span id="L2404" class="LineNr"> 2404 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/11"</span>) +<span id="L2405" class="LineNr"> 2405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/12"</span>) +<span id="L2406" class="LineNr"> 2406 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/13"</span>) +<span id="L2407" class="LineNr"> 2407 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/14"</span>) +<span id="L2408" class="LineNr"> 2408 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) +<span id="L2409" class="LineNr"> 2409 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/16"</span>) +<span id="L2410" class="LineNr"> 2410 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/17"</span>) +<span id="L2411" class="LineNr"> 2411 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2367'>test-convert-function-with-local-var-in-block</a>/18"</span>) +<span id="L2412" class="LineNr"> 2412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2413" class="LineNr"> 2413 </span> 89/<- %esp 5/r32/ebp +<span id="L2414" class="LineNr"> 2414 </span> 5d/pop-to-ebp +<span id="L2415" class="LineNr"> 2415 </span> c3/return +<span id="L2416" class="LineNr"> 2416 </span> +<span id="L2417" class="LineNr"> 2417 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: +<span id="L2418" class="LineNr"> 2418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2419" class="LineNr"> 2419 </span> 55/push-ebp +<span id="L2420" class="LineNr"> 2420 </span> 89/<- %ebp 4/r32/esp +<span id="L2421" class="LineNr"> 2421 </span> <span class="subxComment"># setup</span> +<span id="L2422" class="LineNr"> 2422 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2423" class="LineNr"> 2423 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2424" class="LineNr"> 2424 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2425" class="LineNr"> 2425 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2426" class="LineNr"> 2426 </span> <span class="subxComment">#</span> +<span id="L2427" class="LineNr"> 2427 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2428" class="LineNr"> 2428 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2429" class="LineNr"> 2429 </span> (<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="L2430" class="LineNr"> 2430 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2431" class="LineNr"> 2431 </span> (<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="L2432" class="LineNr"> 2432 </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="L2433" class="LineNr"> 2433 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2434" class="LineNr"> 2434 </span> <span class="subxComment"># convert</span> +<span id="L2435" class="LineNr"> 2435 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2436" class="LineNr"> 2436 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2437" class="Folded"> 2437 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2443" class="LineNr"> 2443 </span> <span class="subxComment"># check output</span> +<span id="L2444" class="LineNr"> 2444 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) +<span id="L2445" class="LineNr"> 2445 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) +<span id="L2446" class="LineNr"> 2446 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) +<span id="L2447" class="LineNr"> 2447 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) +<span id="L2448" class="LineNr"> 2448 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) +<span id="L2449" class="LineNr"> 2449 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) +<span id="L2450" class="LineNr"> 2450 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) +<span id="L2451" class="LineNr"> 2451 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) +<span id="L2452" class="LineNr"> 2452 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) +<span id="L2453" class="LineNr"> 2453 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) +<span id="L2454" class="LineNr"> 2454 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) +<span id="L2455" class="LineNr"> 2455 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) +<span id="L2456" class="LineNr"> 2456 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) +<span id="L2457" class="LineNr"> 2457 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) +<span id="L2458" class="LineNr"> 2458 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) +<span id="L2459" class="LineNr"> 2459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) +<span id="L2460" class="LineNr"> 2460 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) +<span id="L2461" class="LineNr"> 2461 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) +<span id="L2462" class="LineNr"> 2462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) +<span id="L2463" class="LineNr"> 2463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) +<span id="L2464" class="LineNr"> 2464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2417'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) +<span id="L2465" class="LineNr"> 2465 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2466" class="LineNr"> 2466 </span> 89/<- %esp 5/r32/ebp +<span id="L2467" class="LineNr"> 2467 </span> 5d/pop-to-ebp +<span id="L2468" class="LineNr"> 2468 </span> c3/return +<span id="L2469" class="LineNr"> 2469 </span> +<span id="L2470" class="LineNr"> 2470 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: +<span id="L2471" class="LineNr"> 2471 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2472" class="LineNr"> 2472 </span> 55/push-ebp +<span id="L2473" class="LineNr"> 2473 </span> 89/<- %ebp 4/r32/esp +<span id="L2474" class="LineNr"> 2474 </span> <span class="subxComment"># setup</span> +<span id="L2475" class="LineNr"> 2475 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2476" class="LineNr"> 2476 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2477" class="LineNr"> 2477 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2478" class="LineNr"> 2478 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2479" class="LineNr"> 2479 </span> <span class="subxComment">#</span> +<span id="L2480" class="LineNr"> 2480 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2481" class="LineNr"> 2481 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) +<span id="L2482" class="LineNr"> 2482 </span> (<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="L2483" class="LineNr"> 2483 </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="L2484" class="LineNr"> 2484 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2485" class="LineNr"> 2485 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2486" class="LineNr"> 2486 </span> <span class="subxComment"># convert</span> +<span id="L2487" class="LineNr"> 2487 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2488" class="LineNr"> 2488 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2489" class="Folded"> 2489 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2495" class="LineNr"> 2495 </span> <span class="subxComment"># check output</span> +<span id="L2496" class="LineNr"> 2496 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) +<span id="L2497" class="LineNr"> 2497 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) +<span id="L2498" class="LineNr"> 2498 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) +<span id="L2499" class="LineNr"> 2499 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) +<span id="L2500" class="LineNr"> 2500 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) +<span id="L2501" class="LineNr"> 2501 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) +<span id="L2502" class="LineNr"> 2502 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) +<span id="L2503" class="LineNr"> 2503 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) +<span id="L2504" class="LineNr"> 2504 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) +<span id="L2505" class="LineNr"> 2505 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) +<span id="L2506" class="LineNr"> 2506 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) +<span id="L2507" class="LineNr"> 2507 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) +<span id="L2508" class="LineNr"> 2508 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) +<span id="L2509" class="LineNr"> 2509 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) +<span id="L2510" class="LineNr"> 2510 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) +<span id="L2511" class="LineNr"> 2511 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) +<span id="L2512" class="LineNr"> 2512 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) +<span id="L2513" class="LineNr"> 2513 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) +<span id="L2514" class="LineNr"> 2514 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2470'>test-convert-function-with-local-var-in-named-block</a>/18"</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-unknown-variable-in-named-block</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#L285'>_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#L436'>_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">" $a: {\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">" compare x, 0\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2542" class="LineNr"> 2542 </span> <span class="subxComment"># convert</span> +<span id="L2543" class="LineNr"> 2543 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L2544" class="LineNr"> 2544 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2545" class="LineNr"> 2545 </span> <span class="subxComment"># restore ed</span> +<span id="L2546" class="LineNr"> 2546 </span> 89/<- %edx 4/r32/esp +<span id="L2547" class="LineNr"> 2547 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2548" class="LineNr"> 2548 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L2549" class="Folded"> 2549 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2555" class="LineNr"> 2555 </span> <span class="subxComment"># check output</span> +<span id="L2556" class="LineNr"> 2556 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2520'>test-unknown-variable-in-named-block</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2520'>test-unknown-variable-in-named-block</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L2558" class="LineNr"> 2558 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2559" class="LineNr"> 2559 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2520'>test-unknown-variable-in-named-block</a>: exit status"</span>) +<span id="L2560" class="LineNr"> 2560 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2561" class="LineNr"> 2561 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2562" class="LineNr"> 2562 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2563" class="LineNr"> 2563 </span> 5d/pop-to-ebp +<span id="L2564" class="LineNr"> 2564 </span> c3/return +<span id="L2565" class="LineNr"> 2565 </span> +<span id="L2566" class="LineNr"> 2566 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: +<span id="L2567" class="LineNr"> 2567 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2568" class="LineNr"> 2568 </span> 55/push-ebp +<span id="L2569" class="LineNr"> 2569 </span> 89/<- %ebp 4/r32/esp +<span id="L2570" class="LineNr"> 2570 </span> <span class="subxComment"># setup</span> +<span id="L2571" class="LineNr"> 2571 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2572" class="LineNr"> 2572 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2573" class="LineNr"> 2573 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2574" class="LineNr"> 2574 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2575" class="LineNr"> 2575 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/ecx: int <- copy 3\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2581" class="LineNr"> 2581 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) +<span id="L2591" class="LineNr"> 2591 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2278'>test-convert-compare-register-with-literal</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) +<span id="L2601" class="LineNr"> 2601 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2566'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</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="subxMinorFunction">_pending-test-clobber-dead-local</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#L285'>_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">" {\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 4\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2625" class="LineNr"> 2625 </span> <span class="subxComment"># convert</span> +<span id="L2626" class="LineNr"> 2626 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2627" class="LineNr"> 2627 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2628" class="Folded"> 2628 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2634" class="LineNr"> 2634 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-clobber-dead-local/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-clobber-dead-local/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-clobber-dead-local/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-clobber-dead-local/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-clobber-dead-local/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-clobber-dead-local/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - test-clobber-dead-local/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - test-clobber-dead-local/7"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-clobber-dead-local/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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - test-clobber-dead-local/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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - test-clobber-dead-local/10"</span>) <span class="subxComment"># no push/pop here</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-clobber-dead-local/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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - test-clobber-dead-local/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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - test-clobber-dead-local/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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-clobber-dead-local/14"</span>) +<span id="L2650" class="LineNr"> 2650 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-clobber-dead-local/15"</span>) +<span id="L2651" class="LineNr"> 2651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-clobber-dead-local/16"</span>) +<span id="L2652" class="LineNr"> 2652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-clobber-dead-local/17"</span>) +<span id="L2653" class="LineNr"> 2653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-clobber-dead-local/18"</span>) +<span id="L2654" class="LineNr"> 2654 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-clobber-dead-local/19"</span>) +<span id="L2655" class="LineNr"> 2655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2656" class="LineNr"> 2656 </span> 89/<- %esp 5/r32/ebp +<span id="L2657" class="LineNr"> 2657 </span> 5d/pop-to-ebp +<span id="L2658" class="LineNr"> 2658 </span> c3/return +<span id="L2659" class="LineNr"> 2659 </span> +<span id="L2660" class="LineNr"> 2660 </span><span class="subxTest">test-shadow-live-local</span>: +<span id="L2661" class="LineNr"> 2661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2662" class="LineNr"> 2662 </span> 55/push-ebp +<span id="L2663" class="LineNr"> 2663 </span> 89/<- %ebp 4/r32/esp +<span id="L2664" class="LineNr"> 2664 </span> <span class="subxComment"># setup</span> +<span id="L2665" class="LineNr"> 2665 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2666" class="LineNr"> 2666 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2667" class="LineNr"> 2667 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2668" class="LineNr"> 2668 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2669" class="LineNr"> 2669 </span> <span class="subxComment">#</span> +<span id="L2670" class="LineNr"> 2670 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2671" class="LineNr"> 2671 </span> (<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="L2672" class="LineNr"> 2672 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2673" class="LineNr"> 2673 </span> (<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="L2674" class="LineNr"> 2674 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2675" class="LineNr"> 2675 </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="L2676" class="LineNr"> 2676 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2677" class="LineNr"> 2677 </span> <span class="subxComment"># convert</span> +<span id="L2678" class="LineNr"> 2678 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2679" class="LineNr"> 2679 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2680" class="Folded"> 2680 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2686" class="LineNr"> 2686 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-live-local/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/7"</span>) +<span id="L2695" class="LineNr"> 2695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/8"</span>) +<span id="L2696" class="LineNr"> 2696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/9"</span>) +<span id="L2697" class="LineNr"> 2697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/10"</span>) +<span id="L2698" class="LineNr"> 2698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/11"</span>) +<span id="L2699" class="LineNr"> 2699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/12"</span>) +<span id="L2700" class="LineNr"> 2700 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/13"</span>) +<span id="L2701" class="LineNr"> 2701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/14"</span>) +<span id="L2702" class="LineNr"> 2702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/15"</span>) +<span id="L2703" class="LineNr"> 2703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/16"</span>) +<span id="L2704" class="LineNr"> 2704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/17"</span>) +<span id="L2705" class="LineNr"> 2705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/18"</span>) +<span id="L2706" class="LineNr"> 2706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-live-local/19"</span>) +<span id="L2707" class="LineNr"> 2707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/20"</span>) +<span id="L2708" class="LineNr"> 2708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/21"</span>) +<span id="L2709" class="LineNr"> 2709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2660'>test-shadow-live-local</a>/22"</span>) +<span id="L2710" class="LineNr"> 2710 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2711" class="LineNr"> 2711 </span> 89/<- %esp 5/r32/ebp +<span id="L2712" class="LineNr"> 2712 </span> 5d/pop-to-ebp +<span id="L2713" class="LineNr"> 2713 </span> c3/return +<span id="L2714" class="LineNr"> 2714 </span> +<span id="L2715" class="LineNr"> 2715 </span><span class="subxTest">test-shadow-name</span>: +<span id="L2716" class="LineNr"> 2716 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2717" class="LineNr"> 2717 </span> 55/push-ebp +<span id="L2718" class="LineNr"> 2718 </span> 89/<- %ebp 4/r32/esp +<span id="L2719" class="LineNr"> 2719 </span> <span class="subxComment"># setup</span> +<span id="L2720" class="LineNr"> 2720 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2721" class="LineNr"> 2721 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2722" class="LineNr"> 2722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2723" class="LineNr"> 2723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2724" class="LineNr"> 2724 </span> <span class="subxComment">#</span> +<span id="L2725" class="LineNr"> 2725 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2726" class="LineNr"> 2726 </span> (<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="L2727" class="LineNr"> 2727 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2728" class="LineNr"> 2728 </span> (<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="L2729" class="LineNr"> 2729 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2730" class="LineNr"> 2730 </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="L2731" class="LineNr"> 2731 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2732" class="LineNr"> 2732 </span> <span class="subxComment"># convert</span> +<span id="L2733" class="LineNr"> 2733 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2734" class="LineNr"> 2734 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2735" class="Folded"> 2735 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2741" class="LineNr"> 2741 </span> <span class="subxComment"># check output</span> +<span id="L2742" class="LineNr"> 2742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/0"</span>) +<span id="L2743" class="LineNr"> 2743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) +<span id="L2744" class="LineNr"> 2744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/2"</span>) +<span id="L2745" class="LineNr"> 2745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/3"</span>) +<span id="L2746" class="LineNr"> 2746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/4"</span>) +<span id="L2747" class="LineNr"> 2747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/5"</span>) +<span id="L2748" class="LineNr"> 2748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/6"</span>) +<span id="L2749" class="LineNr"> 2749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/7"</span>) +<span id="L2750" class="LineNr"> 2750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/8"</span>) +<span id="L2751" class="LineNr"> 2751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/9"</span>) +<span id="L2752" class="LineNr"> 2752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/10"</span>) +<span id="L2753" class="LineNr"> 2753 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/11"</span>) +<span id="L2754" class="LineNr"> 2754 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/12"</span>) +<span id="L2755" class="LineNr"> 2755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/13"</span>) +<span id="L2756" class="LineNr"> 2756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/14"</span>) +<span id="L2757" class="LineNr"> 2757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/15"</span>) +<span id="L2758" class="LineNr"> 2758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/16"</span>) +<span id="L2759" class="LineNr"> 2759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/17"</span>) +<span id="L2760" class="LineNr"> 2760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/18"</span>) +<span id="L2761" class="LineNr"> 2761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) +<span id="L2762" class="LineNr"> 2762 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/20"</span>) +<span id="L2763" class="LineNr"> 2763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/21"</span>) +<span id="L2764" class="LineNr"> 2764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2715'>test-shadow-name</a>/22"</span>) +<span id="L2765" class="LineNr"> 2765 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2766" class="LineNr"> 2766 </span> 89/<- %esp 5/r32/ebp +<span id="L2767" class="LineNr"> 2767 </span> 5d/pop-to-ebp +<span id="L2768" class="LineNr"> 2768 </span> c3/return +<span id="L2769" class="LineNr"> 2769 </span> +<span id="L2770" class="LineNr"> 2770 </span><span class="subxTest">test-shadow-name-2</span>: +<span id="L2771" class="LineNr"> 2771 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2772" class="LineNr"> 2772 </span> 55/push-ebp +<span id="L2773" class="LineNr"> 2773 </span> 89/<- %ebp 4/r32/esp +<span id="L2774" class="LineNr"> 2774 </span> <span class="subxComment"># setup</span> +<span id="L2775" class="LineNr"> 2775 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2776" class="LineNr"> 2776 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2777" class="LineNr"> 2777 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2778" class="LineNr"> 2778 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2779" class="LineNr"> 2779 </span> <span class="subxComment">#</span> +<span id="L2780" class="LineNr"> 2780 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2781" class="LineNr"> 2781 </span> (<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="L2782" class="LineNr"> 2782 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2783" class="LineNr"> 2783 </span> (<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="L2784" class="LineNr"> 2784 </span> (<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="L2785" class="LineNr"> 2785 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2786" class="LineNr"> 2786 </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="L2787" class="LineNr"> 2787 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2788" class="LineNr"> 2788 </span> <span class="subxComment"># convert</span> +<span id="L2789" class="LineNr"> 2789 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2790" class="LineNr"> 2790 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2791" class="Folded"> 2791 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2797" class="LineNr"> 2797 </span> <span class="subxComment"># check output</span> +<span id="L2798" class="LineNr"> 2798 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/0"</span>) +<span id="L2799" class="LineNr"> 2799 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) +<span id="L2800" class="LineNr"> 2800 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/2"</span>) +<span id="L2801" class="LineNr"> 2801 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/3"</span>) +<span id="L2802" class="LineNr"> 2802 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/4"</span>) +<span id="L2803" class="LineNr"> 2803 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/5"</span>) +<span id="L2804" class="LineNr"> 2804 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/6"</span>) +<span id="L2805" class="LineNr"> 2805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/7"</span>) +<span id="L2806" class="LineNr"> 2806 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/8"</span>) +<span id="L2807" class="LineNr"> 2807 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/9"</span>) +<span id="L2808" class="LineNr"> 2808 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/10"</span>) +<span id="L2809" class="LineNr"> 2809 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/11"</span>) +<span id="L2810" class="LineNr"> 2810 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/12"</span>) +<span id="L2811" class="LineNr"> 2811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/13"</span>) +<span id="L2812" class="LineNr"> 2812 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2770'>test-shadow-name-2</a>/25"</span>) +<span id="L2824" class="LineNr"> 2824 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2825" class="LineNr"> 2825 </span> 89/<- %esp 5/r32/ebp +<span id="L2826" class="LineNr"> 2826 </span> 5d/pop-to-ebp +<span id="L2827" class="LineNr"> 2827 </span> c3/return +<span id="L2828" class="LineNr"> 2828 </span> +<span id="L2829" class="LineNr"> 2829 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: +<span id="L2830" class="LineNr"> 2830 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2831" class="LineNr"> 2831 </span> 55/push-ebp +<span id="L2832" class="LineNr"> 2832 </span> 89/<- %ebp 4/r32/esp +<span id="L2833" class="LineNr"> 2833 </span> <span class="subxComment"># setup</span> +<span id="L2834" class="LineNr"> 2834 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2835" class="LineNr"> 2835 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2836" class="LineNr"> 2836 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2837" class="LineNr"> 2837 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2838" class="LineNr"> 2838 </span> <span class="subxComment">#</span> +<span id="L2839" class="LineNr"> 2839 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2840" class="LineNr"> 2840 </span> (<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="L2841" class="LineNr"> 2841 </span> (<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="L2842" class="LineNr"> 2842 </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="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">"}\n"</span>) +<span id="L2844" class="LineNr"> 2844 </span> <span class="subxComment"># convert</span> +<span id="L2845" class="LineNr"> 2845 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2846" class="LineNr"> 2846 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2847" class="Folded"> 2847 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2853" class="LineNr"> 2853 </span> <span class="subxComment"># check output</span> +<span id="L2854" class="LineNr"> 2854 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/0"</span>) +<span id="L2855" class="LineNr"> 2855 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) +<span id="L2856" class="LineNr"> 2856 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) +<span id="L2868" class="LineNr"> 2868 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2829'>test-do-not-spill-same-register-in-block</a>/16"</span>) +<span id="L2871" class="LineNr"> 2871 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2872" class="LineNr"> 2872 </span> 89/<- %esp 5/r32/ebp +<span id="L2873" class="LineNr"> 2873 </span> 5d/pop-to-ebp +<span id="L2874" class="LineNr"> 2874 </span> c3/return +<span id="L2875" class="LineNr"> 2875 </span> +<span id="L2876" class="LineNr"> 2876 </span><span class="subxTest">test-spill-different-register-in-block</span>: +<span id="L2877" class="LineNr"> 2877 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2878" class="LineNr"> 2878 </span> 55/push-ebp +<span id="L2879" class="LineNr"> 2879 </span> 89/<- %ebp 4/r32/esp +<span id="L2880" class="LineNr"> 2880 </span> <span class="subxComment"># setup</span> +<span id="L2881" class="LineNr"> 2881 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2882" class="LineNr"> 2882 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2883" class="LineNr"> 2883 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2884" class="LineNr"> 2884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2885" class="LineNr"> 2885 </span> <span class="subxComment">#</span> +<span id="L2886" class="LineNr"> 2886 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2887" class="LineNr"> 2887 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L2888" class="LineNr"> 2888 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\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">" y <- increment\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">"}\n"</span>) +<span id="L2891" class="LineNr"> 2891 </span> <span class="subxComment"># convert</span> +<span id="L2892" class="LineNr"> 2892 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2893" class="LineNr"> 2893 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2894" class="Folded"> 2894 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2900" class="LineNr"> 2900 </span> <span class="subxComment"># check output</span> +<span id="L2901" class="LineNr"> 2901 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/0"</span>) +<span id="L2902" class="LineNr"> 2902 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/1"</span>) +<span id="L2903" class="LineNr"> 2903 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/2"</span>) +<span id="L2904" class="LineNr"> 2904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/3"</span>) +<span id="L2905" class="LineNr"> 2905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/4"</span>) +<span id="L2906" class="LineNr"> 2906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/5"</span>) +<span id="L2907" class="LineNr"> 2907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/6"</span>) +<span id="L2908" class="LineNr"> 2908 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/7"</span>) +<span id="L2909" class="LineNr"> 2909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/8"</span>) +<span id="L2910" class="LineNr"> 2910 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/9"</span>) +<span id="L2911" class="LineNr"> 2911 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/10"</span>) +<span id="L2912" class="LineNr"> 2912 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/11"</span>) +<span id="L2913" class="LineNr"> 2913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/12"</span>) +<span id="L2914" class="LineNr"> 2914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/13"</span>) +<span id="L2915" class="LineNr"> 2915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/14"</span>) +<span id="L2916" class="LineNr"> 2916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) +<span id="L2917" class="LineNr"> 2917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/16"</span>) +<span id="L2918" class="LineNr"> 2918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/17"</span>) +<span id="L2919" class="LineNr"> 2919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2876'>test-spill-different-register-in-block</a>/18"</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-shadow-live-output</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#L285'>_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> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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">" x <- copy 3\n"</span>) +<span id="L2937" class="LineNr"> 2937 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L2938" class="LineNr"> 2938 </span> (<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="L2939" class="LineNr"> 2939 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L2940" class="LineNr"> 2940 </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="L2941" class="LineNr"> 2941 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2942" class="LineNr"> 2942 </span> <span class="subxComment"># convert</span> +<span id="L2943" class="LineNr"> 2943 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2944" class="LineNr"> 2944 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L2945" class="Folded"> 2945 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2951" class="LineNr"> 2951 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-live-output/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/7"</span>) <span class="subxComment"># no push because it's an output reg</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/12"</span>) +<span id="L2964" class="LineNr"> 2964 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/13"</span>) +<span id="L2965" class="LineNr"> 2965 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/14"</span>) +<span id="L2966" class="LineNr"> 2966 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/15"</span>) +<span id="L2967" class="LineNr"> 2967 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/17"</span>) +<span id="L2968" class="LineNr"> 2968 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/18"</span>) +<span id="L2969" class="LineNr"> 2969 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-live-output/19"</span>) +<span id="L2970" class="LineNr"> 2970 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/20"</span>) +<span id="L2971" class="LineNr"> 2971 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/21"</span>) +<span id="L2972" class="LineNr"> 2972 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-shadow-live-output</a>/21"</span>) <span id="L2973" class="LineNr"> 2973 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2974" class="LineNr"> 2974 </span> 5d/pop-to-ebp -<span id="L2975" class="LineNr"> 2975 </span> c3/return -<span id="L2976" class="LineNr"> 2976 </span> -<span id="L2977" class="LineNr"> 2977 </span><span class="subxTest">test-local-clobbered-by-fn-output</span>: -<span id="L2978" class="LineNr"> 2978 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2979" class="LineNr"> 2979 </span> 55/push-ebp -<span id="L2980" class="LineNr"> 2980 </span> 89/<- %ebp 4/r32/esp -<span id="L2981" class="LineNr"> 2981 </span> <span class="subxComment"># setup</span> -<span id="L2982" class="LineNr"> 2982 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2983" class="LineNr"> 2983 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2984" class="LineNr"> 2984 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2985" class="LineNr"> 2985 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2986" class="LineNr"> 2986 </span> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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 <- copy y\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2993" class="LineNr"> 2993 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2994" class="Folded"> 2994 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3000" class="LineNr"> 3000 </span> <span class="subxComment"># check output</span> -<span id="L3001" class="LineNr"> 3001 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/0"</span>) -<span id="L3002" class="LineNr"> 3002 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-local-clobbered-by-fn-output/1"</span>) -<span id="L3003" class="LineNr"> 3003 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/2"</span>) -<span id="L3004" class="LineNr"> 3004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/3"</span>) -<span id="L3005" class="LineNr"> 3005 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/6"</span>) <span class="subxComment"># no push because it's an output reg</span> -<span id="L3008" class="LineNr"> 3008 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/7"</span>) -<span id="L3009" class="LineNr"> 3009 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/8"</span>) -<span id="L3010" class="LineNr"> 3010 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/9"</span>) -<span id="L3011" class="LineNr"> 3011 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-local-clobbered-by-fn-output/10"</span>) -<span id="L3012" class="LineNr"> 3012 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/11"</span>) -<span id="L3013" class="LineNr"> 3013 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/12"</span>) -<span id="L3014" class="LineNr"> 3014 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2977'>test-local-clobbered-by-fn-output</a>/13"</span>) -<span id="L3015" class="LineNr"> 3015 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3016" class="LineNr"> 3016 </span> 89/<- %esp 5/r32/ebp -<span id="L3017" class="LineNr"> 3017 </span> 5d/pop-to-ebp -<span id="L3018" class="LineNr"> 3018 </span> c3/return -<span id="L3019" class="LineNr"> 3019 </span> -<span id="L3020" class="LineNr"> 3020 </span><span class="subxTest">test-read-output</span>: -<span id="L3021" class="LineNr"> 3021 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3022" class="LineNr"> 3022 </span> 55/push-ebp -<span id="L3023" class="LineNr"> 3023 </span> 89/<- %ebp 4/r32/esp -<span id="L3024" class="LineNr"> 3024 </span> <span class="subxComment"># setup</span> -<span id="L3025" class="LineNr"> 3025 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3026" class="LineNr"> 3026 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3027" class="LineNr"> 3027 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3028" class="LineNr"> 3028 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3029" class="LineNr"> 3029 </span> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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">" x <- copy 0x34\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">" compare x, 0x35\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">"}\n"</span>) -<span id="L3034" class="LineNr"> 3034 </span> <span class="subxComment"># convert</span> -<span id="L3035" class="LineNr"> 3035 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3036" class="LineNr"> 3036 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3037" class="Folded"> 3037 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3043" class="LineNr"> 3043 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-read-output/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</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#L285'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0x35/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-read-output/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3020'>test-read-output</a>/13"</span>) -<span id="L3058" class="LineNr"> 3058 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3059" class="LineNr"> 3059 </span> 89/<- %esp 5/r32/ebp -<span id="L3060" class="LineNr"> 3060 </span> 5d/pop-to-ebp -<span id="L3061" class="LineNr"> 3061 </span> c3/return -<span id="L3062" class="LineNr"> 3062 </span> -<span id="L3063" class="LineNr"> 3063 </span><span class="subxTest">test-fn-output-written-in-inner-block</span>: -<span id="L3064" class="LineNr"> 3064 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3065" class="LineNr"> 3065 </span> 55/push-ebp -<span id="L3066" class="LineNr"> 3066 </span> 89/<- %ebp 4/r32/esp -<span id="L3067" class="LineNr"> 3067 </span> <span class="subxComment"># setup</span> -<span id="L3068" class="LineNr"> 3068 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3069" class="LineNr"> 3069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3070" class="LineNr"> 3070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3071" class="LineNr"> 3071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3072" class="LineNr"> 3072 </span> <span class="subxComment">#</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 -> out/edi: 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 a/eax: int <- copy 3\n"</span>) <span class="subxComment"># define outer local</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">" {\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">" var a/ecx: int <- copy 4\n"</span>) <span class="subxComment"># shadow outer local</span> -<span id="L3077" class="LineNr"> 3077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" out <- copy a\n"</span>) <span class="subxComment"># write to fn output</span> -<span id="L3078" class="LineNr"> 3078 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3079" class="LineNr"> 3079 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare a, 0\n"</span>) <span class="subxComment"># use outer local</span> -<span id="L3080" class="LineNr"> 3080 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3081" class="LineNr"> 3081 </span> <span class="subxComment"># convert</span> -<span id="L3082" class="LineNr"> 3082 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3083" class="LineNr"> 3083 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3084" class="Folded"> 3084 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3090" class="LineNr"> 3090 </span> <span class="subxComment"># no error; defining 'out' didn't interfere with the reclamation of 'b'</span> -<span id="L3091" class="LineNr"> 3091 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-fn-output-written-in-inner-block/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %edi 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 3d/compare-eax-with 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-fn-output-written-in-inner-block/19"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3063'>test-fn-output-written-in-inner-block</a>/22"</span>) -<span id="L3116" class="LineNr"> 3116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3117" class="LineNr"> 3117 </span> 89/<- %esp 5/r32/ebp -<span id="L3118" class="LineNr"> 3118 </span> 5d/pop-to-ebp -<span id="L3119" class="LineNr"> 3119 </span> c3/return -<span id="L3120" class="LineNr"> 3120 </span> -<span id="L3121" class="LineNr"> 3121 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: -<span id="L3122" class="LineNr"> 3122 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3123" class="LineNr"> 3123 </span> 55/push-ebp -<span id="L3124" class="LineNr"> 3124 </span> 89/<- %ebp 4/r32/esp -<span id="L3125" class="LineNr"> 3125 </span> <span class="subxComment"># setup</span> -<span id="L3126" class="LineNr"> 3126 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3127" class="LineNr"> 3127 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3128" class="LineNr"> 3128 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3129" class="LineNr"> 3129 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3130" class="LineNr"> 3130 </span> <span class="subxComment">#</span> -<span id="L3131" class="LineNr"> 3131 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L3132" class="LineNr"> 3132 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3133" class="LineNr"> 3133 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L3134" class="LineNr"> 3134 </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="L3135" class="LineNr"> 3135 </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="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">" loop\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">" }\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">"}\n"</span>) -<span id="L3139" class="LineNr"> 3139 </span> <span class="subxComment"># convert</span> -<span id="L3140" class="LineNr"> 3140 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3141" class="LineNr"> 3141 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3142" class="Folded"> 3142 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3148" class="LineNr"> 3148 </span> <span class="subxComment"># check output</span> -<span id="L3149" class="LineNr"> 3149 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L3150" class="LineNr"> 3150 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L3151" class="LineNr"> 3151 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L3172" class="LineNr"> 3172 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/25"</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-with-branches-in-block-2</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#L285'>_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> <span class="subxComment">#</span> -<span id="L3190" class="LineNr"> 3190 </span> (<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="L3191" class="LineNr"> 3191 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3192" class="LineNr"> 3192 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L3193" class="LineNr"> 3193 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) -<span id="L3194" class="LineNr"> 3194 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L3195" class="LineNr"> 3195 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L3196" class="LineNr"> 3196 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3197" class="LineNr"> 3197 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3198" class="LineNr"> 3198 </span> <span class="subxComment"># convert</span> -<span id="L3199" class="LineNr"> 3199 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3200" class="LineNr"> 3200 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3201" class="Folded"> 3201 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3207" class="LineNr"> 3207 </span> <span class="subxComment"># check output</span> -<span id="L3208" class="LineNr"> 3208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L3209" class="LineNr"> 3209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L3210" class="LineNr"> 3210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/2"</span>) -<span id="L3211" class="LineNr"> 3211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/3"</span>) -<span id="L3212" class="LineNr"> 3212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/4"</span>) -<span id="L3213" class="LineNr"> 3213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/5"</span>) -<span id="L3214" class="LineNr"> 3214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/6"</span>) -<span id="L3215" class="LineNr"> 3215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/7"</span>) -<span id="L3216" class="LineNr"> 3216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/8"</span>) -<span id="L3217" class="LineNr"> 3217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/9"</span>) -<span id="L3218" class="LineNr"> 3218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/11"</span>) -<span id="L3220" class="LineNr"> 3220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/12"</span>) -<span id="L3221" class="LineNr"> 3221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/13"</span>) -<span id="L3222" class="LineNr"> 3222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/14"</span>) -<span id="L3223" class="LineNr"> 3223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/15"</span>) -<span id="L3224" class="LineNr"> 3224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/16"</span>) -<span id="L3225" class="LineNr"> 3225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/17"</span>) -<span id="L3226" class="LineNr"> 3226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/18"</span>) -<span id="L3227" class="LineNr"> 3227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/19"</span>) -<span id="L3228" class="LineNr"> 3228 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/20"</span>) -<span id="L3229" class="LineNr"> 3229 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/21"</span>) -<span id="L3230" class="LineNr"> 3230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L3231" class="LineNr"> 3231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/23"</span>) -<span id="L3232" class="LineNr"> 3232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/24"</span>) -<span id="L3233" class="LineNr"> 3233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3121'>test-convert-function-with-branches-in-block</a>/25"</span>) -<span id="L3234" class="LineNr"> 3234 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3235" class="LineNr"> 3235 </span> 89/<- %esp 5/r32/ebp -<span id="L3236" class="LineNr"> 3236 </span> 5d/pop-to-ebp -<span id="L3237" class="LineNr"> 3237 </span> c3/return -<span id="L3238" class="LineNr"> 3238 </span> -<span id="L3239" class="LineNr"> 3239 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: -<span id="L3240" class="LineNr"> 3240 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3241" class="LineNr"> 3241 </span> 55/push-ebp -<span id="L3242" class="LineNr"> 3242 </span> 89/<- %ebp 4/r32/esp -<span id="L3243" class="LineNr"> 3243 </span> <span class="subxComment"># setup</span> -<span id="L3244" class="LineNr"> 3244 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3245" class="LineNr"> 3245 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3246" class="LineNr"> 3246 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3247" class="LineNr"> 3247 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3248" class="LineNr"> 3248 </span> <span class="subxComment">#</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">"fn foo x: int {\n"</span>) -<span id="L3250" class="LineNr"> 3250 </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="L3251" class="LineNr"> 3251 </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="L3252" class="LineNr"> 3252 </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="L3253" class="LineNr"> 3253 </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="L3254" class="LineNr"> 3254 </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="L3255" class="LineNr"> 3255 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3256" class="LineNr"> 3256 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3257" class="LineNr"> 3257 </span> <span class="subxComment"># convert</span> -<span id="L3258" class="LineNr"> 3258 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3259" class="LineNr"> 3259 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3260" class="Folded"> 3260 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3266" class="LineNr"> 3266 </span> <span class="subxComment"># check output</span> -<span id="L3267" class="LineNr"> 3267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/0"</span>) -<span id="L3268" class="LineNr"> 3268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) -<span id="L3269" class="LineNr"> 3269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/2"</span>) -<span id="L3270" class="LineNr"> 3270 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/3"</span>) -<span id="L3271" class="LineNr"> 3271 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/4"</span>) -<span id="L3272" class="LineNr"> 3272 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/5"</span>) -<span id="L3273" class="LineNr"> 3273 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/6"</span>) -<span id="L3274" class="LineNr"> 3274 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/7"</span>) -<span id="L3275" class="LineNr"> 3275 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/8"</span>) -<span id="L3276" class="LineNr"> 3276 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/9"</span>) -<span id="L3277" class="LineNr"> 3277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/10"</span>) -<span id="L3278" class="LineNr"> 3278 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/11"</span>) -<span id="L3279" class="LineNr"> 3279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/12"</span>) -<span id="L3280" class="LineNr"> 3280 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/13"</span>) -<span id="L3281" class="LineNr"> 3281 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/14"</span>) -<span id="L3282" class="LineNr"> 3282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/15"</span>) -<span id="L3283" class="LineNr"> 3283 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/16"</span>) -<span id="L3284" class="LineNr"> 3284 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/17"</span>) -<span id="L3285" class="LineNr"> 3285 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/18"</span>) -<span id="L3286" class="LineNr"> 3286 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/19"</span>) -<span id="L3287" class="LineNr"> 3287 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/20"</span>) -<span id="L3288" class="LineNr"> 3288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/21"</span>) -<span id="L3289" class="LineNr"> 3289 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) -<span id="L3290" class="LineNr"> 3290 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/23"</span>) -<span id="L3291" class="LineNr"> 3291 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/24"</span>) -<span id="L3292" class="LineNr"> 3292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3239'>test-convert-function-with-branches-in-named-block</a>/25"</span>) -<span id="L3293" class="LineNr"> 3293 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3294" class="LineNr"> 3294 </span> 89/<- %esp 5/r32/ebp -<span id="L3295" class="LineNr"> 3295 </span> 5d/pop-to-ebp -<span id="L3296" class="LineNr"> 3296 </span> c3/return -<span id="L3297" class="LineNr"> 3297 </span> -<span id="L3298" class="LineNr"> 3298 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: -<span id="L3299" class="LineNr"> 3299 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3300" class="LineNr"> 3300 </span> 55/push-ebp -<span id="L3301" class="LineNr"> 3301 </span> 89/<- %ebp 4/r32/esp -<span id="L3302" class="LineNr"> 3302 </span> <span class="subxComment"># setup</span> -<span id="L3303" class="LineNr"> 3303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3304" class="LineNr"> 3304 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3305" class="LineNr"> 3305 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3306" class="LineNr"> 3306 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3307" class="LineNr"> 3307 </span> <span class="subxComment">#</span> -<span id="L3308" class="LineNr"> 3308 </span> (<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="L3309" class="LineNr"> 3309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3310" class="LineNr"> 3310 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3311" class="LineNr"> 3311 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L3312" class="LineNr"> 3312 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L3313" class="LineNr"> 3313 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3314" class="LineNr"> 3314 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3315" class="LineNr"> 3315 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3316" class="LineNr"> 3316 </span> <span class="subxComment"># convert</span> -<span id="L3317" class="LineNr"> 3317 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3318" class="LineNr"> 3318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3319" class="Folded"> 3319 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3325" class="LineNr"> 3325 </span> <span class="subxComment"># check output</span> -<span id="L3326" class="LineNr"> 3326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/0"</span>) -<span id="L3327" class="LineNr"> 3327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) -<span id="L3328" class="LineNr"> 3328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/2"</span>) -<span id="L3329" class="LineNr"> 3329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/3"</span>) -<span id="L3330" class="LineNr"> 3330 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/4"</span>) -<span id="L3331" class="LineNr"> 3331 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/5"</span>) -<span id="L3332" class="LineNr"> 3332 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/6"</span>) -<span id="L3333" class="LineNr"> 3333 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/7"</span>) -<span id="L3334" class="LineNr"> 3334 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/8"</span>) -<span id="L3335" class="LineNr"> 3335 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/9"</span>) -<span id="L3336" class="LineNr"> 3336 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/10"</span>) -<span id="L3337" class="LineNr"> 3337 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/11"</span>) -<span id="L3338" class="LineNr"> 3338 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/12"</span>) -<span id="L3339" class="LineNr"> 3339 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/13"</span>) -<span id="L3340" class="LineNr"> 3340 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/14"</span>) -<span id="L3341" class="LineNr"> 3341 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/15"</span>) -<span id="L3342" class="LineNr"> 3342 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/16"</span>) -<span id="L3343" class="LineNr"> 3343 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/17"</span>) -<span id="L3344" class="LineNr"> 3344 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/18"</span>) -<span id="L3345" class="LineNr"> 3345 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) -<span id="L3346" class="LineNr"> 3346 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/20"</span>) -<span id="L3347" class="LineNr"> 3347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/21"</span>) -<span id="L3348" class="LineNr"> 3348 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3298'>test-convert-function-with-var-in-nested-block</a>/22"</span>) -<span id="L3349" class="LineNr"> 3349 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3350" class="LineNr"> 3350 </span> 89/<- %esp 5/r32/ebp -<span id="L3351" class="LineNr"> 3351 </span> 5d/pop-to-ebp -<span id="L3352" class="LineNr"> 3352 </span> c3/return -<span id="L3353" class="LineNr"> 3353 </span> -<span id="L3354" class="LineNr"> 3354 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: -<span id="L3355" class="LineNr"> 3355 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3356" class="LineNr"> 3356 </span> 55/push-ebp -<span id="L3357" class="LineNr"> 3357 </span> 89/<- %ebp 4/r32/esp -<span id="L3358" class="LineNr"> 3358 </span> <span class="subxComment"># setup</span> -<span id="L3359" class="LineNr"> 3359 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3360" class="LineNr"> 3360 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3361" class="LineNr"> 3361 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3362" class="LineNr"> 3362 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3363" class="LineNr"> 3363 </span> <span class="subxComment">#</span> -<span id="L3364" class="LineNr"> 3364 </span> (<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="L3365" class="LineNr"> 3365 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3366" class="LineNr"> 3366 </span> (<a 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="L3367" class="LineNr"> 3367 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3368" class="LineNr"> 3368 </span> (<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="L3369" class="LineNr"> 3369 </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="L3370" class="LineNr"> 3370 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3371" class="LineNr"> 3371 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3372" class="LineNr"> 3372 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3373" class="LineNr"> 3373 </span> <span class="subxComment"># convert</span> -<span id="L3374" class="LineNr"> 3374 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3375" class="LineNr"> 3375 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3376" class="Folded"> 3376 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3382" class="LineNr"> 3382 </span> <span class="subxComment"># check output</span> -<span id="L3383" class="LineNr"> 3383 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) -<span id="L3384" class="LineNr"> 3384 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) -<span id="L3385" class="LineNr"> 3385 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) -<span id="L3386" class="LineNr"> 3386 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) -<span id="L3387" class="LineNr"> 3387 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) -<span id="L3388" class="LineNr"> 3388 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) -<span id="L3389" class="LineNr"> 3389 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) -<span id="L3390" class="LineNr"> 3390 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) -<span id="L3391" class="LineNr"> 3391 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) -<span id="L3392" class="LineNr"> 3392 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) -<span id="L3393" class="LineNr"> 3393 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) -<span id="L3394" class="LineNr"> 3394 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) -<span id="L3395" class="LineNr"> 3395 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) -<span id="L3396" class="LineNr"> 3396 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) -<span id="L3397" class="LineNr"> 3397 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) -<span id="L3398" class="LineNr"> 3398 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) -<span id="L3399" class="LineNr"> 3399 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) -<span id="L3400" class="LineNr"> 3400 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) -<span id="L3401" class="LineNr"> 3401 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) -<span id="L3403" class="LineNr"> 3403 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) -<span id="L3404" class="LineNr"> 3404 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) -<span id="L3405" class="LineNr"> 3405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) -<span id="L3406" class="LineNr"> 3406 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) -<span id="L3407" class="LineNr"> 3407 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) -<span id="L3408" class="LineNr"> 3408 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3354'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) -<span id="L3409" class="LineNr"> 3409 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3410" class="LineNr"> 3410 </span> 89/<- %esp 5/r32/ebp -<span id="L3411" class="LineNr"> 3411 </span> 5d/pop-to-ebp -<span id="L3412" class="LineNr"> 3412 </span> c3/return -<span id="L3413" class="LineNr"> 3413 </span> -<span id="L3414" class="LineNr"> 3414 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: -<span id="L3415" class="LineNr"> 3415 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> -<span id="L3416" class="LineNr"> 3416 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> -<span id="L3417" class="LineNr"> 3417 </span> <span class="subxComment"># results in some ugly code duplication.</span> -<span id="L3418" class="LineNr"> 3418 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3419" class="LineNr"> 3419 </span> 55/push-ebp -<span id="L3420" class="LineNr"> 3420 </span> 89/<- %ebp 4/r32/esp -<span id="L3421" class="LineNr"> 3421 </span> <span class="subxComment"># setup</span> -<span id="L3422" class="LineNr"> 3422 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3423" class="LineNr"> 3423 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3424" class="LineNr"> 3424 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3425" class="LineNr"> 3425 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3426" class="LineNr"> 3426 </span> <span class="subxComment">#</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">"fn foo {\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">" var x: int\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">" break-if->=\n"</span>) -<span id="L3431" class="LineNr"> 3431 </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="L3432" class="LineNr"> 3432 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3433" class="LineNr"> 3433 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3434" class="LineNr"> 3434 </span> <span class="subxComment"># convert</span> -<span id="L3435" class="LineNr"> 3435 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3436" class="LineNr"> 3436 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3437" class="Folded"> 3437 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3443" class="LineNr"> 3443 </span> <span class="subxComment"># check output</span> -<span id="L3444" class="LineNr"> 3444 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) -<span id="L3445" class="LineNr"> 3445 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) -<span id="L3446" class="LineNr"> 3446 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) -<span id="L3447" class="LineNr"> 3447 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/3"</span>) -<span id="L3448" class="LineNr"> 3448 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) -<span id="L3449" class="LineNr"> 3449 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) -<span id="L3450" class="LineNr"> 3450 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) -<span id="L3451" class="LineNr"> 3451 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) -<span id="L3452" class="LineNr"> 3452 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) -<span id="L3453" class="LineNr"> 3453 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) -<span id="L3454" class="LineNr"> 3454 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) -<span id="L3455" class="LineNr"> 3455 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) -<span id="L3456" class="LineNr"> 3456 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) -<span id="L3457" class="LineNr"> 3457 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) -<span id="L3458" class="LineNr"> 3458 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) -<span id="L3459" class="LineNr"> 3459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) -<span id="L3460" class="LineNr"> 3460 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) -<span id="L3461" class="LineNr"> 3461 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) -<span id="L3462" class="LineNr"> 3462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) -<span id="L3463" class="LineNr"> 3463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) -<span id="L3464" class="LineNr"> 3464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) -<span id="L3465" class="LineNr"> 3465 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) -<span id="L3466" class="LineNr"> 3466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) -<span id="L3467" class="LineNr"> 3467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3414'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) -<span id="L3468" class="LineNr"> 3468 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3469" class="LineNr"> 3469 </span> 89/<- %esp 5/r32/ebp -<span id="L3470" class="LineNr"> 3470 </span> 5d/pop-to-ebp -<span id="L3471" class="LineNr"> 3471 </span> c3/return -<span id="L3472" class="LineNr"> 3472 </span> -<span id="L3473" class="LineNr"> 3473 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: -<span id="L3474" class="LineNr"> 3474 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> -<span id="L3475" class="LineNr"> 3475 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> -<span id="L3476" class="LineNr"> 3476 </span> <span class="subxComment"># in some ugly code duplication.</span> -<span id="L3477" class="LineNr"> 3477 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3478" class="LineNr"> 3478 </span> 55/push-ebp -<span id="L3479" class="LineNr"> 3479 </span> 89/<- %ebp 4/r32/esp -<span id="L3480" class="LineNr"> 3480 </span> <span class="subxComment"># setup</span> -<span id="L3481" class="LineNr"> 3481 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3482" class="LineNr"> 3482 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3483" class="LineNr"> 3483 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3484" class="LineNr"> 3484 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3485" class="LineNr"> 3485 </span> <span class="subxComment">#</span> -<span id="L3486" class="LineNr"> 3486 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3487" class="LineNr"> 3487 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3488" class="LineNr"> 3488 </span> (<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="L3489" class="LineNr"> 3489 </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="L3490" class="LineNr"> 3490 </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="L3491" class="LineNr"> 3491 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3492" class="LineNr"> 3492 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3493" class="LineNr"> 3493 </span> <span class="subxComment"># convert</span> -<span id="L3494" class="LineNr"> 3494 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3495" class="LineNr"> 3495 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3496" class="Folded"> 3496 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3502" class="LineNr"> 3502 </span> <span class="subxComment"># check output</span> -<span id="L3503" class="LineNr"> 3503 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) -<span id="L3504" class="LineNr"> 3504 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) -<span id="L3505" class="LineNr"> 3505 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) -<span id="L3506" class="LineNr"> 3506 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) -<span id="L3507" class="LineNr"> 3507 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) -<span id="L3508" class="LineNr"> 3508 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) -<span id="L3509" class="LineNr"> 3509 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) -<span id="L3510" class="LineNr"> 3510 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) -<span id="L3511" class="LineNr"> 3511 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) -<span id="L3512" class="LineNr"> 3512 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) -<span id="L3513" class="LineNr"> 3513 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) -<span id="L3514" class="LineNr"> 3514 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) -<span id="L3515" class="LineNr"> 3515 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) -<span id="L3516" class="LineNr"> 3516 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) -<span id="L3517" class="LineNr"> 3517 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) -<span id="L3518" class="LineNr"> 3518 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) -<span id="L3519" class="LineNr"> 3519 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) -<span id="L3520" class="LineNr"> 3520 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) -<span id="L3521" class="LineNr"> 3521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) -<span id="L3522" class="LineNr"> 3522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) -<span id="L3523" class="LineNr"> 3523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) -<span id="L3524" class="LineNr"> 3524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) -<span id="L3525" class="LineNr"> 3525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) -<span id="L3526" class="LineNr"> 3526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3473'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) -<span id="L3527" class="LineNr"> 3527 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3528" class="LineNr"> 3528 </span> 89/<- %esp 5/r32/ebp -<span id="L3529" class="LineNr"> 3529 </span> 5d/pop-to-ebp -<span id="L3530" class="LineNr"> 3530 </span> c3/return -<span id="L3531" class="LineNr"> 3531 </span> -<span id="L3532" class="LineNr"> 3532 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: -<span id="L3533" class="LineNr"> 3533 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> -<span id="L3534" class="LineNr"> 3534 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> -<span id="L3535" class="LineNr"> 3535 </span> <span class="subxComment"># therefore skipped.</span> -<span id="L3536" class="LineNr"> 3536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3537" class="LineNr"> 3537 </span> 55/push-ebp -<span id="L3538" class="LineNr"> 3538 </span> 89/<- %ebp 4/r32/esp -<span id="L3539" class="LineNr"> 3539 </span> <span class="subxComment"># setup</span> -<span id="L3540" class="LineNr"> 3540 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3541" class="LineNr"> 3541 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3542" class="LineNr"> 3542 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3543" class="LineNr"> 3543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3544" class="LineNr"> 3544 </span> <span class="subxComment">#</span> -<span id="L3545" class="LineNr"> 3545 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3546" class="LineNr"> 3546 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3547" class="LineNr"> 3547 </span> (<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="L3548" class="LineNr"> 3548 </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="L3549" class="LineNr"> 3549 </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="L3550" class="LineNr"> 3550 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3551" class="LineNr"> 3551 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3552" class="LineNr"> 3552 </span> <span class="subxComment"># convert</span> -<span id="L3553" class="LineNr"> 3553 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3554" class="LineNr"> 3554 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3555" class="Folded"> 3555 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3561" class="LineNr"> 3561 </span> <span class="subxComment"># check output</span> -<span id="L3562" class="LineNr"> 3562 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) -<span id="L3563" class="LineNr"> 3563 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) -<span id="L3564" class="LineNr"> 3564 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) -<span id="L3565" class="LineNr"> 3565 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) -<span id="L3566" class="LineNr"> 3566 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) -<span id="L3567" class="LineNr"> 3567 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) -<span id="L3568" class="LineNr"> 3568 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) -<span id="L3569" class="LineNr"> 3569 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) -<span id="L3570" class="LineNr"> 3570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) -<span id="L3571" class="LineNr"> 3571 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) -<span id="L3572" class="LineNr"> 3572 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) -<span id="L3573" class="LineNr"> 3573 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> -<span id="L3574" class="LineNr"> 3574 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) -<span id="L3575" class="LineNr"> 3575 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) -<span id="L3576" class="LineNr"> 3576 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) -<span id="L3577" class="LineNr"> 3577 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) -<span id="L3578" class="LineNr"> 3578 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) -<span id="L3579" class="LineNr"> 3579 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) -<span id="L3580" class="LineNr"> 3580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3532'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) -<span id="L3582" class="LineNr"> 3582 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3583" class="LineNr"> 3583 </span> 89/<- %esp 5/r32/ebp -<span id="L3584" class="LineNr"> 3584 </span> 5d/pop-to-ebp -<span id="L3585" class="LineNr"> 3585 </span> c3/return -<span id="L3586" class="LineNr"> 3586 </span> -<span id="L3587" class="LineNr"> 3587 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: -<span id="L3588" class="LineNr"> 3588 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3589" class="LineNr"> 3589 </span> 55/push-ebp -<span id="L3590" class="LineNr"> 3590 </span> 89/<- %ebp 4/r32/esp -<span id="L3591" class="LineNr"> 3591 </span> <span class="subxComment"># setup</span> -<span id="L3592" class="LineNr"> 3592 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3593" class="LineNr"> 3593 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3594" class="LineNr"> 3594 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3595" class="LineNr"> 3595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3596" class="LineNr"> 3596 </span> <span class="subxComment">#</span> -<span id="L3597" class="LineNr"> 3597 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3598" class="LineNr"> 3598 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3599" class="LineNr"> 3599 </span> (<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="L3600" class="LineNr"> 3600 </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="L3601" class="LineNr"> 3601 </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="L3602" class="LineNr"> 3602 </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="L3603" class="LineNr"> 3603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3604" class="LineNr"> 3604 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3605" class="LineNr"> 3605 </span> <span class="subxComment"># convert</span> -<span id="L3606" class="LineNr"> 3606 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3607" class="LineNr"> 3607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3608" class="Folded"> 3608 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3614" class="LineNr"> 3614 </span> <span class="subxComment"># check output</span> -<span id="L3615" class="LineNr"> 3615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L3616" class="LineNr"> 3616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) -<span id="L3617" class="LineNr"> 3617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L3618" class="LineNr"> 3618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L3619" class="LineNr"> 3619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L3620" class="LineNr"> 3620 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L3621" class="LineNr"> 3621 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L3622" class="LineNr"> 3622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L3623" class="LineNr"> 3623 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L3624" class="LineNr"> 3624 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L3625" class="LineNr"> 3625 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L3628" class="LineNr"> 3628 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L3629" class="LineNr"> 3629 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L3630" class="LineNr"> 3630 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L3631" class="LineNr"> 3631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L3632" class="LineNr"> 3632 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L3633" class="LineNr"> 3633 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L3634" class="LineNr"> 3634 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L3635" class="LineNr"> 3635 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L3636" class="LineNr"> 3636 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) -<span id="L3637" class="LineNr"> 3637 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L3638" class="LineNr"> 3638 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L3639" class="LineNr"> 3639 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3587'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L3640" class="LineNr"> 3640 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3641" class="LineNr"> 3641 </span> 89/<- %esp 5/r32/ebp -<span id="L3642" class="LineNr"> 3642 </span> 5d/pop-to-ebp -<span id="L3643" class="LineNr"> 3643 </span> c3/return -<span id="L3644" class="LineNr"> 3644 </span> -<span id="L3645" class="LineNr"> 3645 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: -<span id="L3646" class="LineNr"> 3646 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3647" class="LineNr"> 3647 </span> 55/push-ebp -<span id="L3648" class="LineNr"> 3648 </span> 89/<- %ebp 4/r32/esp -<span id="L3649" class="LineNr"> 3649 </span> <span class="subxComment"># setup</span> -<span id="L3650" class="LineNr"> 3650 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3651" class="LineNr"> 3651 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3652" class="LineNr"> 3652 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3653" class="LineNr"> 3653 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3654" class="LineNr"> 3654 </span> <span class="subxComment">#</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">"fn foo {\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">" a: {\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">" var x: int\n"</span>) -<span id="L3658" class="LineNr"> 3658 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3659" class="LineNr"> 3659 </span> (<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="L3660" class="LineNr"> 3660 </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="L3661" class="LineNr"> 3661 </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="L3662" class="LineNr"> 3662 </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="L3663" class="LineNr"> 3663 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3664" class="LineNr"> 3664 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3665" class="LineNr"> 3665 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3666" class="LineNr"> 3666 </span> <span class="subxComment"># convert</span> -<span id="L3667" class="LineNr"> 3667 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3668" class="LineNr"> 3668 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3669" class="Folded"> 3669 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3675" class="LineNr"> 3675 </span> <span class="subxComment"># check output</span> -<span id="L3676" class="LineNr"> 3676 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L3677" class="LineNr"> 3677 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) -<span id="L3678" class="LineNr"> 3678 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L3679" class="LineNr"> 3679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L3680" class="LineNr"> 3680 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L3681" class="LineNr"> 3681 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L3682" class="LineNr"> 3682 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L3683" class="LineNr"> 3683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L3684" class="LineNr"> 3684 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L3685" class="LineNr"> 3685 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L3686" class="LineNr"> 3686 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) -<span id="L3687" class="LineNr"> 3687 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) -<span id="L3688" class="LineNr"> 3688 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L3689" class="LineNr"> 3689 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L3690" class="LineNr"> 3690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L3691" class="LineNr"> 3691 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L3692" class="LineNr"> 3692 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L3693" class="LineNr"> 3693 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L3694" class="LineNr"> 3694 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L3695" class="LineNr"> 3695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L3696" class="LineNr"> 3696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L3697" class="LineNr"> 3697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) -<span id="L3698" class="LineNr"> 3698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L3699" class="LineNr"> 3699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L3700" class="LineNr"> 3700 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L3701" class="LineNr"> 3701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) -<span id="L3702" class="LineNr"> 3702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) -<span id="L3703" class="LineNr"> 3703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) -<span id="L3704" class="LineNr"> 3704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) -<span id="L3705" class="LineNr"> 3705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</span>) -<span id="L3706" class="LineNr"> 3706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</span>) -<span id="L3707" class="LineNr"> 3707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3645'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) -<span id="L3708" class="LineNr"> 3708 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3709" class="LineNr"> 3709 </span> 89/<- %esp 5/r32/ebp -<span id="L3710" class="LineNr"> 3710 </span> 5d/pop-to-ebp -<span id="L3711" class="LineNr"> 3711 </span> c3/return -<span id="L3712" class="LineNr"> 3712 </span> -<span id="L3713" class="LineNr"> 3713 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: -<span id="L3714" class="LineNr"> 3714 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3715" class="LineNr"> 3715 </span> 55/push-ebp -<span id="L3716" class="LineNr"> 3716 </span> 89/<- %ebp 4/r32/esp -<span id="L3717" class="LineNr"> 3717 </span> <span class="subxComment"># setup</span> -<span id="L3718" class="LineNr"> 3718 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3719" class="LineNr"> 3719 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3720" class="LineNr"> 3720 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3721" class="LineNr"> 3721 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3722" class="LineNr"> 3722 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> -<span id="L3723" class="LineNr"> 3723 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L3724" class="LineNr"> 3724 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3725" class="LineNr"> 3725 </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="L3726" class="LineNr"> 3726 </span> (<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="L3727" class="LineNr"> 3727 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3728" class="LineNr"> 3728 </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="L3729" class="LineNr"> 3729 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3730" class="LineNr"> 3730 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3731" class="LineNr"> 3731 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3732" class="LineNr"> 3732 </span> <span class="subxComment"># convert</span> -<span id="L3733" class="LineNr"> 3733 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3734" class="LineNr"> 3734 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3735" class="Folded"> 3735 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3741" class="LineNr"> 3741 </span> <span class="subxComment"># check output</span> -<span id="L3742" class="LineNr"> 3742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) -<span id="L3743" class="LineNr"> 3743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) -<span id="L3744" class="LineNr"> 3744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) -<span id="L3745" class="LineNr"> 3745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) -<span id="L3746" class="LineNr"> 3746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) -<span id="L3747" class="LineNr"> 3747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) -<span id="L3748" class="LineNr"> 3748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) -<span id="L3749" class="LineNr"> 3749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</span>) -<span id="L3758" class="LineNr"> 3758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</span>) -<span id="L3759" class="LineNr"> 3759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) -<span id="L3766" class="LineNr"> 3766 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) -<span id="L3767" class="LineNr"> 3767 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) -<span id="L3768" class="LineNr"> 3768 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3713'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) -<span id="L3769" class="LineNr"> 3769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3770" class="LineNr"> 3770 </span> 89/<- %esp 5/r32/ebp -<span id="L3771" class="LineNr"> 3771 </span> 5d/pop-to-ebp -<span id="L3772" class="LineNr"> 3772 </span> c3/return -<span id="L3773" class="LineNr"> 3773 </span> -<span id="L3774" class="LineNr"> 3774 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: -<span id="L3775" class="LineNr"> 3775 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3776" class="LineNr"> 3776 </span> 55/push-ebp -<span id="L3777" class="LineNr"> 3777 </span> 89/<- %ebp 4/r32/esp -<span id="L3778" class="LineNr"> 3778 </span> <span class="subxComment"># setup</span> -<span id="L3779" class="LineNr"> 3779 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3780" class="LineNr"> 3780 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3781" class="LineNr"> 3781 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3782" class="LineNr"> 3782 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3783" class="LineNr"> 3783 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> -<span id="L3784" class="LineNr"> 3784 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L3785" class="LineNr"> 3785 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3786" class="LineNr"> 3786 </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="L3787" class="LineNr"> 3787 </span> (<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="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">" {\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">" break a\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">" }\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3793" class="LineNr"> 3793 </span> <span class="subxComment"># convert</span> -<span id="L3794" class="LineNr"> 3794 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3795" class="LineNr"> 3795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3796" class="Folded"> 3796 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3802" class="LineNr"> 3802 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) -<span id="L3805" class="LineNr"> 3805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) -<span id="L3810" class="LineNr"> 3810 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) -<span id="L3811" class="LineNr"> 3811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) -<span id="L3812" class="LineNr"> 3812 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) -<span id="L3813" class="LineNr"> 3813 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) -<span id="L3814" class="LineNr"> 3814 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) -<span id="L3815" class="LineNr"> 3815 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) -<span id="L3816" class="LineNr"> 3816 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) -<span id="L3817" class="LineNr"> 3817 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) -<span id="L3818" class="LineNr"> 3818 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</span>) -<span id="L3819" class="LineNr"> 3819 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</span>) -<span id="L3820" class="LineNr"> 3820 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</span>) -<span id="L3821" class="LineNr"> 3821 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</span>) -<span id="L3822" class="LineNr"> 3822 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</span>) -<span id="L3823" class="LineNr"> 3823 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) -<span id="L3824" class="LineNr"> 3824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</span>) -<span id="L3825" class="LineNr"> 3825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) -<span id="L3826" class="LineNr"> 3826 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3774'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) -<span id="L3827" class="LineNr"> 3827 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3828" class="LineNr"> 3828 </span> 89/<- %esp 5/r32/ebp -<span id="L3829" class="LineNr"> 3829 </span> 5d/pop-to-ebp -<span id="L3830" class="LineNr"> 3830 </span> c3/return -<span id="L3831" class="LineNr"> 3831 </span> -<span id="L3832" class="LineNr"> 3832 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</span>: -<span id="L3833" class="LineNr"> 3833 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3834" class="LineNr"> 3834 </span> 55/push-ebp -<span id="L3835" class="LineNr"> 3835 </span> 89/<- %ebp 4/r32/esp -<span id="L3836" class="LineNr"> 3836 </span> <span class="subxComment"># setup</span> -<span id="L3837" class="LineNr"> 3837 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3838" class="LineNr"> 3838 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3839" class="LineNr"> 3839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3840" class="LineNr"> 3840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3841" class="LineNr"> 3841 </span> <span class="subxComment">#</span> -<span id="L3842" class="LineNr"> 3842 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3843" class="LineNr"> 3843 </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="L3844" class="LineNr"> 3844 </span> (<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="L3845" class="LineNr"> 3845 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3846" class="LineNr"> 3846 </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="L3847" class="LineNr"> 3847 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3848" class="LineNr"> 3848 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3849" class="LineNr"> 3849 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3850" class="LineNr"> 3850 </span> <span class="subxComment"># convert</span> -<span id="L3851" class="LineNr"> 3851 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3852" class="LineNr"> 3852 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3853" class="Folded"> 3853 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3859" class="LineNr"> 3859 </span> <span class="subxComment"># check output</span> -<span id="L3860" class="LineNr"> 3860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) -<span id="L3861" class="LineNr"> 3861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) -<span id="L3862" class="LineNr"> 3862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) -<span id="L3870" class="LineNr"> 3870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) -<span id="L3871" class="LineNr"> 3871 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) -<span id="L3872" class="LineNr"> 3872 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) -<span id="L3873" class="LineNr"> 3873 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) -<span id="L3874" class="LineNr"> 3874 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) -<span id="L3875" class="LineNr"> 3875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) -<span id="L3876" class="LineNr"> 3876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) -<span id="L3877" class="LineNr"> 3877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) -<span id="L3878" class="LineNr"> 3878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) -<span id="L3879" class="LineNr"> 3879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) -<span id="L3880" class="LineNr"> 3880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) -<span id="L3881" class="LineNr"> 3881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) -<span id="L3882" class="LineNr"> 3882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) -<span id="L3883" class="LineNr"> 3883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) -<span id="L3884" class="LineNr"> 3884 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3832'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) -<span id="L3885" class="LineNr"> 3885 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3886" class="LineNr"> 3886 </span> 89/<- %esp 5/r32/ebp -<span id="L3887" class="LineNr"> 3887 </span> 5d/pop-to-ebp -<span id="L3888" class="LineNr"> 3888 </span> c3/return -<span id="L3889" class="LineNr"> 3889 </span> -<span id="L3890" class="LineNr"> 3890 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: -<span id="L3891" class="LineNr"> 3891 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3892" class="LineNr"> 3892 </span> 55/push-ebp -<span id="L3893" class="LineNr"> 3893 </span> 89/<- %ebp 4/r32/esp -<span id="L3894" class="LineNr"> 3894 </span> <span class="subxComment"># setup</span> -<span id="L3895" class="LineNr"> 3895 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3896" class="LineNr"> 3896 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3897" class="LineNr"> 3897 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3898" class="LineNr"> 3898 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3899" class="LineNr"> 3899 </span> <span class="subxComment">#</span> -<span id="L3900" class="LineNr"> 3900 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3901" class="LineNr"> 3901 </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="L3902" class="LineNr"> 3902 </span> (<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="L3903" class="LineNr"> 3903 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3904" class="LineNr"> 3904 </span> (<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="L3905" class="LineNr"> 3905 </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="L3906" class="LineNr"> 3906 </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="L3907" class="LineNr"> 3907 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3908" class="LineNr"> 3908 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3909" class="LineNr"> 3909 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3910" class="LineNr"> 3910 </span> <span class="subxComment"># convert</span> -<span id="L3911" class="LineNr"> 3911 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3912" class="LineNr"> 3912 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3913" class="Folded"> 3913 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3919" class="LineNr"> 3919 </span> <span class="subxComment"># check output</span> -<span id="L3920" class="LineNr"> 3920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L3921" class="LineNr"> 3921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) -<span id="L3922" class="LineNr"> 3922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L3923" class="LineNr"> 3923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L3924" class="LineNr"> 3924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L3925" class="LineNr"> 3925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L3926" class="LineNr"> 3926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L3927" class="LineNr"> 3927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L3928" class="LineNr"> 3928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) -<span id="L3929" class="LineNr"> 3929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) -<span id="L3930" class="LineNr"> 3930 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) -<span id="L3931" class="LineNr"> 3931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) -<span id="L3932" class="LineNr"> 3932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) -<span id="L3933" class="LineNr"> 3933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) -<span id="L3934" class="LineNr"> 3934 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) -<span id="L3935" class="LineNr"> 3935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) -<span id="L3936" class="LineNr"> 3936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) -<span id="L3937" class="LineNr"> 3937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) -<span id="L3938" class="LineNr"> 3938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) -<span id="L3939" class="LineNr"> 3939 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) -<span id="L3940" class="LineNr"> 3940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) -<span id="L3941" class="LineNr"> 3941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) -<span id="L3942" class="LineNr"> 3942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) -<span id="L3943" class="LineNr"> 3943 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L3944" class="LineNr"> 3944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) -<span id="L3945" class="LineNr"> 3945 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3890'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) -<span id="L3946" class="LineNr"> 3946 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3947" class="LineNr"> 3947 </span> 89/<- %esp 5/r32/ebp -<span id="L3948" class="LineNr"> 3948 </span> 5d/pop-to-ebp -<span id="L3949" class="LineNr"> 3949 </span> c3/return -<span id="L3950" class="LineNr"> 3950 </span> -<span id="L3951" class="LineNr"> 3951 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: -<span id="L3952" class="LineNr"> 3952 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3953" class="LineNr"> 3953 </span> 55/push-ebp -<span id="L3954" class="LineNr"> 3954 </span> 89/<- %ebp 4/r32/esp -<span id="L3955" class="LineNr"> 3955 </span> <span class="subxComment"># setup</span> -<span id="L3956" class="LineNr"> 3956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3957" class="LineNr"> 3957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3958" class="LineNr"> 3958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3959" class="LineNr"> 3959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3960" class="LineNr"> 3960 </span> <span class="subxComment">#</span> -<span id="L3961" class="LineNr"> 3961 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3962" class="LineNr"> 3962 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3963" class="LineNr"> 3963 </span> (<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="L3964" class="LineNr"> 3964 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3965" class="LineNr"> 3965 </span> (<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="L3966" class="LineNr"> 3966 </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="L3967" class="LineNr"> 3967 </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="L3968" class="LineNr"> 3968 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3969" class="LineNr"> 3969 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L3970" class="LineNr"> 3970 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3971" class="LineNr"> 3971 </span> <span class="subxComment"># convert</span> -<span id="L3972" class="LineNr"> 3972 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3973" class="LineNr"> 3973 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3974" class="Folded"> 3974 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3980" class="LineNr"> 3980 </span> <span class="subxComment"># check output</span> -<span id="L3981" class="LineNr"> 3981 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L3982" class="LineNr"> 3982 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) -<span id="L3983" class="LineNr"> 3983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L3984" class="LineNr"> 3984 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L3985" class="LineNr"> 3985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L3986" class="LineNr"> 3986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L3987" class="LineNr"> 3987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L3988" class="LineNr"> 3988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L3989" class="LineNr"> 3989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) -<span id="L4002" class="LineNr"> 4002 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3951'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L4005" class="LineNr"> 4005 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4006" class="LineNr"> 4006 </span> 89/<- %esp 5/r32/ebp -<span id="L4007" class="LineNr"> 4007 </span> 5d/pop-to-ebp -<span id="L4008" class="LineNr"> 4008 </span> c3/return -<span id="L4009" class="LineNr"> 4009 </span> -<span id="L4010" class="LineNr"> 4010 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</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#L285'>_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 {\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">" a: {\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: int\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> (<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="L4025" class="LineNr"> 4025 </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="L4026" class="LineNr"> 4026 </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="L4027" class="LineNr"> 4027 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4028" class="LineNr"> 4028 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4029" class="LineNr"> 4029 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4030" class="LineNr"> 4030 </span> <span class="subxComment"># convert</span> -<span id="L4031" class="LineNr"> 4031 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4032" class="LineNr"> 4032 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4033" class="Folded"> 4033 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4039" class="LineNr"> 4039 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) -<span id="L4042" class="LineNr"> 4042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</span>) -<span id="L4045" class="LineNr"> 4045 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</span>) -<span id="L4046" class="LineNr"> 4046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) -<span id="L4051" class="LineNr"> 4051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) -<span id="L4052" class="LineNr"> 4052 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) -<span id="L4053" class="LineNr"> 4053 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) -<span id="L4054" class="LineNr"> 4054 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) -<span id="L4055" class="LineNr"> 4055 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) -<span id="L4056" class="LineNr"> 4056 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) -<span id="L4057" class="LineNr"> 4057 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) -<span id="L4058" class="LineNr"> 4058 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) -<span id="L4059" class="LineNr"> 4059 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) -<span id="L4060" class="LineNr"> 4060 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) -<span id="L4061" class="LineNr"> 4061 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) -<span id="L4062" class="LineNr"> 4062 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) -<span id="L4063" class="LineNr"> 4063 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) -<span id="L4064" class="LineNr"> 4064 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) -<span id="L4065" class="LineNr"> 4065 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4010'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) -<span id="L4066" class="LineNr"> 4066 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4067" class="LineNr"> 4067 </span> 89/<- %esp 5/r32/ebp -<span id="L4068" class="LineNr"> 4068 </span> 5d/pop-to-ebp -<span id="L4069" class="LineNr"> 4069 </span> c3/return -<span id="L4070" class="LineNr"> 4070 </span> -<span id="L4071" class="LineNr"> 4071 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: -<span id="L4072" class="LineNr"> 4072 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4073" class="LineNr"> 4073 </span> 55/push-ebp -<span id="L4074" class="LineNr"> 4074 </span> 89/<- %ebp 4/r32/esp -<span id="L4075" class="LineNr"> 4075 </span> <span class="subxComment"># setup</span> -<span id="L4076" class="LineNr"> 4076 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4077" class="LineNr"> 4077 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4078" class="LineNr"> 4078 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4079" class="LineNr"> 4079 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4080" class="LineNr"> 4080 </span> <span class="subxComment">#</span> -<span id="L4081" class="LineNr"> 4081 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4082" class="LineNr"> 4082 </span> (<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="L4083" class="LineNr"> 4083 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4084" class="LineNr"> 4084 </span> <span class="subxComment"># convert</span> -<span id="L4085" class="LineNr"> 4085 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4086" class="LineNr"> 4086 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4087" class="Folded"> 4087 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4093" class="LineNr"> 4093 </span> <span class="subxComment"># check output</span> -<span id="L4094" class="LineNr"> 4094 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) -<span id="L4095" class="LineNr"> 4095 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) -<span id="L4096" class="LineNr"> 4096 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) -<span id="L4097" class="LineNr"> 4097 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) -<span id="L4098" class="LineNr"> 4098 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) -<span id="L4099" class="LineNr"> 4099 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) -<span id="L4100" class="LineNr"> 4100 </span> <span class="subxComment"># define x</span> -<span id="L4101" class="LineNr"> 4101 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) -<span id="L4102" class="LineNr"> 4102 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) -<span id="L4103" class="LineNr"> 4103 </span> <span class="subxComment"># reclaim x</span> -<span id="L4104" class="LineNr"> 4104 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) -<span id="L4105" class="LineNr"> 4105 </span> <span class="subxComment">#</span> -<span id="L4106" class="LineNr"> 4106 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) -<span id="L4107" class="LineNr"> 4107 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) -<span id="L4108" class="LineNr"> 4108 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) -<span id="L4109" class="LineNr"> 4109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) -<span id="L4110" class="LineNr"> 4110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/14"</span>) -<span id="L4111" class="LineNr"> 4111 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4071'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) -<span id="L4112" class="LineNr"> 4112 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4113" class="LineNr"> 4113 </span> 89/<- %esp 5/r32/ebp -<span id="L4114" class="LineNr"> 4114 </span> 5d/pop-to-ebp -<span id="L4115" class="LineNr"> 4115 </span> c3/return -<span id="L4116" class="LineNr"> 4116 </span> -<span id="L4117" class="LineNr"> 4117 </span><span class="subxTest">test-array-size-in-hex</span>: -<span id="L4118" class="LineNr"> 4118 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4119" class="LineNr"> 4119 </span> 55/push-ebp -<span id="L4120" class="LineNr"> 4120 </span> 89/<- %ebp 4/r32/esp -<span id="L4121" class="LineNr"> 4121 </span> <span class="subxComment"># setup</span> -<span id="L4122" class="LineNr"> 4122 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4123" class="LineNr"> 4123 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4124" class="LineNr"> 4124 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4125" class="LineNr"> 4125 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4126" class="LineNr"> 4126 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L4127" class="LineNr"> 4127 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L4128" class="LineNr"> 4128 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L4129" class="LineNr"> 4129 </span> 68/push 0/imm32 -<span id="L4130" class="LineNr"> 4130 </span> 68/push 0/imm32 -<span id="L4131" class="LineNr"> 4131 </span> 89/<- %edx 4/r32/esp -<span id="L4132" class="LineNr"> 4132 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L4133" class="LineNr"> 4133 </span> <span class="subxComment">#</span> -<span id="L4134" class="LineNr"> 4134 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4135" class="LineNr"> 4135 </span> (<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="L4136" class="LineNr"> 4136 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4137" class="LineNr"> 4137 </span> <span class="subxComment"># convert</span> -<span id="L4138" class="LineNr"> 4138 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L4139" class="LineNr"> 4139 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L4140" class="LineNr"> 4140 </span> <span class="subxComment"># restore ed</span> -<span id="L4141" class="LineNr"> 4141 </span> 89/<- %edx 4/r32/esp -<span id="L4142" class="LineNr"> 4142 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4143" class="LineNr"> 4143 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L4144" class="Folded"> 4144 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4150" class="LineNr"> 4150 </span> <span class="subxComment"># check output</span> -<span id="L4151" class="LineNr"> 4151 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4117'>test-array-size-in-hex</a>: output should be empty"</span>) -<span id="L4152" class="LineNr"> 4152 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; either start '10' with a '0x' to be unambiguous, or convert it to decimal."</span> <span class="Constant">"F - <a href='mu.subx.html#L4117'>test-array-size-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L4153" class="LineNr"> 4153 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L4154" class="LineNr"> 4154 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4117'>test-array-size-in-hex</a>: exit status"</span>) -<span id="L4155" class="LineNr"> 4155 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L4156" class="LineNr"> 4156 </span> 81 0/subop/add %esp 8/imm32 -<span id="L4157" class="LineNr"> 4157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2974" class="LineNr"> 2974 </span> 89/<- %esp 5/r32/ebp +<span id="L2975" class="LineNr"> 2975 </span> 5d/pop-to-ebp +<span id="L2976" class="LineNr"> 2976 </span> c3/return +<span id="L2977" class="LineNr"> 2977 </span> +<span id="L2978" class="LineNr"> 2978 </span><span class="subxTest">test-stmt-defines-output-in-same-register-as-inout</span>: +<span id="L2979" class="LineNr"> 2979 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2980" class="LineNr"> 2980 </span> 55/push-ebp +<span id="L2981" class="LineNr"> 2981 </span> 89/<- %ebp 4/r32/esp +<span id="L2982" class="LineNr"> 2982 </span> <span class="subxComment"># setup</span> +<span id="L2983" class="LineNr"> 2983 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2984" class="LineNr"> 2984 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2985" class="LineNr"> 2985 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L2986" class="LineNr"> 2986 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2987" class="LineNr"> 2987 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L2988" class="LineNr"> 2988 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2989" class="LineNr"> 2989 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2990" class="LineNr"> 2990 </span> 68/push 0/imm32 +<span id="L2991" class="LineNr"> 2991 </span> 68/push 0/imm32 +<span id="L2992" class="LineNr"> 2992 </span> 89/<- %edx 4/r32/esp +<span id="L2993" class="LineNr"> 2993 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2994" class="LineNr"> 2994 </span> <span class="subxComment">#</span> +<span id="L2995" class="LineNr"> 2995 </span> (<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/ecx: int {\n"</span>) +<span id="L2996" class="LineNr"> 2996 </span> (<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="L2997" class="LineNr"> 2997 </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 class="subxComment"># writing to a fn output is currently the only way for a statement to define a new var</span> +<span id="L2998" class="LineNr"> 2998 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2999" class="LineNr"> 2999 </span> <span class="subxComment"># convert</span> +<span id="L3000" class="LineNr"> 3000 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L3001" class="LineNr"> 3001 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3002" class="LineNr"> 3002 </span> <span class="subxComment"># restore ed</span> +<span id="L3003" class="LineNr"> 3003 </span> 89/<- %edx 4/r32/esp +<span id="L3004" class="LineNr"> 3004 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3005" class="LineNr"> 3005 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L3006" class="Folded"> 3006 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3012" class="LineNr"> 3012 </span> <span class="subxComment"># no error; we looked up 'y' correctly before pushing the binding for 'x'</span> +<span id="L3013" class="LineNr"> 3013 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2978'>test-stmt-defines-output-in-same-register-as-inout</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3014" class="LineNr"> 3014 </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="L3015" class="LineNr"> 3015 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3016" class="LineNr"> 3016 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3017" class="LineNr"> 3017 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3018" class="LineNr"> 3018 </span> 5d/pop-to-ebp +<span id="L3019" class="LineNr"> 3019 </span> c3/return +<span id="L3020" class="LineNr"> 3020 </span> +<span id="L3021" class="LineNr"> 3021 </span><span class="subxTest">test-local-clobbered-by-fn-output</span>: +<span id="L3022" class="LineNr"> 3022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3023" class="LineNr"> 3023 </span> 55/push-ebp +<span id="L3024" class="LineNr"> 3024 </span> 89/<- %ebp 4/r32/esp +<span id="L3025" class="LineNr"> 3025 </span> <span class="subxComment"># setup</span> +<span id="L3026" class="LineNr"> 3026 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3027" class="LineNr"> 3027 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3028" class="LineNr"> 3028 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3029" class="LineNr"> 3029 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3030" class="LineNr"> 3030 </span> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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">" var y/ecx: int <- copy 4\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">" x <- copy y\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">"}\n"</span>) +<span id="L3035" class="LineNr"> 3035 </span> <span class="subxComment"># convert</span> +<span id="L3036" class="LineNr"> 3036 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3037" class="LineNr"> 3037 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3038" class="Folded"> 3038 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3044" class="LineNr"> 3044 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-local-clobbered-by-fn-output/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/6"</span>) <span class="subxComment"># no push because it's an output reg</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-local-clobbered-by-fn-output/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3021'>test-local-clobbered-by-fn-output</a>/13"</span>) +<span id="L3059" class="LineNr"> 3059 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3060" class="LineNr"> 3060 </span> 89/<- %esp 5/r32/ebp +<span id="L3061" class="LineNr"> 3061 </span> 5d/pop-to-ebp +<span id="L3062" class="LineNr"> 3062 </span> c3/return +<span id="L3063" class="LineNr"> 3063 </span> +<span id="L3064" class="LineNr"> 3064 </span><span class="subxTest">test-read-output</span>: +<span id="L3065" class="LineNr"> 3065 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3066" class="LineNr"> 3066 </span> 55/push-ebp +<span id="L3067" class="LineNr"> 3067 </span> 89/<- %ebp 4/r32/esp +<span id="L3068" class="LineNr"> 3068 </span> <span class="subxComment"># setup</span> +<span id="L3069" class="LineNr"> 3069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3070" class="LineNr"> 3070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3071" class="LineNr"> 3071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3072" class="LineNr"> 3072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3073" class="LineNr"> 3073 </span> <span class="subxComment">#</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">"fn foo -> x/ecx: int {\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">" x <- copy 0x34\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">" compare x, 0x35\n"</span>) +<span id="L3077" class="LineNr"> 3077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3078" class="LineNr"> 3078 </span> <span class="subxComment"># convert</span> +<span id="L3079" class="LineNr"> 3079 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3080" class="LineNr"> 3080 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3081" class="Folded"> 3081 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3087" class="LineNr"> 3087 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-read-output/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</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#L285'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0x35/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-read-output/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3064'>test-read-output</a>/13"</span>) +<span id="L3102" class="LineNr"> 3102 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3103" class="LineNr"> 3103 </span> 89/<- %esp 5/r32/ebp +<span id="L3104" class="LineNr"> 3104 </span> 5d/pop-to-ebp +<span id="L3105" class="LineNr"> 3105 </span> c3/return +<span id="L3106" class="LineNr"> 3106 </span> +<span id="L3107" class="LineNr"> 3107 </span><span class="subxTest">test-fn-output-written-in-inner-block</span>: +<span id="L3108" class="LineNr"> 3108 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3109" class="LineNr"> 3109 </span> 55/push-ebp +<span id="L3110" class="LineNr"> 3110 </span> 89/<- %ebp 4/r32/esp +<span id="L3111" class="LineNr"> 3111 </span> <span class="subxComment"># setup</span> +<span id="L3112" class="LineNr"> 3112 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3113" class="LineNr"> 3113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3114" class="LineNr"> 3114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3115" class="LineNr"> 3115 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3116" class="LineNr"> 3116 </span> <span class="subxComment">#</span> +<span id="L3117" class="LineNr"> 3117 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> out/edi: int {\n"</span>) +<span id="L3118" class="LineNr"> 3118 </span> (<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 3\n"</span>) <span class="subxComment"># define outer local</span> +<span id="L3119" class="LineNr"> 3119 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3120" class="LineNr"> 3120 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ecx: int <- copy 4\n"</span>) <span class="subxComment"># shadow outer local</span> +<span id="L3121" class="LineNr"> 3121 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" out <- copy a\n"</span>) <span class="subxComment"># write to fn output</span> +<span id="L3122" class="LineNr"> 3122 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3123" class="LineNr"> 3123 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare a, 0\n"</span>) <span class="subxComment"># use outer local</span> +<span id="L3124" class="LineNr"> 3124 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3125" class="LineNr"> 3125 </span> <span class="subxComment"># convert</span> +<span id="L3126" class="LineNr"> 3126 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3127" class="LineNr"> 3127 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3128" class="Folded"> 3128 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3134" class="LineNr"> 3134 </span> <span class="subxComment"># no error; defining 'out' didn't interfere with the reclamation of 'b'</span> +<span id="L3135" class="LineNr"> 3135 </span> <span class="subxComment"># check output</span> +<span id="L3136" class="LineNr"> 3136 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/0"</span>) +<span id="L3137" class="LineNr"> 3137 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-fn-output-written-in-inner-block/1"</span>) +<span id="L3138" class="LineNr"> 3138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/2"</span>) +<span id="L3139" class="LineNr"> 3139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/3"</span>) +<span id="L3140" class="LineNr"> 3140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/4"</span>) +<span id="L3141" class="LineNr"> 3141 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/5"</span>) +<span id="L3142" class="LineNr"> 3142 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/6"</span>) +<span id="L3143" class="LineNr"> 3143 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/7"</span>) +<span id="L3144" class="LineNr"> 3144 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/8"</span>) +<span id="L3145" class="LineNr"> 3145 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/9"</span>) +<span id="L3146" class="LineNr"> 3146 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/10"</span>) +<span id="L3147" class="LineNr"> 3147 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/10"</span>) +<span id="L3148" class="LineNr"> 3148 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %edi 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/11"</span>) +<span id="L3149" class="LineNr"> 3149 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/12"</span>) +<span id="L3150" class="LineNr"> 3150 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/13"</span>) +<span id="L3151" class="LineNr"> 3151 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 3d/compare-eax-with 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-fn-output-written-in-inner-block/19"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3107'>test-fn-output-written-in-inner-block</a>/22"</span>) +<span id="L3160" class="LineNr"> 3160 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3161" class="LineNr"> 3161 </span> 89/<- %esp 5/r32/ebp +<span id="L3162" class="LineNr"> 3162 </span> 5d/pop-to-ebp +<span id="L3163" class="LineNr"> 3163 </span> c3/return +<span id="L3164" class="LineNr"> 3164 </span> +<span id="L3165" class="LineNr"> 3165 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: +<span id="L3166" class="LineNr"> 3166 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3167" class="LineNr"> 3167 </span> 55/push-ebp +<span id="L3168" class="LineNr"> 3168 </span> 89/<- %ebp 4/r32/esp +<span id="L3169" class="LineNr"> 3169 </span> <span class="subxComment"># setup</span> +<span id="L3170" class="LineNr"> 3170 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3171" class="LineNr"> 3171 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3172" class="LineNr"> 3172 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3173" class="LineNr"> 3173 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3174" class="LineNr"> 3174 </span> <span class="subxComment">#</span> +<span id="L3175" class="LineNr"> 3175 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L3176" class="LineNr"> 3176 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3177" class="LineNr"> 3177 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L3178" class="LineNr"> 3178 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr<\n"</span>) +<span id="L3179" class="LineNr"> 3179 </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="L3180" class="LineNr"> 3180 </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="L3181" class="LineNr"> 3181 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3182" class="LineNr"> 3182 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3183" class="LineNr"> 3183 </span> <span class="subxComment"># convert</span> +<span id="L3184" class="LineNr"> 3184 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3185" class="LineNr"> 3185 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3186" class="Folded"> 3186 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3192" class="LineNr"> 3192 </span> <span class="subxComment"># check output</span> +<span id="L3193" class="LineNr"> 3193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L3194" class="LineNr"> 3194 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L3195" class="LineNr"> 3195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L3196" class="LineNr"> 3196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L3197" class="LineNr"> 3197 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L3198" class="LineNr"> 3198 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L3199" class="LineNr"> 3199 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L3200" class="LineNr"> 3200 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L3201" class="LineNr"> 3201 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L3202" class="LineNr"> 3202 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L3203" class="LineNr"> 3203 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/10"</span>) +<span id="L3204" class="LineNr"> 3204 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L3205" class="LineNr"> 3205 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/12"</span>) +<span id="L3206" class="LineNr"> 3206 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L3207" class="LineNr"> 3207 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L3208" class="LineNr"> 3208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L3209" class="LineNr"> 3209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L3210" class="LineNr"> 3210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L3211" class="LineNr"> 3211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L3212" class="LineNr"> 3212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L3213" class="LineNr"> 3213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L3214" class="LineNr"> 3214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L3215" class="LineNr"> 3215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L3216" class="LineNr"> 3216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L3217" class="LineNr"> 3217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L3218" class="LineNr"> 3218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L3219" class="LineNr"> 3219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3220" class="LineNr"> 3220 </span> 89/<- %esp 5/r32/ebp +<span id="L3221" class="LineNr"> 3221 </span> 5d/pop-to-ebp +<span id="L3222" class="LineNr"> 3222 </span> c3/return +<span id="L3223" class="LineNr"> 3223 </span> +<span id="L3224" class="LineNr"> 3224 </span><span class="subxTest">test-convert-function-with-branches-in-block-2</span>: +<span id="L3225" class="LineNr"> 3225 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3226" class="LineNr"> 3226 </span> 55/push-ebp +<span id="L3227" class="LineNr"> 3227 </span> 89/<- %ebp 4/r32/esp +<span id="L3228" class="LineNr"> 3228 </span> <span class="subxComment"># setup</span> +<span id="L3229" class="LineNr"> 3229 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3230" class="LineNr"> 3230 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3231" class="LineNr"> 3231 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3232" class="LineNr"> 3232 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3233" class="LineNr"> 3233 </span> <span class="subxComment">#</span> +<span id="L3234" class="LineNr"> 3234 </span> (<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="L3235" class="LineNr"> 3235 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3236" class="LineNr"> 3236 </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="L3237" class="LineNr"> 3237 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) +<span id="L3238" class="LineNr"> 3238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L3239" class="LineNr"> 3239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L3240" class="LineNr"> 3240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3241" class="LineNr"> 3241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3242" class="LineNr"> 3242 </span> <span class="subxComment"># convert</span> +<span id="L3243" class="LineNr"> 3243 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3244" class="LineNr"> 3244 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3245" class="Folded"> 3245 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3251" class="LineNr"> 3251 </span> <span class="subxComment"># check output</span> +<span id="L3252" class="LineNr"> 3252 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L3253" class="LineNr"> 3253 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L3254" class="LineNr"> 3254 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L3255" class="LineNr"> 3255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L3256" class="LineNr"> 3256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L3257" class="LineNr"> 3257 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L3258" class="LineNr"> 3258 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L3259" class="LineNr"> 3259 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L3260" class="LineNr"> 3260 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L3261" class="LineNr"> 3261 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L3262" class="LineNr"> 3262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L3264" class="LineNr"> 3264 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L3266" class="LineNr"> 3266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L3267" class="LineNr"> 3267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L3268" class="LineNr"> 3268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L3269" class="LineNr"> 3269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L3270" class="LineNr"> 3270 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L3271" class="LineNr"> 3271 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L3272" class="LineNr"> 3272 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L3273" class="LineNr"> 3273 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L3274" class="LineNr"> 3274 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L3275" class="LineNr"> 3275 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L3276" class="LineNr"> 3276 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L3277" class="LineNr"> 3277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3165'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L3278" class="LineNr"> 3278 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3279" class="LineNr"> 3279 </span> 89/<- %esp 5/r32/ebp +<span id="L3280" class="LineNr"> 3280 </span> 5d/pop-to-ebp +<span id="L3281" class="LineNr"> 3281 </span> c3/return +<span id="L3282" class="LineNr"> 3282 </span> +<span id="L3283" class="LineNr"> 3283 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: +<span id="L3284" class="LineNr"> 3284 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3285" class="LineNr"> 3285 </span> 55/push-ebp +<span id="L3286" class="LineNr"> 3286 </span> 89/<- %ebp 4/r32/esp +<span id="L3287" class="LineNr"> 3287 </span> <span class="subxComment"># setup</span> +<span id="L3288" class="LineNr"> 3288 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3289" class="LineNr"> 3289 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3290" class="LineNr"> 3290 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3291" class="LineNr"> 3291 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3292" class="LineNr"> 3292 </span> <span class="subxComment">#</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">"fn foo x: int {\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">" $bar: {\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">" break-if->= $bar\n"</span>) +<span id="L3296" class="LineNr"> 3296 </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="L3297" class="LineNr"> 3297 </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="L3298" class="LineNr"> 3298 </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="L3299" class="LineNr"> 3299 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3300" class="LineNr"> 3300 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3301" class="LineNr"> 3301 </span> <span class="subxComment"># convert</span> +<span id="L3302" class="LineNr"> 3302 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3303" class="LineNr"> 3303 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3304" class="Folded"> 3304 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3310" class="LineNr"> 3310 </span> <span class="subxComment"># check output</span> +<span id="L3311" class="LineNr"> 3311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/0"</span>) +<span id="L3312" class="LineNr"> 3312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) +<span id="L3313" class="LineNr"> 3313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/2"</span>) +<span id="L3314" class="LineNr"> 3314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/3"</span>) +<span id="L3315" class="LineNr"> 3315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/4"</span>) +<span id="L3316" class="LineNr"> 3316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/5"</span>) +<span id="L3317" class="LineNr"> 3317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/6"</span>) +<span id="L3318" class="LineNr"> 3318 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/7"</span>) +<span id="L3319" class="LineNr"> 3319 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/8"</span>) +<span id="L3320" class="LineNr"> 3320 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/9"</span>) +<span id="L3321" class="LineNr"> 3321 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/10"</span>) +<span id="L3322" class="LineNr"> 3322 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/11"</span>) +<span id="L3323" class="LineNr"> 3323 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/12"</span>) +<span id="L3324" class="LineNr"> 3324 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/13"</span>) +<span id="L3325" class="LineNr"> 3325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/14"</span>) +<span id="L3326" class="LineNr"> 3326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/15"</span>) +<span id="L3327" class="LineNr"> 3327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/16"</span>) +<span id="L3328" class="LineNr"> 3328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/17"</span>) +<span id="L3329" class="LineNr"> 3329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/18"</span>) +<span id="L3330" class="LineNr"> 3330 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/19"</span>) +<span id="L3331" class="LineNr"> 3331 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/20"</span>) +<span id="L3332" class="LineNr"> 3332 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/21"</span>) +<span id="L3333" class="LineNr"> 3333 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) +<span id="L3334" class="LineNr"> 3334 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/23"</span>) +<span id="L3335" class="LineNr"> 3335 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/24"</span>) +<span id="L3336" class="LineNr"> 3336 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3283'>test-convert-function-with-branches-in-named-block</a>/25"</span>) +<span id="L3337" class="LineNr"> 3337 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3338" class="LineNr"> 3338 </span> 89/<- %esp 5/r32/ebp +<span id="L3339" class="LineNr"> 3339 </span> 5d/pop-to-ebp +<span id="L3340" class="LineNr"> 3340 </span> c3/return +<span id="L3341" class="LineNr"> 3341 </span> +<span id="L3342" class="LineNr"> 3342 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: +<span id="L3343" class="LineNr"> 3343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3344" class="LineNr"> 3344 </span> 55/push-ebp +<span id="L3345" class="LineNr"> 3345 </span> 89/<- %ebp 4/r32/esp +<span id="L3346" class="LineNr"> 3346 </span> <span class="subxComment"># setup</span> +<span id="L3347" class="LineNr"> 3347 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3348" class="LineNr"> 3348 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3349" class="LineNr"> 3349 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3350" class="LineNr"> 3350 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3351" class="LineNr"> 3351 </span> <span class="subxComment">#</span> +<span id="L3352" class="LineNr"> 3352 </span> (<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="L3353" class="LineNr"> 3353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3354" class="LineNr"> 3354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3355" class="LineNr"> 3355 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L3356" class="LineNr"> 3356 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L3357" class="LineNr"> 3357 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3358" class="LineNr"> 3358 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3359" class="LineNr"> 3359 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3360" class="LineNr"> 3360 </span> <span class="subxComment"># convert</span> +<span id="L3361" class="LineNr"> 3361 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3362" class="LineNr"> 3362 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3363" class="Folded"> 3363 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3369" class="LineNr"> 3369 </span> <span class="subxComment"># check output</span> +<span id="L3370" class="LineNr"> 3370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/0"</span>) +<span id="L3371" class="LineNr"> 3371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) +<span id="L3372" class="LineNr"> 3372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/2"</span>) +<span id="L3373" class="LineNr"> 3373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/3"</span>) +<span id="L3374" class="LineNr"> 3374 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/4"</span>) +<span id="L3375" class="LineNr"> 3375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/5"</span>) +<span id="L3376" class="LineNr"> 3376 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/6"</span>) +<span id="L3377" class="LineNr"> 3377 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/7"</span>) +<span id="L3378" class="LineNr"> 3378 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/8"</span>) +<span id="L3379" class="LineNr"> 3379 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/9"</span>) +<span id="L3380" class="LineNr"> 3380 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/10"</span>) +<span id="L3381" class="LineNr"> 3381 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/11"</span>) +<span id="L3382" class="LineNr"> 3382 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/12"</span>) +<span id="L3383" class="LineNr"> 3383 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/13"</span>) +<span id="L3384" class="LineNr"> 3384 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/14"</span>) +<span id="L3385" class="LineNr"> 3385 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/15"</span>) +<span id="L3386" class="LineNr"> 3386 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/16"</span>) +<span id="L3387" class="LineNr"> 3387 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/17"</span>) +<span id="L3388" class="LineNr"> 3388 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/18"</span>) +<span id="L3389" class="LineNr"> 3389 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) +<span id="L3390" class="LineNr"> 3390 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/20"</span>) +<span id="L3391" class="LineNr"> 3391 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/21"</span>) +<span id="L3392" class="LineNr"> 3392 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3342'>test-convert-function-with-var-in-nested-block</a>/22"</span>) +<span id="L3393" class="LineNr"> 3393 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3394" class="LineNr"> 3394 </span> 89/<- %esp 5/r32/ebp +<span id="L3395" class="LineNr"> 3395 </span> 5d/pop-to-ebp +<span id="L3396" class="LineNr"> 3396 </span> c3/return +<span id="L3397" class="LineNr"> 3397 </span> +<span id="L3398" class="LineNr"> 3398 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: +<span id="L3399" class="LineNr"> 3399 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3400" class="LineNr"> 3400 </span> 55/push-ebp +<span id="L3401" class="LineNr"> 3401 </span> 89/<- %ebp 4/r32/esp +<span id="L3402" class="LineNr"> 3402 </span> <span class="subxComment"># setup</span> +<span id="L3403" class="LineNr"> 3403 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3404" class="LineNr"> 3404 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3405" class="LineNr"> 3405 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3406" class="LineNr"> 3406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3407" class="LineNr"> 3407 </span> <span class="subxComment">#</span> +<span id="L3408" class="LineNr"> 3408 </span> (<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="L3409" class="LineNr"> 3409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3410" class="LineNr"> 3410 </span> (<a 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="L3411" class="LineNr"> 3411 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3412" class="LineNr"> 3412 </span> (<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="L3413" class="LineNr"> 3413 </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="L3414" class="LineNr"> 3414 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3415" class="LineNr"> 3415 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3416" class="LineNr"> 3416 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3417" class="LineNr"> 3417 </span> <span class="subxComment"># convert</span> +<span id="L3418" class="LineNr"> 3418 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3419" class="LineNr"> 3419 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3420" class="Folded"> 3420 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3426" class="LineNr"> 3426 </span> <span class="subxComment"># check output</span> +<span id="L3427" class="LineNr"> 3427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) +<span id="L3428" class="LineNr"> 3428 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) +<span id="L3429" class="LineNr"> 3429 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) +<span id="L3430" class="LineNr"> 3430 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) +<span id="L3431" class="LineNr"> 3431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) +<span id="L3432" class="LineNr"> 3432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) +<span id="L3433" class="LineNr"> 3433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) +<span id="L3434" class="LineNr"> 3434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) +<span id="L3435" class="LineNr"> 3435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) +<span id="L3436" class="LineNr"> 3436 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) +<span id="L3437" class="LineNr"> 3437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) +<span id="L3438" class="LineNr"> 3438 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) +<span id="L3439" class="LineNr"> 3439 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) +<span id="L3440" class="LineNr"> 3440 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) +<span id="L3441" class="LineNr"> 3441 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) +<span id="L3442" class="LineNr"> 3442 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) +<span id="L3443" class="LineNr"> 3443 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) +<span id="L3444" class="LineNr"> 3444 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) +<span id="L3445" class="LineNr"> 3445 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) +<span id="L3447" class="LineNr"> 3447 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) +<span id="L3448" class="LineNr"> 3448 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) +<span id="L3449" class="LineNr"> 3449 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) +<span id="L3450" class="LineNr"> 3450 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) +<span id="L3451" class="LineNr"> 3451 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) +<span id="L3452" class="LineNr"> 3452 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3398'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) +<span id="L3453" class="LineNr"> 3453 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3454" class="LineNr"> 3454 </span> 89/<- %esp 5/r32/ebp +<span id="L3455" class="LineNr"> 3455 </span> 5d/pop-to-ebp +<span id="L3456" class="LineNr"> 3456 </span> c3/return +<span id="L3457" class="LineNr"> 3457 </span> +<span id="L3458" class="LineNr"> 3458 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: +<span id="L3459" class="LineNr"> 3459 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> +<span id="L3460" class="LineNr"> 3460 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> +<span id="L3461" class="LineNr"> 3461 </span> <span class="subxComment"># results in some ugly code duplication.</span> +<span id="L3462" class="LineNr"> 3462 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3463" class="LineNr"> 3463 </span> 55/push-ebp +<span id="L3464" class="LineNr"> 3464 </span> 89/<- %ebp 4/r32/esp +<span id="L3465" class="LineNr"> 3465 </span> <span class="subxComment"># setup</span> +<span id="L3466" class="LineNr"> 3466 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3467" class="LineNr"> 3467 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3468" class="LineNr"> 3468 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3469" class="LineNr"> 3469 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<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 foo {\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">" var x: 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">" break-if->=\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">" increment x\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3478" class="LineNr"> 3478 </span> <span class="subxComment"># convert</span> +<span id="L3479" class="LineNr"> 3479 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3480" class="LineNr"> 3480 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3481" class="Folded"> 3481 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3487" class="LineNr"> 3487 </span> <span class="subxComment"># check output</span> +<span id="L3488" class="LineNr"> 3488 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) +<span id="L3489" class="LineNr"> 3489 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) +<span id="L3490" class="LineNr"> 3490 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) +<span id="L3491" class="LineNr"> 3491 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) +<span id="L3493" class="LineNr"> 3493 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) +<span id="L3494" class="LineNr"> 3494 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) +<span id="L3495" class="LineNr"> 3495 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) +<span id="L3496" class="LineNr"> 3496 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) +<span id="L3497" class="LineNr"> 3497 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) +<span id="L3498" class="LineNr"> 3498 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) +<span id="L3499" class="LineNr"> 3499 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) +<span id="L3500" class="LineNr"> 3500 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) +<span id="L3501" class="LineNr"> 3501 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) +<span id="L3502" class="LineNr"> 3502 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) +<span id="L3503" class="LineNr"> 3503 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) +<span id="L3504" class="LineNr"> 3504 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) +<span id="L3505" class="LineNr"> 3505 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) +<span id="L3506" class="LineNr"> 3506 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) +<span id="L3507" class="LineNr"> 3507 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) +<span id="L3508" class="LineNr"> 3508 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) +<span id="L3509" class="LineNr"> 3509 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) +<span id="L3510" class="LineNr"> 3510 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) +<span id="L3511" class="LineNr"> 3511 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3458'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) +<span id="L3512" class="LineNr"> 3512 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3513" class="LineNr"> 3513 </span> 89/<- %esp 5/r32/ebp +<span id="L3514" class="LineNr"> 3514 </span> 5d/pop-to-ebp +<span id="L3515" class="LineNr"> 3515 </span> c3/return +<span id="L3516" class="LineNr"> 3516 </span> +<span id="L3517" class="LineNr"> 3517 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: +<span id="L3518" class="LineNr"> 3518 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> +<span id="L3519" class="LineNr"> 3519 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> +<span id="L3520" class="LineNr"> 3520 </span> <span class="subxComment"># in some ugly code duplication.</span> +<span id="L3521" class="LineNr"> 3521 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3522" class="LineNr"> 3522 </span> 55/push-ebp +<span id="L3523" class="LineNr"> 3523 </span> 89/<- %ebp 4/r32/esp +<span id="L3524" class="LineNr"> 3524 </span> <span class="subxComment"># setup</span> +<span id="L3525" class="LineNr"> 3525 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3526" class="LineNr"> 3526 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3527" class="LineNr"> 3527 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3528" class="LineNr"> 3528 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3529" class="LineNr"> 3529 </span> <span class="subxComment">#</span> +<span id="L3530" class="LineNr"> 3530 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3531" class="LineNr"> 3531 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3532" class="LineNr"> 3532 </span> (<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="L3533" class="LineNr"> 3533 </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="L3534" class="LineNr"> 3534 </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="L3535" class="LineNr"> 3535 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3536" class="LineNr"> 3536 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3537" class="LineNr"> 3537 </span> <span class="subxComment"># convert</span> +<span id="L3538" class="LineNr"> 3538 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3539" class="LineNr"> 3539 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3540" class="Folded"> 3540 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3546" class="LineNr"> 3546 </span> <span class="subxComment"># check output</span> +<span id="L3547" class="LineNr"> 3547 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) +<span id="L3548" class="LineNr"> 3548 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) +<span id="L3549" class="LineNr"> 3549 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) +<span id="L3550" class="LineNr"> 3550 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) +<span id="L3551" class="LineNr"> 3551 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) +<span id="L3552" class="LineNr"> 3552 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) +<span id="L3553" class="LineNr"> 3553 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) +<span id="L3554" class="LineNr"> 3554 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) +<span id="L3555" class="LineNr"> 3555 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) +<span id="L3556" class="LineNr"> 3556 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) +<span id="L3557" class="LineNr"> 3557 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) +<span id="L3558" class="LineNr"> 3558 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) +<span id="L3559" class="LineNr"> 3559 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) +<span id="L3560" class="LineNr"> 3560 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) +<span id="L3561" class="LineNr"> 3561 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) +<span id="L3562" class="LineNr"> 3562 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) +<span id="L3563" class="LineNr"> 3563 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) +<span id="L3564" class="LineNr"> 3564 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) +<span id="L3565" class="LineNr"> 3565 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) +<span id="L3566" class="LineNr"> 3566 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) +<span id="L3567" class="LineNr"> 3567 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) +<span id="L3568" class="LineNr"> 3568 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) +<span id="L3569" class="LineNr"> 3569 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) +<span id="L3570" class="LineNr"> 3570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3517'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) +<span id="L3571" class="LineNr"> 3571 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3572" class="LineNr"> 3572 </span> 89/<- %esp 5/r32/ebp +<span id="L3573" class="LineNr"> 3573 </span> 5d/pop-to-ebp +<span id="L3574" class="LineNr"> 3574 </span> c3/return +<span id="L3575" class="LineNr"> 3575 </span> +<span id="L3576" class="LineNr"> 3576 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: +<span id="L3577" class="LineNr"> 3577 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> +<span id="L3578" class="LineNr"> 3578 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> +<span id="L3579" class="LineNr"> 3579 </span> <span class="subxComment"># therefore skipped.</span> +<span id="L3580" class="LineNr"> 3580 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3581" class="LineNr"> 3581 </span> 55/push-ebp +<span id="L3582" class="LineNr"> 3582 </span> 89/<- %ebp 4/r32/esp +<span id="L3583" class="LineNr"> 3583 </span> <span class="subxComment"># setup</span> +<span id="L3584" class="LineNr"> 3584 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3585" class="LineNr"> 3585 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3586" class="LineNr"> 3586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3587" class="LineNr"> 3587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3588" class="LineNr"> 3588 </span> <span class="subxComment">#</span> +<span id="L3589" class="LineNr"> 3589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3590" class="LineNr"> 3590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3591" class="LineNr"> 3591 </span> (<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="L3592" class="LineNr"> 3592 </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="L3593" class="LineNr"> 3593 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L3594" class="LineNr"> 3594 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3595" class="LineNr"> 3595 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3596" class="LineNr"> 3596 </span> <span class="subxComment"># convert</span> +<span id="L3597" class="LineNr"> 3597 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3598" class="LineNr"> 3598 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3599" class="Folded"> 3599 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3605" class="LineNr"> 3605 </span> <span class="subxComment"># check output</span> +<span id="L3606" class="LineNr"> 3606 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) +<span id="L3607" class="LineNr"> 3607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) +<span id="L3608" class="LineNr"> 3608 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) +<span id="L3609" class="LineNr"> 3609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) +<span id="L3610" class="LineNr"> 3610 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) +<span id="L3611" class="LineNr"> 3611 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) +<span id="L3612" class="LineNr"> 3612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) +<span id="L3613" class="LineNr"> 3613 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) +<span id="L3614" class="LineNr"> 3614 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) +<span id="L3615" class="LineNr"> 3615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) +<span id="L3616" class="LineNr"> 3616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) +<span id="L3617" class="LineNr"> 3617 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> +<span id="L3618" class="LineNr"> 3618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) +<span id="L3619" class="LineNr"> 3619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) +<span id="L3620" class="LineNr"> 3620 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) +<span id="L3621" class="LineNr"> 3621 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) +<span id="L3622" class="LineNr"> 3622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) +<span id="L3623" class="LineNr"> 3623 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) +<span id="L3624" class="LineNr"> 3624 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</span>) +<span id="L3625" class="LineNr"> 3625 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3576'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) +<span id="L3626" class="LineNr"> 3626 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3627" class="LineNr"> 3627 </span> 89/<- %esp 5/r32/ebp +<span id="L3628" class="LineNr"> 3628 </span> 5d/pop-to-ebp +<span id="L3629" class="LineNr"> 3629 </span> c3/return +<span id="L3630" class="LineNr"> 3630 </span> +<span id="L3631" class="LineNr"> 3631 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: +<span id="L3632" class="LineNr"> 3632 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3633" class="LineNr"> 3633 </span> 55/push-ebp +<span id="L3634" class="LineNr"> 3634 </span> 89/<- %ebp 4/r32/esp +<span id="L3635" class="LineNr"> 3635 </span> <span class="subxComment"># setup</span> +<span id="L3636" class="LineNr"> 3636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3637" class="LineNr"> 3637 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3638" class="LineNr"> 3638 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3639" class="LineNr"> 3639 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3640" class="LineNr"> 3640 </span> <span class="subxComment">#</span> +<span id="L3641" class="LineNr"> 3641 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3642" class="LineNr"> 3642 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3643" class="LineNr"> 3643 </span> (<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="L3644" class="LineNr"> 3644 </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="L3645" class="LineNr"> 3645 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L3646" class="LineNr"> 3646 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L3647" class="LineNr"> 3647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3648" class="LineNr"> 3648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3649" class="LineNr"> 3649 </span> <span class="subxComment"># convert</span> +<span id="L3650" class="LineNr"> 3650 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3651" class="LineNr"> 3651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3652" class="Folded"> 3652 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3658" class="LineNr"> 3658 </span> <span class="subxComment"># check output</span> +<span id="L3659" class="LineNr"> 3659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L3660" class="LineNr"> 3660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) +<span id="L3661" class="LineNr"> 3661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L3662" class="LineNr"> 3662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L3663" class="LineNr"> 3663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L3664" class="LineNr"> 3664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L3665" class="LineNr"> 3665 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L3666" class="LineNr"> 3666 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L3667" class="LineNr"> 3667 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L3668" class="LineNr"> 3668 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L3669" class="LineNr"> 3669 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L3670" class="LineNr"> 3670 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L3672" class="LineNr"> 3672 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L3674" class="LineNr"> 3674 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L3675" class="LineNr"> 3675 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L3676" class="LineNr"> 3676 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L3677" class="LineNr"> 3677 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L3678" class="LineNr"> 3678 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L3679" class="LineNr"> 3679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L3680" class="LineNr"> 3680 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) +<span id="L3681" class="LineNr"> 3681 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L3682" class="LineNr"> 3682 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L3683" class="LineNr"> 3683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3631'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L3684" class="LineNr"> 3684 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3685" class="LineNr"> 3685 </span> 89/<- %esp 5/r32/ebp +<span id="L3686" class="LineNr"> 3686 </span> 5d/pop-to-ebp +<span id="L3687" class="LineNr"> 3687 </span> c3/return +<span id="L3688" class="LineNr"> 3688 </span> +<span id="L3689" class="LineNr"> 3689 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: +<span id="L3690" class="LineNr"> 3690 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3691" class="LineNr"> 3691 </span> 55/push-ebp +<span id="L3692" class="LineNr"> 3692 </span> 89/<- %ebp 4/r32/esp +<span id="L3693" class="LineNr"> 3693 </span> <span class="subxComment"># setup</span> +<span id="L3694" class="LineNr"> 3694 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3695" class="LineNr"> 3695 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3696" class="LineNr"> 3696 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3697" class="LineNr"> 3697 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3698" class="LineNr"> 3698 </span> <span class="subxComment">#</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">"fn foo {\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">" a: {\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">" var x: 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> (<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="L3704" class="LineNr"> 3704 </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="L3705" class="LineNr"> 3705 </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="L3706" class="LineNr"> 3706 </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="L3707" class="LineNr"> 3707 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3708" class="LineNr"> 3708 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3709" class="LineNr"> 3709 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3710" class="LineNr"> 3710 </span> <span class="subxComment"># convert</span> +<span id="L3711" class="LineNr"> 3711 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3712" class="LineNr"> 3712 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3713" class="Folded"> 3713 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3719" class="LineNr"> 3719 </span> <span class="subxComment"># check output</span> +<span id="L3720" class="LineNr"> 3720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L3721" class="LineNr"> 3721 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) +<span id="L3722" class="LineNr"> 3722 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L3723" class="LineNr"> 3723 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L3724" class="LineNr"> 3724 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L3725" class="LineNr"> 3725 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L3726" class="LineNr"> 3726 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L3727" class="LineNr"> 3727 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L3728" class="LineNr"> 3728 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L3729" class="LineNr"> 3729 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L3730" class="LineNr"> 3730 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L3731" class="LineNr"> 3731 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) +<span id="L3732" class="LineNr"> 3732 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L3733" class="LineNr"> 3733 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) +<span id="L3734" class="LineNr"> 3734 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L3735" class="LineNr"> 3735 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L3736" class="LineNr"> 3736 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L3737" class="LineNr"> 3737 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L3738" class="LineNr"> 3738 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L3739" class="LineNr"> 3739 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L3740" class="LineNr"> 3740 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L3741" class="LineNr"> 3741 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) +<span id="L3742" class="LineNr"> 3742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L3743" class="LineNr"> 3743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L3744" class="LineNr"> 3744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L3745" class="LineNr"> 3745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) +<span id="L3746" class="LineNr"> 3746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) +<span id="L3747" class="LineNr"> 3747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) +<span id="L3748" class="LineNr"> 3748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) +<span id="L3749" class="LineNr"> 3749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3689'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) +<span id="L3752" class="LineNr"> 3752 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3753" class="LineNr"> 3753 </span> 89/<- %esp 5/r32/ebp +<span id="L3754" class="LineNr"> 3754 </span> 5d/pop-to-ebp +<span id="L3755" class="LineNr"> 3755 </span> c3/return +<span id="L3756" class="LineNr"> 3756 </span> +<span id="L3757" class="LineNr"> 3757 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: +<span id="L3758" class="LineNr"> 3758 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3759" class="LineNr"> 3759 </span> 55/push-ebp +<span id="L3760" class="LineNr"> 3760 </span> 89/<- %ebp 4/r32/esp +<span id="L3761" class="LineNr"> 3761 </span> <span class="subxComment"># setup</span> +<span id="L3762" class="LineNr"> 3762 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3763" class="LineNr"> 3763 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3764" class="LineNr"> 3764 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3765" class="LineNr"> 3765 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3766" class="LineNr"> 3766 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> +<span id="L3767" class="LineNr"> 3767 </span> <span class="subxComment"># unwinding a local on the stack</span> +<span id="L3768" class="LineNr"> 3768 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3769" class="LineNr"> 3769 </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="L3770" class="LineNr"> 3770 </span> (<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="L3771" class="LineNr"> 3771 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3772" class="LineNr"> 3772 </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="L3773" class="LineNr"> 3773 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3774" class="LineNr"> 3774 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3775" class="LineNr"> 3775 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3776" class="LineNr"> 3776 </span> <span class="subxComment"># convert</span> +<span id="L3777" class="LineNr"> 3777 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3778" class="LineNr"> 3778 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3779" class="Folded"> 3779 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3785" class="LineNr"> 3785 </span> <span class="subxComment"># check output</span> +<span id="L3786" class="LineNr"> 3786 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) +<span id="L3787" class="LineNr"> 3787 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) +<span id="L3788" class="LineNr"> 3788 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) +<span id="L3789" class="LineNr"> 3789 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) +<span id="L3790" class="LineNr"> 3790 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) +<span id="L3791" class="LineNr"> 3791 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) +<span id="L3792" class="LineNr"> 3792 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) +<span id="L3793" class="LineNr"> 3793 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) +<span id="L3810" class="LineNr"> 3810 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) +<span id="L3811" class="LineNr"> 3811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) +<span id="L3812" class="LineNr"> 3812 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3757'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) +<span id="L3813" class="LineNr"> 3813 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3814" class="LineNr"> 3814 </span> 89/<- %esp 5/r32/ebp +<span id="L3815" class="LineNr"> 3815 </span> 5d/pop-to-ebp +<span id="L3816" class="LineNr"> 3816 </span> c3/return +<span id="L3817" class="LineNr"> 3817 </span> +<span id="L3818" class="LineNr"> 3818 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: +<span id="L3819" class="LineNr"> 3819 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3820" class="LineNr"> 3820 </span> 55/push-ebp +<span id="L3821" class="LineNr"> 3821 </span> 89/<- %ebp 4/r32/esp +<span id="L3822" class="LineNr"> 3822 </span> <span class="subxComment"># setup</span> +<span id="L3823" class="LineNr"> 3823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3824" class="LineNr"> 3824 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3825" class="LineNr"> 3825 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3826" class="LineNr"> 3826 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3827" class="LineNr"> 3827 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> +<span id="L3828" class="LineNr"> 3828 </span> <span class="subxComment"># unwinding a local on the stack</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">"fn foo {\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">" a: {\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">" var x: int\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">" {\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">" break a\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">" }\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> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3837" class="LineNr"> 3837 </span> <span class="subxComment"># convert</span> +<span id="L3838" class="LineNr"> 3838 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3839" class="LineNr"> 3839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3840" class="Folded"> 3840 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3846" class="LineNr"> 3846 </span> <span class="subxComment"># check output</span> +<span id="L3847" class="LineNr"> 3847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</span>) +<span id="L3848" class="LineNr"> 3848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) +<span id="L3849" class="LineNr"> 3849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</span>) +<span id="L3850" class="LineNr"> 3850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</span>) +<span id="L3851" class="LineNr"> 3851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</span>) +<span id="L3852" class="LineNr"> 3852 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</span>) +<span id="L3853" class="LineNr"> 3853 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) +<span id="L3854" class="LineNr"> 3854 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) +<span id="L3855" class="LineNr"> 3855 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) +<span id="L3856" class="LineNr"> 3856 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) +<span id="L3857" class="LineNr"> 3857 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) +<span id="L3858" class="LineNr"> 3858 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) +<span id="L3859" class="LineNr"> 3859 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) +<span id="L3860" class="LineNr"> 3860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) +<span id="L3861" class="LineNr"> 3861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) +<span id="L3862" class="LineNr"> 3862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) +<span id="L3868" class="LineNr"> 3868 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) +<span id="L3870" class="LineNr"> 3870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3818'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) +<span id="L3871" class="LineNr"> 3871 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3872" class="LineNr"> 3872 </span> 89/<- %esp 5/r32/ebp +<span id="L3873" class="LineNr"> 3873 </span> 5d/pop-to-ebp +<span id="L3874" class="LineNr"> 3874 </span> c3/return +<span id="L3875" class="LineNr"> 3875 </span> +<span id="L3876" class="LineNr"> 3876 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</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#L285'>_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> <span class="subxComment">#</span> +<span id="L3886" class="LineNr"> 3886 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3887" class="LineNr"> 3887 </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="L3888" class="LineNr"> 3888 </span> (<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="L3889" class="LineNr"> 3889 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3890" class="LineNr"> 3890 </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="L3891" class="LineNr"> 3891 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3892" class="LineNr"> 3892 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</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">"}\n"</span>) +<span id="L3894" class="LineNr"> 3894 </span> <span class="subxComment"># convert</span> +<span id="L3895" class="LineNr"> 3895 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3896" class="LineNr"> 3896 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3897" class="Folded"> 3897 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3903" class="LineNr"> 3903 </span> <span class="subxComment"># check output</span> +<span id="L3904" class="LineNr"> 3904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) +<span id="L3905" class="LineNr"> 3905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) +<span id="L3906" class="LineNr"> 3906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</span>) +<span id="L3907" class="LineNr"> 3907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) +<span id="L3914" class="LineNr"> 3914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) +<span id="L3915" class="LineNr"> 3915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) +<span id="L3916" class="LineNr"> 3916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) +<span id="L3917" class="LineNr"> 3917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) +<span id="L3918" class="LineNr"> 3918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) +<span id="L3919" class="LineNr"> 3919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) +<span id="L3920" class="LineNr"> 3920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) +<span id="L3921" class="LineNr"> 3921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) +<span id="L3922" class="LineNr"> 3922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) +<span id="L3923" class="LineNr"> 3923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) +<span id="L3924" class="LineNr"> 3924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) +<span id="L3925" class="LineNr"> 3925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) +<span id="L3926" class="LineNr"> 3926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) +<span id="L3927" class="LineNr"> 3927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) +<span id="L3928" class="LineNr"> 3928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) +<span id="L3929" class="LineNr"> 3929 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3930" class="LineNr"> 3930 </span> 89/<- %esp 5/r32/ebp +<span id="L3931" class="LineNr"> 3931 </span> 5d/pop-to-ebp +<span id="L3932" class="LineNr"> 3932 </span> c3/return +<span id="L3933" class="LineNr"> 3933 </span> +<span id="L3934" class="LineNr"> 3934 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: +<span id="L3935" class="LineNr"> 3935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3936" class="LineNr"> 3936 </span> 55/push-ebp +<span id="L3937" class="LineNr"> 3937 </span> 89/<- %ebp 4/r32/esp +<span id="L3938" class="LineNr"> 3938 </span> <span class="subxComment"># setup</span> +<span id="L3939" class="LineNr"> 3939 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3940" class="LineNr"> 3940 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3941" class="LineNr"> 3941 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L3942" class="LineNr"> 3942 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3943" class="LineNr"> 3943 </span> <span class="subxComment">#</span> +<span id="L3944" class="LineNr"> 3944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3945" class="LineNr"> 3945 </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="L3946" class="LineNr"> 3946 </span> (<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="L3947" class="LineNr"> 3947 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L3948" class="LineNr"> 3948 </span> (<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="L3949" class="LineNr"> 3949 </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="L3950" class="LineNr"> 3950 </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="L3951" class="LineNr"> 3951 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3952" class="LineNr"> 3952 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L3953" class="LineNr"> 3953 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3954" class="LineNr"> 3954 </span> <span class="subxComment"># convert</span> +<span id="L3955" class="LineNr"> 3955 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3956" class="LineNr"> 3956 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L3957" class="Folded"> 3957 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3963" class="LineNr"> 3963 </span> <span class="subxComment"># check output</span> +<span id="L3964" class="LineNr"> 3964 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L3965" class="LineNr"> 3965 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) +<span id="L3966" class="LineNr"> 3966 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L3967" class="LineNr"> 3967 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L3968" class="LineNr"> 3968 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L3969" class="LineNr"> 3969 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L3970" class="LineNr"> 3970 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L3971" class="LineNr"> 3971 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L3972" class="LineNr"> 3972 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) +<span id="L3973" class="LineNr"> 3973 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) +<span id="L3974" class="LineNr"> 3974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) +<span id="L3975" class="LineNr"> 3975 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) +<span id="L3976" class="LineNr"> 3976 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) +<span id="L3977" class="LineNr"> 3977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) +<span id="L3978" class="LineNr"> 3978 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) +<span id="L3979" class="LineNr"> 3979 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) +<span id="L3980" class="LineNr"> 3980 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) +<span id="L3981" class="LineNr"> 3981 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) +<span id="L3982" class="LineNr"> 3982 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) +<span id="L3983" class="LineNr"> 3983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L3984" class="LineNr"> 3984 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) +<span id="L3985" class="LineNr"> 3985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) +<span id="L3986" class="LineNr"> 3986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) +<span id="L3987" class="LineNr"> 3987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L3988" class="LineNr"> 3988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) +<span id="L3989" class="LineNr"> 3989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3934'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) +<span id="L3990" class="LineNr"> 3990 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3991" class="LineNr"> 3991 </span> 89/<- %esp 5/r32/ebp +<span id="L3992" class="LineNr"> 3992 </span> 5d/pop-to-ebp +<span id="L3993" class="LineNr"> 3993 </span> c3/return +<span id="L3994" class="LineNr"> 3994 </span> +<span id="L3995" class="LineNr"> 3995 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: +<span id="L3996" class="LineNr"> 3996 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3997" class="LineNr"> 3997 </span> 55/push-ebp +<span id="L3998" class="LineNr"> 3998 </span> 89/<- %ebp 4/r32/esp +<span id="L3999" class="LineNr"> 3999 </span> <span class="subxComment"># setup</span> +<span id="L4000" class="LineNr"> 4000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4001" class="LineNr"> 4001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4002" class="LineNr"> 4002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4003" class="LineNr"> 4003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4004" class="LineNr"> 4004 </span> <span class="subxComment">#</span> +<span id="L4005" class="LineNr"> 4005 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4006" class="LineNr"> 4006 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4007" class="LineNr"> 4007 </span> (<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="L4008" class="LineNr"> 4008 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4009" class="LineNr"> 4009 </span> (<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="L4010" class="LineNr"> 4010 </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="L4011" class="LineNr"> 4011 </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="L4012" class="LineNr"> 4012 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4013" class="LineNr"> 4013 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4014" class="LineNr"> 4014 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4015" class="LineNr"> 4015 </span> <span class="subxComment"># convert</span> +<span id="L4016" class="LineNr"> 4016 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4017" class="LineNr"> 4017 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4018" class="Folded"> 4018 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4024" class="LineNr"> 4024 </span> <span class="subxComment"># check output</span> +<span id="L4025" class="LineNr"> 4025 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L4026" class="LineNr"> 4026 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) +<span id="L4027" class="LineNr"> 4027 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L4028" class="LineNr"> 4028 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L4029" class="LineNr"> 4029 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L4030" class="LineNr"> 4030 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L4031" class="LineNr"> 4031 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L4032" class="LineNr"> 4032 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L4033" class="LineNr"> 4033 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L4045" class="LineNr"> 4045 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) +<span id="L4046" class="LineNr"> 4046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3995'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L4049" class="LineNr"> 4049 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4050" class="LineNr"> 4050 </span> 89/<- %esp 5/r32/ebp +<span id="L4051" class="LineNr"> 4051 </span> 5d/pop-to-ebp +<span id="L4052" class="LineNr"> 4052 </span> c3/return +<span id="L4053" class="LineNr"> 4053 </span> +<span id="L4054" class="LineNr"> 4054 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</span>: +<span id="L4055" class="LineNr"> 4055 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4056" class="LineNr"> 4056 </span> 55/push-ebp +<span id="L4057" class="LineNr"> 4057 </span> 89/<- %ebp 4/r32/esp +<span id="L4058" class="LineNr"> 4058 </span> <span class="subxComment"># setup</span> +<span id="L4059" class="LineNr"> 4059 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4060" class="LineNr"> 4060 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4061" class="LineNr"> 4061 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4062" class="LineNr"> 4062 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4063" class="LineNr"> 4063 </span> <span class="subxComment">#</span> +<span id="L4064" class="LineNr"> 4064 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" a: {\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: int\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">" {\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">" var y: int\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">" loop a\n"</span>) +<span id="L4070" class="LineNr"> 4070 </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="L4071" class="LineNr"> 4071 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4072" class="LineNr"> 4072 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4073" class="LineNr"> 4073 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4074" class="LineNr"> 4074 </span> <span class="subxComment"># convert</span> +<span id="L4075" class="LineNr"> 4075 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4076" class="LineNr"> 4076 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4077" class="Folded"> 4077 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4083" class="LineNr"> 4083 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) +<span id="L4086" class="LineNr"> 4086 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</span>) +<span id="L4092" class="LineNr"> 4092 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</span>) +<span id="L4093" class="LineNr"> 4093 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) +<span id="L4095" class="LineNr"> 4095 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) +<span id="L4096" class="LineNr"> 4096 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) +<span id="L4097" class="LineNr"> 4097 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) +<span id="L4098" class="LineNr"> 4098 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) +<span id="L4099" class="LineNr"> 4099 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) +<span id="L4100" class="LineNr"> 4100 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) +<span id="L4101" class="LineNr"> 4101 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) +<span id="L4102" class="LineNr"> 4102 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) +<span id="L4103" class="LineNr"> 4103 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) +<span id="L4104" class="LineNr"> 4104 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) +<span id="L4105" class="LineNr"> 4105 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) +<span id="L4106" class="LineNr"> 4106 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) +<span id="L4107" class="LineNr"> 4107 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) +<span id="L4108" class="LineNr"> 4108 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) +<span id="L4109" class="LineNr"> 4109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4054'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) +<span id="L4110" class="LineNr"> 4110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4111" class="LineNr"> 4111 </span> 89/<- %esp 5/r32/ebp +<span id="L4112" class="LineNr"> 4112 </span> 5d/pop-to-ebp +<span id="L4113" class="LineNr"> 4113 </span> c3/return +<span id="L4114" class="LineNr"> 4114 </span> +<span id="L4115" class="LineNr"> 4115 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: +<span id="L4116" class="LineNr"> 4116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4117" class="LineNr"> 4117 </span> 55/push-ebp +<span id="L4118" class="LineNr"> 4118 </span> 89/<- %ebp 4/r32/esp +<span id="L4119" class="LineNr"> 4119 </span> <span class="subxComment"># setup</span> +<span id="L4120" class="LineNr"> 4120 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4121" class="LineNr"> 4121 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4122" class="LineNr"> 4122 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4123" class="LineNr"> 4123 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4124" class="LineNr"> 4124 </span> <span class="subxComment">#</span> +<span id="L4125" class="LineNr"> 4125 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4126" class="LineNr"> 4126 </span> (<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="L4127" class="LineNr"> 4127 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4128" class="LineNr"> 4128 </span> <span class="subxComment"># convert</span> +<span id="L4129" class="LineNr"> 4129 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4130" class="LineNr"> 4130 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4131" class="Folded"> 4131 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4137" class="LineNr"> 4137 </span> <span class="subxComment"># check output</span> +<span id="L4138" class="LineNr"> 4138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) +<span id="L4139" class="LineNr"> 4139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) +<span id="L4140" class="LineNr"> 4140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) +<span id="L4141" class="LineNr"> 4141 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) +<span id="L4142" class="LineNr"> 4142 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) +<span id="L4143" class="LineNr"> 4143 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) +<span id="L4144" class="LineNr"> 4144 </span> <span class="subxComment"># define x</span> +<span id="L4145" class="LineNr"> 4145 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) +<span id="L4146" class="LineNr"> 4146 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) +<span id="L4147" class="LineNr"> 4147 </span> <span class="subxComment"># reclaim x</span> +<span id="L4148" class="LineNr"> 4148 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) +<span id="L4149" class="LineNr"> 4149 </span> <span class="subxComment">#</span> +<span id="L4150" class="LineNr"> 4150 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) +<span id="L4151" class="LineNr"> 4151 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) +<span id="L4152" class="LineNr"> 4152 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) +<span id="L4153" class="LineNr"> 4153 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) +<span id="L4154" class="LineNr"> 4154 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4115'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) +<span id="L4156" class="LineNr"> 4156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4157" class="LineNr"> 4157 </span> 89/<- %esp 5/r32/ebp <span id="L4158" class="LineNr"> 4158 </span> 5d/pop-to-ebp <span id="L4159" class="LineNr"> 4159 </span> c3/return <span id="L4160" class="LineNr"> 4160 </span> -<span id="L4161" class="LineNr"> 4161 </span><span class="subxTest">test-convert-function-with-populate</span>: +<span id="L4161" class="LineNr"> 4161 </span><span class="subxTest">test-array-size-in-hex</span>: <span id="L4162" class="LineNr"> 4162 </span> <span class="subxS1Comment"># . prologue</span> <span id="L4163" class="LineNr"> 4163 </span> 55/push-ebp <span id="L4164" class="LineNr"> 4164 </span> 89/<- %ebp 4/r32/esp @@ -3864,576 +3864,576 @@ if ('onhashchange' in window) { <span id="L4167" class="LineNr"> 4167 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L4168" class="LineNr"> 4168 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) <span id="L4169" class="LineNr"> 4169 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4170" class="LineNr"> 4170 </span> <span class="subxComment">#</span> -<span id="L4171" class="LineNr"> 4171 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4172" class="LineNr"> 4172 </span> (<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="L4173" class="LineNr"> 4173 </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="L4174" class="LineNr"> 4174 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4175" class="LineNr"> 4175 </span> <span class="subxComment"># convert</span> -<span id="L4176" class="LineNr"> 4176 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4177" class="LineNr"> 4177 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4178" class="Folded"> 4178 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4184" class="LineNr"> 4184 </span> <span class="subxComment"># check output</span> -<span id="L4185" class="LineNr"> 4185 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/0"</span>) -<span id="L4186" class="LineNr"> 4186 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) -<span id="L4187" class="LineNr"> 4187 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/2"</span>) -<span id="L4188" class="LineNr"> 4188 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/3"</span>) -<span id="L4189" class="LineNr"> 4189 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/4"</span>) -<span id="L4190" class="LineNr"> 4190 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/5"</span>) -<span id="L4191" class="LineNr"> 4191 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/6"</span>) -<span id="L4192" class="LineNr"> 4192 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/7"</span>) -<span id="L4193" class="LineNr"> 4193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../308allocate-array.subx.html#L5'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> -<span id="L4194" class="LineNr"> 4194 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/9"</span>) -<span id="L4195" class="LineNr"> 4195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/10"</span>) -<span id="L4196" class="LineNr"> 4196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/11"</span>) -<span id="L4197" class="LineNr"> 4197 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) -<span id="L4198" class="LineNr"> 4198 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-convert-function-with-populate</a>/15"</span>) +<span id="L4170" class="LineNr"> 4170 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L4171" class="LineNr"> 4171 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4172" class="LineNr"> 4172 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L4173" class="LineNr"> 4173 </span> 68/push 0/imm32 +<span id="L4174" class="LineNr"> 4174 </span> 68/push 0/imm32 +<span id="L4175" class="LineNr"> 4175 </span> 89/<- %edx 4/r32/esp +<span id="L4176" class="LineNr"> 4176 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4177" class="LineNr"> 4177 </span> <span class="subxComment">#</span> +<span id="L4178" class="LineNr"> 4178 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4179" class="LineNr"> 4179 </span> (<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="L4180" class="LineNr"> 4180 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4181" class="LineNr"> 4181 </span> <span class="subxComment"># convert</span> +<span id="L4182" class="LineNr"> 4182 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L4183" class="LineNr"> 4183 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L4184" class="LineNr"> 4184 </span> <span class="subxComment"># restore ed</span> +<span id="L4185" class="LineNr"> 4185 </span> 89/<- %edx 4/r32/esp +<span id="L4186" class="LineNr"> 4186 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4187" class="LineNr"> 4187 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L4188" class="Folded"> 4188 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4194" class="LineNr"> 4194 </span> <span class="subxComment"># check output</span> +<span id="L4195" class="LineNr"> 4195 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-array-size-in-hex</a>: output should be empty"</span>) +<span id="L4196" class="LineNr"> 4196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; either start '10' with a '0x' to be unambiguous, or convert it to decimal."</span> <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-array-size-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L4197" class="LineNr"> 4197 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4198" class="LineNr"> 4198 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4161'>test-array-size-in-hex</a>: exit status"</span>) +<span id="L4199" class="LineNr"> 4199 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4200" class="LineNr"> 4200 </span> 81 0/subop/add %esp 8/imm32 <span id="L4201" class="LineNr"> 4201 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4202" class="LineNr"> 4202 </span> 89/<- %esp 5/r32/ebp -<span id="L4203" class="LineNr"> 4203 </span> 5d/pop-to-ebp -<span id="L4204" class="LineNr"> 4204 </span> c3/return -<span id="L4205" class="LineNr"> 4205 </span> -<span id="L4206" class="LineNr"> 4206 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> -<span id="L4207" class="LineNr"> 4207 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: -<span id="L4208" class="LineNr"> 4208 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4209" class="LineNr"> 4209 </span> 55/push-ebp -<span id="L4210" class="LineNr"> 4210 </span> 89/<- %ebp 4/r32/esp -<span id="L4211" class="LineNr"> 4211 </span> <span class="subxComment"># setup</span> -<span id="L4212" class="LineNr"> 4212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4213" class="LineNr"> 4213 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4214" class="LineNr"> 4214 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4215" class="LineNr"> 4215 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4216" class="LineNr"> 4216 </span> <span class="subxComment">#</span> -<span id="L4217" class="LineNr"> 4217 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4218" class="LineNr"> 4218 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array byte 3)\n"</span>) -<span id="L4219" class="LineNr"> 4219 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4220" class="LineNr"> 4220 </span> <span class="subxComment"># convert</span> -<span id="L4221" class="LineNr"> 4221 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4222" class="LineNr"> 4222 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4223" class="Folded"> 4223 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4229" class="LineNr"> 4229 </span> <span class="subxComment"># check output</span> -<span id="L4230" class="LineNr"> 4230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) -<span id="L4231" class="LineNr"> 4231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) -<span id="L4232" class="LineNr"> 4232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) -<span id="L4233" class="LineNr"> 4233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) -<span id="L4234" class="LineNr"> 4234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) -<span id="L4235" class="LineNr"> 4235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) -<span id="L4236" class="LineNr"> 4236 </span> <span class="subxComment"># define x</span> -<span id="L4237" class="LineNr"> 4237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) -<span id="L4238" class="LineNr"> 4238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) -<span id="L4239" class="LineNr"> 4239 </span> <span class="subxComment"># reclaim x</span> -<span id="L4240" class="LineNr"> 4240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) -<span id="L4241" class="LineNr"> 4241 </span> <span class="subxComment">#</span> -<span id="L4242" class="LineNr"> 4242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) -<span id="L4243" class="LineNr"> 4243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) -<span id="L4244" class="LineNr"> 4244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) -<span id="L4245" class="LineNr"> 4245 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) -<span id="L4246" class="LineNr"> 4246 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) -<span id="L4247" class="LineNr"> 4247 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) -<span id="L4248" class="LineNr"> 4248 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4249" class="LineNr"> 4249 </span> 89/<- %esp 5/r32/ebp -<span id="L4250" class="LineNr"> 4250 </span> 5d/pop-to-ebp -<span id="L4251" class="LineNr"> 4251 </span> c3/return -<span id="L4252" class="LineNr"> 4252 </span> -<span id="L4253" class="LineNr"> 4253 </span><span class="subxTest">test-convert-address</span>: -<span id="L4254" class="LineNr"> 4254 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4255" class="LineNr"> 4255 </span> 55/push-ebp -<span id="L4256" class="LineNr"> 4256 </span> 89/<- %ebp 4/r32/esp -<span id="L4257" class="LineNr"> 4257 </span> <span class="subxComment"># setup</span> -<span id="L4258" class="LineNr"> 4258 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4259" class="LineNr"> 4259 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4260" class="LineNr"> 4260 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4261" class="LineNr"> 4261 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4262" class="LineNr"> 4262 </span> <span class="subxComment">#</span> -<span id="L4263" class="LineNr"> 4263 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4264" class="LineNr"> 4264 </span> (<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="L4265" class="LineNr"> 4265 </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="L4266" class="LineNr"> 4266 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4267" class="LineNr"> 4267 </span> <span class="subxComment"># convert</span> -<span id="L4268" class="LineNr"> 4268 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4269" class="LineNr"> 4269 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4270" class="Folded"> 4270 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4276" class="LineNr"> 4276 </span> <span class="subxComment"># check output</span> -<span id="L4277" class="LineNr"> 4277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/0"</span>) -<span id="L4278" class="LineNr"> 4278 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) -<span id="L4279" class="LineNr"> 4279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/2"</span>) -<span id="L4280" class="LineNr"> 4280 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/3"</span>) -<span id="L4281" class="LineNr"> 4281 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/4"</span>) -<span id="L4282" class="LineNr"> 4282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/5"</span>) -<span id="L4283" class="LineNr"> 4283 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/6"</span>) -<span id="L4284" class="LineNr"> 4284 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/7"</span>) -<span id="L4285" class="LineNr"> 4285 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/8"</span>) -<span id="L4286" class="LineNr"> 4286 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/9"</span>) -<span id="L4287" class="LineNr"> 4287 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/10"</span>) -<span id="L4288" class="LineNr"> 4288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/11"</span>) -<span id="L4289" class="LineNr"> 4289 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/12"</span>) -<span id="L4290" class="LineNr"> 4290 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) -<span id="L4291" class="LineNr"> 4291 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/14"</span>) -<span id="L4292" class="LineNr"> 4292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/15"</span>) -<span id="L4293" class="LineNr"> 4293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4253'>test-convert-address</a>/16"</span>) -<span id="L4294" class="LineNr"> 4294 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4295" class="LineNr"> 4295 </span> 89/<- %esp 5/r32/ebp -<span id="L4296" class="LineNr"> 4296 </span> 5d/pop-to-ebp -<span id="L4297" class="LineNr"> 4297 </span> c3/return -<span id="L4298" class="LineNr"> 4298 </span> -<span id="L4299" class="LineNr"> 4299 </span><span class="subxTest">test-convert-floating-point-convert</span>: -<span id="L4300" class="LineNr"> 4300 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4301" class="LineNr"> 4301 </span> 55/push-ebp -<span id="L4302" class="LineNr"> 4302 </span> 89/<- %ebp 4/r32/esp -<span id="L4303" class="LineNr"> 4303 </span> <span class="subxComment"># setup</span> -<span id="L4304" class="LineNr"> 4304 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4305" class="LineNr"> 4305 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4306" class="LineNr"> 4306 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4307" class="LineNr"> 4307 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4308" class="LineNr"> 4308 </span> <span class="subxComment">#</span> -<span id="L4309" class="LineNr"> 4309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4310" class="LineNr"> 4310 </span> (<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="L4311" class="LineNr"> 4311 </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="L4312" class="LineNr"> 4312 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4313" class="LineNr"> 4313 </span> <span class="subxComment"># convert</span> -<span id="L4314" class="LineNr"> 4314 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4315" class="LineNr"> 4315 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4316" class="Folded"> 4316 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4322" class="LineNr"> 4322 </span> <span class="subxComment"># check output</span> -<span id="L4323" class="LineNr"> 4323 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/0"</span>) -<span id="L4324" class="LineNr"> 4324 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) -<span id="L4325" class="LineNr"> 4325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/2"</span>) -<span id="L4326" class="LineNr"> 4326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/3"</span>) -<span id="L4327" class="LineNr"> 4327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/4"</span>) -<span id="L4328" class="LineNr"> 4328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/5"</span>) -<span id="L4329" class="LineNr"> 4329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/6"</span>) -<span id="L4330" class="LineNr"> 4330 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/7"</span>) -<span id="L4331" class="LineNr"> 4331 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/8"</span>) -<span id="L4332" class="LineNr"> 4332 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/9"</span>) -<span id="L4333" class="LineNr"> 4333 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/10"</span>) -<span id="L4334" class="LineNr"> 4334 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/11"</span>) -<span id="L4335" class="LineNr"> 4335 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/12"</span>) -<span id="L4336" class="LineNr"> 4336 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/13"</span>) -<span id="L4337" class="LineNr"> 4337 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/14"</span>) -<span id="L4338" class="LineNr"> 4338 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/15"</span>) -<span id="L4339" class="LineNr"> 4339 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) -<span id="L4340" class="LineNr"> 4340 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/17"</span>) -<span id="L4341" class="LineNr"> 4341 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/18"</span>) -<span id="L4342" class="LineNr"> 4342 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4299'>test-convert-floating-point-convert</a>/19"</span>) -<span id="L4343" class="LineNr"> 4343 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4344" class="LineNr"> 4344 </span> 89/<- %esp 5/r32/ebp -<span id="L4345" class="LineNr"> 4345 </span> 5d/pop-to-ebp -<span id="L4346" class="LineNr"> 4346 </span> c3/return -<span id="L4347" class="LineNr"> 4347 </span> -<span id="L4348" class="LineNr"> 4348 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: -<span id="L4349" class="LineNr"> 4349 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4350" class="LineNr"> 4350 </span> 55/push-ebp -<span id="L4351" class="LineNr"> 4351 </span> 89/<- %ebp 4/r32/esp -<span id="L4352" class="LineNr"> 4352 </span> <span class="subxComment"># setup</span> -<span id="L4353" class="LineNr"> 4353 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4354" class="LineNr"> 4354 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4355" class="LineNr"> 4355 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4356" class="LineNr"> 4356 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4357" class="LineNr"> 4357 </span> <span class="subxComment">#</span> -<span id="L4358" class="LineNr"> 4358 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4359" class="LineNr"> 4359 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) -<span id="L4360" class="LineNr"> 4360 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) -<span id="L4361" class="LineNr"> 4361 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a <- convert b\n"</span>) -<span id="L4362" class="LineNr"> 4362 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4363" class="LineNr"> 4363 </span> <span class="subxComment"># convert</span> -<span id="L4364" class="LineNr"> 4364 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4365" class="LineNr"> 4365 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4366" class="Folded"> 4366 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4372" class="LineNr"> 4372 </span> <span class="subxComment"># check output</span> -<span id="L4373" class="LineNr"> 4373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/0"</span>) -<span id="L4374" class="LineNr"> 4374 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</span>) -<span id="L4375" class="LineNr"> 4375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/2"</span>) -<span id="L4376" class="LineNr"> 4376 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/3"</span>) -<span id="L4377" class="LineNr"> 4377 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/4"</span>) -<span id="L4378" class="LineNr"> 4378 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/5"</span>) -<span id="L4379" class="LineNr"> 4379 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/6"</span>) -<span id="L4380" class="LineNr"> 4380 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/7"</span>) -<span id="L4381" class="LineNr"> 4381 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/8"</span>) -<span id="L4382" class="LineNr"> 4382 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/9"</span>) -<span id="L4383" class="LineNr"> 4383 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/10"</span>) -<span id="L4384" class="LineNr"> 4384 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int 3/mod 0x00000001/xm32 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/11"</span>) -<span id="L4385" class="LineNr"> 4385 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/12"</span>) -<span id="L4386" class="LineNr"> 4386 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/13"</span>) -<span id="L4387" class="LineNr"> 4387 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/14"</span>) -<span id="L4388" class="LineNr"> 4388 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/15"</span>) -<span id="L4389" class="LineNr"> 4389 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/16"</span>) -<span id="L4390" class="LineNr"> 4390 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) -<span id="L4391" class="LineNr"> 4391 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/18"</span>) -<span id="L4392" class="LineNr"> 4392 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/19"</span>) -<span id="L4393" class="LineNr"> 4393 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4348'>test-convert-floating-point-convert-2</a>/20"</span>) -<span id="L4394" class="LineNr"> 4394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4395" class="LineNr"> 4395 </span> 89/<- %esp 5/r32/ebp -<span id="L4396" class="LineNr"> 4396 </span> 5d/pop-to-ebp -<span id="L4397" class="LineNr"> 4397 </span> c3/return -<span id="L4398" class="LineNr"> 4398 </span> -<span id="L4399" class="LineNr"> 4399 </span><span class="subxTest">test-convert-floating-point-operation</span>: -<span id="L4400" class="LineNr"> 4400 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4401" class="LineNr"> 4401 </span> 55/push-ebp -<span id="L4402" class="LineNr"> 4402 </span> 89/<- %ebp 4/r32/esp -<span id="L4403" class="LineNr"> 4403 </span> <span class="subxComment"># setup</span> -<span id="L4404" class="LineNr"> 4404 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4405" class="LineNr"> 4405 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4406" class="LineNr"> 4406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4407" class="LineNr"> 4407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4408" class="LineNr"> 4408 </span> <span class="subxComment">#</span> -<span id="L4409" class="LineNr"> 4409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L4410" class="LineNr"> 4410 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) -<span id="L4411" class="LineNr"> 4411 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) -<span id="L4412" class="LineNr"> 4412 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) -<span id="L4413" class="LineNr"> 4413 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) -<span id="L4414" class="LineNr"> 4414 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) -<span id="L4415" class="LineNr"> 4415 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) -<span id="L4416" class="LineNr"> 4416 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add m\n"</span>) -<span id="L4417" class="LineNr"> 4417 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract y\n"</span>) -<span id="L4418" class="LineNr"> 4418 </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="L4419" class="LineNr"> 4419 </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="L4420" class="LineNr"> 4420 </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="L4421" class="LineNr"> 4421 </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="L4422" class="LineNr"> 4422 </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="L4423" class="LineNr"> 4423 </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="L4424" class="LineNr"> 4424 </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="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">" x <- square-root y\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">" x <- square-root m\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">" x <- inverse-square-root y\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">" x <- inverse-square-root m\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">" x <- max y\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 <- max m\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">" x <- min y\n"</span>) -<span id="L4432" class="LineNr"> 4432 </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="L4433" class="LineNr"> 4433 </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="L4434" class="LineNr"> 4434 </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="L4435" class="LineNr"> 4435 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4436" class="LineNr"> 4436 </span> <span class="subxComment"># convert</span> -<span id="L4437" class="LineNr"> 4437 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4438" class="LineNr"> 4438 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4439" class="Folded"> 4439 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4445" class="LineNr"> 4445 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy 3/mod 0x00000001/xm32 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/22"</span>) -<span id="L4469" class="LineNr"> 4469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/23"</span>) -<span id="L4470" class="LineNr"> 4470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/24"</span>) -<span id="L4471" class="LineNr"> 4471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/25"</span>) -<span id="L4472" class="LineNr"> 4472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/26"</span>) -<span id="L4473" class="LineNr"> 4473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/27"</span>) -<span id="L4474" class="LineNr"> 4474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/28"</span>) -<span id="L4475" class="LineNr"> 4475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/29"</span>) -<span id="L4476" class="LineNr"> 4476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/30"</span>) -<span id="L4477" class="LineNr"> 4477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min 3/mod 0x00000005/xm32 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/31"</span>) -<span id="L4478" class="LineNr"> 4478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/32"</span>) -<span id="L4479" class="LineNr"> 4479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare 3/mod 0x00000001/xm32 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/33"</span>) -<span id="L4480" class="LineNr"> 4480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/34"</span>) -<span id="L4481" class="LineNr"> 4481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/35"</span>) -<span id="L4482" class="LineNr"> 4482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/36"</span>) -<span id="L4483" class="LineNr"> 4483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/37"</span>) -<span id="L4484" class="LineNr"> 4484 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/38"</span>) -<span id="L4485" class="LineNr"> 4485 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/39"</span>) -<span id="L4486" class="LineNr"> 4486 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/40"</span>) -<span id="L4487" class="LineNr"> 4487 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/41"</span>) -<span id="L4488" class="LineNr"> 4488 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) -<span id="L4489" class="LineNr"> 4489 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/43"</span>) -<span id="L4490" class="LineNr"> 4490 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/44"</span>) -<span id="L4491" class="LineNr"> 4491 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4399'>test-convert-floating-point-operation</a>/45"</span>) -<span id="L4492" class="LineNr"> 4492 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4493" class="LineNr"> 4493 </span> 89/<- %esp 5/r32/ebp -<span id="L4494" class="LineNr"> 4494 </span> 5d/pop-to-ebp -<span id="L4495" class="LineNr"> 4495 </span> c3/return -<span id="L4496" class="LineNr"> 4496 </span> -<span id="L4497" class="LineNr"> 4497 </span><span class="subxTest">test-convert-length-of-array</span>: -<span id="L4498" class="LineNr"> 4498 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4499" class="LineNr"> 4499 </span> 55/push-ebp -<span id="L4500" class="LineNr"> 4500 </span> 89/<- %ebp 4/r32/esp -<span id="L4501" class="LineNr"> 4501 </span> <span class="subxComment"># setup</span> -<span id="L4502" class="LineNr"> 4502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4503" class="LineNr"> 4503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4504" class="LineNr"> 4504 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4505" class="LineNr"> 4505 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4506" class="LineNr"> 4506 </span> <span class="subxComment">#</span> -<span id="L4507" class="LineNr"> 4507 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array int) {\n"</span>) -<span id="L4508" class="LineNr"> 4508 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array int) <- copy a\n"</span>) -<span id="L4509" class="LineNr"> 4509 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) -<span id="L4510" class="LineNr"> 4510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4511" class="LineNr"> 4511 </span> <span class="subxComment"># convert</span> -<span id="L4512" class="LineNr"> 4512 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4513" class="LineNr"> 4513 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4514" class="Folded"> 4514 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4520" class="LineNr"> 4520 </span> <span class="subxComment"># check output</span> -<span id="L4521" class="LineNr"> 4521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/0"</span>) -<span id="L4522" class="LineNr"> 4522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</span>) -<span id="L4523" class="LineNr"> 4523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/2"</span>) -<span id="L4524" class="LineNr"> 4524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/3"</span>) -<span id="L4525" class="LineNr"> 4525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/4"</span>) -<span id="L4526" class="LineNr"> 4526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/5"</span>) -<span id="L4527" class="LineNr"> 4527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/6"</span>) -<span id="L4528" class="LineNr"> 4528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/7"</span>) -<span id="L4529" class="LineNr"> 4529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/8"</span>) -<span id="L4530" class="LineNr"> 4530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/9"</span>) -<span id="L4531" class="LineNr"> 4531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/10"</span>) -<span id="L4532" class="LineNr"> 4532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/11"</span>) -<span id="L4533" class="LineNr"> 4533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/12"</span>) -<span id="L4534" class="LineNr"> 4534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) -<span id="L4535" class="LineNr"> 4535 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/14"</span>) -<span id="L4536" class="LineNr"> 4536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/15"</span>) -<span id="L4537" class="LineNr"> 4537 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4497'>test-convert-length-of-array</a>/16"</span>) -<span id="L4538" class="LineNr"> 4538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4539" class="LineNr"> 4539 </span> 89/<- %esp 5/r32/ebp -<span id="L4540" class="LineNr"> 4540 </span> 5d/pop-to-ebp -<span id="L4541" class="LineNr"> 4541 </span> c3/return -<span id="L4542" class="LineNr"> 4542 </span> -<span id="L4543" class="LineNr"> 4543 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> -<span id="L4544" class="LineNr"> 4544 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: -<span id="L4545" class="LineNr"> 4545 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4546" class="LineNr"> 4546 </span> 55/push-ebp -<span id="L4547" class="LineNr"> 4547 </span> 89/<- %ebp 4/r32/esp -<span id="L4548" class="LineNr"> 4548 </span> <span class="subxComment"># setup</span> -<span id="L4549" class="LineNr"> 4549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4550" class="LineNr"> 4550 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4551" class="LineNr"> 4551 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4552" class="LineNr"> 4552 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4553" class="LineNr"> 4553 </span> <span class="subxComment">#</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">"fn foo a: (addr array byte) {\n"</span>) -<span id="L4555" class="LineNr"> 4555 </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="L4556" class="LineNr"> 4556 </span> (<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="L4557" class="LineNr"> 4557 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4558" class="LineNr"> 4558 </span> <span class="subxComment"># convert</span> -<span id="L4559" class="LineNr"> 4559 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4560" class="LineNr"> 4560 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4561" class="Folded"> 4561 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4567" class="LineNr"> 4567 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) -<span id="L4570" class="LineNr"> 4570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/11"</span>) -<span id="L4580" class="LineNr"> 4580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) -<span id="L4581" class="LineNr"> 4581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/13"</span>) -<span id="L4582" class="LineNr"> 4582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/14"</span>) -<span id="L4583" class="LineNr"> 4583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4544'>test-convert-length-of-array-of-bytes</a>/15"</span>) -<span id="L4584" class="LineNr"> 4584 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4585" class="LineNr"> 4585 </span> 89/<- %esp 5/r32/ebp -<span id="L4586" class="LineNr"> 4586 </span> 5d/pop-to-ebp -<span id="L4587" class="LineNr"> 4587 </span> c3/return -<span id="L4588" class="LineNr"> 4588 </span> -<span id="L4589" class="LineNr"> 4589 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: -<span id="L4590" class="LineNr"> 4590 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4591" class="LineNr"> 4591 </span> 55/push-ebp -<span id="L4592" class="LineNr"> 4592 </span> 89/<- %ebp 4/r32/esp -<span id="L4593" class="LineNr"> 4593 </span> <span class="subxComment"># setup</span> -<span id="L4594" class="LineNr"> 4594 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4595" class="LineNr"> 4595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4596" class="LineNr"> 4596 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4597" class="LineNr"> 4597 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4598" class="LineNr"> 4598 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (array int 3)\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">" var b/eax: int <- length a\n"</span>) -<span id="L4602" class="LineNr"> 4602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4603" class="LineNr"> 4603 </span> <span class="subxComment"># convert</span> -<span id="L4604" class="LineNr"> 4604 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4605" class="LineNr"> 4605 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4606" class="Folded"> 4606 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4612" class="LineNr"> 4612 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) -<span id="L4615" class="LineNr"> 4615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/5"</span>) -<span id="L4619" class="LineNr"> 4619 </span> <span class="subxComment"># define x</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#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) -<span id="L4630" class="LineNr"> 4630 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/16"</span>) -<span id="L4631" class="LineNr"> 4631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/17"</span>) -<span id="L4632" class="LineNr"> 4632 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4589'>test-convert-length-of-array-on-stack</a>/18"</span>) -<span id="L4633" class="LineNr"> 4633 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4634" class="LineNr"> 4634 </span> 89/<- %esp 5/r32/ebp -<span id="L4635" class="LineNr"> 4635 </span> 5d/pop-to-ebp -<span id="L4636" class="LineNr"> 4636 </span> c3/return -<span id="L4637" class="LineNr"> 4637 </span> -<span id="L4638" class="LineNr"> 4638 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: -<span id="L4639" class="LineNr"> 4639 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4640" class="LineNr"> 4640 </span> 55/push-ebp -<span id="L4641" class="LineNr"> 4641 </span> 89/<- %ebp 4/r32/esp -<span id="L4642" class="LineNr"> 4642 </span> <span class="subxComment"># setup</span> -<span id="L4643" class="LineNr"> 4643 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4644" class="LineNr"> 4644 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4645" class="LineNr"> 4645 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4646" class="LineNr"> 4646 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4647" class="LineNr"> 4647 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L4648" class="LineNr"> 4648 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L4649" class="LineNr"> 4649 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L4650" class="LineNr"> 4650 </span> 68/push 0/imm32 -<span id="L4651" class="LineNr"> 4651 </span> 68/push 0/imm32 -<span id="L4652" class="LineNr"> 4652 </span> 89/<- %edx 4/r32/esp -<span id="L4653" class="LineNr"> 4653 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L4654" class="LineNr"> 4654 </span> <span class="subxComment">#</span> -<span id="L4655" class="LineNr"> 4655 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4656" class="LineNr"> 4656 </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="L4657" class="LineNr"> 4657 </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="L4658" class="LineNr"> 4658 </span> (<a 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="L4659" class="LineNr"> 4659 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4660" class="LineNr"> 4660 </span> <span class="subxComment"># convert</span> -<span id="L4661" class="LineNr"> 4661 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L4662" class="LineNr"> 4662 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> -<span id="L4663" class="LineNr"> 4663 </span> <span class="subxComment"># restore ed</span> -<span id="L4664" class="LineNr"> 4664 </span> 89/<- %edx 4/r32/esp -<span id="L4665" class="LineNr"> 4665 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4666" class="LineNr"> 4666 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L4667" class="Folded"> 4667 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4673" class="Folded"> 4673 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4679" class="LineNr"> 4679 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>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="L4680" class="LineNr"> 4680 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</span>) -<span id="L4683" class="LineNr"> 4683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/8"</span>) -<span id="L4690" class="LineNr"> 4690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/9"</span>) -<span id="L4691" class="LineNr"> 4691 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/11"</span>) -<span id="L4692" class="LineNr"> 4692 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/13"</span>) -<span id="L4693" class="LineNr"> 4693 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/14"</span>) -<span id="L4694" class="LineNr"> 4694 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/15"</span>) -<span id="L4695" class="LineNr"> 4695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/16"</span>) -<span id="L4696" class="LineNr"> 4696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/17"</span>) -<span id="L4697" class="LineNr"> 4697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/18"</span>) -<span id="L4698" class="LineNr"> 4698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/19"</span>) -<span id="L4699" class="LineNr"> 4699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4638'>test-reg-var-def-with-read-of-same-register</a>/20"</span>) -<span id="L4700" class="LineNr"> 4700 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L4701" class="LineNr"> 4701 </span> 81 0/subop/add %esp 8/imm32 -<span id="L4702" class="LineNr"> 4702 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4703" class="LineNr"> 4703 </span> 5d/pop-to-ebp -<span id="L4704" class="LineNr"> 4704 </span> c3/return -<span id="L4705" class="LineNr"> 4705 </span> -<span id="L4706" class="LineNr"> 4706 </span><span class="subxTest">test-convert-index-into-array</span>: -<span id="L4707" class="LineNr"> 4707 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4708" class="LineNr"> 4708 </span> 55/push-ebp -<span id="L4709" class="LineNr"> 4709 </span> 89/<- %ebp 4/r32/esp -<span id="L4710" class="LineNr"> 4710 </span> <span class="subxComment"># setup</span> -<span id="L4711" class="LineNr"> 4711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4712" class="LineNr"> 4712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4713" class="LineNr"> 4713 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4714" class="LineNr"> 4714 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4715" class="LineNr"> 4715 </span> <span class="subxComment">#</span> -<span id="L4716" class="LineNr"> 4716 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4717" class="LineNr"> 4717 </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="L4718" class="LineNr"> 4718 </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="L4719" class="LineNr"> 4719 </span> (<a 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="L4720" class="LineNr"> 4720 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4721" class="LineNr"> 4721 </span> <span class="subxComment"># convert</span> -<span id="L4722" class="LineNr"> 4722 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4723" class="LineNr"> 4723 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4724" class="Folded"> 4724 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4730" class="LineNr"> 4730 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/17"</span>) -<span id="L4749" class="LineNr"> 4749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4706'>test-convert-index-into-array</a>/18"</span>) -<span id="L4750" class="LineNr"> 4750 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4751" class="LineNr"> 4751 </span> 89/<- %esp 5/r32/ebp -<span id="L4752" class="LineNr"> 4752 </span> 5d/pop-to-ebp -<span id="L4753" class="LineNr"> 4753 </span> c3/return -<span id="L4754" class="LineNr"> 4754 </span> -<span id="L4755" class="LineNr"> 4755 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: -<span id="L4756" class="LineNr"> 4756 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4757" class="LineNr"> 4757 </span> 55/push-ebp -<span id="L4758" class="LineNr"> 4758 </span> 89/<- %ebp 4/r32/esp -<span id="L4759" class="LineNr"> 4759 </span> <span class="subxComment"># setup</span> -<span id="L4760" class="LineNr"> 4760 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4761" class="LineNr"> 4761 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4762" class="LineNr"> 4762 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4763" class="LineNr"> 4763 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4764" class="LineNr"> 4764 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array byte) <- copy 0\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">" var idx/ecx: int <- copy 3\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">" var x/eax: (addr byte) <- index arr, idx\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">"}\n"</span>) -<span id="L4770" class="LineNr"> 4770 </span> <span class="subxComment"># convert</span> -<span id="L4771" class="LineNr"> 4771 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4772" class="LineNr"> 4772 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4773" class="Folded"> 4773 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4779" class="LineNr"> 4779 </span> <span class="subxComment"># check output</span> -<span id="L4780" class="LineNr"> 4780 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) -<span id="L4782" class="LineNr"> 4782 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4755'>test-convert-index-into-array-of-bytes</a>/20"</span>) -<span id="L4799" class="LineNr"> 4799 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4800" class="LineNr"> 4800 </span> 89/<- %esp 5/r32/ebp +<span id="L4202" class="LineNr"> 4202 </span> 5d/pop-to-ebp +<span id="L4203" class="LineNr"> 4203 </span> c3/return +<span id="L4204" class="LineNr"> 4204 </span> +<span id="L4205" class="LineNr"> 4205 </span><span class="subxTest">test-convert-function-with-populate</span>: +<span id="L4206" class="LineNr"> 4206 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4207" class="LineNr"> 4207 </span> 55/push-ebp +<span id="L4208" class="LineNr"> 4208 </span> 89/<- %ebp 4/r32/esp +<span id="L4209" class="LineNr"> 4209 </span> <span class="subxComment"># setup</span> +<span id="L4210" class="LineNr"> 4210 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4211" class="LineNr"> 4211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4212" class="LineNr"> 4212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4213" class="LineNr"> 4213 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4214" class="LineNr"> 4214 </span> <span class="subxComment">#</span> +<span id="L4215" class="LineNr"> 4215 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4216" class="LineNr"> 4216 </span> (<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="L4217" class="LineNr"> 4217 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 7\n"</span>) +<span id="L4218" class="LineNr"> 4218 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4219" class="LineNr"> 4219 </span> <span class="subxComment"># convert</span> +<span id="L4220" class="LineNr"> 4220 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4221" class="LineNr"> 4221 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4222" class="Folded"> 4222 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4228" class="LineNr"> 4228 </span> <span class="subxComment"># check output</span> +<span id="L4229" class="LineNr"> 4229 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/0"</span>) +<span id="L4230" class="LineNr"> 4230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) +<span id="L4231" class="LineNr"> 4231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/2"</span>) +<span id="L4232" class="LineNr"> 4232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/3"</span>) +<span id="L4233" class="LineNr"> 4233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/4"</span>) +<span id="L4234" class="LineNr"> 4234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/5"</span>) +<span id="L4235" class="LineNr"> 4235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/6"</span>) +<span id="L4236" class="LineNr"> 4236 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/7"</span>) +<span id="L4237" class="LineNr"> 4237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../308allocate-array.subx.html#L5'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> +<span id="L4238" class="LineNr"> 4238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/9"</span>) +<span id="L4239" class="LineNr"> 4239 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/10"</span>) +<span id="L4240" class="LineNr"> 4240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/11"</span>) +<span id="L4241" class="LineNr"> 4241 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) +<span id="L4242" class="LineNr"> 4242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/13"</span>) +<span id="L4243" class="LineNr"> 4243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/14"</span>) +<span id="L4244" class="LineNr"> 4244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4205'>test-convert-function-with-populate</a>/15"</span>) +<span id="L4245" class="LineNr"> 4245 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4246" class="LineNr"> 4246 </span> 89/<- %esp 5/r32/ebp +<span id="L4247" class="LineNr"> 4247 </span> 5d/pop-to-ebp +<span id="L4248" class="LineNr"> 4248 </span> c3/return +<span id="L4249" class="LineNr"> 4249 </span> +<span id="L4250" class="LineNr"> 4250 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> +<span id="L4251" class="LineNr"> 4251 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: +<span id="L4252" class="LineNr"> 4252 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4253" class="LineNr"> 4253 </span> 55/push-ebp +<span id="L4254" class="LineNr"> 4254 </span> 89/<- %ebp 4/r32/esp +<span id="L4255" class="LineNr"> 4255 </span> <span class="subxComment"># setup</span> +<span id="L4256" class="LineNr"> 4256 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4257" class="LineNr"> 4257 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4258" class="LineNr"> 4258 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4259" class="LineNr"> 4259 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4260" class="LineNr"> 4260 </span> <span class="subxComment">#</span> +<span id="L4261" class="LineNr"> 4261 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4262" class="LineNr"> 4262 </span> (<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="L4263" class="LineNr"> 4263 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4264" class="LineNr"> 4264 </span> <span class="subxComment"># convert</span> +<span id="L4265" class="LineNr"> 4265 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4266" class="LineNr"> 4266 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4267" class="Folded"> 4267 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4273" class="LineNr"> 4273 </span> <span class="subxComment"># check output</span> +<span id="L4274" class="LineNr"> 4274 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) +<span id="L4275" class="LineNr"> 4275 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) +<span id="L4276" class="LineNr"> 4276 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) +<span id="L4277" class="LineNr"> 4277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) +<span id="L4278" class="LineNr"> 4278 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) +<span id="L4279" class="LineNr"> 4279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) +<span id="L4280" class="LineNr"> 4280 </span> <span class="subxComment"># define x</span> +<span id="L4281" class="LineNr"> 4281 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) +<span id="L4282" class="LineNr"> 4282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) +<span id="L4283" class="LineNr"> 4283 </span> <span class="subxComment"># reclaim x</span> +<span id="L4284" class="LineNr"> 4284 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) +<span id="L4285" class="LineNr"> 4285 </span> <span class="subxComment">#</span> +<span id="L4286" class="LineNr"> 4286 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) +<span id="L4287" class="LineNr"> 4287 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) +<span id="L4288" class="LineNr"> 4288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) +<span id="L4289" class="LineNr"> 4289 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) +<span id="L4290" class="LineNr"> 4290 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) +<span id="L4291" class="LineNr"> 4291 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4251'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) +<span id="L4292" class="LineNr"> 4292 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4293" class="LineNr"> 4293 </span> 89/<- %esp 5/r32/ebp +<span id="L4294" class="LineNr"> 4294 </span> 5d/pop-to-ebp +<span id="L4295" class="LineNr"> 4295 </span> c3/return +<span id="L4296" class="LineNr"> 4296 </span> +<span id="L4297" class="LineNr"> 4297 </span><span class="subxTest">test-convert-address</span>: +<span id="L4298" class="LineNr"> 4298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4299" class="LineNr"> 4299 </span> 55/push-ebp +<span id="L4300" class="LineNr"> 4300 </span> 89/<- %ebp 4/r32/esp +<span id="L4301" class="LineNr"> 4301 </span> <span class="subxComment"># setup</span> +<span id="L4302" class="LineNr"> 4302 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4303" class="LineNr"> 4303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4304" class="LineNr"> 4304 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4305" class="LineNr"> 4305 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4306" class="LineNr"> 4306 </span> <span class="subxComment">#</span> +<span id="L4307" class="LineNr"> 4307 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4308" class="LineNr"> 4308 </span> (<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="L4309" class="LineNr"> 4309 </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="L4310" class="LineNr"> 4310 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4311" class="LineNr"> 4311 </span> <span class="subxComment"># convert</span> +<span id="L4312" class="LineNr"> 4312 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4313" class="LineNr"> 4313 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4314" class="Folded"> 4314 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4320" class="LineNr"> 4320 </span> <span class="subxComment"># check output</span> +<span id="L4321" class="LineNr"> 4321 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/0"</span>) +<span id="L4322" class="LineNr"> 4322 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) +<span id="L4323" class="LineNr"> 4323 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/2"</span>) +<span id="L4324" class="LineNr"> 4324 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/3"</span>) +<span id="L4325" class="LineNr"> 4325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/4"</span>) +<span id="L4326" class="LineNr"> 4326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/5"</span>) +<span id="L4327" class="LineNr"> 4327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/6"</span>) +<span id="L4328" class="LineNr"> 4328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/7"</span>) +<span id="L4329" class="LineNr"> 4329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/8"</span>) +<span id="L4330" class="LineNr"> 4330 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/9"</span>) +<span id="L4331" class="LineNr"> 4331 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/10"</span>) +<span id="L4332" class="LineNr"> 4332 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/11"</span>) +<span id="L4333" class="LineNr"> 4333 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/12"</span>) +<span id="L4334" class="LineNr"> 4334 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) +<span id="L4335" class="LineNr"> 4335 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/14"</span>) +<span id="L4336" class="LineNr"> 4336 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/15"</span>) +<span id="L4337" class="LineNr"> 4337 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4297'>test-convert-address</a>/16"</span>) +<span id="L4338" class="LineNr"> 4338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4339" class="LineNr"> 4339 </span> 89/<- %esp 5/r32/ebp +<span id="L4340" class="LineNr"> 4340 </span> 5d/pop-to-ebp +<span id="L4341" class="LineNr"> 4341 </span> c3/return +<span id="L4342" class="LineNr"> 4342 </span> +<span id="L4343" class="LineNr"> 4343 </span><span class="subxTest">test-convert-floating-point-convert</span>: +<span id="L4344" class="LineNr"> 4344 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4345" class="LineNr"> 4345 </span> 55/push-ebp +<span id="L4346" class="LineNr"> 4346 </span> 89/<- %ebp 4/r32/esp +<span id="L4347" class="LineNr"> 4347 </span> <span class="subxComment"># setup</span> +<span id="L4348" class="LineNr"> 4348 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4349" class="LineNr"> 4349 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4350" class="LineNr"> 4350 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4351" class="LineNr"> 4351 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4352" class="LineNr"> 4352 </span> <span class="subxComment">#</span> +<span id="L4353" class="LineNr"> 4353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4354" class="LineNr"> 4354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L4355" class="LineNr"> 4355 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) +<span id="L4356" class="LineNr"> 4356 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4357" class="LineNr"> 4357 </span> <span class="subxComment"># convert</span> +<span id="L4358" class="LineNr"> 4358 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4359" class="LineNr"> 4359 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4360" class="Folded"> 4360 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4366" class="LineNr"> 4366 </span> <span class="subxComment"># check output</span> +<span id="L4367" class="LineNr"> 4367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/0"</span>) +<span id="L4368" class="LineNr"> 4368 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) +<span id="L4369" class="LineNr"> 4369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/2"</span>) +<span id="L4370" class="LineNr"> 4370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/3"</span>) +<span id="L4371" class="LineNr"> 4371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/4"</span>) +<span id="L4372" class="LineNr"> 4372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/5"</span>) +<span id="L4373" class="LineNr"> 4373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/6"</span>) +<span id="L4374" class="LineNr"> 4374 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/7"</span>) +<span id="L4375" class="LineNr"> 4375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/8"</span>) +<span id="L4376" class="LineNr"> 4376 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/9"</span>) +<span id="L4377" class="LineNr"> 4377 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/10"</span>) +<span id="L4378" class="LineNr"> 4378 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/11"</span>) +<span id="L4379" class="LineNr"> 4379 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/12"</span>) +<span id="L4380" class="LineNr"> 4380 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/13"</span>) +<span id="L4381" class="LineNr"> 4381 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/14"</span>) +<span id="L4382" class="LineNr"> 4382 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/15"</span>) +<span id="L4383" class="LineNr"> 4383 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) +<span id="L4384" class="LineNr"> 4384 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/17"</span>) +<span id="L4385" class="LineNr"> 4385 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/18"</span>) +<span id="L4386" class="LineNr"> 4386 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4343'>test-convert-floating-point-convert</a>/19"</span>) +<span id="L4387" class="LineNr"> 4387 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4388" class="LineNr"> 4388 </span> 89/<- %esp 5/r32/ebp +<span id="L4389" class="LineNr"> 4389 </span> 5d/pop-to-ebp +<span id="L4390" class="LineNr"> 4390 </span> c3/return +<span id="L4391" class="LineNr"> 4391 </span> +<span id="L4392" class="LineNr"> 4392 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: +<span id="L4393" class="LineNr"> 4393 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4394" class="LineNr"> 4394 </span> 55/push-ebp +<span id="L4395" class="LineNr"> 4395 </span> 89/<- %ebp 4/r32/esp +<span id="L4396" class="LineNr"> 4396 </span> <span class="subxComment"># setup</span> +<span id="L4397" class="LineNr"> 4397 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4398" class="LineNr"> 4398 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4399" class="LineNr"> 4399 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4400" class="LineNr"> 4400 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4401" class="LineNr"> 4401 </span> <span class="subxComment">#</span> +<span id="L4402" class="LineNr"> 4402 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4403" class="LineNr"> 4403 </span> (<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="L4404" class="LineNr"> 4404 </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="L4405" class="LineNr"> 4405 </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="L4406" class="LineNr"> 4406 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4407" class="LineNr"> 4407 </span> <span class="subxComment"># convert</span> +<span id="L4408" class="LineNr"> 4408 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4409" class="LineNr"> 4409 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4410" class="Folded"> 4410 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4416" class="LineNr"> 4416 </span> <span class="subxComment"># check output</span> +<span id="L4417" class="LineNr"> 4417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/0"</span>) +<span id="L4418" class="LineNr"> 4418 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/3"</span>) +<span id="L4421" class="LineNr"> 4421 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/4"</span>) +<span id="L4422" class="LineNr"> 4422 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/5"</span>) +<span id="L4423" class="LineNr"> 4423 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/6"</span>) +<span id="L4424" class="LineNr"> 4424 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/7"</span>) +<span id="L4425" class="LineNr"> 4425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/8"</span>) +<span id="L4426" class="LineNr"> 4426 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/9"</span>) +<span id="L4427" class="LineNr"> 4427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/10"</span>) +<span id="L4428" class="LineNr"> 4428 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int %xmm1 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/11"</span>) +<span id="L4429" class="LineNr"> 4429 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/12"</span>) +<span id="L4430" class="LineNr"> 4430 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/13"</span>) +<span id="L4431" class="LineNr"> 4431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/14"</span>) +<span id="L4432" class="LineNr"> 4432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/15"</span>) +<span id="L4433" class="LineNr"> 4433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/16"</span>) +<span id="L4434" class="LineNr"> 4434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) +<span id="L4435" class="LineNr"> 4435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/18"</span>) +<span id="L4436" class="LineNr"> 4436 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/19"</span>) +<span id="L4437" class="LineNr"> 4437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4392'>test-convert-floating-point-convert-2</a>/20"</span>) +<span id="L4438" class="LineNr"> 4438 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4439" class="LineNr"> 4439 </span> 89/<- %esp 5/r32/ebp +<span id="L4440" class="LineNr"> 4440 </span> 5d/pop-to-ebp +<span id="L4441" class="LineNr"> 4441 </span> c3/return +<span id="L4442" class="LineNr"> 4442 </span> +<span id="L4443" class="LineNr"> 4443 </span><span class="subxTest">test-convert-floating-point-operation</span>: +<span id="L4444" class="LineNr"> 4444 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4445" class="LineNr"> 4445 </span> 55/push-ebp +<span id="L4446" class="LineNr"> 4446 </span> 89/<- %ebp 4/r32/esp +<span id="L4447" class="LineNr"> 4447 </span> <span class="subxComment"># setup</span> +<span id="L4448" class="LineNr"> 4448 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4449" class="LineNr"> 4449 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4450" class="LineNr"> 4450 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4451" class="LineNr"> 4451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4452" class="LineNr"> 4452 </span> <span class="subxComment">#</span> +<span id="L4453" class="LineNr"> 4453 </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="L4454" class="LineNr"> 4454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) +<span id="L4455" class="LineNr"> 4455 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) +<span id="L4456" class="LineNr"> 4456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) +<span id="L4457" class="LineNr"> 4457 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) +<span id="L4458" class="LineNr"> 4458 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) +<span id="L4459" class="LineNr"> 4459 </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="L4460" class="LineNr"> 4460 </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="L4461" class="LineNr"> 4461 </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="L4462" class="LineNr"> 4462 </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="L4463" class="LineNr"> 4463 </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="L4464" class="LineNr"> 4464 </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="L4465" class="LineNr"> 4465 </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="L4466" class="LineNr"> 4466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide m\n"</span>) +<span id="L4467" class="LineNr"> 4467 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal y\n"</span>) +<span id="L4468" class="LineNr"> 4468 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal m\n"</span>) +<span id="L4469" class="LineNr"> 4469 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root y\n"</span>) +<span id="L4470" class="LineNr"> 4470 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root m\n"</span>) +<span id="L4471" class="LineNr"> 4471 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root y\n"</span>) +<span id="L4472" class="LineNr"> 4472 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root m\n"</span>) +<span id="L4473" class="LineNr"> 4473 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max y\n"</span>) +<span id="L4474" class="LineNr"> 4474 </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="L4475" class="LineNr"> 4475 </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="L4476" class="LineNr"> 4476 </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="L4477" class="LineNr"> 4477 </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="L4478" class="LineNr"> 4478 </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="L4479" class="LineNr"> 4479 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4480" class="LineNr"> 4480 </span> <span class="subxComment"># convert</span> +<span id="L4481" class="LineNr"> 4481 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4482" class="LineNr"> 4482 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4483" class="Folded"> 4483 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4489" class="LineNr"> 4489 </span> <span class="subxComment"># check output</span> +<span id="L4490" class="LineNr"> 4490 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/0"</span>) +<span id="L4491" class="LineNr"> 4491 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) +<span id="L4492" class="LineNr"> 4492 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/2"</span>) +<span id="L4493" class="LineNr"> 4493 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/3"</span>) +<span id="L4494" class="LineNr"> 4494 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/4"</span>) +<span id="L4495" class="LineNr"> 4495 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/5"</span>) +<span id="L4496" class="LineNr"> 4496 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/25"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/26"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/27"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/28"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/29"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/30"</span>) +<span id="L4521" class="LineNr"> 4521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/31"</span>) +<span id="L4522" class="LineNr"> 4522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/32"</span>) +<span id="L4523" class="LineNr"> 4523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/33"</span>) +<span id="L4524" class="LineNr"> 4524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/34"</span>) +<span id="L4525" class="LineNr"> 4525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/35"</span>) +<span id="L4526" class="LineNr"> 4526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/36"</span>) +<span id="L4527" class="LineNr"> 4527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/37"</span>) +<span id="L4528" class="LineNr"> 4528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/38"</span>) +<span id="L4529" class="LineNr"> 4529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/39"</span>) +<span id="L4530" class="LineNr"> 4530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/40"</span>) +<span id="L4531" class="LineNr"> 4531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/41"</span>) +<span id="L4532" class="LineNr"> 4532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) +<span id="L4533" class="LineNr"> 4533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/43"</span>) +<span id="L4534" class="LineNr"> 4534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/44"</span>) +<span id="L4535" class="LineNr"> 4535 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4443'>test-convert-floating-point-operation</a>/45"</span>) +<span id="L4536" class="LineNr"> 4536 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4537" class="LineNr"> 4537 </span> 89/<- %esp 5/r32/ebp +<span id="L4538" class="LineNr"> 4538 </span> 5d/pop-to-ebp +<span id="L4539" class="LineNr"> 4539 </span> c3/return +<span id="L4540" class="LineNr"> 4540 </span> +<span id="L4541" class="LineNr"> 4541 </span><span class="subxTest">test-convert-floating-point-dereferenced</span>: +<span id="L4542" class="LineNr"> 4542 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4543" class="LineNr"> 4543 </span> 55/push-ebp +<span id="L4544" class="LineNr"> 4544 </span> 89/<- %ebp 4/r32/esp +<span id="L4545" class="LineNr"> 4545 </span> <span class="subxComment"># setup</span> +<span id="L4546" class="LineNr"> 4546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4547" class="LineNr"> 4547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4548" class="LineNr"> 4548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4549" class="LineNr"> 4549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4550" class="LineNr"> 4550 </span> <span class="subxComment">#</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">"fn f {\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 m: float\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">" var x/xmm1: float <- copy m\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">" var y/eax: (addr float) <- copy 0\n"</span>) +<span id="L4555" class="LineNr"> 4555 </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="L4556" class="LineNr"> 4556 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4557" class="LineNr"> 4557 </span> <span class="subxComment"># convert</span> +<span id="L4558" class="LineNr"> 4558 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4559" class="LineNr"> 4559 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4560" class="Folded"> 4560 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4566" class="LineNr"> 4566 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/12"</span>) +<span id="L4580" class="LineNr"> 4580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/13"</span>) +<span id="L4581" class="LineNr"> 4581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/14"</span>) +<span id="L4582" class="LineNr"> 4582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/15"</span>) +<span id="L4583" class="LineNr"> 4583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/16"</span>) +<span id="L4584" class="LineNr"> 4584 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/17"</span>) +<span id="L4585" class="LineNr"> 4585 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/18"</span>) +<span id="L4586" class="LineNr"> 4586 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/19"</span>) +<span id="L4587" class="LineNr"> 4587 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/20"</span>) +<span id="L4588" class="LineNr"> 4588 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/21"</span>) +<span id="L4589" class="LineNr"> 4589 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4541'>test-convert-floating-point-dereferenced</a>/22"</span>) +<span id="L4590" class="LineNr"> 4590 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4591" class="LineNr"> 4591 </span> 89/<- %esp 5/r32/ebp +<span id="L4592" class="LineNr"> 4592 </span> 5d/pop-to-ebp +<span id="L4593" class="LineNr"> 4593 </span> c3/return +<span id="L4594" class="LineNr"> 4594 </span> +<span id="L4595" class="LineNr"> 4595 </span><span class="subxTest">test-convert-length-of-array</span>: +<span id="L4596" class="LineNr"> 4596 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4597" class="LineNr"> 4597 </span> 55/push-ebp +<span id="L4598" class="LineNr"> 4598 </span> 89/<- %ebp 4/r32/esp +<span id="L4599" class="LineNr"> 4599 </span> <span class="subxComment"># setup</span> +<span id="L4600" class="LineNr"> 4600 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4601" class="LineNr"> 4601 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4602" class="LineNr"> 4602 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4603" class="LineNr"> 4603 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4604" class="LineNr"> 4604 </span> <span class="subxComment">#</span> +<span id="L4605" class="LineNr"> 4605 </span> (<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="L4606" class="LineNr"> 4606 </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="L4607" class="LineNr"> 4607 </span> (<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="L4608" class="LineNr"> 4608 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4609" class="LineNr"> 4609 </span> <span class="subxComment"># convert</span> +<span id="L4610" class="LineNr"> 4610 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4611" class="LineNr"> 4611 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4612" class="Folded"> 4612 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4618" class="LineNr"> 4618 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/11"</span>) +<span id="L4631" class="LineNr"> 4631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/12"</span>) +<span id="L4632" class="LineNr"> 4632 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) +<span id="L4633" class="LineNr"> 4633 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/14"</span>) +<span id="L4634" class="LineNr"> 4634 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/15"</span>) +<span id="L4635" class="LineNr"> 4635 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4595'>test-convert-length-of-array</a>/16"</span>) +<span id="L4636" class="LineNr"> 4636 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4637" class="LineNr"> 4637 </span> 89/<- %esp 5/r32/ebp +<span id="L4638" class="LineNr"> 4638 </span> 5d/pop-to-ebp +<span id="L4639" class="LineNr"> 4639 </span> c3/return +<span id="L4640" class="LineNr"> 4640 </span> +<span id="L4641" class="LineNr"> 4641 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> +<span id="L4642" class="LineNr"> 4642 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: +<span id="L4643" class="LineNr"> 4643 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4644" class="LineNr"> 4644 </span> 55/push-ebp +<span id="L4645" class="LineNr"> 4645 </span> 89/<- %ebp 4/r32/esp +<span id="L4646" class="LineNr"> 4646 </span> <span class="subxComment"># setup</span> +<span id="L4647" class="LineNr"> 4647 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4648" class="LineNr"> 4648 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4649" class="LineNr"> 4649 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4650" class="LineNr"> 4650 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4651" class="LineNr"> 4651 </span> <span class="subxComment">#</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">"fn foo a: (addr array byte) {\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">" var b/eax: (addr array byte) <- copy a\n"</span>) +<span id="L4654" class="LineNr"> 4654 </span> (<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="L4655" class="LineNr"> 4655 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4656" class="LineNr"> 4656 </span> <span class="subxComment"># convert</span> +<span id="L4657" class="LineNr"> 4657 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4658" class="LineNr"> 4658 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4659" class="Folded"> 4659 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4665" class="LineNr"> 4665 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) +<span id="L4668" class="LineNr"> 4668 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) +<span id="L4679" class="LineNr"> 4679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4642'>test-convert-length-of-array-of-bytes</a>/15"</span>) +<span id="L4682" class="LineNr"> 4682 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4683" class="LineNr"> 4683 </span> 89/<- %esp 5/r32/ebp +<span id="L4684" class="LineNr"> 4684 </span> 5d/pop-to-ebp +<span id="L4685" class="LineNr"> 4685 </span> c3/return +<span id="L4686" class="LineNr"> 4686 </span> +<span id="L4687" class="LineNr"> 4687 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: +<span id="L4688" class="LineNr"> 4688 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4689" class="LineNr"> 4689 </span> 55/push-ebp +<span id="L4690" class="LineNr"> 4690 </span> 89/<- %ebp 4/r32/esp +<span id="L4691" class="LineNr"> 4691 </span> <span class="subxComment"># setup</span> +<span id="L4692" class="LineNr"> 4692 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4693" class="LineNr"> 4693 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4694" class="LineNr"> 4694 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4695" class="LineNr"> 4695 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4696" class="LineNr"> 4696 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L4698" class="LineNr"> 4698 </span> (<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="L4699" class="LineNr"> 4699 </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="L4700" class="LineNr"> 4700 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4701" class="LineNr"> 4701 </span> <span class="subxComment"># convert</span> +<span id="L4702" class="LineNr"> 4702 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4703" class="LineNr"> 4703 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4704" class="Folded"> 4704 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4710" class="LineNr"> 4710 </span> <span class="subxComment"># check output</span> +<span id="L4711" class="LineNr"> 4711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/0"</span>) +<span id="L4712" class="LineNr"> 4712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) +<span id="L4713" class="LineNr"> 4713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/2"</span>) +<span id="L4714" class="LineNr"> 4714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/3"</span>) +<span id="L4715" class="LineNr"> 4715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/4"</span>) +<span id="L4716" class="LineNr"> 4716 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/5"</span>) +<span id="L4717" class="LineNr"> 4717 </span> <span class="subxComment"># define x</span> +<span id="L4718" class="LineNr"> 4718 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/6"</span>) +<span id="L4719" class="LineNr"> 4719 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/7"</span>) +<span id="L4720" class="LineNr"> 4720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) +<span id="L4728" class="LineNr"> 4728 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4687'>test-convert-length-of-array-on-stack</a>/18"</span>) +<span id="L4731" class="LineNr"> 4731 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4732" class="LineNr"> 4732 </span> 89/<- %esp 5/r32/ebp +<span id="L4733" class="LineNr"> 4733 </span> 5d/pop-to-ebp +<span id="L4734" class="LineNr"> 4734 </span> c3/return +<span id="L4735" class="LineNr"> 4735 </span> +<span id="L4736" class="LineNr"> 4736 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: +<span id="L4737" class="LineNr"> 4737 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4738" class="LineNr"> 4738 </span> 55/push-ebp +<span id="L4739" class="LineNr"> 4739 </span> 89/<- %ebp 4/r32/esp +<span id="L4740" class="LineNr"> 4740 </span> <span class="subxComment"># setup</span> +<span id="L4741" class="LineNr"> 4741 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4742" class="LineNr"> 4742 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4743" class="LineNr"> 4743 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4744" class="LineNr"> 4744 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4745" class="LineNr"> 4745 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L4746" class="LineNr"> 4746 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4747" class="LineNr"> 4747 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L4748" class="LineNr"> 4748 </span> 68/push 0/imm32 +<span id="L4749" class="LineNr"> 4749 </span> 68/push 0/imm32 +<span id="L4750" class="LineNr"> 4750 </span> 89/<- %edx 4/r32/esp +<span id="L4751" class="LineNr"> 4751 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4752" class="LineNr"> 4752 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array int) <- copy 0\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">" var idx/ecx: int <- copy 3\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">" var x/eax: (addr int) <- index arr, idx\n"</span>) +<span id="L4757" class="LineNr"> 4757 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4758" class="LineNr"> 4758 </span> <span class="subxComment"># convert</span> +<span id="L4759" class="LineNr"> 4759 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L4760" class="LineNr"> 4760 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> +<span id="L4761" class="LineNr"> 4761 </span> <span class="subxComment"># restore ed</span> +<span id="L4762" class="LineNr"> 4762 </span> 89/<- %edx 4/r32/esp +<span id="L4763" class="LineNr"> 4763 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4764" class="LineNr"> 4764 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L4765" class="Folded"> 4765 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4771" class="Folded"> 4771 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4777" class="LineNr"> 4777 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>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="L4778" class="LineNr"> 4778 </span> <span class="subxComment"># check output</span> +<span id="L4779" class="LineNr"> 4779 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/0"</span>) +<span id="L4780" class="LineNr"> 4780 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4736'>test-reg-var-def-with-read-of-same-register</a>/20"</span>) +<span id="L4798" class="LineNr"> 4798 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4799" class="LineNr"> 4799 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4800" class="LineNr"> 4800 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L4801" class="LineNr"> 4801 </span> 5d/pop-to-ebp <span id="L4802" class="LineNr"> 4802 </span> c3/return <span id="L4803" class="LineNr"> 4803 </span> -<span id="L4804" class="LineNr"> 4804 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: +<span id="L4804" class="LineNr"> 4804 </span><span class="subxTest">test-convert-index-into-array</span>: <span id="L4805" class="LineNr"> 4805 </span> <span class="subxS1Comment"># . prologue</span> <span id="L4806" class="LineNr"> 4806 </span> 55/push-ebp <span id="L4807" class="LineNr"> 4807 </span> 89/<- %ebp 4/r32/esp @@ -4445,634 +4445,634 @@ if ('onhashchange' in window) { <span id="L4813" class="LineNr"> 4813 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L4816" class="LineNr"> 4816 </span> (<a 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="L4817" class="LineNr"> 4817 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4818" class="LineNr"> 4818 </span> <span class="subxComment"># convert</span> -<span id="L4819" class="LineNr"> 4819 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4820" class="LineNr"> 4820 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4821" class="Folded"> 4821 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4827" class="LineNr"> 4827 </span> <span class="subxComment"># check output</span> -<span id="L4828" class="LineNr"> 4828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/0"</span>) -<span id="L4829" class="LineNr"> 4829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) -<span id="L4830" class="LineNr"> 4830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/2"</span>) -<span id="L4831" class="LineNr"> 4831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/3"</span>) -<span id="L4832" class="LineNr"> 4832 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/4"</span>) -<span id="L4833" class="LineNr"> 4833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/5"</span>) -<span id="L4834" class="LineNr"> 4834 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/6"</span>) -<span id="L4835" class="LineNr"> 4835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/7"</span>) -<span id="L4836" class="LineNr"> 4836 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> -<span id="L4837" class="LineNr"> 4837 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/8"</span>) -<span id="L4838" class="LineNr"> 4838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/9"</span>) -<span id="L4839" class="LineNr"> 4839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array-with-literal</a>/15"</span>) -<span id="L4845" class="LineNr"> 4845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4846" class="LineNr"> 4846 </span> 89/<- %esp 5/r32/ebp -<span id="L4847" class="LineNr"> 4847 </span> 5d/pop-to-ebp -<span id="L4848" class="LineNr"> 4848 </span> c3/return -<span id="L4849" class="LineNr"> 4849 </span> -<span id="L4850" class="LineNr"> 4850 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: -<span id="L4851" class="LineNr"> 4851 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4852" class="LineNr"> 4852 </span> 55/push-ebp -<span id="L4853" class="LineNr"> 4853 </span> 89/<- %ebp 4/r32/esp -<span id="L4854" class="LineNr"> 4854 </span> <span class="subxComment"># setup</span> -<span id="L4855" class="LineNr"> 4855 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4856" class="LineNr"> 4856 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4857" class="LineNr"> 4857 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4858" class="LineNr"> 4858 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4859" class="LineNr"> 4859 </span> <span class="subxComment">#</span> -<span id="L4860" class="LineNr"> 4860 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4861" class="LineNr"> 4861 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L4862" class="LineNr"> 4862 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) -<span id="L4863" class="LineNr"> 4863 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4864" class="LineNr"> 4864 </span> <span class="subxComment"># convert</span> -<span id="L4865" class="LineNr"> 4865 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4866" class="LineNr"> 4866 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4867" class="Folded"> 4867 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4873" class="LineNr"> 4873 </span> <span class="subxComment"># check output</span> -<span id="L4874" class="LineNr"> 4874 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) -<span id="L4875" class="LineNr"> 4875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) -<span id="L4876" class="LineNr"> 4876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) -<span id="L4877" class="LineNr"> 4877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) -<span id="L4878" class="LineNr"> 4878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) -<span id="L4879" class="LineNr"> 4879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) -<span id="L4880" class="LineNr"> 4880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</span>) -<span id="L4881" class="LineNr"> 4881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) -<span id="L4882" class="LineNr"> 4882 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> -<span id="L4883" class="LineNr"> 4883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L4884" class="LineNr"> 4884 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) -<span id="L4885" class="LineNr"> 4885 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) -<span id="L4886" class="LineNr"> 4886 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) -<span id="L4887" class="LineNr"> 4887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/12"</span>) -<span id="L4888" class="LineNr"> 4888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) -<span id="L4889" class="LineNr"> 4889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) -<span id="L4890" class="LineNr"> 4890 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4850'>test-convert-index-into-array-of-bytes-with-literal</a>/15"</span>) -<span id="L4891" class="LineNr"> 4891 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4892" class="LineNr"> 4892 </span> 89/<- %esp 5/r32/ebp -<span id="L4893" class="LineNr"> 4893 </span> 5d/pop-to-ebp -<span id="L4894" class="LineNr"> 4894 </span> c3/return -<span id="L4895" class="LineNr"> 4895 </span> -<span id="L4896" class="LineNr"> 4896 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: -<span id="L4897" class="LineNr"> 4897 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4898" class="LineNr"> 4898 </span> 55/push-ebp -<span id="L4899" class="LineNr"> 4899 </span> 89/<- %ebp 4/r32/esp -<span id="L4900" class="LineNr"> 4900 </span> <span class="subxComment"># setup</span> -<span id="L4901" class="LineNr"> 4901 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4902" class="LineNr"> 4902 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4903" class="LineNr"> 4903 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4904" class="LineNr"> 4904 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4905" class="LineNr"> 4905 </span> <span class="subxComment">#</span> -<span id="L4906" class="LineNr"> 4906 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4907" class="LineNr"> 4907 </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="L4908" class="LineNr"> 4908 </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="L4909" class="LineNr"> 4909 </span> (<a 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="L4910" class="LineNr"> 4910 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4911" class="LineNr"> 4911 </span> <span class="subxComment"># convert</span> -<span id="L4912" class="LineNr"> 4912 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4913" class="LineNr"> 4913 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4914" class="Folded"> 4914 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4920" class="LineNr"> 4920 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) -<span id="L4923" class="LineNr"> 4923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/2"</span>) -<span id="L4924" class="LineNr"> 4924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/3"</span>) -<span id="L4925" class="LineNr"> 4925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/4"</span>) -<span id="L4926" class="LineNr"> 4926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/5"</span>) -<span id="L4927" class="LineNr"> 4927 </span> <span class="subxComment"># var arr</span> -<span id="L4928" class="LineNr"> 4928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/6"</span>) -<span id="L4929" class="LineNr"> 4929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/7"</span>) -<span id="L4930" class="LineNr"> 4930 </span> <span class="subxComment"># var idx</span> -<span id="L4931" class="LineNr"> 4931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/8"</span>) -<span id="L4932" class="LineNr"> 4932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/9"</span>) -<span id="L4933" class="LineNr"> 4933 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> -<span id="L4934" class="LineNr"> 4934 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/10"</span>) -<span id="L4935" class="LineNr"> 4935 </span> <span class="subxComment"># reclaim idx</span> -<span id="L4936" class="LineNr"> 4936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/11"</span>) -<span id="L4937" class="LineNr"> 4937 </span> <span class="subxComment"># reclaim arr</span> -<span id="L4938" class="LineNr"> 4938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/12"</span>) -<span id="L4939" class="LineNr"> 4939 </span> <span class="subxComment">#</span> -<span id="L4940" class="LineNr"> 4940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/13"</span>) -<span id="L4941" class="LineNr"> 4941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/14"</span>) -<span id="L4942" class="LineNr"> 4942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/15"</span>) -<span id="L4943" class="LineNr"> 4943 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/16"</span>) -<span id="L4944" class="LineNr"> 4944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4896'>test-convert-index-into-array-on-stack</a>/18"</span>) -<span id="L4946" class="LineNr"> 4946 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4947" class="LineNr"> 4947 </span> 89/<- %esp 5/r32/ebp -<span id="L4948" class="LineNr"> 4948 </span> 5d/pop-to-ebp -<span id="L4949" class="LineNr"> 4949 </span> c3/return -<span id="L4950" class="LineNr"> 4950 </span> -<span id="L4951" class="LineNr"> 4951 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: -<span id="L4952" class="LineNr"> 4952 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4953" class="LineNr"> 4953 </span> 55/push-ebp -<span id="L4954" class="LineNr"> 4954 </span> 89/<- %ebp 4/r32/esp -<span id="L4955" class="LineNr"> 4955 </span> <span class="subxComment"># setup</span> -<span id="L4956" class="LineNr"> 4956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4957" class="LineNr"> 4957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4958" class="LineNr"> 4958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4959" class="LineNr"> 4959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4960" class="LineNr"> 4960 </span> <span class="subxComment">#</span> -<span id="L4961" class="LineNr"> 4961 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4962" class="LineNr"> 4962 </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="L4963" class="LineNr"> 4963 </span> (<a 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="L4964" class="LineNr"> 4964 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4965" class="LineNr"> 4965 </span> <span class="subxComment"># convert</span> -<span id="L4966" class="LineNr"> 4966 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4967" class="LineNr"> 4967 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4968" class="Folded"> 4968 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4974" class="LineNr"> 4974 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) -<span id="L4977" class="LineNr"> 4977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) -<span id="L4981" class="LineNr"> 4981 </span> <span class="subxComment"># var arr</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#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) -<span id="L4983" class="LineNr"> 4983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) -<span id="L4984" class="LineNr"> 4984 </span> <span class="subxComment"># var x</span> -<span id="L4985" class="LineNr"> 4985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) -<span id="L4986" class="LineNr"> 4986 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> -<span id="L4987" class="LineNr"> 4987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) -<span id="L4988" class="LineNr"> 4988 </span> <span class="subxComment"># reclaim x</span> -<span id="L4989" class="LineNr"> 4989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) -<span id="L4990" class="LineNr"> 4990 </span> <span class="subxComment"># reclaim arr</span> -<span id="L4991" class="LineNr"> 4991 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) -<span id="L4992" class="LineNr"> 4992 </span> <span class="subxComment">#</span> -<span id="L4993" class="LineNr"> 4993 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) -<span id="L4994" class="LineNr"> 4994 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) -<span id="L4995" class="LineNr"> 4995 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/14"</span>) -<span id="L4996" class="LineNr"> 4996 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/15"</span>) -<span id="L4997" class="LineNr"> 4997 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) -<span id="L4998" class="LineNr"> 4998 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4951'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) -<span id="L4999" class="LineNr"> 4999 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5000" class="LineNr"> 5000 </span> 89/<- %esp 5/r32/ebp -<span id="L5001" class="LineNr"> 5001 </span> 5d/pop-to-ebp -<span id="L5002" class="LineNr"> 5002 </span> c3/return -<span id="L5003" class="LineNr"> 5003 </span> -<span id="L5004" class="LineNr"> 5004 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: -<span id="L5005" class="LineNr"> 5005 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5006" class="LineNr"> 5006 </span> 55/push-ebp -<span id="L5007" class="LineNr"> 5007 </span> 89/<- %ebp 4/r32/esp -<span id="L5008" class="LineNr"> 5008 </span> <span class="subxComment"># setup</span> -<span id="L5009" class="LineNr"> 5009 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5010" class="LineNr"> 5010 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5011" class="LineNr"> 5011 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5012" class="LineNr"> 5012 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5013" class="LineNr"> 5013 </span> <span class="subxComment">#</span> -<span id="L5014" class="LineNr"> 5014 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5015" class="LineNr"> 5015 </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="L5016" class="LineNr"> 5016 </span> (<a 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="L5017" class="LineNr"> 5017 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5018" class="LineNr"> 5018 </span> <span class="subxComment"># convert</span> -<span id="L5019" class="LineNr"> 5019 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5020" class="LineNr"> 5020 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5021" class="Folded"> 5021 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5027" class="LineNr"> 5027 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) -<span id="L5030" class="LineNr"> 5030 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) -<span id="L5034" class="LineNr"> 5034 </span> <span class="subxComment"># var arr</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#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) -<span id="L5037" class="LineNr"> 5037 </span> <span class="subxComment"># var x</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) -<span id="L5039" class="LineNr"> 5039 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) -<span id="L5041" class="LineNr"> 5041 </span> <span class="subxComment"># reclaim x</span> -<span id="L5042" class="LineNr"> 5042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) -<span id="L5043" class="LineNr"> 5043 </span> <span class="subxComment"># reclaim arr</span> -<span id="L5044" class="LineNr"> 5044 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) -<span id="L5045" class="LineNr"> 5045 </span> <span class="subxComment">#</span> -<span id="L5046" class="LineNr"> 5046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) -<span id="L5047" class="LineNr"> 5047 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) -<span id="L5048" class="LineNr"> 5048 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/14"</span>) -<span id="L5049" class="LineNr"> 5049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/15"</span>) -<span id="L5050" class="LineNr"> 5050 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) -<span id="L5051" class="LineNr"> 5051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5004'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) -<span id="L5052" class="LineNr"> 5052 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5053" class="LineNr"> 5053 </span> 89/<- %esp 5/r32/ebp -<span id="L5054" class="LineNr"> 5054 </span> 5d/pop-to-ebp -<span id="L5055" class="LineNr"> 5055 </span> c3/return -<span id="L5056" class="LineNr"> 5056 </span> -<span id="L5057" class="LineNr"> 5057 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: -<span id="L5058" class="LineNr"> 5058 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5059" class="LineNr"> 5059 </span> 55/push-ebp -<span id="L5060" class="LineNr"> 5060 </span> 89/<- %ebp 4/r32/esp -<span id="L5061" class="LineNr"> 5061 </span> <span class="subxComment"># setup</span> -<span id="L5062" class="LineNr"> 5062 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5063" class="LineNr"> 5063 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5064" class="LineNr"> 5064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5065" class="LineNr"> 5065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5066" class="LineNr"> 5066 </span> <span class="subxComment">#</span> -<span id="L5067" class="LineNr"> 5067 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5068" class="LineNr"> 5068 </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="L5069" class="LineNr"> 5069 </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="L5070" class="LineNr"> 5070 </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="L5071" class="LineNr"> 5071 </span> (<a 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="L5072" class="LineNr"> 5072 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5073" class="LineNr"> 5073 </span> <span class="subxComment"># convert</span> -<span id="L5074" class="LineNr"> 5074 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5075" class="LineNr"> 5075 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5076" class="Folded"> 5076 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5082" class="LineNr"> 5082 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) -<span id="L5085" class="LineNr"> 5085 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/4"</span>) -<span id="L5088" class="LineNr"> 5088 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/13"</span>) -<span id="L5097" class="LineNr"> 5097 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/14"</span>) -<span id="L5098" class="LineNr"> 5098 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/15"</span>) -<span id="L5099" class="LineNr"> 5099 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/16"</span>) -<span id="L5100" class="LineNr"> 5100 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/17"</span>) -<span id="L5101" class="LineNr"> 5101 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/18"</span>) -<span id="L5102" class="LineNr"> 5102 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5057'>test-convert-index-into-array-using-offset</a>/19"</span>) -<span id="L5103" class="LineNr"> 5103 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5104" class="LineNr"> 5104 </span> 89/<- %esp 5/r32/ebp -<span id="L5105" class="LineNr"> 5105 </span> 5d/pop-to-ebp -<span id="L5106" class="LineNr"> 5106 </span> c3/return -<span id="L5107" class="LineNr"> 5107 </span> -<span id="L5108" class="LineNr"> 5108 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: -<span id="L5109" class="LineNr"> 5109 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5110" class="LineNr"> 5110 </span> 55/push-ebp -<span id="L5111" class="LineNr"> 5111 </span> 89/<- %ebp 4/r32/esp -<span id="L5112" class="LineNr"> 5112 </span> <span class="subxComment"># setup</span> -<span id="L5113" class="LineNr"> 5113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5114" class="LineNr"> 5114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5115" class="LineNr"> 5115 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5116" class="LineNr"> 5116 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5117" class="LineNr"> 5117 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L5120" class="LineNr"> 5120 </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="L5121" class="LineNr"> 5121 </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="L5122" class="LineNr"> 5122 </span> (<a 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="L5123" class="LineNr"> 5123 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5124" class="LineNr"> 5124 </span> <span class="subxComment"># convert</span> -<span id="L5125" class="LineNr"> 5125 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5126" class="LineNr"> 5126 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5127" class="Folded"> 5127 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5133" class="LineNr"> 5133 </span> <span class="subxComment"># check output</span> -<span id="L5134" class="LineNr"> 5134 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) -<span id="L5135" class="LineNr"> 5135 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) -<span id="L5136" class="LineNr"> 5136 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) -<span id="L5137" class="LineNr"> 5137 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) -<span id="L5138" class="LineNr"> 5138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) -<span id="L5139" class="LineNr"> 5139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) -<span id="L5140" class="LineNr"> 5140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5108'>test-convert-index-into-array-of-bytes-using-offset</a>/19"</span>) -<span id="L5154" class="LineNr"> 5154 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5155" class="LineNr"> 5155 </span> 89/<- %esp 5/r32/ebp -<span id="L5156" class="LineNr"> 5156 </span> 5d/pop-to-ebp -<span id="L5157" class="LineNr"> 5157 </span> c3/return -<span id="L5158" class="LineNr"> 5158 </span> -<span id="L5159" class="LineNr"> 5159 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: -<span id="L5160" class="LineNr"> 5160 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5161" class="LineNr"> 5161 </span> 55/push-ebp -<span id="L5162" class="LineNr"> 5162 </span> 89/<- %ebp 4/r32/esp -<span id="L5163" class="LineNr"> 5163 </span> <span class="subxComment"># setup</span> -<span id="L5164" class="LineNr"> 5164 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5165" class="LineNr"> 5165 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5166" class="LineNr"> 5166 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5167" class="LineNr"> 5167 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5168" class="LineNr"> 5168 </span> <span class="subxComment">#</span> -<span id="L5169" class="LineNr"> 5169 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var arr/eax: (addr array int) <- copy 0\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">" var idx: int\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 off/ecx: (offset int) <- compute-offset arr, idx\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">" var x/eax: (addr int) <- index arr, off\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">"}\n"</span>) -<span id="L5175" class="LineNr"> 5175 </span> <span class="subxComment"># convert</span> -<span id="L5176" class="LineNr"> 5176 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5177" class="LineNr"> 5177 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5178" class="Folded"> 5178 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5184" class="LineNr"> 5184 </span> <span class="subxComment"># check output</span> -<span id="L5185" class="LineNr"> 5185 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) -<span id="L5186" class="LineNr"> 5186 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) -<span id="L5187" class="LineNr"> 5187 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) -<span id="L5188" class="LineNr"> 5188 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) -<span id="L5189" class="LineNr"> 5189 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) -<span id="L5190" class="LineNr"> 5190 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) -<span id="L5191" class="LineNr"> 5191 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) -<span id="L5192" class="LineNr"> 5192 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) -<span id="L5193" class="LineNr"> 5193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) -<span id="L5194" class="LineNr"> 5194 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) -<span id="L5195" class="LineNr"> 5195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) -<span id="L5196" class="LineNr"> 5196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) -<span id="L5197" class="LineNr"> 5197 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) -<span id="L5198" class="LineNr"> 5198 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5159'>test-convert-index-into-array-using-offset-on-stack</a>/20"</span>) -<span id="L5206" class="LineNr"> 5206 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5207" class="LineNr"> 5207 </span> 89/<- %esp 5/r32/ebp -<span id="L5208" class="LineNr"> 5208 </span> 5d/pop-to-ebp -<span id="L5209" class="LineNr"> 5209 </span> c3/return -<span id="L5210" class="LineNr"> 5210 </span> -<span id="L5211" class="LineNr"> 5211 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: -<span id="L5212" class="LineNr"> 5212 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5213" class="LineNr"> 5213 </span> 55/push-ebp -<span id="L5214" class="LineNr"> 5214 </span> 89/<- %ebp 4/r32/esp -<span id="L5215" class="LineNr"> 5215 </span> <span class="subxComment"># setup</span> -<span id="L5216" class="LineNr"> 5216 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5217" class="LineNr"> 5217 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5218" class="LineNr"> 5218 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5219" class="LineNr"> 5219 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5220" class="LineNr"> 5220 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array byte) <- copy 0\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">" var idx: int\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">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) -<span id="L5225" class="LineNr"> 5225 </span> (<a 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="L5226" class="LineNr"> 5226 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5227" class="LineNr"> 5227 </span> <span class="subxComment"># convert</span> -<span id="L5228" class="LineNr"> 5228 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5229" class="LineNr"> 5229 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5230" class="Folded"> 5230 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5236" class="LineNr"> 5236 </span> <span class="subxComment"># check output</span> -<span id="L5237" class="LineNr"> 5237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) -<span id="L5238" class="LineNr"> 5238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) -<span id="L5239" class="LineNr"> 5239 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) -<span id="L5240" class="LineNr"> 5240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) -<span id="L5241" class="LineNr"> 5241 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) -<span id="L5242" class="LineNr"> 5242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) -<span id="L5243" class="LineNr"> 5243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) -<span id="L5244" class="LineNr"> 5244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) -<span id="L5245" class="LineNr"> 5245 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) -<span id="L5246" class="LineNr"> 5246 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) -<span id="L5247" class="LineNr"> 5247 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) -<span id="L5248" class="LineNr"> 5248 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) -<span id="L5249" class="LineNr"> 5249 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) -<span id="L5250" class="LineNr"> 5250 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) -<span id="L5251" class="LineNr"> 5251 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) -<span id="L5252" class="LineNr"> 5252 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) -<span id="L5253" class="LineNr"> 5253 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) -<span id="L5254" class="LineNr"> 5254 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/17"</span>) -<span id="L5255" class="LineNr"> 5255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/18"</span>) -<span id="L5256" class="LineNr"> 5256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5211'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/20"</span>) -<span id="L5258" class="LineNr"> 5258 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5259" class="LineNr"> 5259 </span> 89/<- %esp 5/r32/ebp -<span id="L5260" class="LineNr"> 5260 </span> 5d/pop-to-ebp -<span id="L5261" class="LineNr"> 5261 </span> c3/return -<span id="L5262" class="LineNr"> 5262 </span> -<span id="L5263" class="LineNr"> 5263 </span><span class="subxTest">test-convert-function-and-type-definition</span>: -<span id="L5264" class="LineNr"> 5264 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5265" class="LineNr"> 5265 </span> 55/push-ebp -<span id="L5266" class="LineNr"> 5266 </span> 89/<- %ebp 4/r32/esp -<span id="L5267" class="LineNr"> 5267 </span> <span class="subxComment"># setup</span> -<span id="L5268" class="LineNr"> 5268 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5269" class="LineNr"> 5269 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5270" class="LineNr"> 5270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5271" class="LineNr"> 5271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5272" class="LineNr"> 5272 </span> <span class="subxComment">#</span> -<span id="L5273" class="LineNr"> 5273 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr t) {\n"</span>) -<span id="L5274" class="LineNr"> 5274 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) -<span id="L5275" class="LineNr"> 5275 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> _a, x\n"</span>) -<span id="L5276" class="LineNr"> 5276 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> _a, y\n"</span>) -<span id="L5277" class="LineNr"> 5277 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5278" class="LineNr"> 5278 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L5279" class="LineNr"> 5279 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L5280" class="LineNr"> 5280 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L5281" class="LineNr"> 5281 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5282" class="LineNr"> 5282 </span> <span class="subxComment"># convert</span> -<span id="L5283" class="LineNr"> 5283 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5284" class="LineNr"> 5284 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5285" class="Folded"> 5285 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5291" class="LineNr"> 5291 </span> <span class="subxComment"># check output</span> -<span id="L5292" class="LineNr"> 5292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/0"</span>) -<span id="L5293" class="LineNr"> 5293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) -<span id="L5294" class="LineNr"> 5294 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/2"</span>) -<span id="L5295" class="LineNr"> 5295 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/3"</span>) -<span id="L5296" class="LineNr"> 5296 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/4"</span>) -<span id="L5297" class="LineNr"> 5297 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/5"</span>) -<span id="L5298" class="LineNr"> 5298 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/6"</span>) -<span id="L5299" class="LineNr"> 5299 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/7"</span>) -<span id="L5300" class="LineNr"> 5300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/8"</span>) -<span id="L5301" class="LineNr"> 5301 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/9"</span>) -<span id="L5302" class="LineNr"> 5302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/11"</span>) -<span id="L5303" class="LineNr"> 5303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/13"</span>) -<span id="L5304" class="LineNr"> 5304 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/14"</span>) -<span id="L5305" class="LineNr"> 5305 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/15"</span>) -<span id="L5306" class="LineNr"> 5306 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/16"</span>) -<span id="L5307" class="LineNr"> 5307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/17"</span>) -<span id="L5308" class="LineNr"> 5308 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/18"</span>) -<span id="L5309" class="LineNr"> 5309 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/19"</span>) -<span id="L5310" class="LineNr"> 5310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5263'>test-convert-function-and-type-definition</a>/20"</span>) -<span id="L5311" class="LineNr"> 5311 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5312" class="LineNr"> 5312 </span> 89/<- %esp 5/r32/ebp -<span id="L5313" class="LineNr"> 5313 </span> 5d/pop-to-ebp -<span id="L5314" class="LineNr"> 5314 </span> c3/return -<span id="L5315" class="LineNr"> 5315 </span> -<span id="L5316" class="LineNr"> 5316 </span><span class="subxTest">test-type-definition-with-array</span>: -<span id="L5317" class="LineNr"> 5317 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5318" class="LineNr"> 5318 </span> 55/push-ebp -<span id="L5319" class="LineNr"> 5319 </span> 89/<- %ebp 4/r32/esp -<span id="L5320" class="LineNr"> 5320 </span> <span class="subxComment"># setup</span> -<span id="L5321" class="LineNr"> 5321 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5322" class="LineNr"> 5322 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5323" class="LineNr"> 5323 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5324" class="LineNr"> 5324 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5325" class="LineNr"> 5325 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5326" class="LineNr"> 5326 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5327" class="LineNr"> 5327 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5328" class="LineNr"> 5328 </span> 68/push 0/imm32 -<span id="L5329" class="LineNr"> 5329 </span> 68/push 0/imm32 -<span id="L5330" class="LineNr"> 5330 </span> 89/<- %edx 4/r32/esp -<span id="L5331" class="LineNr"> 5331 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5332" class="LineNr"> 5332 </span> <span class="subxComment">#</span> -<span id="L5333" class="LineNr"> 5333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L5334" class="LineNr"> 5334 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\n"</span>) -<span id="L5335" class="LineNr"> 5335 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5336" class="LineNr"> 5336 </span> <span class="subxComment"># convert</span> -<span id="L5337" class="LineNr"> 5337 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L5338" class="LineNr"> 5338 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5339" class="LineNr"> 5339 </span> <span class="subxComment"># restore ed</span> -<span id="L5340" class="LineNr"> 5340 </span> 89/<- %edx 4/r32/esp -<span id="L5341" class="LineNr"> 5341 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5342" class="LineNr"> 5342 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L5343" class="Folded"> 5343 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5349" class="LineNr"> 5349 </span> <span class="subxComment"># check output</span> -<span id="L5350" class="LineNr"> 5350 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5316'>test-type-definition-with-array</a>: output should be empty"</span>) -<span id="L5351" class="LineNr"> 5351 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L5316'>test-type-definition-with-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5352" class="LineNr"> 5352 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5353" class="LineNr"> 5353 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5316'>test-type-definition-with-array</a>: exit status"</span>) -<span id="L5354" class="LineNr"> 5354 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5355" class="LineNr"> 5355 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4816" class="LineNr"> 4816 </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="L4817" class="LineNr"> 4817 </span> (<a 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="L4818" class="LineNr"> 4818 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4819" class="LineNr"> 4819 </span> <span class="subxComment"># convert</span> +<span id="L4820" class="LineNr"> 4820 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4821" class="LineNr"> 4821 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4822" class="Folded"> 4822 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4828" class="LineNr"> 4828 </span> <span class="subxComment"># check output</span> +<span id="L4829" class="LineNr"> 4829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/0"</span>) +<span id="L4830" class="LineNr"> 4830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</span>) +<span id="L4831" class="LineNr"> 4831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/2"</span>) +<span id="L4832" class="LineNr"> 4832 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/3"</span>) +<span id="L4833" class="LineNr"> 4833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/4"</span>) +<span id="L4834" class="LineNr"> 4834 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/5"</span>) +<span id="L4835" class="LineNr"> 4835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/6"</span>) +<span id="L4836" class="LineNr"> 4836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/7"</span>) +<span id="L4837" class="LineNr"> 4837 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/8"</span>) +<span id="L4838" class="LineNr"> 4838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/9"</span>) +<span id="L4839" class="LineNr"> 4839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4804'>test-convert-index-into-array</a>/18"</span>) +<span id="L4848" class="LineNr"> 4848 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4849" class="LineNr"> 4849 </span> 89/<- %esp 5/r32/ebp +<span id="L4850" class="LineNr"> 4850 </span> 5d/pop-to-ebp +<span id="L4851" class="LineNr"> 4851 </span> c3/return +<span id="L4852" class="LineNr"> 4852 </span> +<span id="L4853" class="LineNr"> 4853 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: +<span id="L4854" class="LineNr"> 4854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4855" class="LineNr"> 4855 </span> 55/push-ebp +<span id="L4856" class="LineNr"> 4856 </span> 89/<- %ebp 4/r32/esp +<span id="L4857" class="LineNr"> 4857 </span> <span class="subxComment"># setup</span> +<span id="L4858" class="LineNr"> 4858 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4859" class="LineNr"> 4859 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4860" class="LineNr"> 4860 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4861" class="LineNr"> 4861 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4862" class="LineNr"> 4862 </span> <span class="subxComment">#</span> +<span id="L4863" class="LineNr"> 4863 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4864" class="LineNr"> 4864 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L4865" class="LineNr"> 4865 </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="L4866" class="LineNr"> 4866 </span> (<a 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="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">"}\n"</span>) +<span id="L4868" class="LineNr"> 4868 </span> <span class="subxComment"># convert</span> +<span id="L4869" class="LineNr"> 4869 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4870" class="LineNr"> 4870 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4871" class="Folded"> 4871 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4877" class="LineNr"> 4877 </span> <span class="subxComment"># check output</span> +<span id="L4878" class="LineNr"> 4878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/0"</span>) +<span id="L4879" class="LineNr"> 4879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) +<span id="L4880" class="LineNr"> 4880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/2"</span>) +<span id="L4881" class="LineNr"> 4881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/3"</span>) +<span id="L4882" class="LineNr"> 4882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/4"</span>) +<span id="L4883" class="LineNr"> 4883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/5"</span>) +<span id="L4884" class="LineNr"> 4884 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/6"</span>) +<span id="L4885" class="LineNr"> 4885 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/7"</span>) +<span id="L4886" class="LineNr"> 4886 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/8"</span>) +<span id="L4887" class="LineNr"> 4887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/9"</span>) +<span id="L4888" class="LineNr"> 4888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/11"</span>) +<span id="L4889" class="LineNr"> 4889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/13"</span>) +<span id="L4890" class="LineNr"> 4890 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/14"</span>) +<span id="L4891" class="LineNr"> 4891 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/15"</span>) +<span id="L4892" class="LineNr"> 4892 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/16"</span>) +<span id="L4893" class="LineNr"> 4893 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/17"</span>) +<span id="L4894" class="LineNr"> 4894 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/18"</span>) +<span id="L4895" class="LineNr"> 4895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/19"</span>) +<span id="L4896" class="LineNr"> 4896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4853'>test-convert-index-into-array-of-bytes</a>/20"</span>) +<span id="L4897" class="LineNr"> 4897 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4898" class="LineNr"> 4898 </span> 89/<- %esp 5/r32/ebp +<span id="L4899" class="LineNr"> 4899 </span> 5d/pop-to-ebp +<span id="L4900" class="LineNr"> 4900 </span> c3/return +<span id="L4901" class="LineNr"> 4901 </span> +<span id="L4902" class="LineNr"> 4902 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: +<span id="L4903" class="LineNr"> 4903 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4904" class="LineNr"> 4904 </span> 55/push-ebp +<span id="L4905" class="LineNr"> 4905 </span> 89/<- %ebp 4/r32/esp +<span id="L4906" class="LineNr"> 4906 </span> <span class="subxComment"># setup</span> +<span id="L4907" class="LineNr"> 4907 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4908" class="LineNr"> 4908 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4909" class="LineNr"> 4909 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4910" class="LineNr"> 4910 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4911" class="LineNr"> 4911 </span> <span class="subxComment">#</span> +<span id="L4912" class="LineNr"> 4912 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4913" class="LineNr"> 4913 </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="L4914" class="LineNr"> 4914 </span> (<a 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="L4915" class="LineNr"> 4915 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4916" class="LineNr"> 4916 </span> <span class="subxComment"># convert</span> +<span id="L4917" class="LineNr"> 4917 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4918" class="LineNr"> 4918 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4919" class="Folded"> 4919 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4925" class="LineNr"> 4925 </span> <span class="subxComment"># check output</span> +<span id="L4926" class="LineNr"> 4926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/0"</span>) +<span id="L4927" class="LineNr"> 4927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) +<span id="L4928" class="LineNr"> 4928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/2"</span>) +<span id="L4929" class="LineNr"> 4929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/3"</span>) +<span id="L4930" class="LineNr"> 4930 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/4"</span>) +<span id="L4931" class="LineNr"> 4931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/5"</span>) +<span id="L4932" class="LineNr"> 4932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/6"</span>) +<span id="L4933" class="LineNr"> 4933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/7"</span>) +<span id="L4934" class="LineNr"> 4934 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> +<span id="L4935" class="LineNr"> 4935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/8"</span>) +<span id="L4936" class="LineNr"> 4936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/9"</span>) +<span id="L4937" class="LineNr"> 4937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/10"</span>) +<span id="L4938" class="LineNr"> 4938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/11"</span>) +<span id="L4939" class="LineNr"> 4939 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/12"</span>) +<span id="L4940" class="LineNr"> 4940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/13"</span>) +<span id="L4941" class="LineNr"> 4941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/14"</span>) +<span id="L4942" class="LineNr"> 4942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4902'>test-convert-index-into-array-with-literal</a>/15"</span>) +<span id="L4943" class="LineNr"> 4943 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4944" class="LineNr"> 4944 </span> 89/<- %esp 5/r32/ebp +<span id="L4945" class="LineNr"> 4945 </span> 5d/pop-to-ebp +<span id="L4946" class="LineNr"> 4946 </span> c3/return +<span id="L4947" class="LineNr"> 4947 </span> +<span id="L4948" class="LineNr"> 4948 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: +<span id="L4949" class="LineNr"> 4949 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4950" class="LineNr"> 4950 </span> 55/push-ebp +<span id="L4951" class="LineNr"> 4951 </span> 89/<- %ebp 4/r32/esp +<span id="L4952" class="LineNr"> 4952 </span> <span class="subxComment"># setup</span> +<span id="L4953" class="LineNr"> 4953 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4954" class="LineNr"> 4954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4955" class="LineNr"> 4955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L4956" class="LineNr"> 4956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4957" class="LineNr"> 4957 </span> <span class="subxComment">#</span> +<span id="L4958" class="LineNr"> 4958 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4959" class="LineNr"> 4959 </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="L4960" class="LineNr"> 4960 </span> (<a 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="L4961" class="LineNr"> 4961 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4962" class="LineNr"> 4962 </span> <span class="subxComment"># convert</span> +<span id="L4963" class="LineNr"> 4963 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4964" class="LineNr"> 4964 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L4965" class="Folded"> 4965 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4971" class="LineNr"> 4971 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) +<span id="L4974" class="LineNr"> 4974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) +<span id="L4980" class="LineNr"> 4980 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) +<span id="L4983" class="LineNr"> 4983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) +<span id="L4984" class="LineNr"> 4984 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) +<span id="L4985" class="LineNr"> 4985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/12"</span>) +<span id="L4986" class="LineNr"> 4986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) +<span id="L4987" class="LineNr"> 4987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) +<span id="L4988" class="LineNr"> 4988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4948'>test-convert-index-into-array-of-bytes-with-literal</a>/15"</span>) +<span id="L4989" class="LineNr"> 4989 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4990" class="LineNr"> 4990 </span> 89/<- %esp 5/r32/ebp +<span id="L4991" class="LineNr"> 4991 </span> 5d/pop-to-ebp +<span id="L4992" class="LineNr"> 4992 </span> c3/return +<span id="L4993" class="LineNr"> 4993 </span> +<span id="L4994" class="LineNr"> 4994 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: +<span id="L4995" class="LineNr"> 4995 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4996" class="LineNr"> 4996 </span> 55/push-ebp +<span id="L4997" class="LineNr"> 4997 </span> 89/<- %ebp 4/r32/esp +<span id="L4998" class="LineNr"> 4998 </span> <span class="subxComment"># setup</span> +<span id="L4999" class="LineNr"> 4999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5000" class="LineNr"> 5000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5001" class="LineNr"> 5001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5002" class="LineNr"> 5002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5003" class="LineNr"> 5003 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr: (array int 3)\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">" var idx/eax: int <- copy 2\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">" var x/eax: (addr int) <- index arr, idx\n"</span>) +<span id="L5008" class="LineNr"> 5008 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5009" class="LineNr"> 5009 </span> <span class="subxComment"># convert</span> +<span id="L5010" class="LineNr"> 5010 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5011" class="LineNr"> 5011 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5012" class="Folded"> 5012 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5018" class="LineNr"> 5018 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) +<span id="L5021" class="LineNr"> 5021 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/5"</span>) +<span id="L5025" class="LineNr"> 5025 </span> <span class="subxComment"># var arr</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#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/7"</span>) +<span id="L5028" class="LineNr"> 5028 </span> <span class="subxComment"># var idx</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/9"</span>) +<span id="L5031" class="LineNr"> 5031 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/10"</span>) +<span id="L5033" class="LineNr"> 5033 </span> <span class="subxComment"># reclaim idx</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/11"</span>) +<span id="L5035" class="LineNr"> 5035 </span> <span class="subxComment"># reclaim arr</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/12"</span>) +<span id="L5037" class="LineNr"> 5037 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/16"</span>) +<span id="L5042" class="LineNr"> 5042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/17"</span>) +<span id="L5043" class="LineNr"> 5043 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4994'>test-convert-index-into-array-on-stack</a>/18"</span>) +<span id="L5044" class="LineNr"> 5044 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5045" class="LineNr"> 5045 </span> 89/<- %esp 5/r32/ebp +<span id="L5046" class="LineNr"> 5046 </span> 5d/pop-to-ebp +<span id="L5047" class="LineNr"> 5047 </span> c3/return +<span id="L5048" class="LineNr"> 5048 </span> +<span id="L5049" class="LineNr"> 5049 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: +<span id="L5050" class="LineNr"> 5050 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5051" class="LineNr"> 5051 </span> 55/push-ebp +<span id="L5052" class="LineNr"> 5052 </span> 89/<- %ebp 4/r32/esp +<span id="L5053" class="LineNr"> 5053 </span> <span class="subxComment"># setup</span> +<span id="L5054" class="LineNr"> 5054 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5055" class="LineNr"> 5055 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5056" class="LineNr"> 5056 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5057" class="LineNr"> 5057 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5058" class="LineNr"> 5058 </span> <span class="subxComment">#</span> +<span id="L5059" class="LineNr"> 5059 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var arr: (array int 3)\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">" var x/eax: (addr int) <- index arr, 2\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">"}\n"</span>) +<span id="L5063" class="LineNr"> 5063 </span> <span class="subxComment"># convert</span> +<span id="L5064" class="LineNr"> 5064 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5065" class="LineNr"> 5065 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5066" class="Folded"> 5066 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5072" class="LineNr"> 5072 </span> <span class="subxComment"># check output</span> +<span id="L5073" class="LineNr"> 5073 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) +<span id="L5074" class="LineNr"> 5074 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) +<span id="L5075" class="LineNr"> 5075 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) +<span id="L5076" class="LineNr"> 5076 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/3"</span>) +<span id="L5077" class="LineNr"> 5077 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) +<span id="L5078" class="LineNr"> 5078 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) +<span id="L5079" class="LineNr"> 5079 </span> <span class="subxComment"># var arr</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#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) +<span id="L5082" class="LineNr"> 5082 </span> <span class="subxComment"># var x</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) +<span id="L5084" class="LineNr"> 5084 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) +<span id="L5086" class="LineNr"> 5086 </span> <span class="subxComment"># reclaim x</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) +<span id="L5088" class="LineNr"> 5088 </span> <span class="subxComment"># reclaim arr</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) +<span id="L5090" class="LineNr"> 5090 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5049'>test-convert-index-into-array-on-stack-with-literal</a>/17"</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-index-into-array-of-bytes-on-stack-with-literal</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#L285'>_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">" var arr: (array byte 3)\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/eax: (addr byte) <- index arr, 2\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">"}\n"</span>) +<span id="L5116" class="LineNr"> 5116 </span> <span class="subxComment"># convert</span> +<span id="L5117" class="LineNr"> 5117 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5118" class="LineNr"> 5118 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5119" class="Folded"> 5119 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5125" class="LineNr"> 5125 </span> <span class="subxComment"># check output</span> +<span id="L5126" class="LineNr"> 5126 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) +<span id="L5127" class="LineNr"> 5127 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) +<span id="L5128" class="LineNr"> 5128 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) +<span id="L5129" class="LineNr"> 5129 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) +<span id="L5130" class="LineNr"> 5130 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) +<span id="L5131" class="LineNr"> 5131 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) +<span id="L5132" class="LineNr"> 5132 </span> <span class="subxComment"># var arr</span> +<span id="L5133" class="LineNr"> 5133 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) +<span id="L5134" class="LineNr"> 5134 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) +<span id="L5135" class="LineNr"> 5135 </span> <span class="subxComment"># var x</span> +<span id="L5136" class="LineNr"> 5136 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) +<span id="L5137" class="LineNr"> 5137 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> +<span id="L5138" class="LineNr"> 5138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) +<span id="L5139" class="LineNr"> 5139 </span> <span class="subxComment"># reclaim x</span> +<span id="L5140" class="LineNr"> 5140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) +<span id="L5141" class="LineNr"> 5141 </span> <span class="subxComment"># reclaim arr</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) +<span id="L5143" class="LineNr"> 5143 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/14"</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#L285'>_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-index-into-array-of-bytes-on-stack-with-literal</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) +<span id="L5150" class="LineNr"> 5150 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5151" class="LineNr"> 5151 </span> 89/<- %esp 5/r32/ebp +<span id="L5152" class="LineNr"> 5152 </span> 5d/pop-to-ebp +<span id="L5153" class="LineNr"> 5153 </span> c3/return +<span id="L5154" class="LineNr"> 5154 </span> +<span id="L5155" class="LineNr"> 5155 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: +<span id="L5156" class="LineNr"> 5156 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5157" class="LineNr"> 5157 </span> 55/push-ebp +<span id="L5158" class="LineNr"> 5158 </span> 89/<- %ebp 4/r32/esp +<span id="L5159" class="LineNr"> 5159 </span> <span class="subxComment"># setup</span> +<span id="L5160" class="LineNr"> 5160 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5161" class="LineNr"> 5161 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5162" class="LineNr"> 5162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5163" class="LineNr"> 5163 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5164" class="LineNr"> 5164 </span> <span class="subxComment">#</span> +<span id="L5165" class="LineNr"> 5165 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5166" class="LineNr"> 5166 </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="L5167" class="LineNr"> 5167 </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="L5168" class="LineNr"> 5168 </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="L5169" class="LineNr"> 5169 </span> (<a 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="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">"}\n"</span>) +<span id="L5171" class="LineNr"> 5171 </span> <span class="subxComment"># convert</span> +<span id="L5172" class="LineNr"> 5172 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5173" class="LineNr"> 5173 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5174" class="Folded"> 5174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5180" class="LineNr"> 5180 </span> <span class="subxComment"># check output</span> +<span id="L5181" class="LineNr"> 5181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/0"</span>) +<span id="L5182" class="LineNr"> 5182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) +<span id="L5183" class="LineNr"> 5183 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/2"</span>) +<span id="L5184" class="LineNr"> 5184 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/3"</span>) +<span id="L5185" class="LineNr"> 5185 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/4"</span>) +<span id="L5186" class="LineNr"> 5186 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/5"</span>) +<span id="L5187" class="LineNr"> 5187 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/6"</span>) +<span id="L5188" class="LineNr"> 5188 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/7"</span>) +<span id="L5189" class="LineNr"> 5189 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/8"</span>) +<span id="L5190" class="LineNr"> 5190 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/9"</span>) +<span id="L5191" class="LineNr"> 5191 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/10"</span>) +<span id="L5192" class="LineNr"> 5192 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/11"</span>) +<span id="L5193" class="LineNr"> 5193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/12"</span>) +<span id="L5194" class="LineNr"> 5194 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/13"</span>) +<span id="L5195" class="LineNr"> 5195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/14"</span>) +<span id="L5196" class="LineNr"> 5196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/15"</span>) +<span id="L5197" class="LineNr"> 5197 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/16"</span>) +<span id="L5198" class="LineNr"> 5198 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5155'>test-convert-index-into-array-using-offset</a>/19"</span>) +<span id="L5201" class="LineNr"> 5201 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5202" class="LineNr"> 5202 </span> 89/<- %esp 5/r32/ebp +<span id="L5203" class="LineNr"> 5203 </span> 5d/pop-to-ebp +<span id="L5204" class="LineNr"> 5204 </span> c3/return +<span id="L5205" class="LineNr"> 5205 </span> +<span id="L5206" class="LineNr"> 5206 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: +<span id="L5207" class="LineNr"> 5207 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5208" class="LineNr"> 5208 </span> 55/push-ebp +<span id="L5209" class="LineNr"> 5209 </span> 89/<- %ebp 4/r32/esp +<span id="L5210" class="LineNr"> 5210 </span> <span class="subxComment"># setup</span> +<span id="L5211" class="LineNr"> 5211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5212" class="LineNr"> 5212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5213" class="LineNr"> 5213 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5214" class="LineNr"> 5214 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5215" class="LineNr"> 5215 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array byte) <- copy 0\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 idx/ecx: int <- copy 3\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">" var off/ecx: (offset byte) <- compute-offset arr, idx\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">" var x/eax: (addr byte) <- index arr, off\n"</span>) +<span id="L5221" class="LineNr"> 5221 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5222" class="LineNr"> 5222 </span> <span class="subxComment"># convert</span> +<span id="L5223" class="LineNr"> 5223 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5224" class="LineNr"> 5224 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5225" class="Folded"> 5225 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5231" class="LineNr"> 5231 </span> <span class="subxComment"># check output</span> +<span id="L5232" class="LineNr"> 5232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) +<span id="L5233" class="LineNr"> 5233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) +<span id="L5234" class="LineNr"> 5234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) +<span id="L5235" class="LineNr"> 5235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) +<span id="L5236" class="LineNr"> 5236 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) +<span id="L5237" class="LineNr"> 5237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) +<span id="L5238" class="LineNr"> 5238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) +<span id="L5239" class="LineNr"> 5239 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) +<span id="L5240" class="LineNr"> 5240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) +<span id="L5241" class="LineNr"> 5241 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) +<span id="L5242" class="LineNr"> 5242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) +<span id="L5243" class="LineNr"> 5243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) +<span id="L5244" class="LineNr"> 5244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) +<span id="L5245" class="LineNr"> 5245 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) +<span id="L5246" class="LineNr"> 5246 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) +<span id="L5247" class="LineNr"> 5247 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) +<span id="L5248" class="LineNr"> 5248 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/16"</span>) +<span id="L5249" class="LineNr"> 5249 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/17"</span>) +<span id="L5250" class="LineNr"> 5250 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) +<span id="L5251" class="LineNr"> 5251 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5206'>test-convert-index-into-array-of-bytes-using-offset</a>/19"</span>) +<span id="L5252" class="LineNr"> 5252 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5253" class="LineNr"> 5253 </span> 89/<- %esp 5/r32/ebp +<span id="L5254" class="LineNr"> 5254 </span> 5d/pop-to-ebp +<span id="L5255" class="LineNr"> 5255 </span> c3/return +<span id="L5256" class="LineNr"> 5256 </span> +<span id="L5257" class="LineNr"> 5257 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: +<span id="L5258" class="LineNr"> 5258 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5259" class="LineNr"> 5259 </span> 55/push-ebp +<span id="L5260" class="LineNr"> 5260 </span> 89/<- %ebp 4/r32/esp +<span id="L5261" class="LineNr"> 5261 </span> <span class="subxComment"># setup</span> +<span id="L5262" class="LineNr"> 5262 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5263" class="LineNr"> 5263 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5264" class="LineNr"> 5264 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5265" class="LineNr"> 5265 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5266" class="LineNr"> 5266 </span> <span class="subxComment">#</span> +<span id="L5267" class="LineNr"> 5267 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5268" class="LineNr"> 5268 </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="L5269" class="LineNr"> 5269 </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="L5270" class="LineNr"> 5270 </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="L5271" class="LineNr"> 5271 </span> (<a 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="L5272" class="LineNr"> 5272 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5273" class="LineNr"> 5273 </span> <span class="subxComment"># convert</span> +<span id="L5274" class="LineNr"> 5274 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5275" class="LineNr"> 5275 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5276" class="Folded"> 5276 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5282" class="LineNr"> 5282 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) +<span id="L5284" class="LineNr"> 5284 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) +<span id="L5285" class="LineNr"> 5285 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) +<span id="L5286" class="LineNr"> 5286 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) +<span id="L5287" class="LineNr"> 5287 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) +<span id="L5288" class="LineNr"> 5288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) +<span id="L5289" class="LineNr"> 5289 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) +<span id="L5290" class="LineNr"> 5290 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) +<span id="L5291" class="LineNr"> 5291 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) +<span id="L5292" class="LineNr"> 5292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) +<span id="L5293" class="LineNr"> 5293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) +<span id="L5294" class="LineNr"> 5294 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) +<span id="L5295" class="LineNr"> 5295 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) +<span id="L5296" class="LineNr"> 5296 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) +<span id="L5297" class="LineNr"> 5297 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) +<span id="L5298" class="LineNr"> 5298 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) +<span id="L5299" class="LineNr"> 5299 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) +<span id="L5300" class="LineNr"> 5300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/17"</span>) +<span id="L5301" class="LineNr"> 5301 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/18"</span>) +<span id="L5302" class="LineNr"> 5302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/19"</span>) +<span id="L5303" class="LineNr"> 5303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5257'>test-convert-index-into-array-using-offset-on-stack</a>/20"</span>) +<span id="L5304" class="LineNr"> 5304 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5305" class="LineNr"> 5305 </span> 89/<- %esp 5/r32/ebp +<span id="L5306" class="LineNr"> 5306 </span> 5d/pop-to-ebp +<span id="L5307" class="LineNr"> 5307 </span> c3/return +<span id="L5308" class="LineNr"> 5308 </span> +<span id="L5309" class="LineNr"> 5309 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: +<span id="L5310" class="LineNr"> 5310 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5311" class="LineNr"> 5311 </span> 55/push-ebp +<span id="L5312" class="LineNr"> 5312 </span> 89/<- %ebp 4/r32/esp +<span id="L5313" class="LineNr"> 5313 </span> <span class="subxComment"># setup</span> +<span id="L5314" class="LineNr"> 5314 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5315" class="LineNr"> 5315 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5316" class="LineNr"> 5316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5317" class="LineNr"> 5317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5318" class="LineNr"> 5318 </span> <span class="subxComment">#</span> +<span id="L5319" class="LineNr"> 5319 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5320" class="LineNr"> 5320 </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="L5321" class="LineNr"> 5321 </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="L5322" class="LineNr"> 5322 </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="L5323" class="LineNr"> 5323 </span> (<a 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="L5324" class="LineNr"> 5324 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5325" class="LineNr"> 5325 </span> <span class="subxComment"># convert</span> +<span id="L5326" class="LineNr"> 5326 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5327" class="LineNr"> 5327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5328" class="Folded"> 5328 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5334" class="LineNr"> 5334 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) +<span id="L5337" class="LineNr"> 5337 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) +<span id="L5342" class="LineNr"> 5342 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) +<span id="L5343" class="LineNr"> 5343 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) +<span id="L5344" class="LineNr"> 5344 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) +<span id="L5345" class="LineNr"> 5345 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) +<span id="L5346" class="LineNr"> 5346 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) +<span id="L5347" class="LineNr"> 5347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) +<span id="L5348" class="LineNr"> 5348 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) +<span id="L5349" class="LineNr"> 5349 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) +<span id="L5350" class="LineNr"> 5350 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) +<span id="L5351" class="LineNr"> 5351 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) +<span id="L5352" class="LineNr"> 5352 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/17"</span>) +<span id="L5353" class="LineNr"> 5353 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/18"</span>) +<span id="L5354" class="LineNr"> 5354 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) +<span id="L5355" class="LineNr"> 5355 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5309'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/20"</span>) <span id="L5356" class="LineNr"> 5356 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5357" class="LineNr"> 5357 </span> 5d/pop-to-ebp -<span id="L5358" class="LineNr"> 5358 </span> c3/return -<span id="L5359" class="LineNr"> 5359 </span> -<span id="L5360" class="LineNr"> 5360 </span><span class="subxTest">test-type-definition-with-addr</span>: -<span id="L5361" class="LineNr"> 5361 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5362" class="LineNr"> 5362 </span> 55/push-ebp -<span id="L5363" class="LineNr"> 5363 </span> 89/<- %ebp 4/r32/esp -<span id="L5364" class="LineNr"> 5364 </span> <span class="subxComment"># setup</span> -<span id="L5365" class="LineNr"> 5365 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5366" class="LineNr"> 5366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5367" class="LineNr"> 5367 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5368" class="LineNr"> 5368 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5369" class="LineNr"> 5369 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5370" class="LineNr"> 5370 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5371" class="LineNr"> 5371 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5372" class="LineNr"> 5372 </span> 68/push 0/imm32 -<span id="L5373" class="LineNr"> 5373 </span> 68/push 0/imm32 -<span id="L5374" class="LineNr"> 5374 </span> 89/<- %edx 4/r32/esp -<span id="L5375" class="LineNr"> 5375 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5376" class="LineNr"> 5376 </span> <span class="subxComment">#</span> -<span id="L5377" class="LineNr"> 5377 </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="L5378" class="LineNr"> 5378 </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="L5357" class="LineNr"> 5357 </span> 89/<- %esp 5/r32/ebp +<span id="L5358" class="LineNr"> 5358 </span> 5d/pop-to-ebp +<span id="L5359" class="LineNr"> 5359 </span> c3/return +<span id="L5360" class="LineNr"> 5360 </span> +<span id="L5361" class="LineNr"> 5361 </span><span class="subxTest">test-convert-function-and-type-definition</span>: +<span id="L5362" class="LineNr"> 5362 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5363" class="LineNr"> 5363 </span> 55/push-ebp +<span id="L5364" class="LineNr"> 5364 </span> 89/<- %ebp 4/r32/esp +<span id="L5365" class="LineNr"> 5365 </span> <span class="subxComment"># setup</span> +<span id="L5366" class="LineNr"> 5366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5367" class="LineNr"> 5367 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5368" class="LineNr"> 5368 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5369" class="LineNr"> 5369 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5370" class="LineNr"> 5370 </span> <span class="subxComment">#</span> +<span id="L5371" class="LineNr"> 5371 </span> (<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="L5372" class="LineNr"> 5372 </span> (<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="L5373" class="LineNr"> 5373 </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="L5374" class="LineNr"> 5374 </span> (<a 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="L5375" class="LineNr"> 5375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5376" class="LineNr"> 5376 </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="L5377" class="LineNr"> 5377 </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="L5378" class="LineNr"> 5378 </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="L5379" class="LineNr"> 5379 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L5380" class="LineNr"> 5380 </span> <span class="subxComment"># convert</span> -<span id="L5381" class="LineNr"> 5381 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L5382" class="LineNr"> 5382 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5383" class="LineNr"> 5383 </span> <span class="subxComment"># restore ed</span> -<span id="L5384" class="LineNr"> 5384 </span> 89/<- %edx 4/r32/esp -<span id="L5385" class="LineNr"> 5385 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5386" class="LineNr"> 5386 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L5387" class="Folded"> 5387 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5393" class="LineNr"> 5393 </span> <span class="subxComment"># check output</span> -<span id="L5394" class="LineNr"> 5394 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5360'>test-type-definition-with-addr</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L5360'>test-type-definition-with-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5396" class="LineNr"> 5396 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5397" class="LineNr"> 5397 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5360'>test-type-definition-with-addr</a>: exit status"</span>) -<span id="L5398" class="LineNr"> 5398 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5399" class="LineNr"> 5399 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5400" class="LineNr"> 5400 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5401" class="LineNr"> 5401 </span> 5d/pop-to-ebp -<span id="L5402" class="LineNr"> 5402 </span> c3/return -<span id="L5403" class="LineNr"> 5403 </span> -<span id="L5404" class="LineNr"> 5404 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: -<span id="L5405" class="LineNr"> 5405 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5406" class="LineNr"> 5406 </span> 55/push-ebp -<span id="L5407" class="LineNr"> 5407 </span> 89/<- %ebp 4/r32/esp -<span id="L5408" class="LineNr"> 5408 </span> <span class="subxComment"># setup</span> -<span id="L5409" class="LineNr"> 5409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5410" class="LineNr"> 5410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5411" class="LineNr"> 5411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5412" class="LineNr"> 5412 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5413" class="LineNr"> 5413 </span> <span class="subxComment">#</span> -<span id="L5414" class="LineNr"> 5414 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var a: t\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">"}\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">"type t {\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">" x: int\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">" 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">"}\n"</span>) -<span id="L5421" class="LineNr"> 5421 </span> <span class="subxComment"># convert</span> -<span id="L5422" class="LineNr"> 5422 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5423" class="LineNr"> 5423 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5424" class="Folded"> 5424 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5430" class="LineNr"> 5430 </span> <span class="subxComment"># check output</span> -<span id="L5431" class="LineNr"> 5431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) -<span id="L5432" class="LineNr"> 5432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) -<span id="L5433" class="LineNr"> 5433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) -<span id="L5434" class="LineNr"> 5434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) -<span id="L5435" class="LineNr"> 5435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) -<span id="L5436" class="LineNr"> 5436 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) -<span id="L5437" class="LineNr"> 5437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) -<span id="L5439" class="LineNr"> 5439 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) -<span id="L5440" class="LineNr"> 5440 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) -<span id="L5443" class="LineNr"> 5443 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5404'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) -<span id="L5446" class="LineNr"> 5446 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5447" class="LineNr"> 5447 </span> 89/<- %esp 5/r32/ebp -<span id="L5448" class="LineNr"> 5448 </span> 5d/pop-to-ebp -<span id="L5449" class="LineNr"> 5449 </span> c3/return -<span id="L5450" class="LineNr"> 5450 </span> -<span id="L5451" class="LineNr"> 5451 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: -<span id="L5452" class="LineNr"> 5452 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5453" class="LineNr"> 5453 </span> 55/push-ebp -<span id="L5454" class="LineNr"> 5454 </span> 89/<- %ebp 4/r32/esp -<span id="L5455" class="LineNr"> 5455 </span> <span class="subxComment"># setup</span> -<span id="L5456" class="LineNr"> 5456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5457" class="LineNr"> 5457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5458" class="LineNr"> 5458 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5459" class="LineNr"> 5459 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5460" class="LineNr"> 5460 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: t\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">"}\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">"type t {\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">" x: s\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">"type s {\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">" z: int\n"</span>) -<span id="L5469" class="LineNr"> 5469 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5470" class="LineNr"> 5470 </span> <span class="subxComment"># convert</span> -<span id="L5471" class="LineNr"> 5471 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5472" class="LineNr"> 5472 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5473" class="Folded"> 5473 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5479" class="LineNr"> 5479 </span> <span class="subxComment"># check output</span> -<span id="L5480" class="LineNr"> 5480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) -<span id="L5481" class="LineNr"> 5481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) -<span id="L5482" class="LineNr"> 5482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) -<span id="L5483" class="LineNr"> 5483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) -<span id="L5486" class="LineNr"> 5486 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) -<span id="L5491" class="LineNr"> 5491 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5451'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) -<span id="L5494" class="LineNr"> 5494 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5495" class="LineNr"> 5495 </span> 89/<- %esp 5/r32/ebp -<span id="L5496" class="LineNr"> 5496 </span> 5d/pop-to-ebp -<span id="L5497" class="LineNr"> 5497 </span> c3/return -<span id="L5498" class="LineNr"> 5498 </span> -<span id="L5499" class="LineNr"> 5499 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: -<span id="L5500" class="LineNr"> 5500 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5501" class="LineNr"> 5501 </span> 55/push-ebp -<span id="L5502" class="LineNr"> 5502 </span> 89/<- %ebp 4/r32/esp -<span id="L5503" class="LineNr"> 5503 </span> <span class="subxComment"># setup</span> -<span id="L5504" class="LineNr"> 5504 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5505" class="LineNr"> 5505 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5506" class="LineNr"> 5506 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5507" class="LineNr"> 5507 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5508" class="LineNr"> 5508 </span> <span class="subxComment">#</span> -<span id="L5509" class="LineNr"> 5509 </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="L5510" class="LineNr"> 5510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L5511" class="LineNr"> 5511 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo a\n"</span>) -<span id="L5512" class="LineNr"> 5512 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5513" class="LineNr"> 5513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L5381" class="LineNr"> 5381 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5382" class="LineNr"> 5382 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5383" class="Folded"> 5383 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5389" class="LineNr"> 5389 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/3"</span>) +<span id="L5394" class="LineNr"> 5394 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/4"</span>) +<span id="L5395" class="LineNr"> 5395 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/9"</span>) +<span id="L5400" class="LineNr"> 5400 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/11"</span>) +<span id="L5401" class="LineNr"> 5401 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/13"</span>) +<span id="L5402" class="LineNr"> 5402 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/14"</span>) +<span id="L5403" class="LineNr"> 5403 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/15"</span>) +<span id="L5404" class="LineNr"> 5404 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/16"</span>) +<span id="L5405" class="LineNr"> 5405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/17"</span>) +<span id="L5406" class="LineNr"> 5406 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/18"</span>) +<span id="L5407" class="LineNr"> 5407 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/19"</span>) +<span id="L5408" class="LineNr"> 5408 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5361'>test-convert-function-and-type-definition</a>/20"</span>) +<span id="L5409" class="LineNr"> 5409 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5410" class="LineNr"> 5410 </span> 89/<- %esp 5/r32/ebp +<span id="L5411" class="LineNr"> 5411 </span> 5d/pop-to-ebp +<span id="L5412" class="LineNr"> 5412 </span> c3/return +<span id="L5413" class="LineNr"> 5413 </span> +<span id="L5414" class="LineNr"> 5414 </span><span class="subxTest">test-type-definition-with-array</span>: +<span id="L5415" class="LineNr"> 5415 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5416" class="LineNr"> 5416 </span> 55/push-ebp +<span id="L5417" class="LineNr"> 5417 </span> 89/<- %ebp 4/r32/esp +<span id="L5418" class="LineNr"> 5418 </span> <span class="subxComment"># setup</span> +<span id="L5419" class="LineNr"> 5419 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5420" class="LineNr"> 5420 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5421" class="LineNr"> 5421 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5422" class="LineNr"> 5422 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5423" class="LineNr"> 5423 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L5424" class="LineNr"> 5424 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L5425" class="LineNr"> 5425 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L5426" class="LineNr"> 5426 </span> 68/push 0/imm32 +<span id="L5427" class="LineNr"> 5427 </span> 68/push 0/imm32 +<span id="L5428" class="LineNr"> 5428 </span> 89/<- %edx 4/r32/esp +<span id="L5429" class="LineNr"> 5429 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L5430" class="LineNr"> 5430 </span> <span class="subxComment">#</span> +<span id="L5431" class="LineNr"> 5431 </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="L5432" class="LineNr"> 5432 </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="L5433" class="LineNr"> 5433 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5434" class="LineNr"> 5434 </span> <span class="subxComment"># convert</span> +<span id="L5435" class="LineNr"> 5435 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L5436" class="LineNr"> 5436 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L5437" class="LineNr"> 5437 </span> <span class="subxComment"># restore ed</span> +<span id="L5438" class="LineNr"> 5438 </span> 89/<- %edx 4/r32/esp +<span id="L5439" class="LineNr"> 5439 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5440" class="LineNr"> 5440 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L5441" class="Folded"> 5441 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5447" class="LineNr"> 5447 </span> <span class="subxComment"># check output</span> +<span id="L5448" class="LineNr"> 5448 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5414'>test-type-definition-with-array</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L5414'>test-type-definition-with-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L5450" class="LineNr"> 5450 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L5451" class="LineNr"> 5451 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5414'>test-type-definition-with-array</a>: exit status"</span>) +<span id="L5452" class="LineNr"> 5452 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L5453" class="LineNr"> 5453 </span> 81 0/subop/add %esp 8/imm32 +<span id="L5454" class="LineNr"> 5454 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5455" class="LineNr"> 5455 </span> 5d/pop-to-ebp +<span id="L5456" class="LineNr"> 5456 </span> c3/return +<span id="L5457" class="LineNr"> 5457 </span> +<span id="L5458" class="LineNr"> 5458 </span><span class="subxTest">test-type-definition-with-addr</span>: +<span id="L5459" class="LineNr"> 5459 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5460" class="LineNr"> 5460 </span> 55/push-ebp +<span id="L5461" class="LineNr"> 5461 </span> 89/<- %ebp 4/r32/esp +<span id="L5462" class="LineNr"> 5462 </span> <span class="subxComment"># setup</span> +<span id="L5463" class="LineNr"> 5463 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5464" class="LineNr"> 5464 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5465" class="LineNr"> 5465 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5466" class="LineNr"> 5466 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5467" class="LineNr"> 5467 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L5468" class="LineNr"> 5468 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L5469" class="LineNr"> 5469 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L5470" class="LineNr"> 5470 </span> 68/push 0/imm32 +<span id="L5471" class="LineNr"> 5471 </span> 68/push 0/imm32 +<span id="L5472" class="LineNr"> 5472 </span> 89/<- %edx 4/r32/esp +<span id="L5473" class="LineNr"> 5473 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L5474" class="LineNr"> 5474 </span> <span class="subxComment">#</span> +<span id="L5475" class="LineNr"> 5475 </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="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">" a: (addr int)\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> <span class="subxComment"># convert</span> +<span id="L5479" class="LineNr"> 5479 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L5480" class="LineNr"> 5480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L5481" class="LineNr"> 5481 </span> <span class="subxComment"># restore ed</span> +<span id="L5482" class="LineNr"> 5482 </span> 89/<- %edx 4/r32/esp +<span id="L5483" class="LineNr"> 5483 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5484" class="LineNr"> 5484 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L5485" class="Folded"> 5485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5491" class="LineNr"> 5491 </span> <span class="subxComment"># check output</span> +<span id="L5492" class="LineNr"> 5492 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5458'>test-type-definition-with-addr</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L5458'>test-type-definition-with-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L5494" class="LineNr"> 5494 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L5495" class="LineNr"> 5495 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5458'>test-type-definition-with-addr</a>: exit status"</span>) +<span id="L5496" class="LineNr"> 5496 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L5497" class="LineNr"> 5497 </span> 81 0/subop/add %esp 8/imm32 +<span id="L5498" class="LineNr"> 5498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5499" class="LineNr"> 5499 </span> 5d/pop-to-ebp +<span id="L5500" class="LineNr"> 5500 </span> c3/return +<span id="L5501" class="LineNr"> 5501 </span> +<span id="L5502" class="LineNr"> 5502 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: +<span id="L5503" class="LineNr"> 5503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5504" class="LineNr"> 5504 </span> 55/push-ebp +<span id="L5505" class="LineNr"> 5505 </span> 89/<- %ebp 4/r32/esp +<span id="L5506" class="LineNr"> 5506 </span> <span class="subxComment"># setup</span> +<span id="L5507" class="LineNr"> 5507 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5508" class="LineNr"> 5508 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5509" class="LineNr"> 5509 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5510" class="LineNr"> 5510 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5511" class="LineNr"> 5511 </span> <span class="subxComment">#</span> +<span id="L5512" class="LineNr"> 5512 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5513" class="LineNr"> 5513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) <span id="L5514" class="LineNr"> 5514 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L5515" class="LineNr"> 5515 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span id="L5516" class="LineNr"> 5516 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) @@ -5081,688 +5081,688 @@ if ('onhashchange' in window) { <span id="L5519" class="LineNr"> 5519 </span> <span class="subxComment"># convert</span> <span id="L5520" class="LineNr"> 5520 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L5521" class="LineNr"> 5521 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5522" class="Folded"> 5522 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5522" class="Folded"> 5522 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5528" class="LineNr"> 5528 </span> <span class="subxComment"># check output</span> -<span id="L5529" class="LineNr"> 5529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L5530" class="LineNr"> 5530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L5531" class="LineNr"> 5531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L5532" class="LineNr"> 5532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L5533" class="LineNr"> 5533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L5534" class="LineNr"> 5534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L5535" class="LineNr"> 5535 </span> <span class="subxComment"># var a: t</span> -<span id="L5536" class="LineNr"> 5536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L5537" class="LineNr"> 5537 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L5538" class="LineNr"> 5538 </span> <span class="subxComment"># foo a</span> -<span id="L5539" class="LineNr"> 5539 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L5540" class="LineNr"> 5540 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L5545" class="LineNr"> 5545 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L5550" class="LineNr"> 5550 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L5553" class="LineNr"> 5553 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L5556" class="LineNr"> 5556 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5557" class="LineNr"> 5557 </span> 89/<- %esp 5/r32/ebp -<span id="L5558" class="LineNr"> 5558 </span> 5d/pop-to-ebp -<span id="L5559" class="LineNr"> 5559 </span> c3/return -<span id="L5560" class="LineNr"> 5560 </span> -<span id="L5561" class="LineNr"> 5561 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: -<span id="L5562" class="LineNr"> 5562 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5563" class="LineNr"> 5563 </span> 55/push-ebp -<span id="L5564" class="LineNr"> 5564 </span> 89/<- %ebp 4/r32/esp -<span id="L5565" class="LineNr"> 5565 </span> <span class="subxComment"># setup</span> -<span id="L5566" class="LineNr"> 5566 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5567" class="LineNr"> 5567 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5568" class="LineNr"> 5568 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5569" class="LineNr"> 5569 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5570" class="LineNr"> 5570 </span> <span class="subxComment">#</span> -<span id="L5571" class="LineNr"> 5571 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L5572" class="LineNr"> 5572 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr t) <- copy 0\n"</span>) -<span id="L5573" class="LineNr"> 5573 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo *a\n"</span>) -<span id="L5574" class="LineNr"> 5574 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5575" class="LineNr"> 5575 </span> (<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="L5576" class="LineNr"> 5576 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5577" class="LineNr"> 5577 </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="L5578" class="LineNr"> 5578 </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="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">" y: int\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">"}\n"</span>) -<span id="L5581" class="LineNr"> 5581 </span> <span class="subxComment"># convert</span> -<span id="L5582" class="LineNr"> 5582 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5583" class="LineNr"> 5583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5584" class="Folded"> 5584 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5590" class="LineNr"> 5590 </span> <span class="subxComment"># check output</span> -<span id="L5591" class="LineNr"> 5591 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L5592" class="LineNr"> 5592 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L5593" class="LineNr"> 5593 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L5594" class="LineNr"> 5594 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L5595" class="LineNr"> 5595 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L5596" class="LineNr"> 5596 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L5597" class="LineNr"> 5597 </span> <span class="subxComment"># var a</span> -<span id="L5598" class="LineNr"> 5598 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L5600" class="LineNr"> 5600 </span> <span class="subxComment"># foo a</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#L285'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L5602" class="LineNr"> 5602 </span> <span class="subxComment">#</span> -<span id="L5603" class="LineNr"> 5603 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L5604" class="LineNr"> 5604 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L5605" class="LineNr"> 5605 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L5606" class="LineNr"> 5606 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L5607" class="LineNr"> 5607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L5609" class="LineNr"> 5609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L5610" class="LineNr"> 5610 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L5612" class="LineNr"> 5612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) -<span id="L5614" class="LineNr"> 5614 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L5615" class="LineNr"> 5615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L5616" class="LineNr"> 5616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) -<span id="L5617" class="LineNr"> 5617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5499'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L5618" class="LineNr"> 5618 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5619" class="LineNr"> 5619 </span> 89/<- %esp 5/r32/ebp -<span id="L5620" class="LineNr"> 5620 </span> 5d/pop-to-ebp -<span id="L5621" class="LineNr"> 5621 </span> c3/return -<span id="L5622" class="LineNr"> 5622 </span> -<span id="L5623" class="LineNr"> 5623 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> -<span id="L5624" class="LineNr"> 5624 </span><span class="subxComment"># a new variable with the address of the arg</span> -<span id="L5625" class="LineNr"> 5625 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: -<span id="L5626" class="LineNr"> 5626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5627" class="LineNr"> 5627 </span> 55/push-ebp -<span id="L5628" class="LineNr"> 5628 </span> 89/<- %ebp 4/r32/esp -<span id="L5629" class="LineNr"> 5629 </span> <span class="subxComment"># setup</span> -<span id="L5630" class="LineNr"> 5630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5631" class="LineNr"> 5631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5632" class="LineNr"> 5632 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5633" class="LineNr"> 5633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5634" class="LineNr"> 5634 </span> <span class="subxComment">#</span> -<span id="L5635" class="LineNr"> 5635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L5636" class="LineNr"> 5636 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L5637" class="LineNr"> 5637 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) -<span id="L5638" class="LineNr"> 5638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) -<span id="L5639" class="LineNr"> 5639 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</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 x: (addr t) {\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/ecx: (addr int) <- copy x\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">" increment *x\n"</span>) -<span id="L5643" class="LineNr"> 5643 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5644" class="LineNr"> 5644 </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="L5645" class="LineNr"> 5645 </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="L5646" class="LineNr"> 5646 </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="L5647" class="LineNr"> 5647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5648" class="LineNr"> 5648 </span> <span class="subxComment"># convert</span> -<span id="L5649" class="LineNr"> 5649 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5650" class="LineNr"> 5650 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5651" class="Folded"> 5651 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5657" class="LineNr"> 5657 </span> <span class="subxComment"># check output</span> -<span id="L5658" class="LineNr"> 5658 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) -<span id="L5659" class="LineNr"> 5659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) -<span id="L5660" class="LineNr"> 5660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) -<span id="L5661" class="LineNr"> 5661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) -<span id="L5662" class="LineNr"> 5662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) -<span id="L5663" class="LineNr"> 5663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) -<span id="L5664" class="LineNr"> 5664 </span> <span class="subxComment"># var a: t</span> -<span id="L5665" class="LineNr"> 5665 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) -<span id="L5667" class="LineNr"> 5667 </span> <span class="subxComment"># var b/eax: (addr t)</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) -<span id="L5670" class="LineNr"> 5670 </span> <span class="subxComment"># foo a</span> -<span id="L5671" class="LineNr"> 5671 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) -<span id="L5672" class="LineNr"> 5672 </span> <span class="subxComment">#</span> -<span id="L5673" class="LineNr"> 5673 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) -<span id="L5674" class="LineNr"> 5674 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) -<span id="L5675" class="LineNr"> 5675 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) -<span id="L5676" class="LineNr"> 5676 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) -<span id="L5677" class="LineNr"> 5677 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) -<span id="L5678" class="LineNr"> 5678 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) -<span id="L5679" class="LineNr"> 5679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) -<span id="L5680" class="LineNr"> 5680 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) -<span id="L5681" class="LineNr"> 5681 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) -<span id="L5682" class="LineNr"> 5682 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) -<span id="L5683" class="LineNr"> 5683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) -<span id="L5684" class="LineNr"> 5684 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) -<span id="L5685" class="LineNr"> 5685 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) -<span id="L5686" class="LineNr"> 5686 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) -<span id="L5687" class="LineNr"> 5687 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) -<span id="L5688" class="LineNr"> 5688 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) -<span id="L5689" class="LineNr"> 5689 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) -<span id="L5690" class="LineNr"> 5690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) -<span id="L5691" class="LineNr"> 5691 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) -<span id="L5692" class="LineNr"> 5692 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/30"</span>) -<span id="L5693" class="LineNr"> 5693 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/31"</span>) -<span id="L5694" class="LineNr"> 5694 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) -<span id="L5695" class="LineNr"> 5695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) -<span id="L5696" class="LineNr"> 5696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/34"</span>) -<span id="L5697" class="LineNr"> 5697 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5698" class="LineNr"> 5698 </span> 89/<- %esp 5/r32/ebp -<span id="L5699" class="LineNr"> 5699 </span> 5d/pop-to-ebp -<span id="L5700" class="LineNr"> 5700 </span> c3/return -<span id="L5701" class="LineNr"> 5701 </span> -<span id="L5702" class="LineNr"> 5702 </span><span class="subxTest">test-convert-get-on-local-variable</span>: -<span id="L5703" class="LineNr"> 5703 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5704" class="LineNr"> 5704 </span> 55/push-ebp -<span id="L5705" class="LineNr"> 5705 </span> 89/<- %ebp 4/r32/esp -<span id="L5706" class="LineNr"> 5706 </span> <span class="subxComment"># setup</span> -<span id="L5707" class="LineNr"> 5707 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5708" class="LineNr"> 5708 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5709" class="LineNr"> 5709 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5710" class="LineNr"> 5710 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5711" class="LineNr"> 5711 </span> <span class="subxComment">#</span> -<span id="L5712" class="LineNr"> 5712 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5713" class="LineNr"> 5713 </span> (<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="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">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\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">"}\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">"type t {\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">" x: int\n"</span>) -<span id="L5718" class="LineNr"> 5718 </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="L5719" class="LineNr"> 5719 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5720" class="LineNr"> 5720 </span> <span class="subxComment"># convert</span> -<span id="L5721" class="LineNr"> 5721 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5722" class="LineNr"> 5722 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5723" class="Folded"> 5723 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5729" class="LineNr"> 5729 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) -<span id="L5732" class="LineNr"> 5732 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/2"</span>) -<span id="L5733" class="LineNr"> 5733 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/5"</span>) -<span id="L5736" class="LineNr"> 5736 </span> <span class="subxComment"># var a</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/7"</span>) -<span id="L5739" class="LineNr"> 5739 </span> <span class="subxComment"># var c</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/8"</span>) -<span id="L5741" class="LineNr"> 5741 </span> <span class="subxComment"># get</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/9"</span>) -<span id="L5743" class="LineNr"> 5743 </span> <span class="subxComment"># reclaim c</span> -<span id="L5744" class="LineNr"> 5744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/10"</span>) -<span id="L5745" class="LineNr"> 5745 </span> <span class="subxComment"># reclaim a</span> -<span id="L5746" class="LineNr"> 5746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/11"</span>) -<span id="L5747" class="LineNr"> 5747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/12"</span>) -<span id="L5748" class="LineNr"> 5748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/13"</span>) -<span id="L5749" class="LineNr"> 5749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) -<span id="L5750" class="LineNr"> 5750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/15"</span>) -<span id="L5751" class="LineNr"> 5751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/16"</span>) -<span id="L5752" class="LineNr"> 5752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5702'>test-convert-get-on-local-variable</a>/17"</span>) -<span id="L5753" class="LineNr"> 5753 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5754" class="LineNr"> 5754 </span> 89/<- %esp 5/r32/ebp -<span id="L5755" class="LineNr"> 5755 </span> 5d/pop-to-ebp -<span id="L5756" class="LineNr"> 5756 </span> c3/return -<span id="L5757" class="LineNr"> 5757 </span> -<span id="L5758" class="LineNr"> 5758 </span><span class="subxTest">test-convert-get-on-function-argument</span>: -<span id="L5759" class="LineNr"> 5759 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5760" class="LineNr"> 5760 </span> 55/push-ebp -<span id="L5761" class="LineNr"> 5761 </span> 89/<- %ebp 4/r32/esp -<span id="L5762" class="LineNr"> 5762 </span> <span class="subxComment"># setup</span> -<span id="L5763" class="LineNr"> 5763 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5764" class="LineNr"> 5764 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5765" class="LineNr"> 5765 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5766" class="LineNr"> 5766 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5767" class="LineNr"> 5767 </span> <span class="subxComment">#</span> -<span id="L5768" class="LineNr"> 5768 </span> (<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="L5769" class="LineNr"> 5769 </span> (<a 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="L5770" class="LineNr"> 5770 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5771" class="LineNr"> 5771 </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="L5772" class="LineNr"> 5772 </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="L5773" class="LineNr"> 5773 </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="L5774" class="LineNr"> 5774 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5775" class="LineNr"> 5775 </span> <span class="subxComment"># convert</span> -<span id="L5776" class="LineNr"> 5776 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5777" class="LineNr"> 5777 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5778" class="Folded"> 5778 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5784" class="LineNr"> 5784 </span> <span class="subxComment"># check output</span> -<span id="L5785" class="LineNr"> 5785 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/5"</span>) -<span id="L5791" class="LineNr"> 5791 </span> <span class="subxComment"># var c</span> -<span id="L5792" class="LineNr"> 5792 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/6"</span>) -<span id="L5793" class="LineNr"> 5793 </span> <span class="subxComment"># get</span> -<span id="L5794" class="LineNr"> 5794 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/7"</span>) -<span id="L5795" class="LineNr"> 5795 </span> <span class="subxComment"># reclaim c</span> -<span id="L5796" class="LineNr"> 5796 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/8"</span>) -<span id="L5797" class="LineNr"> 5797 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/9"</span>) -<span id="L5798" class="LineNr"> 5798 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/10"</span>) -<span id="L5799" class="LineNr"> 5799 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) -<span id="L5800" class="LineNr"> 5800 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/12"</span>) -<span id="L5801" class="LineNr"> 5801 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/13"</span>) -<span id="L5802" class="LineNr"> 5802 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5758'>test-convert-get-on-function-argument</a>/14"</span>) -<span id="L5803" class="LineNr"> 5803 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5804" class="LineNr"> 5804 </span> 89/<- %esp 5/r32/ebp -<span id="L5805" class="LineNr"> 5805 </span> 5d/pop-to-ebp -<span id="L5806" class="LineNr"> 5806 </span> c3/return -<span id="L5807" class="LineNr"> 5807 </span> -<span id="L5808" class="LineNr"> 5808 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: -<span id="L5809" class="LineNr"> 5809 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5810" class="LineNr"> 5810 </span> 55/push-ebp -<span id="L5811" class="LineNr"> 5811 </span> 89/<- %ebp 4/r32/esp -<span id="L5812" class="LineNr"> 5812 </span> <span class="subxComment"># setup</span> -<span id="L5813" class="LineNr"> 5813 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5814" class="LineNr"> 5814 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5815" class="LineNr"> 5815 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5816" class="LineNr"> 5816 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5817" class="LineNr"> 5817 </span> <span class="subxComment">#</span> -<span id="L5818" class="LineNr"> 5818 </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="L5819" class="LineNr"> 5819 </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="L5820" class="LineNr"> 5820 </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="L5821" class="LineNr"> 5821 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5822" class="LineNr"> 5822 </span> (<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="L5823" class="LineNr"> 5823 </span> (<a 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="L5824" class="LineNr"> 5824 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5825" class="LineNr"> 5825 </span> <span class="subxComment"># convert</span> -<span id="L5826" class="LineNr"> 5826 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5827" class="LineNr"> 5827 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5828" class="Folded"> 5828 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5834" class="LineNr"> 5834 </span> <span class="subxComment"># check output</span> -<span id="L5835" class="LineNr"> 5835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) -<span id="L5836" class="LineNr"> 5836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) -<span id="L5837" class="LineNr"> 5837 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) -<span id="L5838" class="LineNr"> 5838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) -<span id="L5839" class="LineNr"> 5839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) -<span id="L5840" class="LineNr"> 5840 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) -<span id="L5841" class="LineNr"> 5841 </span> <span class="subxComment"># var c</span> -<span id="L5842" class="LineNr"> 5842 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) -<span id="L5843" class="LineNr"> 5843 </span> <span class="subxComment"># get</span> -<span id="L5844" class="LineNr"> 5844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) -<span id="L5845" class="LineNr"> 5845 </span> <span class="subxComment"># reclaim c</span> -<span id="L5846" class="LineNr"> 5846 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) -<span id="L5847" class="LineNr"> 5847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) -<span id="L5848" class="LineNr"> 5848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) -<span id="L5849" class="LineNr"> 5849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) -<span id="L5850" class="LineNr"> 5850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) -<span id="L5851" class="LineNr"> 5851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) -<span id="L5852" class="LineNr"> 5852 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5808'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) -<span id="L5853" class="LineNr"> 5853 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5854" class="LineNr"> 5854 </span> 89/<- %esp 5/r32/ebp -<span id="L5855" class="LineNr"> 5855 </span> 5d/pop-to-ebp -<span id="L5856" class="LineNr"> 5856 </span> c3/return -<span id="L5857" class="LineNr"> 5857 </span> -<span id="L5858" class="LineNr"> 5858 </span><span class="subxTest">test-add-with-too-many-inouts</span>: -<span id="L5859" class="LineNr"> 5859 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5860" class="LineNr"> 5860 </span> 55/push-ebp -<span id="L5861" class="LineNr"> 5861 </span> 89/<- %ebp 4/r32/esp -<span id="L5862" class="LineNr"> 5862 </span> <span class="subxComment"># setup</span> -<span id="L5863" class="LineNr"> 5863 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5864" class="LineNr"> 5864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5865" class="LineNr"> 5865 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5866" class="LineNr"> 5866 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5867" class="LineNr"> 5867 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5868" class="LineNr"> 5868 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5869" class="LineNr"> 5869 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5870" class="LineNr"> 5870 </span> 68/push 0/imm32 -<span id="L5871" class="LineNr"> 5871 </span> 68/push 0/imm32 -<span id="L5872" class="LineNr"> 5872 </span> 89/<- %edx 4/r32/esp -<span id="L5873" class="LineNr"> 5873 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5874" class="LineNr"> 5874 </span> <span class="subxComment">#</span> -<span id="L5875" class="LineNr"> 5875 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5876" class="LineNr"> 5876 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L5877" class="LineNr"> 5877 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) -<span id="L5878" class="LineNr"> 5878 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5879" class="LineNr"> 5879 </span> <span class="subxComment"># convert</span> -<span id="L5880" class="LineNr"> 5880 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L5881" class="LineNr"> 5881 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5882" class="LineNr"> 5882 </span> <span class="subxComment"># restore ed</span> -<span id="L5883" class="LineNr"> 5883 </span> 89/<- %edx 4/r32/esp -<span id="L5884" class="LineNr"> 5884 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5885" class="LineNr"> 5885 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L5886" class="Folded"> 5886 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5892" class="LineNr"> 5892 </span> <span class="subxComment"># check output</span> -<span id="L5893" class="LineNr"> 5893 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5858'>test-add-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L5894" class="LineNr"> 5894 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L5858'>test-add-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5895" class="LineNr"> 5895 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5896" class="LineNr"> 5896 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5858'>test-add-with-too-many-inouts</a>: exit status"</span>) -<span id="L5897" class="LineNr"> 5897 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5898" class="LineNr"> 5898 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5899" class="LineNr"> 5899 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5900" class="LineNr"> 5900 </span> 5d/pop-to-ebp -<span id="L5901" class="LineNr"> 5901 </span> c3/return -<span id="L5902" class="LineNr"> 5902 </span> -<span id="L5903" class="LineNr"> 5903 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: -<span id="L5904" class="LineNr"> 5904 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5905" class="LineNr"> 5905 </span> 55/push-ebp -<span id="L5906" class="LineNr"> 5906 </span> 89/<- %ebp 4/r32/esp -<span id="L5907" class="LineNr"> 5907 </span> <span class="subxComment"># setup</span> -<span id="L5908" class="LineNr"> 5908 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5909" class="LineNr"> 5909 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5910" class="LineNr"> 5910 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5911" class="LineNr"> 5911 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5912" class="LineNr"> 5912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5913" class="LineNr"> 5913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5914" class="LineNr"> 5914 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5915" class="LineNr"> 5915 </span> 68/push 0/imm32 -<span id="L5916" class="LineNr"> 5916 </span> 68/push 0/imm32 -<span id="L5917" class="LineNr"> 5917 </span> 89/<- %edx 4/r32/esp -<span id="L5918" class="LineNr"> 5918 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5919" class="LineNr"> 5919 </span> <span class="subxComment">#</span> -<span id="L5920" class="LineNr"> 5920 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5921" class="LineNr"> 5921 </span> (<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="L5922" class="LineNr"> 5922 </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="L5923" class="LineNr"> 5923 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5924" class="LineNr"> 5924 </span> <span class="subxComment"># convert</span> -<span id="L5925" class="LineNr"> 5925 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L5926" class="LineNr"> 5926 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5927" class="LineNr"> 5927 </span> <span class="subxComment"># restore ed</span> -<span id="L5928" class="LineNr"> 5928 </span> 89/<- %edx 4/r32/esp -<span id="L5929" class="LineNr"> 5929 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5930" class="LineNr"> 5930 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L5931" class="Folded"> 5931 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5937" class="LineNr"> 5937 </span> <span class="subxComment"># check output</span> -<span id="L5938" class="LineNr"> 5938 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5903'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) -<span id="L5939" class="LineNr"> 5939 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L5903'>test-add-with-too-many-inouts-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5940" class="LineNr"> 5940 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5941" class="LineNr"> 5941 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5903'>test-add-with-too-many-inouts-2</a>: exit status"</span>) -<span id="L5942" class="LineNr"> 5942 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5943" class="LineNr"> 5943 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5944" class="LineNr"> 5944 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5945" class="LineNr"> 5945 </span> 5d/pop-to-ebp -<span id="L5946" class="LineNr"> 5946 </span> c3/return -<span id="L5947" class="LineNr"> 5947 </span> -<span id="L5948" class="LineNr"> 5948 </span><span class="subxTest">test-add-with-too-many-outputs</span>: -<span id="L5949" class="LineNr"> 5949 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5950" class="LineNr"> 5950 </span> 55/push-ebp -<span id="L5951" class="LineNr"> 5951 </span> 89/<- %ebp 4/r32/esp -<span id="L5952" class="LineNr"> 5952 </span> <span class="subxComment"># setup</span> -<span id="L5953" class="LineNr"> 5953 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5954" class="LineNr"> 5954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5955" class="LineNr"> 5955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5956" class="LineNr"> 5956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5957" class="LineNr"> 5957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5958" class="LineNr"> 5958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5959" class="LineNr"> 5959 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5960" class="LineNr"> 5960 </span> 68/push 0/imm32 -<span id="L5961" class="LineNr"> 5961 </span> 68/push 0/imm32 -<span id="L5962" class="LineNr"> 5962 </span> 89/<- %edx 4/r32/esp -<span id="L5963" class="LineNr"> 5963 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5964" class="LineNr"> 5964 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/eax: int <- copy 0\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">" var b/ebx: int <- copy 0\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">" var c/ecx: int <- copy 0\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">" c, b <- add a\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">"}\n"</span>) -<span id="L5971" class="LineNr"> 5971 </span> <span class="subxComment"># convert</span> -<span id="L5972" class="LineNr"> 5972 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L5973" class="LineNr"> 5973 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5974" class="LineNr"> 5974 </span> <span class="subxComment"># restore ed</span> -<span id="L5975" class="LineNr"> 5975 </span> 89/<- %edx 4/r32/esp -<span id="L5976" class="LineNr"> 5976 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5977" class="LineNr"> 5977 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L5978" class="Folded"> 5978 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5984" class="LineNr"> 5984 </span> <span class="subxComment"># check output</span> -<span id="L5985" class="LineNr"> 5985 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5948'>test-add-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L5986" class="LineNr"> 5986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L5948'>test-add-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5987" class="LineNr"> 5987 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5988" class="LineNr"> 5988 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5948'>test-add-with-too-many-outputs</a>: exit status"</span>) -<span id="L5989" class="LineNr"> 5989 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5990" class="LineNr"> 5990 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5991" class="LineNr"> 5991 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5992" class="LineNr"> 5992 </span> 5d/pop-to-ebp -<span id="L5993" class="LineNr"> 5993 </span> c3/return -<span id="L5994" class="LineNr"> 5994 </span> -<span id="L5995" class="LineNr"> 5995 </span><span class="subxTest">test-add-with-non-number</span>: -<span id="L5996" class="LineNr"> 5996 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5997" class="LineNr"> 5997 </span> 55/push-ebp -<span id="L5998" class="LineNr"> 5998 </span> 89/<- %ebp 4/r32/esp -<span id="L5999" class="LineNr"> 5999 </span> <span class="subxComment"># setup</span> -<span id="L6000" class="LineNr"> 6000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6001" class="LineNr"> 6001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6002" class="LineNr"> 6002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6003" class="LineNr"> 6003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6004" class="LineNr"> 6004 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6005" class="LineNr"> 6005 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6006" class="LineNr"> 6006 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6007" class="LineNr"> 6007 </span> 68/push 0/imm32 -<span id="L6008" class="LineNr"> 6008 </span> 68/push 0/imm32 -<span id="L6009" class="LineNr"> 6009 </span> 89/<- %edx 4/r32/esp -<span id="L6010" class="LineNr"> 6010 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6011" class="LineNr"> 6011 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: int\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">" var b/ecx: (addr int) <- add a\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">"}\n"</span>) -<span id="L6016" class="LineNr"> 6016 </span> <span class="subxComment"># convert</span> -<span id="L6017" class="LineNr"> 6017 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6018" class="LineNr"> 6018 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6019" class="LineNr"> 6019 </span> <span class="subxComment"># restore ed</span> -<span id="L6020" class="LineNr"> 6020 </span> 89/<- %edx 4/r32/esp -<span id="L6021" class="LineNr"> 6021 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6022" class="LineNr"> 6022 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6023" class="Folded"> 6023 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6029" class="LineNr"> 6029 </span> <span class="subxComment"># check output</span> -<span id="L6030" class="LineNr"> 6030 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5995'>test-add-with-non-number</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: only non-addr scalar args permitted"</span> <span class="Constant">"F - <a href='mu.subx.html#L5995'>test-add-with-non-number</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6032" class="LineNr"> 6032 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6033" class="LineNr"> 6033 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5995'>test-add-with-non-number</a>: exit status"</span>) -<span id="L6034" class="LineNr"> 6034 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6035" class="LineNr"> 6035 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6036" class="LineNr"> 6036 </span> <span class="subxS1Comment"># . epilogue</span> -<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-add-with-addr-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#L285'>_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 foo {\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 a/eax: (addr int) <- copy 0\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">" add-to *a, 1\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">"}\n"</span>) -<span id="L6054" class="LineNr"> 6054 </span> <span class="subxComment"># convert</span> -<span id="L6055" class="LineNr"> 6055 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6056" class="LineNr"> 6056 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6057" class="LineNr"> 6057 </span> <span class="subxComment"># no error</span> -<span id="L6058" class="LineNr"> 6058 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6059" class="LineNr"> 6059 </span> 89/<- %esp 5/r32/ebp -<span id="L6060" class="LineNr"> 6060 </span> 5d/pop-to-ebp -<span id="L6061" class="LineNr"> 6061 </span> c3/return -<span id="L6062" class="LineNr"> 6062 </span> -<span id="L6063" class="LineNr"> 6063 </span><span class="subxTest">test-get-with-wrong-field</span>: -<span id="L6064" class="LineNr"> 6064 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6065" class="LineNr"> 6065 </span> 55/push-ebp -<span id="L6066" class="LineNr"> 6066 </span> 89/<- %ebp 4/r32/esp -<span id="L6067" class="LineNr"> 6067 </span> <span class="subxComment"># setup</span> -<span id="L6068" class="LineNr"> 6068 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6069" class="LineNr"> 6069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6070" class="LineNr"> 6070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6071" class="LineNr"> 6071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6072" class="LineNr"> 6072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6073" class="LineNr"> 6073 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6074" class="LineNr"> 6074 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6075" class="LineNr"> 6075 </span> 68/push 0/imm32 -<span id="L6076" class="LineNr"> 6076 </span> 68/push 0/imm32 -<span id="L6077" class="LineNr"> 6077 </span> 89/<- %edx 4/r32/esp -<span id="L6078" class="LineNr"> 6078 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6079" class="LineNr"> 6079 </span> <span class="subxComment">#</span> -<span id="L6080" class="LineNr"> 6080 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6081" class="LineNr"> 6081 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6082" class="LineNr"> 6082 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L6083" class="LineNr"> 6083 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6084" class="LineNr"> 6084 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6085" class="LineNr"> 6085 </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="L6086" class="LineNr"> 6086 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6087" class="LineNr"> 6087 </span> <span class="subxComment"># convert</span> -<span id="L6088" class="LineNr"> 6088 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6089" class="LineNr"> 6089 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6090" class="LineNr"> 6090 </span> <span class="subxComment"># restore ed</span> -<span id="L6091" class="LineNr"> 6091 </span> 89/<- %edx 4/r32/esp -<span id="L6092" class="LineNr"> 6092 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6093" class="LineNr"> 6093 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6094" class="Folded"> 6094 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6100" class="LineNr"> 6100 </span> <span class="subxComment"># check output</span> -<span id="L6101" class="LineNr"> 6101 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6063'>test-get-with-wrong-field</a>: output should be empty"</span>) -<span id="L6102" class="LineNr"> 6102 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6063'>test-get-with-wrong-field</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6103" class="LineNr"> 6103 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6104" class="LineNr"> 6104 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6063'>test-get-with-wrong-field</a>: exit status"</span>) -<span id="L6105" class="LineNr"> 6105 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6106" class="LineNr"> 6106 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6107" class="LineNr"> 6107 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6108" class="LineNr"> 6108 </span> 5d/pop-to-ebp -<span id="L6109" class="LineNr"> 6109 </span> c3/return -<span id="L6110" class="LineNr"> 6110 </span> -<span id="L6111" class="LineNr"> 6111 </span><span class="subxTest">test-get-with-wrong-base-type</span>: -<span id="L6112" class="LineNr"> 6112 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6113" class="LineNr"> 6113 </span> 55/push-ebp -<span id="L6114" class="LineNr"> 6114 </span> 89/<- %ebp 4/r32/esp -<span id="L6115" class="LineNr"> 6115 </span> <span class="subxComment"># setup</span> -<span id="L6116" class="LineNr"> 6116 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6117" class="LineNr"> 6117 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6118" class="LineNr"> 6118 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6119" class="LineNr"> 6119 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6120" class="LineNr"> 6120 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6121" class="LineNr"> 6121 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6122" class="LineNr"> 6122 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6123" class="LineNr"> 6123 </span> 68/push 0/imm32 -<span id="L6124" class="LineNr"> 6124 </span> 68/push 0/imm32 -<span id="L6125" class="LineNr"> 6125 </span> 89/<- %edx 4/r32/esp -<span id="L6126" class="LineNr"> 6126 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6127" class="LineNr"> 6127 </span> <span class="subxComment">#</span> -<span id="L6128" class="LineNr"> 6128 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6129" class="LineNr"> 6129 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L6130" class="LineNr"> 6130 </span> (<a 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="L6131" class="LineNr"> 6131 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6132" class="LineNr"> 6132 </span> <span class="subxComment"># convert</span> -<span id="L6133" class="LineNr"> 6133 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6134" class="LineNr"> 6134 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6135" class="LineNr"> 6135 </span> <span class="subxComment"># restore ed</span> -<span id="L6136" class="LineNr"> 6136 </span> 89/<- %edx 4/r32/esp -<span id="L6137" class="LineNr"> 6137 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6138" class="LineNr"> 6138 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6139" class="Folded"> 6139 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6145" class="LineNr"> 6145 </span> <span class="subxComment"># check output</span> -<span id="L6146" class="LineNr"> 6146 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6111'>test-get-with-wrong-base-type</a>: output should be empty"</span>) -<span id="L6147" class="LineNr"> 6147 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L6111'>test-get-with-wrong-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6148" class="LineNr"> 6148 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6149" class="LineNr"> 6149 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6111'>test-get-with-wrong-base-type</a>: exit status"</span>) -<span id="L6150" class="LineNr"> 6150 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6151" class="LineNr"> 6151 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6152" class="LineNr"> 6152 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6153" class="LineNr"> 6153 </span> 5d/pop-to-ebp -<span id="L6154" class="LineNr"> 6154 </span> c3/return -<span id="L6155" class="LineNr"> 6155 </span> -<span id="L6156" class="LineNr"> 6156 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: -<span id="L6157" class="LineNr"> 6157 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6158" class="LineNr"> 6158 </span> 55/push-ebp -<span id="L6159" class="LineNr"> 6159 </span> 89/<- %ebp 4/r32/esp -<span id="L6160" class="LineNr"> 6160 </span> <span class="subxComment"># setup</span> -<span id="L6161" class="LineNr"> 6161 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6162" class="LineNr"> 6162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6163" class="LineNr"> 6163 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6164" class="LineNr"> 6164 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6165" class="LineNr"> 6165 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6166" class="LineNr"> 6166 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6167" class="LineNr"> 6167 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6168" class="LineNr"> 6168 </span> 68/push 0/imm32 -<span id="L6169" class="LineNr"> 6169 </span> 68/push 0/imm32 -<span id="L6170" class="LineNr"> 6170 </span> 89/<- %edx 4/r32/esp -<span id="L6171" class="LineNr"> 6171 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6172" class="LineNr"> 6172 </span> <span class="subxComment">#</span> -<span id="L6173" class="LineNr"> 6173 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6174" class="LineNr"> 6174 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr t)\n"</span>) -<span id="L6175" class="LineNr"> 6175 </span> (<a 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="L6176" class="LineNr"> 6176 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6177" class="LineNr"> 6177 </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="L6178" class="LineNr"> 6178 </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="L6179" class="LineNr"> 6179 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6180" class="LineNr"> 6180 </span> <span class="subxComment"># convert</span> -<span id="L6181" class="LineNr"> 6181 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6182" class="LineNr"> 6182 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6183" class="LineNr"> 6183 </span> <span class="subxComment"># restore ed</span> -<span id="L6184" class="LineNr"> 6184 </span> 89/<- %edx 4/r32/esp -<span id="L6185" class="LineNr"> 6185 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6186" class="LineNr"> 6186 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6187" class="Folded"> 6187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6193" class="LineNr"> 6193 </span> <span class="subxComment"># check output</span> -<span id="L6194" class="LineNr"> 6194 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6156'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) -<span id="L6195" class="LineNr"> 6195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L6156'>test-get-with-wrong-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6196" class="LineNr"> 6196 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6197" class="LineNr"> 6197 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6156'>test-get-with-wrong-base-type-2</a>: exit status"</span>) -<span id="L6198" class="LineNr"> 6198 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6199" class="LineNr"> 6199 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6200" class="LineNr"> 6200 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6201" class="LineNr"> 6201 </span> 5d/pop-to-ebp -<span id="L6202" class="LineNr"> 6202 </span> c3/return -<span id="L6203" class="LineNr"> 6203 </span> -<span id="L6204" class="LineNr"> 6204 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: -<span id="L6205" class="LineNr"> 6205 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6206" class="LineNr"> 6206 </span> 55/push-ebp -<span id="L6207" class="LineNr"> 6207 </span> 89/<- %ebp 4/r32/esp -<span id="L6208" class="LineNr"> 6208 </span> <span class="subxComment"># setup</span> -<span id="L6209" class="LineNr"> 6209 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6210" class="LineNr"> 6210 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6211" class="LineNr"> 6211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6212" class="LineNr"> 6212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6213" class="LineNr"> 6213 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6214" class="LineNr"> 6214 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6215" class="LineNr"> 6215 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6216" class="LineNr"> 6216 </span> 68/push 0/imm32 -<span id="L6217" class="LineNr"> 6217 </span> 68/push 0/imm32 -<span id="L6218" class="LineNr"> 6218 </span> 89/<- %edx 4/r32/esp -<span id="L6219" class="LineNr"> 6219 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6220" class="LineNr"> 6220 </span> <span class="subxComment">#</span> -<span id="L6221" class="LineNr"> 6221 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6222" class="LineNr"> 6222 </span> (<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="L6223" class="LineNr"> 6223 </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="L6224" class="LineNr"> 6224 </span> (<a 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="L6225" class="LineNr"> 6225 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6226" class="LineNr"> 6226 </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="L6227" class="LineNr"> 6227 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6228" class="LineNr"> 6228 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6229" class="LineNr"> 6229 </span> <span class="subxComment"># convert</span> -<span id="L6230" class="LineNr"> 6230 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6231" class="LineNr"> 6231 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6232" class="LineNr"> 6232 </span> <span class="subxComment"># restore ed</span> -<span id="L6233" class="LineNr"> 6233 </span> 89/<- %edx 4/r32/esp -<span id="L6234" class="LineNr"> 6234 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6235" class="LineNr"> 6235 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6236" class="Folded"> 6236 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6242" class="LineNr"> 6242 </span> <span class="subxComment"># check output</span> -<span id="L6243" class="LineNr"> 6243 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6204'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) -<span id="L6244" class="LineNr"> 6244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6204'>test-get-with-wrong-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6245" class="LineNr"> 6245 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6246" class="LineNr"> 6246 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6204'>test-get-with-wrong-offset-type</a>: exit status"</span>) -<span id="L6247" class="LineNr"> 6247 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6248" class="LineNr"> 6248 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6249" class="LineNr"> 6249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6250" class="LineNr"> 6250 </span> 5d/pop-to-ebp -<span id="L6251" class="LineNr"> 6251 </span> c3/return -<span id="L6252" class="LineNr"> 6252 </span> -<span id="L6253" class="LineNr"> 6253 </span><span class="subxTest">test-get-with-wrong-output-type</span>: -<span id="L6254" class="LineNr"> 6254 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6255" class="LineNr"> 6255 </span> 55/push-ebp -<span id="L6256" class="LineNr"> 6256 </span> 89/<- %ebp 4/r32/esp -<span id="L6257" class="LineNr"> 6257 </span> <span class="subxComment"># setup</span> -<span id="L6258" class="LineNr"> 6258 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6259" class="LineNr"> 6259 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6260" class="LineNr"> 6260 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6261" class="LineNr"> 6261 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6262" class="LineNr"> 6262 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6263" class="LineNr"> 6263 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6264" class="LineNr"> 6264 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6265" class="LineNr"> 6265 </span> 68/push 0/imm32 +<span id="L5529" class="LineNr"> 5529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) +<span id="L5530" class="LineNr"> 5530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) +<span id="L5531" class="LineNr"> 5531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) +<span id="L5532" class="LineNr"> 5532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) +<span id="L5533" class="LineNr"> 5533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) +<span id="L5534" class="LineNr"> 5534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) +<span id="L5535" class="LineNr"> 5535 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</span>) +<span id="L5536" class="LineNr"> 5536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) +<span id="L5537" class="LineNr"> 5537 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) +<span id="L5538" class="LineNr"> 5538 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</span>) +<span id="L5539" class="LineNr"> 5539 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) +<span id="L5541" class="LineNr"> 5541 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5502'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) +<span id="L5544" class="LineNr"> 5544 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5545" class="LineNr"> 5545 </span> 89/<- %esp 5/r32/ebp +<span id="L5546" class="LineNr"> 5546 </span> 5d/pop-to-ebp +<span id="L5547" class="LineNr"> 5547 </span> c3/return +<span id="L5548" class="LineNr"> 5548 </span> +<span id="L5549" class="LineNr"> 5549 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: +<span id="L5550" class="LineNr"> 5550 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5551" class="LineNr"> 5551 </span> 55/push-ebp +<span id="L5552" class="LineNr"> 5552 </span> 89/<- %ebp 4/r32/esp +<span id="L5553" class="LineNr"> 5553 </span> <span class="subxComment"># setup</span> +<span id="L5554" class="LineNr"> 5554 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5555" class="LineNr"> 5555 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5556" class="LineNr"> 5556 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5557" class="LineNr"> 5557 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5558" class="LineNr"> 5558 </span> <span class="subxComment">#</span> +<span id="L5559" class="LineNr"> 5559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5560" class="LineNr"> 5560 </span> (<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="L5561" class="LineNr"> 5561 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5562" class="LineNr"> 5562 </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="L5563" class="LineNr"> 5563 </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="L5564" class="LineNr"> 5564 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5565" class="LineNr"> 5565 </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="L5566" class="LineNr"> 5566 </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="L5567" class="LineNr"> 5567 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5568" class="LineNr"> 5568 </span> <span class="subxComment"># convert</span> +<span id="L5569" class="LineNr"> 5569 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5570" class="LineNr"> 5570 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5571" class="Folded"> 5571 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5577" class="LineNr"> 5577 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) +<span id="L5580" class="LineNr"> 5580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) +<span id="L5581" class="LineNr"> 5581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) +<span id="L5582" class="LineNr"> 5582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) +<span id="L5583" class="LineNr"> 5583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) +<span id="L5584" class="LineNr"> 5584 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</span>) +<span id="L5585" class="LineNr"> 5585 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) +<span id="L5586" class="LineNr"> 5586 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</span>) +<span id="L5587" class="LineNr"> 5587 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</span>) +<span id="L5588" class="LineNr"> 5588 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) +<span id="L5589" class="LineNr"> 5589 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) +<span id="L5590" class="LineNr"> 5590 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</span>) +<span id="L5591" class="LineNr"> 5591 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5549'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) +<span id="L5592" class="LineNr"> 5592 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5593" class="LineNr"> 5593 </span> 89/<- %esp 5/r32/ebp +<span id="L5594" class="LineNr"> 5594 </span> 5d/pop-to-ebp +<span id="L5595" class="LineNr"> 5595 </span> c3/return +<span id="L5596" class="LineNr"> 5596 </span> +<span id="L5597" class="LineNr"> 5597 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: +<span id="L5598" class="LineNr"> 5598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5599" class="LineNr"> 5599 </span> 55/push-ebp +<span id="L5600" class="LineNr"> 5600 </span> 89/<- %ebp 4/r32/esp +<span id="L5601" class="LineNr"> 5601 </span> <span class="subxComment"># setup</span> +<span id="L5602" class="LineNr"> 5602 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5603" class="LineNr"> 5603 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5604" class="LineNr"> 5604 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5605" class="LineNr"> 5605 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5606" class="LineNr"> 5606 </span> <span class="subxComment">#</span> +<span id="L5607" class="LineNr"> 5607 </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="L5608" class="LineNr"> 5608 </span> (<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="L5609" class="LineNr"> 5609 </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="L5610" class="LineNr"> 5610 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5611" class="LineNr"> 5611 </span> (<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="L5612" class="LineNr"> 5612 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5613" class="LineNr"> 5613 </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="L5614" class="LineNr"> 5614 </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="L5615" class="LineNr"> 5615 </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="L5616" class="LineNr"> 5616 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5617" class="LineNr"> 5617 </span> <span class="subxComment"># convert</span> +<span id="L5618" class="LineNr"> 5618 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5619" class="LineNr"> 5619 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5620" class="Folded"> 5620 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5626" class="LineNr"> 5626 </span> <span class="subxComment"># check output</span> +<span id="L5627" class="LineNr"> 5627 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L5628" class="LineNr"> 5628 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L5629" class="LineNr"> 5629 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L5630" class="LineNr"> 5630 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L5631" class="LineNr"> 5631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L5632" class="LineNr"> 5632 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L5633" class="LineNr"> 5633 </span> <span class="subxComment"># var a: t</span> +<span id="L5634" class="LineNr"> 5634 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L5635" class="LineNr"> 5635 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L5636" class="LineNr"> 5636 </span> <span class="subxComment"># foo a</span> +<span id="L5637" class="LineNr"> 5637 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L5638" class="LineNr"> 5638 </span> <span class="subxComment">#</span> +<span id="L5639" class="LineNr"> 5639 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L5640" class="LineNr"> 5640 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L5641" class="LineNr"> 5641 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) +<span id="L5642" class="LineNr"> 5642 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L5643" class="LineNr"> 5643 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L5644" class="LineNr"> 5644 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L5645" class="LineNr"> 5645 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L5646" class="LineNr"> 5646 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L5647" class="LineNr"> 5647 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L5648" class="LineNr"> 5648 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L5649" class="LineNr"> 5649 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L5650" class="LineNr"> 5650 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L5651" class="LineNr"> 5651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L5652" class="LineNr"> 5652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L5653" class="LineNr"> 5653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L5654" class="LineNr"> 5654 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5655" class="LineNr"> 5655 </span> 89/<- %esp 5/r32/ebp +<span id="L5656" class="LineNr"> 5656 </span> 5d/pop-to-ebp +<span id="L5657" class="LineNr"> 5657 </span> c3/return +<span id="L5658" class="LineNr"> 5658 </span> +<span id="L5659" class="LineNr"> 5659 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: +<span id="L5660" class="LineNr"> 5660 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5661" class="LineNr"> 5661 </span> 55/push-ebp +<span id="L5662" class="LineNr"> 5662 </span> 89/<- %ebp 4/r32/esp +<span id="L5663" class="LineNr"> 5663 </span> <span class="subxComment"># setup</span> +<span id="L5664" class="LineNr"> 5664 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5665" class="LineNr"> 5665 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5666" class="LineNr"> 5666 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5667" class="LineNr"> 5667 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5668" class="LineNr"> 5668 </span> <span class="subxComment">#</span> +<span id="L5669" class="LineNr"> 5669 </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="L5670" class="LineNr"> 5670 </span> (<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="L5671" class="LineNr"> 5671 </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="L5672" class="LineNr"> 5672 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5673" class="LineNr"> 5673 </span> (<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="L5674" class="LineNr"> 5674 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5675" class="LineNr"> 5675 </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="L5676" class="LineNr"> 5676 </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="L5677" class="LineNr"> 5677 </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="L5678" class="LineNr"> 5678 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5679" class="LineNr"> 5679 </span> <span class="subxComment"># convert</span> +<span id="L5680" class="LineNr"> 5680 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5681" class="LineNr"> 5681 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5682" class="Folded"> 5682 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5688" class="LineNr"> 5688 </span> <span class="subxComment"># check output</span> +<span id="L5689" class="LineNr"> 5689 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L5690" class="LineNr"> 5690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L5691" class="LineNr"> 5691 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L5692" class="LineNr"> 5692 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L5693" class="LineNr"> 5693 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L5694" class="LineNr"> 5694 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L5695" class="LineNr"> 5695 </span> <span class="subxComment"># var a</span> +<span id="L5696" class="LineNr"> 5696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L5697" class="LineNr"> 5697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L5698" class="LineNr"> 5698 </span> <span class="subxComment"># foo a</span> +<span id="L5699" class="LineNr"> 5699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L5700" class="LineNr"> 5700 </span> <span class="subxComment">#</span> +<span id="L5701" class="LineNr"> 5701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L5702" class="LineNr"> 5702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L5703" class="LineNr"> 5703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) +<span id="L5704" class="LineNr"> 5704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L5705" class="LineNr"> 5705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L5706" class="LineNr"> 5706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L5707" class="LineNr"> 5707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L5708" class="LineNr"> 5708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L5709" class="LineNr"> 5709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L5710" class="LineNr"> 5710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L5711" class="LineNr"> 5711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L5712" class="LineNr"> 5712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L5713" class="LineNr"> 5713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L5714" class="LineNr"> 5714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L5715" class="LineNr"> 5715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5597'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L5716" class="LineNr"> 5716 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5717" class="LineNr"> 5717 </span> 89/<- %esp 5/r32/ebp +<span id="L5718" class="LineNr"> 5718 </span> 5d/pop-to-ebp +<span id="L5719" class="LineNr"> 5719 </span> c3/return +<span id="L5720" class="LineNr"> 5720 </span> +<span id="L5721" class="LineNr"> 5721 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> +<span id="L5722" class="LineNr"> 5722 </span><span class="subxComment"># a new variable with the address of the arg</span> +<span id="L5723" class="LineNr"> 5723 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: +<span id="L5724" class="LineNr"> 5724 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5725" class="LineNr"> 5725 </span> 55/push-ebp +<span id="L5726" class="LineNr"> 5726 </span> 89/<- %ebp 4/r32/esp +<span id="L5727" class="LineNr"> 5727 </span> <span class="subxComment"># setup</span> +<span id="L5728" class="LineNr"> 5728 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5729" class="LineNr"> 5729 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5730" class="LineNr"> 5730 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5731" class="LineNr"> 5731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5732" class="LineNr"> 5732 </span> <span class="subxComment">#</span> +<span id="L5733" class="LineNr"> 5733 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L5734" class="LineNr"> 5734 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L5735" class="LineNr"> 5735 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) +<span id="L5736" class="LineNr"> 5736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) +<span id="L5737" class="LineNr"> 5737 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5738" class="LineNr"> 5738 </span> (<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="L5739" class="LineNr"> 5739 </span> (<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 x\n"</span>) +<span id="L5740" class="LineNr"> 5740 </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="L5741" class="LineNr"> 5741 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5742" class="LineNr"> 5742 </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="L5743" class="LineNr"> 5743 </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="L5744" class="LineNr"> 5744 </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="L5745" class="LineNr"> 5745 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5746" class="LineNr"> 5746 </span> <span class="subxComment"># convert</span> +<span id="L5747" class="LineNr"> 5747 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5748" class="LineNr"> 5748 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5749" class="Folded"> 5749 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5755" class="LineNr"> 5755 </span> <span class="subxComment"># check output</span> +<span id="L5756" class="LineNr"> 5756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) +<span id="L5757" class="LineNr"> 5757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) +<span id="L5758" class="LineNr"> 5758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) +<span id="L5759" class="LineNr"> 5759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) +<span id="L5760" class="LineNr"> 5760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) +<span id="L5761" class="LineNr"> 5761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) +<span id="L5762" class="LineNr"> 5762 </span> <span class="subxComment"># var a: t</span> +<span id="L5763" class="LineNr"> 5763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</span>) +<span id="L5764" class="LineNr"> 5764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) +<span id="L5765" class="LineNr"> 5765 </span> <span class="subxComment"># var b/eax: (addr t)</span> +<span id="L5766" class="LineNr"> 5766 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) +<span id="L5767" class="LineNr"> 5767 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) +<span id="L5768" class="LineNr"> 5768 </span> <span class="subxComment"># foo a</span> +<span id="L5769" class="LineNr"> 5769 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) +<span id="L5770" class="LineNr"> 5770 </span> <span class="subxComment">#</span> +<span id="L5771" class="LineNr"> 5771 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) +<span id="L5776" class="LineNr"> 5776 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) +<span id="L5781" class="LineNr"> 5781 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) +<span id="L5784" class="LineNr"> 5784 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) +<span id="L5785" class="LineNr"> 5785 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/30"</span>) +<span id="L5791" class="LineNr"> 5791 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/31"</span>) +<span id="L5792" class="LineNr"> 5792 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) +<span id="L5793" class="LineNr"> 5793 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) +<span id="L5794" class="LineNr"> 5794 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5723'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/34"</span>) +<span id="L5795" class="LineNr"> 5795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5796" class="LineNr"> 5796 </span> 89/<- %esp 5/r32/ebp +<span id="L5797" class="LineNr"> 5797 </span> 5d/pop-to-ebp +<span id="L5798" class="LineNr"> 5798 </span> c3/return +<span id="L5799" class="LineNr"> 5799 </span> +<span id="L5800" class="LineNr"> 5800 </span><span class="subxTest">test-convert-get-on-local-variable</span>: +<span id="L5801" class="LineNr"> 5801 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5802" class="LineNr"> 5802 </span> 55/push-ebp +<span id="L5803" class="LineNr"> 5803 </span> 89/<- %ebp 4/r32/esp +<span id="L5804" class="LineNr"> 5804 </span> <span class="subxComment"># setup</span> +<span id="L5805" class="LineNr"> 5805 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5806" class="LineNr"> 5806 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5807" class="LineNr"> 5807 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5808" class="LineNr"> 5808 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5809" class="LineNr"> 5809 </span> <span class="subxComment">#</span> +<span id="L5810" class="LineNr"> 5810 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5811" class="LineNr"> 5811 </span> (<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="L5812" class="LineNr"> 5812 </span> (<a 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="L5813" class="LineNr"> 5813 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5814" class="LineNr"> 5814 </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="L5815" class="LineNr"> 5815 </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="L5816" class="LineNr"> 5816 </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="L5817" class="LineNr"> 5817 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5818" class="LineNr"> 5818 </span> <span class="subxComment"># convert</span> +<span id="L5819" class="LineNr"> 5819 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5820" class="LineNr"> 5820 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5821" class="Folded"> 5821 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5827" class="LineNr"> 5827 </span> <span class="subxComment"># check output</span> +<span id="L5828" class="LineNr"> 5828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/0"</span>) +<span id="L5829" class="LineNr"> 5829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) +<span id="L5830" class="LineNr"> 5830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/2"</span>) +<span id="L5831" class="LineNr"> 5831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/3"</span>) +<span id="L5832" class="LineNr"> 5832 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/4"</span>) +<span id="L5833" class="LineNr"> 5833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/5"</span>) +<span id="L5834" class="LineNr"> 5834 </span> <span class="subxComment"># var a</span> +<span id="L5835" class="LineNr"> 5835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/6"</span>) +<span id="L5836" class="LineNr"> 5836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/7"</span>) +<span id="L5837" class="LineNr"> 5837 </span> <span class="subxComment"># var c</span> +<span id="L5838" class="LineNr"> 5838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/8"</span>) +<span id="L5839" class="LineNr"> 5839 </span> <span class="subxComment"># get</span> +<span id="L5840" class="LineNr"> 5840 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/9"</span>) +<span id="L5841" class="LineNr"> 5841 </span> <span class="subxComment"># reclaim c</span> +<span id="L5842" class="LineNr"> 5842 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/10"</span>) +<span id="L5843" class="LineNr"> 5843 </span> <span class="subxComment"># reclaim a</span> +<span id="L5844" class="LineNr"> 5844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/11"</span>) +<span id="L5845" class="LineNr"> 5845 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/12"</span>) +<span id="L5846" class="LineNr"> 5846 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/13"</span>) +<span id="L5847" class="LineNr"> 5847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) +<span id="L5848" class="LineNr"> 5848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/15"</span>) +<span id="L5849" class="LineNr"> 5849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/16"</span>) +<span id="L5850" class="LineNr"> 5850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5800'>test-convert-get-on-local-variable</a>/17"</span>) +<span id="L5851" class="LineNr"> 5851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5852" class="LineNr"> 5852 </span> 89/<- %esp 5/r32/ebp +<span id="L5853" class="LineNr"> 5853 </span> 5d/pop-to-ebp +<span id="L5854" class="LineNr"> 5854 </span> c3/return +<span id="L5855" class="LineNr"> 5855 </span> +<span id="L5856" class="LineNr"> 5856 </span><span class="subxTest">test-convert-get-on-function-argument</span>: +<span id="L5857" class="LineNr"> 5857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5858" class="LineNr"> 5858 </span> 55/push-ebp +<span id="L5859" class="LineNr"> 5859 </span> 89/<- %ebp 4/r32/esp +<span id="L5860" class="LineNr"> 5860 </span> <span class="subxComment"># setup</span> +<span id="L5861" class="LineNr"> 5861 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5862" class="LineNr"> 5862 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5863" class="LineNr"> 5863 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5864" class="LineNr"> 5864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5865" class="LineNr"> 5865 </span> <span class="subxComment">#</span> +<span id="L5866" class="LineNr"> 5866 </span> (<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="L5867" class="LineNr"> 5867 </span> (<a 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="L5868" class="LineNr"> 5868 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5869" class="LineNr"> 5869 </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="L5870" class="LineNr"> 5870 </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="L5871" class="LineNr"> 5871 </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="L5872" class="LineNr"> 5872 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5873" class="LineNr"> 5873 </span> <span class="subxComment"># convert</span> +<span id="L5874" class="LineNr"> 5874 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5875" class="LineNr"> 5875 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5876" class="Folded"> 5876 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5882" class="LineNr"> 5882 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</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#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/2"</span>) +<span id="L5886" class="LineNr"> 5886 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/3"</span>) +<span id="L5887" class="LineNr"> 5887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/4"</span>) +<span id="L5888" class="LineNr"> 5888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/5"</span>) +<span id="L5889" class="LineNr"> 5889 </span> <span class="subxComment"># var c</span> +<span id="L5890" class="LineNr"> 5890 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/6"</span>) +<span id="L5891" class="LineNr"> 5891 </span> <span class="subxComment"># get</span> +<span id="L5892" class="LineNr"> 5892 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/7"</span>) +<span id="L5893" class="LineNr"> 5893 </span> <span class="subxComment"># reclaim c</span> +<span id="L5894" class="LineNr"> 5894 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/8"</span>) +<span id="L5895" class="LineNr"> 5895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/9"</span>) +<span id="L5896" class="LineNr"> 5896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/10"</span>) +<span id="L5897" class="LineNr"> 5897 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) +<span id="L5898" class="LineNr"> 5898 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/12"</span>) +<span id="L5899" class="LineNr"> 5899 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/13"</span>) +<span id="L5900" class="LineNr"> 5900 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5856'>test-convert-get-on-function-argument</a>/14"</span>) +<span id="L5901" class="LineNr"> 5901 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5902" class="LineNr"> 5902 </span> 89/<- %esp 5/r32/ebp +<span id="L5903" class="LineNr"> 5903 </span> 5d/pop-to-ebp +<span id="L5904" class="LineNr"> 5904 </span> c3/return +<span id="L5905" class="LineNr"> 5905 </span> +<span id="L5906" class="LineNr"> 5906 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: +<span id="L5907" class="LineNr"> 5907 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5908" class="LineNr"> 5908 </span> 55/push-ebp +<span id="L5909" class="LineNr"> 5909 </span> 89/<- %ebp 4/r32/esp +<span id="L5910" class="LineNr"> 5910 </span> <span class="subxComment"># setup</span> +<span id="L5911" class="LineNr"> 5911 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5912" class="LineNr"> 5912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5913" class="LineNr"> 5913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5914" class="LineNr"> 5914 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5915" class="LineNr"> 5915 </span> <span class="subxComment">#</span> +<span id="L5916" class="LineNr"> 5916 </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="L5917" class="LineNr"> 5917 </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="L5918" class="LineNr"> 5918 </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="L5919" class="LineNr"> 5919 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5920" class="LineNr"> 5920 </span> (<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="L5921" class="LineNr"> 5921 </span> (<a 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="L5922" class="LineNr"> 5922 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5923" class="LineNr"> 5923 </span> <span class="subxComment"># convert</span> +<span id="L5924" class="LineNr"> 5924 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5925" class="LineNr"> 5925 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5926" class="Folded"> 5926 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5932" class="LineNr"> 5932 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) +<span id="L5935" class="LineNr"> 5935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) +<span id="L5937" class="LineNr"> 5937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) +<span id="L5938" class="LineNr"> 5938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) +<span id="L5939" class="LineNr"> 5939 </span> <span class="subxComment"># var c</span> +<span id="L5940" class="LineNr"> 5940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) +<span id="L5941" class="LineNr"> 5941 </span> <span class="subxComment"># get</span> +<span id="L5942" class="LineNr"> 5942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) +<span id="L5943" class="LineNr"> 5943 </span> <span class="subxComment"># reclaim c</span> +<span id="L5944" class="LineNr"> 5944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) +<span id="L5945" class="LineNr"> 5945 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) +<span id="L5946" class="LineNr"> 5946 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) +<span id="L5947" class="LineNr"> 5947 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) +<span id="L5948" class="LineNr"> 5948 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) +<span id="L5949" class="LineNr"> 5949 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) +<span id="L5950" class="LineNr"> 5950 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5906'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) +<span id="L5951" class="LineNr"> 5951 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5952" class="LineNr"> 5952 </span> 89/<- %esp 5/r32/ebp +<span id="L5953" class="LineNr"> 5953 </span> 5d/pop-to-ebp +<span id="L5954" class="LineNr"> 5954 </span> c3/return +<span id="L5955" class="LineNr"> 5955 </span> +<span id="L5956" class="LineNr"> 5956 </span><span class="subxTest">test-add-with-too-many-inouts</span>: +<span id="L5957" class="LineNr"> 5957 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5958" class="LineNr"> 5958 </span> 55/push-ebp +<span id="L5959" class="LineNr"> 5959 </span> 89/<- %ebp 4/r32/esp +<span id="L5960" class="LineNr"> 5960 </span> <span class="subxComment"># setup</span> +<span id="L5961" class="LineNr"> 5961 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5962" class="LineNr"> 5962 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5963" class="LineNr"> 5963 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L5964" class="LineNr"> 5964 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5965" class="LineNr"> 5965 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L5966" class="LineNr"> 5966 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L5967" class="LineNr"> 5967 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L5968" class="LineNr"> 5968 </span> 68/push 0/imm32 +<span id="L5969" class="LineNr"> 5969 </span> 68/push 0/imm32 +<span id="L5970" class="LineNr"> 5970 </span> 89/<- %edx 4/r32/esp +<span id="L5971" class="LineNr"> 5971 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L5972" class="LineNr"> 5972 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: int\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">" var b/ecx: int <- add a, 0\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">"}\n"</span>) +<span id="L5977" class="LineNr"> 5977 </span> <span class="subxComment"># convert</span> +<span id="L5978" class="LineNr"> 5978 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L5979" class="LineNr"> 5979 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L5980" class="LineNr"> 5980 </span> <span class="subxComment"># restore ed</span> +<span id="L5981" class="LineNr"> 5981 </span> 89/<- %edx 4/r32/esp +<span id="L5982" class="LineNr"> 5982 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L5983" class="LineNr"> 5983 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L5984" class="Folded"> 5984 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5990" class="LineNr"> 5990 </span> <span class="subxComment"># check output</span> +<span id="L5991" class="LineNr"> 5991 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5956'>test-add-with-too-many-inouts</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L5956'>test-add-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L5993" class="LineNr"> 5993 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L5994" class="LineNr"> 5994 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5956'>test-add-with-too-many-inouts</a>: exit status"</span>) +<span id="L5995" class="LineNr"> 5995 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L5996" class="LineNr"> 5996 </span> 81 0/subop/add %esp 8/imm32 +<span id="L5997" class="LineNr"> 5997 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5998" class="LineNr"> 5998 </span> 5d/pop-to-ebp +<span id="L5999" class="LineNr"> 5999 </span> c3/return +<span id="L6000" class="LineNr"> 6000 </span> +<span id="L6001" class="LineNr"> 6001 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: +<span id="L6002" class="LineNr"> 6002 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6003" class="LineNr"> 6003 </span> 55/push-ebp +<span id="L6004" class="LineNr"> 6004 </span> 89/<- %ebp 4/r32/esp +<span id="L6005" class="LineNr"> 6005 </span> <span class="subxComment"># setup</span> +<span id="L6006" class="LineNr"> 6006 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6007" class="LineNr"> 6007 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6008" class="LineNr"> 6008 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6009" class="LineNr"> 6009 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6010" class="LineNr"> 6010 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6011" class="LineNr"> 6011 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6012" class="LineNr"> 6012 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6013" class="LineNr"> 6013 </span> 68/push 0/imm32 +<span id="L6014" class="LineNr"> 6014 </span> 68/push 0/imm32 +<span id="L6015" class="LineNr"> 6015 </span> 89/<- %edx 4/r32/esp +<span id="L6016" class="LineNr"> 6016 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6017" class="LineNr"> 6017 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: int\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">" add-to a, 0, 1\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">"}\n"</span>) +<span id="L6022" class="LineNr"> 6022 </span> <span class="subxComment"># convert</span> +<span id="L6023" class="LineNr"> 6023 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6024" class="LineNr"> 6024 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6025" class="LineNr"> 6025 </span> <span class="subxComment"># restore ed</span> +<span id="L6026" class="LineNr"> 6026 </span> 89/<- %edx 4/r32/esp +<span id="L6027" class="LineNr"> 6027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6028" class="LineNr"> 6028 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6029" class="Folded"> 6029 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6035" class="LineNr"> 6035 </span> <span class="subxComment"># check output</span> +<span id="L6036" class="LineNr"> 6036 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6001'>test-add-with-too-many-inouts-2</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L6001'>test-add-with-too-many-inouts-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6038" class="LineNr"> 6038 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6039" class="LineNr"> 6039 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6001'>test-add-with-too-many-inouts-2</a>: exit status"</span>) +<span id="L6040" class="LineNr"> 6040 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6041" class="LineNr"> 6041 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6042" class="LineNr"> 6042 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6043" class="LineNr"> 6043 </span> 5d/pop-to-ebp +<span id="L6044" class="LineNr"> 6044 </span> c3/return +<span id="L6045" class="LineNr"> 6045 </span> +<span id="L6046" class="LineNr"> 6046 </span><span class="subxTest">test-add-with-too-many-outputs</span>: +<span id="L6047" class="LineNr"> 6047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6048" class="LineNr"> 6048 </span> 55/push-ebp +<span id="L6049" class="LineNr"> 6049 </span> 89/<- %ebp 4/r32/esp +<span id="L6050" class="LineNr"> 6050 </span> <span class="subxComment"># setup</span> +<span id="L6051" class="LineNr"> 6051 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6052" class="LineNr"> 6052 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6053" class="LineNr"> 6053 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6054" class="LineNr"> 6054 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6055" class="LineNr"> 6055 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6056" class="LineNr"> 6056 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6057" class="LineNr"> 6057 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6058" class="LineNr"> 6058 </span> 68/push 0/imm32 +<span id="L6059" class="LineNr"> 6059 </span> 68/push 0/imm32 +<span id="L6060" class="LineNr"> 6060 </span> 89/<- %edx 4/r32/esp +<span id="L6061" class="LineNr"> 6061 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6062" class="LineNr"> 6062 </span> <span class="subxComment">#</span> +<span id="L6063" class="LineNr"> 6063 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6064" class="LineNr"> 6064 </span> (<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="L6065" class="LineNr"> 6065 </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="L6066" class="LineNr"> 6066 </span> (<a 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="L6067" class="LineNr"> 6067 </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="L6068" class="LineNr"> 6068 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6069" class="LineNr"> 6069 </span> <span class="subxComment"># convert</span> +<span id="L6070" class="LineNr"> 6070 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6071" class="LineNr"> 6071 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6072" class="LineNr"> 6072 </span> <span class="subxComment"># restore ed</span> +<span id="L6073" class="LineNr"> 6073 </span> 89/<- %edx 4/r32/esp +<span id="L6074" class="LineNr"> 6074 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6075" class="LineNr"> 6075 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6076" class="Folded"> 6076 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6082" class="LineNr"> 6082 </span> <span class="subxComment"># check output</span> +<span id="L6083" class="LineNr"> 6083 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6046'>test-add-with-too-many-outputs</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L6046'>test-add-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6085" class="LineNr"> 6085 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6086" class="LineNr"> 6086 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6046'>test-add-with-too-many-outputs</a>: exit status"</span>) +<span id="L6087" class="LineNr"> 6087 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6088" class="LineNr"> 6088 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6089" class="LineNr"> 6089 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6090" class="LineNr"> 6090 </span> 5d/pop-to-ebp +<span id="L6091" class="LineNr"> 6091 </span> c3/return +<span id="L6092" class="LineNr"> 6092 </span> +<span id="L6093" class="LineNr"> 6093 </span><span class="subxTest">test-add-with-non-number</span>: +<span id="L6094" class="LineNr"> 6094 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6095" class="LineNr"> 6095 </span> 55/push-ebp +<span id="L6096" class="LineNr"> 6096 </span> 89/<- %ebp 4/r32/esp +<span id="L6097" class="LineNr"> 6097 </span> <span class="subxComment"># setup</span> +<span id="L6098" class="LineNr"> 6098 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6099" class="LineNr"> 6099 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6100" class="LineNr"> 6100 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6101" class="LineNr"> 6101 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6102" class="LineNr"> 6102 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6103" class="LineNr"> 6103 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6104" class="LineNr"> 6104 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6105" class="LineNr"> 6105 </span> 68/push 0/imm32 +<span id="L6106" class="LineNr"> 6106 </span> 68/push 0/imm32 +<span id="L6107" class="LineNr"> 6107 </span> 89/<- %edx 4/r32/esp +<span id="L6108" class="LineNr"> 6108 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6109" class="LineNr"> 6109 </span> <span class="subxComment">#</span> +<span id="L6110" class="LineNr"> 6110 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6111" class="LineNr"> 6111 </span> (<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="L6112" class="LineNr"> 6112 </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="L6113" class="LineNr"> 6113 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6114" class="LineNr"> 6114 </span> <span class="subxComment"># convert</span> +<span id="L6115" class="LineNr"> 6115 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6116" class="LineNr"> 6116 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6117" class="LineNr"> 6117 </span> <span class="subxComment"># restore ed</span> +<span id="L6118" class="LineNr"> 6118 </span> 89/<- %edx 4/r32/esp +<span id="L6119" class="LineNr"> 6119 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6120" class="LineNr"> 6120 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6121" class="Folded"> 6121 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6127" class="LineNr"> 6127 </span> <span class="subxComment"># check output</span> +<span id="L6128" class="LineNr"> 6128 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6093'>test-add-with-non-number</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: only non-addr scalar args permitted"</span> <span class="Constant">"F - <a href='mu.subx.html#L6093'>test-add-with-non-number</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6130" class="LineNr"> 6130 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6131" class="LineNr"> 6131 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6093'>test-add-with-non-number</a>: exit status"</span>) +<span id="L6132" class="LineNr"> 6132 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6133" class="LineNr"> 6133 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6134" class="LineNr"> 6134 </span> <span class="subxS1Comment"># . epilogue</span> +<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-add-with-addr-dereferenced</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#L285'>_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 {\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 a/eax: (addr int) <- copy 0\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">" add-to *a, 1\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#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6154" class="LineNr"> 6154 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6155" class="LineNr"> 6155 </span> <span class="subxComment"># no error</span> +<span id="L6156" class="LineNr"> 6156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6157" class="LineNr"> 6157 </span> 89/<- %esp 5/r32/ebp +<span id="L6158" class="LineNr"> 6158 </span> 5d/pop-to-ebp +<span id="L6159" class="LineNr"> 6159 </span> c3/return +<span id="L6160" class="LineNr"> 6160 </span> +<span id="L6161" class="LineNr"> 6161 </span><span class="subxTest">test-get-with-wrong-field</span>: +<span id="L6162" class="LineNr"> 6162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6163" class="LineNr"> 6163 </span> 55/push-ebp +<span id="L6164" class="LineNr"> 6164 </span> 89/<- %ebp 4/r32/esp +<span id="L6165" class="LineNr"> 6165 </span> <span class="subxComment"># setup</span> +<span id="L6166" class="LineNr"> 6166 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6167" class="LineNr"> 6167 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6168" class="LineNr"> 6168 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6169" class="LineNr"> 6169 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6170" class="LineNr"> 6170 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6171" class="LineNr"> 6171 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6172" class="LineNr"> 6172 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6173" class="LineNr"> 6173 </span> 68/push 0/imm32 +<span id="L6174" class="LineNr"> 6174 </span> 68/push 0/imm32 +<span id="L6175" class="LineNr"> 6175 </span> 89/<- %edx 4/r32/esp +<span id="L6176" class="LineNr"> 6176 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6177" class="LineNr"> 6177 </span> <span class="subxComment">#</span> +<span id="L6178" class="LineNr"> 6178 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6179" class="LineNr"> 6179 </span> (<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="L6180" class="LineNr"> 6180 </span> (<a 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="L6181" class="LineNr"> 6181 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6182" class="LineNr"> 6182 </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="L6183" class="LineNr"> 6183 </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="L6184" class="LineNr"> 6184 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6185" class="LineNr"> 6185 </span> <span class="subxComment"># convert</span> +<span id="L6186" class="LineNr"> 6186 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6187" class="LineNr"> 6187 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6188" class="LineNr"> 6188 </span> <span class="subxComment"># restore ed</span> +<span id="L6189" class="LineNr"> 6189 </span> 89/<- %edx 4/r32/esp +<span id="L6190" class="LineNr"> 6190 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6191" class="LineNr"> 6191 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6192" class="Folded"> 6192 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6198" class="LineNr"> 6198 </span> <span class="subxComment"># check output</span> +<span id="L6199" class="LineNr"> 6199 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-get-with-wrong-field</a>: output should be empty"</span>) +<span id="L6200" class="LineNr"> 6200 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-get-with-wrong-field</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6201" class="LineNr"> 6201 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6202" class="LineNr"> 6202 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-get-with-wrong-field</a>: exit status"</span>) +<span id="L6203" class="LineNr"> 6203 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6204" class="LineNr"> 6204 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6205" class="LineNr"> 6205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6206" class="LineNr"> 6206 </span> 5d/pop-to-ebp +<span id="L6207" class="LineNr"> 6207 </span> c3/return +<span id="L6208" class="LineNr"> 6208 </span> +<span id="L6209" class="LineNr"> 6209 </span><span class="subxTest">test-get-with-wrong-base-type</span>: +<span id="L6210" class="LineNr"> 6210 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6211" class="LineNr"> 6211 </span> 55/push-ebp +<span id="L6212" class="LineNr"> 6212 </span> 89/<- %ebp 4/r32/esp +<span id="L6213" class="LineNr"> 6213 </span> <span class="subxComment"># setup</span> +<span id="L6214" class="LineNr"> 6214 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6215" class="LineNr"> 6215 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6216" class="LineNr"> 6216 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6217" class="LineNr"> 6217 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6218" class="LineNr"> 6218 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6219" class="LineNr"> 6219 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6220" class="LineNr"> 6220 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6221" class="LineNr"> 6221 </span> 68/push 0/imm32 +<span id="L6222" class="LineNr"> 6222 </span> 68/push 0/imm32 +<span id="L6223" class="LineNr"> 6223 </span> 89/<- %edx 4/r32/esp +<span id="L6224" class="LineNr"> 6224 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6225" class="LineNr"> 6225 </span> <span class="subxComment">#</span> +<span id="L6226" class="LineNr"> 6226 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6227" class="LineNr"> 6227 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L6228" class="LineNr"> 6228 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L6229" class="LineNr"> 6229 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6230" class="LineNr"> 6230 </span> <span class="subxComment"># convert</span> +<span id="L6231" class="LineNr"> 6231 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6232" class="LineNr"> 6232 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6233" class="LineNr"> 6233 </span> <span class="subxComment"># restore ed</span> +<span id="L6234" class="LineNr"> 6234 </span> 89/<- %edx 4/r32/esp +<span id="L6235" class="LineNr"> 6235 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6236" class="LineNr"> 6236 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6237" class="Folded"> 6237 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6243" class="LineNr"> 6243 </span> <span class="subxComment"># check output</span> +<span id="L6244" class="LineNr"> 6244 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6209'>test-get-with-wrong-base-type</a>: output should be empty"</span>) +<span id="L6245" class="LineNr"> 6245 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L6209'>test-get-with-wrong-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6246" class="LineNr"> 6246 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6247" class="LineNr"> 6247 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6209'>test-get-with-wrong-base-type</a>: exit status"</span>) +<span id="L6248" class="LineNr"> 6248 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6249" class="LineNr"> 6249 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6250" class="LineNr"> 6250 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6251" class="LineNr"> 6251 </span> 5d/pop-to-ebp +<span id="L6252" class="LineNr"> 6252 </span> c3/return +<span id="L6253" class="LineNr"> 6253 </span> +<span id="L6254" class="LineNr"> 6254 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: +<span id="L6255" class="LineNr"> 6255 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6256" class="LineNr"> 6256 </span> 55/push-ebp +<span id="L6257" class="LineNr"> 6257 </span> 89/<- %ebp 4/r32/esp +<span id="L6258" class="LineNr"> 6258 </span> <span class="subxComment"># setup</span> +<span id="L6259" class="LineNr"> 6259 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6260" class="LineNr"> 6260 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6261" class="LineNr"> 6261 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6262" class="LineNr"> 6262 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6263" class="LineNr"> 6263 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6264" class="LineNr"> 6264 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6265" class="LineNr"> 6265 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L6266" class="LineNr"> 6266 </span> 68/push 0/imm32 -<span id="L6267" class="LineNr"> 6267 </span> 89/<- %edx 4/r32/esp -<span id="L6268" class="LineNr"> 6268 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6269" class="LineNr"> 6269 </span> <span class="subxComment">#</span> -<span id="L6270" class="LineNr"> 6270 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6271" class="LineNr"> 6271 </span> (<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="L6272" class="LineNr"> 6272 </span> (<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="L6273" class="LineNr"> 6273 </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="L6267" class="LineNr"> 6267 </span> 68/push 0/imm32 +<span id="L6268" class="LineNr"> 6268 </span> 89/<- %edx 4/r32/esp +<span id="L6269" class="LineNr"> 6269 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6270" class="LineNr"> 6270 </span> <span class="subxComment">#</span> +<span id="L6271" class="LineNr"> 6271 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6272" class="LineNr"> 6272 </span> (<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="L6273" class="LineNr"> 6273 </span> (<a 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="L6274" class="LineNr"> 6274 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L6275" class="LineNr"> 6275 </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="L6276" class="LineNr"> 6276 </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>) @@ -5774,19 +5774,19 @@ if ('onhashchange' in window) { <span id="L6282" class="LineNr"> 6282 </span> 89/<- %edx 4/r32/esp <span id="L6283" class="LineNr"> 6283 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L6284" class="LineNr"> 6284 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6285" class="Folded"> 6285 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6285" class="Folded"> 6285 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6291" class="LineNr"> 6291 </span> <span class="subxComment"># check output</span> -<span id="L6292" class="LineNr"> 6292 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6253'>test-get-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L6293" class="LineNr"> 6293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L6253'>test-get-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6292" class="LineNr"> 6292 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6254'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) +<span id="L6293" class="LineNr"> 6293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L6254'>test-get-with-wrong-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L6294" class="LineNr"> 6294 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6295" class="LineNr"> 6295 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6253'>test-get-with-wrong-output-type</a>: exit status"</span>) +<span id="L6295" class="LineNr"> 6295 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6254'>test-get-with-wrong-base-type-2</a>: exit status"</span>) <span id="L6296" class="LineNr"> 6296 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L6297" class="LineNr"> 6297 </span> 81 0/subop/add %esp 8/imm32 <span id="L6298" class="LineNr"> 6298 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L6299" class="LineNr"> 6299 </span> 5d/pop-to-ebp <span id="L6300" class="LineNr"> 6300 </span> c3/return <span id="L6301" class="LineNr"> 6301 </span> -<span id="L6302" class="LineNr"> 6302 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: +<span id="L6302" class="LineNr"> 6302 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: <span id="L6303" class="LineNr"> 6303 </span> <span class="subxS1Comment"># . prologue</span> <span id="L6304" class="LineNr"> 6304 </span> 55/push-ebp <span id="L6305" class="LineNr"> 6305 </span> 89/<- %ebp 4/r32/esp @@ -5805,293 +5805,293 @@ if ('onhashchange' in window) { <span id="L6318" class="LineNr"> 6318 </span> <span class="subxComment">#</span> <span id="L6319" class="LineNr"> 6319 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) <span id="L6320" class="LineNr"> 6320 </span> (<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="L6321" class="LineNr"> 6321 </span> (<a 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="L6322" class="LineNr"> 6322 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6323" class="LineNr"> 6323 </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="L6324" class="LineNr"> 6324 </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="L6325" class="LineNr"> 6325 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6326" class="LineNr"> 6326 </span> <span class="subxComment"># convert</span> -<span id="L6327" class="LineNr"> 6327 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6328" class="LineNr"> 6328 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6329" class="LineNr"> 6329 </span> <span class="subxComment"># restore ed</span> -<span id="L6330" class="LineNr"> 6330 </span> 89/<- %edx 4/r32/esp -<span id="L6331" class="LineNr"> 6331 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6332" class="LineNr"> 6332 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6333" class="Folded"> 6333 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6339" class="LineNr"> 6339 </span> <span class="subxComment"># check output</span> -<span id="L6340" class="LineNr"> 6340 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-output-type-2</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-output-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6342" class="LineNr"> 6342 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6343" class="LineNr"> 6343 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-output-type-2</a>: exit status"</span>) -<span id="L6344" class="LineNr"> 6344 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6345" class="LineNr"> 6345 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6346" class="LineNr"> 6346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6347" class="LineNr"> 6347 </span> 5d/pop-to-ebp -<span id="L6348" class="LineNr"> 6348 </span> c3/return -<span id="L6349" class="LineNr"> 6349 </span> -<span id="L6350" class="LineNr"> 6350 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: -<span id="L6351" class="LineNr"> 6351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6352" class="LineNr"> 6352 </span> 55/push-ebp -<span id="L6353" class="LineNr"> 6353 </span> 89/<- %ebp 4/r32/esp -<span id="L6354" class="LineNr"> 6354 </span> <span class="subxComment"># setup</span> -<span id="L6355" class="LineNr"> 6355 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6356" class="LineNr"> 6356 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6357" class="LineNr"> 6357 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6358" class="LineNr"> 6358 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6359" class="LineNr"> 6359 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6360" class="LineNr"> 6360 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6361" class="LineNr"> 6361 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6362" class="LineNr"> 6362 </span> 68/push 0/imm32 +<span id="L6321" class="LineNr"> 6321 </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="L6322" class="LineNr"> 6322 </span> (<a 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="L6323" class="LineNr"> 6323 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6324" class="LineNr"> 6324 </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="L6325" class="LineNr"> 6325 </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="L6326" class="LineNr"> 6326 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6327" class="LineNr"> 6327 </span> <span class="subxComment"># convert</span> +<span id="L6328" class="LineNr"> 6328 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6329" class="LineNr"> 6329 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6330" class="LineNr"> 6330 </span> <span class="subxComment"># restore ed</span> +<span id="L6331" class="LineNr"> 6331 </span> 89/<- %edx 4/r32/esp +<span id="L6332" class="LineNr"> 6332 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6333" class="LineNr"> 6333 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6334" class="Folded"> 6334 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6340" class="LineNr"> 6340 </span> <span class="subxComment"># check output</span> +<span id="L6341" class="LineNr"> 6341 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-offset-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6343" class="LineNr"> 6343 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6344" class="LineNr"> 6344 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6302'>test-get-with-wrong-offset-type</a>: exit status"</span>) +<span id="L6345" class="LineNr"> 6345 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6346" class="LineNr"> 6346 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6347" class="LineNr"> 6347 </span> <span class="subxS1Comment"># . epilogue</span> +<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-get-with-wrong-output-type</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#L285'>_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> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6361" class="LineNr"> 6361 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6362" class="LineNr"> 6362 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L6363" class="LineNr"> 6363 </span> 68/push 0/imm32 -<span id="L6364" class="LineNr"> 6364 </span> 89/<- %edx 4/r32/esp -<span id="L6365" class="LineNr"> 6365 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6366" class="LineNr"> 6366 </span> <span class="subxComment">#</span> -<span id="L6367" class="LineNr"> 6367 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6368" class="LineNr"> 6368 </span> (<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="L6369" class="LineNr"> 6369 </span> (<a 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="L6370" class="LineNr"> 6370 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6371" class="LineNr"> 6371 </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="L6372" class="LineNr"> 6372 </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="L6373" class="LineNr"> 6373 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6374" class="LineNr"> 6374 </span> <span class="subxComment"># convert</span> -<span id="L6375" class="LineNr"> 6375 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6376" class="LineNr"> 6376 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6377" class="LineNr"> 6377 </span> <span class="subxComment"># restore ed</span> -<span id="L6378" class="LineNr"> 6378 </span> 89/<- %edx 4/r32/esp -<span id="L6379" class="LineNr"> 6379 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6380" class="LineNr"> 6380 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6381" class="Folded"> 6381 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6387" class="LineNr"> 6387 </span> <span class="subxComment"># check output</span> -<span id="L6388" class="LineNr"> 6388 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6350'>test-get-with-wrong-output-type-3</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L6350'>test-get-with-wrong-output-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6390" class="LineNr"> 6390 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6391" class="LineNr"> 6391 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6350'>test-get-with-wrong-output-type-3</a>: exit status"</span>) -<span id="L6392" class="LineNr"> 6392 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6393" class="LineNr"> 6393 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6394" class="LineNr"> 6394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6395" class="LineNr"> 6395 </span> 5d/pop-to-ebp -<span id="L6396" class="LineNr"> 6396 </span> c3/return -<span id="L6397" class="LineNr"> 6397 </span> -<span id="L6398" class="LineNr"> 6398 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: -<span id="L6399" class="LineNr"> 6399 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6400" class="LineNr"> 6400 </span> 55/push-ebp -<span id="L6401" class="LineNr"> 6401 </span> 89/<- %ebp 4/r32/esp -<span id="L6402" class="LineNr"> 6402 </span> <span class="subxComment"># setup</span> -<span id="L6403" class="LineNr"> 6403 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6404" class="LineNr"> 6404 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6405" class="LineNr"> 6405 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6406" class="LineNr"> 6406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6407" class="LineNr"> 6407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6408" class="LineNr"> 6408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6409" class="LineNr"> 6409 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6410" class="LineNr"> 6410 </span> 68/push 0/imm32 -<span id="L6411" class="LineNr"> 6411 </span> 68/push 0/imm32 -<span id="L6412" class="LineNr"> 6412 </span> 89/<- %edx 4/r32/esp -<span id="L6413" class="LineNr"> 6413 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6414" class="LineNr"> 6414 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: t\n"</span>) -<span id="L6417" class="LineNr"> 6417 </span> (<a 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="L6418" class="LineNr"> 6418 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6419" class="LineNr"> 6419 </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="L6420" class="LineNr"> 6420 </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="L6421" class="LineNr"> 6421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6422" class="LineNr"> 6422 </span> <span class="subxComment"># convert</span> -<span id="L6423" class="LineNr"> 6423 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6424" class="LineNr"> 6424 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6425" class="LineNr"> 6425 </span> <span class="subxComment"># restore ed</span> -<span id="L6426" class="LineNr"> 6426 </span> 89/<- %edx 4/r32/esp -<span id="L6427" class="LineNr"> 6427 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6428" class="LineNr"> 6428 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6429" class="Folded"> 6429 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6435" class="LineNr"> 6435 </span> <span class="subxComment"># check output</span> -<span id="L6436" class="LineNr"> 6436 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6398'>test-get-with-wrong-output-type-4</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6398'>test-get-with-wrong-output-type-4</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6438" class="LineNr"> 6438 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6439" class="LineNr"> 6439 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6398'>test-get-with-wrong-output-type-4</a>: exit status"</span>) -<span id="L6440" class="LineNr"> 6440 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6441" class="LineNr"> 6441 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6442" class="LineNr"> 6442 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6443" class="LineNr"> 6443 </span> 5d/pop-to-ebp -<span id="L6444" class="LineNr"> 6444 </span> c3/return -<span id="L6445" class="LineNr"> 6445 </span> -<span id="L6446" class="LineNr"> 6446 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: -<span id="L6447" class="LineNr"> 6447 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6448" class="LineNr"> 6448 </span> 55/push-ebp -<span id="L6449" class="LineNr"> 6449 </span> 89/<- %ebp 4/r32/esp -<span id="L6450" class="LineNr"> 6450 </span> <span class="subxComment"># setup</span> -<span id="L6451" class="LineNr"> 6451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6452" class="LineNr"> 6452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6453" class="LineNr"> 6453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6454" class="LineNr"> 6454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6455" class="LineNr"> 6455 </span> <span class="subxComment">#</span> -<span id="L6456" class="LineNr"> 6456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var a: t\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 c/ecx: (addr handle int) <- <a href='../131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\n"</span>) -<span id="L6461" class="LineNr"> 6461 </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="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">"}\n"</span>) -<span id="L6463" class="LineNr"> 6463 </span> <span class="subxComment"># convert</span> -<span id="L6464" class="LineNr"> 6464 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6465" class="LineNr"> 6465 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6466" class="LineNr"> 6466 </span> <span class="subxComment"># no errors</span> -<span id="L6467" class="LineNr"> 6467 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6468" class="LineNr"> 6468 </span> 89/<- %esp 5/r32/ebp -<span id="L6469" class="LineNr"> 6469 </span> 5d/pop-to-ebp -<span id="L6470" class="LineNr"> 6470 </span> c3/return -<span id="L6471" class="LineNr"> 6471 </span> -<span id="L6472" class="LineNr"> 6472 </span><span class="subxTest">test-get-with-too-few-inouts</span>: -<span id="L6473" class="LineNr"> 6473 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6474" class="LineNr"> 6474 </span> 55/push-ebp -<span id="L6475" class="LineNr"> 6475 </span> 89/<- %ebp 4/r32/esp -<span id="L6476" class="LineNr"> 6476 </span> <span class="subxComment"># setup</span> -<span id="L6477" class="LineNr"> 6477 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6478" class="LineNr"> 6478 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6479" class="LineNr"> 6479 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6480" class="LineNr"> 6480 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6481" class="LineNr"> 6481 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6482" class="LineNr"> 6482 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6483" class="LineNr"> 6483 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6484" class="LineNr"> 6484 </span> 68/push 0/imm32 -<span id="L6485" class="LineNr"> 6485 </span> 68/push 0/imm32 -<span id="L6486" class="LineNr"> 6486 </span> 89/<- %edx 4/r32/esp -<span id="L6487" class="LineNr"> 6487 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6488" class="LineNr"> 6488 </span> <span class="subxComment">#</span> -<span id="L6489" class="LineNr"> 6489 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6490" class="LineNr"> 6490 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6491" class="LineNr"> 6491 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a\n"</span>) -<span id="L6492" class="LineNr"> 6492 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6493" class="LineNr"> 6493 </span> (<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="L6494" class="LineNr"> 6494 </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="L6495" class="LineNr"> 6495 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6496" class="LineNr"> 6496 </span> <span class="subxComment"># convert</span> -<span id="L6497" class="LineNr"> 6497 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6498" class="LineNr"> 6498 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6499" class="LineNr"> 6499 </span> <span class="subxComment"># restore ed</span> -<span id="L6500" class="LineNr"> 6500 </span> 89/<- %edx 4/r32/esp -<span id="L6501" class="LineNr"> 6501 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6502" class="LineNr"> 6502 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6503" class="Folded"> 6503 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6509" class="LineNr"> 6509 </span> <span class="subxComment"># check output</span> -<span id="L6510" class="LineNr"> 6510 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6472'>test-get-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L6511" class="LineNr"> 6511 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6472'>test-get-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6512" class="LineNr"> 6512 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6513" class="LineNr"> 6513 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6472'>test-get-with-too-few-inouts</a>: exit status"</span>) -<span id="L6514" class="LineNr"> 6514 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6515" class="LineNr"> 6515 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6516" class="LineNr"> 6516 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6517" class="LineNr"> 6517 </span> 5d/pop-to-ebp -<span id="L6518" class="LineNr"> 6518 </span> c3/return -<span id="L6519" class="LineNr"> 6519 </span> -<span id="L6520" class="LineNr"> 6520 </span><span class="subxTest">test-get-with-too-many-inouts</span>: -<span id="L6521" class="LineNr"> 6521 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6522" class="LineNr"> 6522 </span> 55/push-ebp -<span id="L6523" class="LineNr"> 6523 </span> 89/<- %ebp 4/r32/esp -<span id="L6524" class="LineNr"> 6524 </span> <span class="subxComment"># setup</span> -<span id="L6525" class="LineNr"> 6525 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6526" class="LineNr"> 6526 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6527" class="LineNr"> 6527 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6528" class="LineNr"> 6528 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6529" class="LineNr"> 6529 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6530" class="LineNr"> 6530 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6531" class="LineNr"> 6531 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6532" class="LineNr"> 6532 </span> 68/push 0/imm32 -<span id="L6533" class="LineNr"> 6533 </span> 68/push 0/imm32 -<span id="L6534" class="LineNr"> 6534 </span> 89/<- %edx 4/r32/esp -<span id="L6535" class="LineNr"> 6535 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6536" class="LineNr"> 6536 </span> <span class="subxComment">#</span> -<span id="L6537" class="LineNr"> 6537 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6538" class="LineNr"> 6538 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6539" class="LineNr"> 6539 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, x, 0\n"</span>) -<span id="L6540" class="LineNr"> 6540 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6541" class="LineNr"> 6541 </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="L6542" class="LineNr"> 6542 </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="L6543" class="LineNr"> 6543 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6544" class="LineNr"> 6544 </span> <span class="subxComment"># convert</span> -<span id="L6545" class="LineNr"> 6545 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6546" class="LineNr"> 6546 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6547" class="LineNr"> 6547 </span> <span class="subxComment"># restore ed</span> -<span id="L6548" class="LineNr"> 6548 </span> 89/<- %edx 4/r32/esp -<span id="L6549" class="LineNr"> 6549 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6550" class="LineNr"> 6550 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6551" class="Folded"> 6551 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6557" class="LineNr"> 6557 </span> <span class="subxComment"># check output</span> -<span id="L6558" class="LineNr"> 6558 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6520'>test-get-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L6559" class="LineNr"> 6559 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6520'>test-get-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6560" class="LineNr"> 6560 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6561" class="LineNr"> 6561 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6520'>test-get-with-too-many-inouts</a>: exit status"</span>) -<span id="L6562" class="LineNr"> 6562 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6563" class="LineNr"> 6563 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6564" class="LineNr"> 6564 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6565" class="LineNr"> 6565 </span> 5d/pop-to-ebp -<span id="L6566" class="LineNr"> 6566 </span> c3/return -<span id="L6567" class="LineNr"> 6567 </span> -<span id="L6568" class="LineNr"> 6568 </span><span class="subxTest">test-get-with-no-output</span>: -<span id="L6569" class="LineNr"> 6569 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6570" class="LineNr"> 6570 </span> 55/push-ebp -<span id="L6571" class="LineNr"> 6571 </span> 89/<- %ebp 4/r32/esp -<span id="L6572" class="LineNr"> 6572 </span> <span class="subxComment"># setup</span> -<span id="L6573" class="LineNr"> 6573 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6574" class="LineNr"> 6574 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6575" class="LineNr"> 6575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6576" class="LineNr"> 6576 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6577" class="LineNr"> 6577 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6578" class="LineNr"> 6578 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6579" class="LineNr"> 6579 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6580" class="LineNr"> 6580 </span> 68/push 0/imm32 -<span id="L6581" class="LineNr"> 6581 </span> 68/push 0/imm32 -<span id="L6582" class="LineNr"> 6582 </span> 89/<- %edx 4/r32/esp -<span id="L6583" class="LineNr"> 6583 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6584" class="LineNr"> 6584 </span> <span class="subxComment">#</span> -<span id="L6585" class="LineNr"> 6585 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6586" class="LineNr"> 6586 </span> (<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="L6587" class="LineNr"> 6587 </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="L6588" class="LineNr"> 6588 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6589" class="LineNr"> 6589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6590" class="LineNr"> 6590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6591" class="LineNr"> 6591 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6592" class="LineNr"> 6592 </span> <span class="subxComment"># convert</span> -<span id="L6593" class="LineNr"> 6593 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6594" class="LineNr"> 6594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6595" class="LineNr"> 6595 </span> <span class="subxComment"># restore ed</span> -<span id="L6596" class="LineNr"> 6596 </span> 89/<- %edx 4/r32/esp -<span id="L6597" class="LineNr"> 6597 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6598" class="LineNr"> 6598 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6599" class="Folded"> 6599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6605" class="LineNr"> 6605 </span> <span class="subxComment"># check output</span> -<span id="L6606" class="LineNr"> 6606 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6568'>test-get-with-no-output</a>: output should be empty"</span>) -<span id="L6607" class="LineNr"> 6607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L6568'>test-get-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6608" class="LineNr"> 6608 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6609" class="LineNr"> 6609 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6568'>test-get-with-no-output</a>: exit status"</span>) -<span id="L6610" class="LineNr"> 6610 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6611" class="LineNr"> 6611 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6612" class="LineNr"> 6612 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6613" class="LineNr"> 6613 </span> 5d/pop-to-ebp -<span id="L6614" class="LineNr"> 6614 </span> c3/return -<span id="L6615" class="LineNr"> 6615 </span> -<span id="L6616" class="LineNr"> 6616 </span><span class="subxTest">test-get-with-too-many-outputs</span>: -<span id="L6617" class="LineNr"> 6617 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6618" class="LineNr"> 6618 </span> 55/push-ebp -<span id="L6619" class="LineNr"> 6619 </span> 89/<- %ebp 4/r32/esp -<span id="L6620" class="LineNr"> 6620 </span> <span class="subxComment"># setup</span> -<span id="L6621" class="LineNr"> 6621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6622" class="LineNr"> 6622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6623" class="LineNr"> 6623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6624" class="LineNr"> 6624 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6625" class="LineNr"> 6625 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6626" class="LineNr"> 6626 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6627" class="LineNr"> 6627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6628" class="LineNr"> 6628 </span> 68/push 0/imm32 -<span id="L6629" class="LineNr"> 6629 </span> 68/push 0/imm32 -<span id="L6630" class="LineNr"> 6630 </span> 89/<- %edx 4/r32/esp -<span id="L6631" class="LineNr"> 6631 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6632" class="LineNr"> 6632 </span> <span class="subxComment">#</span> -<span id="L6633" class="LineNr"> 6633 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6634" class="LineNr"> 6634 </span> (<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="L6635" class="LineNr"> 6635 </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="L6636" class="LineNr"> 6636 </span> (<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="L6637" class="LineNr"> 6637 </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="L6364" class="LineNr"> 6364 </span> 68/push 0/imm32 +<span id="L6365" class="LineNr"> 6365 </span> 89/<- %edx 4/r32/esp +<span id="L6366" class="LineNr"> 6366 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6367" class="LineNr"> 6367 </span> <span class="subxComment">#</span> +<span id="L6368" class="LineNr"> 6368 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6369" class="LineNr"> 6369 </span> (<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="L6370" class="LineNr"> 6370 </span> (<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="L6371" class="LineNr"> 6371 </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="L6372" class="LineNr"> 6372 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6373" class="LineNr"> 6373 </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="L6374" class="LineNr"> 6374 </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="L6375" class="LineNr"> 6375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6376" class="LineNr"> 6376 </span> <span class="subxComment"># convert</span> +<span id="L6377" class="LineNr"> 6377 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6378" class="LineNr"> 6378 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6379" class="LineNr"> 6379 </span> <span class="subxComment"># restore ed</span> +<span id="L6380" class="LineNr"> 6380 </span> 89/<- %edx 4/r32/esp +<span id="L6381" class="LineNr"> 6381 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6382" class="LineNr"> 6382 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6383" class="Folded"> 6383 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6389" class="LineNr"> 6389 </span> <span class="subxComment"># check output</span> +<span id="L6390" class="LineNr"> 6390 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6351'>test-get-with-wrong-output-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L6351'>test-get-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6392" class="LineNr"> 6392 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6393" class="LineNr"> 6393 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6351'>test-get-with-wrong-output-type</a>: exit status"</span>) +<span id="L6394" class="LineNr"> 6394 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6395" class="LineNr"> 6395 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6396" class="LineNr"> 6396 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6397" class="LineNr"> 6397 </span> 5d/pop-to-ebp +<span id="L6398" class="LineNr"> 6398 </span> c3/return +<span id="L6399" class="LineNr"> 6399 </span> +<span id="L6400" class="LineNr"> 6400 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: +<span id="L6401" class="LineNr"> 6401 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6402" class="LineNr"> 6402 </span> 55/push-ebp +<span id="L6403" class="LineNr"> 6403 </span> 89/<- %ebp 4/r32/esp +<span id="L6404" class="LineNr"> 6404 </span> <span class="subxComment"># setup</span> +<span id="L6405" class="LineNr"> 6405 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6406" class="LineNr"> 6406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6407" class="LineNr"> 6407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6408" class="LineNr"> 6408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6409" class="LineNr"> 6409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6410" class="LineNr"> 6410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6411" class="LineNr"> 6411 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6412" class="LineNr"> 6412 </span> 68/push 0/imm32 +<span id="L6413" class="LineNr"> 6413 </span> 68/push 0/imm32 +<span id="L6414" class="LineNr"> 6414 </span> 89/<- %edx 4/r32/esp +<span id="L6415" class="LineNr"> 6415 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6416" class="LineNr"> 6416 </span> <span class="subxComment">#</span> +<span id="L6417" class="LineNr"> 6417 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6418" class="LineNr"> 6418 </span> (<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="L6419" class="LineNr"> 6419 </span> (<a 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="L6420" class="LineNr"> 6420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6421" class="LineNr"> 6421 </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="L6422" class="LineNr"> 6422 </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="L6423" class="LineNr"> 6423 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6424" class="LineNr"> 6424 </span> <span class="subxComment"># convert</span> +<span id="L6425" class="LineNr"> 6425 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6426" class="LineNr"> 6426 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6427" class="LineNr"> 6427 </span> <span class="subxComment"># restore ed</span> +<span id="L6428" class="LineNr"> 6428 </span> 89/<- %edx 4/r32/esp +<span id="L6429" class="LineNr"> 6429 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6430" class="LineNr"> 6430 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6431" class="Folded"> 6431 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6437" class="LineNr"> 6437 </span> <span class="subxComment"># check output</span> +<span id="L6438" class="LineNr"> 6438 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6400'>test-get-with-wrong-output-type-2</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L6400'>test-get-with-wrong-output-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6440" class="LineNr"> 6440 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6441" class="LineNr"> 6441 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6400'>test-get-with-wrong-output-type-2</a>: exit status"</span>) +<span id="L6442" class="LineNr"> 6442 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6443" class="LineNr"> 6443 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6444" class="LineNr"> 6444 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6445" class="LineNr"> 6445 </span> 5d/pop-to-ebp +<span id="L6446" class="LineNr"> 6446 </span> c3/return +<span id="L6447" class="LineNr"> 6447 </span> +<span id="L6448" class="LineNr"> 6448 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: +<span id="L6449" class="LineNr"> 6449 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6450" class="LineNr"> 6450 </span> 55/push-ebp +<span id="L6451" class="LineNr"> 6451 </span> 89/<- %ebp 4/r32/esp +<span id="L6452" class="LineNr"> 6452 </span> <span class="subxComment"># setup</span> +<span id="L6453" class="LineNr"> 6453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6454" class="LineNr"> 6454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6455" class="LineNr"> 6455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6456" class="LineNr"> 6456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6457" class="LineNr"> 6457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6458" class="LineNr"> 6458 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6459" class="LineNr"> 6459 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6460" class="LineNr"> 6460 </span> 68/push 0/imm32 +<span id="L6461" class="LineNr"> 6461 </span> 68/push 0/imm32 +<span id="L6462" class="LineNr"> 6462 </span> 89/<- %edx 4/r32/esp +<span id="L6463" class="LineNr"> 6463 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6464" class="LineNr"> 6464 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L6466" class="LineNr"> 6466 </span> (<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="L6467" class="LineNr"> 6467 </span> (<a 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="L6468" class="LineNr"> 6468 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6469" class="LineNr"> 6469 </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="L6470" class="LineNr"> 6470 </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="L6471" class="LineNr"> 6471 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6472" class="LineNr"> 6472 </span> <span class="subxComment"># convert</span> +<span id="L6473" class="LineNr"> 6473 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6474" class="LineNr"> 6474 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6475" class="LineNr"> 6475 </span> <span class="subxComment"># restore ed</span> +<span id="L6476" class="LineNr"> 6476 </span> 89/<- %edx 4/r32/esp +<span id="L6477" class="LineNr"> 6477 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6478" class="LineNr"> 6478 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6479" class="Folded"> 6479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6485" class="LineNr"> 6485 </span> <span class="subxComment"># check output</span> +<span id="L6486" class="LineNr"> 6486 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6448'>test-get-with-wrong-output-type-3</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L6448'>test-get-with-wrong-output-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6488" class="LineNr"> 6488 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6489" class="LineNr"> 6489 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6448'>test-get-with-wrong-output-type-3</a>: exit status"</span>) +<span id="L6490" class="LineNr"> 6490 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6491" class="LineNr"> 6491 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6492" class="LineNr"> 6492 </span> <span class="subxS1Comment"># . epilogue</span> +<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-get-with-wrong-output-type-4</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#L285'>_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> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6506" class="LineNr"> 6506 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6507" class="LineNr"> 6507 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6508" class="LineNr"> 6508 </span> 68/push 0/imm32 +<span id="L6509" class="LineNr"> 6509 </span> 68/push 0/imm32 +<span id="L6510" class="LineNr"> 6510 </span> 89/<- %edx 4/r32/esp +<span id="L6511" class="LineNr"> 6511 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6512" class="LineNr"> 6512 </span> <span class="subxComment">#</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">"fn foo {\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 a: t\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">" var c/ecx: (addr boolean) <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L6516" class="LineNr"> 6516 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6517" class="LineNr"> 6517 </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="L6518" class="LineNr"> 6518 </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="L6519" class="LineNr"> 6519 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6520" class="LineNr"> 6520 </span> <span class="subxComment"># convert</span> +<span id="L6521" class="LineNr"> 6521 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6522" class="LineNr"> 6522 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6523" class="LineNr"> 6523 </span> <span class="subxComment"># restore ed</span> +<span id="L6524" class="LineNr"> 6524 </span> 89/<- %edx 4/r32/esp +<span id="L6525" class="LineNr"> 6525 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6526" class="LineNr"> 6526 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6527" class="Folded"> 6527 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6533" class="LineNr"> 6533 </span> <span class="subxComment"># check output</span> +<span id="L6534" class="LineNr"> 6534 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-get-with-wrong-output-type-4</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-get-with-wrong-output-type-4</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6536" class="LineNr"> 6536 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6537" class="LineNr"> 6537 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-get-with-wrong-output-type-4</a>: exit status"</span>) +<span id="L6538" class="LineNr"> 6538 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6539" class="LineNr"> 6539 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6540" class="LineNr"> 6540 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6541" class="LineNr"> 6541 </span> 5d/pop-to-ebp +<span id="L6542" class="LineNr"> 6542 </span> c3/return +<span id="L6543" class="LineNr"> 6543 </span> +<span id="L6544" class="LineNr"> 6544 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: +<span id="L6545" class="LineNr"> 6545 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6546" class="LineNr"> 6546 </span> 55/push-ebp +<span id="L6547" class="LineNr"> 6547 </span> 89/<- %ebp 4/r32/esp +<span id="L6548" class="LineNr"> 6548 </span> <span class="subxComment"># setup</span> +<span id="L6549" class="LineNr"> 6549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6550" class="LineNr"> 6550 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6551" class="LineNr"> 6551 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6552" class="LineNr"> 6552 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6553" class="LineNr"> 6553 </span> <span class="subxComment">#</span> +<span id="L6554" class="LineNr"> 6554 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var a: t\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 c/ecx: (addr handle int) <- <a href='../131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\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">" x: (handle int)\n"</span>) +<span id="L6560" class="LineNr"> 6560 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6561" class="LineNr"> 6561 </span> <span class="subxComment"># convert</span> +<span id="L6562" class="LineNr"> 6562 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6563" class="LineNr"> 6563 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6564" class="LineNr"> 6564 </span> <span class="subxComment"># no errors</span> +<span id="L6565" class="LineNr"> 6565 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6566" class="LineNr"> 6566 </span> 89/<- %esp 5/r32/ebp +<span id="L6567" class="LineNr"> 6567 </span> 5d/pop-to-ebp +<span id="L6568" class="LineNr"> 6568 </span> c3/return +<span id="L6569" class="LineNr"> 6569 </span> +<span id="L6570" class="LineNr"> 6570 </span><span class="subxTest">test-get-with-too-few-inouts</span>: +<span id="L6571" class="LineNr"> 6571 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6572" class="LineNr"> 6572 </span> 55/push-ebp +<span id="L6573" class="LineNr"> 6573 </span> 89/<- %ebp 4/r32/esp +<span id="L6574" class="LineNr"> 6574 </span> <span class="subxComment"># setup</span> +<span id="L6575" class="LineNr"> 6575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6576" class="LineNr"> 6576 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6577" class="LineNr"> 6577 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6578" class="LineNr"> 6578 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6579" class="LineNr"> 6579 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6580" class="LineNr"> 6580 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6581" class="LineNr"> 6581 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6582" class="LineNr"> 6582 </span> 68/push 0/imm32 +<span id="L6583" class="LineNr"> 6583 </span> 68/push 0/imm32 +<span id="L6584" class="LineNr"> 6584 </span> 89/<- %edx 4/r32/esp +<span id="L6585" class="LineNr"> 6585 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6586" class="LineNr"> 6586 </span> <span class="subxComment">#</span> +<span id="L6587" class="LineNr"> 6587 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6588" class="LineNr"> 6588 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L6589" class="LineNr"> 6589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a\n"</span>) +<span id="L6590" class="LineNr"> 6590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6591" class="LineNr"> 6591 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6592" class="LineNr"> 6592 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L6593" class="LineNr"> 6593 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6594" class="LineNr"> 6594 </span> <span class="subxComment"># convert</span> +<span id="L6595" class="LineNr"> 6595 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6596" class="LineNr"> 6596 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6597" class="LineNr"> 6597 </span> <span class="subxComment"># restore ed</span> +<span id="L6598" class="LineNr"> 6598 </span> 89/<- %edx 4/r32/esp +<span id="L6599" class="LineNr"> 6599 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6600" class="LineNr"> 6600 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6601" class="Folded"> 6601 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6607" class="LineNr"> 6607 </span> <span class="subxComment"># check output</span> +<span id="L6608" class="LineNr"> 6608 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6570'>test-get-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L6609" class="LineNr"> 6609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6570'>test-get-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6610" class="LineNr"> 6610 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6611" class="LineNr"> 6611 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6570'>test-get-with-too-few-inouts</a>: exit status"</span>) +<span id="L6612" class="LineNr"> 6612 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6613" class="LineNr"> 6613 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6614" class="LineNr"> 6614 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6615" class="LineNr"> 6615 </span> 5d/pop-to-ebp +<span id="L6616" class="LineNr"> 6616 </span> c3/return +<span id="L6617" class="LineNr"> 6617 </span> +<span id="L6618" class="LineNr"> 6618 </span><span class="subxTest">test-get-with-too-many-inouts</span>: +<span id="L6619" class="LineNr"> 6619 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6620" class="LineNr"> 6620 </span> 55/push-ebp +<span id="L6621" class="LineNr"> 6621 </span> 89/<- %ebp 4/r32/esp +<span id="L6622" class="LineNr"> 6622 </span> <span class="subxComment"># setup</span> +<span id="L6623" class="LineNr"> 6623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6624" class="LineNr"> 6624 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6625" class="LineNr"> 6625 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6626" class="LineNr"> 6626 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6627" class="LineNr"> 6627 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6628" class="LineNr"> 6628 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6629" class="LineNr"> 6629 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6630" class="LineNr"> 6630 </span> 68/push 0/imm32 +<span id="L6631" class="LineNr"> 6631 </span> 68/push 0/imm32 +<span id="L6632" class="LineNr"> 6632 </span> 89/<- %edx 4/r32/esp +<span id="L6633" class="LineNr"> 6633 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6634" class="LineNr"> 6634 </span> <span class="subxComment">#</span> +<span id="L6635" class="LineNr"> 6635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6636" class="LineNr"> 6636 </span> (<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="L6637" class="LineNr"> 6637 </span> (<a 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="L6638" class="LineNr"> 6638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L6639" class="LineNr"> 6639 </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="L6640" class="LineNr"> 6640 </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>) @@ -6103,19 +6103,19 @@ if ('onhashchange' in window) { <span id="L6646" class="LineNr"> 6646 </span> 89/<- %edx 4/r32/esp <span id="L6647" class="LineNr"> 6647 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L6648" class="LineNr"> 6648 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L6649" class="Folded"> 6649 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6649" class="Folded"> 6649 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6655" class="LineNr"> 6655 </span> <span class="subxComment"># check output</span> -<span id="L6656" class="LineNr"> 6656 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6616'>test-get-with-too-many-outputs</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6616'>test-get-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6656" class="LineNr"> 6656 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6618'>test-get-with-too-many-inouts</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6618'>test-get-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L6658" class="LineNr"> 6658 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6659" class="LineNr"> 6659 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6616'>test-get-with-too-many-outputs</a>: exit status"</span>) +<span id="L6659" class="LineNr"> 6659 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6618'>test-get-with-too-many-inouts</a>: exit status"</span>) <span id="L6660" class="LineNr"> 6660 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L6661" class="LineNr"> 6661 </span> 81 0/subop/add %esp 8/imm32 <span id="L6662" class="LineNr"> 6662 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L6663" class="LineNr"> 6663 </span> 5d/pop-to-ebp <span id="L6664" class="LineNr"> 6664 </span> c3/return <span id="L6665" class="LineNr"> 6665 </span> -<span id="L6666" class="LineNr"> 6666 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: +<span id="L6666" class="LineNr"> 6666 </span><span class="subxTest">test-get-with-no-output</span>: <span id="L6667" class="LineNr"> 6667 </span> <span class="subxS1Comment"># . prologue</span> <span id="L6668" class="LineNr"> 6668 </span> 55/push-ebp <span id="L6669" class="LineNr"> 6669 </span> 89/<- %ebp 4/r32/esp @@ -6124,11313 +6124,11303 @@ if ('onhashchange' in window) { <span id="L6672" class="LineNr"> 6672 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L6673" class="LineNr"> 6673 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) <span id="L6674" class="LineNr"> 6674 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6675" class="LineNr"> 6675 </span> <span class="subxComment">#</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">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</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">" x: int\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">" y: int\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">"}\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">"fn foo {\n"</span>) -<span id="L6681" class="LineNr"> 6681 </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="L6682" class="LineNr"> 6682 </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="L6683" class="LineNr"> 6683 </span> (<a 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="L6684" class="LineNr"> 6684 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6685" class="LineNr"> 6685 </span> <span class="subxComment"># convert</span> -<span id="L6686" class="LineNr"> 6686 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6687" class="LineNr"> 6687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6688" class="Folded"> 6688 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6694" class="LineNr"> 6694 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) -<span id="L6697" class="LineNr"> 6697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/5"</span>) -<span id="L6701" class="LineNr"> 6701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/6"</span>) -<span id="L6702" class="LineNr"> 6702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-convert-array-of-user-defined-types</a>/20"</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-length-of-array-of-user-defined-types-to-eax</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#L285'>_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">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</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">" x: int\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">" y: int\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">" z: int\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">"}\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">"fn foo {\n"</span>) -<span id="L6735" class="LineNr"> 6735 </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="L6736" class="LineNr"> 6736 </span> (<a 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) <- length arr\n"</span>) -<span id="L6737" class="LineNr"> 6737 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6738" class="LineNr"> 6738 </span> <span class="subxComment"># convert</span> -<span id="L6739" class="LineNr"> 6739 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6740" class="LineNr"> 6740 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6741" class="Folded"> 6741 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6747" class="LineNr"> 6747 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) -<span id="L6750" class="LineNr"> 6750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) -<span id="L6751" class="LineNr"> 6751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) -<span id="L6754" class="LineNr"> 6754 </span> <span class="subxComment"># var arr</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#L285'>_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-length-of-array-of-user-defined-types-to-eax</a>/6"</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#L285'>_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-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) -<span id="L6757" class="LineNr"> 6757 </span> <span class="subxComment"># length instruction</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#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) -<span id="L6766" class="LineNr"> 6766 </span> <span class="subxComment"># reclaim arr</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#L285'>_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-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) -<span id="L6768" class="LineNr"> 6768 </span> <span class="subxComment">#</span> -<span id="L6769" class="LineNr"> 6769 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) -<span id="L6770" class="LineNr"> 6770 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) -<span id="L6771" class="LineNr"> 6771 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) -<span id="L6772" class="LineNr"> 6772 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) -<span id="L6773" class="LineNr"> 6773 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) -<span id="L6774" class="LineNr"> 6774 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) -<span id="L6775" class="LineNr"> 6775 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6776" class="LineNr"> 6776 </span> 89/<- %esp 5/r32/ebp -<span id="L6777" class="LineNr"> 6777 </span> 5d/pop-to-ebp -<span id="L6778" class="LineNr"> 6778 </span> c3/return -<span id="L6779" class="LineNr"> 6779 </span> -<span id="L6780" class="LineNr"> 6780 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: -<span id="L6781" class="LineNr"> 6781 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6782" class="LineNr"> 6782 </span> 55/push-ebp -<span id="L6783" class="LineNr"> 6783 </span> 89/<- %ebp 4/r32/esp -<span id="L6784" class="LineNr"> 6784 </span> <span class="subxComment"># setup</span> -<span id="L6785" class="LineNr"> 6785 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6786" class="LineNr"> 6786 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6787" class="LineNr"> 6787 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6788" class="LineNr"> 6788 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6789" class="LineNr"> 6789 </span> <span class="subxComment">#</span> -<span id="L6790" class="LineNr"> 6790 </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="L6791" class="LineNr"> 6791 </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="L6792" class="LineNr"> 6792 </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="L6793" class="LineNr"> 6793 </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="L6794" class="LineNr"> 6794 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6795" class="LineNr"> 6795 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6796" class="LineNr"> 6796 </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="L6797" class="LineNr"> 6797 </span> (<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) <- length arr\n"</span>) -<span id="L6798" class="LineNr"> 6798 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6799" class="LineNr"> 6799 </span> <span class="subxComment"># convert</span> -<span id="L6800" class="LineNr"> 6800 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6801" class="LineNr"> 6801 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6802" class="Folded"> 6802 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6808" class="LineNr"> 6808 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) -<span id="L6811" class="LineNr"> 6811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) -<span id="L6815" class="LineNr"> 6815 </span> <span class="subxComment"># var a</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) -<span id="L6818" class="LineNr"> 6818 </span> <span class="subxComment"># var x</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) -<span id="L6820" class="LineNr"> 6820 </span> <span class="subxComment"># length instruction</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#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) -<span id="L6823" class="LineNr"> 6823 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) -<span id="L6824" class="LineNr"> 6824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) -<span id="L6825" class="LineNr"> 6825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) -<span id="L6826" class="LineNr"> 6826 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) -<span id="L6827" class="LineNr"> 6827 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) -<span id="L6828" class="LineNr"> 6828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) -<span id="L6829" class="LineNr"> 6829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) -<span id="L6830" class="LineNr"> 6830 </span> <span class="subxComment"># reclaim x</span> -<span id="L6831" class="LineNr"> 6831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) -<span id="L6832" class="LineNr"> 6832 </span> <span class="subxComment"># reclaim a</span> -<span id="L6833" class="LineNr"> 6833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) -<span id="L6834" class="LineNr"> 6834 </span> <span class="subxComment">#</span> -<span id="L6835" class="LineNr"> 6835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) -<span id="L6836" class="LineNr"> 6836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) -<span id="L6838" class="LineNr"> 6838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6780'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) -<span id="L6841" class="LineNr"> 6841 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6842" class="LineNr"> 6842 </span> 89/<- %esp 5/r32/ebp -<span id="L6843" class="LineNr"> 6843 </span> 5d/pop-to-ebp -<span id="L6844" class="LineNr"> 6844 </span> c3/return -<span id="L6845" class="LineNr"> 6845 </span> -<span id="L6846" class="LineNr"> 6846 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: -<span id="L6847" class="LineNr"> 6847 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6848" class="LineNr"> 6848 </span> 55/push-ebp -<span id="L6849" class="LineNr"> 6849 </span> 89/<- %ebp 4/r32/esp -<span id="L6850" class="LineNr"> 6850 </span> <span class="subxComment"># setup</span> -<span id="L6851" class="LineNr"> 6851 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6852" class="LineNr"> 6852 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6853" class="LineNr"> 6853 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6854" class="LineNr"> 6854 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6855" class="LineNr"> 6855 </span> <span class="subxComment">#</span> -<span id="L6856" class="LineNr"> 6856 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L6857" class="LineNr"> 6857 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6858" class="LineNr"> 6858 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6859" class="LineNr"> 6859 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L6860" class="LineNr"> 6860 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6861" class="LineNr"> 6861 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6862" class="LineNr"> 6862 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L6863" class="LineNr"> 6863 </span> (<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: (addr t) <- length arr\n"</span>) -<span id="L6864" class="LineNr"> 6864 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6865" class="LineNr"> 6865 </span> <span class="subxComment"># convert</span> -<span id="L6866" class="LineNr"> 6866 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6867" class="LineNr"> 6867 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6868" class="Folded"> 6868 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6874" class="LineNr"> 6874 </span> <span class="subxComment"># check output</span> -<span id="L6875" class="LineNr"> 6875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) -<span id="L6876" class="LineNr"> 6876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) -<span id="L6877" class="LineNr"> 6877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) -<span id="L6878" class="LineNr"> 6878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) -<span id="L6879" class="LineNr"> 6879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) -<span id="L6880" class="LineNr"> 6880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) -<span id="L6881" class="LineNr"> 6881 </span> <span class="subxComment"># var a</span> -<span id="L6882" class="LineNr"> 6882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) -<span id="L6883" class="LineNr"> 6883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) -<span id="L6884" class="LineNr"> 6884 </span> <span class="subxComment"># var x</span> -<span id="L6885" class="LineNr"> 6885 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) -<span id="L6886" class="LineNr"> 6886 </span> <span class="subxComment"># length instruction</span> -<span id="L6887" class="LineNr"> 6887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) -<span id="L6888" class="LineNr"> 6888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) -<span id="L6889" class="LineNr"> 6889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) -<span id="L6896" class="LineNr"> 6896 </span> <span class="subxComment"># reclaim x</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) -<span id="L6898" class="LineNr"> 6898 </span> <span class="subxComment"># reclaim a</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) -<span id="L6900" class="LineNr"> 6900 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) -<span id="L6904" class="LineNr"> 6904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6846'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) -<span id="L6907" class="LineNr"> 6907 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6908" class="LineNr"> 6908 </span> 89/<- %esp 5/r32/ebp -<span id="L6909" class="LineNr"> 6909 </span> 5d/pop-to-ebp -<span id="L6910" class="LineNr"> 6910 </span> c3/return -<span id="L6911" class="LineNr"> 6911 </span> -<span id="L6912" class="LineNr"> 6912 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: -<span id="L6913" class="LineNr"> 6913 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6914" class="LineNr"> 6914 </span> 55/push-ebp -<span id="L6915" class="LineNr"> 6915 </span> 89/<- %ebp 4/r32/esp -<span id="L6916" class="LineNr"> 6916 </span> <span class="subxComment"># setup</span> -<span id="L6917" class="LineNr"> 6917 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6918" class="LineNr"> 6918 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6919" class="LineNr"> 6919 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6920" class="LineNr"> 6920 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6921" class="LineNr"> 6921 </span> <span class="subxComment">#</span> -<span id="L6922" class="LineNr"> 6922 </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="L6923" class="LineNr"> 6923 </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="L6924" class="LineNr"> 6924 </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="L6925" class="LineNr"> 6925 </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="L6926" class="LineNr"> 6926 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6927" class="LineNr"> 6927 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6928" class="LineNr"> 6928 </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="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">" var x/ebx: (addr t) <- length arr\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">"}\n"</span>) -<span id="L6931" class="LineNr"> 6931 </span> <span class="subxComment"># convert</span> -<span id="L6932" class="LineNr"> 6932 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6933" class="LineNr"> 6933 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6934" class="Folded"> 6934 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6940" class="LineNr"> 6940 </span> <span class="subxComment"># check output</span> -<span id="L6941" class="LineNr"> 6941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) -<span id="L6942" class="LineNr"> 6942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) -<span id="L6943" class="LineNr"> 6943 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) -<span id="L6944" class="LineNr"> 6944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/5"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/12"</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#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) -<span id="L6962" class="LineNr"> 6962 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) -<span id="L6963" class="LineNr"> 6963 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) -<span id="L6964" class="LineNr"> 6964 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/23"</span>) -<span id="L6965" class="LineNr"> 6965 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) -<span id="L6966" class="LineNr"> 6966 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) -<span id="L6967" class="LineNr"> 6967 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/26"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6912'>test-convert-length-of-array-of-user-defined-types</a>/27"</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-index-with-non-array-atom-base-type</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#L285'>_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> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6984" class="LineNr"> 6984 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6985" class="LineNr"> 6985 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6986" class="LineNr"> 6986 </span> 68/push 0/imm32 -<span id="L6987" class="LineNr"> 6987 </span> 68/push 0/imm32 -<span id="L6988" class="LineNr"> 6988 </span> 89/<- %edx 4/r32/esp -<span id="L6989" class="LineNr"> 6989 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6990" class="LineNr"> 6990 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: int\n"</span>) -<span id="L6993" class="LineNr"> 6993 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L6994" class="LineNr"> 6994 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6995" class="LineNr"> 6995 </span> <span class="subxComment"># convert</span> -<span id="L6996" class="LineNr"> 6996 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L6997" class="LineNr"> 6997 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6998" class="LineNr"> 6998 </span> <span class="subxComment"># restore ed</span> -<span id="L6999" class="LineNr"> 6999 </span> 89/<- %edx 4/r32/esp -<span id="L7000" class="LineNr"> 7000 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7001" class="LineNr"> 7001 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7002" class="Folded"> 7002 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7008" class="LineNr"> 7008 </span> <span class="subxComment"># check output</span> -<span id="L7009" class="LineNr"> 7009 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-index-with-non-array-atom-base-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-index-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7011" class="LineNr"> 7011 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7012" class="LineNr"> 7012 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L7013" class="LineNr"> 7013 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7014" class="LineNr"> 7014 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7015" class="LineNr"> 7015 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7016" class="LineNr"> 7016 </span> 5d/pop-to-ebp -<span id="L7017" class="LineNr"> 7017 </span> c3/return -<span id="L7018" class="LineNr"> 7018 </span> -<span id="L7019" class="LineNr"> 7019 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: -<span id="L7020" class="LineNr"> 7020 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7021" class="LineNr"> 7021 </span> 55/push-ebp -<span id="L7022" class="LineNr"> 7022 </span> 89/<- %ebp 4/r32/esp -<span id="L7023" class="LineNr"> 7023 </span> <span class="subxComment"># setup</span> -<span id="L7024" class="LineNr"> 7024 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7025" class="LineNr"> 7025 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7026" class="LineNr"> 7026 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7027" class="LineNr"> 7027 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7028" class="LineNr"> 7028 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7029" class="LineNr"> 7029 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7030" class="LineNr"> 7030 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7031" class="LineNr"> 7031 </span> 68/push 0/imm32 -<span id="L7032" class="LineNr"> 7032 </span> 68/push 0/imm32 -<span id="L7033" class="LineNr"> 7033 </span> 89/<- %edx 4/r32/esp -<span id="L7034" class="LineNr"> 7034 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7035" class="LineNr"> 7035 </span> <span class="subxComment">#</span> -<span id="L7036" class="LineNr"> 7036 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7037" class="LineNr"> 7037 </span> (<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="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">" var c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) -<span id="L7040" class="LineNr"> 7040 </span> <span class="subxComment"># convert</span> -<span id="L7041" class="LineNr"> 7041 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7042" class="LineNr"> 7042 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7043" class="LineNr"> 7043 </span> <span class="subxComment"># restore ed</span> -<span id="L7044" class="LineNr"> 7044 </span> 89/<- %edx 4/r32/esp -<span id="L7045" class="LineNr"> 7045 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7046" class="LineNr"> 7046 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7047" class="Folded"> 7047 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7053" class="LineNr"> 7053 </span> <span class="subxComment"># check output</span> -<span id="L7054" class="LineNr"> 7054 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7019'>test-index-with-non-array-compound-base-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L7019'>test-index-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7056" class="LineNr"> 7056 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7057" class="LineNr"> 7057 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7019'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L7058" class="LineNr"> 7058 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7059" class="LineNr"> 7059 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7060" class="LineNr"> 7060 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7061" class="LineNr"> 7061 </span> 5d/pop-to-ebp -<span id="L7062" class="LineNr"> 7062 </span> c3/return -<span id="L7063" class="LineNr"> 7063 </span> -<span id="L7064" class="LineNr"> 7064 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: -<span id="L7065" class="LineNr"> 7065 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7066" class="LineNr"> 7066 </span> 55/push-ebp -<span id="L7067" class="LineNr"> 7067 </span> 89/<- %ebp 4/r32/esp -<span id="L7068" class="LineNr"> 7068 </span> <span class="subxComment"># setup</span> -<span id="L7069" class="LineNr"> 7069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7070" class="LineNr"> 7070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7071" class="LineNr"> 7071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7072" class="LineNr"> 7072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7073" class="LineNr"> 7073 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7074" class="LineNr"> 7074 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7075" class="LineNr"> 7075 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7076" class="LineNr"> 7076 </span> 68/push 0/imm32 -<span id="L7077" class="LineNr"> 7077 </span> 68/push 0/imm32 -<span id="L7078" class="LineNr"> 7078 </span> 89/<- %edx 4/r32/esp -<span id="L7079" class="LineNr"> 7079 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7080" class="LineNr"> 7080 </span> <span class="subxComment">#</span> -<span id="L7081" class="LineNr"> 7081 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7082" class="LineNr"> 7082 </span> (<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="L7083" class="LineNr"> 7083 </span> (<a 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="L7084" class="LineNr"> 7084 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7085" class="LineNr"> 7085 </span> <span class="subxComment"># convert</span> -<span id="L7086" class="LineNr"> 7086 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7087" class="LineNr"> 7087 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7088" class="LineNr"> 7088 </span> <span class="subxComment"># restore ed</span> -<span id="L7089" class="LineNr"> 7089 </span> 89/<- %edx 4/r32/esp -<span id="L7090" class="LineNr"> 7090 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7091" class="LineNr"> 7091 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7092" class="Folded"> 7092 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7098" class="LineNr"> 7098 </span> <span class="subxComment"># check output</span> -<span id="L7099" class="LineNr"> 7099 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7064'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L7100" class="LineNr"> 7100 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L7064'>test-index-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7101" class="LineNr"> 7101 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7102" class="LineNr"> 7102 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7064'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L7103" class="LineNr"> 7103 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7104" class="LineNr"> 7104 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7105" class="LineNr"> 7105 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7106" class="LineNr"> 7106 </span> 5d/pop-to-ebp -<span id="L7107" class="LineNr"> 7107 </span> c3/return -<span id="L7108" class="LineNr"> 7108 </span> -<span id="L7109" class="LineNr"> 7109 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: -<span id="L7110" class="LineNr"> 7110 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7111" class="LineNr"> 7111 </span> 55/push-ebp -<span id="L7112" class="LineNr"> 7112 </span> 89/<- %ebp 4/r32/esp -<span id="L7113" class="LineNr"> 7113 </span> <span class="subxComment"># setup</span> -<span id="L7114" class="LineNr"> 7114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7115" class="LineNr"> 7115 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7116" class="LineNr"> 7116 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7117" class="LineNr"> 7117 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7118" class="LineNr"> 7118 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7119" class="LineNr"> 7119 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7120" class="LineNr"> 7120 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7121" class="LineNr"> 7121 </span> 68/push 0/imm32 -<span id="L7122" class="LineNr"> 7122 </span> 68/push 0/imm32 -<span id="L7123" class="LineNr"> 7123 </span> 89/<- %edx 4/r32/esp -<span id="L7124" class="LineNr"> 7124 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7125" class="LineNr"> 7125 </span> <span class="subxComment">#</span> -<span id="L7126" class="LineNr"> 7126 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7127" class="LineNr"> 7127 </span> (<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="L7128" class="LineNr"> 7128 </span> (<a 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="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">"}\n"</span>) -<span id="L7130" class="LineNr"> 7130 </span> <span class="subxComment"># convert</span> -<span id="L7131" class="LineNr"> 7131 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7132" class="LineNr"> 7132 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7133" class="LineNr"> 7133 </span> <span class="subxComment"># restore ed</span> -<span id="L7134" class="LineNr"> 7134 </span> 89/<- %edx 4/r32/esp -<span id="L7135" class="LineNr"> 7135 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7136" class="LineNr"> 7136 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7137" class="Folded"> 7137 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7143" class="LineNr"> 7143 </span> <span class="subxComment"># check output</span> -<span id="L7144" class="LineNr"> 7144 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7109'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L7145" class="LineNr"> 7145 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L7109'>test-index-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7146" class="LineNr"> 7146 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7147" class="LineNr"> 7147 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7109'>test-index-with-array-atom-base-type</a>: exit status"</span>) -<span id="L7148" class="LineNr"> 7148 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7149" class="LineNr"> 7149 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7150" class="LineNr"> 7150 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7151" class="LineNr"> 7151 </span> 5d/pop-to-ebp -<span id="L7152" class="LineNr"> 7152 </span> c3/return -<span id="L7153" class="LineNr"> 7153 </span> -<span id="L7154" class="LineNr"> 7154 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: -<span id="L7155" class="LineNr"> 7155 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7156" class="LineNr"> 7156 </span> 55/push-ebp -<span id="L7157" class="LineNr"> 7157 </span> 89/<- %ebp 4/r32/esp -<span id="L7158" class="LineNr"> 7158 </span> <span class="subxComment"># setup</span> -<span id="L7159" class="LineNr"> 7159 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7160" class="LineNr"> 7160 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7161" class="LineNr"> 7161 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7162" class="LineNr"> 7162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7163" class="LineNr"> 7163 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7164" class="LineNr"> 7164 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7165" class="LineNr"> 7165 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7166" class="LineNr"> 7166 </span> 68/push 0/imm32 -<span id="L7167" class="LineNr"> 7167 </span> 68/push 0/imm32 -<span id="L7168" class="LineNr"> 7168 </span> 89/<- %edx 4/r32/esp -<span id="L7169" class="LineNr"> 7169 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7170" class="LineNr"> 7170 </span> <span class="subxComment">#</span> -<span id="L7171" class="LineNr"> 7171 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7172" class="LineNr"> 7172 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) -<span id="L7173" class="LineNr"> 7173 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L7174" class="LineNr"> 7174 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7175" class="LineNr"> 7175 </span> <span class="subxComment"># convert</span> -<span id="L7176" class="LineNr"> 7176 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7177" class="LineNr"> 7177 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7178" class="LineNr"> 7178 </span> <span class="subxComment"># restore ed</span> -<span id="L7179" class="LineNr"> 7179 </span> 89/<- %edx 4/r32/esp -<span id="L7180" class="LineNr"> 7180 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7181" class="LineNr"> 7181 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7182" class="Folded"> 7182 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7188" class="LineNr"> 7188 </span> <span class="subxComment"># check output</span> -<span id="L7189" class="LineNr"> 7189 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7154'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L7190" class="LineNr"> 7190 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7154'>test-index-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7191" class="LineNr"> 7191 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7192" class="LineNr"> 7192 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7154'>test-index-with-addr-base-on-stack</a>: exit status"</span>) -<span id="L7193" class="LineNr"> 7193 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7194" class="LineNr"> 7194 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7195" class="LineNr"> 7195 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7196" class="LineNr"> 7196 </span> 5d/pop-to-ebp -<span id="L7197" class="LineNr"> 7197 </span> c3/return -<span id="L7198" class="LineNr"> 7198 </span> -<span id="L7199" class="LineNr"> 7199 </span><span class="subxTest">test-index-with-array-base-in-register</span>: -<span id="L7200" class="LineNr"> 7200 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7201" class="LineNr"> 7201 </span> 55/push-ebp -<span id="L7202" class="LineNr"> 7202 </span> 89/<- %ebp 4/r32/esp -<span id="L7203" class="LineNr"> 7203 </span> <span class="subxComment"># setup</span> -<span id="L7204" class="LineNr"> 7204 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7205" class="LineNr"> 7205 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7206" class="LineNr"> 7206 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7207" class="LineNr"> 7207 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7208" class="LineNr"> 7208 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7209" class="LineNr"> 7209 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7210" class="LineNr"> 7210 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7211" class="LineNr"> 7211 </span> 68/push 0/imm32 -<span id="L7212" class="LineNr"> 7212 </span> 68/push 0/imm32 -<span id="L7213" class="LineNr"> 7213 </span> 89/<- %edx 4/r32/esp -<span id="L7214" class="LineNr"> 7214 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7215" class="LineNr"> 7215 </span> <span class="subxComment">#</span> -<span id="L7216" class="LineNr"> 7216 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7217" class="LineNr"> 7217 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (array int 3) <- copy 0\n"</span>) -<span id="L7218" class="LineNr"> 7218 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L7219" class="LineNr"> 7219 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7220" class="LineNr"> 7220 </span> <span class="subxComment"># convert</span> -<span id="L7221" class="LineNr"> 7221 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7222" class="LineNr"> 7222 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7223" class="LineNr"> 7223 </span> <span class="subxComment"># restore ed</span> -<span id="L7224" class="LineNr"> 7224 </span> 89/<- %edx 4/r32/esp -<span id="L7225" class="LineNr"> 7225 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7226" class="LineNr"> 7226 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7227" class="Folded"> 7227 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7233" class="LineNr"> 7233 </span> <span class="subxComment"># check output</span> -<span id="L7234" class="LineNr"> 7234 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7199'>test-index-with-array-base-in-register</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an array, and so must live on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L7199'>test-index-with-array-base-in-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7236" class="LineNr"> 7236 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7237" class="LineNr"> 7237 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7199'>test-index-with-array-base-in-register</a>: exit status"</span>) -<span id="L7238" class="LineNr"> 7238 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7239" class="LineNr"> 7239 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7240" class="LineNr"> 7240 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7241" class="LineNr"> 7241 </span> 5d/pop-to-ebp -<span id="L7242" class="LineNr"> 7242 </span> c3/return -<span id="L7243" class="LineNr"> 7243 </span> -<span id="L7244" class="LineNr"> 7244 </span><span class="subxTest">test-index-with-wrong-index-type</span>: -<span id="L7245" class="LineNr"> 7245 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7246" class="LineNr"> 7246 </span> 55/push-ebp -<span id="L7247" class="LineNr"> 7247 </span> 89/<- %ebp 4/r32/esp -<span id="L7248" class="LineNr"> 7248 </span> <span class="subxComment"># setup</span> -<span id="L7249" class="LineNr"> 7249 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7250" class="LineNr"> 7250 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7251" class="LineNr"> 7251 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7252" class="LineNr"> 7252 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7253" class="LineNr"> 7253 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7254" class="LineNr"> 7254 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7255" class="LineNr"> 7255 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7256" class="LineNr"> 7256 </span> 68/push 0/imm32 -<span id="L7257" class="LineNr"> 7257 </span> 68/push 0/imm32 -<span id="L7258" class="LineNr"> 7258 </span> 89/<- %edx 4/r32/esp -<span id="L7259" class="LineNr"> 7259 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7260" class="LineNr"> 7260 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/eax: (addr array int) <- copy 0\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">" var b: boolean\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">" var c/ecx: (addr int) <- index a, b\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">"}\n"</span>) -<span id="L7266" class="LineNr"> 7266 </span> <span class="subxComment"># convert</span> -<span id="L7267" class="LineNr"> 7267 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7268" class="LineNr"> 7268 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7269" class="LineNr"> 7269 </span> <span class="subxComment"># restore ed</span> -<span id="L7270" class="LineNr"> 7270 </span> 89/<- %edx 4/r32/esp -<span id="L7271" class="LineNr"> 7271 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7272" class="LineNr"> 7272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7273" class="Folded"> 7273 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7279" class="LineNr"> 7279 </span> <span class="subxComment"># check output</span> -<span id="L7280" class="LineNr"> 7280 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7244'>test-index-with-wrong-index-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L7244'>test-index-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7282" class="LineNr"> 7282 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7283" class="LineNr"> 7283 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7244'>test-index-with-wrong-index-type</a>: exit status"</span>) -<span id="L7284" class="LineNr"> 7284 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7285" class="LineNr"> 7285 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7286" class="LineNr"> 7286 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7287" class="LineNr"> 7287 </span> 5d/pop-to-ebp -<span id="L7288" class="LineNr"> 7288 </span> c3/return -<span id="L7289" class="LineNr"> 7289 </span> -<span id="L7290" class="LineNr"> 7290 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: -<span id="L7291" class="LineNr"> 7291 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7292" class="LineNr"> 7292 </span> 55/push-ebp -<span id="L7293" class="LineNr"> 7293 </span> 89/<- %ebp 4/r32/esp -<span id="L7294" class="LineNr"> 7294 </span> <span class="subxComment"># setup</span> -<span id="L7295" class="LineNr"> 7295 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7296" class="LineNr"> 7296 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7297" class="LineNr"> 7297 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7298" class="LineNr"> 7298 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7299" class="LineNr"> 7299 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7300" class="LineNr"> 7300 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7301" class="LineNr"> 7301 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7302" class="LineNr"> 7302 </span> 68/push 0/imm32 -<span id="L7303" class="LineNr"> 7303 </span> 68/push 0/imm32 -<span id="L7304" class="LineNr"> 7304 </span> 89/<- %edx 4/r32/esp -<span id="L7305" class="LineNr"> 7305 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7306" class="LineNr"> 7306 </span> <span class="subxComment">#</span> -<span id="L7307" class="LineNr"> 7307 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7308" class="LineNr"> 7308 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L7309" class="LineNr"> 7309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: offset\n"</span>) -<span id="L7310" class="LineNr"> 7310 </span> (<a 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="L7311" class="LineNr"> 7311 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7312" class="LineNr"> 7312 </span> <span class="subxComment"># convert</span> -<span id="L7313" class="LineNr"> 7313 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7314" class="LineNr"> 7314 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7315" class="LineNr"> 7315 </span> <span class="subxComment"># restore ed</span> -<span id="L7316" class="LineNr"> 7316 </span> 89/<- %edx 4/r32/esp -<span id="L7317" class="LineNr"> 7317 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7318" class="LineNr"> 7318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7319" class="Folded"> 7319 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7325" class="LineNr"> 7325 </span> <span class="subxComment"># check output</span> -<span id="L7326" class="LineNr"> 7326 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7290'>test-index-with-offset-atom-index-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L7290'>test-index-with-offset-atom-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7328" class="LineNr"> 7328 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7329" class="LineNr"> 7329 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7290'>test-index-with-offset-atom-index-type</a>: exit status"</span>) -<span id="L7330" class="LineNr"> 7330 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7331" class="LineNr"> 7331 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7332" class="LineNr"> 7332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7333" class="LineNr"> 7333 </span> 5d/pop-to-ebp -<span id="L7334" class="LineNr"> 7334 </span> c3/return -<span id="L7335" class="LineNr"> 7335 </span> -<span id="L7336" class="LineNr"> 7336 </span><span class="subxTest">test-index-with-offset-on-stack</span>: -<span id="L7337" class="LineNr"> 7337 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7338" class="LineNr"> 7338 </span> 55/push-ebp -<span id="L7339" class="LineNr"> 7339 </span> 89/<- %ebp 4/r32/esp -<span id="L7340" class="LineNr"> 7340 </span> <span class="subxComment"># setup</span> -<span id="L7341" class="LineNr"> 7341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7342" class="LineNr"> 7342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7343" class="LineNr"> 7343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7344" class="LineNr"> 7344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7345" class="LineNr"> 7345 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7346" class="LineNr"> 7346 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7347" class="LineNr"> 7347 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7348" class="LineNr"> 7348 </span> 68/push 0/imm32 -<span id="L7349" class="LineNr"> 7349 </span> 68/push 0/imm32 -<span id="L7350" class="LineNr"> 7350 </span> 89/<- %edx 4/r32/esp -<span id="L7351" class="LineNr"> 7351 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7352" class="LineNr"> 7352 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/eax: (addr array int) <- copy 0\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">" var b: int\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 c/ecx: (addr int) <- index a, b\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> <span class="subxComment"># convert</span> -<span id="L7359" class="LineNr"> 7359 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7360" class="LineNr"> 7360 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7361" class="LineNr"> 7361 </span> <span class="subxComment"># restore ed</span> -<span id="L7362" class="LineNr"> 7362 </span> 89/<- %edx 4/r32/esp -<span id="L7363" class="LineNr"> 7363 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7364" class="LineNr"> 7364 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7365" class="Folded"> 7365 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-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#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7336'>test-index-with-offset-on-stack</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7336'>test-index-with-offset-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7374" class="LineNr"> 7374 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7375" class="LineNr"> 7375 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7336'>test-index-with-offset-on-stack</a>: exit status"</span>) -<span id="L7376" class="LineNr"> 7376 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7377" class="LineNr"> 7377 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7378" class="LineNr"> 7378 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7379" class="LineNr"> 7379 </span> 5d/pop-to-ebp -<span id="L7380" class="LineNr"> 7380 </span> c3/return -<span id="L7381" class="LineNr"> 7381 </span> -<span id="L7382" class="LineNr"> 7382 </span><span class="subxTest">test-index-needs-offset-type</span>: -<span id="L7383" class="LineNr"> 7383 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7384" class="LineNr"> 7384 </span> 55/push-ebp -<span id="L7385" class="LineNr"> 7385 </span> 89/<- %ebp 4/r32/esp -<span id="L7386" class="LineNr"> 7386 </span> <span class="subxComment"># setup</span> -<span id="L7387" class="LineNr"> 7387 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7388" class="LineNr"> 7388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7389" class="LineNr"> 7389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7390" class="LineNr"> 7390 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7391" class="LineNr"> 7391 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7392" class="LineNr"> 7392 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7393" class="LineNr"> 7393 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7394" class="LineNr"> 7394 </span> 68/push 0/imm32 -<span id="L7395" class="LineNr"> 7395 </span> 68/push 0/imm32 -<span id="L7396" class="LineNr"> 7396 </span> 89/<- %edx 4/r32/esp -<span id="L7397" class="LineNr"> 7397 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7398" class="LineNr"> 7398 </span> <span class="subxComment">#</span> -<span id="L7399" class="LineNr"> 7399 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7400" class="LineNr"> 7400 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array t) <- copy 0\n"</span>) -<span id="L7401" class="LineNr"> 7401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L7402" class="LineNr"> 7402 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L7403" class="LineNr"> 7403 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7404" class="LineNr"> 7404 </span> (<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="L7405" class="LineNr"> 7405 </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="L7406" class="LineNr"> 7406 </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="L7407" class="LineNr"> 7407 </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="L7408" class="LineNr"> 7408 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7409" class="LineNr"> 7409 </span> <span class="subxComment"># convert</span> -<span id="L7410" class="LineNr"> 7410 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7411" class="LineNr"> 7411 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7412" class="LineNr"> 7412 </span> <span class="subxComment"># restore ed</span> -<span id="L7413" class="LineNr"> 7413 </span> 89/<- %edx 4/r32/esp -<span id="L7414" class="LineNr"> 7414 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7415" class="LineNr"> 7415 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7416" class="Folded"> 7416 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7422" class="LineNr"> 7422 </span> <span class="subxComment"># check output</span> -<span id="L7423" class="LineNr"> 7423 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7382'>test-index-needs-offset-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L7382'>test-index-needs-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7425" class="LineNr"> 7425 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7426" class="LineNr"> 7426 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7382'>test-index-needs-offset-type</a>: exit status"</span>) -<span id="L7427" class="LineNr"> 7427 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7428" class="LineNr"> 7428 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7429" class="LineNr"> 7429 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7430" class="LineNr"> 7430 </span> 5d/pop-to-ebp -<span id="L7431" class="LineNr"> 7431 </span> c3/return -<span id="L7432" class="LineNr"> 7432 </span> -<span id="L7433" class="LineNr"> 7433 </span><span class="subxTest">test-index-with-output-not-address</span>: -<span id="L7434" class="LineNr"> 7434 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7435" class="LineNr"> 7435 </span> 55/push-ebp -<span id="L7436" class="LineNr"> 7436 </span> 89/<- %ebp 4/r32/esp -<span id="L7437" class="LineNr"> 7437 </span> <span class="subxComment"># setup</span> -<span id="L7438" class="LineNr"> 7438 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7439" class="LineNr"> 7439 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7440" class="LineNr"> 7440 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7441" class="LineNr"> 7441 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7442" class="LineNr"> 7442 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7443" class="LineNr"> 7443 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7444" class="LineNr"> 7444 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7445" class="LineNr"> 7445 </span> 68/push 0/imm32 +<span id="L6675" class="LineNr"> 6675 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6676" class="LineNr"> 6676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6677" class="LineNr"> 6677 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6678" class="LineNr"> 6678 </span> 68/push 0/imm32 +<span id="L6679" class="LineNr"> 6679 </span> 68/push 0/imm32 +<span id="L6680" class="LineNr"> 6680 </span> 89/<- %edx 4/r32/esp +<span id="L6681" class="LineNr"> 6681 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6682" class="LineNr"> 6682 </span> <span class="subxComment">#</span> +<span id="L6683" class="LineNr"> 6683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6684" class="LineNr"> 6684 </span> (<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="L6685" class="LineNr"> 6685 </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="L6686" class="LineNr"> 6686 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6687" class="LineNr"> 6687 </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="L6688" class="LineNr"> 6688 </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="L6689" class="LineNr"> 6689 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6690" class="LineNr"> 6690 </span> <span class="subxComment"># convert</span> +<span id="L6691" class="LineNr"> 6691 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6692" class="LineNr"> 6692 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6693" class="LineNr"> 6693 </span> <span class="subxComment"># restore ed</span> +<span id="L6694" class="LineNr"> 6694 </span> 89/<- %edx 4/r32/esp +<span id="L6695" class="LineNr"> 6695 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6696" class="LineNr"> 6696 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6697" class="Folded"> 6697 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6703" class="LineNr"> 6703 </span> <span class="subxComment"># check output</span> +<span id="L6704" class="LineNr"> 6704 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-get-with-no-output</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-get-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6706" class="LineNr"> 6706 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6707" class="LineNr"> 6707 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6666'>test-get-with-no-output</a>: exit status"</span>) +<span id="L6708" class="LineNr"> 6708 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6709" class="LineNr"> 6709 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6710" class="LineNr"> 6710 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6711" class="LineNr"> 6711 </span> 5d/pop-to-ebp +<span id="L6712" class="LineNr"> 6712 </span> c3/return +<span id="L6713" class="LineNr"> 6713 </span> +<span id="L6714" class="LineNr"> 6714 </span><span class="subxTest">test-get-with-too-many-outputs</span>: +<span id="L6715" class="LineNr"> 6715 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6716" class="LineNr"> 6716 </span> 55/push-ebp +<span id="L6717" class="LineNr"> 6717 </span> 89/<- %ebp 4/r32/esp +<span id="L6718" class="LineNr"> 6718 </span> <span class="subxComment"># setup</span> +<span id="L6719" class="LineNr"> 6719 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6720" class="LineNr"> 6720 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6721" class="LineNr"> 6721 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6722" class="LineNr"> 6722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6723" class="LineNr"> 6723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L6724" class="LineNr"> 6724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6725" class="LineNr"> 6725 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6726" class="LineNr"> 6726 </span> 68/push 0/imm32 +<span id="L6727" class="LineNr"> 6727 </span> 68/push 0/imm32 +<span id="L6728" class="LineNr"> 6728 </span> 89/<- %edx 4/r32/esp +<span id="L6729" class="LineNr"> 6729 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6730" class="LineNr"> 6730 </span> <span class="subxComment">#</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">"fn foo {\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 a: t\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 b: int\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">" var c/eax: (addr int) <- copy 0\n"</span>) +<span id="L6735" class="LineNr"> 6735 </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="L6736" class="LineNr"> 6736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6737" class="LineNr"> 6737 </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="L6738" class="LineNr"> 6738 </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="L6739" class="LineNr"> 6739 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6740" class="LineNr"> 6740 </span> <span class="subxComment"># convert</span> +<span id="L6741" class="LineNr"> 6741 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L6742" class="LineNr"> 6742 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6743" class="LineNr"> 6743 </span> <span class="subxComment"># restore ed</span> +<span id="L6744" class="LineNr"> 6744 </span> 89/<- %edx 4/r32/esp +<span id="L6745" class="LineNr"> 6745 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6746" class="LineNr"> 6746 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L6747" class="Folded"> 6747 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6753" class="LineNr"> 6753 </span> <span class="subxComment"># check output</span> +<span id="L6754" class="LineNr"> 6754 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6714'>test-get-with-too-many-outputs</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6714'>test-get-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L6756" class="LineNr"> 6756 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6757" class="LineNr"> 6757 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6714'>test-get-with-too-many-outputs</a>: exit status"</span>) +<span id="L6758" class="LineNr"> 6758 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6759" class="LineNr"> 6759 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6760" class="LineNr"> 6760 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6761" class="LineNr"> 6761 </span> 5d/pop-to-ebp +<span id="L6762" class="LineNr"> 6762 </span> c3/return +<span id="L6763" class="LineNr"> 6763 </span> +<span id="L6764" class="LineNr"> 6764 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: +<span id="L6765" class="LineNr"> 6765 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6766" class="LineNr"> 6766 </span> 55/push-ebp +<span id="L6767" class="LineNr"> 6767 </span> 89/<- %ebp 4/r32/esp +<span id="L6768" class="LineNr"> 6768 </span> <span class="subxComment"># setup</span> +<span id="L6769" class="LineNr"> 6769 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6770" class="LineNr"> 6770 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6771" class="LineNr"> 6771 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6772" class="LineNr"> 6772 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6773" class="LineNr"> 6773 </span> <span class="subxComment">#</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">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</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">" x: int\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">" y: int\n"</span>) +<span id="L6777" class="LineNr"> 6777 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6778" class="LineNr"> 6778 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6779" class="LineNr"> 6779 </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="L6780" class="LineNr"> 6780 </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="L6781" class="LineNr"> 6781 </span> (<a 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="L6782" class="LineNr"> 6782 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6783" class="LineNr"> 6783 </span> <span class="subxComment"># convert</span> +<span id="L6784" class="LineNr"> 6784 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6785" class="LineNr"> 6785 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6786" class="Folded"> 6786 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6792" class="LineNr"> 6792 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) +<span id="L6795" class="LineNr"> 6795 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/5"</span>) +<span id="L6799" class="LineNr"> 6799 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/6"</span>) +<span id="L6800" class="LineNr"> 6800 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/7"</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/13"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6764'>test-convert-array-of-user-defined-types</a>/20"</span>) +<span id="L6812" class="LineNr"> 6812 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6813" class="LineNr"> 6813 </span> 89/<- %esp 5/r32/ebp +<span id="L6814" class="LineNr"> 6814 </span> 5d/pop-to-ebp +<span id="L6815" class="LineNr"> 6815 </span> c3/return +<span id="L6816" class="LineNr"> 6816 </span> +<span id="L6817" class="LineNr"> 6817 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: +<span id="L6818" class="LineNr"> 6818 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6819" class="LineNr"> 6819 </span> 55/push-ebp +<span id="L6820" class="LineNr"> 6820 </span> 89/<- %ebp 4/r32/esp +<span id="L6821" class="LineNr"> 6821 </span> <span class="subxComment"># setup</span> +<span id="L6822" class="LineNr"> 6822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6823" class="LineNr"> 6823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6824" class="LineNr"> 6824 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6825" class="LineNr"> 6825 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6826" class="LineNr"> 6826 </span> <span class="subxComment">#</span> +<span id="L6827" class="LineNr"> 6827 </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="L6828" class="LineNr"> 6828 </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="L6829" class="LineNr"> 6829 </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="L6830" class="LineNr"> 6830 </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="L6831" class="LineNr"> 6831 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6832" class="LineNr"> 6832 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6833" class="LineNr"> 6833 </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="L6834" class="LineNr"> 6834 </span> (<a 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) <- length arr\n"</span>) +<span id="L6835" class="LineNr"> 6835 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6836" class="LineNr"> 6836 </span> <span class="subxComment"># convert</span> +<span id="L6837" class="LineNr"> 6837 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6838" class="LineNr"> 6838 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6839" class="Folded"> 6839 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6845" class="LineNr"> 6845 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) +<span id="L6848" class="LineNr"> 6848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) +<span id="L6852" class="LineNr"> 6852 </span> <span class="subxComment"># var arr</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#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</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#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) +<span id="L6855" class="LineNr"> 6855 </span> <span class="subxComment"># length instruction</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#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</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#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</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#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</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#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</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#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) +<span id="L6861" class="LineNr"> 6861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</span>) +<span id="L6862" class="LineNr"> 6862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</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#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) +<span id="L6864" class="LineNr"> 6864 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6865" class="LineNr"> 6865 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) +<span id="L6866" class="LineNr"> 6866 </span> <span class="subxComment">#</span> +<span id="L6867" class="LineNr"> 6867 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) +<span id="L6868" class="LineNr"> 6868 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) +<span id="L6869" class="LineNr"> 6869 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) +<span id="L6870" class="LineNr"> 6870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) +<span id="L6871" class="LineNr"> 6871 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) +<span id="L6872" class="LineNr"> 6872 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6817'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) +<span id="L6873" class="LineNr"> 6873 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6874" class="LineNr"> 6874 </span> 89/<- %esp 5/r32/ebp +<span id="L6875" class="LineNr"> 6875 </span> 5d/pop-to-ebp +<span id="L6876" class="LineNr"> 6876 </span> c3/return +<span id="L6877" class="LineNr"> 6877 </span> +<span id="L6878" class="LineNr"> 6878 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: +<span id="L6879" class="LineNr"> 6879 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6880" class="LineNr"> 6880 </span> 55/push-ebp +<span id="L6881" class="LineNr"> 6881 </span> 89/<- %ebp 4/r32/esp +<span id="L6882" class="LineNr"> 6882 </span> <span class="subxComment"># setup</span> +<span id="L6883" class="LineNr"> 6883 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6884" class="LineNr"> 6884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6885" class="LineNr"> 6885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6886" class="LineNr"> 6886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6887" class="LineNr"> 6887 </span> <span class="subxComment">#</span> +<span id="L6888" class="LineNr"> 6888 </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="L6889" class="LineNr"> 6889 </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="L6890" class="LineNr"> 6890 </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="L6891" class="LineNr"> 6891 </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="L6892" class="LineNr"> 6892 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</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 {\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 arr/eax: (addr array t) <- copy 0\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 x/ecx: (addr t) <- length arr\n"</span>) +<span id="L6896" class="LineNr"> 6896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6897" class="LineNr"> 6897 </span> <span class="subxComment"># convert</span> +<span id="L6898" class="LineNr"> 6898 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6899" class="LineNr"> 6899 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6900" class="Folded"> 6900 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6906" class="LineNr"> 6906 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) +<span id="L6909" class="LineNr"> 6909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</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#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) +<span id="L6913" class="LineNr"> 6913 </span> <span class="subxComment"># var a</span> +<span id="L6914" class="LineNr"> 6914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) +<span id="L6915" class="LineNr"> 6915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) +<span id="L6916" class="LineNr"> 6916 </span> <span class="subxComment"># var x</span> +<span id="L6917" class="LineNr"> 6917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) +<span id="L6918" class="LineNr"> 6918 </span> <span class="subxComment"># length instruction</span> +<span id="L6919" class="LineNr"> 6919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) +<span id="L6920" class="LineNr"> 6920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) +<span id="L6921" class="LineNr"> 6921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) +<span id="L6922" class="LineNr"> 6922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) +<span id="L6923" class="LineNr"> 6923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) +<span id="L6924" class="LineNr"> 6924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) +<span id="L6925" class="LineNr"> 6925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) +<span id="L6926" class="LineNr"> 6926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) +<span id="L6927" class="LineNr"> 6927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) +<span id="L6928" class="LineNr"> 6928 </span> <span class="subxComment"># reclaim x</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) +<span id="L6930" class="LineNr"> 6930 </span> <span class="subxComment"># reclaim a</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) +<span id="L6932" class="LineNr"> 6932 </span> <span class="subxComment">#</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) +<span id="L6935" class="LineNr"> 6935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) +<span id="L6936" class="LineNr"> 6936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) +<span id="L6937" class="LineNr"> 6937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) +<span id="L6938" class="LineNr"> 6938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6878'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) +<span id="L6939" class="LineNr"> 6939 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6940" class="LineNr"> 6940 </span> 89/<- %esp 5/r32/ebp +<span id="L6941" class="LineNr"> 6941 </span> 5d/pop-to-ebp +<span id="L6942" class="LineNr"> 6942 </span> c3/return +<span id="L6943" class="LineNr"> 6943 </span> +<span id="L6944" class="LineNr"> 6944 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: +<span id="L6945" class="LineNr"> 6945 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6946" class="LineNr"> 6946 </span> 55/push-ebp +<span id="L6947" class="LineNr"> 6947 </span> 89/<- %ebp 4/r32/esp +<span id="L6948" class="LineNr"> 6948 </span> <span class="subxComment"># setup</span> +<span id="L6949" class="LineNr"> 6949 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6950" class="LineNr"> 6950 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6951" class="LineNr"> 6951 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L6952" class="LineNr"> 6952 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6953" class="LineNr"> 6953 </span> <span class="subxComment">#</span> +<span id="L6954" class="LineNr"> 6954 </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="L6955" class="LineNr"> 6955 </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="L6956" class="LineNr"> 6956 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L6957" class="LineNr"> 6957 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L6958" class="LineNr"> 6958 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6959" class="LineNr"> 6959 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6960" class="LineNr"> 6960 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L6961" class="LineNr"> 6961 </span> (<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: (addr t) <- length arr\n"</span>) +<span id="L6962" class="LineNr"> 6962 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6963" class="LineNr"> 6963 </span> <span class="subxComment"># convert</span> +<span id="L6964" class="LineNr"> 6964 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6965" class="LineNr"> 6965 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L6966" class="Folded"> 6966 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6972" class="LineNr"> 6972 </span> <span class="subxComment"># check output</span> +<span id="L6973" class="LineNr"> 6973 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) +<span id="L6974" class="LineNr"> 6974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) +<span id="L6975" class="LineNr"> 6975 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) +<span id="L6976" class="LineNr"> 6976 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) +<span id="L6977" class="LineNr"> 6977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) +<span id="L6978" class="LineNr"> 6978 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) +<span id="L6979" class="LineNr"> 6979 </span> <span class="subxComment"># var a</span> +<span id="L6980" class="LineNr"> 6980 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) +<span id="L6981" class="LineNr"> 6981 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) +<span id="L6982" class="LineNr"> 6982 </span> <span class="subxComment"># var x</span> +<span id="L6983" class="LineNr"> 6983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) +<span id="L6984" class="LineNr"> 6984 </span> <span class="subxComment"># length instruction</span> +<span id="L6985" class="LineNr"> 6985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) +<span id="L6986" class="LineNr"> 6986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) +<span id="L6987" class="LineNr"> 6987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) +<span id="L6988" class="LineNr"> 6988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) +<span id="L6989" class="LineNr"> 6989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) +<span id="L6990" class="LineNr"> 6990 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) +<span id="L6991" class="LineNr"> 6991 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) +<span id="L6992" class="LineNr"> 6992 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) +<span id="L6993" class="LineNr"> 6993 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) +<span id="L6994" class="LineNr"> 6994 </span> <span class="subxComment"># reclaim x</span> +<span id="L6995" class="LineNr"> 6995 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) +<span id="L6996" class="LineNr"> 6996 </span> <span class="subxComment"># reclaim a</span> +<span id="L6997" class="LineNr"> 6997 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) +<span id="L6998" class="LineNr"> 6998 </span> <span class="subxComment">#</span> +<span id="L6999" class="LineNr"> 6999 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) +<span id="L7000" class="LineNr"> 7000 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) +<span id="L7001" class="LineNr"> 7001 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) +<span id="L7002" class="LineNr"> 7002 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6944'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) +<span id="L7005" class="LineNr"> 7005 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7006" class="LineNr"> 7006 </span> 89/<- %esp 5/r32/ebp +<span id="L7007" class="LineNr"> 7007 </span> 5d/pop-to-ebp +<span id="L7008" class="LineNr"> 7008 </span> c3/return +<span id="L7009" class="LineNr"> 7009 </span> +<span id="L7010" class="LineNr"> 7010 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: +<span id="L7011" class="LineNr"> 7011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7012" class="LineNr"> 7012 </span> 55/push-ebp +<span id="L7013" class="LineNr"> 7013 </span> 89/<- %ebp 4/r32/esp +<span id="L7014" class="LineNr"> 7014 </span> <span class="subxComment"># setup</span> +<span id="L7015" class="LineNr"> 7015 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7016" class="LineNr"> 7016 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7017" class="LineNr"> 7017 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7018" class="LineNr"> 7018 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7019" class="LineNr"> 7019 </span> <span class="subxComment">#</span> +<span id="L7020" class="LineNr"> 7020 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> +<span id="L7021" class="LineNr"> 7021 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7022" class="LineNr"> 7022 </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="L7023" class="LineNr"> 7023 </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="L7024" class="LineNr"> 7024 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7025" class="LineNr"> 7025 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7026" class="LineNr"> 7026 </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="L7027" class="LineNr"> 7027 </span> (<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: (addr t) <- length arr\n"</span>) +<span id="L7028" class="LineNr"> 7028 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7029" class="LineNr"> 7029 </span> <span class="subxComment"># convert</span> +<span id="L7030" class="LineNr"> 7030 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7031" class="LineNr"> 7031 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7032" class="Folded"> 7032 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7038" class="LineNr"> 7038 </span> <span class="subxComment"># check output</span> +<span id="L7039" class="LineNr"> 7039 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) +<span id="L7040" class="LineNr"> 7040 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) +<span id="L7041" class="LineNr"> 7041 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) +<span id="L7042" class="LineNr"> 7042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) +<span id="L7043" class="LineNr"> 7043 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) +<span id="L7044" class="LineNr"> 7044 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) +<span id="L7045" class="LineNr"> 7045 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) +<span id="L7046" class="LineNr"> 7046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) +<span id="L7047" class="LineNr"> 7047 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) +<span id="L7048" class="LineNr"> 7048 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) +<span id="L7049" class="LineNr"> 7049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) +<span id="L7050" class="LineNr"> 7050 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) +<span id="L7051" class="LineNr"> 7051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) +<span id="L7052" class="LineNr"> 7052 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) +<span id="L7053" class="LineNr"> 7053 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) +<span id="L7054" class="LineNr"> 7054 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/15"</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#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/16"</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#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/17"</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#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/18"</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#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/19"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/20"</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#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/21"</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#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/22"</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#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/23"</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#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) +<span id="L7064" class="LineNr"> 7064 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/25"</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#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/26"</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#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7010'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) +<span id="L7067" class="LineNr"> 7067 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7068" class="LineNr"> 7068 </span> 89/<- %esp 5/r32/ebp +<span id="L7069" class="LineNr"> 7069 </span> 5d/pop-to-ebp +<span id="L7070" class="LineNr"> 7070 </span> c3/return +<span id="L7071" class="LineNr"> 7071 </span> +<span id="L7072" class="LineNr"> 7072 </span><span class="subxTest">test-index-with-non-array-atom-base-type</span>: +<span id="L7073" class="LineNr"> 7073 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7074" class="LineNr"> 7074 </span> 55/push-ebp +<span id="L7075" class="LineNr"> 7075 </span> 89/<- %ebp 4/r32/esp +<span id="L7076" class="LineNr"> 7076 </span> <span class="subxComment"># setup</span> +<span id="L7077" class="LineNr"> 7077 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7078" class="LineNr"> 7078 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7079" class="LineNr"> 7079 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7080" class="LineNr"> 7080 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7081" class="LineNr"> 7081 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7082" class="LineNr"> 7082 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7083" class="LineNr"> 7083 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7084" class="LineNr"> 7084 </span> 68/push 0/imm32 +<span id="L7085" class="LineNr"> 7085 </span> 68/push 0/imm32 +<span id="L7086" class="LineNr"> 7086 </span> 89/<- %edx 4/r32/esp +<span id="L7087" class="LineNr"> 7087 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7088" class="LineNr"> 7088 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: int\n"</span>) +<span id="L7091" class="LineNr"> 7091 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) +<span id="L7093" class="LineNr"> 7093 </span> <span class="subxComment"># convert</span> +<span id="L7094" class="LineNr"> 7094 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7095" class="LineNr"> 7095 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7096" class="LineNr"> 7096 </span> <span class="subxComment"># restore ed</span> +<span id="L7097" class="LineNr"> 7097 </span> 89/<- %edx 4/r32/esp +<span id="L7098" class="LineNr"> 7098 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7099" class="LineNr"> 7099 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7100" class="Folded"> 7100 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7106" class="LineNr"> 7106 </span> <span class="subxComment"># check output</span> +<span id="L7107" class="LineNr"> 7107 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7072'>test-index-with-non-array-atom-base-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L7072'>test-index-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7109" class="LineNr"> 7109 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7110" class="LineNr"> 7110 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7072'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L7111" class="LineNr"> 7111 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7112" class="LineNr"> 7112 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7113" class="LineNr"> 7113 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7114" class="LineNr"> 7114 </span> 5d/pop-to-ebp +<span id="L7115" class="LineNr"> 7115 </span> c3/return +<span id="L7116" class="LineNr"> 7116 </span> +<span id="L7117" class="LineNr"> 7117 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: +<span id="L7118" class="LineNr"> 7118 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7119" class="LineNr"> 7119 </span> 55/push-ebp +<span id="L7120" class="LineNr"> 7120 </span> 89/<- %ebp 4/r32/esp +<span id="L7121" class="LineNr"> 7121 </span> <span class="subxComment"># setup</span> +<span id="L7122" class="LineNr"> 7122 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7123" class="LineNr"> 7123 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7124" class="LineNr"> 7124 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7125" class="LineNr"> 7125 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L436'>_test-error-stream</a>) +<span id="L7127" class="LineNr"> 7127 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7128" class="LineNr"> 7128 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7129" class="LineNr"> 7129 </span> 68/push 0/imm32 +<span id="L7130" class="LineNr"> 7130 </span> 68/push 0/imm32 +<span id="L7131" class="LineNr"> 7131 </span> 89/<- %edx 4/r32/esp +<span id="L7132" class="LineNr"> 7132 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7133" class="LineNr"> 7133 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (handle int)\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">" var c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) +<span id="L7138" class="LineNr"> 7138 </span> <span class="subxComment"># convert</span> +<span id="L7139" class="LineNr"> 7139 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7140" class="LineNr"> 7140 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7141" class="LineNr"> 7141 </span> <span class="subxComment"># restore ed</span> +<span id="L7142" class="LineNr"> 7142 </span> 89/<- %edx 4/r32/esp +<span id="L7143" class="LineNr"> 7143 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7144" class="LineNr"> 7144 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7145" class="Folded"> 7145 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7151" class="LineNr"> 7151 </span> <span class="subxComment"># check output</span> +<span id="L7152" class="LineNr"> 7152 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7117'>test-index-with-non-array-compound-base-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L7117'>test-index-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7154" class="LineNr"> 7154 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7155" class="LineNr"> 7155 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7117'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L7156" class="LineNr"> 7156 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7157" class="LineNr"> 7157 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7158" class="LineNr"> 7158 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7159" class="LineNr"> 7159 </span> 5d/pop-to-ebp +<span id="L7160" class="LineNr"> 7160 </span> c3/return +<span id="L7161" class="LineNr"> 7161 </span> +<span id="L7162" class="LineNr"> 7162 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: +<span id="L7163" class="LineNr"> 7163 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7164" class="LineNr"> 7164 </span> 55/push-ebp +<span id="L7165" class="LineNr"> 7165 </span> 89/<- %ebp 4/r32/esp +<span id="L7166" class="LineNr"> 7166 </span> <span class="subxComment"># setup</span> +<span id="L7167" class="LineNr"> 7167 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7168" class="LineNr"> 7168 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7169" class="LineNr"> 7169 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7170" class="LineNr"> 7170 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7171" class="LineNr"> 7171 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7172" class="LineNr"> 7172 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7173" class="LineNr"> 7173 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7174" class="LineNr"> 7174 </span> 68/push 0/imm32 +<span id="L7175" class="LineNr"> 7175 </span> 68/push 0/imm32 +<span id="L7176" class="LineNr"> 7176 </span> 89/<- %edx 4/r32/esp +<span id="L7177" class="LineNr"> 7177 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7178" class="LineNr"> 7178 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (addr int)\n"</span>) +<span id="L7181" class="LineNr"> 7181 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) +<span id="L7183" class="LineNr"> 7183 </span> <span class="subxComment"># convert</span> +<span id="L7184" class="LineNr"> 7184 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7185" class="LineNr"> 7185 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7186" class="LineNr"> 7186 </span> <span class="subxComment"># restore ed</span> +<span id="L7187" class="LineNr"> 7187 </span> 89/<- %edx 4/r32/esp +<span id="L7188" class="LineNr"> 7188 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7189" class="LineNr"> 7189 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7190" class="Folded"> 7190 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7196" class="LineNr"> 7196 </span> <span class="subxComment"># check output</span> +<span id="L7197" class="LineNr"> 7197 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7162'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L7162'>test-index-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7199" class="LineNr"> 7199 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7200" class="LineNr"> 7200 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7162'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L7201" class="LineNr"> 7201 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7202" class="LineNr"> 7202 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7203" class="LineNr"> 7203 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7204" class="LineNr"> 7204 </span> 5d/pop-to-ebp +<span id="L7205" class="LineNr"> 7205 </span> c3/return +<span id="L7206" class="LineNr"> 7206 </span> +<span id="L7207" class="LineNr"> 7207 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: +<span id="L7208" class="LineNr"> 7208 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7209" class="LineNr"> 7209 </span> 55/push-ebp +<span id="L7210" class="LineNr"> 7210 </span> 89/<- %ebp 4/r32/esp +<span id="L7211" class="LineNr"> 7211 </span> <span class="subxComment"># setup</span> +<span id="L7212" class="LineNr"> 7212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7213" class="LineNr"> 7213 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7214" class="LineNr"> 7214 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7215" class="LineNr"> 7215 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7216" class="LineNr"> 7216 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7217" class="LineNr"> 7217 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7218" class="LineNr"> 7218 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7219" class="LineNr"> 7219 </span> 68/push 0/imm32 +<span id="L7220" class="LineNr"> 7220 </span> 68/push 0/imm32 +<span id="L7221" class="LineNr"> 7221 </span> 89/<- %edx 4/r32/esp +<span id="L7222" class="LineNr"> 7222 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<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 foo {\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: array\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">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L7227" class="LineNr"> 7227 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7228" class="LineNr"> 7228 </span> <span class="subxComment"># convert</span> +<span id="L7229" class="LineNr"> 7229 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7230" class="LineNr"> 7230 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7231" class="LineNr"> 7231 </span> <span class="subxComment"># restore ed</span> +<span id="L7232" class="LineNr"> 7232 </span> 89/<- %edx 4/r32/esp +<span id="L7233" class="LineNr"> 7233 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7234" class="LineNr"> 7234 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7235" class="Folded"> 7235 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7241" class="LineNr"> 7241 </span> <span class="subxComment"># check output</span> +<span id="L7242" class="LineNr"> 7242 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7207'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L7243" class="LineNr"> 7243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L7207'>test-index-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7244" class="LineNr"> 7244 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7245" class="LineNr"> 7245 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7207'>test-index-with-array-atom-base-type</a>: exit status"</span>) +<span id="L7246" class="LineNr"> 7246 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7247" class="LineNr"> 7247 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7248" class="LineNr"> 7248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7249" class="LineNr"> 7249 </span> 5d/pop-to-ebp +<span id="L7250" class="LineNr"> 7250 </span> c3/return +<span id="L7251" class="LineNr"> 7251 </span> +<span id="L7252" class="LineNr"> 7252 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: +<span id="L7253" class="LineNr"> 7253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7254" class="LineNr"> 7254 </span> 55/push-ebp +<span id="L7255" class="LineNr"> 7255 </span> 89/<- %ebp 4/r32/esp +<span id="L7256" class="LineNr"> 7256 </span> <span class="subxComment"># setup</span> +<span id="L7257" class="LineNr"> 7257 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7258" class="LineNr"> 7258 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7259" class="LineNr"> 7259 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7260" class="LineNr"> 7260 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7261" class="LineNr"> 7261 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7262" class="LineNr"> 7262 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7263" class="LineNr"> 7263 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7264" class="LineNr"> 7264 </span> 68/push 0/imm32 +<span id="L7265" class="LineNr"> 7265 </span> 68/push 0/imm32 +<span id="L7266" class="LineNr"> 7266 </span> 89/<- %edx 4/r32/esp +<span id="L7267" class="LineNr"> 7267 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7268" class="LineNr"> 7268 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (addr array int)\n"</span>) +<span id="L7271" class="LineNr"> 7271 </span> (<a 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="L7272" class="LineNr"> 7272 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7273" class="LineNr"> 7273 </span> <span class="subxComment"># convert</span> +<span id="L7274" class="LineNr"> 7274 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7275" class="LineNr"> 7275 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7276" class="LineNr"> 7276 </span> <span class="subxComment"># restore ed</span> +<span id="L7277" class="LineNr"> 7277 </span> 89/<- %edx 4/r32/esp +<span id="L7278" class="LineNr"> 7278 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7279" class="LineNr"> 7279 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7280" class="Folded"> 7280 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7286" class="LineNr"> 7286 </span> <span class="subxComment"># check output</span> +<span id="L7287" class="LineNr"> 7287 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7252'>test-index-with-addr-base-on-stack</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7252'>test-index-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7289" class="LineNr"> 7289 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7290" class="LineNr"> 7290 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7252'>test-index-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L7291" class="LineNr"> 7291 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7292" class="LineNr"> 7292 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7293" class="LineNr"> 7293 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7294" class="LineNr"> 7294 </span> 5d/pop-to-ebp +<span id="L7295" class="LineNr"> 7295 </span> c3/return +<span id="L7296" class="LineNr"> 7296 </span> +<span id="L7297" class="LineNr"> 7297 </span><span class="subxTest">test-index-with-array-base-in-register</span>: +<span id="L7298" class="LineNr"> 7298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7299" class="LineNr"> 7299 </span> 55/push-ebp +<span id="L7300" class="LineNr"> 7300 </span> 89/<- %ebp 4/r32/esp +<span id="L7301" class="LineNr"> 7301 </span> <span class="subxComment"># setup</span> +<span id="L7302" class="LineNr"> 7302 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7303" class="LineNr"> 7303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7304" class="LineNr"> 7304 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7305" class="LineNr"> 7305 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7306" class="LineNr"> 7306 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7307" class="LineNr"> 7307 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7308" class="LineNr"> 7308 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7309" class="LineNr"> 7309 </span> 68/push 0/imm32 +<span id="L7310" class="LineNr"> 7310 </span> 68/push 0/imm32 +<span id="L7311" class="LineNr"> 7311 </span> 89/<- %edx 4/r32/esp +<span id="L7312" class="LineNr"> 7312 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7313" class="LineNr"> 7313 </span> <span class="subxComment">#</span> +<span id="L7314" class="LineNr"> 7314 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7315" class="LineNr"> 7315 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (array int 3) <- copy 0\n"</span>) +<span id="L7316" class="LineNr"> 7316 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L7317" class="LineNr"> 7317 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7318" class="LineNr"> 7318 </span> <span class="subxComment"># convert</span> +<span id="L7319" class="LineNr"> 7319 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7320" class="LineNr"> 7320 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7321" class="LineNr"> 7321 </span> <span class="subxComment"># restore ed</span> +<span id="L7322" class="LineNr"> 7322 </span> 89/<- %edx 4/r32/esp +<span id="L7323" class="LineNr"> 7323 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7324" class="LineNr"> 7324 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7325" class="Folded"> 7325 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7331" class="LineNr"> 7331 </span> <span class="subxComment"># check output</span> +<span id="L7332" class="LineNr"> 7332 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7297'>test-index-with-array-base-in-register</a>: output should be empty"</span>) +<span id="L7333" class="LineNr"> 7333 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an array, and so must live on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L7297'>test-index-with-array-base-in-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7334" class="LineNr"> 7334 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7335" class="LineNr"> 7335 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7297'>test-index-with-array-base-in-register</a>: exit status"</span>) +<span id="L7336" class="LineNr"> 7336 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7337" class="LineNr"> 7337 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7338" class="LineNr"> 7338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7339" class="LineNr"> 7339 </span> 5d/pop-to-ebp +<span id="L7340" class="LineNr"> 7340 </span> c3/return +<span id="L7341" class="LineNr"> 7341 </span> +<span id="L7342" class="LineNr"> 7342 </span><span class="subxTest">test-index-with-wrong-index-type</span>: +<span id="L7343" class="LineNr"> 7343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7344" class="LineNr"> 7344 </span> 55/push-ebp +<span id="L7345" class="LineNr"> 7345 </span> 89/<- %ebp 4/r32/esp +<span id="L7346" class="LineNr"> 7346 </span> <span class="subxComment"># setup</span> +<span id="L7347" class="LineNr"> 7347 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7348" class="LineNr"> 7348 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7349" class="LineNr"> 7349 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7350" class="LineNr"> 7350 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7351" class="LineNr"> 7351 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7352" class="LineNr"> 7352 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7353" class="LineNr"> 7353 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7354" class="LineNr"> 7354 </span> 68/push 0/imm32 +<span id="L7355" class="LineNr"> 7355 </span> 68/push 0/imm32 +<span id="L7356" class="LineNr"> 7356 </span> 89/<- %edx 4/r32/esp +<span id="L7357" class="LineNr"> 7357 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7358" class="LineNr"> 7358 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/eax: (addr array int) <- copy 0\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">" var b: boolean\n"</span>) +<span id="L7362" class="LineNr"> 7362 </span> (<a 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="L7363" class="LineNr"> 7363 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7364" class="LineNr"> 7364 </span> <span class="subxComment"># convert</span> +<span id="L7365" class="LineNr"> 7365 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7366" class="LineNr"> 7366 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7367" class="LineNr"> 7367 </span> <span class="subxComment"># restore ed</span> +<span id="L7368" class="LineNr"> 7368 </span> 89/<- %edx 4/r32/esp +<span id="L7369" class="LineNr"> 7369 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7370" class="LineNr"> 7370 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7371" class="Folded"> 7371 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7377" class="LineNr"> 7377 </span> <span class="subxComment"># check output</span> +<span id="L7378" class="LineNr"> 7378 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7342'>test-index-with-wrong-index-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L7342'>test-index-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7380" class="LineNr"> 7380 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7381" class="LineNr"> 7381 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7342'>test-index-with-wrong-index-type</a>: exit status"</span>) +<span id="L7382" class="LineNr"> 7382 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7383" class="LineNr"> 7383 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7384" class="LineNr"> 7384 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7385" class="LineNr"> 7385 </span> 5d/pop-to-ebp +<span id="L7386" class="LineNr"> 7386 </span> c3/return +<span id="L7387" class="LineNr"> 7387 </span> +<span id="L7388" class="LineNr"> 7388 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: +<span id="L7389" class="LineNr"> 7389 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7390" class="LineNr"> 7390 </span> 55/push-ebp +<span id="L7391" class="LineNr"> 7391 </span> 89/<- %ebp 4/r32/esp +<span id="L7392" class="LineNr"> 7392 </span> <span class="subxComment"># setup</span> +<span id="L7393" class="LineNr"> 7393 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7394" class="LineNr"> 7394 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7395" class="LineNr"> 7395 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7396" class="LineNr"> 7396 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7397" class="LineNr"> 7397 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7398" class="LineNr"> 7398 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7399" class="LineNr"> 7399 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7400" class="LineNr"> 7400 </span> 68/push 0/imm32 +<span id="L7401" class="LineNr"> 7401 </span> 68/push 0/imm32 +<span id="L7402" class="LineNr"> 7402 </span> 89/<- %edx 4/r32/esp +<span id="L7403" class="LineNr"> 7403 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7404" class="LineNr"> 7404 </span> <span class="subxComment">#</span> +<span id="L7405" class="LineNr"> 7405 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7406" class="LineNr"> 7406 </span> (<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="L7407" class="LineNr"> 7407 </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="L7408" class="LineNr"> 7408 </span> (<a 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="L7409" class="LineNr"> 7409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7410" class="LineNr"> 7410 </span> <span class="subxComment"># convert</span> +<span id="L7411" class="LineNr"> 7411 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7412" class="LineNr"> 7412 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7413" class="LineNr"> 7413 </span> <span class="subxComment"># restore ed</span> +<span id="L7414" class="LineNr"> 7414 </span> 89/<- %edx 4/r32/esp +<span id="L7415" class="LineNr"> 7415 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7416" class="LineNr"> 7416 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7417" class="Folded"> 7417 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7423" class="LineNr"> 7423 </span> <span class="subxComment"># check output</span> +<span id="L7424" class="LineNr"> 7424 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7388'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) +<span id="L7425" class="LineNr"> 7425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L7388'>test-index-with-offset-atom-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7426" class="LineNr"> 7426 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7427" class="LineNr"> 7427 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7388'>test-index-with-offset-atom-index-type</a>: exit status"</span>) +<span id="L7428" class="LineNr"> 7428 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7429" class="LineNr"> 7429 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7430" class="LineNr"> 7430 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7431" class="LineNr"> 7431 </span> 5d/pop-to-ebp +<span id="L7432" class="LineNr"> 7432 </span> c3/return +<span id="L7433" class="LineNr"> 7433 </span> +<span id="L7434" class="LineNr"> 7434 </span><span class="subxTest">test-index-with-offset-on-stack</span>: +<span id="L7435" class="LineNr"> 7435 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7436" class="LineNr"> 7436 </span> 55/push-ebp +<span id="L7437" class="LineNr"> 7437 </span> 89/<- %ebp 4/r32/esp +<span id="L7438" class="LineNr"> 7438 </span> <span class="subxComment"># setup</span> +<span id="L7439" class="LineNr"> 7439 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7440" class="LineNr"> 7440 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7441" class="LineNr"> 7441 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7442" class="LineNr"> 7442 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7443" class="LineNr"> 7443 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7444" class="LineNr"> 7444 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7445" class="LineNr"> 7445 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L7446" class="LineNr"> 7446 </span> 68/push 0/imm32 -<span id="L7447" class="LineNr"> 7447 </span> 89/<- %edx 4/r32/esp -<span id="L7448" class="LineNr"> 7448 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7449" class="LineNr"> 7449 </span> <span class="subxComment">#</span> -<span id="L7450" class="LineNr"> 7450 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7451" class="LineNr"> 7451 </span> (<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="L7452" class="LineNr"> 7452 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- index a, 0\n"</span>) -<span id="L7453" class="LineNr"> 7453 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7454" class="LineNr"> 7454 </span> <span class="subxComment"># convert</span> -<span id="L7455" class="LineNr"> 7455 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7456" class="LineNr"> 7456 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7457" class="LineNr"> 7457 </span> <span class="subxComment"># restore ed</span> -<span id="L7458" class="LineNr"> 7458 </span> 89/<- %edx 4/r32/esp -<span id="L7459" class="LineNr"> 7459 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7460" class="LineNr"> 7460 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7461" class="Folded"> 7461 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7467" class="LineNr"> 7467 </span> <span class="subxComment"># check output</span> -<span id="L7468" class="LineNr"> 7468 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7433'>test-index-with-output-not-address</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L7433'>test-index-with-output-not-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7470" class="LineNr"> 7470 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7471" class="LineNr"> 7471 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7433'>test-index-with-output-not-address</a>: exit status"</span>) -<span id="L7472" class="LineNr"> 7472 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7473" class="LineNr"> 7473 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7474" class="LineNr"> 7474 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7475" class="LineNr"> 7475 </span> 5d/pop-to-ebp -<span id="L7476" class="LineNr"> 7476 </span> c3/return -<span id="L7477" class="LineNr"> 7477 </span> -<span id="L7478" class="LineNr"> 7478 </span><span class="subxTest">test-index-with-output-not-address-2</span>: -<span id="L7479" class="LineNr"> 7479 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7480" class="LineNr"> 7480 </span> 55/push-ebp -<span id="L7481" class="LineNr"> 7481 </span> 89/<- %ebp 4/r32/esp -<span id="L7482" class="LineNr"> 7482 </span> <span class="subxComment"># setup</span> -<span id="L7483" class="LineNr"> 7483 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7484" class="LineNr"> 7484 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7485" class="LineNr"> 7485 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7486" class="LineNr"> 7486 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L436'>_test-error-stream</a>) -<span id="L7488" class="LineNr"> 7488 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7489" class="LineNr"> 7489 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7490" class="LineNr"> 7490 </span> 68/push 0/imm32 -<span id="L7491" class="LineNr"> 7491 </span> 68/push 0/imm32 -<span id="L7492" class="LineNr"> 7492 </span> 89/<- %edx 4/r32/esp -<span id="L7493" class="LineNr"> 7493 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7494" class="LineNr"> 7494 </span> <span class="subxComment">#</span> -<span id="L7495" class="LineNr"> 7495 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7496" class="LineNr"> 7496 </span> (<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="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">" var o/edi: (int) <- index a, 0\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">"}\n"</span>) -<span id="L7499" class="LineNr"> 7499 </span> <span class="subxComment"># convert</span> -<span id="L7500" class="LineNr"> 7500 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7501" class="LineNr"> 7501 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7502" class="LineNr"> 7502 </span> <span class="subxComment"># restore ed</span> -<span id="L7503" class="LineNr"> 7503 </span> 89/<- %edx 4/r32/esp -<span id="L7504" class="LineNr"> 7504 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7505" class="LineNr"> 7505 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7506" class="Folded"> 7506 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7512" class="LineNr"> 7512 </span> <span class="subxComment"># check output</span> -<span id="L7513" class="LineNr"> 7513 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7478'>test-index-with-output-not-address-2</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L7478'>test-index-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7515" class="LineNr"> 7515 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7516" class="LineNr"> 7516 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7478'>test-index-with-output-not-address-2</a>: exit status"</span>) -<span id="L7517" class="LineNr"> 7517 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7518" class="LineNr"> 7518 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7519" class="LineNr"> 7519 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7520" class="LineNr"> 7520 </span> 5d/pop-to-ebp -<span id="L7521" class="LineNr"> 7521 </span> c3/return -<span id="L7522" class="LineNr"> 7522 </span> -<span id="L7523" class="LineNr"> 7523 </span><span class="subxTest">test-index-with-wrong-output-type</span>: -<span id="L7524" class="LineNr"> 7524 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7525" class="LineNr"> 7525 </span> 55/push-ebp -<span id="L7526" class="LineNr"> 7526 </span> 89/<- %ebp 4/r32/esp -<span id="L7527" class="LineNr"> 7527 </span> <span class="subxComment"># setup</span> -<span id="L7528" class="LineNr"> 7528 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7529" class="LineNr"> 7529 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7530" class="LineNr"> 7530 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7531" class="LineNr"> 7531 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L436'>_test-error-stream</a>) -<span id="L7533" class="LineNr"> 7533 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7534" class="LineNr"> 7534 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7535" class="LineNr"> 7535 </span> 68/push 0/imm32 -<span id="L7536" class="LineNr"> 7536 </span> 68/push 0/imm32 -<span id="L7537" class="LineNr"> 7537 </span> 89/<- %edx 4/r32/esp -<span id="L7538" class="LineNr"> 7538 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7539" class="LineNr"> 7539 </span> <span class="subxComment">#</span> -<span id="L7540" class="LineNr"> 7540 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7541" class="LineNr"> 7541 </span> (<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="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">" var o/edi: (addr int) <- index a, 0\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">"}\n"</span>) -<span id="L7544" class="LineNr"> 7544 </span> <span class="subxComment"># convert</span> -<span id="L7545" class="LineNr"> 7545 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7546" class="LineNr"> 7546 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7547" class="LineNr"> 7547 </span> <span class="subxComment"># restore ed</span> -<span id="L7548" class="LineNr"> 7548 </span> 89/<- %edx 4/r32/esp -<span id="L7549" class="LineNr"> 7549 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7550" class="LineNr"> 7550 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7551" class="Folded"> 7551 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7557" class="LineNr"> 7557 </span> <span class="subxComment"># check output</span> -<span id="L7558" class="LineNr"> 7558 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7523'>test-index-with-wrong-output-type</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L7523'>test-index-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7560" class="LineNr"> 7560 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7561" class="LineNr"> 7561 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7523'>test-index-with-wrong-output-type</a>: exit status"</span>) -<span id="L7562" class="LineNr"> 7562 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7563" class="LineNr"> 7563 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7564" class="LineNr"> 7564 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7565" class="LineNr"> 7565 </span> 5d/pop-to-ebp -<span id="L7566" class="LineNr"> 7566 </span> c3/return -<span id="L7567" class="LineNr"> 7567 </span> -<span id="L7568" class="LineNr"> 7568 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: -<span id="L7569" class="LineNr"> 7569 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7570" class="LineNr"> 7570 </span> 55/push-ebp -<span id="L7571" class="LineNr"> 7571 </span> 89/<- %ebp 4/r32/esp -<span id="L7572" class="LineNr"> 7572 </span> <span class="subxComment"># setup</span> -<span id="L7573" class="LineNr"> 7573 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7574" class="LineNr"> 7574 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7575" class="LineNr"> 7575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7576" class="LineNr"> 7576 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L436'>_test-error-stream</a>) -<span id="L7578" class="LineNr"> 7578 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7579" class="LineNr"> 7579 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7580" class="LineNr"> 7580 </span> 68/push 0/imm32 -<span id="L7581" class="LineNr"> 7581 </span> 68/push 0/imm32 -<span id="L7582" class="LineNr"> 7582 </span> 89/<- %edx 4/r32/esp -<span id="L7583" class="LineNr"> 7583 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7584" class="LineNr"> 7584 </span> <span class="subxComment">#</span> -<span id="L7585" class="LineNr"> 7585 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7586" class="LineNr"> 7586 </span> (<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="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">" var o/edi: (addr handle int) <- index a, 0\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">"}\n"</span>) -<span id="L7589" class="LineNr"> 7589 </span> <span class="subxComment"># convert</span> -<span id="L7590" class="LineNr"> 7590 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7591" class="LineNr"> 7591 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7592" class="LineNr"> 7592 </span> <span class="subxComment"># restore ed</span> -<span id="L7593" class="LineNr"> 7593 </span> 89/<- %edx 4/r32/esp -<span id="L7594" class="LineNr"> 7594 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7595" class="LineNr"> 7595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7596" class="Folded"> 7596 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7602" class="LineNr"> 7602 </span> <span class="subxComment"># check output</span> -<span id="L7603" class="LineNr"> 7603 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7568'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L7604" class="LineNr"> 7604 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L7568'>test-index-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7605" class="LineNr"> 7605 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7606" class="LineNr"> 7606 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7568'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L7607" class="LineNr"> 7607 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7608" class="LineNr"> 7608 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7609" class="LineNr"> 7609 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7610" class="LineNr"> 7610 </span> 5d/pop-to-ebp -<span id="L7611" class="LineNr"> 7611 </span> c3/return -<span id="L7612" class="LineNr"> 7612 </span> -<span id="L7613" class="LineNr"> 7613 </span><span class="subxTest">test-index-with-no-inouts</span>: -<span id="L7614" class="LineNr"> 7614 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7615" class="LineNr"> 7615 </span> 55/push-ebp -<span id="L7616" class="LineNr"> 7616 </span> 89/<- %ebp 4/r32/esp -<span id="L7617" class="LineNr"> 7617 </span> <span class="subxComment"># setup</span> -<span id="L7618" class="LineNr"> 7618 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7619" class="LineNr"> 7619 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7620" class="LineNr"> 7620 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7621" class="LineNr"> 7621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7622" class="LineNr"> 7622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7623" class="LineNr"> 7623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7624" class="LineNr"> 7624 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7625" class="LineNr"> 7625 </span> 68/push 0/imm32 -<span id="L7626" class="LineNr"> 7626 </span> 68/push 0/imm32 -<span id="L7627" class="LineNr"> 7627 </span> 89/<- %edx 4/r32/esp -<span id="L7628" class="LineNr"> 7628 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7629" class="LineNr"> 7629 </span> <span class="subxComment">#</span> -<span id="L7630" class="LineNr"> 7630 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7631" class="LineNr"> 7631 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) -<span id="L7632" class="LineNr"> 7632 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7633" class="LineNr"> 7633 </span> <span class="subxComment"># convert</span> -<span id="L7634" class="LineNr"> 7634 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7635" class="LineNr"> 7635 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7636" class="LineNr"> 7636 </span> <span class="subxComment"># restore ed</span> -<span id="L7637" class="LineNr"> 7637 </span> 89/<- %edx 4/r32/esp -<span id="L7638" class="LineNr"> 7638 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7639" class="LineNr"> 7639 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7640" class="Folded"> 7640 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7646" class="LineNr"> 7646 </span> <span class="subxComment"># check output</span> -<span id="L7647" class="LineNr"> 7647 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7613'>test-index-with-no-inouts</a>: output should be empty"</span>) -<span id="L7648" class="LineNr"> 7648 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7613'>test-index-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7649" class="LineNr"> 7649 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7650" class="LineNr"> 7650 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7613'>test-index-with-no-inouts</a>: exit status"</span>) -<span id="L7651" class="LineNr"> 7651 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7652" class="LineNr"> 7652 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7653" class="LineNr"> 7653 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7654" class="LineNr"> 7654 </span> 5d/pop-to-ebp -<span id="L7655" class="LineNr"> 7655 </span> c3/return -<span id="L7656" class="LineNr"> 7656 </span> -<span id="L7657" class="LineNr"> 7657 </span><span class="subxTest">test-index-with-too-few-inouts</span>: -<span id="L7658" class="LineNr"> 7658 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7659" class="LineNr"> 7659 </span> 55/push-ebp -<span id="L7660" class="LineNr"> 7660 </span> 89/<- %ebp 4/r32/esp -<span id="L7661" class="LineNr"> 7661 </span> <span class="subxComment"># setup</span> -<span id="L7662" class="LineNr"> 7662 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7663" class="LineNr"> 7663 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7664" class="LineNr"> 7664 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7665" class="LineNr"> 7665 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7666" class="LineNr"> 7666 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7667" class="LineNr"> 7667 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7668" class="LineNr"> 7668 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7669" class="LineNr"> 7669 </span> 68/push 0/imm32 -<span id="L7670" class="LineNr"> 7670 </span> 68/push 0/imm32 -<span id="L7671" class="LineNr"> 7671 </span> 89/<- %edx 4/r32/esp -<span id="L7672" class="LineNr"> 7672 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7673" class="LineNr"> 7673 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (array int 3)\n"</span>) -<span id="L7676" class="LineNr"> 7676 </span> (<a 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="L7677" class="LineNr"> 7677 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7678" class="LineNr"> 7678 </span> <span class="subxComment"># convert</span> -<span id="L7679" class="LineNr"> 7679 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7680" class="LineNr"> 7680 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7681" class="LineNr"> 7681 </span> <span class="subxComment"># restore ed</span> -<span id="L7682" class="LineNr"> 7682 </span> 89/<- %edx 4/r32/esp -<span id="L7683" class="LineNr"> 7683 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7684" class="LineNr"> 7684 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7685" class="Folded"> 7685 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7691" class="LineNr"> 7691 </span> <span class="subxComment"># check output</span> -<span id="L7692" class="LineNr"> 7692 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7657'>test-index-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L7693" class="LineNr"> 7693 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7657'>test-index-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7694" class="LineNr"> 7694 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7695" class="LineNr"> 7695 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7657'>test-index-with-too-few-inouts</a>: exit status"</span>) -<span id="L7696" class="LineNr"> 7696 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7697" class="LineNr"> 7697 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7698" class="LineNr"> 7698 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7699" class="LineNr"> 7699 </span> 5d/pop-to-ebp -<span id="L7700" class="LineNr"> 7700 </span> c3/return -<span id="L7701" class="LineNr"> 7701 </span> -<span id="L7702" class="LineNr"> 7702 </span><span class="subxTest">test-index-with-too-many-inouts</span>: -<span id="L7703" class="LineNr"> 7703 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7704" class="LineNr"> 7704 </span> 55/push-ebp -<span id="L7705" class="LineNr"> 7705 </span> 89/<- %ebp 4/r32/esp -<span id="L7706" class="LineNr"> 7706 </span> <span class="subxComment"># setup</span> -<span id="L7707" class="LineNr"> 7707 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7708" class="LineNr"> 7708 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7709" class="LineNr"> 7709 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7710" class="LineNr"> 7710 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7711" class="LineNr"> 7711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7712" class="LineNr"> 7712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7713" class="LineNr"> 7713 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7714" class="LineNr"> 7714 </span> 68/push 0/imm32 -<span id="L7715" class="LineNr"> 7715 </span> 68/push 0/imm32 -<span id="L7716" class="LineNr"> 7716 </span> 89/<- %edx 4/r32/esp -<span id="L7717" class="LineNr"> 7717 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7718" class="LineNr"> 7718 </span> <span class="subxComment">#</span> -<span id="L7719" class="LineNr"> 7719 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7720" class="LineNr"> 7720 </span> (<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="L7721" class="LineNr"> 7721 </span> (<a 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="L7722" class="LineNr"> 7722 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7723" class="LineNr"> 7723 </span> <span class="subxComment"># convert</span> -<span id="L7724" class="LineNr"> 7724 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7725" class="LineNr"> 7725 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7726" class="LineNr"> 7726 </span> <span class="subxComment"># restore ed</span> -<span id="L7727" class="LineNr"> 7727 </span> 89/<- %edx 4/r32/esp -<span id="L7728" class="LineNr"> 7728 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7729" class="LineNr"> 7729 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7730" class="Folded"> 7730 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7736" class="LineNr"> 7736 </span> <span class="subxComment"># check output</span> -<span id="L7737" class="LineNr"> 7737 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7702'>test-index-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L7738" class="LineNr"> 7738 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7702'>test-index-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7739" class="LineNr"> 7739 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7740" class="LineNr"> 7740 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7702'>test-index-with-too-many-inouts</a>: exit status"</span>) -<span id="L7741" class="LineNr"> 7741 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7742" class="LineNr"> 7742 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7743" class="LineNr"> 7743 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7744" class="LineNr"> 7744 </span> 5d/pop-to-ebp -<span id="L7745" class="LineNr"> 7745 </span> c3/return -<span id="L7746" class="LineNr"> 7746 </span> -<span id="L7747" class="LineNr"> 7747 </span><span class="subxTest">test-index-with-no-output</span>: -<span id="L7748" class="LineNr"> 7748 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7749" class="LineNr"> 7749 </span> 55/push-ebp -<span id="L7750" class="LineNr"> 7750 </span> 89/<- %ebp 4/r32/esp -<span id="L7751" class="LineNr"> 7751 </span> <span class="subxComment"># setup</span> -<span id="L7752" class="LineNr"> 7752 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7753" class="LineNr"> 7753 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7754" class="LineNr"> 7754 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7755" class="LineNr"> 7755 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7756" class="LineNr"> 7756 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7757" class="LineNr"> 7757 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7758" class="LineNr"> 7758 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7759" class="LineNr"> 7759 </span> 68/push 0/imm32 -<span id="L7760" class="LineNr"> 7760 </span> 68/push 0/imm32 -<span id="L7761" class="LineNr"> 7761 </span> 89/<- %edx 4/r32/esp -<span id="L7762" class="LineNr"> 7762 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7763" class="LineNr"> 7763 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: (array int 3)\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">" index a, 0\n"</span>) -<span id="L7767" class="LineNr"> 7767 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7768" class="LineNr"> 7768 </span> <span class="subxComment"># convert</span> -<span id="L7769" class="LineNr"> 7769 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7770" class="LineNr"> 7770 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7771" class="LineNr"> 7771 </span> <span class="subxComment"># restore ed</span> -<span id="L7772" class="LineNr"> 7772 </span> 89/<- %edx 4/r32/esp -<span id="L7773" class="LineNr"> 7773 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7774" class="LineNr"> 7774 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7775" class="Folded"> 7775 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7781" class="LineNr"> 7781 </span> <span class="subxComment"># check output</span> -<span id="L7782" class="LineNr"> 7782 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7747'>test-index-with-no-output</a>: output should be empty"</span>) -<span id="L7783" class="LineNr"> 7783 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7747'>test-index-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7784" class="LineNr"> 7784 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7785" class="LineNr"> 7785 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7747'>test-index-with-no-output</a>: exit status"</span>) -<span id="L7786" class="LineNr"> 7786 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7787" class="LineNr"> 7787 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7788" class="LineNr"> 7788 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7789" class="LineNr"> 7789 </span> 5d/pop-to-ebp -<span id="L7790" class="LineNr"> 7790 </span> c3/return -<span id="L7791" class="LineNr"> 7791 </span> -<span id="L7792" class="LineNr"> 7792 </span><span class="subxTest">test-index-with-too-many-outputs</span>: -<span id="L7793" class="LineNr"> 7793 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7794" class="LineNr"> 7794 </span> 55/push-ebp -<span id="L7795" class="LineNr"> 7795 </span> 89/<- %ebp 4/r32/esp -<span id="L7796" class="LineNr"> 7796 </span> <span class="subxComment"># setup</span> -<span id="L7797" class="LineNr"> 7797 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7798" class="LineNr"> 7798 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7799" class="LineNr"> 7799 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7800" class="LineNr"> 7800 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7801" class="LineNr"> 7801 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7802" class="LineNr"> 7802 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7803" class="LineNr"> 7803 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7804" class="LineNr"> 7804 </span> 68/push 0/imm32 -<span id="L7805" class="LineNr"> 7805 </span> 68/push 0/imm32 -<span id="L7806" class="LineNr"> 7806 </span> 89/<- %edx 4/r32/esp -<span id="L7807" class="LineNr"> 7807 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7808" class="LineNr"> 7808 </span> <span class="subxComment">#</span> -<span id="L7809" class="LineNr"> 7809 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7810" class="LineNr"> 7810 </span> (<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="L7811" class="LineNr"> 7811 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L7812" class="LineNr"> 7812 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) -<span id="L7813" class="LineNr"> 7813 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- index a, 0\n"</span>) -<span id="L7814" class="LineNr"> 7814 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7815" class="LineNr"> 7815 </span> <span class="subxComment"># convert</span> -<span id="L7816" class="LineNr"> 7816 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) -<span id="L7817" class="LineNr"> 7817 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7818" class="LineNr"> 7818 </span> <span class="subxComment"># restore ed</span> -<span id="L7819" class="LineNr"> 7819 </span> 89/<- %edx 4/r32/esp -<span id="L7820" class="LineNr"> 7820 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7821" class="LineNr"> 7821 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) -<span id="L7822" class="Folded"> 7822 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7828" class="LineNr"> 7828 </span> <span class="subxComment"># check output</span> -<span id="L7829" class="LineNr"> 7829 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7792'>test-index-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L7830" class="LineNr"> 7830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7792'>test-index-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7831" class="LineNr"> 7831 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7832" class="LineNr"> 7832 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7792'>test-index-with-too-many-outputs</a>: exit status"</span>) -<span id="L7833" class="LineNr"> 7833 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7834" class="LineNr"> 7834 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7835" class="LineNr"> 7835 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7836" class="LineNr"> 7836 </span> 5d/pop-to-ebp -<span id="L7837" class="LineNr"> 7837 </span> c3/return -<span id="L7838" class="LineNr"> 7838 </span> -<span id="L7839" class="LineNr"> 7839 </span><span class="subxComment">#######################################################</span> -<span id="L7840" class="LineNr"> 7840 </span><span class="subxComment"># Parsing</span> -<span id="L7841" class="LineNr"> 7841 </span><span class="subxComment">#######################################################</span> -<span id="L7842" class="LineNr"> 7842 </span> -<span id="L7843" class="LineNr"> 7843 </span>== data +<span id="L7447" class="LineNr"> 7447 </span> 68/push 0/imm32 +<span id="L7448" class="LineNr"> 7448 </span> 89/<- %edx 4/r32/esp +<span id="L7449" class="LineNr"> 7449 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7450" class="LineNr"> 7450 </span> <span class="subxComment">#</span> +<span id="L7451" class="LineNr"> 7451 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7452" class="LineNr"> 7452 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L7453" class="LineNr"> 7453 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L7454" class="LineNr"> 7454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L7455" class="LineNr"> 7455 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7456" class="LineNr"> 7456 </span> <span class="subxComment"># convert</span> +<span id="L7457" class="LineNr"> 7457 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7458" class="LineNr"> 7458 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7459" class="LineNr"> 7459 </span> <span class="subxComment"># restore ed</span> +<span id="L7460" class="LineNr"> 7460 </span> 89/<- %edx 4/r32/esp +<span id="L7461" class="LineNr"> 7461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7462" class="LineNr"> 7462 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7463" class="Folded"> 7463 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7469" class="LineNr"> 7469 </span> <span class="subxComment"># check output</span> +<span id="L7470" class="LineNr"> 7470 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7434'>test-index-with-offset-on-stack</a>: output should be empty"</span>) +<span id="L7471" class="LineNr"> 7471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7434'>test-index-with-offset-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7472" class="LineNr"> 7472 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7473" class="LineNr"> 7473 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7434'>test-index-with-offset-on-stack</a>: exit status"</span>) +<span id="L7474" class="LineNr"> 7474 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7475" class="LineNr"> 7475 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7476" class="LineNr"> 7476 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7477" class="LineNr"> 7477 </span> 5d/pop-to-ebp +<span id="L7478" class="LineNr"> 7478 </span> c3/return +<span id="L7479" class="LineNr"> 7479 </span> +<span id="L7480" class="LineNr"> 7480 </span><span class="subxTest">test-index-needs-offset-type</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#L285'>_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#L436'>_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/eax: (addr array t) <- copy 0\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/ebx: int <- copy 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">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L7501" class="LineNr"> 7501 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7502" class="LineNr"> 7502 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</span> +<span id="L7503" class="LineNr"> 7503 </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="L7504" class="LineNr"> 7504 </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="L7505" class="LineNr"> 7505 </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="L7506" class="LineNr"> 7506 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7507" class="LineNr"> 7507 </span> <span class="subxComment"># convert</span> +<span id="L7508" class="LineNr"> 7508 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7509" class="LineNr"> 7509 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7510" class="LineNr"> 7510 </span> <span class="subxComment"># restore ed</span> +<span id="L7511" class="LineNr"> 7511 </span> 89/<- %edx 4/r32/esp +<span id="L7512" class="LineNr"> 7512 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7513" class="LineNr"> 7513 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7514" class="Folded"> 7514 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7520" class="LineNr"> 7520 </span> <span class="subxComment"># check output</span> +<span id="L7521" class="LineNr"> 7521 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-index-needs-offset-type</a>: output should be empty"</span>) +<span id="L7522" class="LineNr"> 7522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-index-needs-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7523" class="LineNr"> 7523 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7524" class="LineNr"> 7524 </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-index-needs-offset-type</a>: exit status"</span>) +<span id="L7525" class="LineNr"> 7525 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7526" class="LineNr"> 7526 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7527" class="LineNr"> 7527 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7528" class="LineNr"> 7528 </span> 5d/pop-to-ebp +<span id="L7529" class="LineNr"> 7529 </span> c3/return +<span id="L7530" class="LineNr"> 7530 </span> +<span id="L7531" class="LineNr"> 7531 </span><span class="subxTest">test-index-with-output-not-address</span>: +<span id="L7532" class="LineNr"> 7532 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7533" class="LineNr"> 7533 </span> 55/push-ebp +<span id="L7534" class="LineNr"> 7534 </span> 89/<- %ebp 4/r32/esp +<span id="L7535" class="LineNr"> 7535 </span> <span class="subxComment"># setup</span> +<span id="L7536" class="LineNr"> 7536 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7537" class="LineNr"> 7537 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7538" class="LineNr"> 7538 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7539" class="LineNr"> 7539 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7540" class="LineNr"> 7540 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7541" class="LineNr"> 7541 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7542" class="LineNr"> 7542 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7543" class="LineNr"> 7543 </span> 68/push 0/imm32 +<span id="L7544" class="LineNr"> 7544 </span> 68/push 0/imm32 +<span id="L7545" class="LineNr"> 7545 </span> 89/<- %edx 4/r32/esp +<span id="L7546" class="LineNr"> 7546 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7547" class="LineNr"> 7547 </span> <span class="subxComment">#</span> +<span id="L7548" class="LineNr"> 7548 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7549" class="LineNr"> 7549 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L7550" class="LineNr"> 7550 </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="L7551" class="LineNr"> 7551 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7552" class="LineNr"> 7552 </span> <span class="subxComment"># convert</span> +<span id="L7553" class="LineNr"> 7553 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7554" class="LineNr"> 7554 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7555" class="LineNr"> 7555 </span> <span class="subxComment"># restore ed</span> +<span id="L7556" class="LineNr"> 7556 </span> 89/<- %edx 4/r32/esp +<span id="L7557" class="LineNr"> 7557 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7558" class="LineNr"> 7558 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7559" class="Folded"> 7559 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7565" class="LineNr"> 7565 </span> <span class="subxComment"># check output</span> +<span id="L7566" class="LineNr"> 7566 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7531'>test-index-with-output-not-address</a>: output should be empty"</span>) +<span id="L7567" class="LineNr"> 7567 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L7531'>test-index-with-output-not-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7568" class="LineNr"> 7568 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7569" class="LineNr"> 7569 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7531'>test-index-with-output-not-address</a>: exit status"</span>) +<span id="L7570" class="LineNr"> 7570 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7571" class="LineNr"> 7571 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7572" class="LineNr"> 7572 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7573" class="LineNr"> 7573 </span> 5d/pop-to-ebp +<span id="L7574" class="LineNr"> 7574 </span> c3/return +<span id="L7575" class="LineNr"> 7575 </span> +<span id="L7576" class="LineNr"> 7576 </span><span class="subxTest">test-index-with-output-not-address-2</span>: +<span id="L7577" class="LineNr"> 7577 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7578" class="LineNr"> 7578 </span> 55/push-ebp +<span id="L7579" class="LineNr"> 7579 </span> 89/<- %ebp 4/r32/esp +<span id="L7580" class="LineNr"> 7580 </span> <span class="subxComment"># setup</span> +<span id="L7581" class="LineNr"> 7581 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7582" class="LineNr"> 7582 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7583" class="LineNr"> 7583 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7584" class="LineNr"> 7584 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7585" class="LineNr"> 7585 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7586" class="LineNr"> 7586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7587" class="LineNr"> 7587 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7588" class="LineNr"> 7588 </span> 68/push 0/imm32 +<span id="L7589" class="LineNr"> 7589 </span> 68/push 0/imm32 +<span id="L7590" class="LineNr"> 7590 </span> 89/<- %edx 4/r32/esp +<span id="L7591" class="LineNr"> 7591 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7592" class="LineNr"> 7592 </span> <span class="subxComment">#</span> +<span id="L7593" class="LineNr"> 7593 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7594" class="LineNr"> 7594 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L7595" class="LineNr"> 7595 </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="L7596" class="LineNr"> 7596 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7597" class="LineNr"> 7597 </span> <span class="subxComment"># convert</span> +<span id="L7598" class="LineNr"> 7598 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7599" class="LineNr"> 7599 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7600" class="LineNr"> 7600 </span> <span class="subxComment"># restore ed</span> +<span id="L7601" class="LineNr"> 7601 </span> 89/<- %edx 4/r32/esp +<span id="L7602" class="LineNr"> 7602 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7603" class="LineNr"> 7603 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7604" class="Folded"> 7604 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7610" class="LineNr"> 7610 </span> <span class="subxComment"># check output</span> +<span id="L7611" class="LineNr"> 7611 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7576'>test-index-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L7612" class="LineNr"> 7612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an address"</span> <span class="Constant">"F - <a href='mu.subx.html#L7576'>test-index-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7613" class="LineNr"> 7613 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7614" class="LineNr"> 7614 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7576'>test-index-with-output-not-address-2</a>: exit status"</span>) +<span id="L7615" class="LineNr"> 7615 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7616" class="LineNr"> 7616 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7617" class="LineNr"> 7617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7618" class="LineNr"> 7618 </span> 5d/pop-to-ebp +<span id="L7619" class="LineNr"> 7619 </span> c3/return +<span id="L7620" class="LineNr"> 7620 </span> +<span id="L7621" class="LineNr"> 7621 </span><span class="subxTest">test-index-with-wrong-output-type</span>: +<span id="L7622" class="LineNr"> 7622 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7623" class="LineNr"> 7623 </span> 55/push-ebp +<span id="L7624" class="LineNr"> 7624 </span> 89/<- %ebp 4/r32/esp +<span id="L7625" class="LineNr"> 7625 </span> <span class="subxComment"># setup</span> +<span id="L7626" class="LineNr"> 7626 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7627" class="LineNr"> 7627 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7628" class="LineNr"> 7628 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7629" class="LineNr"> 7629 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7630" class="LineNr"> 7630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7631" class="LineNr"> 7631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7632" class="LineNr"> 7632 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7633" class="LineNr"> 7633 </span> 68/push 0/imm32 +<span id="L7634" class="LineNr"> 7634 </span> 68/push 0/imm32 +<span id="L7635" class="LineNr"> 7635 </span> 89/<- %edx 4/r32/esp +<span id="L7636" class="LineNr"> 7636 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7637" class="LineNr"> 7637 </span> <span class="subxComment">#</span> +<span id="L7638" class="LineNr"> 7638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7639" class="LineNr"> 7639 </span> (<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="L7640" class="LineNr"> 7640 </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="L7641" class="LineNr"> 7641 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7642" class="LineNr"> 7642 </span> <span class="subxComment"># convert</span> +<span id="L7643" class="LineNr"> 7643 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7644" class="LineNr"> 7644 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7645" class="LineNr"> 7645 </span> <span class="subxComment"># restore ed</span> +<span id="L7646" class="LineNr"> 7646 </span> 89/<- %edx 4/r32/esp +<span id="L7647" class="LineNr"> 7647 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7648" class="LineNr"> 7648 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7649" class="Folded"> 7649 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7655" class="LineNr"> 7655 </span> <span class="subxComment"># check output</span> +<span id="L7656" class="LineNr"> 7656 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7621'>test-index-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L7657" class="LineNr"> 7657 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L7621'>test-index-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7658" class="LineNr"> 7658 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7659" class="LineNr"> 7659 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7621'>test-index-with-wrong-output-type</a>: exit status"</span>) +<span id="L7660" class="LineNr"> 7660 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7661" class="LineNr"> 7661 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7662" class="LineNr"> 7662 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7663" class="LineNr"> 7663 </span> 5d/pop-to-ebp +<span id="L7664" class="LineNr"> 7664 </span> c3/return +<span id="L7665" class="LineNr"> 7665 </span> +<span id="L7666" class="LineNr"> 7666 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: +<span id="L7667" class="LineNr"> 7667 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7668" class="LineNr"> 7668 </span> 55/push-ebp +<span id="L7669" class="LineNr"> 7669 </span> 89/<- %ebp 4/r32/esp +<span id="L7670" class="LineNr"> 7670 </span> <span class="subxComment"># setup</span> +<span id="L7671" class="LineNr"> 7671 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7672" class="LineNr"> 7672 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7673" class="LineNr"> 7673 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7674" class="LineNr"> 7674 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7675" class="LineNr"> 7675 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7676" class="LineNr"> 7676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7677" class="LineNr"> 7677 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7678" class="LineNr"> 7678 </span> 68/push 0/imm32 +<span id="L7679" class="LineNr"> 7679 </span> 68/push 0/imm32 +<span id="L7680" class="LineNr"> 7680 </span> 89/<- %edx 4/r32/esp +<span id="L7681" class="LineNr"> 7681 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7682" class="LineNr"> 7682 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L7684" class="LineNr"> 7684 </span> (<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="L7685" class="LineNr"> 7685 </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="L7686" class="LineNr"> 7686 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7687" class="LineNr"> 7687 </span> <span class="subxComment"># convert</span> +<span id="L7688" class="LineNr"> 7688 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7689" class="LineNr"> 7689 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7690" class="LineNr"> 7690 </span> <span class="subxComment"># restore ed</span> +<span id="L7691" class="LineNr"> 7691 </span> 89/<- %edx 4/r32/esp +<span id="L7692" class="LineNr"> 7692 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7693" class="LineNr"> 7693 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7694" class="Folded"> 7694 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7700" class="LineNr"> 7700 </span> <span class="subxComment"># check output</span> +<span id="L7701" class="LineNr"> 7701 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7666'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L7702" class="LineNr"> 7702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L7666'>test-index-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7703" class="LineNr"> 7703 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7704" class="LineNr"> 7704 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7666'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L7705" class="LineNr"> 7705 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7706" class="LineNr"> 7706 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7707" class="LineNr"> 7707 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7708" class="LineNr"> 7708 </span> 5d/pop-to-ebp +<span id="L7709" class="LineNr"> 7709 </span> c3/return +<span id="L7710" class="LineNr"> 7710 </span> +<span id="L7711" class="LineNr"> 7711 </span><span class="subxTest">test-index-with-no-inouts</span>: +<span id="L7712" class="LineNr"> 7712 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7713" class="LineNr"> 7713 </span> 55/push-ebp +<span id="L7714" class="LineNr"> 7714 </span> 89/<- %ebp 4/r32/esp +<span id="L7715" class="LineNr"> 7715 </span> <span class="subxComment"># setup</span> +<span id="L7716" class="LineNr"> 7716 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7717" class="LineNr"> 7717 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7718" class="LineNr"> 7718 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7719" class="LineNr"> 7719 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7720" class="LineNr"> 7720 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7721" class="LineNr"> 7721 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7722" class="LineNr"> 7722 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7723" class="LineNr"> 7723 </span> 68/push 0/imm32 +<span id="L7724" class="LineNr"> 7724 </span> 68/push 0/imm32 +<span id="L7725" class="LineNr"> 7725 </span> 89/<- %edx 4/r32/esp +<span id="L7726" class="LineNr"> 7726 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7727" class="LineNr"> 7727 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L7729" class="LineNr"> 7729 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) +<span id="L7730" class="LineNr"> 7730 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7731" class="LineNr"> 7731 </span> <span class="subxComment"># convert</span> +<span id="L7732" class="LineNr"> 7732 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7733" class="LineNr"> 7733 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7734" class="LineNr"> 7734 </span> <span class="subxComment"># restore ed</span> +<span id="L7735" class="LineNr"> 7735 </span> 89/<- %edx 4/r32/esp +<span id="L7736" class="LineNr"> 7736 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7737" class="LineNr"> 7737 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7738" class="Folded"> 7738 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7744" class="LineNr"> 7744 </span> <span class="subxComment"># check output</span> +<span id="L7745" class="LineNr"> 7745 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7711'>test-index-with-no-inouts</a>: output should be empty"</span>) +<span id="L7746" class="LineNr"> 7746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7711'>test-index-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7747" class="LineNr"> 7747 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7748" class="LineNr"> 7748 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7711'>test-index-with-no-inouts</a>: exit status"</span>) +<span id="L7749" class="LineNr"> 7749 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7750" class="LineNr"> 7750 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7751" class="LineNr"> 7751 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7752" class="LineNr"> 7752 </span> 5d/pop-to-ebp +<span id="L7753" class="LineNr"> 7753 </span> c3/return +<span id="L7754" class="LineNr"> 7754 </span> +<span id="L7755" class="LineNr"> 7755 </span><span class="subxTest">test-index-with-too-few-inouts</span>: +<span id="L7756" class="LineNr"> 7756 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7757" class="LineNr"> 7757 </span> 55/push-ebp +<span id="L7758" class="LineNr"> 7758 </span> 89/<- %ebp 4/r32/esp +<span id="L7759" class="LineNr"> 7759 </span> <span class="subxComment"># setup</span> +<span id="L7760" class="LineNr"> 7760 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7761" class="LineNr"> 7761 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7762" class="LineNr"> 7762 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7763" class="LineNr"> 7763 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7764" class="LineNr"> 7764 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7765" class="LineNr"> 7765 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7766" class="LineNr"> 7766 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7767" class="LineNr"> 7767 </span> 68/push 0/imm32 +<span id="L7768" class="LineNr"> 7768 </span> 68/push 0/imm32 +<span id="L7769" class="LineNr"> 7769 </span> 89/<- %edx 4/r32/esp +<span id="L7770" class="LineNr"> 7770 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7771" class="LineNr"> 7771 </span> <span class="subxComment">#</span> +<span id="L7772" class="LineNr"> 7772 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7773" class="LineNr"> 7773 </span> (<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="L7774" class="LineNr"> 7774 </span> (<a 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="L7775" class="LineNr"> 7775 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7776" class="LineNr"> 7776 </span> <span class="subxComment"># convert</span> +<span id="L7777" class="LineNr"> 7777 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7778" class="LineNr"> 7778 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7779" class="LineNr"> 7779 </span> <span class="subxComment"># restore ed</span> +<span id="L7780" class="LineNr"> 7780 </span> 89/<- %edx 4/r32/esp +<span id="L7781" class="LineNr"> 7781 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7782" class="LineNr"> 7782 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7783" class="Folded"> 7783 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7789" class="LineNr"> 7789 </span> <span class="subxComment"># check output</span> +<span id="L7790" class="LineNr"> 7790 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7755'>test-index-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L7791" class="LineNr"> 7791 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7755'>test-index-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7792" class="LineNr"> 7792 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7793" class="LineNr"> 7793 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7755'>test-index-with-too-few-inouts</a>: exit status"</span>) +<span id="L7794" class="LineNr"> 7794 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7795" class="LineNr"> 7795 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7796" class="LineNr"> 7796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7797" class="LineNr"> 7797 </span> 5d/pop-to-ebp +<span id="L7798" class="LineNr"> 7798 </span> c3/return +<span id="L7799" class="LineNr"> 7799 </span> +<span id="L7800" class="LineNr"> 7800 </span><span class="subxTest">test-index-with-too-many-inouts</span>: +<span id="L7801" class="LineNr"> 7801 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7802" class="LineNr"> 7802 </span> 55/push-ebp +<span id="L7803" class="LineNr"> 7803 </span> 89/<- %ebp 4/r32/esp +<span id="L7804" class="LineNr"> 7804 </span> <span class="subxComment"># setup</span> +<span id="L7805" class="LineNr"> 7805 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7806" class="LineNr"> 7806 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7807" class="LineNr"> 7807 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7808" class="LineNr"> 7808 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7809" class="LineNr"> 7809 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7810" class="LineNr"> 7810 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7811" class="LineNr"> 7811 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7812" class="LineNr"> 7812 </span> 68/push 0/imm32 +<span id="L7813" class="LineNr"> 7813 </span> 68/push 0/imm32 +<span id="L7814" class="LineNr"> 7814 </span> 89/<- %edx 4/r32/esp +<span id="L7815" class="LineNr"> 7815 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7816" class="LineNr"> 7816 </span> <span class="subxComment">#</span> +<span id="L7817" class="LineNr"> 7817 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7818" class="LineNr"> 7818 </span> (<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="L7819" class="LineNr"> 7819 </span> (<a 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="L7820" class="LineNr"> 7820 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7821" class="LineNr"> 7821 </span> <span class="subxComment"># convert</span> +<span id="L7822" class="LineNr"> 7822 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7823" class="LineNr"> 7823 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7824" class="LineNr"> 7824 </span> <span class="subxComment"># restore ed</span> +<span id="L7825" class="LineNr"> 7825 </span> 89/<- %edx 4/r32/esp +<span id="L7826" class="LineNr"> 7826 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7827" class="LineNr"> 7827 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7828" class="Folded"> 7828 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7834" class="LineNr"> 7834 </span> <span class="subxComment"># check output</span> +<span id="L7835" class="LineNr"> 7835 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7800'>test-index-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L7836" class="LineNr"> 7836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7800'>test-index-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7837" class="LineNr"> 7837 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7838" class="LineNr"> 7838 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7800'>test-index-with-too-many-inouts</a>: exit status"</span>) +<span id="L7839" class="LineNr"> 7839 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7840" class="LineNr"> 7840 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7841" class="LineNr"> 7841 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7842" class="LineNr"> 7842 </span> 5d/pop-to-ebp +<span id="L7843" class="LineNr"> 7843 </span> c3/return <span id="L7844" class="LineNr"> 7844 </span> -<span id="L7845" class="LineNr"> 7845 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> -<span id="L7846" class="LineNr"> 7846 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> -<span id="L7847" class="LineNr"> 7847 </span> 1/imm32 -<span id="L7848" class="LineNr"> 7848 </span> -<span id="L7849" class="LineNr"> 7849 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> -<span id="L7850" class="LineNr"> 7850 </span> 1/imm32 -<span id="L7851" class="LineNr"> 7851 </span> -<span id="L7852" class="LineNr"> 7852 </span>== code -<span id="L7853" class="LineNr"> 7853 </span> -<span id="L7854" class="LineNr"> 7854 </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="L7855" class="LineNr"> 7855 </span> <span class="subxComment"># pseudocode</span> -<span id="L7856" class="LineNr"> 7856 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> -<span id="L7857" class="LineNr"> 7857 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> -<span id="L7858" class="LineNr"> 7858 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> -<span id="L7859" class="LineNr"> 7859 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L7860" class="LineNr"> 7860 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L7861" class="LineNr"> 7861 </span> <span class="subxComment"># while true # line loop</span> -<span id="L7862" class="LineNr"> 7862 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L7863" class="LineNr"> 7863 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L7864" class="LineNr"> 7864 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L7865" class="LineNr"> 7865 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L7866" class="LineNr"> 7866 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L7867" class="LineNr"> 7867 </span> <span class="subxComment"># continue</span> -<span id="L7868" class="LineNr"> 7868 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L7869" class="LineNr"> 7869 </span> <span class="subxComment"># continue # end of line</span> -<span id="L7870" class="LineNr"> 7870 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> -<span id="L7871" class="LineNr"> 7871 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L7872" class="LineNr"> 7872 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> -<span id="L7873" class="LineNr"> 7873 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> -<span id="L7874" class="LineNr"> 7874 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> -<span id="L7875" class="LineNr"> 7875 </span> <span class="subxComment"># assert(vars->top == 0)</span> -<span id="L7876" class="LineNr"> 7876 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L7877" class="LineNr"> 7877 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L7878" class="LineNr"> 7878 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> -<span id="L7879" class="LineNr"> 7879 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L7880" class="LineNr"> 7880 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> -<span id="L7881" class="LineNr"> 7881 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L7882" class="LineNr"> 7882 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L7883" class="LineNr"> 7883 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> -<span id="L7884" class="LineNr"> 7884 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L7885" class="LineNr"> 7885 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> -<span id="L7886" class="LineNr"> 7886 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> -<span id="L7887" class="LineNr"> 7887 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> -<span id="L7888" class="LineNr"> 7888 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> -<span id="L7889" class="LineNr"> 7889 </span> <span class="subxComment"># else</span> -<span id="L7890" class="LineNr"> 7890 </span> <span class="subxComment"># abort()</span> -<span id="L7891" class="LineNr"> 7891 </span> <span class="subxComment">#</span> -<span id="L7892" class="LineNr"> 7892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7893" class="LineNr"> 7893 </span> 55/push-ebp -<span id="L7894" class="LineNr"> 7894 </span> 89/<- %ebp 4/r32/esp -<span id="L7895" class="LineNr"> 7895 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> -<span id="L7896" class="LineNr"> 7896 </span> 68/push <a href='mu.subx.html#L248'>_Program-signatures</a>/imm32 -<span id="L7897" class="LineNr"> 7897 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L7898" class="LineNr"> 7898 </span> 50/push-eax -<span id="L7899" class="LineNr"> 7899 </span> 51/push-ecx -<span id="L7900" class="LineNr"> 7900 </span> 52/push-edx -<span id="L7901" class="LineNr"> 7901 </span> 53/push-ebx -<span id="L7902" class="LineNr"> 7902 </span> 56/push-esi -<span id="L7903" class="LineNr"> 7903 </span> 57/push-edi -<span id="L7904" class="LineNr"> 7904 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L7905" class="LineNr"> 7905 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L7906" class="LineNr"> 7906 </span> 68/push 0x200/imm32/size -<span id="L7907" class="LineNr"> 7907 </span> 68/push 0/imm32/read -<span id="L7908" class="LineNr"> 7908 </span> 68/push 0/imm32/write -<span id="L7909" class="LineNr"> 7909 </span> 89/<- %ecx 4/r32/esp -<span id="L7910" class="LineNr"> 7910 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L7911" class="LineNr"> 7911 </span> 68/push 0/imm32/end -<span id="L7912" class="LineNr"> 7912 </span> 68/push 0/imm32/start -<span id="L7913" class="LineNr"> 7913 </span> 89/<- %edx 4/r32/esp -<span id="L7914" class="LineNr"> 7914 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> -<span id="L7915" class="LineNr"> 7915 </span> bf/copy-to-edi <a href='mu.subx.html#L240'>_Program-functions</a>/imm32 -<span id="L7916" class="LineNr"> 7916 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> -<span id="L7917" class="LineNr"> 7917 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L7918" class="LineNr"> 7918 </span> 68/push 0xc00/imm32/size -<span id="L7919" class="LineNr"> 7919 </span> 68/push 0/imm32/top -<span id="L7920" class="LineNr"> 7920 </span> 89/<- %ebx 4/r32/esp -<span id="L7921" class="LineNr"> 7921 </span> { -<span id="L7922" class="LineNr"> 7922 </span><span class="Constant">$parse-mu:line-loop</span>: -<span id="L7923" class="LineNr"> 7923 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L7924" class="LineNr"> 7924 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L7925" class="LineNr"> 7925 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L7926" class="LineNr"> 7926 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L7927" class="LineNr"> 7927 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L7928" class="Folded"> 7928 </span><span class="Folded">+-- 6 lines: #? # dump line ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7934" class="LineNr"> 7934 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> %ecx %edx) -<span id="L7935" class="LineNr"> 7935 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L7936" class="LineNr"> 7936 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L7937" class="LineNr"> 7937 </span> 3d/compare-eax-and 0/imm32/false -<span id="L7938" class="LineNr"> 7938 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L7939" class="LineNr"> 7939 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> -<span id="L7940" class="LineNr"> 7940 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L7941" class="LineNr"> 7941 </span> 8b/-> *edx 0/r32/eax -<span id="L7942" class="LineNr"> 7942 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L7943" class="LineNr"> 7943 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L7944" class="LineNr"> 7944 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L7945" class="LineNr"> 7945 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L7946" class="LineNr"> 7946 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L7947" class="LineNr"> 7947 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> -<span id="L7948" class="LineNr"> 7948 </span> { -<span id="L7949" class="LineNr"> 7949 </span><span class="Constant">$parse-mu:fn</span>: -<span id="L7950" class="LineNr"> 7950 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> -<span id="L7951" class="LineNr"> 7951 </span> 3d/compare-eax-and 0/imm32/false -<span id="L7952" class="LineNr"> 7952 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L7953" class="LineNr"> 7953 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L7954" class="LineNr"> 7954 </span> 68/push 0/imm32 -<span id="L7955" class="LineNr"> 7955 </span> 68/push 0/imm32 -<span id="L7956" class="LineNr"> 7956 </span> 89/<- %esi 4/r32/esp -<span id="L7957" class="LineNr"> 7957 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L7958" class="LineNr"> 7958 </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#L274'>Function-size</a></span> %esi) -<span id="L7959" class="LineNr"> 7959 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L7960" class="LineNr"> 7960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L7961" class="LineNr"> 7961 </span> <span class="subxComment"># initialize vars</span> -<span id="L7962" class="LineNr"> 7962 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ebx) -<span id="L7963" class="LineNr"> 7963 </span> <span class="subxComment">#</span> -<span id="L7964" class="LineNr"> 7964 </span> (<a href='mu.subx.html#L8103'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L7965" class="LineNr"> 7965 </span> (<a href='mu.subx.html#L9809'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L7966" class="LineNr"> 7966 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L7967" class="LineNr"> 7967 </span> 8b/-> *esi 0/r32/eax -<span id="L7968" class="LineNr"> 7968 </span> 89/<- *edi 0/r32/eax -<span id="L7969" class="LineNr"> 7969 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L7970" class="LineNr"> 7970 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L7971" class="LineNr"> 7971 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L7972" class="LineNr"> 7972 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L7973" class="LineNr"> 7973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L7974" class="LineNr"> 7974 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L7975" class="LineNr"> 7975 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L7976" class="LineNr"> 7976 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L7977" class="LineNr"> 7977 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7978" class="LineNr"> 7978 </span> <span class="subxComment">#</span> -<span id="L7979" class="LineNr"> 7979 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L7980" class="LineNr"> 7980 </span> } -<span id="L7981" class="LineNr"> 7981 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> -<span id="L7982" class="LineNr"> 7982 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> -<span id="L7983" class="LineNr"> 7983 </span> { -<span id="L7984" class="LineNr"> 7984 </span><span class="Constant">$parse-mu:sig</span>: -<span id="L7985" class="LineNr"> 7985 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> -<span id="L7986" class="LineNr"> 7986 </span> 3d/compare-eax-and 0/imm32/false -<span id="L7987" class="LineNr"> 7987 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L7988" class="LineNr"> 7988 </span> <span class="subxComment"># edi = curr-function</span> -<span id="L7989" class="LineNr"> 7989 </span> 57/push-edi -<span id="L7990" class="LineNr"> 7990 </span> 8b/-> *(ebp-4) 7/r32/edi -<span id="L7991" class="LineNr"> 7991 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L7992" class="LineNr"> 7992 </span> 68/push 0/imm32 -<span id="L7993" class="LineNr"> 7993 </span> 68/push 0/imm32 -<span id="L7994" class="LineNr"> 7994 </span> 89/<- %esi 4/r32/esp -<span id="L7995" class="LineNr"> 7995 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L7996" class="LineNr"> 7996 </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#L274'>Function-size</a></span> %esi) -<span id="L7997" class="LineNr"> 7997 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L7998" class="LineNr"> 7998 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L7999" class="LineNr"> 7999 </span> <span class="subxComment">#</span> -<span id="L8000" class="LineNr"> 8000 </span> (<a href='mu.subx.html#L8315'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L8001" class="LineNr"> 8001 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L8002" class="LineNr"> 8002 </span> 8b/-> *esi 0/r32/eax -<span id="L8003" class="LineNr"> 8003 </span> 89/<- *edi 0/r32/eax -<span id="L8004" class="LineNr"> 8004 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L8005" class="LineNr"> 8005 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L8006" class="LineNr"> 8006 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L8007" class="LineNr"> 8007 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L8008" class="LineNr"> 8008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L8009" class="LineNr"> 8009 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L8010" class="LineNr"> 8010 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L8011" class="LineNr"> 8011 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L8012" class="LineNr"> 8012 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8013" class="LineNr"> 8013 </span> <span class="subxComment"># save curr-function</span> -<span id="L8014" class="LineNr"> 8014 </span> 89/<- *(ebp-4) 7/r32/edi -<span id="L8015" class="LineNr"> 8015 </span> <span class="subxComment"># restore edi</span> -<span id="L8016" class="LineNr"> 8016 </span> 5f/pop-to-edi -<span id="L8017" class="LineNr"> 8017 </span> <span class="subxComment">#</span> -<span id="L8018" class="LineNr"> 8018 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L8019" class="LineNr"> 8019 </span> } -<span id="L8020" class="LineNr"> 8020 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> -<span id="L8021" class="LineNr"> 8021 </span> { -<span id="L8022" class="LineNr"> 8022 </span><span class="Constant">$parse-mu:type</span>: -<span id="L8023" class="LineNr"> 8023 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> -<span id="L8024" class="LineNr"> 8024 </span> 3d/compare-eax-and 0/imm32 -<span id="L8025" class="LineNr"> 8025 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L8026" class="LineNr"> 8026 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> %ecx %edx) -<span id="L8027" class="LineNr"> 8027 </span> <span class="subxComment"># var type-id/eax: int</span> -<span id="L8028" class="LineNr"> 8028 </span> (<a href='mu.subx.html#L9197'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> %edx) <span class="subxComment"># => eax</span> -<span id="L8029" class="LineNr"> 8029 </span> <span class="subxComment"># spill</span> -<span id="L8030" class="LineNr"> 8030 </span> 51/push-ecx -<span id="L8031" class="LineNr"> 8031 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> -<span id="L8032" class="LineNr"> 8032 </span> 68/push 0/imm32 -<span id="L8033" class="LineNr"> 8033 </span> 68/push 0/imm32 -<span id="L8034" class="LineNr"> 8034 </span> 89/<- %ecx 4/r32/esp -<span id="L8035" class="LineNr"> 8035 </span> (<a href='mu.subx.html#L11913'>find-or-create-typeinfo</a> %eax %ecx) -<span id="L8036" class="LineNr"> 8036 </span> <span class="subxComment">#</span> -<span id="L8037" class="LineNr"> 8037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L8038" class="LineNr"> 8038 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> -<span id="L8039" class="LineNr"> 8039 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> -<span id="L8040" class="LineNr"> 8040 </span> (<a href='mu.subx.html#L12147'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L8041" class="LineNr"> 8041 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> -<span id="L8042" class="LineNr"> 8042 </span> <span class="subxComment"># reclaim new-type</span> -<span id="L8043" class="LineNr"> 8043 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8044" class="LineNr"> 8044 </span> <span class="subxComment"># restore</span> -<span id="L8045" class="LineNr"> 8045 </span> 59/pop-to-ecx -<span id="L8046" class="LineNr"> 8046 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L8047" class="LineNr"> 8047 </span> } -<span id="L8048" class="LineNr"> 8048 </span> <span class="subxComment"># otherwise abort</span> -<span id="L8049" class="LineNr"> 8049 </span> e9/jump $parse-mu:error1/disp32 -<span id="L8050" class="LineNr"> 8050 </span> } <span class="subxComment"># end line loop</span> -<span id="L8051" class="LineNr"> 8051 </span><span class="Constant">$parse-mu:end</span>: -<span id="L8052" class="LineNr"> 8052 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L8053" class="LineNr"> 8053 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> -<span id="L8054" class="LineNr"> 8054 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> -<span id="L8055" class="LineNr"> 8055 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8056" class="LineNr"> 8056 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L8057" class="LineNr"> 8057 </span> 5f/pop-to-edi -<span id="L8058" class="LineNr"> 8058 </span> 5e/pop-to-esi -<span id="L8059" class="LineNr"> 8059 </span> 5b/pop-to-ebx -<span id="L8060" class="LineNr"> 8060 </span> 5a/pop-to-edx -<span id="L8061" class="LineNr"> 8061 </span> 59/pop-to-ecx -<span id="L8062" class="LineNr"> 8062 </span> 58/pop-to-eax -<span id="L8063" class="LineNr"> 8063 </span> <span class="subxS1Comment"># . reclaim local</span> -<span id="L8064" class="LineNr"> 8064 </span> 81 0/subop/add %esp 4/imm32 -<span id="L8065" class="LineNr"> 8065 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8066" class="LineNr"> 8066 </span> 89/<- %esp 5/r32/ebp -<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="Constant">$parse-mu:error1</span>: -<span id="L8071" class="LineNr"> 8071 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> -<span id="L8072" class="LineNr"> 8072 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) -<span id="L8073" class="LineNr"> 8073 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) -<span id="L8074" class="LineNr"> 8074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) -<span id="L8075" class="LineNr"> 8075 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L8076" class="LineNr"> 8076 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L8077" class="LineNr"> 8077 </span> <span class="subxComment"># never gets here</span> -<span id="L8078" class="LineNr"> 8078 </span> -<span id="L8079" class="LineNr"> 8079 </span><span class="Constant">$parse-mu:error2</span>: -<span id="L8080" class="LineNr"> 8080 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> -<span id="L8081" class="LineNr"> 8081 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) -<span id="L8082" class="LineNr"> 8082 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) -<span id="L8083" class="LineNr"> 8083 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> -<span id="L8084" class="LineNr"> 8084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) -<span id="L8085" class="LineNr"> 8085 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L8086" class="LineNr"> 8086 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L8087" class="LineNr"> 8087 </span> <span class="subxComment"># never gets here</span> -<span id="L8088" class="LineNr"> 8088 </span> -<span id="L8089" class="LineNr"> 8089 </span><span class="subxComment"># scenarios considered:</span> -<span id="L8090" class="LineNr"> 8090 </span><span class="subxComment"># ✗ fn foo # no block</span> -<span id="L8091" class="LineNr"> 8091 </span><span class="subxComment"># ✓ fn foo {</span> -<span id="L8092" class="LineNr"> 8092 </span><span class="subxComment"># ✗ fn foo { {</span> -<span id="L8093" class="LineNr"> 8093 </span><span class="subxComment"># ✗ fn foo { }</span> -<span id="L8094" class="LineNr"> 8094 </span><span class="subxComment"># ✗ fn foo { } {</span> -<span id="L8095" class="LineNr"> 8095 </span><span class="subxComment"># ✗ fn foo x {</span> -<span id="L8096" class="LineNr"> 8096 </span><span class="subxComment"># ✗ fn foo x: {</span> -<span id="L8097" class="LineNr"> 8097 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L8098" class="LineNr"> 8098 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L8099" class="LineNr"> 8099 </span><span class="subxComment"># ✓ fn foo x: int -> y/eax: int {</span> -<span id="L8100" class="LineNr"> 8100 </span><span class="subxComment"># TODO:</span> -<span id="L8101" class="LineNr"> 8101 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L8102" class="LineNr"> 8102 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L8103" class="LineNr"> 8103 </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="L8104" class="LineNr"> 8104 </span> <span class="subxComment"># pseudocode:</span> -<span id="L8105" class="LineNr"> 8105 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L8106" class="LineNr"> 8106 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L8107" class="LineNr"> 8107 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8108" class="LineNr"> 8108 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L8109" class="LineNr"> 8109 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L8110" class="LineNr"> 8110 </span> <span class="subxComment"># ## inouts</span> -<span id="L8111" class="LineNr"> 8111 </span> <span class="subxComment"># while true</span> -<span id="L8112" class="LineNr"> 8112 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L8113" class="LineNr"> 8113 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8114" class="LineNr"> 8114 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L8115" class="LineNr"> 8115 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L8116" class="LineNr"> 8116 </span> <span class="subxComment"># assert(word-slice != '}')</span> -<span id="L8117" class="LineNr"> 8117 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L8118" class="LineNr"> 8118 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L8119" class="LineNr"> 8119 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L8120" class="LineNr"> 8120 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L8121" class="LineNr"> 8121 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L8122" class="LineNr"> 8122 </span> <span class="subxComment"># ## outputs</span> -<span id="L8123" class="LineNr"> 8123 </span> <span class="subxComment"># while true</span> -<span id="L8124" class="LineNr"> 8124 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L8125" class="LineNr"> 8125 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8126" class="LineNr"> 8126 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L8127" class="LineNr"> 8127 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> -<span id="L8128" class="LineNr"> 8128 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L8129" class="LineNr"> 8129 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L8130" class="LineNr"> 8130 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L8131" class="LineNr"> 8131 </span> <span class="subxComment"># done:</span> -<span id="L8132" class="LineNr"> 8132 </span> <span class="subxComment">#</span> -<span id="L8133" class="LineNr"> 8133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8134" class="LineNr"> 8134 </span> 55/push-ebp -<span id="L8135" class="LineNr"> 8135 </span> 89/<- %ebp 4/r32/esp -<span id="L8136" class="LineNr"> 8136 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L8137" class="LineNr"> 8137 </span> 50/push-eax -<span id="L8138" class="LineNr"> 8138 </span> 51/push-ecx -<span id="L8139" class="LineNr"> 8139 </span> 52/push-edx -<span id="L8140" class="LineNr"> 8140 </span> 53/push-ebx -<span id="L8141" class="LineNr"> 8141 </span> 57/push-edi -<span id="L8142" class="LineNr"> 8142 </span> <span class="subxComment"># edi = out</span> -<span id="L8143" class="LineNr"> 8143 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L8144" class="LineNr"> 8144 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L8145" class="LineNr"> 8145 </span> 68/push 0/imm32/end -<span id="L8146" class="LineNr"> 8146 </span> 68/push 0/imm32/start -<span id="L8147" class="LineNr"> 8147 </span> 89/<- %ecx 4/r32/esp -<span id="L8148" class="LineNr"> 8148 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L8149" class="LineNr"> 8149 </span> 68/push 0/imm32 -<span id="L8150" class="LineNr"> 8150 </span> 68/push 0/imm32 -<span id="L8151" class="LineNr"> 8151 </span> 89/<- %ebx 4/r32/esp -<span id="L8152" class="LineNr"> 8152 </span> <span class="subxComment"># read function name</span> -<span id="L8153" class="LineNr"> 8153 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8154" class="LineNr"> 8154 </span> <span class="subxComment"># error checking</span> -<span id="L8155" class="LineNr"> 8155 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8156" class="LineNr"> 8156 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8157" class="LineNr"> 8157 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8158" class="LineNr"> 8158 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8159" class="LineNr"> 8159 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L8160" class="LineNr"> 8160 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8161" class="LineNr"> 8161 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8162" class="LineNr"> 8162 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8163" class="LineNr"> 8163 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L8164" class="LineNr"> 8164 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8165" class="LineNr"> 8165 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8166" class="LineNr"> 8166 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8167" class="LineNr"> 8167 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8168" class="LineNr"> 8168 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8169" class="LineNr"> 8169 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8170" class="LineNr"> 8170 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8171" class="LineNr"> 8171 </span> <span class="subxComment"># save function name</span> -<span id="L8172" class="LineNr"> 8172 </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="L8173" class="LineNr"> 8173 </span> <span class="subxComment"># save function inouts</span> -<span id="L8174" class="LineNr"> 8174 </span> { -<span id="L8175" class="LineNr"> 8175 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: -<span id="L8176" class="LineNr"> 8176 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8177" class="LineNr"> 8177 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8178" class="LineNr"> 8178 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8179" class="LineNr"> 8179 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8180" class="LineNr"> 8180 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8181" class="LineNr"> 8181 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L8182" class="LineNr"> 8182 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8183" class="LineNr"> 8183 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8184" class="LineNr"> 8184 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 -<span id="L8185" class="LineNr"> 8185 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L8186" class="LineNr"> 8186 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8187" class="LineNr"> 8187 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8188" class="LineNr"> 8188 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8189" class="LineNr"> 8189 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8190" class="LineNr"> 8190 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8191" class="LineNr"> 8191 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8192" class="LineNr"> 8192 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8193" class="LineNr"> 8193 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L8194" class="LineNr"> 8194 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x14) *(ebp+0x18)) -<span id="L8195" class="LineNr"> 8195 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L8196" class="LineNr"> 8196 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L8197" class="LineNr"> 8197 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8198" class="LineNr"> 8198 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L8199" class="LineNr"> 8199 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 -<span id="L8200" class="LineNr"> 8200 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L8201" class="LineNr"> 8201 </span> <span class="subxComment">#</span> -<span id="L8202" class="LineNr"> 8202 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L8203" class="LineNr"> 8203 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L8204" class="LineNr"> 8204 </span> (<a href='mu.subx.html#L11682'>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="L8205" class="LineNr"> 8205 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L8206" class="LineNr"> 8206 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) -<span id="L8207" class="LineNr"> 8207 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) -<span id="L8208" class="LineNr"> 8208 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L8209" class="LineNr"> 8209 </span> <span class="subxComment">#</span> -<span id="L8210" class="LineNr"> 8210 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L8211" class="LineNr"> 8211 </span> } -<span id="L8212" class="LineNr"> 8212 </span> <span class="subxComment"># save function outputs</span> -<span id="L8213" class="LineNr"> 8213 </span> { -<span id="L8214" class="LineNr"> 8214 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: -<span id="L8215" class="LineNr"> 8215 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8216" class="LineNr"> 8216 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L8217" class="LineNr"> 8217 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8218" class="LineNr"> 8218 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8219" class="LineNr"> 8219 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8220" class="LineNr"> 8220 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L8221" class="LineNr"> 8221 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8222" class="LineNr"> 8222 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8223" class="LineNr"> 8223 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8224" class="LineNr"> 8224 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L8225" class="LineNr"> 8225 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8226" class="LineNr"> 8226 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8227" class="LineNr"> 8227 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8228" class="LineNr"> 8228 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8229" class="LineNr"> 8229 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8230" class="LineNr"> 8230 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8231" class="LineNr"> 8231 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L8232" class="LineNr"> 8232 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L8233" class="LineNr"> 8233 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x14) *(ebp+0x18)) -<span id="L8234" class="LineNr"> 8234 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L8235" class="LineNr"> 8235 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L8236" class="LineNr"> 8236 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8237" class="LineNr"> 8237 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L8238" class="LineNr"> 8238 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 -<span id="L8239" class="LineNr"> 8239 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L8240" class="LineNr"> 8240 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L8241" class="LineNr"> 8241 </span> (<a href='mu.subx.html#L11682'>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="L8242" class="LineNr"> 8242 </span> <span class="subxComment">#</span> -<span id="L8243" class="LineNr"> 8243 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L8244" class="LineNr"> 8244 </span> } -<span id="L8245" class="LineNr"> 8245 </span><span class="Constant">$populate-mu-function-header:done</span>: -<span id="L8246" class="LineNr"> 8246 </span> (<a href='mu.subx.html#L10121'>check-no-tokens-left</a> *(ebp+8)) -<span id="L8247" class="LineNr"> 8247 </span><span class="Constant">$populate-mu-function-header:end</span>: -<span id="L8248" class="LineNr"> 8248 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L8249" class="LineNr"> 8249 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L8250" class="LineNr"> 8250 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L8251" class="LineNr"> 8251 </span> 5f/pop-to-edi -<span id="L8252" class="LineNr"> 8252 </span> 5b/pop-to-ebx -<span id="L8253" class="LineNr"> 8253 </span> 5a/pop-to-edx -<span id="L8254" class="LineNr"> 8254 </span> 59/pop-to-ecx -<span id="L8255" class="LineNr"> 8255 </span> 58/pop-to-eax -<span id="L8256" class="LineNr"> 8256 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8257" class="LineNr"> 8257 </span> 89/<- %esp 5/r32/ebp -<span id="L8258" class="LineNr"> 8258 </span> 5d/pop-to-ebp -<span id="L8259" class="LineNr"> 8259 </span> c3/return -<span id="L8260" class="LineNr"> 8260 </span> -<span id="L8261" class="LineNr"> 8261 </span><span class="Constant">$populate-mu-function-header:error1</span>: -<span id="L8262" class="LineNr"> 8262 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> -<span id="L8263" class="LineNr"> 8263 </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="L8264" class="LineNr"> 8264 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8265" class="LineNr"> 8265 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L8266" class="LineNr"> 8266 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L8267" class="LineNr"> 8267 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L8268" class="LineNr"> 8268 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8269" class="LineNr"> 8269 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L8270" class="LineNr"> 8270 </span> <span class="subxComment"># never gets here</span> -<span id="L8271" class="LineNr"> 8271 </span> -<span id="L8272" class="LineNr"> 8272 </span><span class="Constant">$populate-mu-function-header:error2</span>: -<span id="L8273" class="LineNr"> 8273 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L8274" class="LineNr"> 8274 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L8275" class="LineNr"> 8275 </span> 50/push-eax -<span id="L8276" class="LineNr"> 8276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8277" class="LineNr"> 8277 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L8278" class="LineNr"> 8278 </span> 58/pop-to-eax -<span id="L8279" class="LineNr"> 8279 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) -<span id="L8280" class="LineNr"> 8280 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8281" class="LineNr"> 8281 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L8282" class="LineNr"> 8282 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) -<span id="L8283" class="LineNr"> 8283 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8284" class="LineNr"> 8284 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L8285" class="LineNr"> 8285 </span> <span class="subxComment"># never gets here</span> -<span id="L8286" class="LineNr"> 8286 </span> -<span id="L8287" class="LineNr"> 8287 </span><span class="Constant">$populate-mu-function-header:error3</span>: -<span id="L8288" class="LineNr"> 8288 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L8289" class="LineNr"> 8289 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L8290" class="LineNr"> 8290 </span> 50/push-eax -<span id="L8291" class="LineNr"> 8291 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8292" class="LineNr"> 8292 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L8293" class="LineNr"> 8293 </span> 58/pop-to-eax -<span id="L8294" class="LineNr"> 8294 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) -<span id="L8295" class="LineNr"> 8295 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8296" class="LineNr"> 8296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8297" class="LineNr"> 8297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L8298" class="LineNr"> 8298 </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="L8299" class="LineNr"> 8299 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L8300" class="LineNr"> 8300 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L8301" class="LineNr"> 8301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L8302" class="LineNr"> 8302 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8303" class="LineNr"> 8303 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L8304" class="LineNr"> 8304 </span> <span class="subxComment"># never gets here</span> -<span id="L8305" class="LineNr"> 8305 </span> -<span id="L8306" class="LineNr"> 8306 </span><span class="subxComment"># scenarios considered:</span> -<span id="L8307" class="LineNr"> 8307 </span><span class="subxComment"># ✓ fn foo</span> -<span id="L8308" class="LineNr"> 8308 </span><span class="subxComment"># ✗ fn foo {</span> -<span id="L8309" class="LineNr"> 8309 </span><span class="subxComment"># ✓ fn foo x</span> -<span id="L8310" class="LineNr"> 8310 </span><span class="subxComment"># ✓ fn foo x: int</span> -<span id="L8311" class="LineNr"> 8311 </span><span class="subxComment"># ✓ fn foo x: int -> y/eax: int</span> -<span id="L8312" class="LineNr"> 8312 </span><span class="subxComment"># TODO:</span> -<span id="L8313" class="LineNr"> 8313 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L8314" class="LineNr"> 8314 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L8315" class="LineNr"> 8315 </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="L8316" class="LineNr"> 8316 </span> <span class="subxComment"># pseudocode:</span> -<span id="L8317" class="LineNr"> 8317 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L8318" class="LineNr"> 8318 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L8319" class="LineNr"> 8319 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L8320" class="LineNr"> 8320 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L8321" class="LineNr"> 8321 </span> <span class="subxComment"># ## inouts</span> -<span id="L8322" class="LineNr"> 8322 </span> <span class="subxComment"># while true</span> -<span id="L8323" class="LineNr"> 8323 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L8324" class="LineNr"> 8324 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L8325" class="LineNr"> 8325 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L8326" class="LineNr"> 8326 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> -<span id="L8327" class="LineNr"> 8327 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L8328" class="LineNr"> 8328 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L8329" class="LineNr"> 8329 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L8330" class="LineNr"> 8330 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L8331" class="LineNr"> 8331 </span> <span class="subxComment"># ## outputs</span> -<span id="L8332" class="LineNr"> 8332 </span> <span class="subxComment"># while true</span> -<span id="L8333" class="LineNr"> 8333 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L8334" class="LineNr"> 8334 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L8335" class="LineNr"> 8335 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L8336" class="LineNr"> 8336 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L8337" class="LineNr"> 8337 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L8338" class="LineNr"> 8338 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L8339" class="LineNr"> 8339 </span> <span class="subxComment">#</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 -<span id="L8343" class="LineNr"> 8343 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L8344" class="LineNr"> 8344 </span> 50/push-eax -<span id="L8345" class="LineNr"> 8345 </span> 51/push-ecx -<span id="L8346" class="LineNr"> 8346 </span> 52/push-edx -<span id="L8347" class="LineNr"> 8347 </span> 53/push-ebx -<span id="L8348" class="LineNr"> 8348 </span> 57/push-edi -<span id="L8349" class="LineNr"> 8349 </span> <span class="subxComment"># edi = out</span> -<span id="L8350" class="LineNr"> 8350 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L8351" class="LineNr"> 8351 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L8352" class="LineNr"> 8352 </span> 68/push 0/imm32/end -<span id="L8353" class="LineNr"> 8353 </span> 68/push 0/imm32/start -<span id="L8354" class="LineNr"> 8354 </span> 89/<- %ecx 4/r32/esp -<span id="L8355" class="LineNr"> 8355 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L8356" class="LineNr"> 8356 </span> 68/push 0/imm32 -<span id="L8357" class="LineNr"> 8357 </span> 68/push 0/imm32 -<span id="L8358" class="LineNr"> 8358 </span> 89/<- %ebx 4/r32/esp -<span id="L8359" class="LineNr"> 8359 </span> <span class="subxComment"># read function name</span> -<span id="L8360" class="LineNr"> 8360 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8361" class="LineNr"> 8361 </span> <span class="subxComment"># error checking</span> -<span id="L8362" class="LineNr"> 8362 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L8363" class="LineNr"> 8363 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8364" class="LineNr"> 8364 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8365" class="LineNr"> 8365 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8366" class="LineNr"> 8366 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L8367" class="LineNr"> 8367 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8368" class="LineNr"> 8368 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8369" class="LineNr"> 8369 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8370" class="LineNr"> 8370 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8371" class="LineNr"> 8371 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8372" class="LineNr"> 8372 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8373" class="LineNr"> 8373 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8374" class="LineNr"> 8374 </span> <span class="subxComment"># save function name</span> -<span id="L8375" class="LineNr"> 8375 </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="L8376" class="LineNr"> 8376 </span> <span class="subxComment"># save function inouts</span> -<span id="L8377" class="LineNr"> 8377 </span> { -<span id="L8378" class="LineNr"> 8378 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: -<span id="L8379" class="LineNr"> 8379 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8380" class="LineNr"> 8380 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8381" class="LineNr"> 8381 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8382" class="LineNr"> 8382 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8383" class="LineNr"> 8383 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L8384" class="LineNr"> 8384 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8385" class="LineNr"> 8385 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8386" class="LineNr"> 8386 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8387" class="LineNr"> 8387 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L8388" class="LineNr"> 8388 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8389" class="LineNr"> 8389 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8390" class="LineNr"> 8390 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8391" class="LineNr"> 8391 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8392" class="LineNr"> 8392 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8393" class="LineNr"> 8393 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8394" class="LineNr"> 8394 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8395" class="LineNr"> 8395 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L8396" class="LineNr"> 8396 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x10) *(ebp+0x14)) -<span id="L8397" class="LineNr"> 8397 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L8398" class="LineNr"> 8398 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L8399" class="LineNr"> 8399 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8400" class="LineNr"> 8400 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L8401" class="LineNr"> 8401 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L8402" class="LineNr"> 8402 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L8403" class="LineNr"> 8403 </span> <span class="subxComment">#</span> -<span id="L8404" class="LineNr"> 8404 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L8405" class="LineNr"> 8405 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L8406" class="LineNr"> 8406 </span> (<a href='mu.subx.html#L11682'>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="L8407" class="LineNr"> 8407 </span> <span class="subxComment">#</span> -<span id="L8408" class="LineNr"> 8408 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L8409" class="LineNr"> 8409 </span> } -<span id="L8410" class="LineNr"> 8410 </span> <span class="subxComment"># save function outputs</span> -<span id="L8411" class="LineNr"> 8411 </span> { -<span id="L8412" class="LineNr"> 8412 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: -<span id="L8413" class="LineNr"> 8413 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L8414" class="LineNr"> 8414 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8415" class="LineNr"> 8415 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8416" class="LineNr"> 8416 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8417" class="LineNr"> 8417 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L8418" class="LineNr"> 8418 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8419" class="LineNr"> 8419 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8420" class="LineNr"> 8420 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8421" class="LineNr"> 8421 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L8422" class="LineNr"> 8422 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8423" class="LineNr"> 8423 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8424" class="LineNr"> 8424 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L8426" class="LineNr"> 8426 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8427" class="LineNr"> 8427 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8428" class="LineNr"> 8428 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L8429" class="LineNr"> 8429 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L8430" class="LineNr"> 8430 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x10) *(ebp+0x14)) -<span id="L8431" class="LineNr"> 8431 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L8432" class="LineNr"> 8432 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L8433" class="LineNr"> 8433 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8434" class="LineNr"> 8434 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L8435" class="LineNr"> 8435 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 -<span id="L8436" class="LineNr"> 8436 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L8437" class="LineNr"> 8437 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L8438" class="LineNr"> 8438 </span> (<a href='mu.subx.html#L11682'>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="L8439" class="LineNr"> 8439 </span> <span class="subxComment">#</span> -<span id="L8440" class="LineNr"> 8440 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L8441" class="LineNr"> 8441 </span> } -<span id="L8442" class="LineNr"> 8442 </span><span class="Constant">$populate-mu-function-signature:done</span>: -<span id="L8443" class="LineNr"> 8443 </span> (<a href='mu.subx.html#L10121'>check-no-tokens-left</a> *(ebp+8)) -<span id="L8444" class="LineNr"> 8444 </span><span class="Constant">$populate-mu-function-signature:end</span>: -<span id="L8445" class="LineNr"> 8445 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L8446" class="LineNr"> 8446 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L8447" class="LineNr"> 8447 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L8448" class="LineNr"> 8448 </span> 5f/pop-to-edi -<span id="L8449" class="LineNr"> 8449 </span> 5b/pop-to-ebx -<span id="L8450" class="LineNr"> 8450 </span> 5a/pop-to-edx -<span id="L8451" class="LineNr"> 8451 </span> 59/pop-to-ecx -<span id="L8452" class="LineNr"> 8452 </span> 58/pop-to-eax -<span id="L8453" class="LineNr"> 8453 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8454" class="LineNr"> 8454 </span> 89/<- %esp 5/r32/ebp -<span id="L8455" class="LineNr"> 8455 </span> 5d/pop-to-ebp -<span id="L8456" class="LineNr"> 8456 </span> c3/return -<span id="L8457" class="LineNr"> 8457 </span> -<span id="L8458" class="LineNr"> 8458 </span><span class="Constant">$populate-mu-function-signature:error1</span>: -<span id="L8459" class="LineNr"> 8459 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> -<span id="L8460" class="LineNr"> 8460 </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="L8461" class="LineNr"> 8461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L8462" class="LineNr"> 8462 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L8463" class="LineNr"> 8463 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L8464" class="LineNr"> 8464 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L8465" class="LineNr"> 8465 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L8466" class="LineNr"> 8466 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L8467" class="LineNr"> 8467 </span> <span class="subxComment"># never gets here</span> -<span id="L8468" class="LineNr"> 8468 </span> -<span id="L8469" class="LineNr"> 8469 </span><span class="Constant">$populate-mu-function-signature:error2</span>: -<span id="L8470" class="LineNr"> 8470 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L8471" class="LineNr"> 8471 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L8472" class="LineNr"> 8472 </span> 50/push-eax -<span id="L8473" class="LineNr"> 8473 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8474" class="LineNr"> 8474 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L8475" class="LineNr"> 8475 </span> 58/pop-to-eax -<span id="L8476" class="LineNr"> 8476 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) -<span id="L8477" class="LineNr"> 8477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8478" class="LineNr"> 8478 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L8479" class="LineNr"> 8479 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) -<span id="L8480" class="LineNr"> 8480 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L8481" class="LineNr"> 8481 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L8482" class="LineNr"> 8482 </span> <span class="subxComment"># never gets here</span> -<span id="L8483" class="LineNr"> 8483 </span> -<span id="L8484" class="LineNr"> 8484 </span><span class="Constant">$populate-mu-function-signature:error3</span>: -<span id="L8485" class="LineNr"> 8485 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L8486" class="LineNr"> 8486 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L8487" class="LineNr"> 8487 </span> 50/push-eax -<span id="L8488" class="LineNr"> 8488 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8489" class="LineNr"> 8489 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L8490" class="LineNr"> 8490 </span> 58/pop-to-eax -<span id="L8491" class="LineNr"> 8491 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) -<span id="L8492" class="LineNr"> 8492 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L8493" class="LineNr"> 8493 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8494" class="LineNr"> 8494 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L8495" class="LineNr"> 8495 </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="L8496" class="LineNr"> 8496 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L8497" class="LineNr"> 8497 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L8498" class="LineNr"> 8498 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L8499" class="LineNr"> 8499 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L8500" class="LineNr"> 8500 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L8501" class="LineNr"> 8501 </span> <span class="subxComment"># never gets here</span> -<span id="L8502" class="LineNr"> 8502 </span> -<span id="L8503" class="LineNr"> 8503 </span><span class="subxTest">test-function-header-with-arg</span>: -<span id="L8504" class="LineNr"> 8504 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8505" class="LineNr"> 8505 </span> 55/push-ebp -<span id="L8506" class="LineNr"> 8506 </span> 89/<- %ebp 4/r32/esp -<span id="L8507" class="LineNr"> 8507 </span> <span class="subxComment"># setup</span> -<span id="L8508" class="LineNr"> 8508 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L8509" class="LineNr"> 8509 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L8510" class="LineNr"> 8510 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<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">"foo n: int {\n"</span>) -<span id="L8512" class="LineNr"> 8512 </span> <span class="subxComment"># var result/ecx: function</span> -<span id="L8513" class="LineNr"> 8513 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp -<span id="L8514" class="LineNr"> 8514 </span> 89/<- %ecx 4/r32/esp -<span id="L8515" class="LineNr"> 8515 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) -<span id="L8516" class="LineNr"> 8516 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L8517" class="LineNr"> 8517 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L8518" class="LineNr"> 8518 </span> 68/push 0xc0/imm32/size -<span id="L8519" class="LineNr"> 8519 </span> 68/push 0/imm32/top -<span id="L8520" class="LineNr"> 8520 </span> 89/<- %ebx 4/r32/esp -<span id="L8521" class="LineNr"> 8521 </span> <span class="subxComment"># convert</span> -<span id="L8522" class="LineNr"> 8522 </span> (<a href='mu.subx.html#L8103'>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="L8523" class="LineNr"> 8523 </span> <span class="subxComment"># check result->name</span> -<span id="L8524" class="LineNr"> 8524 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8525" class="LineNr"> 8525 </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#L8503'>test-function-header-with-arg</a>/name"</span>) -<span id="L8526" class="LineNr"> 8526 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> -<span id="L8527" class="LineNr"> 8527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L8528" class="LineNr"> 8528 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8529" class="LineNr"> 8529 </span> 89/<- %edx 0/r32/eax -<span id="L8530" class="LineNr"> 8530 </span> <span class="subxComment"># check v->name</span> -<span id="L8531" class="LineNr"> 8531 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8532" class="LineNr"> 8532 </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#L8503'>test-function-header-with-arg</a>/inout:0"</span>) -<span id="L8533" class="LineNr"> 8533 </span> <span class="subxComment"># check v->type</span> -<span id="L8534" class="LineNr"> 8534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8535" class="LineNr"> 8535 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8503'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8536" class="LineNr"> 8536 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8503'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8537" class="LineNr"> 8537 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8503'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8538" class="LineNr"> 8538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8539" class="LineNr"> 8539 </span> 89/<- %esp 5/r32/ebp -<span id="L8540" class="LineNr"> 8540 </span> 5d/pop-to-ebp -<span id="L8541" class="LineNr"> 8541 </span> c3/return -<span id="L8542" class="LineNr"> 8542 </span> -<span id="L8543" class="LineNr"> 8543 </span><span class="subxTest">test-function-header-with-multiple-args</span>: -<span id="L8544" class="LineNr"> 8544 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8545" class="LineNr"> 8545 </span> 55/push-ebp -<span id="L8546" class="LineNr"> 8546 </span> 89/<- %ebp 4/r32/esp -<span id="L8547" class="LineNr"> 8547 </span> <span class="subxComment"># setup</span> -<span id="L8548" class="LineNr"> 8548 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L8549" class="LineNr"> 8549 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L8550" class="LineNr"> 8550 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8551" class="LineNr"> 8551 </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="L8552" class="LineNr"> 8552 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L8553" class="LineNr"> 8553 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp -<span id="L8554" class="LineNr"> 8554 </span> 89/<- %ecx 4/r32/esp -<span id="L8555" class="LineNr"> 8555 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) -<span id="L8556" class="LineNr"> 8556 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L8557" class="LineNr"> 8557 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L8558" class="LineNr"> 8558 </span> 68/push 0xc0/imm32/size -<span id="L8559" class="LineNr"> 8559 </span> 68/push 0/imm32/top -<span id="L8560" class="LineNr"> 8560 </span> 89/<- %ebx 4/r32/esp -<span id="L8561" class="LineNr"> 8561 </span> <span class="subxComment"># convert</span> -<span id="L8562" class="LineNr"> 8562 </span> (<a href='mu.subx.html#L8103'>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="L8563" class="LineNr"> 8563 </span> <span class="subxComment"># check result->name</span> -<span id="L8564" class="LineNr"> 8564 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8565" class="LineNr"> 8565 </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#L8543'>test-function-header-with-multiple-args</a>/name"</span>) -<span id="L8566" class="LineNr"> 8566 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L8567" class="LineNr"> 8567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L8568" class="LineNr"> 8568 </span> 89/<- %edx 0/r32/eax -<span id="L8569" class="LineNr"> 8569 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: -<span id="L8570" class="LineNr"> 8570 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L8571" class="LineNr"> 8571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8572" class="LineNr"> 8572 </span> 89/<- %ebx 0/r32/eax -<span id="L8573" class="LineNr"> 8573 </span> <span class="subxComment"># check v->name</span> -<span id="L8574" class="LineNr"> 8574 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8575" class="LineNr"> 8575 </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#L8543'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> -<span id="L8576" class="LineNr"> 8576 </span> <span class="subxComment"># check v->type</span> -<span id="L8577" class="LineNr"> 8577 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8578" class="LineNr"> 8578 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8579" class="LineNr"> 8579 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8580" class="LineNr"> 8580 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8581" class="LineNr"> 8581 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: -<span id="L8582" class="LineNr"> 8582 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L8583" class="LineNr"> 8583 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L8584" class="LineNr"> 8584 </span> 89/<- %edx 0/r32/eax -<span id="L8585" class="LineNr"> 8585 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L8586" class="LineNr"> 8586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8587" class="LineNr"> 8587 </span> 89/<- %ebx 0/r32/eax -<span id="L8588" class="LineNr"> 8588 </span> <span class="subxComment"># check v->name</span> -<span id="L8589" class="LineNr"> 8589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8590" class="LineNr"> 8590 </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#L8543'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> -<span id="L8591" class="LineNr"> 8591 </span> <span class="subxComment"># check v->type</span> -<span id="L8592" class="LineNr"> 8592 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8593" class="LineNr"> 8593 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8594" class="LineNr"> 8594 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8595" class="LineNr"> 8595 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8596" class="LineNr"> 8596 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: -<span id="L8597" class="LineNr"> 8597 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L8598" class="LineNr"> 8598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L8599" class="LineNr"> 8599 </span> 89/<- %edx 0/r32/eax -<span id="L8600" class="LineNr"> 8600 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L8601" class="LineNr"> 8601 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8602" class="LineNr"> 8602 </span> 89/<- %ebx 0/r32/eax -<span id="L8603" class="LineNr"> 8603 </span> <span class="subxComment"># check v->name</span> -<span id="L8604" class="LineNr"> 8604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8605" class="LineNr"> 8605 </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#L8543'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> -<span id="L8606" class="LineNr"> 8606 </span> <span class="subxComment"># check v->type</span> -<span id="L8607" class="LineNr"> 8607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8608" class="LineNr"> 8608 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8609" class="LineNr"> 8609 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8610" class="LineNr"> 8610 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8543'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8611" class="LineNr"> 8611 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8612" class="LineNr"> 8612 </span> 89/<- %esp 5/r32/ebp -<span id="L8613" class="LineNr"> 8613 </span> 5d/pop-to-ebp -<span id="L8614" class="LineNr"> 8614 </span> c3/return -<span id="L8615" class="LineNr"> 8615 </span> -<span id="L8616" class="LineNr"> 8616 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: -<span id="L8617" class="LineNr"> 8617 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8618" class="LineNr"> 8618 </span> 55/push-ebp -<span id="L8619" class="LineNr"> 8619 </span> 89/<- %ebp 4/r32/esp -<span id="L8620" class="LineNr"> 8620 </span> <span class="subxComment"># setup</span> -<span id="L8621" class="LineNr"> 8621 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L8622" class="LineNr"> 8622 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L8623" class="LineNr"> 8623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8624" class="LineNr"> 8624 </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 -> x/ecx: int y/edx: int {\n"</span>) -<span id="L8625" class="LineNr"> 8625 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L8626" class="LineNr"> 8626 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp -<span id="L8627" class="LineNr"> 8627 </span> 89/<- %ecx 4/r32/esp -<span id="L8628" class="LineNr"> 8628 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) -<span id="L8629" class="LineNr"> 8629 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L8630" class="LineNr"> 8630 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L8631" class="LineNr"> 8631 </span> 68/push 0xc0/imm32/size -<span id="L8632" class="LineNr"> 8632 </span> 68/push 0/imm32/top -<span id="L8633" class="LineNr"> 8633 </span> 89/<- %ebx 4/r32/esp -<span id="L8634" class="LineNr"> 8634 </span> <span class="subxComment"># convert</span> -<span id="L8635" class="LineNr"> 8635 </span> (<a href='mu.subx.html#L8103'>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="L8636" class="LineNr"> 8636 </span> <span class="subxComment"># check result->name</span> -<span id="L8637" class="LineNr"> 8637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L8638" class="LineNr"> 8638 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) -<span id="L8639" class="LineNr"> 8639 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L8640" class="LineNr"> 8640 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L8641" class="LineNr"> 8641 </span> 89/<- %edx 0/r32/eax -<span id="L8642" class="LineNr"> 8642 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: -<span id="L8643" class="LineNr"> 8643 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L8644" class="LineNr"> 8644 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8645" class="LineNr"> 8645 </span> 89/<- %ebx 0/r32/eax -<span id="L8646" class="LineNr"> 8646 </span> <span class="subxComment"># check v->name</span> -<span id="L8647" class="LineNr"> 8647 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8648" class="LineNr"> 8648 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) -<span id="L8649" class="LineNr"> 8649 </span> <span class="subxComment"># check v->type</span> -<span id="L8650" class="LineNr"> 8650 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8651" class="LineNr"> 8651 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8652" class="LineNr"> 8652 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8653" class="LineNr"> 8653 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8654" class="LineNr"> 8654 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: -<span id="L8655" class="LineNr"> 8655 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L8656" class="LineNr"> 8656 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L8657" class="LineNr"> 8657 </span> 89/<- %edx 0/r32/eax -<span id="L8658" class="LineNr"> 8658 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L8659" class="LineNr"> 8659 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8660" class="LineNr"> 8660 </span> 89/<- %ebx 0/r32/eax -<span id="L8661" class="LineNr"> 8661 </span> <span class="subxComment"># check v->name</span> -<span id="L8662" class="LineNr"> 8662 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8663" class="LineNr"> 8663 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) -<span id="L8664" class="LineNr"> 8664 </span> <span class="subxComment"># check v->type</span> -<span id="L8665" class="LineNr"> 8665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8666" class="LineNr"> 8666 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8667" class="LineNr"> 8667 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8668" class="LineNr"> 8668 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8669" class="LineNr"> 8669 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: -<span id="L8670" class="LineNr"> 8670 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L8671" class="LineNr"> 8671 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L8672" class="LineNr"> 8672 </span> 89/<- %edx 0/r32/eax -<span id="L8673" class="LineNr"> 8673 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L8674" class="LineNr"> 8674 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8675" class="LineNr"> 8675 </span> 89/<- %ebx 0/r32/eax -<span id="L8676" class="LineNr"> 8676 </span> <span class="subxComment"># check v->name</span> -<span id="L8677" class="LineNr"> 8677 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8678" class="LineNr"> 8678 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) -<span id="L8679" class="LineNr"> 8679 </span> <span class="subxComment"># check v->type</span> -<span id="L8680" class="LineNr"> 8680 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8681" class="LineNr"> 8681 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8682" class="LineNr"> 8682 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8683" class="LineNr"> 8683 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8684" class="LineNr"> 8684 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: -<span id="L8685" class="LineNr"> 8685 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> -<span id="L8686" class="LineNr"> 8686 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L8687" class="LineNr"> 8687 </span> 89/<- %edx 0/r32/eax -<span id="L8688" class="LineNr"> 8688 </span> <span class="subxComment"># v = lookup(outputs->value)</span> -<span id="L8689" class="LineNr"> 8689 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8690" class="LineNr"> 8690 </span> 89/<- %ebx 0/r32/eax -<span id="L8691" class="LineNr"> 8691 </span> <span class="subxComment"># check v->name</span> -<span id="L8692" class="LineNr"> 8692 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8693" class="LineNr"> 8693 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) -<span id="L8694" class="LineNr"> 8694 </span> <span class="subxComment"># check v->register</span> -<span id="L8695" class="LineNr"> 8695 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L8696" class="LineNr"> 8696 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) -<span id="L8697" class="LineNr"> 8697 </span> <span class="subxComment"># check v->type</span> -<span id="L8698" class="LineNr"> 8698 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8699" class="LineNr"> 8699 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8700" class="LineNr"> 8700 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8701" class="LineNr"> 8701 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8702" class="LineNr"> 8702 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: -<span id="L8703" class="LineNr"> 8703 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L8704" class="LineNr"> 8704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L8705" class="LineNr"> 8705 </span> 89/<- %edx 0/r32/eax -<span id="L8706" class="LineNr"> 8706 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L8707" class="LineNr"> 8707 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L8708" class="LineNr"> 8708 </span> 89/<- %ebx 0/r32/eax -<span id="L8709" class="LineNr"> 8709 </span> <span class="subxComment"># check v->name</span> -<span id="L8710" class="LineNr"> 8710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L8711" class="LineNr"> 8711 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"y"</span> <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) -<span id="L8712" class="LineNr"> 8712 </span> <span class="subxComment"># check v->register</span> -<span id="L8713" class="LineNr"> 8713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L8714" class="LineNr"> 8714 </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#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) -<span id="L8715" class="LineNr"> 8715 </span> <span class="subxComment"># check v->type</span> -<span id="L8716" class="LineNr"> 8716 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L8717" class="LineNr"> 8717 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8718" class="LineNr"> 8718 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L8719" class="LineNr"> 8719 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L8616'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L8720" class="LineNr"> 8720 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8721" class="LineNr"> 8721 </span> 89/<- %esp 5/r32/ebp -<span id="L8722" class="LineNr"> 8722 </span> 5d/pop-to-ebp -<span id="L8723" class="LineNr"> 8723 </span> c3/return -<span id="L8724" class="LineNr"> 8724 </span> -<span id="L8725" class="LineNr"> 8725 </span><span class="subxComment"># format for variables with types</span> -<span id="L8726" class="LineNr"> 8726 </span><span class="subxComment"># x: int</span> -<span id="L8727" class="LineNr"> 8727 </span><span class="subxComment"># x: int,</span> -<span id="L8728" class="LineNr"> 8728 </span><span class="subxComment"># x/eax: int</span> -<span id="L8729" class="LineNr"> 8729 </span><span class="subxComment"># x/eax: int,</span> -<span id="L8730" class="LineNr"> 8730 </span><span class="subxComment"># ignores at most one trailing comma</span> -<span id="L8731" class="LineNr"> 8731 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L8732" class="LineNr"> 8732 </span><span class="subxFunction">parse-var-with-type</span>: <span class="subxComment"># name: (addr slice), first-line: (addr stream byte), out: (addr handle var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L8733" class="LineNr"> 8733 </span> <span class="subxComment"># pseudocode:</span> -<span id="L8734" class="LineNr"> 8734 </span> <span class="subxComment"># var s: slice</span> -<span id="L8735" class="LineNr"> 8735 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> -<span id="L8736" class="LineNr"> 8736 </span> <span class="subxComment"># abort</span> -<span id="L8737" class="LineNr"> 8737 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L8738" class="LineNr"> 8738 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> -<span id="L8739" class="LineNr"> 8739 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L8740" class="LineNr"> 8740 </span> <span class="subxComment"># ## register</span> -<span id="L8741" class="LineNr"> 8741 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> -<span id="L8742" class="LineNr"> 8742 </span> <span class="subxComment"># if (!slice-empty?(s))</span> -<span id="L8743" class="LineNr"> 8743 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L8744" class="LineNr"> 8744 </span> <span class="subxComment"># ## type</span> -<span id="L8745" class="LineNr"> 8745 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> -<span id="L8746" class="LineNr"> 8746 </span> <span class="subxComment"># out->type = type</span> -<span id="L8747" class="LineNr"> 8747 </span> <span class="subxComment">#</span> -<span id="L8748" class="LineNr"> 8748 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8749" class="LineNr"> 8749 </span> 55/push-ebp -<span id="L8750" class="LineNr"> 8750 </span> 89/<- %ebp 4/r32/esp -<span id="L8751" class="LineNr"> 8751 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L8752" class="LineNr"> 8752 </span> 50/push-eax -<span id="L8753" class="LineNr"> 8753 </span> 51/push-ecx -<span id="L8754" class="LineNr"> 8754 </span> 52/push-edx -<span id="L8755" class="LineNr"> 8755 </span> 53/push-ebx -<span id="L8756" class="LineNr"> 8756 </span> 56/push-esi -<span id="L8757" class="LineNr"> 8757 </span> 57/push-edi -<span id="L8758" class="LineNr"> 8758 </span> <span class="subxComment"># esi = name</span> -<span id="L8759" class="LineNr"> 8759 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L8760" class="LineNr"> 8760 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> -<span id="L8761" class="LineNr"> 8761 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> -<span id="L8762" class="LineNr"> 8762 </span> 49/decrement-ecx -<span id="L8763" class="LineNr"> 8763 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L8764" class="LineNr"> 8764 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L8765" class="LineNr"> 8765 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon -<span id="L8766" class="LineNr"> 8766 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 -<span id="L8767" class="LineNr"> 8767 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L8768" class="LineNr"> 8768 </span> ff 1/subop/decrement *(esi+4) -<span id="L8769" class="LineNr"> 8769 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L8770" class="LineNr"> 8770 </span> 68/push 0/imm32/end -<span id="L8771" class="LineNr"> 8771 </span> 68/push 0/imm32/start -<span id="L8772" class="LineNr"> 8772 </span> 89/<- %ecx 4/r32/esp -<span id="L8773" class="LineNr"> 8773 </span><span class="Constant">$parse-var-with-type:parse-name</span>: -<span id="L8774" class="LineNr"> 8774 </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="L8775" class="LineNr"> 8775 </span><span class="Constant">$parse-var-with-type:create-var</span>: -<span id="L8776" class="LineNr"> 8776 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L8777" class="LineNr"> 8777 </span> (<a href='mu.subx.html#L11605'>new-var-from-slice</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) -<span id="L8778" class="LineNr"> 8778 </span> <span class="subxComment"># save out->register</span> -<span id="L8779" class="LineNr"> 8779 </span><span class="Constant">$parse-var-with-type:save-register</span>: -<span id="L8780" class="LineNr"> 8780 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> -<span id="L8781" class="LineNr"> 8781 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L8782" class="LineNr"> 8782 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L8783" class="LineNr"> 8783 </span> 89/<- %edi 0/r32/eax -<span id="L8784" class="LineNr"> 8784 </span> <span class="subxS1Comment"># . s = next-token(...)</span> -<span id="L8785" class="LineNr"> 8785 </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="L8786" class="LineNr"> 8786 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> -<span id="L8787" class="LineNr"> 8787 </span> { -<span id="L8788" class="LineNr"> 8788 </span><span class="Constant">$parse-var-with-type:write-register</span>: -<span id="L8789" class="LineNr"> 8789 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8790" class="LineNr"> 8790 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8791" class="LineNr"> 8791 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L8792" class="LineNr"> 8792 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L8793" class="LineNr"> 8793 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L8794" class="LineNr"> 8794 </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="L8795" class="LineNr"> 8795 </span> } -<span id="L8796" class="LineNr"> 8796 </span><span class="Constant">$parse-var-with-type:save-type</span>: -<span id="L8797" class="LineNr"> 8797 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L8798" class="LineNr"> 8798 </span> (<a href='mu.subx.html#L8825'>parse-type</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L8799" class="LineNr"> 8799 </span><span class="Constant">$parse-var-with-type:end</span>: -<span id="L8800" class="LineNr"> 8800 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L8801" class="LineNr"> 8801 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8802" class="LineNr"> 8802 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L8803" class="LineNr"> 8803 </span> 5f/pop-to-edi -<span id="L8804" class="LineNr"> 8804 </span> 5e/pop-to-esi -<span id="L8805" class="LineNr"> 8805 </span> 5b/pop-to-ebx -<span id="L8806" class="LineNr"> 8806 </span> 5a/pop-to-edx -<span id="L8807" class="LineNr"> 8807 </span> 59/pop-to-ecx -<span id="L8808" class="LineNr"> 8808 </span> 58/pop-to-eax -<span id="L8809" class="LineNr"> 8809 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8810" class="LineNr"> 8810 </span> 89/<- %esp 5/r32/ebp -<span id="L8811" class="LineNr"> 8811 </span> 5d/pop-to-ebp -<span id="L8812" class="LineNr"> 8812 </span> c3/return -<span id="L8813" class="LineNr"> 8813 </span> -<span id="L8814" class="LineNr"> 8814 </span><span class="Constant">$parse-var-with-type:abort</span>: -<span id="L8815" class="LineNr"> 8815 </span> <span class="subxComment"># error("var should have form 'name: type' in '" line "'\n")</span> -<span id="L8816" class="LineNr"> 8816 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"var should have form 'name: type' in '"</span>) -<span id="L8817" class="LineNr"> 8817 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8818" class="LineNr"> 8818 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L8819" class="LineNr"> 8819 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+0xc)) -<span id="L8820" class="LineNr"> 8820 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L8821" class="LineNr"> 8821 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8822" class="LineNr"> 8822 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L8823" class="LineNr"> 8823 </span> <span class="subxComment"># never gets here</span> -<span id="L8824" class="LineNr"> 8824 </span> -<span id="L8825" class="LineNr"> 8825 </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="L8826" class="LineNr"> 8826 </span> <span class="subxComment"># pseudocode:</span> -<span id="L8827" class="LineNr"> 8827 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> -<span id="L8828" class="LineNr"> 8828 </span> <span class="subxComment"># assert s != ""</span> -<span id="L8829" class="LineNr"> 8829 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L8830" class="LineNr"> 8830 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L8831" class="LineNr"> 8831 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L8832" class="LineNr"> 8832 </span> <span class="subxComment"># if s == ")"</span> -<span id="L8833" class="LineNr"> 8833 </span> <span class="subxComment"># return</span> -<span id="L8834" class="LineNr"> 8834 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L8835" class="LineNr"> 8835 </span> <span class="subxComment"># if s != "("</span> -<span id="L8836" class="LineNr"> 8836 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> -<span id="L8837" class="LineNr"> 8837 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L8838" class="LineNr"> 8838 </span> <span class="subxComment"># if (s[0] == "_")</span> -<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L8840" class="LineNr"> 8840 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L8841" class="LineNr"> 8841 </span> <span class="subxComment"># else</span> -<span id="L8842" class="LineNr"> 8842 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L8843" class="LineNr"> 8843 </span> <span class="subxComment"># return</span> -<span id="L8844" class="LineNr"> 8844 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L8845" class="LineNr"> 8845 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L8846" class="LineNr"> 8846 </span> <span class="subxComment">#</span> -<span id="L8847" class="LineNr"> 8847 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8848" class="LineNr"> 8848 </span> 55/push-ebp -<span id="L8849" class="LineNr"> 8849 </span> 89/<- %ebp 4/r32/esp -<span id="L8850" class="LineNr"> 8850 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L8851" class="LineNr"> 8851 </span> 50/push-eax -<span id="L8852" class="LineNr"> 8852 </span> 51/push-ecx -<span id="L8853" class="LineNr"> 8853 </span> 52/push-edx -<span id="L8854" class="LineNr"> 8854 </span> <span class="subxComment"># clear out</span> -<span id="L8855" class="LineNr"> 8855 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># var s/ecx: slice</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/<- %ecx 4/r32/esp -<span id="L8860" class="LineNr"> 8860 </span> <span class="subxComment"># s = next-mu-token(in)</span> -<span id="L8861" class="LineNr"> 8861 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L8862" class="LineNr"> 8862 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> -<span id="L8863" class="LineNr"> 8863 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L8864" class="LineNr"> 8864 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> -<span id="L8865" class="LineNr"> 8865 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L8866" class="LineNr"> 8866 </span> <span class="subxComment"># assert s != ""</span> -<span id="L8867" class="LineNr"> 8867 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> -<span id="L8868" class="LineNr"> 8868 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8869" class="LineNr"> 8869 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L8870" class="LineNr"> 8870 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L8871" class="LineNr"> 8871 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L8872" class="LineNr"> 8872 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8873" class="LineNr"> 8873 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L8874" class="LineNr"> 8874 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L8875" class="LineNr"> 8875 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L8876" class="LineNr"> 8876 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8877" class="LineNr"> 8877 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L8878" class="LineNr"> 8878 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L8879" class="LineNr"> 8879 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L8880" class="LineNr"> 8880 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8881" class="LineNr"> 8881 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L8882" class="LineNr"> 8882 </span> <span class="subxComment"># if (s == ")") return</span> -<span id="L8883" class="LineNr"> 8883 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> -<span id="L8884" class="LineNr"> 8884 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8885" class="LineNr"> 8885 </span> 0f 85/jump-if-!= $parse-type:end/disp32 -<span id="L8886" class="LineNr"> 8886 </span> <span class="subxComment"># out = new tree</span> -<span id="L8887" class="LineNr"> 8887 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> *(ebp+0x10)) -<span id="L8888" class="LineNr"> 8888 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> -<span id="L8889" class="LineNr"> 8889 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L8890" class="LineNr"> 8890 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L8891" class="LineNr"> 8891 </span> 89/<- %edx 0/r32/eax -<span id="L8892" class="LineNr"> 8892 </span> { -<span id="L8893" class="LineNr"> 8893 </span> <span class="subxComment"># if (s != "(") break</span> -<span id="L8894" class="LineNr"> 8894 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> -<span id="L8895" class="LineNr"> 8895 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8896" class="LineNr"> 8896 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L8897" class="LineNr"> 8897 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> -<span id="L8898" class="LineNr"> 8898 </span> { -<span id="L8899" class="LineNr"> 8899 </span><span class="Constant">$parse-type:check-for-int</span>: -<span id="L8900" class="LineNr"> 8900 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L8901" class="LineNr"> 8901 </span> 8b/-> *ecx 0/r32/eax -<span id="L8902" class="LineNr"> 8902 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L8903" class="LineNr"> 8903 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L8904" class="LineNr"> 8904 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> -<span id="L8905" class="LineNr"> 8905 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L8906" class="LineNr"> 8906 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8907" class="LineNr"> 8907 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L8908" class="LineNr"> 8908 </span> <span class="subxComment">#</span> -<span id="L8909" class="LineNr"> 8909 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8910" class="LineNr"> 8910 </span> 3d/compare-eax-and 0/imm32/false -<span id="L8911" class="LineNr"> 8911 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L8912" class="LineNr"> 8912 </span><span class="Constant">$parse-type:int</span>: -<span id="L8913" class="LineNr"> 8913 </span> (<a href='mu.subx.html#L11508'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L8914" class="LineNr"> 8914 </span> (<a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L8915" class="LineNr"> 8915 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> -<span id="L8916" class="LineNr"> 8916 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> -<span id="L8917" class="LineNr"> 8917 </span> e9/jump $parse-type:end/disp32 -<span id="L8918" class="LineNr"> 8918 </span> } -<span id="L8919" class="LineNr"> 8919 </span><span class="Constant">$parse-type:atom</span>: -<span id="L8920" class="LineNr"> 8920 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L8921" class="LineNr"> 8921 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L8922" class="LineNr"> 8922 </span> { -<span id="L8923" class="LineNr"> 8923 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: -<span id="L8924" class="LineNr"> 8924 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L8925" class="LineNr"> 8925 </span> 8b/-> *ecx 0/r32/eax -<span id="L8926" class="LineNr"> 8926 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L8927" class="LineNr"> 8927 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment"># if (tmp != '_') break</span> -<span id="L8929" class="LineNr"> 8929 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L8930" class="LineNr"> 8930 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L8931" class="LineNr"> 8931 </span><span class="Constant">$parse-type:type-parameter</span>: -<span id="L8932" class="LineNr"> 8932 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L8933" class="LineNr"> 8933 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L8934" class="LineNr"> 8934 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L8935" class="LineNr"> 8935 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> -<span id="L8936" class="LineNr"> 8936 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) -<span id="L8937" class="LineNr"> 8937 </span> e9/jump $parse-type:end/disp32 -<span id="L8938" class="LineNr"> 8938 </span> } -<span id="L8939" class="LineNr"> 8939 </span><span class="Constant">$parse-type:non-type-parameter</span>: -<span id="L8940" class="LineNr"> 8940 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L8941" class="LineNr"> 8941 </span> (<a href='mu.subx.html#L9197'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> %ecx) <span class="subxComment"># => eax</span> -<span id="L8942" class="LineNr"> 8942 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L8943" class="LineNr"> 8943 </span> e9/jump $parse-type:end/disp32 -<span id="L8944" class="LineNr"> 8944 </span> } -<span id="L8945" class="LineNr"> 8945 </span><span class="Constant">$parse-type:non-atom</span>: -<span id="L8946" class="LineNr"> 8946 </span> <span class="subxComment"># otherwise s == "("</span> -<span id="L8947" class="LineNr"> 8947 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L8948" class="LineNr"> 8948 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L8949" class="LineNr"> 8949 </span> (<a href='mu.subx.html#L8825'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L8950" class="LineNr"> 8950 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L8951" class="LineNr"> 8951 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L8952" class="LineNr"> 8952 </span> (<a href='mu.subx.html#L8974'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L8953" class="LineNr"> 8953 </span><span class="Constant">$parse-type:end</span>: -<span id="L8954" class="LineNr"> 8954 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L8955" class="LineNr"> 8955 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8956" class="LineNr"> 8956 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L8957" class="LineNr"> 8957 </span> 5a/pop-to-edx -<span id="L8958" class="LineNr"> 8958 </span> 59/pop-to-ecx -<span id="L8959" class="LineNr"> 8959 </span> 58/pop-to-eax -<span id="L8960" class="LineNr"> 8960 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8961" class="LineNr"> 8961 </span> 89/<- %esp 5/r32/ebp -<span id="L8962" class="LineNr"> 8962 </span> 5d/pop-to-ebp -<span id="L8963" class="LineNr"> 8963 </span> c3/return -<span id="L8964" class="LineNr"> 8964 </span> -<span id="L8965" class="LineNr"> 8965 </span><span class="Constant">$parse-type:abort</span>: -<span id="L8966" class="LineNr"> 8966 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> -<span id="L8967" class="LineNr"> 8967 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) -<span id="L8968" class="LineNr"> 8968 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L8969" class="LineNr"> 8969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L8970" class="LineNr"> 8970 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L8971" class="LineNr"> 8971 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L8972" class="LineNr"> 8972 </span> <span class="subxComment"># never gets here</span> -<span id="L8973" class="LineNr"> 8973 </span> -<span id="L8974" class="LineNr"> 8974 </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="L8975" class="LineNr"> 8975 </span> <span class="subxComment"># pseudocode:</span> -<span id="L8976" class="LineNr"> 8976 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> -<span id="L8977" class="LineNr"> 8977 </span> <span class="subxComment"># if tmp == 0</span> -<span id="L8978" class="LineNr"> 8978 </span> <span class="subxComment"># return 0</span> -<span id="L8979" class="LineNr"> 8979 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L8980" class="LineNr"> 8980 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L8981" class="LineNr"> 8981 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L8982" class="LineNr"> 8982 </span> <span class="subxComment">#</span> -<span id="L8983" class="LineNr"> 8983 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8984" class="LineNr"> 8984 </span> 55/push-ebp -<span id="L8985" class="LineNr"> 8985 </span> 89/<- %ebp 4/r32/esp -<span id="L8986" class="LineNr"> 8986 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L8987" class="LineNr"> 8987 </span> 50/push-eax -<span id="L8988" class="LineNr"> 8988 </span> 51/push-ecx -<span id="L8989" class="LineNr"> 8989 </span> 52/push-edx -<span id="L8990" class="LineNr"> 8990 </span> <span class="subxComment">#</span> -<span id="L8991" class="LineNr"> 8991 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L8992" class="LineNr"> 8992 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> -<span id="L8993" class="LineNr"> 8993 </span> 68/push 0/imm32 -<span id="L8994" class="LineNr"> 8994 </span> 68/push 0/imm32 -<span id="L8995" class="LineNr"> 8995 </span> 89/<- %ecx 4/r32/esp -<span id="L8996" class="LineNr"> 8996 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> -<span id="L8997" class="LineNr"> 8997 </span> (<a href='mu.subx.html#L8825'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L8998" class="LineNr"> 8998 </span> <span class="subxComment"># if (tmp == 0) return</span> -<span id="L8999" class="LineNr"> 8999 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L9000" class="LineNr"> 9000 </span> 74/jump-if-= $parse-type-tree:end/disp8 -<span id="L9001" class="LineNr"> 9001 </span> <span class="subxComment"># out = new tree</span> -<span id="L9002" class="LineNr"> 9002 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> *(ebp+0x10)) -<span id="L9003" class="LineNr"> 9003 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> -<span id="L9004" class="LineNr"> 9004 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L9005" class="LineNr"> 9005 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9006" class="LineNr"> 9006 </span> 89/<- %edx 0/r32/eax -<span id="L9007" class="LineNr"> 9007 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L9008" class="LineNr"> 9008 </span> 8b/-> *ecx 0/r32/eax -<span id="L9009" class="LineNr"> 9009 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L9010" class="LineNr"> 9010 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L9011" class="LineNr"> 9011 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L9012" class="LineNr"> 9012 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L9013" class="LineNr"> 9013 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L9014" class="LineNr"> 9014 </span> (<a href='mu.subx.html#L8974'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L9015" class="LineNr"> 9015 </span><span class="Constant">$parse-type-tree:end</span>: -<span id="L9016" class="LineNr"> 9016 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L9017" class="LineNr"> 9017 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9018" class="LineNr"> 9018 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L9019" class="LineNr"> 9019 </span> 5a/pop-to-edx -<span id="L9020" class="LineNr"> 9020 </span> 59/pop-to-ecx -<span id="L9021" class="LineNr"> 9021 </span> 58/pop-to-eax -<span id="L9022" class="LineNr"> 9022 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9023" class="LineNr"> 9023 </span> 89/<- %esp 5/r32/ebp -<span id="L9024" class="LineNr"> 9024 </span> 5d/pop-to-ebp -<span id="L9025" class="LineNr"> 9025 </span> c3/return -<span id="L9026" class="LineNr"> 9026 </span> -<span id="L9027" class="LineNr"> 9027 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> -<span id="L9028" class="LineNr"> 9028 </span> <span class="subxComment"># pseudocode:</span> -<span id="L9029" class="LineNr"> 9029 </span> <span class="subxComment"># start:</span> -<span id="L9030" class="LineNr"> 9030 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> -<span id="L9031" class="LineNr"> 9031 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> -<span id="L9032" class="LineNr"> 9032 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L9033" class="LineNr"> 9033 </span> <span class="subxComment"># return</span> -<span id="L9034" class="LineNr"> 9034 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L9035" class="LineNr"> 9035 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L9036" class="LineNr"> 9036 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> -<span id="L9037" class="LineNr"> 9037 </span> <span class="subxComment"># ++in->read</span> -<span id="L9038" class="LineNr"> 9038 </span> <span class="subxComment"># goto start</span> -<span id="L9039" class="LineNr"> 9039 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> -<span id="L9040" class="LineNr"> 9040 </span> <span class="subxComment"># goto done # treat as eof</span> -<span id="L9041" class="LineNr"> 9041 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> -<span id="L9042" class="LineNr"> 9042 </span> <span class="subxComment"># skip-string(in)</span> -<span id="L9043" class="LineNr"> 9043 </span> <span class="subxComment"># goto done # no metadata</span> -<span id="L9044" class="LineNr"> 9044 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L9045" class="LineNr"> 9045 </span> <span class="subxComment"># ++in->read</span> -<span id="L9046" class="LineNr"> 9046 </span> <span class="subxComment"># goto done</span> -<span id="L9047" class="LineNr"> 9047 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># ++in->read</span> -<span id="L9049" class="LineNr"> 9049 </span> <span class="subxComment"># goto done</span> -<span id="L9050" class="LineNr"> 9050 </span> <span class="subxComment"># # read a word</span> -<span id="L9051" class="LineNr"> 9051 </span> <span class="subxComment"># while true</span> -<span id="L9052" class="LineNr"> 9052 </span> <span class="subxComment"># if in->read >= in->write</span> -<span id="L9053" class="LineNr"> 9053 </span> <span class="subxComment"># break</span> -<span id="L9054" class="LineNr"> 9054 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> -<span id="L9055" class="LineNr"> 9055 </span> <span class="subxComment"># if curr-byte == ' '</span> -<span id="L9056" class="LineNr"> 9056 </span> <span class="subxComment"># break</span> -<span id="L9057" class="LineNr"> 9057 </span> <span class="subxComment"># if curr-byte == '\r'</span> -<span id="L9058" class="LineNr"> 9058 </span> <span class="subxComment"># break</span> -<span id="L9059" class="LineNr"> 9059 </span> <span class="subxComment"># if curr-byte == '\n'</span> -<span id="L9060" class="LineNr"> 9060 </span> <span class="subxComment"># break</span> -<span id="L9061" class="LineNr"> 9061 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L9062" class="LineNr"> 9062 </span> <span class="subxComment"># break</span> -<span id="L9063" class="LineNr"> 9063 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L9064" class="LineNr"> 9064 </span> <span class="subxComment"># break</span> -<span id="L9065" class="LineNr"> 9065 </span> <span class="subxComment"># if curr-byte == ','</span> -<span id="L9066" class="LineNr"> 9066 </span> <span class="subxComment"># break</span> -<span id="L9067" class="LineNr"> 9067 </span> <span class="subxComment"># ++in->read</span> -<span id="L9068" class="LineNr"> 9068 </span> <span class="subxComment"># done:</span> -<span id="L9069" class="LineNr"> 9069 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L9070" class="LineNr"> 9070 </span> <span class="subxComment">#</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="subxS1Comment"># . save registers</span> -<span id="L9075" class="LineNr"> 9075 </span> 50/push-eax -<span id="L9076" class="LineNr"> 9076 </span> 51/push-ecx -<span id="L9077" class="LineNr"> 9077 </span> 56/push-esi -<span id="L9078" class="LineNr"> 9078 </span> 57/push-edi -<span id="L9079" class="LineNr"> 9079 </span> <span class="subxComment"># esi = in</span> -<span id="L9080" class="LineNr"> 9080 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L9081" class="LineNr"> 9081 </span> <span class="subxComment"># edi = out</span> -<span id="L9082" class="LineNr"> 9082 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L9083" class="LineNr"> 9083 </span><span class="Constant">$next-mu-token:start</span>: -<span id="L9084" class="LineNr"> 9084 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) -<span id="L9085" class="LineNr"> 9085 </span><span class="Constant">$next-mu-token:check0</span>: -<span id="L9086" class="LineNr"> 9086 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> -<span id="L9087" class="LineNr"> 9087 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L9088" class="LineNr"> 9088 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L9089" class="LineNr"> 9089 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> -<span id="L9090" class="LineNr"> 9090 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L9091" class="LineNr"> 9091 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L9092" class="LineNr"> 9092 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L9093" class="LineNr"> 9093 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 -<span id="L9094" class="LineNr"> 9094 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L9095" class="LineNr"> 9095 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L9096" class="LineNr"> 9096 </span> 89/<- *edi 0/r32/eax -<span id="L9097" class="LineNr"> 9097 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L9098" class="LineNr"> 9098 </span> 31/xor-with %eax 0/r32/eax -<span id="L9099" class="LineNr"> 9099 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L9100" class="LineNr"> 9100 </span> { -<span id="L9101" class="LineNr"> 9101 </span><span class="Constant">$next-mu-token:check-for-comma</span>: -<span id="L9102" class="LineNr"> 9102 </span> <span class="subxComment"># if (curr-byte != ',') break</span> -<span id="L9103" class="LineNr"> 9103 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L9104" class="LineNr"> 9104 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9105" class="LineNr"> 9105 </span> <span class="subxComment"># ++in->read</span> -<span id="L9106" class="LineNr"> 9106 </span> ff 0/subop/increment *(esi+4) -<span id="L9107" class="LineNr"> 9107 </span> <span class="subxComment"># restart</span> -<span id="L9108" class="LineNr"> 9108 </span> e9/jump $next-mu-token:start/disp32 -<span id="L9109" class="LineNr"> 9109 </span> } -<span id="L9110" class="LineNr"> 9110 </span> { -<span id="L9111" class="LineNr"> 9111 </span><span class="Constant">$next-mu-token:check-for-comment</span>: -<span id="L9112" class="LineNr"> 9112 </span> <span class="subxComment"># if (curr-byte != '#') break</span> -<span id="L9113" class="LineNr"> 9113 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L9114" class="LineNr"> 9114 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9115" class="LineNr"> 9115 </span> <span class="subxComment"># return eof</span> -<span id="L9116" class="LineNr"> 9116 </span> e9/jump $next-mu-token:done/disp32 -<span id="L9117" class="LineNr"> 9117 </span> } -<span id="L9118" class="LineNr"> 9118 </span> { -<span id="L9119" class="LineNr"> 9119 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: -<span id="L9120" class="LineNr"> 9120 </span> <span class="subxComment"># if (curr-byte != '"') break</span> -<span id="L9121" class="LineNr"> 9121 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L9122" class="LineNr"> 9122 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9123" class="LineNr"> 9123 </span> (<a href='../124next-token.subx.html#L1171'>skip-string</a> %esi) -<span id="L9124" class="LineNr"> 9124 </span> <span class="subxComment"># return</span> -<span id="L9125" class="LineNr"> 9125 </span> e9/jump $next-mu-token:done/disp32 -<span id="L9126" class="LineNr"> 9126 </span> } -<span id="L9127" class="LineNr"> 9127 </span> { -<span id="L9128" class="LineNr"> 9128 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: -<span id="L9129" class="LineNr"> 9129 </span> <span class="subxComment"># if (curr-byte != '(') break</span> -<span id="L9130" class="LineNr"> 9130 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L9131" class="LineNr"> 9131 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9132" class="LineNr"> 9132 </span> <span class="subxComment"># ++in->read</span> -<span id="L9133" class="LineNr"> 9133 </span> ff 0/subop/increment *(esi+4) -<span id="L9134" class="LineNr"> 9134 </span> <span class="subxComment"># return</span> -<span id="L9135" class="LineNr"> 9135 </span> e9/jump $next-mu-token:done/disp32 -<span id="L9136" class="LineNr"> 9136 </span> } -<span id="L9137" class="LineNr"> 9137 </span> { -<span id="L9138" class="LineNr"> 9138 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: -<span id="L9139" class="LineNr"> 9139 </span> <span class="subxComment"># if (curr-byte != ')') break</span> -<span id="L9140" class="LineNr"> 9140 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L9141" class="LineNr"> 9141 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9142" class="LineNr"> 9142 </span> <span class="subxComment"># ++in->read</span> -<span id="L9143" class="LineNr"> 9143 </span> ff 0/subop/increment *(esi+4) -<span id="L9144" class="LineNr"> 9144 </span> <span class="subxComment"># return</span> -<span id="L9145" class="LineNr"> 9145 </span> e9/jump $next-mu-token:done/disp32 -<span id="L9146" class="LineNr"> 9146 </span> } -<span id="L9147" class="LineNr"> 9147 </span> { -<span id="L9148" class="LineNr"> 9148 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: -<span id="L9149" class="LineNr"> 9149 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L9150" class="LineNr"> 9150 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L9151" class="LineNr"> 9151 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L9152" class="LineNr"> 9152 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> -<span id="L9153" class="LineNr"> 9153 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L9154" class="LineNr"> 9154 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L9155" class="LineNr"> 9155 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> -<span id="L9156" class="LineNr"> 9156 </span> 31/xor-with %eax 0/r32/eax -<span id="L9157" class="LineNr"> 9157 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L9158" class="LineNr"> 9158 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L9159" class="LineNr"> 9159 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L9160" class="LineNr"> 9160 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L9161" class="LineNr"> 9161 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L9162" class="LineNr"> 9162 </span> 3d/compare-eax-and 0xd/imm32/carriage-return -<span id="L9163" class="LineNr"> 9163 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L9164" class="LineNr"> 9164 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L9165" class="LineNr"> 9165 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L9166" class="LineNr"> 9166 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L9167" class="LineNr"> 9167 </span> <span class="subxComment"># if (c == '(') break</span> -<span id="L9168" class="LineNr"> 9168 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L9169" class="LineNr"> 9169 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L9170" class="LineNr"> 9170 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L9171" class="LineNr"> 9171 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L9172" class="LineNr"> 9172 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L9173" class="LineNr"> 9173 </span> <span class="subxComment"># if (c == ',') break</span> -<span id="L9174" class="LineNr"> 9174 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L9175" class="LineNr"> 9175 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L9176" class="LineNr"> 9176 </span> <span class="subxComment"># ++in->read</span> -<span id="L9177" class="LineNr"> 9177 </span> ff 0/subop/increment *(esi+4) -<span id="L9178" class="LineNr"> 9178 </span> <span class="subxComment">#</span> -<span id="L9179" class="LineNr"> 9179 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L9180" class="LineNr"> 9180 </span> } -<span id="L9181" class="LineNr"> 9181 </span><span class="Constant">$next-mu-token:done</span>: -<span id="L9182" class="LineNr"> 9182 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L9183" class="LineNr"> 9183 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L9184" class="LineNr"> 9184 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L9185" class="LineNr"> 9185 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L9186" class="LineNr"> 9186 </span><span class="Constant">$next-mu-token:end</span>: -<span id="L9187" class="LineNr"> 9187 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L9188" class="LineNr"> 9188 </span> 5f/pop-to-edi -<span id="L9189" class="LineNr"> 9189 </span> 5e/pop-to-esi -<span id="L9190" class="LineNr"> 9190 </span> 59/pop-to-ecx -<span id="L9191" class="LineNr"> 9191 </span> 58/pop-to-eax -<span id="L9192" class="LineNr"> 9192 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9193" class="LineNr"> 9193 </span> 89/<- %esp 5/r32/ebp -<span id="L9194" class="LineNr"> 9194 </span> 5d/pop-to-ebp -<span id="L9195" class="LineNr"> 9195 </span> c3/return -<span id="L9196" class="LineNr"> 9196 </span> -<span id="L9197" class="LineNr"> 9197 </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="L9198" class="LineNr"> 9198 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9199" class="LineNr"> 9199 </span> 55/push-ebp -<span id="L9200" class="LineNr"> 9200 </span> 89/<- %ebp 4/r32/esp -<span id="L9201" class="LineNr"> 9201 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> -<span id="L9202" class="LineNr"> 9202 </span> (<a href='mu.subx.html#L9225'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L9203" class="LineNr"> 9203 </span> 3d/compare-eax-and -1/imm32 -<span id="L9204" class="LineNr"> 9204 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 -<span id="L9205" class="LineNr"> 9205 </span><span class="Constant">$pos-or-insert-slice:insert</span>: -<span id="L9206" class="LineNr"> 9206 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> -<span id="L9207" class="LineNr"> 9207 </span> 68/push 0/imm32 -<span id="L9208" class="LineNr"> 9208 </span> 68/push 0/imm32 -<span id="L9209" class="LineNr"> 9209 </span> 89/<- %eax 4/r32/esp -<span id="L9210" class="LineNr"> 9210 </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="L9211" class="LineNr"> 9211 </span> <span class="subxComment"># throw away alloc-id</span> -<span id="L9212" class="LineNr"> 9212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L9213" class="LineNr"> 9213 </span> (<a href='../202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) -<span id="L9214" class="LineNr"> 9214 </span> (<a href='mu.subx.html#L9225'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L9215" class="LineNr"> 9215 </span><span class="Constant">$pos-or-insert-slice:end</span>: -<span id="L9216" class="LineNr"> 9216 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L9217" class="LineNr"> 9217 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9218" class="LineNr"> 9218 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9219" class="LineNr"> 9219 </span> 89/<- %esp 5/r32/ebp -<span id="L9220" class="LineNr"> 9220 </span> 5d/pop-to-ebp -<span id="L9221" class="LineNr"> 9221 </span> c3/return -<span id="L9222" class="LineNr"> 9222 </span> -<span id="L9223" class="LineNr"> 9223 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> -<span id="L9224" class="LineNr"> 9224 </span><span class="subxComment"># index is denominated in elements, not bytes</span> -<span id="L9225" class="LineNr"> 9225 </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="L9226" class="LineNr"> 9226 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9227" class="LineNr"> 9227 </span> 55/push-ebp -<span id="L9228" class="LineNr"> 9228 </span> 89/<- %ebp 4/r32/esp -<span id="L9229" class="LineNr"> 9229 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L9230" class="LineNr"> 9230 </span> 51/push-ecx -<span id="L9231" class="LineNr"> 9231 </span> 52/push-edx -<span id="L9232" class="LineNr"> 9232 </span> 53/push-ebx -<span id="L9233" class="LineNr"> 9233 </span> 56/push-esi -<span id="L9234" class="LineNr"> 9234 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> -<span id="L9235" class="LineNr"> 9235 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L9236" class="LineNr"> 9236 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L9237" class="LineNr"> 9237 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L9238" class="LineNr"> 9238 </span> <span class="subxComment"># esi = arr</span> -<span id="L9239" class="LineNr"> 9239 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L9240" class="LineNr"> 9240 </span> <span class="subxComment"># var index/ecx: int = 0</span> -<span id="L9241" class="LineNr"> 9241 </span> b9/copy-to-ecx 0/imm32 -<span id="L9242" class="LineNr"> 9242 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> -<span id="L9243" class="LineNr"> 9243 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L9244" class="LineNr"> 9244 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> -<span id="L9245" class="LineNr"> 9245 </span> 8b/-> *esi 3/r32/ebx -<span id="L9246" class="LineNr"> 9246 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx -<span id="L9247" class="LineNr"> 9247 </span> { -<span id="L9248" class="LineNr"> 9248 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L9249" class="LineNr"> 9249 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L9250" class="LineNr"> 9250 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L9251" class="LineNr"> 9251 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L9252" class="LineNr"> 9252 </span> <span class="subxComment"># if (curr >= max) return -1</span> -<span id="L9253" class="LineNr"> 9253 </span> 39/compare %edx 3/r32/ebx -<span id="L9254" class="LineNr"> 9254 </span> b8/copy-to-eax -1/imm32 -<span id="L9255" class="LineNr"> 9255 </span> 73/jump-if-addr>= $pos-slice:end/disp8 -<span id="L9256" class="LineNr"> 9256 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> -<span id="L9257" class="LineNr"> 9257 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> -<span id="L9258" class="LineNr"> 9258 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9259" class="LineNr"> 9259 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L9260" class="LineNr"> 9260 </span> <span class="subxComment"># ++index</span> -<span id="L9261" class="LineNr"> 9261 </span> 41/increment-ecx -<span id="L9262" class="LineNr"> 9262 </span> <span class="subxComment"># curr += 4</span> -<span id="L9263" class="LineNr"> 9263 </span> 81 0/subop/add %edx 4/imm32 -<span id="L9264" class="LineNr"> 9264 </span> <span class="subxComment">#</span> -<span id="L9265" class="LineNr"> 9265 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L9266" class="LineNr"> 9266 </span> } -<span id="L9267" class="LineNr"> 9267 </span> <span class="subxComment"># return index</span> -<span id="L9268" class="LineNr"> 9268 </span> 89/<- %eax 1/r32/ecx -<span id="L9269" class="LineNr"> 9269 </span><span class="Constant">$pos-slice:end</span>: -<span id="L9270" class="LineNr"> 9270 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L9271" class="LineNr"> 9271 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L9272" class="LineNr"> 9272 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L9273" class="LineNr"> 9273 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L9274" class="LineNr"> 9274 </span> 5e/pop-to-esi -<span id="L9275" class="LineNr"> 9275 </span> 5b/pop-to-ebx -<span id="L9276" class="LineNr"> 9276 </span> 5a/pop-to-edx -<span id="L9277" class="LineNr"> 9277 </span> 59/pop-to-ecx -<span id="L9278" class="LineNr"> 9278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9279" class="LineNr"> 9279 </span> 89/<- %esp 5/r32/ebp -<span id="L9280" class="LineNr"> 9280 </span> 5d/pop-to-ebp -<span id="L9281" class="LineNr"> 9281 </span> c3/return -<span id="L9282" class="LineNr"> 9282 </span> -<span id="L9283" class="LineNr"> 9283 </span><span class="subxTest">test-parse-var-with-type</span>: -<span id="L9284" class="LineNr"> 9284 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9285" class="LineNr"> 9285 </span> 55/push-ebp -<span id="L9286" class="LineNr"> 9286 </span> 89/<- %ebp 4/r32/esp -<span id="L9287" class="LineNr"> 9287 </span> <span class="subxComment"># setup</span> -<span id="L9288" class="LineNr"> 9288 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L9289" class="LineNr"> 9289 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L9290" class="LineNr"> 9290 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L9291" class="LineNr"> 9291 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L9292" class="LineNr"> 9292 </span> 8b/-> *eax 1/r32/ecx -<span id="L9293" class="LineNr"> 9293 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9294" class="LineNr"> 9294 </span> 05/add-to-eax 4/imm32 -<span id="L9295" class="LineNr"> 9295 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9296" class="LineNr"> 9296 </span> 51/push-ecx -<span id="L9297" class="LineNr"> 9297 </span> 50/push-eax -<span id="L9298" class="LineNr"> 9298 </span> 89/<- %ecx 4/r32/esp -<span id="L9299" class="LineNr"> 9299 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L9300" class="LineNr"> 9300 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9301" class="LineNr"> 9301 </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="L9302" class="LineNr"> 9302 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L9303" class="LineNr"> 9303 </span> 68/push 0/imm32 -<span id="L9304" class="LineNr"> 9304 </span> 68/push 0/imm32 -<span id="L9305" class="LineNr"> 9305 </span> 89/<- %edx 4/r32/esp -<span id="L9306" class="LineNr"> 9306 </span> <span class="subxComment">#</span> -<span id="L9307" class="LineNr"> 9307 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9308" class="LineNr"> 9308 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L9309" class="LineNr"> 9309 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9310" class="LineNr"> 9310 </span> 89/<- %edx 0/r32/eax -<span id="L9311" class="LineNr"> 9311 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L9312" class="LineNr"> 9312 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L9313" class="LineNr"> 9313 </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#L9283'>test-parse-var-with-type</a>/name"</span>) -<span id="L9314" class="LineNr"> 9314 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L9315" class="LineNr"> 9315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L9316" class="LineNr"> 9316 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9283'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9317" class="LineNr"> 9317 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9283'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L9318" class="LineNr"> 9318 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9283'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L9319" class="LineNr"> 9319 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9320" class="LineNr"> 9320 </span> 89/<- %esp 5/r32/ebp -<span id="L9321" class="LineNr"> 9321 </span> 5d/pop-to-ebp -<span id="L9322" class="LineNr"> 9322 </span> c3/return -<span id="L9323" class="LineNr"> 9323 </span> -<span id="L9324" class="LineNr"> 9324 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: -<span id="L9325" class="LineNr"> 9325 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9326" class="LineNr"> 9326 </span> 55/push-ebp -<span id="L9327" class="LineNr"> 9327 </span> 89/<- %ebp 4/r32/esp -<span id="L9328" class="LineNr"> 9328 </span> <span class="subxComment"># setup</span> -<span id="L9329" class="LineNr"> 9329 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L9330" class="LineNr"> 9330 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L9331" class="LineNr"> 9331 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L9332" class="LineNr"> 9332 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L9333" class="LineNr"> 9333 </span> 8b/-> *eax 1/r32/ecx -<span id="L9334" class="LineNr"> 9334 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9335" class="LineNr"> 9335 </span> 05/add-to-eax 4/imm32 -<span id="L9336" class="LineNr"> 9336 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9337" class="LineNr"> 9337 </span> 51/push-ecx -<span id="L9338" class="LineNr"> 9338 </span> 50/push-eax -<span id="L9339" class="LineNr"> 9339 </span> 89/<- %ecx 4/r32/esp -<span id="L9340" class="LineNr"> 9340 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L9341" class="LineNr"> 9341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9342" class="LineNr"> 9342 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int"</span>) -<span id="L9343" class="LineNr"> 9343 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L9344" class="LineNr"> 9344 </span> 68/push 0/imm32 -<span id="L9345" class="LineNr"> 9345 </span> 68/push 0/imm32 -<span id="L9346" class="LineNr"> 9346 </span> 89/<- %edx 4/r32/esp -<span id="L9347" class="LineNr"> 9347 </span> <span class="subxComment">#</span> -<span id="L9348" class="LineNr"> 9348 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9349" class="LineNr"> 9349 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L9350" class="LineNr"> 9350 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9351" class="LineNr"> 9351 </span> 89/<- %edx 0/r32/eax -<span id="L9352" class="LineNr"> 9352 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L9353" class="LineNr"> 9353 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L9354" class="LineNr"> 9354 </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#L9324'>test-parse-var-with-type-and-register</a>/name"</span>) -<span id="L9355" class="LineNr"> 9355 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L9356" class="LineNr"> 9356 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L9357" class="LineNr"> 9357 </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#L9324'>test-parse-var-with-type-and-register</a>/register"</span>) -<span id="L9358" class="LineNr"> 9358 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L9359" class="LineNr"> 9359 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L9360" class="LineNr"> 9360 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9324'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9361" class="LineNr"> 9361 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9324'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L9362" class="LineNr"> 9362 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9324'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L9363" class="LineNr"> 9363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9364" class="LineNr"> 9364 </span> 89/<- %esp 5/r32/ebp -<span id="L9365" class="LineNr"> 9365 </span> 5d/pop-to-ebp -<span id="L9366" class="LineNr"> 9366 </span> c3/return -<span id="L9367" class="LineNr"> 9367 </span> -<span id="L9368" class="LineNr"> 9368 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: -<span id="L9369" class="LineNr"> 9369 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9370" class="LineNr"> 9370 </span> 55/push-ebp -<span id="L9371" class="LineNr"> 9371 </span> 89/<- %ebp 4/r32/esp -<span id="L9372" class="LineNr"> 9372 </span> <span class="subxComment"># setup</span> -<span id="L9373" class="LineNr"> 9373 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L9374" class="LineNr"> 9374 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L9375" class="LineNr"> 9375 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L9376" class="LineNr"> 9376 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L9377" class="LineNr"> 9377 </span> 8b/-> *eax 1/r32/ecx -<span id="L9378" class="LineNr"> 9378 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9379" class="LineNr"> 9379 </span> 05/add-to-eax 4/imm32 -<span id="L9380" class="LineNr"> 9380 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9381" class="LineNr"> 9381 </span> 51/push-ecx -<span id="L9382" class="LineNr"> 9382 </span> 50/push-eax -<span id="L9383" class="LineNr"> 9383 </span> 89/<- %ecx 4/r32/esp -<span id="L9384" class="LineNr"> 9384 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L9385" class="LineNr"> 9385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9386" class="LineNr"> 9386 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int,"</span>) -<span id="L9387" class="LineNr"> 9387 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L9388" class="LineNr"> 9388 </span> 68/push 0/imm32 -<span id="L9389" class="LineNr"> 9389 </span> 68/push 0/imm32 -<span id="L9390" class="LineNr"> 9390 </span> 89/<- %edx 4/r32/esp -<span id="L9391" class="LineNr"> 9391 </span> <span class="subxComment">#</span> -<span id="L9392" class="LineNr"> 9392 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9393" class="LineNr"> 9393 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L9394" class="LineNr"> 9394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9395" class="LineNr"> 9395 </span> 89/<- %edx 0/r32/eax -<span id="L9396" class="LineNr"> 9396 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L9397" class="LineNr"> 9397 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L9398" class="LineNr"> 9398 </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#L9368'>test-parse-var-with-trailing-characters</a>/name"</span>) -<span id="L9399" class="LineNr"> 9399 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L9400" class="LineNr"> 9400 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L9368'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L9401" class="LineNr"> 9401 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L9402" class="LineNr"> 9402 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L9403" class="LineNr"> 9403 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9368'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9404" class="LineNr"> 9404 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9368'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L9405" class="LineNr"> 9405 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9368'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L9406" class="LineNr"> 9406 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9407" class="LineNr"> 9407 </span> 89/<- %esp 5/r32/ebp -<span id="L9408" class="LineNr"> 9408 </span> 5d/pop-to-ebp -<span id="L9409" class="LineNr"> 9409 </span> c3/return -<span id="L9410" class="LineNr"> 9410 </span> -<span id="L9411" class="LineNr"> 9411 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: -<span id="L9412" class="LineNr"> 9412 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9413" class="LineNr"> 9413 </span> 55/push-ebp -<span id="L9414" class="LineNr"> 9414 </span> 89/<- %ebp 4/r32/esp -<span id="L9415" class="LineNr"> 9415 </span> <span class="subxComment"># setup</span> -<span id="L9416" class="LineNr"> 9416 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L9417" class="LineNr"> 9417 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L9418" class="LineNr"> 9418 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L9419" class="LineNr"> 9419 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L9420" class="LineNr"> 9420 </span> 8b/-> *eax 1/r32/ecx -<span id="L9421" class="LineNr"> 9421 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9422" class="LineNr"> 9422 </span> 05/add-to-eax 4/imm32 -<span id="L9423" class="LineNr"> 9423 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9424" class="LineNr"> 9424 </span> 51/push-ecx -<span id="L9425" class="LineNr"> 9425 </span> 50/push-eax -<span id="L9426" class="LineNr"> 9426 </span> 89/<- %ecx 4/r32/esp -<span id="L9427" class="LineNr"> 9427 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L9428" class="LineNr"> 9428 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<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">"int,"</span>) -<span id="L9430" class="LineNr"> 9430 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L9431" class="LineNr"> 9431 </span> 68/push 0/imm32 -<span id="L9432" class="LineNr"> 9432 </span> 68/push 0/imm32 -<span id="L9433" class="LineNr"> 9433 </span> 89/<- %edx 4/r32/esp -<span id="L9434" class="LineNr"> 9434 </span> <span class="subxComment">#</span> -<span id="L9435" class="LineNr"> 9435 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9436" class="LineNr"> 9436 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L9437" class="LineNr"> 9437 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9438" class="LineNr"> 9438 </span> 89/<- %edx 0/r32/eax -<span id="L9439" class="LineNr"> 9439 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L9440" class="LineNr"> 9440 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L9441" class="LineNr"> 9441 </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#L9411'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) -<span id="L9442" class="LineNr"> 9442 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L9443" class="LineNr"> 9443 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L9444" class="LineNr"> 9444 </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#L9411'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) -<span id="L9445" class="LineNr"> 9445 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L9446" class="LineNr"> 9446 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L9447" class="LineNr"> 9447 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9448" class="LineNr"> 9448 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L9449" class="LineNr"> 9449 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L9450" class="LineNr"> 9450 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9451" class="LineNr"> 9451 </span> 89/<- %esp 5/r32/ebp -<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-parse-var-with-compound-type</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> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L9461" class="LineNr"> 9461 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L9462" class="LineNr"> 9462 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L9463" class="LineNr"> 9463 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L9464" class="LineNr"> 9464 </span> 8b/-> *eax 1/r32/ecx -<span id="L9465" class="LineNr"> 9465 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9466" class="LineNr"> 9466 </span> 05/add-to-eax 4/imm32 -<span id="L9467" class="LineNr"> 9467 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9468" class="LineNr"> 9468 </span> 51/push-ecx -<span id="L9469" class="LineNr"> 9469 </span> 50/push-eax -<span id="L9470" class="LineNr"> 9470 </span> 89/<- %ecx 4/r32/esp -<span id="L9471" class="LineNr"> 9471 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> -<span id="L9472" class="LineNr"> 9472 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<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">"(addr int)"</span>) -<span id="L9474" class="LineNr"> 9474 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L9475" class="LineNr"> 9475 </span> 68/push 0/imm32 -<span id="L9476" class="LineNr"> 9476 </span> 68/push 0/imm32 -<span id="L9477" class="LineNr"> 9477 </span> 89/<- %edx 4/r32/esp -<span id="L9478" class="LineNr"> 9478 </span> <span class="subxComment">#</span> -<span id="L9479" class="LineNr"> 9479 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9480" class="LineNr"> 9480 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L9481" class="LineNr"> 9481 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L9482" class="LineNr"> 9482 </span> 89/<- %edx 0/r32/eax -<span id="L9483" class="LineNr"> 9483 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L9484" class="LineNr"> 9484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L9485" class="LineNr"> 9485 </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#L9455'>test-parse-var-with-compound-type</a>/name"</span>) -<span id="L9486" class="LineNr"> 9486 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L9487" class="LineNr"> 9487 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L9488" class="LineNr"> 9488 </span> <span class="subxH1Comment"># - check v-addr->type</span> -<span id="L9489" class="LineNr"> 9489 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> -<span id="L9490" class="LineNr"> 9490 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L9491" class="LineNr"> 9491 </span> 89/<- %edx 0/r32/eax -<span id="L9492" class="LineNr"> 9492 </span> <span class="subxComment"># type is a non-atom</span> -<span id="L9493" class="LineNr"> 9493 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9494" class="LineNr"> 9494 </span> <span class="subxComment"># type->left == atom(addr)</span> -<span id="L9495" class="LineNr"> 9495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L9496" class="LineNr"> 9496 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9497" class="LineNr"> 9497 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L9498" class="LineNr"> 9498 </span> <span class="subxComment"># type->right->left == atom(int)</span> -<span id="L9499" class="LineNr"> 9499 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L9500" class="LineNr"> 9500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L9501" class="LineNr"> 9501 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L9502" class="LineNr"> 9502 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L9503" class="LineNr"> 9503 </span> <span class="subxComment"># type->right->right == null</span> -<span id="L9504" class="LineNr"> 9504 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L9505" class="LineNr"> 9505 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9506" class="LineNr"> 9506 </span> 89/<- %esp 5/r32/ebp -<span id="L9507" class="LineNr"> 9507 </span> 5d/pop-to-ebp -<span id="L9508" class="LineNr"> 9508 </span> c3/return -<span id="L9509" class="LineNr"> 9509 </span> -<span id="L9510" class="LineNr"> 9510 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> -<span id="L9511" class="LineNr"> 9511 </span><span class="subxComment"># no constraints at the moment on later letters</span> -<span id="L9512" class="LineNr"> 9512 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> -<span id="L9513" class="LineNr"> 9513 </span><span class="subxFunction">is-identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> -<span id="L9514" class="LineNr"> 9514 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9515" class="LineNr"> 9515 </span> 55/push-ebp -<span id="L9516" class="LineNr"> 9516 </span> 89/<- %ebp 4/r32/esp -<span id="L9517" class="LineNr"> 9517 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> -<span id="L9518" class="LineNr"> 9518 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L9519" class="LineNr"> 9519 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9520" class="LineNr"> 9520 </span> 75/jump-if-!= $is-identifier?:false/disp8 -<span id="L9521" class="LineNr"> 9521 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> -<span id="L9522" class="LineNr"> 9522 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L9523" class="LineNr"> 9523 </span> 8b/-> *eax 0/r32/eax -<span id="L9524" class="LineNr"> 9524 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L9525" class="LineNr"> 9525 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L9526" class="LineNr"> 9526 </span> <span class="subxComment"># if (c == '$') return true</span> -<span id="L9527" class="LineNr"> 9527 </span> 3d/compare-eax-and 0x24/imm32/$ -<span id="L9528" class="LineNr"> 9528 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L9529" class="LineNr"> 9529 </span> <span class="subxComment"># if (c == '_') return true</span> -<span id="L9530" class="LineNr"> 9530 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L9531" class="LineNr"> 9531 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L9532" class="LineNr"> 9532 </span> <span class="subxComment"># drop case</span> -<span id="L9533" class="LineNr"> 9533 </span> 25/and-eax-with 0x5f/imm32 -<span id="L9534" class="LineNr"> 9534 </span> <span class="subxComment"># if (c < 'A') return false</span> -<span id="L9535" class="LineNr"> 9535 </span> 3d/compare-eax-and 0x41/imm32/A -<span id="L9536" class="LineNr"> 9536 </span> 7c/jump-if-< $is-identifier?:false/disp8 -<span id="L9537" class="LineNr"> 9537 </span> <span class="subxComment"># if (c > 'Z') return false</span> -<span id="L9538" class="LineNr"> 9538 </span> 3d/compare-eax-and 0x5a/imm32/Z -<span id="L9539" class="LineNr"> 9539 </span> 7f/jump-if-> $is-identifier?:false/disp8 -<span id="L9540" class="LineNr"> 9540 </span> <span class="subxComment"># otherwise return true</span> -<span id="L9541" class="LineNr"> 9541 </span><span class="Constant">$is-identifier?:true</span>: -<span id="L9542" class="LineNr"> 9542 </span> b8/copy-to-eax 1/imm32/true -<span id="L9543" class="LineNr"> 9543 </span> eb/jump $is-identifier?:end/disp8 -<span id="L9544" class="LineNr"> 9544 </span><span class="Constant">$is-identifier?:false</span>: -<span id="L9545" class="LineNr"> 9545 </span> b8/copy-to-eax 0/imm32/false -<span id="L9546" class="LineNr"> 9546 </span><span class="Constant">$is-identifier?:end</span>: -<span id="L9547" class="LineNr"> 9547 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9548" class="LineNr"> 9548 </span> 89/<- %esp 5/r32/ebp -<span id="L9549" class="LineNr"> 9549 </span> 5d/pop-to-ebp -<span id="L9550" class="LineNr"> 9550 </span> c3/return -<span id="L9551" class="LineNr"> 9551 </span> -<span id="L9552" class="LineNr"> 9552 </span><span class="subxTest">test-is-identifier-dollar</span>: -<span id="L9553" class="LineNr"> 9553 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9554" class="LineNr"> 9554 </span> 55/push-ebp -<span id="L9555" class="LineNr"> 9555 </span> 89/<- %ebp 4/r32/esp -<span id="L9556" class="LineNr"> 9556 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> -<span id="L9557" class="LineNr"> 9557 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 -<span id="L9558" class="LineNr"> 9558 </span> 8b/-> *eax 1/r32/ecx -<span id="L9559" class="LineNr"> 9559 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9560" class="LineNr"> 9560 </span> 05/add-to-eax 4/imm32 -<span id="L9561" class="LineNr"> 9561 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9562" class="LineNr"> 9562 </span> 51/push-ecx -<span id="L9563" class="LineNr"> 9563 </span> 50/push-eax -<span id="L9564" class="LineNr"> 9564 </span> 89/<- %ecx 4/r32/esp -<span id="L9565" class="LineNr"> 9565 </span> <span class="subxComment">#</span> -<span id="L9566" class="LineNr"> 9566 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9567" class="LineNr"> 9567 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) -<span id="L9568" class="LineNr"> 9568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9569" class="LineNr"> 9569 </span> 89/<- %esp 5/r32/ebp -<span id="L9570" class="LineNr"> 9570 </span> 5d/pop-to-ebp -<span id="L9571" class="LineNr"> 9571 </span> c3/return -<span id="L9572" class="LineNr"> 9572 </span> -<span id="L9573" class="LineNr"> 9573 </span><span class="subxTest">test-is-identifier-underscore</span>: -<span id="L9574" class="LineNr"> 9574 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9575" class="LineNr"> 9575 </span> 55/push-ebp -<span id="L9576" class="LineNr"> 9576 </span> 89/<- %ebp 4/r32/esp -<span id="L9577" class="LineNr"> 9577 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> -<span id="L9578" class="LineNr"> 9578 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 -<span id="L9579" class="LineNr"> 9579 </span> 8b/-> *eax 1/r32/ecx -<span id="L9580" class="LineNr"> 9580 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9581" class="LineNr"> 9581 </span> 05/add-to-eax 4/imm32 -<span id="L9582" class="LineNr"> 9582 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9583" class="LineNr"> 9583 </span> 51/push-ecx -<span id="L9584" class="LineNr"> 9584 </span> 50/push-eax -<span id="L9585" class="LineNr"> 9585 </span> 89/<- %ecx 4/r32/esp -<span id="L9586" class="LineNr"> 9586 </span> <span class="subxComment">#</span> -<span id="L9587" class="LineNr"> 9587 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9588" class="LineNr"> 9588 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) -<span id="L9589" class="LineNr"> 9589 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9590" class="LineNr"> 9590 </span> 89/<- %esp 5/r32/ebp -<span id="L9591" class="LineNr"> 9591 </span> 5d/pop-to-ebp -<span id="L9592" class="LineNr"> 9592 </span> c3/return -<span id="L9593" class="LineNr"> 9593 </span> -<span id="L9594" class="LineNr"> 9594 </span><span class="subxTest">test-is-identifier-a</span>: -<span id="L9595" class="LineNr"> 9595 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9596" class="LineNr"> 9596 </span> 55/push-ebp -<span id="L9597" class="LineNr"> 9597 </span> 89/<- %ebp 4/r32/esp -<span id="L9598" class="LineNr"> 9598 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> -<span id="L9599" class="LineNr"> 9599 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 -<span id="L9600" class="LineNr"> 9600 </span> 8b/-> *eax 1/r32/ecx -<span id="L9601" class="LineNr"> 9601 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9602" class="LineNr"> 9602 </span> 05/add-to-eax 4/imm32 -<span id="L9603" class="LineNr"> 9603 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9604" class="LineNr"> 9604 </span> 51/push-ecx -<span id="L9605" class="LineNr"> 9605 </span> 50/push-eax -<span id="L9606" class="LineNr"> 9606 </span> 89/<- %ecx 4/r32/esp -<span id="L9607" class="LineNr"> 9607 </span> <span class="subxComment">#</span> -<span id="L9608" class="LineNr"> 9608 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9609" class="LineNr"> 9609 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) -<span id="L9610" class="LineNr"> 9610 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9611" class="LineNr"> 9611 </span> 89/<- %esp 5/r32/ebp -<span id="L9612" class="LineNr"> 9612 </span> 5d/pop-to-ebp -<span id="L9613" class="LineNr"> 9613 </span> c3/return -<span id="L9614" class="LineNr"> 9614 </span> -<span id="L9615" class="LineNr"> 9615 </span><span class="subxTest">test-is-identifier-z</span>: -<span id="L9616" class="LineNr"> 9616 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9617" class="LineNr"> 9617 </span> 55/push-ebp -<span id="L9618" class="LineNr"> 9618 </span> 89/<- %ebp 4/r32/esp -<span id="L9619" class="LineNr"> 9619 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> -<span id="L9620" class="LineNr"> 9620 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 -<span id="L9621" class="LineNr"> 9621 </span> 8b/-> *eax 1/r32/ecx -<span id="L9622" class="LineNr"> 9622 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9623" class="LineNr"> 9623 </span> 05/add-to-eax 4/imm32 -<span id="L9624" class="LineNr"> 9624 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9625" class="LineNr"> 9625 </span> 51/push-ecx -<span id="L9626" class="LineNr"> 9626 </span> 50/push-eax -<span id="L9627" class="LineNr"> 9627 </span> 89/<- %ecx 4/r32/esp -<span id="L9628" class="LineNr"> 9628 </span> <span class="subxComment">#</span> -<span id="L9629" class="LineNr"> 9629 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9630" class="LineNr"> 9630 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) -<span id="L9631" class="LineNr"> 9631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9632" class="LineNr"> 9632 </span> 89/<- %esp 5/r32/ebp -<span id="L9633" class="LineNr"> 9633 </span> 5d/pop-to-ebp -<span id="L9634" class="LineNr"> 9634 </span> c3/return -<span id="L9635" class="LineNr"> 9635 </span> -<span id="L9636" class="LineNr"> 9636 </span><span class="subxTest">test-is-identifier-A</span>: -<span id="L9637" class="LineNr"> 9637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9638" class="LineNr"> 9638 </span> 55/push-ebp -<span id="L9639" class="LineNr"> 9639 </span> 89/<- %ebp 4/r32/esp -<span id="L9640" class="LineNr"> 9640 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> -<span id="L9641" class="LineNr"> 9641 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 -<span id="L9642" class="LineNr"> 9642 </span> 8b/-> *eax 1/r32/ecx -<span id="L9643" class="LineNr"> 9643 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9644" class="LineNr"> 9644 </span> 05/add-to-eax 4/imm32 -<span id="L9645" class="LineNr"> 9645 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9646" class="LineNr"> 9646 </span> 51/push-ecx -<span id="L9647" class="LineNr"> 9647 </span> 50/push-eax -<span id="L9648" class="LineNr"> 9648 </span> 89/<- %ecx 4/r32/esp -<span id="L9649" class="LineNr"> 9649 </span> <span class="subxComment">#</span> -<span id="L9650" class="LineNr"> 9650 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9651" class="LineNr"> 9651 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) -<span id="L9652" class="LineNr"> 9652 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9653" class="LineNr"> 9653 </span> 89/<- %esp 5/r32/ebp -<span id="L9654" class="LineNr"> 9654 </span> 5d/pop-to-ebp -<span id="L9655" class="LineNr"> 9655 </span> c3/return -<span id="L9656" class="LineNr"> 9656 </span> -<span id="L9657" class="LineNr"> 9657 </span><span class="subxTest">test-is-identifier-Z</span>: -<span id="L9658" class="LineNr"> 9658 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9659" class="LineNr"> 9659 </span> 55/push-ebp -<span id="L9660" class="LineNr"> 9660 </span> 89/<- %ebp 4/r32/esp -<span id="L9661" class="LineNr"> 9661 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> -<span id="L9662" class="LineNr"> 9662 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 -<span id="L9663" class="LineNr"> 9663 </span> 8b/-> *eax 1/r32/ecx -<span id="L9664" class="LineNr"> 9664 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9665" class="LineNr"> 9665 </span> 05/add-to-eax 4/imm32 -<span id="L9666" class="LineNr"> 9666 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9667" class="LineNr"> 9667 </span> 51/push-ecx -<span id="L9668" class="LineNr"> 9668 </span> 50/push-eax -<span id="L9669" class="LineNr"> 9669 </span> 89/<- %ecx 4/r32/esp -<span id="L9670" class="LineNr"> 9670 </span> <span class="subxComment">#</span> -<span id="L9671" class="LineNr"> 9671 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9672" class="LineNr"> 9672 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) -<span id="L9673" class="LineNr"> 9673 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9674" class="LineNr"> 9674 </span> 89/<- %esp 5/r32/ebp -<span id="L9675" class="LineNr"> 9675 </span> 5d/pop-to-ebp -<span id="L9676" class="LineNr"> 9676 </span> c3/return -<span id="L9677" class="LineNr"> 9677 </span> -<span id="L9678" class="LineNr"> 9678 </span><span class="subxTest">test-is-identifier-at</span>: -<span id="L9679" class="LineNr"> 9679 </span> <span class="subxComment"># character before 'A' is invalid</span> -<span id="L9680" class="LineNr"> 9680 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9681" class="LineNr"> 9681 </span> 55/push-ebp -<span id="L9682" class="LineNr"> 9682 </span> 89/<- %ebp 4/r32/esp -<span id="L9683" class="LineNr"> 9683 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> -<span id="L9684" class="LineNr"> 9684 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 -<span id="L9685" class="LineNr"> 9685 </span> 8b/-> *eax 1/r32/ecx -<span id="L9686" class="LineNr"> 9686 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9687" class="LineNr"> 9687 </span> 05/add-to-eax 4/imm32 -<span id="L9688" class="LineNr"> 9688 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9689" class="LineNr"> 9689 </span> 51/push-ecx -<span id="L9690" class="LineNr"> 9690 </span> 50/push-eax -<span id="L9691" class="LineNr"> 9691 </span> 89/<- %ecx 4/r32/esp -<span id="L9692" class="LineNr"> 9692 </span> <span class="subxComment">#</span> -<span id="L9693" class="LineNr"> 9693 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9694" class="LineNr"> 9694 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L9695" class="LineNr"> 9695 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9696" class="LineNr"> 9696 </span> 89/<- %esp 5/r32/ebp -<span id="L9697" class="LineNr"> 9697 </span> 5d/pop-to-ebp -<span id="L9698" class="LineNr"> 9698 </span> c3/return -<span id="L9699" class="LineNr"> 9699 </span> -<span id="L9700" class="LineNr"> 9700 </span><span class="subxTest">test-is-identifier-square-bracket</span>: -<span id="L9701" class="LineNr"> 9701 </span> <span class="subxComment"># character after 'Z' is invalid</span> -<span id="L9702" class="LineNr"> 9702 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9703" class="LineNr"> 9703 </span> 55/push-ebp -<span id="L9704" class="LineNr"> 9704 </span> 89/<- %ebp 4/r32/esp -<span id="L9705" class="LineNr"> 9705 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> -<span id="L9706" class="LineNr"> 9706 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 -<span id="L9707" class="LineNr"> 9707 </span> 8b/-> *eax 1/r32/ecx -<span id="L9708" class="LineNr"> 9708 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9709" class="LineNr"> 9709 </span> 05/add-to-eax 4/imm32 -<span id="L9710" class="LineNr"> 9710 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9711" class="LineNr"> 9711 </span> 51/push-ecx -<span id="L9712" class="LineNr"> 9712 </span> 50/push-eax -<span id="L9713" class="LineNr"> 9713 </span> 89/<- %ecx 4/r32/esp -<span id="L9714" class="LineNr"> 9714 </span> <span class="subxComment">#</span> -<span id="L9715" class="LineNr"> 9715 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9716" class="LineNr"> 9716 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L9717" class="LineNr"> 9717 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9718" class="LineNr"> 9718 </span> 89/<- %esp 5/r32/ebp -<span id="L9719" class="LineNr"> 9719 </span> 5d/pop-to-ebp -<span id="L9720" class="LineNr"> 9720 </span> c3/return -<span id="L9721" class="LineNr"> 9721 </span> -<span id="L9722" class="LineNr"> 9722 </span><span class="subxTest">test-is-identifier-backtick</span>: -<span id="L9723" class="LineNr"> 9723 </span> <span class="subxComment"># character before 'a' is invalid</span> -<span id="L9724" class="LineNr"> 9724 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9725" class="LineNr"> 9725 </span> 55/push-ebp -<span id="L9726" class="LineNr"> 9726 </span> 89/<- %ebp 4/r32/esp -<span id="L9727" class="LineNr"> 9727 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> -<span id="L9728" class="LineNr"> 9728 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 -<span id="L9729" class="LineNr"> 9729 </span> 8b/-> *eax 1/r32/ecx -<span id="L9730" class="LineNr"> 9730 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9731" class="LineNr"> 9731 </span> 05/add-to-eax 4/imm32 -<span id="L9732" class="LineNr"> 9732 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9733" class="LineNr"> 9733 </span> 51/push-ecx -<span id="L9734" class="LineNr"> 9734 </span> 50/push-eax -<span id="L9735" class="LineNr"> 9735 </span> 89/<- %ecx 4/r32/esp -<span id="L9736" class="LineNr"> 9736 </span> <span class="subxComment">#</span> -<span id="L9737" class="LineNr"> 9737 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9738" class="LineNr"> 9738 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) -<span id="L9739" class="LineNr"> 9739 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9740" class="LineNr"> 9740 </span> 89/<- %esp 5/r32/ebp -<span id="L9741" class="LineNr"> 9741 </span> 5d/pop-to-ebp -<span id="L9742" class="LineNr"> 9742 </span> c3/return -<span id="L9743" class="LineNr"> 9743 </span> -<span id="L9744" class="LineNr"> 9744 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: -<span id="L9745" class="LineNr"> 9745 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> -<span id="L9746" class="LineNr"> 9746 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9747" class="LineNr"> 9747 </span> 55/push-ebp -<span id="L9748" class="LineNr"> 9748 </span> 89/<- %ebp 4/r32/esp -<span id="L9749" class="LineNr"> 9749 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> -<span id="L9750" class="LineNr"> 9750 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 -<span id="L9751" class="LineNr"> 9751 </span> 8b/-> *eax 1/r32/ecx -<span id="L9752" class="LineNr"> 9752 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9753" class="LineNr"> 9753 </span> 05/add-to-eax 4/imm32 -<span id="L9754" class="LineNr"> 9754 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9755" class="LineNr"> 9755 </span> 51/push-ecx -<span id="L9756" class="LineNr"> 9756 </span> 50/push-eax -<span id="L9757" class="LineNr"> 9757 </span> 89/<- %ecx 4/r32/esp -<span id="L9758" class="LineNr"> 9758 </span> <span class="subxComment">#</span> -<span id="L9759" class="LineNr"> 9759 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9760" class="LineNr"> 9760 </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="L9761" class="LineNr"> 9761 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9762" class="LineNr"> 9762 </span> 89/<- %esp 5/r32/ebp -<span id="L9763" class="LineNr"> 9763 </span> 5d/pop-to-ebp -<span id="L9764" class="LineNr"> 9764 </span> c3/return -<span id="L9765" class="LineNr"> 9765 </span> -<span id="L9766" class="LineNr"> 9766 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: -<span id="L9767" class="LineNr"> 9767 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9768" class="LineNr"> 9768 </span> 55/push-ebp -<span id="L9769" class="LineNr"> 9769 </span> 89/<- %ebp 4/r32/esp -<span id="L9770" class="LineNr"> 9770 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> -<span id="L9771" class="LineNr"> 9771 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 -<span id="L9772" class="LineNr"> 9772 </span> 8b/-> *eax 1/r32/ecx -<span id="L9773" class="LineNr"> 9773 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9774" class="LineNr"> 9774 </span> 05/add-to-eax 4/imm32 -<span id="L9775" class="LineNr"> 9775 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9776" class="LineNr"> 9776 </span> 51/push-ecx -<span id="L9777" class="LineNr"> 9777 </span> 50/push-eax -<span id="L9778" class="LineNr"> 9778 </span> 89/<- %ecx 4/r32/esp -<span id="L9779" class="LineNr"> 9779 </span> <span class="subxComment">#</span> -<span id="L9780" class="LineNr"> 9780 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9781" class="LineNr"> 9781 </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="L9782" class="LineNr"> 9782 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9783" class="LineNr"> 9783 </span> 89/<- %esp 5/r32/ebp -<span id="L9784" class="LineNr"> 9784 </span> 5d/pop-to-ebp -<span id="L9785" class="LineNr"> 9785 </span> c3/return -<span id="L9786" class="LineNr"> 9786 </span> -<span id="L9787" class="LineNr"> 9787 </span><span class="subxTest">test-is-identifier-hyphen</span>: -<span id="L9788" class="LineNr"> 9788 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> -<span id="L9789" class="LineNr"> 9789 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9790" class="LineNr"> 9790 </span> 55/push-ebp -<span id="L9791" class="LineNr"> 9791 </span> 89/<- %ebp 4/r32/esp -<span id="L9792" class="LineNr"> 9792 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> -<span id="L9793" class="LineNr"> 9793 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 -<span id="L9794" class="LineNr"> 9794 </span> 8b/-> *eax 1/r32/ecx -<span id="L9795" class="LineNr"> 9795 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L9796" class="LineNr"> 9796 </span> 05/add-to-eax 4/imm32 -<span id="L9797" class="LineNr"> 9797 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L9798" class="LineNr"> 9798 </span> 51/push-ecx -<span id="L9799" class="LineNr"> 9799 </span> 50/push-eax -<span id="L9800" class="LineNr"> 9800 </span> 89/<- %ecx 4/r32/esp -<span id="L9801" class="LineNr"> 9801 </span> <span class="subxComment">#</span> -<span id="L9802" class="LineNr"> 9802 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) -<span id="L9803" class="LineNr"> 9803 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) -<span id="L9804" class="LineNr"> 9804 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9805" class="LineNr"> 9805 </span> 89/<- %esp 5/r32/ebp -<span id="L9806" class="LineNr"> 9806 </span> 5d/pop-to-ebp -<span id="L9807" class="LineNr"> 9807 </span> c3/return -<span id="L9808" class="LineNr"> 9808 </span> -<span id="L9809" class="LineNr"> 9809 </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="L9810" class="LineNr"> 9810 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9811" class="LineNr"> 9811 </span> 55/push-ebp -<span id="L9812" class="LineNr"> 9812 </span> 89/<- %ebp 4/r32/esp -<span id="L9813" class="LineNr"> 9813 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L9814" class="LineNr"> 9814 </span> 50/push-eax -<span id="L9815" class="LineNr"> 9815 </span> 56/push-esi -<span id="L9816" class="LineNr"> 9816 </span> 57/push-edi -<span id="L9817" class="LineNr"> 9817 </span> <span class="subxComment"># esi = in</span> -<span id="L9818" class="LineNr"> 9818 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L9819" class="LineNr"> 9819 </span> <span class="subxComment"># edi = out</span> -<span id="L9820" class="LineNr"> 9820 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L9821" class="LineNr"> 9821 </span> <span class="subxComment"># initialize some global state</span> -<span id="L9822" class="LineNr"> 9822 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 1/imm32 -<span id="L9823" class="LineNr"> 9823 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> -<span id="L9824" class="LineNr"> 9824 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> -<span id="L9825" class="LineNr"> 9825 </span> (<a href='mu.subx.html#L9837'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L9826" class="LineNr"> 9826 </span><span class="Constant">$populate-mu-function-body:end</span>: -<span id="L9827" class="LineNr"> 9827 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L9828" class="LineNr"> 9828 </span> 5f/pop-to-edi -<span id="L9829" class="LineNr"> 9829 </span> 5e/pop-to-esi -<span id="L9830" class="LineNr"> 9830 </span> 58/pop-to-eax -<span id="L9831" class="LineNr"> 9831 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9832" class="LineNr"> 9832 </span> 89/<- %esp 5/r32/ebp -<span id="L9833" class="LineNr"> 9833 </span> 5d/pop-to-ebp -<span id="L9834" class="LineNr"> 9834 </span> c3/return -<span id="L9835" class="LineNr"> 9835 </span> -<span id="L9836" class="LineNr"> 9836 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> -<span id="L9837" class="LineNr"> 9837 </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="L9838" class="LineNr"> 9838 </span> <span class="subxComment"># pseudocode:</span> -<span id="L9839" class="LineNr"> 9839 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L9840" class="LineNr"> 9840 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L9841" class="LineNr"> 9841 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L9842" class="LineNr"> 9842 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> -<span id="L9843" class="LineNr"> 9843 </span> <span class="subxComment"># out-addr->tag = 0/block</span> -<span id="L9844" class="LineNr"> 9844 </span> <span class="subxComment"># out-addr->var = some unique name</span> -<span id="L9845" class="LineNr"> 9845 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> -<span id="L9846" class="LineNr"> 9846 </span> <span class="subxComment"># while true # line loop</span> -<span id="L9847" class="LineNr"> 9847 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L9848" class="LineNr"> 9848 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L9849" class="LineNr"> 9849 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L9850" class="LineNr"> 9850 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L9851" class="LineNr"> 9851 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L9852" class="LineNr"> 9852 </span> <span class="subxComment"># continue</span> -<span id="L9853" class="LineNr"> 9853 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> -<span id="L9854" class="LineNr"> 9854 </span> <span class="subxComment"># continue</span> -<span id="L9855" class="LineNr"> 9855 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> -<span id="L9856" class="LineNr"> 9856 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> -<span id="L9857" class="LineNr"> 9857 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> -<span id="L9858" class="LineNr"> 9858 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> -<span id="L9859" class="LineNr"> 9859 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> -<span id="L9860" class="LineNr"> 9860 </span> <span class="subxComment"># break</span> -<span id="L9861" class="LineNr"> 9861 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> -<span id="L9862" class="LineNr"> 9862 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> -<span id="L9863" class="LineNr"> 9863 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> -<span id="L9864" class="LineNr"> 9864 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> -<span id="L9865" class="LineNr"> 9865 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> -<span id="L9866" class="LineNr"> 9866 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> -<span id="L9867" class="LineNr"> 9867 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> -<span id="L9868" class="LineNr"> 9868 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> -<span id="L9869" class="LineNr"> 9869 </span> <span class="subxComment"># else</span> -<span id="L9870" class="LineNr"> 9870 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> -<span id="L9871" class="LineNr"> 9871 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> -<span id="L9872" class="LineNr"> 9872 </span> <span class="subxComment"># pop(vars)</span> -<span id="L9873" class="LineNr"> 9873 </span> <span class="subxComment">#</span> -<span id="L9874" class="LineNr"> 9874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9875" class="LineNr"> 9875 </span> 55/push-ebp -<span id="L9876" class="LineNr"> 9876 </span> 89/<- %ebp 4/r32/esp -<span id="L9877" class="LineNr"> 9877 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L9878" class="LineNr"> 9878 </span> 50/push-eax -<span id="L9879" class="LineNr"> 9879 </span> 51/push-ecx -<span id="L9880" class="LineNr"> 9880 </span> 52/push-edx -<span id="L9881" class="LineNr"> 9881 </span> 53/push-ebx -<span id="L9882" class="LineNr"> 9882 </span> 57/push-edi -<span id="L9883" class="LineNr"> 9883 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L9884" class="LineNr"> 9884 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L9885" class="LineNr"> 9885 </span> 68/push 0x200/imm32/size -<span id="L9886" class="LineNr"> 9886 </span> 68/push 0/imm32/read -<span id="L9887" class="LineNr"> 9887 </span> 68/push 0/imm32/write -<span id="L9888" class="LineNr"> 9888 </span> 89/<- %ecx 4/r32/esp -<span id="L9889" class="LineNr"> 9889 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L9890" class="LineNr"> 9890 </span> 68/push 0/imm32/end -<span id="L9891" class="LineNr"> 9891 </span> 68/push 0/imm32/start -<span id="L9892" class="LineNr"> 9892 </span> 89/<- %edx 4/r32/esp -<span id="L9893" class="LineNr"> 9893 </span> <span class="subxComment"># allocate into out</span> -<span id="L9894" class="LineNr"> 9894 </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#L329'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L9895" class="LineNr"> 9895 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> -<span id="L9896" class="LineNr"> 9896 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L9897" class="LineNr"> 9897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L9898" class="LineNr"> 9898 </span> 89/<- %edi 0/r32/eax -<span id="L9899" class="LineNr"> 9899 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> -<span id="L9900" class="LineNr"> 9900 </span> <span class="subxComment"># set out-addr->var</span> -<span id="L9901" class="LineNr"> 9901 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L9902" class="LineNr"> 9902 </span> (<a href='mu.subx.html#L10057'>new-block-name</a> *(ebp+0x10) %eax) -<span id="L9903" class="LineNr"> 9903 </span> <span class="subxComment"># push(vars, out-addr->var)</span> -<span id="L9904" class="LineNr"> 9904 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L9905" class="LineNr"> 9905 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L9906" class="LineNr"> 9906 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> -<span id="L9907" class="LineNr"> 9907 </span> <span class="subxComment"># increment *Curr-block-depth</span> -<span id="L9908" class="LineNr"> 9908 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> -<span id="L9909" class="LineNr"> 9909 </span> { -<span id="L9910" class="LineNr"> 9910 </span><span class="Constant">$parse-mu-block:line-loop</span>: -<span id="L9911" class="LineNr"> 9911 </span> <span class="subxComment"># line = read-line-buffered(in)</span> -<span id="L9912" class="LineNr"> 9912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L9913" class="LineNr"> 9913 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L9914" class="LineNr"> 9914 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> -<span id="L9915" class="LineNr"> 9915 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> -<span id="L9916" class="LineNr"> 9916 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> -<span id="L9917" class="LineNr"> 9917 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L9918" class="LineNr"> 9918 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> -<span id="L9919" class="LineNr"> 9919 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L9920" class="LineNr"> 9920 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L9921" class="LineNr"> 9921 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L9922" class="LineNr"> 9922 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> -<span id="L9923" class="LineNr"> 9923 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> -<span id="L9924" class="LineNr"> 9924 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L9925" class="LineNr"> 9925 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> %ecx %edx) -<span id="L9926" class="LineNr"> 9926 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> -<span id="L9927" class="LineNr"> 9927 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> -<span id="L9928" class="LineNr"> 9928 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L9929" class="LineNr"> 9929 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L9930" class="LineNr"> 9930 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L9931" class="LineNr"> 9931 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) -<span id="L9932" class="LineNr"> 9932 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9933" class="LineNr"> 9933 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L9934" class="LineNr"> 9934 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> -<span id="L9935" class="LineNr"> 9935 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L9936" class="LineNr"> 9936 </span> 8b/-> *edx 0/r32/eax -<span id="L9937" class="LineNr"> 9937 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L9938" class="LineNr"> 9938 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L9939" class="LineNr"> 9939 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L9940" class="LineNr"> 9940 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L9941" class="LineNr"> 9941 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L9942" class="LineNr"> 9942 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> -<span id="L9943" class="LineNr"> 9943 </span> { -<span id="L9944" class="LineNr"> 9944 </span><span class="Constant">$parse-mu-block:check-for-block</span>: -<span id="L9945" class="LineNr"> 9945 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) -<span id="L9946" class="LineNr"> 9946 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9947" class="LineNr"> 9947 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L9948" class="LineNr"> 9948 </span> (<a href='mu.subx.html#L10121'>check-no-tokens-left</a> %ecx) -<span id="L9949" class="LineNr"> 9949 </span> <span class="subxComment"># parse new block and append</span> -<span id="L9950" class="LineNr"> 9950 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> -<span id="L9951" class="LineNr"> 9951 </span> 68/push 0/imm32 -<span id="L9952" class="LineNr"> 9952 </span> 68/push 0/imm32 -<span id="L9953" class="LineNr"> 9953 </span> 89/<- %eax 4/r32/esp -<span id="L9954" class="LineNr"> 9954 </span> <span class="subxS1Comment"># .</span> -<span id="L9955" class="LineNr"> 9955 </span> (<a href='mu.subx.html#L9837'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L9956" class="LineNr"> 9956 </span> (<a href='mu.subx.html#L11798'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L9957" class="LineNr"> 9957 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L9958" class="LineNr"> 9958 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9959" class="LineNr"> 9959 </span> <span class="subxS1Comment"># .</span> -<span id="L9960" class="LineNr"> 9960 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L9961" class="LineNr"> 9961 </span> } -<span id="L9962" class="LineNr"> 9962 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L9963" class="LineNr"> 9963 </span><span class="Constant">$parse-mu-block:check-for-end</span>: -<span id="L9964" class="LineNr"> 9964 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L9965" class="LineNr"> 9965 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9966" class="LineNr"> 9966 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L9967" class="LineNr"> 9967 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> -<span id="L9968" class="LineNr"> 9968 </span> { -<span id="L9969" class="LineNr"> 9969 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: -<span id="L9970" class="LineNr"> 9970 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> -<span id="L9971" class="LineNr"> 9971 </span> 8b/-> *(edx+4) 0/r32/eax -<span id="L9972" class="LineNr"> 9972 </span> 48/decrement-eax -<span id="L9973" class="LineNr"> 9973 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L9974" class="LineNr"> 9974 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L9975" class="LineNr"> 9975 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> -<span id="L9976" class="LineNr"> 9976 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L9977" class="LineNr"> 9977 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L9978" class="LineNr"> 9978 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> -<span id="L9979" class="LineNr"> 9979 </span> <span class="subxComment">#</span> -<span id="L9980" class="LineNr"> 9980 </span> <span class="subxComment"># skip ':'</span> -<span id="L9981" class="LineNr"> 9981 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> -<span id="L9982" class="LineNr"> 9982 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L9983" class="LineNr"> 9983 </span> 68/push 0/imm32 -<span id="L9984" class="LineNr"> 9984 </span> 68/push 0/imm32 -<span id="L9985" class="LineNr"> 9985 </span> 89/<- %eax 4/r32/esp -<span id="L9986" class="LineNr"> 9986 </span> <span class="subxComment">#</span> -<span id="L9987" class="LineNr"> 9987 </span> (<a href='mu.subx.html#L10167'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L9988" class="LineNr"> 9988 </span> (<a href='mu.subx.html#L11798'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L9989" class="LineNr"> 9989 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L9990" class="LineNr"> 9990 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9991" class="LineNr"> 9991 </span> <span class="subxComment">#</span> -<span id="L9992" class="LineNr"> 9992 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L9993" class="LineNr"> 9993 </span> } -<span id="L9994" class="LineNr"> 9994 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> -<span id="L9995" class="LineNr"> 9995 </span> { -<span id="L9996" class="LineNr"> 9996 </span><span class="Constant">$parse-mu-block:check-for-var</span>: -<span id="L9997" class="LineNr"> 9997 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) -<span id="L9998" class="LineNr"> 9998 </span> 3d/compare-eax-and 0/imm32/false -<span id="L9999" class="LineNr"> 9999 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10000" class="LineNr">10000 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L10001" class="LineNr">10001 </span> 68/push 0/imm32 -<span id="L10002" class="LineNr">10002 </span> 68/push 0/imm32 -<span id="L10003" class="LineNr">10003 </span> 89/<- %eax 4/r32/esp -<span id="L10004" class="LineNr">10004 </span> <span class="subxComment">#</span> -<span id="L10005" class="LineNr">10005 </span> (<a href='mu.subx.html#L10223'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10006" class="LineNr">10006 </span> (<a href='mu.subx.html#L11798'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L10007" class="LineNr">10007 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L10008" class="LineNr">10008 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10009" class="LineNr">10009 </span> <span class="subxComment">#</span> -<span id="L10010" class="LineNr">10010 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L10011" class="LineNr">10011 </span> } -<span id="L10012" class="LineNr">10012 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: -<span id="L10013" class="LineNr">10013 </span> <span class="subxComment"># otherwise</span> -<span id="L10014" class="LineNr">10014 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L10015" class="LineNr">10015 </span> 68/push 0/imm32 -<span id="L10016" class="LineNr">10016 </span> 68/push 0/imm32 -<span id="L10017" class="LineNr">10017 </span> 89/<- %eax 4/r32/esp -<span id="L10018" class="LineNr">10018 </span> <span class="subxComment">#</span> -<span id="L10019" class="LineNr">10019 </span> (<a href='mu.subx.html#L10431'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L10020" class="LineNr">10020 </span> (<a href='mu.subx.html#L11798'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L10021" class="LineNr">10021 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L10022" class="LineNr">10022 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10023" class="LineNr">10023 </span> <span class="subxComment">#</span> -<span id="L10024" class="LineNr">10024 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L10025" class="LineNr">10025 </span> } <span class="subxComment"># end line loop</span> -<span id="L10026" class="LineNr">10026 </span> (<a href='mu.subx.html#L16424'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> *(ebp+0x10)) -<span id="L10027" class="LineNr">10027 </span> <span class="subxComment"># decrement *Curr-block-depth</span> -<span id="L10028" class="LineNr">10028 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> -<span id="L10029" class="LineNr">10029 </span> <span class="subxComment"># pop(vars)</span> -<span id="L10030" class="LineNr">10030 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L10031" class="LineNr">10031 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L10032" class="LineNr">10032 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L10033" class="LineNr">10033 </span><span class="Constant">$parse-mu-block:end</span>: -<span id="L10034" class="LineNr">10034 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10035" class="LineNr">10035 </span> 81 0/subop/add %esp 0x214/imm32 -<span id="L10036" class="LineNr">10036 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10037" class="LineNr">10037 </span> 5f/pop-to-edi -<span id="L10038" class="LineNr">10038 </span> 5b/pop-to-ebx -<span id="L10039" class="LineNr">10039 </span> 5a/pop-to-edx -<span id="L10040" class="LineNr">10040 </span> 59/pop-to-ecx -<span id="L10041" class="LineNr">10041 </span> 58/pop-to-eax -<span id="L10042" class="LineNr">10042 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10043" class="LineNr">10043 </span> 89/<- %esp 5/r32/ebp -<span id="L10044" class="LineNr">10044 </span> 5d/pop-to-ebp -<span id="L10045" class="LineNr">10045 </span> c3/return -<span id="L10046" class="LineNr">10046 </span> -<span id="L10047" class="LineNr">10047 </span><span class="Constant">$parse-mu-block:abort</span>: -<span id="L10048" class="LineNr">10048 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> -<span id="L10049" class="LineNr">10049 </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="L10050" class="LineNr">10050 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L10051" class="LineNr">10051 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) -<span id="L10052" class="LineNr">10052 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10053" class="LineNr">10053 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10054" class="LineNr">10054 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10055" class="LineNr">10055 </span> <span class="subxComment"># never gets here</span> -<span id="L10056" class="LineNr">10056 </span> -<span id="L10057" class="LineNr">10057 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> -<span id="L10058" class="LineNr">10058 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10059" class="LineNr">10059 </span> 55/push-ebp -<span id="L10060" class="LineNr">10060 </span> 89/<- %ebp 4/r32/esp -<span id="L10061" class="LineNr">10061 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10062" class="LineNr">10062 </span> 50/push-eax -<span id="L10063" class="LineNr">10063 </span> 51/push-ecx -<span id="L10064" class="LineNr">10064 </span> 52/push-edx -<span id="L10065" class="LineNr">10065 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> -<span id="L10066" class="LineNr">10066 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L10067" class="LineNr">10067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10068" class="LineNr">10068 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> -<span id="L10069" class="LineNr">10069 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> -<span id="L10070" class="LineNr">10070 </span> 89/<- %ecx 0/r32/eax -<span id="L10071" class="LineNr">10071 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> -<span id="L10072" class="LineNr">10072 </span> 29/subtract-from %esp 1/r32/ecx -<span id="L10073" class="LineNr">10073 </span> ff 6/subop/push %ecx -<span id="L10074" class="LineNr">10074 </span> 68/push 0/imm32/read -<span id="L10075" class="LineNr">10075 </span> 68/push 0/imm32/write -<span id="L10076" class="LineNr">10076 </span> 89/<- %edx 4/r32/esp -<span id="L10077" class="LineNr">10077 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %edx) -<span id="L10078" class="LineNr">10078 </span> <span class="subxComment"># eax = fn->name</span> -<span id="L10079" class="LineNr">10079 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L10080" class="LineNr">10080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10081" class="LineNr">10081 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> -<span id="L10082" class="LineNr">10082 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) -<span id="L10083" class="LineNr">10083 </span> (<a href='../108write.subx.html#L24'>write</a> %edx %eax) -<span id="L10084" class="LineNr">10084 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) -<span id="L10085" class="LineNr">10085 </span> (<a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L7846'>Next-block-index</a></span>) -<span id="L10086" class="LineNr">10086 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7846'>Next-block-index</a></span> -<span id="L10087" class="LineNr">10087 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> -<span id="L10088" class="LineNr">10088 </span> <span class="subxS1Comment"># . eax = name->write</span> -<span id="L10089" class="LineNr">10089 </span> 8b/-> *edx 0/r32/eax -<span id="L10090" class="LineNr">10090 </span> <span class="subxS1Comment"># . edx = name->data</span> -<span id="L10091" class="LineNr">10091 </span> 8d/copy-address *(edx+0xc) 2/r32/edx -<span id="L10092" class="LineNr">10092 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> -<span id="L10093" class="LineNr">10093 </span> 01/add-to %eax 2/r32/edx -<span id="L10094" class="LineNr">10094 </span> <span class="subxS1Comment"># . push {edx, eax}</span> -<span id="L10095" class="LineNr">10095 </span> ff 6/subop/push %eax -<span id="L10096" class="LineNr">10096 </span> ff 6/subop/push %edx -<span id="L10097" class="LineNr">10097 </span> 89/<- %eax 4/r32/esp -<span id="L10098" class="LineNr">10098 </span> <span class="subxComment"># out = new literal(s)</span> -<span id="L10099" class="LineNr">10099 </span> (<a href='mu.subx.html#L11566'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) -<span id="L10100" class="LineNr">10100 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> -<span id="L10101" class="LineNr">10101 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> -<span id="L10102" class="LineNr">10102 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> -<span id="L10103" class="LineNr">10103 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> -<span id="L10104" class="LineNr">10104 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L10105" class="LineNr">10105 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L10106" class="LineNr">10106 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L10107" class="LineNr">10107 </span><span class="Constant">$new-block-name:end</span>: -<span id="L10108" class="LineNr">10108 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10109" class="LineNr">10109 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> -<span id="L10110" class="LineNr">10110 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> -<span id="L10111" class="LineNr">10111 </span> 01/add-to %esp 1/r32/ecx -<span id="L10112" class="LineNr">10112 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10113" class="LineNr">10113 </span> 5a/pop-to-edx -<span id="L10114" class="LineNr">10114 </span> 59/pop-to-ecx -<span id="L10115" class="LineNr">10115 </span> 58/pop-to-eax -<span id="L10116" class="LineNr">10116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10117" class="LineNr">10117 </span> 89/<- %esp 5/r32/ebp -<span id="L10118" class="LineNr">10118 </span> 5d/pop-to-ebp -<span id="L10119" class="LineNr">10119 </span> c3/return -<span id="L10120" class="LineNr">10120 </span> -<span id="L10121" class="LineNr">10121 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L10122" class="LineNr">10122 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10123" class="LineNr">10123 </span> 55/push-ebp -<span id="L10124" class="LineNr">10124 </span> 89/<- %ebp 4/r32/esp -<span id="L10125" class="LineNr">10125 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10126" class="LineNr">10126 </span> 50/push-eax -<span id="L10127" class="LineNr">10127 </span> 51/push-ecx -<span id="L10128" class="LineNr">10128 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L10129" class="LineNr">10129 </span> 68/push 0/imm32/end -<span id="L10130" class="LineNr">10130 </span> 68/push 0/imm32/start -<span id="L10131" class="LineNr">10131 </span> 89/<- %ecx 4/r32/esp -<span id="L10132" class="LineNr">10132 </span> <span class="subxComment">#</span> -<span id="L10133" class="LineNr">10133 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10134" class="LineNr">10134 </span> <span class="subxComment"># if slice-empty?(s) return</span> -<span id="L10135" class="LineNr">10135 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L10136" class="LineNr">10136 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10137" class="LineNr">10137 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 -<span id="L10138" class="LineNr">10138 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> -<span id="L10139" class="LineNr">10139 </span> <span class="subxS1Comment"># . eax = *s->start</span> -<span id="L10140" class="LineNr">10140 </span> 8b/-> *edx 0/r32/eax -<span id="L10141" class="LineNr">10141 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L10142" class="LineNr">10142 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L10143" class="LineNr">10143 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L10144" class="LineNr">10144 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L10145" class="LineNr">10145 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 -<span id="L10146" class="LineNr">10146 </span> <span class="subxComment"># abort</span> -<span id="L10147" class="LineNr">10147 </span> (<a href='../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="L7845" class="LineNr"> 7845 </span><span class="subxTest">test-index-with-no-output</span>: +<span id="L7846" class="LineNr"> 7846 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7847" class="LineNr"> 7847 </span> 55/push-ebp +<span id="L7848" class="LineNr"> 7848 </span> 89/<- %ebp 4/r32/esp +<span id="L7849" class="LineNr"> 7849 </span> <span class="subxComment"># setup</span> +<span id="L7850" class="LineNr"> 7850 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7851" class="LineNr"> 7851 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7852" class="LineNr"> 7852 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7853" class="LineNr"> 7853 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7854" class="LineNr"> 7854 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7855" class="LineNr"> 7855 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7856" class="LineNr"> 7856 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7857" class="LineNr"> 7857 </span> 68/push 0/imm32 +<span id="L7858" class="LineNr"> 7858 </span> 68/push 0/imm32 +<span id="L7859" class="LineNr"> 7859 </span> 89/<- %edx 4/r32/esp +<span id="L7860" class="LineNr"> 7860 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7861" class="LineNr"> 7861 </span> <span class="subxComment">#</span> +<span id="L7862" class="LineNr"> 7862 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7863" class="LineNr"> 7863 </span> (<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="L7864" class="LineNr"> 7864 </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="L7865" class="LineNr"> 7865 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7866" class="LineNr"> 7866 </span> <span class="subxComment"># convert</span> +<span id="L7867" class="LineNr"> 7867 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7868" class="LineNr"> 7868 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7869" class="LineNr"> 7869 </span> <span class="subxComment"># restore ed</span> +<span id="L7870" class="LineNr"> 7870 </span> 89/<- %edx 4/r32/esp +<span id="L7871" class="LineNr"> 7871 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7872" class="LineNr"> 7872 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7873" class="Folded"> 7873 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7879" class="LineNr"> 7879 </span> <span class="subxComment"># check output</span> +<span id="L7880" class="LineNr"> 7880 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7845'>test-index-with-no-output</a>: output should be empty"</span>) +<span id="L7881" class="LineNr"> 7881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7845'>test-index-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7882" class="LineNr"> 7882 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7883" class="LineNr"> 7883 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7845'>test-index-with-no-output</a>: exit status"</span>) +<span id="L7884" class="LineNr"> 7884 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7885" class="LineNr"> 7885 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7886" class="LineNr"> 7886 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7887" class="LineNr"> 7887 </span> 5d/pop-to-ebp +<span id="L7888" class="LineNr"> 7888 </span> c3/return +<span id="L7889" class="LineNr"> 7889 </span> +<span id="L7890" class="LineNr"> 7890 </span><span class="subxTest">test-index-with-too-many-outputs</span>: +<span id="L7891" class="LineNr"> 7891 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7892" class="LineNr"> 7892 </span> 55/push-ebp +<span id="L7893" class="LineNr"> 7893 </span> 89/<- %ebp 4/r32/esp +<span id="L7894" class="LineNr"> 7894 </span> <span class="subxComment"># setup</span> +<span id="L7895" class="LineNr"> 7895 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7896" class="LineNr"> 7896 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7897" class="LineNr"> 7897 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L7898" class="LineNr"> 7898 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7899" class="LineNr"> 7899 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L7900" class="LineNr"> 7900 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7901" class="LineNr"> 7901 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7902" class="LineNr"> 7902 </span> 68/push 0/imm32 +<span id="L7903" class="LineNr"> 7903 </span> 68/push 0/imm32 +<span id="L7904" class="LineNr"> 7904 </span> 89/<- %edx 4/r32/esp +<span id="L7905" class="LineNr"> 7905 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7906" class="LineNr"> 7906 </span> <span class="subxComment">#</span> +<span id="L7907" class="LineNr"> 7907 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7908" class="LineNr"> 7908 </span> (<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="L7909" class="LineNr"> 7909 </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="L7910" class="LineNr"> 7910 </span> (<a 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="L7911" class="LineNr"> 7911 </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="L7912" class="LineNr"> 7912 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7913" class="LineNr"> 7913 </span> <span class="subxComment"># convert</span> +<span id="L7914" class="LineNr"> 7914 </span> (<a href='mu.subx.html#L503'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a> %edx) +<span id="L7915" class="LineNr"> 7915 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7916" class="LineNr"> 7916 </span> <span class="subxComment"># restore ed</span> +<span id="L7917" class="LineNr"> 7917 </span> 89/<- %edx 4/r32/esp +<span id="L7918" class="LineNr"> 7918 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L7919" class="LineNr"> 7919 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L454'>_test-error-buffered-file</a>) +<span id="L7920" class="Folded"> 7920 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7926" class="LineNr"> 7926 </span> <span class="subxComment"># check output</span> +<span id="L7927" class="LineNr"> 7927 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7890'>test-index-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L7928" class="LineNr"> 7928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7890'>test-index-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L7929" class="LineNr"> 7929 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7930" class="LineNr"> 7930 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7890'>test-index-with-too-many-outputs</a>: exit status"</span>) +<span id="L7931" class="LineNr"> 7931 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7932" class="LineNr"> 7932 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7933" class="LineNr"> 7933 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7934" class="LineNr"> 7934 </span> 5d/pop-to-ebp +<span id="L7935" class="LineNr"> 7935 </span> c3/return +<span id="L7936" class="LineNr"> 7936 </span> +<span id="L7937" class="LineNr"> 7937 </span><span class="subxComment">#######################################################</span> +<span id="L7938" class="LineNr"> 7938 </span><span class="subxComment"># Parsing</span> +<span id="L7939" class="LineNr"> 7939 </span><span class="subxComment">#######################################################</span> +<span id="L7940" class="LineNr"> 7940 </span> +<span id="L7941" class="LineNr"> 7941 </span>== data +<span id="L7942" class="LineNr"> 7942 </span> +<span id="L7943" class="LineNr"> 7943 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> +<span id="L7944" class="LineNr"> 7944 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> +<span id="L7945" class="LineNr"> 7945 </span> 1/imm32 +<span id="L7946" class="LineNr"> 7946 </span> +<span id="L7947" class="LineNr"> 7947 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> +<span id="L7948" class="LineNr"> 7948 </span> 1/imm32 +<span id="L7949" class="LineNr"> 7949 </span> +<span id="L7950" class="LineNr"> 7950 </span>== code +<span id="L7951" class="LineNr"> 7951 </span> +<span id="L7952" class="LineNr"> 7952 </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="L7953" class="LineNr"> 7953 </span> <span class="subxComment"># pseudocode</span> +<span id="L7954" class="LineNr"> 7954 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> +<span id="L7955" class="LineNr"> 7955 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> +<span id="L7956" class="LineNr"> 7956 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> +<span id="L7957" class="LineNr"> 7957 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L7958" class="LineNr"> 7958 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L7959" class="LineNr"> 7959 </span> <span class="subxComment"># while true # line loop</span> +<span id="L7960" class="LineNr"> 7960 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L7961" class="LineNr"> 7961 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L7962" class="LineNr"> 7962 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L7963" class="LineNr"> 7963 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L7964" class="LineNr"> 7964 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L7965" class="LineNr"> 7965 </span> <span class="subxComment"># continue</span> +<span id="L7966" class="LineNr"> 7966 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L7967" class="LineNr"> 7967 </span> <span class="subxComment"># continue # end of line</span> +<span id="L7968" class="LineNr"> 7968 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> +<span id="L7969" class="LineNr"> 7969 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L7970" class="LineNr"> 7970 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> +<span id="L7971" class="LineNr"> 7971 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> +<span id="L7972" class="LineNr"> 7972 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> +<span id="L7973" class="LineNr"> 7973 </span> <span class="subxComment"># assert(vars->top == 0)</span> +<span id="L7974" class="LineNr"> 7974 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L7975" class="LineNr"> 7975 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L7976" class="LineNr"> 7976 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> +<span id="L7977" class="LineNr"> 7977 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L7978" class="LineNr"> 7978 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> +<span id="L7979" class="LineNr"> 7979 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L7980" class="LineNr"> 7980 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L7981" class="LineNr"> 7981 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> +<span id="L7982" class="LineNr"> 7982 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L7983" class="LineNr"> 7983 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> +<span id="L7984" class="LineNr"> 7984 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> +<span id="L7985" class="LineNr"> 7985 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> +<span id="L7986" class="LineNr"> 7986 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> +<span id="L7987" class="LineNr"> 7987 </span> <span class="subxComment"># else</span> +<span id="L7988" class="LineNr"> 7988 </span> <span class="subxComment"># abort()</span> +<span id="L7989" class="LineNr"> 7989 </span> <span class="subxComment">#</span> +<span id="L7990" class="LineNr"> 7990 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7991" class="LineNr"> 7991 </span> 55/push-ebp +<span id="L7992" class="LineNr"> 7992 </span> 89/<- %ebp 4/r32/esp +<span id="L7993" class="LineNr"> 7993 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> +<span id="L7994" class="LineNr"> 7994 </span> 68/push <a href='mu.subx.html#L248'>_Program-signatures</a>/imm32 +<span id="L7995" class="LineNr"> 7995 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L7996" class="LineNr"> 7996 </span> 50/push-eax +<span id="L7997" class="LineNr"> 7997 </span> 51/push-ecx +<span id="L7998" class="LineNr"> 7998 </span> 52/push-edx +<span id="L7999" class="LineNr"> 7999 </span> 53/push-ebx +<span id="L8000" class="LineNr"> 8000 </span> 56/push-esi +<span id="L8001" class="LineNr"> 8001 </span> 57/push-edi +<span id="L8002" class="LineNr"> 8002 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L8003" class="LineNr"> 8003 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L8004" class="LineNr"> 8004 </span> 68/push 0x200/imm32/size +<span id="L8005" class="LineNr"> 8005 </span> 68/push 0/imm32/read +<span id="L8006" class="LineNr"> 8006 </span> 68/push 0/imm32/write +<span id="L8007" class="LineNr"> 8007 </span> 89/<- %ecx 4/r32/esp +<span id="L8008" class="LineNr"> 8008 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L8009" class="LineNr"> 8009 </span> 68/push 0/imm32/end +<span id="L8010" class="LineNr"> 8010 </span> 68/push 0/imm32/start +<span id="L8011" class="LineNr"> 8011 </span> 89/<- %edx 4/r32/esp +<span id="L8012" class="LineNr"> 8012 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> +<span id="L8013" class="LineNr"> 8013 </span> bf/copy-to-edi <a href='mu.subx.html#L240'>_Program-functions</a>/imm32 +<span id="L8014" class="LineNr"> 8014 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> +<span id="L8015" class="LineNr"> 8015 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L8016" class="LineNr"> 8016 </span> 68/push 0xc00/imm32/size +<span id="L8017" class="LineNr"> 8017 </span> 68/push 0/imm32/top +<span id="L8018" class="LineNr"> 8018 </span> 89/<- %ebx 4/r32/esp +<span id="L8019" class="LineNr"> 8019 </span> { +<span id="L8020" class="LineNr"> 8020 </span><span class="Constant">$parse-mu:line-loop</span>: +<span id="L8021" class="LineNr"> 8021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L8022" class="LineNr"> 8022 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L8023" class="LineNr"> 8023 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L8024" class="LineNr"> 8024 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L8025" class="LineNr"> 8025 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L8026" class="Folded"> 8026 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8032" class="LineNr"> 8032 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> %ecx %edx) +<span id="L8033" class="LineNr"> 8033 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L8034" class="LineNr"> 8034 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L8035" class="LineNr"> 8035 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8036" class="LineNr"> 8036 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L8037" class="LineNr"> 8037 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> +<span id="L8038" class="LineNr"> 8038 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L8039" class="LineNr"> 8039 </span> 8b/-> *edx 0/r32/eax +<span id="L8040" class="LineNr"> 8040 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L8041" class="LineNr"> 8041 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L8042" class="LineNr"> 8042 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L8043" class="LineNr"> 8043 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L8044" class="LineNr"> 8044 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L8045" class="LineNr"> 8045 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> +<span id="L8046" class="LineNr"> 8046 </span> { +<span id="L8047" class="LineNr"> 8047 </span><span class="Constant">$parse-mu:fn</span>: +<span id="L8048" class="LineNr"> 8048 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> +<span id="L8049" class="LineNr"> 8049 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8050" class="LineNr"> 8050 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L8051" class="LineNr"> 8051 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L8052" class="LineNr"> 8052 </span> 68/push 0/imm32 +<span id="L8053" class="LineNr"> 8053 </span> 68/push 0/imm32 +<span id="L8054" class="LineNr"> 8054 </span> 89/<- %esi 4/r32/esp +<span id="L8055" class="LineNr"> 8055 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L8056" class="LineNr"> 8056 </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#L274'>Function-size</a></span> %esi) +<span id="L8057" class="LineNr"> 8057 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L8058" class="LineNr"> 8058 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L8059" class="LineNr"> 8059 </span> <span class="subxComment"># initialize vars</span> +<span id="L8060" class="LineNr"> 8060 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ebx) +<span id="L8061" class="LineNr"> 8061 </span> <span class="subxComment">#</span> +<span id="L8062" class="LineNr"> 8062 </span> (<a href='mu.subx.html#L8201'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L8063" class="LineNr"> 8063 </span> (<a href='mu.subx.html#L9907'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L8064" class="LineNr"> 8064 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L8065" class="LineNr"> 8065 </span> 8b/-> *esi 0/r32/eax +<span id="L8066" class="LineNr"> 8066 </span> 89/<- *edi 0/r32/eax +<span id="L8067" class="LineNr"> 8067 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L8068" class="LineNr"> 8068 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L8069" class="LineNr"> 8069 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L8070" class="LineNr"> 8070 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L8071" class="LineNr"> 8071 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L8072" class="LineNr"> 8072 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L8073" class="LineNr"> 8073 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L8074" class="LineNr"> 8074 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L8075" class="LineNr"> 8075 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8076" class="LineNr"> 8076 </span> <span class="subxComment">#</span> +<span id="L8077" class="LineNr"> 8077 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L8078" class="LineNr"> 8078 </span> } +<span id="L8079" class="LineNr"> 8079 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> +<span id="L8080" class="LineNr"> 8080 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> +<span id="L8081" class="LineNr"> 8081 </span> { +<span id="L8082" class="LineNr"> 8082 </span><span class="Constant">$parse-mu:sig</span>: +<span id="L8083" class="LineNr"> 8083 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> +<span id="L8084" class="LineNr"> 8084 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8085" class="LineNr"> 8085 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L8086" class="LineNr"> 8086 </span> <span class="subxComment"># edi = curr-function</span> +<span id="L8087" class="LineNr"> 8087 </span> 57/push-edi +<span id="L8088" class="LineNr"> 8088 </span> 8b/-> *(ebp-4) 7/r32/edi +<span id="L8089" class="LineNr"> 8089 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L8090" class="LineNr"> 8090 </span> 68/push 0/imm32 +<span id="L8091" class="LineNr"> 8091 </span> 68/push 0/imm32 +<span id="L8092" class="LineNr"> 8092 </span> 89/<- %esi 4/r32/esp +<span id="L8093" class="LineNr"> 8093 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L8094" class="LineNr"> 8094 </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#L274'>Function-size</a></span> %esi) +<span id="L8095" class="LineNr"> 8095 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L8096" class="LineNr"> 8096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L8097" class="LineNr"> 8097 </span> <span class="subxComment">#</span> +<span id="L8098" class="LineNr"> 8098 </span> (<a href='mu.subx.html#L8413'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L8099" class="LineNr"> 8099 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L8100" class="LineNr"> 8100 </span> 8b/-> *esi 0/r32/eax +<span id="L8101" class="LineNr"> 8101 </span> 89/<- *edi 0/r32/eax +<span id="L8102" class="LineNr"> 8102 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L8103" class="LineNr"> 8103 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L8104" class="LineNr"> 8104 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L8105" class="LineNr"> 8105 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L8106" class="LineNr"> 8106 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L8107" class="LineNr"> 8107 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L8108" class="LineNr"> 8108 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L8109" class="LineNr"> 8109 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L8110" class="LineNr"> 8110 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8111" class="LineNr"> 8111 </span> <span class="subxComment"># save curr-function</span> +<span id="L8112" class="LineNr"> 8112 </span> 89/<- *(ebp-4) 7/r32/edi +<span id="L8113" class="LineNr"> 8113 </span> <span class="subxComment"># restore edi</span> +<span id="L8114" class="LineNr"> 8114 </span> 5f/pop-to-edi +<span id="L8115" class="LineNr"> 8115 </span> <span class="subxComment">#</span> +<span id="L8116" class="LineNr"> 8116 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L8117" class="LineNr"> 8117 </span> } +<span id="L8118" class="LineNr"> 8118 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> +<span id="L8119" class="LineNr"> 8119 </span> { +<span id="L8120" class="LineNr"> 8120 </span><span class="Constant">$parse-mu:type</span>: +<span id="L8121" class="LineNr"> 8121 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> +<span id="L8122" class="LineNr"> 8122 </span> 3d/compare-eax-and 0/imm32 +<span id="L8123" class="LineNr"> 8123 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L8124" class="LineNr"> 8124 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> %ecx %edx) +<span id="L8125" class="LineNr"> 8125 </span> <span class="subxComment"># var type-id/eax: int</span> +<span id="L8126" class="LineNr"> 8126 </span> (<a href='mu.subx.html#L9295'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> %edx) <span class="subxComment"># => eax</span> +<span id="L8127" class="LineNr"> 8127 </span> <span class="subxComment"># spill</span> +<span id="L8128" class="LineNr"> 8128 </span> 51/push-ecx +<span id="L8129" class="LineNr"> 8129 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> +<span id="L8130" class="LineNr"> 8130 </span> 68/push 0/imm32 +<span id="L8131" class="LineNr"> 8131 </span> 68/push 0/imm32 +<span id="L8132" class="LineNr"> 8132 </span> 89/<- %ecx 4/r32/esp +<span id="L8133" class="LineNr"> 8133 </span> (<a href='mu.subx.html#L12043'>find-or-create-typeinfo</a> %eax %ecx) +<span id="L8134" class="LineNr"> 8134 </span> <span class="subxComment">#</span> +<span id="L8135" class="LineNr"> 8135 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L8136" class="LineNr"> 8136 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> +<span id="L8137" class="LineNr"> 8137 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> +<span id="L8138" class="LineNr"> 8138 </span> (<a href='mu.subx.html#L12277'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L8139" class="LineNr"> 8139 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> +<span id="L8140" class="LineNr"> 8140 </span> <span class="subxComment"># reclaim new-type</span> +<span id="L8141" class="LineNr"> 8141 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8142" class="LineNr"> 8142 </span> <span class="subxComment"># restore</span> +<span id="L8143" class="LineNr"> 8143 </span> 59/pop-to-ecx +<span id="L8144" class="LineNr"> 8144 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L8145" class="LineNr"> 8145 </span> } +<span id="L8146" class="LineNr"> 8146 </span> <span class="subxComment"># otherwise abort</span> +<span id="L8147" class="LineNr"> 8147 </span> e9/jump $parse-mu:error1/disp32 +<span id="L8148" class="LineNr"> 8148 </span> } <span class="subxComment"># end line loop</span> +<span id="L8149" class="LineNr"> 8149 </span><span class="Constant">$parse-mu:end</span>: +<span id="L8150" class="LineNr"> 8150 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L8151" class="LineNr"> 8151 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> +<span id="L8152" class="LineNr"> 8152 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> +<span id="L8153" class="LineNr"> 8153 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8154" class="LineNr"> 8154 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L8155" class="LineNr"> 8155 </span> 5f/pop-to-edi +<span id="L8156" class="LineNr"> 8156 </span> 5e/pop-to-esi +<span id="L8157" class="LineNr"> 8157 </span> 5b/pop-to-ebx +<span id="L8158" class="LineNr"> 8158 </span> 5a/pop-to-edx +<span id="L8159" class="LineNr"> 8159 </span> 59/pop-to-ecx +<span id="L8160" class="LineNr"> 8160 </span> 58/pop-to-eax +<span id="L8161" class="LineNr"> 8161 </span> <span class="subxS1Comment"># . reclaim local</span> +<span id="L8162" class="LineNr"> 8162 </span> 81 0/subop/add %esp 4/imm32 +<span id="L8163" class="LineNr"> 8163 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8164" class="LineNr"> 8164 </span> 89/<- %esp 5/r32/ebp +<span id="L8165" class="LineNr"> 8165 </span> 5d/pop-to-ebp +<span id="L8166" class="LineNr"> 8166 </span> c3/return +<span id="L8167" class="LineNr"> 8167 </span> +<span id="L8168" class="LineNr"> 8168 </span><span class="Constant">$parse-mu:error1</span>: +<span id="L8169" class="LineNr"> 8169 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> +<span id="L8170" class="LineNr"> 8170 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) +<span id="L8171" class="LineNr"> 8171 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) +<span id="L8172" class="LineNr"> 8172 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) +<span id="L8173" class="LineNr"> 8173 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L8174" class="LineNr"> 8174 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L8175" class="LineNr"> 8175 </span> <span class="subxComment"># never gets here</span> +<span id="L8176" class="LineNr"> 8176 </span> +<span id="L8177" class="LineNr"> 8177 </span><span class="Constant">$parse-mu:error2</span>: +<span id="L8178" class="LineNr"> 8178 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> +<span id="L8179" class="LineNr"> 8179 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) +<span id="L8180" class="LineNr"> 8180 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) +<span id="L8181" class="LineNr"> 8181 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> +<span id="L8182" class="LineNr"> 8182 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) +<span id="L8183" class="LineNr"> 8183 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L8184" class="LineNr"> 8184 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L8185" class="LineNr"> 8185 </span> <span class="subxComment"># never gets here</span> +<span id="L8186" class="LineNr"> 8186 </span> +<span id="L8187" class="LineNr"> 8187 </span><span class="subxComment"># scenarios considered:</span> +<span id="L8188" class="LineNr"> 8188 </span><span class="subxComment"># ✗ fn foo # no block</span> +<span id="L8189" class="LineNr"> 8189 </span><span class="subxComment"># ✓ fn foo {</span> +<span id="L8190" class="LineNr"> 8190 </span><span class="subxComment"># ✗ fn foo { {</span> +<span id="L8191" class="LineNr"> 8191 </span><span class="subxComment"># ✗ fn foo { }</span> +<span id="L8192" class="LineNr"> 8192 </span><span class="subxComment"># ✗ fn foo { } {</span> +<span id="L8193" class="LineNr"> 8193 </span><span class="subxComment"># ✗ fn foo x {</span> +<span id="L8194" class="LineNr"> 8194 </span><span class="subxComment"># ✗ fn foo x: {</span> +<span id="L8195" class="LineNr"> 8195 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L8196" class="LineNr"> 8196 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L8197" class="LineNr"> 8197 </span><span class="subxComment"># ✓ fn foo x: int -> y/eax: int {</span> +<span id="L8198" class="LineNr"> 8198 </span><span class="subxComment"># TODO:</span> +<span id="L8199" class="LineNr"> 8199 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L8200" class="LineNr"> 8200 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L8201" class="LineNr"> 8201 </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="L8202" class="LineNr"> 8202 </span> <span class="subxComment"># pseudocode:</span> +<span id="L8203" class="LineNr"> 8203 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L8204" class="LineNr"> 8204 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L8205" class="LineNr"> 8205 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8206" class="LineNr"> 8206 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L8207" class="LineNr"> 8207 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L8208" class="LineNr"> 8208 </span> <span class="subxComment"># ## inouts</span> +<span id="L8209" class="LineNr"> 8209 </span> <span class="subxComment"># while true</span> +<span id="L8210" class="LineNr"> 8210 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L8211" class="LineNr"> 8211 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8212" class="LineNr"> 8212 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L8213" class="LineNr"> 8213 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L8214" class="LineNr"> 8214 </span> <span class="subxComment"># assert(word-slice != '}')</span> +<span id="L8215" class="LineNr"> 8215 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L8216" class="LineNr"> 8216 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L8217" class="LineNr"> 8217 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L8218" class="LineNr"> 8218 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L8219" class="LineNr"> 8219 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L8220" class="LineNr"> 8220 </span> <span class="subxComment"># ## outputs</span> +<span id="L8221" class="LineNr"> 8221 </span> <span class="subxComment"># while true</span> +<span id="L8222" class="LineNr"> 8222 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L8223" class="LineNr"> 8223 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8224" class="LineNr"> 8224 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L8225" class="LineNr"> 8225 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> +<span id="L8226" class="LineNr"> 8226 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L8227" class="LineNr"> 8227 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L8228" class="LineNr"> 8228 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L8229" class="LineNr"> 8229 </span> <span class="subxComment"># done:</span> +<span id="L8230" class="LineNr"> 8230 </span> <span class="subxComment">#</span> +<span id="L8231" class="LineNr"> 8231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8232" class="LineNr"> 8232 </span> 55/push-ebp +<span id="L8233" class="LineNr"> 8233 </span> 89/<- %ebp 4/r32/esp +<span id="L8234" class="LineNr"> 8234 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L8235" class="LineNr"> 8235 </span> 50/push-eax +<span id="L8236" class="LineNr"> 8236 </span> 51/push-ecx +<span id="L8237" class="LineNr"> 8237 </span> 52/push-edx +<span id="L8238" class="LineNr"> 8238 </span> 53/push-ebx +<span id="L8239" class="LineNr"> 8239 </span> 57/push-edi +<span id="L8240" class="LineNr"> 8240 </span> <span class="subxComment"># edi = out</span> +<span id="L8241" class="LineNr"> 8241 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L8242" class="LineNr"> 8242 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L8243" class="LineNr"> 8243 </span> 68/push 0/imm32/end +<span id="L8244" class="LineNr"> 8244 </span> 68/push 0/imm32/start +<span id="L8245" class="LineNr"> 8245 </span> 89/<- %ecx 4/r32/esp +<span id="L8246" class="LineNr"> 8246 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L8247" class="LineNr"> 8247 </span> 68/push 0/imm32 +<span id="L8248" class="LineNr"> 8248 </span> 68/push 0/imm32 +<span id="L8249" class="LineNr"> 8249 </span> 89/<- %ebx 4/r32/esp +<span id="L8250" class="LineNr"> 8250 </span> <span class="subxComment"># read function name</span> +<span id="L8251" class="LineNr"> 8251 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8252" class="LineNr"> 8252 </span> <span class="subxComment"># error checking</span> +<span id="L8253" class="LineNr"> 8253 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8254" class="LineNr"> 8254 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8255" class="LineNr"> 8255 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8256" class="LineNr"> 8256 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8257" class="LineNr"> 8257 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L8258" class="LineNr"> 8258 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8259" class="LineNr"> 8259 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8260" class="LineNr"> 8260 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8261" class="LineNr"> 8261 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L8262" class="LineNr"> 8262 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8263" class="LineNr"> 8263 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8264" class="LineNr"> 8264 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8265" class="LineNr"> 8265 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8266" class="LineNr"> 8266 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8267" class="LineNr"> 8267 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8268" class="LineNr"> 8268 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8269" class="LineNr"> 8269 </span> <span class="subxComment"># save function name</span> +<span id="L8270" class="LineNr"> 8270 </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="L8271" class="LineNr"> 8271 </span> <span class="subxComment"># save function inouts</span> +<span id="L8272" class="LineNr"> 8272 </span> { +<span id="L8273" class="LineNr"> 8273 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: +<span id="L8274" class="LineNr"> 8274 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8275" class="LineNr"> 8275 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8276" class="LineNr"> 8276 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8277" class="LineNr"> 8277 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8278" class="LineNr"> 8278 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8279" class="LineNr"> 8279 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L8280" class="LineNr"> 8280 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8281" class="LineNr"> 8281 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8282" class="LineNr"> 8282 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 +<span id="L8283" class="LineNr"> 8283 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L8284" class="LineNr"> 8284 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8285" class="LineNr"> 8285 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8286" class="LineNr"> 8286 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8287" class="LineNr"> 8287 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8288" class="LineNr"> 8288 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8289" class="LineNr"> 8289 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8290" class="LineNr"> 8290 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8291" class="LineNr"> 8291 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L8292" class="LineNr"> 8292 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x14) *(ebp+0x18)) +<span id="L8293" class="LineNr"> 8293 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L8294" class="LineNr"> 8294 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L8295" class="LineNr"> 8295 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8296" class="LineNr"> 8296 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L8297" class="LineNr"> 8297 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 +<span id="L8298" class="LineNr"> 8298 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L8299" class="LineNr"> 8299 </span> <span class="subxComment">#</span> +<span id="L8300" class="LineNr"> 8300 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L8301" class="LineNr"> 8301 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L8302" class="LineNr"> 8302 </span> (<a href='mu.subx.html#L11812'>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="L8303" class="LineNr"> 8303 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L8304" class="LineNr"> 8304 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) +<span id="L8305" class="LineNr"> 8305 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) +<span id="L8306" class="LineNr"> 8306 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L8307" class="LineNr"> 8307 </span> <span class="subxComment">#</span> +<span id="L8308" class="LineNr"> 8308 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L8309" class="LineNr"> 8309 </span> } +<span id="L8310" class="LineNr"> 8310 </span> <span class="subxComment"># save function outputs</span> +<span id="L8311" class="LineNr"> 8311 </span> { +<span id="L8312" class="LineNr"> 8312 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: +<span id="L8313" class="LineNr"> 8313 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8314" class="LineNr"> 8314 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L8315" class="LineNr"> 8315 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8316" class="LineNr"> 8316 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8317" class="LineNr"> 8317 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8318" class="LineNr"> 8318 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L8319" class="LineNr"> 8319 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8320" class="LineNr"> 8320 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8321" class="LineNr"> 8321 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8322" class="LineNr"> 8322 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L8323" class="LineNr"> 8323 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8324" class="LineNr"> 8324 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8325" class="LineNr"> 8325 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8326" class="LineNr"> 8326 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8327" class="LineNr"> 8327 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8328" class="LineNr"> 8328 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8329" class="LineNr"> 8329 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L8330" class="LineNr"> 8330 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L8331" class="LineNr"> 8331 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x14) *(ebp+0x18)) +<span id="L8332" class="LineNr"> 8332 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L8333" class="LineNr"> 8333 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L8334" class="LineNr"> 8334 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8335" class="LineNr"> 8335 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L8336" class="LineNr"> 8336 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 +<span id="L8337" class="LineNr"> 8337 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L8338" class="LineNr"> 8338 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L8339" class="LineNr"> 8339 </span> (<a href='mu.subx.html#L11812'>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="L8340" class="LineNr"> 8340 </span> <span class="subxComment">#</span> +<span id="L8341" class="LineNr"> 8341 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L8342" class="LineNr"> 8342 </span> } +<span id="L8343" class="LineNr"> 8343 </span><span class="Constant">$populate-mu-function-header:done</span>: +<span id="L8344" class="LineNr"> 8344 </span> (<a href='mu.subx.html#L10219'>check-no-tokens-left</a> *(ebp+8)) +<span id="L8345" class="LineNr"> 8345 </span><span class="Constant">$populate-mu-function-header:end</span>: +<span id="L8346" class="LineNr"> 8346 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L8347" class="LineNr"> 8347 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L8348" class="LineNr"> 8348 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L8349" class="LineNr"> 8349 </span> 5f/pop-to-edi +<span id="L8350" class="LineNr"> 8350 </span> 5b/pop-to-ebx +<span id="L8351" class="LineNr"> 8351 </span> 5a/pop-to-edx +<span id="L8352" class="LineNr"> 8352 </span> 59/pop-to-ecx +<span id="L8353" class="LineNr"> 8353 </span> 58/pop-to-eax +<span id="L8354" class="LineNr"> 8354 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8355" class="LineNr"> 8355 </span> 89/<- %esp 5/r32/ebp +<span id="L8356" class="LineNr"> 8356 </span> 5d/pop-to-ebp +<span id="L8357" class="LineNr"> 8357 </span> c3/return +<span id="L8358" class="LineNr"> 8358 </span> +<span id="L8359" class="LineNr"> 8359 </span><span class="Constant">$populate-mu-function-header:error1</span>: +<span id="L8360" class="LineNr"> 8360 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> +<span id="L8361" class="LineNr"> 8361 </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="L8362" class="LineNr"> 8362 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8363" class="LineNr"> 8363 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L8364" class="LineNr"> 8364 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L8365" class="LineNr"> 8365 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L8366" class="LineNr"> 8366 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8367" class="LineNr"> 8367 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L8368" class="LineNr"> 8368 </span> <span class="subxComment"># never gets here</span> +<span id="L8369" class="LineNr"> 8369 </span> +<span id="L8370" class="LineNr"> 8370 </span><span class="Constant">$populate-mu-function-header:error2</span>: +<span id="L8371" class="LineNr"> 8371 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L8372" class="LineNr"> 8372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L8373" class="LineNr"> 8373 </span> 50/push-eax +<span id="L8374" class="LineNr"> 8374 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8375" class="LineNr"> 8375 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L8376" class="LineNr"> 8376 </span> 58/pop-to-eax +<span id="L8377" class="LineNr"> 8377 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) +<span id="L8378" class="LineNr"> 8378 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8379" class="LineNr"> 8379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L8380" class="LineNr"> 8380 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) +<span id="L8381" class="LineNr"> 8381 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8382" class="LineNr"> 8382 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L8383" class="LineNr"> 8383 </span> <span class="subxComment"># never gets here</span> +<span id="L8384" class="LineNr"> 8384 </span> +<span id="L8385" class="LineNr"> 8385 </span><span class="Constant">$populate-mu-function-header:error3</span>: +<span id="L8386" class="LineNr"> 8386 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L8387" class="LineNr"> 8387 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L8388" class="LineNr"> 8388 </span> 50/push-eax +<span id="L8389" class="LineNr"> 8389 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8390" class="LineNr"> 8390 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L8391" class="LineNr"> 8391 </span> 58/pop-to-eax +<span id="L8392" class="LineNr"> 8392 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) +<span id="L8393" class="LineNr"> 8393 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8394" class="LineNr"> 8394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8395" class="LineNr"> 8395 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L8396" class="LineNr"> 8396 </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="L8397" class="LineNr"> 8397 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L8398" class="LineNr"> 8398 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L8399" class="LineNr"> 8399 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L8400" class="LineNr"> 8400 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8401" class="LineNr"> 8401 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L8402" class="LineNr"> 8402 </span> <span class="subxComment"># never gets here</span> +<span id="L8403" class="LineNr"> 8403 </span> +<span id="L8404" class="LineNr"> 8404 </span><span class="subxComment"># scenarios considered:</span> +<span id="L8405" class="LineNr"> 8405 </span><span class="subxComment"># ✓ fn foo</span> +<span id="L8406" class="LineNr"> 8406 </span><span class="subxComment"># ✗ fn foo {</span> +<span id="L8407" class="LineNr"> 8407 </span><span class="subxComment"># ✓ fn foo x</span> +<span id="L8408" class="LineNr"> 8408 </span><span class="subxComment"># ✓ fn foo x: int</span> +<span id="L8409" class="LineNr"> 8409 </span><span class="subxComment"># ✓ fn foo x: int -> y/eax: int</span> +<span id="L8410" class="LineNr"> 8410 </span><span class="subxComment"># TODO:</span> +<span id="L8411" class="LineNr"> 8411 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L8412" class="LineNr"> 8412 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L8413" class="LineNr"> 8413 </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="L8414" class="LineNr"> 8414 </span> <span class="subxComment"># pseudocode:</span> +<span id="L8415" class="LineNr"> 8415 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L8416" class="LineNr"> 8416 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L8417" class="LineNr"> 8417 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L8418" class="LineNr"> 8418 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L8419" class="LineNr"> 8419 </span> <span class="subxComment"># ## inouts</span> +<span id="L8420" class="LineNr"> 8420 </span> <span class="subxComment"># while true</span> +<span id="L8421" class="LineNr"> 8421 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L8422" class="LineNr"> 8422 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L8423" class="LineNr"> 8423 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L8424" class="LineNr"> 8424 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> +<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L8426" class="LineNr"> 8426 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L8427" class="LineNr"> 8427 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L8428" class="LineNr"> 8428 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L8429" class="LineNr"> 8429 </span> <span class="subxComment"># ## outputs</span> +<span id="L8430" class="LineNr"> 8430 </span> <span class="subxComment"># while true</span> +<span id="L8431" class="LineNr"> 8431 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L8432" class="LineNr"> 8432 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L8433" class="LineNr"> 8433 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L8434" class="LineNr"> 8434 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L8435" class="LineNr"> 8435 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L8436" class="LineNr"> 8436 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L8437" class="LineNr"> 8437 </span> <span class="subxComment">#</span> +<span id="L8438" class="LineNr"> 8438 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8439" class="LineNr"> 8439 </span> 55/push-ebp +<span id="L8440" class="LineNr"> 8440 </span> 89/<- %ebp 4/r32/esp +<span id="L8441" class="LineNr"> 8441 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L8442" class="LineNr"> 8442 </span> 50/push-eax +<span id="L8443" class="LineNr"> 8443 </span> 51/push-ecx +<span id="L8444" class="LineNr"> 8444 </span> 52/push-edx +<span id="L8445" class="LineNr"> 8445 </span> 53/push-ebx +<span id="L8446" class="LineNr"> 8446 </span> 57/push-edi +<span id="L8447" class="LineNr"> 8447 </span> <span class="subxComment"># edi = out</span> +<span id="L8448" class="LineNr"> 8448 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L8449" class="LineNr"> 8449 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L8450" class="LineNr"> 8450 </span> 68/push 0/imm32/end +<span id="L8451" class="LineNr"> 8451 </span> 68/push 0/imm32/start +<span id="L8452" class="LineNr"> 8452 </span> 89/<- %ecx 4/r32/esp +<span id="L8453" class="LineNr"> 8453 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L8454" class="LineNr"> 8454 </span> 68/push 0/imm32 +<span id="L8455" class="LineNr"> 8455 </span> 68/push 0/imm32 +<span id="L8456" class="LineNr"> 8456 </span> 89/<- %ebx 4/r32/esp +<span id="L8457" class="LineNr"> 8457 </span> <span class="subxComment"># read function name</span> +<span id="L8458" class="LineNr"> 8458 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8459" class="LineNr"> 8459 </span> <span class="subxComment"># error checking</span> +<span id="L8460" class="LineNr"> 8460 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L8461" class="LineNr"> 8461 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8462" class="LineNr"> 8462 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8463" class="LineNr"> 8463 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8464" class="LineNr"> 8464 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L8465" class="LineNr"> 8465 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8466" class="LineNr"> 8466 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8467" class="LineNr"> 8467 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8468" class="LineNr"> 8468 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8469" class="LineNr"> 8469 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8470" class="LineNr"> 8470 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8471" class="LineNr"> 8471 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8472" class="LineNr"> 8472 </span> <span class="subxComment"># save function name</span> +<span id="L8473" class="LineNr"> 8473 </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="L8474" class="LineNr"> 8474 </span> <span class="subxComment"># save function inouts</span> +<span id="L8475" class="LineNr"> 8475 </span> { +<span id="L8476" class="LineNr"> 8476 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: +<span id="L8477" class="LineNr"> 8477 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8478" class="LineNr"> 8478 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8479" class="LineNr"> 8479 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8480" class="LineNr"> 8480 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8481" class="LineNr"> 8481 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L8482" class="LineNr"> 8482 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8483" class="LineNr"> 8483 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8484" class="LineNr"> 8484 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8485" class="LineNr"> 8485 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L8486" class="LineNr"> 8486 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8487" class="LineNr"> 8487 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8488" class="LineNr"> 8488 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8489" class="LineNr"> 8489 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8490" class="LineNr"> 8490 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8491" class="LineNr"> 8491 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8492" class="LineNr"> 8492 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8493" class="LineNr"> 8493 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L8494" class="LineNr"> 8494 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x10) *(ebp+0x14)) +<span id="L8495" class="LineNr"> 8495 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L8496" class="LineNr"> 8496 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L8497" class="LineNr"> 8497 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8498" class="LineNr"> 8498 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L8499" class="LineNr"> 8499 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L8500" class="LineNr"> 8500 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L8501" class="LineNr"> 8501 </span> <span class="subxComment">#</span> +<span id="L8502" class="LineNr"> 8502 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L8503" class="LineNr"> 8503 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L8504" class="LineNr"> 8504 </span> (<a href='mu.subx.html#L11812'>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="L8505" class="LineNr"> 8505 </span> <span class="subxComment">#</span> +<span id="L8506" class="LineNr"> 8506 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L8507" class="LineNr"> 8507 </span> } +<span id="L8508" class="LineNr"> 8508 </span> <span class="subxComment"># save function outputs</span> +<span id="L8509" class="LineNr"> 8509 </span> { +<span id="L8510" class="LineNr"> 8510 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: +<span id="L8511" class="LineNr"> 8511 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L8512" class="LineNr"> 8512 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8513" class="LineNr"> 8513 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8514" class="LineNr"> 8514 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8515" class="LineNr"> 8515 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L8516" class="LineNr"> 8516 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8517" class="LineNr"> 8517 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8518" class="LineNr"> 8518 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8519" class="LineNr"> 8519 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L8520" class="LineNr"> 8520 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8521" class="LineNr"> 8521 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8522" class="LineNr"> 8522 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8523" class="LineNr"> 8523 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L8524" class="LineNr"> 8524 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8525" class="LineNr"> 8525 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8526" class="LineNr"> 8526 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L8527" class="LineNr"> 8527 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L8528" class="LineNr"> 8528 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx *(ebp+8) %ebx *(ebp+0x10) *(ebp+0x14)) +<span id="L8529" class="LineNr"> 8529 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L8530" class="LineNr"> 8530 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L8531" class="LineNr"> 8531 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8532" class="LineNr"> 8532 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L8533" class="LineNr"> 8533 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 +<span id="L8534" class="LineNr"> 8534 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L8535" class="LineNr"> 8535 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L8536" class="LineNr"> 8536 </span> (<a href='mu.subx.html#L11812'>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="L8537" class="LineNr"> 8537 </span> <span class="subxComment">#</span> +<span id="L8538" class="LineNr"> 8538 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L8539" class="LineNr"> 8539 </span> } +<span id="L8540" class="LineNr"> 8540 </span><span class="Constant">$populate-mu-function-signature:done</span>: +<span id="L8541" class="LineNr"> 8541 </span> (<a href='mu.subx.html#L10219'>check-no-tokens-left</a> *(ebp+8)) +<span id="L8542" class="LineNr"> 8542 </span><span class="Constant">$populate-mu-function-signature:end</span>: +<span id="L8543" class="LineNr"> 8543 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L8544" class="LineNr"> 8544 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L8545" class="LineNr"> 8545 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L8546" class="LineNr"> 8546 </span> 5f/pop-to-edi +<span id="L8547" class="LineNr"> 8547 </span> 5b/pop-to-ebx +<span id="L8548" class="LineNr"> 8548 </span> 5a/pop-to-edx +<span id="L8549" class="LineNr"> 8549 </span> 59/pop-to-ecx +<span id="L8550" class="LineNr"> 8550 </span> 58/pop-to-eax +<span id="L8551" class="LineNr"> 8551 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8552" class="LineNr"> 8552 </span> 89/<- %esp 5/r32/ebp +<span id="L8553" class="LineNr"> 8553 </span> 5d/pop-to-ebp +<span id="L8554" class="LineNr"> 8554 </span> c3/return +<span id="L8555" class="LineNr"> 8555 </span> +<span id="L8556" class="LineNr"> 8556 </span><span class="Constant">$populate-mu-function-signature:error1</span>: +<span id="L8557" class="LineNr"> 8557 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> +<span id="L8558" class="LineNr"> 8558 </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="L8559" class="LineNr"> 8559 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L8560" class="LineNr"> 8560 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L8561" class="LineNr"> 8561 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L8562" class="LineNr"> 8562 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L8563" class="LineNr"> 8563 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L8564" class="LineNr"> 8564 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L8565" class="LineNr"> 8565 </span> <span class="subxComment"># never gets here</span> +<span id="L8566" class="LineNr"> 8566 </span> +<span id="L8567" class="LineNr"> 8567 </span><span class="Constant">$populate-mu-function-signature:error2</span>: +<span id="L8568" class="LineNr"> 8568 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L8569" class="LineNr"> 8569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L8570" class="LineNr"> 8570 </span> 50/push-eax +<span id="L8571" class="LineNr"> 8571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8572" class="LineNr"> 8572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L8573" class="LineNr"> 8573 </span> 58/pop-to-eax +<span id="L8574" class="LineNr"> 8574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) +<span id="L8575" class="LineNr"> 8575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8576" class="LineNr"> 8576 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L8577" class="LineNr"> 8577 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) +<span id="L8578" class="LineNr"> 8578 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L8579" class="LineNr"> 8579 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L8580" class="LineNr"> 8580 </span> <span class="subxComment"># never gets here</span> +<span id="L8581" class="LineNr"> 8581 </span> +<span id="L8582" class="LineNr"> 8582 </span><span class="Constant">$populate-mu-function-signature:error3</span>: +<span id="L8583" class="LineNr"> 8583 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L8584" class="LineNr"> 8584 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L8585" class="LineNr"> 8585 </span> 50/push-eax +<span id="L8586" class="LineNr"> 8586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8587" class="LineNr"> 8587 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L8588" class="LineNr"> 8588 </span> 58/pop-to-eax +<span id="L8589" class="LineNr"> 8589 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) +<span id="L8590" class="LineNr"> 8590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L8591" class="LineNr"> 8591 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8592" class="LineNr"> 8592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L8593" class="LineNr"> 8593 </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="L8594" class="LineNr"> 8594 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L8595" class="LineNr"> 8595 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L8596" class="LineNr"> 8596 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L8597" class="LineNr"> 8597 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L8598" class="LineNr"> 8598 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L8599" class="LineNr"> 8599 </span> <span class="subxComment"># never gets here</span> +<span id="L8600" class="LineNr"> 8600 </span> +<span id="L8601" class="LineNr"> 8601 </span><span class="subxTest">test-function-header-with-arg</span>: +<span id="L8602" class="LineNr"> 8602 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8603" class="LineNr"> 8603 </span> 55/push-ebp +<span id="L8604" class="LineNr"> 8604 </span> 89/<- %ebp 4/r32/esp +<span id="L8605" class="LineNr"> 8605 </span> <span class="subxComment"># setup</span> +<span id="L8606" class="LineNr"> 8606 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L8607" class="LineNr"> 8607 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L8608" class="LineNr"> 8608 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<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">"foo n: int {\n"</span>) +<span id="L8610" class="LineNr"> 8610 </span> <span class="subxComment"># var result/ecx: function</span> +<span id="L8611" class="LineNr"> 8611 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp +<span id="L8612" class="LineNr"> 8612 </span> 89/<- %ecx 4/r32/esp +<span id="L8613" class="LineNr"> 8613 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) +<span id="L8614" class="LineNr"> 8614 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L8615" class="LineNr"> 8615 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L8616" class="LineNr"> 8616 </span> 68/push 0xc0/imm32/size +<span id="L8617" class="LineNr"> 8617 </span> 68/push 0/imm32/top +<span id="L8618" class="LineNr"> 8618 </span> 89/<- %ebx 4/r32/esp +<span id="L8619" class="LineNr"> 8619 </span> <span class="subxComment"># convert</span> +<span id="L8620" class="LineNr"> 8620 </span> (<a href='mu.subx.html#L8201'>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="L8621" class="LineNr"> 8621 </span> <span class="subxComment"># check result->name</span> +<span id="L8622" class="LineNr"> 8622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8623" class="LineNr"> 8623 </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#L8601'>test-function-header-with-arg</a>/name"</span>) +<span id="L8624" class="LineNr"> 8624 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> +<span id="L8625" class="LineNr"> 8625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L8626" class="LineNr"> 8626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8627" class="LineNr"> 8627 </span> 89/<- %edx 0/r32/eax +<span id="L8628" class="LineNr"> 8628 </span> <span class="subxComment"># check v->name</span> +<span id="L8629" class="LineNr"> 8629 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8630" class="LineNr"> 8630 </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#L8601'>test-function-header-with-arg</a>/inout:0"</span>) +<span id="L8631" class="LineNr"> 8631 </span> <span class="subxComment"># check v->type</span> +<span id="L8632" class="LineNr"> 8632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8633" class="LineNr"> 8633 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8601'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8634" class="LineNr"> 8634 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8601'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8635" class="LineNr"> 8635 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8601'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8636" class="LineNr"> 8636 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8637" class="LineNr"> 8637 </span> 89/<- %esp 5/r32/ebp +<span id="L8638" class="LineNr"> 8638 </span> 5d/pop-to-ebp +<span id="L8639" class="LineNr"> 8639 </span> c3/return +<span id="L8640" class="LineNr"> 8640 </span> +<span id="L8641" class="LineNr"> 8641 </span><span class="subxTest">test-function-header-with-multiple-args</span>: +<span id="L8642" class="LineNr"> 8642 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8643" class="LineNr"> 8643 </span> 55/push-ebp +<span id="L8644" class="LineNr"> 8644 </span> 89/<- %ebp 4/r32/esp +<span id="L8645" class="LineNr"> 8645 </span> <span class="subxComment"># setup</span> +<span id="L8646" class="LineNr"> 8646 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L8647" class="LineNr"> 8647 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L8648" class="LineNr"> 8648 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8649" class="LineNr"> 8649 </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="L8650" class="LineNr"> 8650 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L8651" class="LineNr"> 8651 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp +<span id="L8652" class="LineNr"> 8652 </span> 89/<- %ecx 4/r32/esp +<span id="L8653" class="LineNr"> 8653 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) +<span id="L8654" class="LineNr"> 8654 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L8655" class="LineNr"> 8655 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L8656" class="LineNr"> 8656 </span> 68/push 0xc0/imm32/size +<span id="L8657" class="LineNr"> 8657 </span> 68/push 0/imm32/top +<span id="L8658" class="LineNr"> 8658 </span> 89/<- %ebx 4/r32/esp +<span id="L8659" class="LineNr"> 8659 </span> <span class="subxComment"># convert</span> +<span id="L8660" class="LineNr"> 8660 </span> (<a href='mu.subx.html#L8201'>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="L8661" class="LineNr"> 8661 </span> <span class="subxComment"># check result->name</span> +<span id="L8662" class="LineNr"> 8662 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8663" class="LineNr"> 8663 </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#L8641'>test-function-header-with-multiple-args</a>/name"</span>) +<span id="L8664" class="LineNr"> 8664 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L8665" class="LineNr"> 8665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L8666" class="LineNr"> 8666 </span> 89/<- %edx 0/r32/eax +<span id="L8667" class="LineNr"> 8667 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: +<span id="L8668" class="LineNr"> 8668 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L8669" class="LineNr"> 8669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8670" class="LineNr"> 8670 </span> 89/<- %ebx 0/r32/eax +<span id="L8671" class="LineNr"> 8671 </span> <span class="subxComment"># check v->name</span> +<span id="L8672" class="LineNr"> 8672 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8673" class="LineNr"> 8673 </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#L8641'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> +<span id="L8674" class="LineNr"> 8674 </span> <span class="subxComment"># check v->type</span> +<span id="L8675" class="LineNr"> 8675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8676" class="LineNr"> 8676 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8677" class="LineNr"> 8677 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8678" class="LineNr"> 8678 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8679" class="LineNr"> 8679 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: +<span id="L8680" class="LineNr"> 8680 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L8681" class="LineNr"> 8681 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L8682" class="LineNr"> 8682 </span> 89/<- %edx 0/r32/eax +<span id="L8683" class="LineNr"> 8683 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L8684" class="LineNr"> 8684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8685" class="LineNr"> 8685 </span> 89/<- %ebx 0/r32/eax +<span id="L8686" class="LineNr"> 8686 </span> <span class="subxComment"># check v->name</span> +<span id="L8687" class="LineNr"> 8687 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8688" class="LineNr"> 8688 </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#L8641'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> +<span id="L8689" class="LineNr"> 8689 </span> <span class="subxComment"># check v->type</span> +<span id="L8690" class="LineNr"> 8690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8691" class="LineNr"> 8691 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8692" class="LineNr"> 8692 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8693" class="LineNr"> 8693 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8694" class="LineNr"> 8694 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: +<span id="L8695" class="LineNr"> 8695 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L8696" class="LineNr"> 8696 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L8697" class="LineNr"> 8697 </span> 89/<- %edx 0/r32/eax +<span id="L8698" class="LineNr"> 8698 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L8699" class="LineNr"> 8699 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8700" class="LineNr"> 8700 </span> 89/<- %ebx 0/r32/eax +<span id="L8701" class="LineNr"> 8701 </span> <span class="subxComment"># check v->name</span> +<span id="L8702" class="LineNr"> 8702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8703" class="LineNr"> 8703 </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#L8641'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> +<span id="L8704" class="LineNr"> 8704 </span> <span class="subxComment"># check v->type</span> +<span id="L8705" class="LineNr"> 8705 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8706" class="LineNr"> 8706 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8707" class="LineNr"> 8707 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8708" class="LineNr"> 8708 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8641'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8709" class="LineNr"> 8709 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8710" class="LineNr"> 8710 </span> 89/<- %esp 5/r32/ebp +<span id="L8711" class="LineNr"> 8711 </span> 5d/pop-to-ebp +<span id="L8712" class="LineNr"> 8712 </span> c3/return +<span id="L8713" class="LineNr"> 8713 </span> +<span id="L8714" class="LineNr"> 8714 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: +<span id="L8715" class="LineNr"> 8715 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8716" class="LineNr"> 8716 </span> 55/push-ebp +<span id="L8717" class="LineNr"> 8717 </span> 89/<- %ebp 4/r32/esp +<span id="L8718" class="LineNr"> 8718 </span> <span class="subxComment"># setup</span> +<span id="L8719" class="LineNr"> 8719 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L8720" class="LineNr"> 8720 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L8721" class="LineNr"> 8721 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8722" class="LineNr"> 8722 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo a: int, b: int, c: int -> x/ecx: int y/edx: int {\n"</span>) +<span id="L8723" class="LineNr"> 8723 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L8724" class="LineNr"> 8724 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span> 4/r32/esp +<span id="L8725" class="LineNr"> 8725 </span> 89/<- %ecx 4/r32/esp +<span id="L8726" class="LineNr"> 8726 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L274'>Function-size</a></span>) +<span id="L8727" class="LineNr"> 8727 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L8728" class="LineNr"> 8728 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L8729" class="LineNr"> 8729 </span> 68/push 0xc0/imm32/size +<span id="L8730" class="LineNr"> 8730 </span> 68/push 0/imm32/top +<span id="L8731" class="LineNr"> 8731 </span> 89/<- %ebx 4/r32/esp +<span id="L8732" class="LineNr"> 8732 </span> <span class="subxComment"># convert</span> +<span id="L8733" class="LineNr"> 8733 </span> (<a href='mu.subx.html#L8201'>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="L8734" class="LineNr"> 8734 </span> <span class="subxComment"># check result->name</span> +<span id="L8735" class="LineNr"> 8735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L8736" class="LineNr"> 8736 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) +<span id="L8737" class="LineNr"> 8737 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L8738" class="LineNr"> 8738 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L8739" class="LineNr"> 8739 </span> 89/<- %edx 0/r32/eax +<span id="L8740" class="LineNr"> 8740 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: +<span id="L8741" class="LineNr"> 8741 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L8742" class="LineNr"> 8742 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8743" class="LineNr"> 8743 </span> 89/<- %ebx 0/r32/eax +<span id="L8744" class="LineNr"> 8744 </span> <span class="subxComment"># check v->name</span> +<span id="L8745" class="LineNr"> 8745 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8746" class="LineNr"> 8746 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) +<span id="L8747" class="LineNr"> 8747 </span> <span class="subxComment"># check v->type</span> +<span id="L8748" class="LineNr"> 8748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8749" class="LineNr"> 8749 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8750" class="LineNr"> 8750 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8751" class="LineNr"> 8751 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8752" class="LineNr"> 8752 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: +<span id="L8753" class="LineNr"> 8753 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L8754" class="LineNr"> 8754 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L8755" class="LineNr"> 8755 </span> 89/<- %edx 0/r32/eax +<span id="L8756" class="LineNr"> 8756 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L8757" class="LineNr"> 8757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8758" class="LineNr"> 8758 </span> 89/<- %ebx 0/r32/eax +<span id="L8759" class="LineNr"> 8759 </span> <span class="subxComment"># check v->name</span> +<span id="L8760" class="LineNr"> 8760 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8761" class="LineNr"> 8761 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) +<span id="L8762" class="LineNr"> 8762 </span> <span class="subxComment"># check v->type</span> +<span id="L8763" class="LineNr"> 8763 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8764" class="LineNr"> 8764 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8765" class="LineNr"> 8765 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8766" class="LineNr"> 8766 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8767" class="LineNr"> 8767 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: +<span id="L8768" class="LineNr"> 8768 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L8769" class="LineNr"> 8769 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L8770" class="LineNr"> 8770 </span> 89/<- %edx 0/r32/eax +<span id="L8771" class="LineNr"> 8771 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L8772" class="LineNr"> 8772 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8773" class="LineNr"> 8773 </span> 89/<- %ebx 0/r32/eax +<span id="L8774" class="LineNr"> 8774 </span> <span class="subxComment"># check v->name</span> +<span id="L8775" class="LineNr"> 8775 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8776" class="LineNr"> 8776 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) +<span id="L8777" class="LineNr"> 8777 </span> <span class="subxComment"># check v->type</span> +<span id="L8778" class="LineNr"> 8778 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8779" class="LineNr"> 8779 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8780" class="LineNr"> 8780 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8781" class="LineNr"> 8781 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8782" class="LineNr"> 8782 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: +<span id="L8783" class="LineNr"> 8783 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> +<span id="L8784" class="LineNr"> 8784 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L8785" class="LineNr"> 8785 </span> 89/<- %edx 0/r32/eax +<span id="L8786" class="LineNr"> 8786 </span> <span class="subxComment"># v = lookup(outputs->value)</span> +<span id="L8787" class="LineNr"> 8787 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8788" class="LineNr"> 8788 </span> 89/<- %ebx 0/r32/eax +<span id="L8789" class="LineNr"> 8789 </span> <span class="subxComment"># check v->name</span> +<span id="L8790" class="LineNr"> 8790 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8791" class="LineNr"> 8791 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) +<span id="L8792" class="LineNr"> 8792 </span> <span class="subxComment"># check v->register</span> +<span id="L8793" class="LineNr"> 8793 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L8794" class="LineNr"> 8794 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) +<span id="L8795" class="LineNr"> 8795 </span> <span class="subxComment"># check v->type</span> +<span id="L8796" class="LineNr"> 8796 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8797" class="LineNr"> 8797 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8798" class="LineNr"> 8798 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8799" class="LineNr"> 8799 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8800" class="LineNr"> 8800 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: +<span id="L8801" class="LineNr"> 8801 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L8802" class="LineNr"> 8802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L8803" class="LineNr"> 8803 </span> 89/<- %edx 0/r32/eax +<span id="L8804" class="LineNr"> 8804 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L8805" class="LineNr"> 8805 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L8806" class="LineNr"> 8806 </span> 89/<- %ebx 0/r32/eax +<span id="L8807" class="LineNr"> 8807 </span> <span class="subxComment"># check v->name</span> +<span id="L8808" class="LineNr"> 8808 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L8809" class="LineNr"> 8809 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"y"</span> <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) +<span id="L8810" class="LineNr"> 8810 </span> <span class="subxComment"># check v->register</span> +<span id="L8811" class="LineNr"> 8811 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L8812" class="LineNr"> 8812 </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#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) +<span id="L8813" class="LineNr"> 8813 </span> <span class="subxComment"># check v->type</span> +<span id="L8814" class="LineNr"> 8814 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L8815" class="LineNr"> 8815 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L8816" class="LineNr"> 8816 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L8817" class="LineNr"> 8817 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L8714'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L8818" class="LineNr"> 8818 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8819" class="LineNr"> 8819 </span> 89/<- %esp 5/r32/ebp +<span id="L8820" class="LineNr"> 8820 </span> 5d/pop-to-ebp +<span id="L8821" class="LineNr"> 8821 </span> c3/return +<span id="L8822" class="LineNr"> 8822 </span> +<span id="L8823" class="LineNr"> 8823 </span><span class="subxComment"># format for variables with types</span> +<span id="L8824" class="LineNr"> 8824 </span><span class="subxComment"># x: int</span> +<span id="L8825" class="LineNr"> 8825 </span><span class="subxComment"># x: int,</span> +<span id="L8826" class="LineNr"> 8826 </span><span class="subxComment"># x/eax: int</span> +<span id="L8827" class="LineNr"> 8827 </span><span class="subxComment"># x/eax: int,</span> +<span id="L8828" class="LineNr"> 8828 </span><span class="subxComment"># ignores at most one trailing comma</span> +<span id="L8829" class="LineNr"> 8829 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L8830" class="LineNr"> 8830 </span><span class="subxFunction">parse-var-with-type</span>: <span class="subxComment"># name: (addr slice), first-line: (addr stream byte), out: (addr handle var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L8831" class="LineNr"> 8831 </span> <span class="subxComment"># pseudocode:</span> +<span id="L8832" class="LineNr"> 8832 </span> <span class="subxComment"># var s: slice</span> +<span id="L8833" class="LineNr"> 8833 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> +<span id="L8834" class="LineNr"> 8834 </span> <span class="subxComment"># abort</span> +<span id="L8835" class="LineNr"> 8835 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L8836" class="LineNr"> 8836 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> +<span id="L8837" class="LineNr"> 8837 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L8838" class="LineNr"> 8838 </span> <span class="subxComment"># ## register</span> +<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> +<span id="L8840" class="LineNr"> 8840 </span> <span class="subxComment"># if (!slice-empty?(s))</span> +<span id="L8841" class="LineNr"> 8841 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L8842" class="LineNr"> 8842 </span> <span class="subxComment"># ## type</span> +<span id="L8843" class="LineNr"> 8843 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> +<span id="L8844" class="LineNr"> 8844 </span> <span class="subxComment"># out->type = type</span> +<span id="L8845" class="LineNr"> 8845 </span> <span class="subxComment">#</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="subxS1Comment"># . save registers</span> +<span id="L8850" class="LineNr"> 8850 </span> 50/push-eax +<span id="L8851" class="LineNr"> 8851 </span> 51/push-ecx +<span id="L8852" class="LineNr"> 8852 </span> 52/push-edx +<span id="L8853" class="LineNr"> 8853 </span> 53/push-ebx +<span id="L8854" class="LineNr"> 8854 </span> 56/push-esi +<span id="L8855" class="LineNr"> 8855 </span> 57/push-edi +<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># esi = name</span> +<span id="L8857" class="LineNr"> 8857 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L8858" class="LineNr"> 8858 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> +<span id="L8859" class="LineNr"> 8859 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> +<span id="L8860" class="LineNr"> 8860 </span> 49/decrement-ecx +<span id="L8861" class="LineNr"> 8861 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L8862" class="LineNr"> 8862 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L8863" class="LineNr"> 8863 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon +<span id="L8864" class="LineNr"> 8864 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 +<span id="L8865" class="LineNr"> 8865 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L8866" class="LineNr"> 8866 </span> ff 1/subop/decrement *(esi+4) +<span id="L8867" class="LineNr"> 8867 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L8868" class="LineNr"> 8868 </span> 68/push 0/imm32/end +<span id="L8869" class="LineNr"> 8869 </span> 68/push 0/imm32/start +<span id="L8870" class="LineNr"> 8870 </span> 89/<- %ecx 4/r32/esp +<span id="L8871" class="LineNr"> 8871 </span><span class="Constant">$parse-var-with-type:parse-name</span>: +<span id="L8872" class="LineNr"> 8872 </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="L8873" class="LineNr"> 8873 </span><span class="Constant">$parse-var-with-type:create-var</span>: +<span id="L8874" class="LineNr"> 8874 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L8875" class="LineNr"> 8875 </span> (<a href='mu.subx.html#L11735'>new-var-from-slice</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) +<span id="L8876" class="LineNr"> 8876 </span> <span class="subxComment"># save out->register</span> +<span id="L8877" class="LineNr"> 8877 </span><span class="Constant">$parse-var-with-type:save-register</span>: +<span id="L8878" class="LineNr"> 8878 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> +<span id="L8879" class="LineNr"> 8879 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L8880" class="LineNr"> 8880 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L8881" class="LineNr"> 8881 </span> 89/<- %edi 0/r32/eax +<span id="L8882" class="LineNr"> 8882 </span> <span class="subxS1Comment"># . s = next-token(...)</span> +<span id="L8883" class="LineNr"> 8883 </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="L8884" class="LineNr"> 8884 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> +<span id="L8885" class="LineNr"> 8885 </span> { +<span id="L8886" class="LineNr"> 8886 </span><span class="Constant">$parse-var-with-type:write-register</span>: +<span id="L8887" class="LineNr"> 8887 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L8888" class="LineNr"> 8888 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8889" class="LineNr"> 8889 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L8890" class="LineNr"> 8890 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L8891" class="LineNr"> 8891 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L8892" class="LineNr"> 8892 </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="L8893" class="LineNr"> 8893 </span> } +<span id="L8894" class="LineNr"> 8894 </span><span class="Constant">$parse-var-with-type:save-type</span>: +<span id="L8895" class="LineNr"> 8895 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L8896" class="LineNr"> 8896 </span> (<a href='mu.subx.html#L8923'>parse-type</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L8897" class="LineNr"> 8897 </span><span class="Constant">$parse-var-with-type:end</span>: +<span id="L8898" class="LineNr"> 8898 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L8899" class="LineNr"> 8899 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8900" class="LineNr"> 8900 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L8901" class="LineNr"> 8901 </span> 5f/pop-to-edi +<span id="L8902" class="LineNr"> 8902 </span> 5e/pop-to-esi +<span id="L8903" class="LineNr"> 8903 </span> 5b/pop-to-ebx +<span id="L8904" class="LineNr"> 8904 </span> 5a/pop-to-edx +<span id="L8905" class="LineNr"> 8905 </span> 59/pop-to-ecx +<span id="L8906" class="LineNr"> 8906 </span> 58/pop-to-eax +<span id="L8907" class="LineNr"> 8907 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8908" class="LineNr"> 8908 </span> 89/<- %esp 5/r32/ebp +<span id="L8909" class="LineNr"> 8909 </span> 5d/pop-to-ebp +<span id="L8910" class="LineNr"> 8910 </span> c3/return +<span id="L8911" class="LineNr"> 8911 </span> +<span id="L8912" class="LineNr"> 8912 </span><span class="Constant">$parse-var-with-type:abort</span>: +<span id="L8913" class="LineNr"> 8913 </span> <span class="subxComment"># error("var should have form 'name: type' in '" line "'\n")</span> +<span id="L8914" class="LineNr"> 8914 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"var should have form 'name: type' in '"</span>) +<span id="L8915" class="LineNr"> 8915 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8916" class="LineNr"> 8916 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L8917" class="LineNr"> 8917 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+0xc)) +<span id="L8918" class="LineNr"> 8918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L8919" class="LineNr"> 8919 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L8920" class="LineNr"> 8920 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L8921" class="LineNr"> 8921 </span> <span class="subxComment"># never gets here</span> +<span id="L8922" class="LineNr"> 8922 </span> +<span id="L8923" class="LineNr"> 8923 </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="L8924" class="LineNr"> 8924 </span> <span class="subxComment"># pseudocode:</span> +<span id="L8925" class="LineNr"> 8925 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> +<span id="L8926" class="LineNr"> 8926 </span> <span class="subxComment"># assert s != ""</span> +<span id="L8927" class="LineNr"> 8927 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L8929" class="LineNr"> 8929 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L8930" class="LineNr"> 8930 </span> <span class="subxComment"># if s == ")"</span> +<span id="L8931" class="LineNr"> 8931 </span> <span class="subxComment"># return</span> +<span id="L8932" class="LineNr"> 8932 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L8933" class="LineNr"> 8933 </span> <span class="subxComment"># if s != "("</span> +<span id="L8934" class="LineNr"> 8934 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> +<span id="L8935" class="LineNr"> 8935 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L8936" class="LineNr"> 8936 </span> <span class="subxComment"># if (s[0] == "_")</span> +<span id="L8937" class="LineNr"> 8937 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L8938" class="LineNr"> 8938 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L8939" class="LineNr"> 8939 </span> <span class="subxComment"># else</span> +<span id="L8940" class="LineNr"> 8940 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L8941" class="LineNr"> 8941 </span> <span class="subxComment"># return</span> +<span id="L8942" class="LineNr"> 8942 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L8943" class="LineNr"> 8943 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L8944" class="LineNr"> 8944 </span> <span class="subxComment">#</span> +<span id="L8945" class="LineNr"> 8945 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8946" class="LineNr"> 8946 </span> 55/push-ebp +<span id="L8947" class="LineNr"> 8947 </span> 89/<- %ebp 4/r32/esp +<span id="L8948" class="LineNr"> 8948 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L8949" class="LineNr"> 8949 </span> 50/push-eax +<span id="L8950" class="LineNr"> 8950 </span> 51/push-ecx +<span id="L8951" class="LineNr"> 8951 </span> 52/push-edx +<span id="L8952" class="LineNr"> 8952 </span> <span class="subxComment"># clear out</span> +<span id="L8953" class="LineNr"> 8953 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L8954" class="LineNr"> 8954 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L8955" class="LineNr"> 8955 </span> 68/push 0/imm32 +<span id="L8956" class="LineNr"> 8956 </span> 68/push 0/imm32 +<span id="L8957" class="LineNr"> 8957 </span> 89/<- %ecx 4/r32/esp +<span id="L8958" class="LineNr"> 8958 </span> <span class="subxComment"># s = next-mu-token(in)</span> +<span id="L8959" class="LineNr"> 8959 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L8960" class="LineNr"> 8960 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> +<span id="L8961" class="LineNr"> 8961 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L8962" class="LineNr"> 8962 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> +<span id="L8963" class="LineNr"> 8963 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L8964" class="LineNr"> 8964 </span> <span class="subxComment"># assert s != ""</span> +<span id="L8965" class="LineNr"> 8965 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> +<span id="L8966" class="LineNr"> 8966 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8967" class="LineNr"> 8967 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L8968" class="LineNr"> 8968 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L8969" class="LineNr"> 8969 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L8970" class="LineNr"> 8970 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8971" class="LineNr"> 8971 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L8972" class="LineNr"> 8972 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L8973" class="LineNr"> 8973 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L8974" class="LineNr"> 8974 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8975" class="LineNr"> 8975 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L8976" class="LineNr"> 8976 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L8977" class="LineNr"> 8977 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L8978" class="LineNr"> 8978 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8979" class="LineNr"> 8979 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L8980" class="LineNr"> 8980 </span> <span class="subxComment"># if (s == ")") return</span> +<span id="L8981" class="LineNr"> 8981 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> +<span id="L8982" class="LineNr"> 8982 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8983" class="LineNr"> 8983 </span> 0f 85/jump-if-!= $parse-type:end/disp32 +<span id="L8984" class="LineNr"> 8984 </span> <span class="subxComment"># out = new tree</span> +<span id="L8985" class="LineNr"> 8985 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> *(ebp+0x10)) +<span id="L8986" class="LineNr"> 8986 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> +<span id="L8987" class="LineNr"> 8987 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L8988" class="LineNr"> 8988 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L8989" class="LineNr"> 8989 </span> 89/<- %edx 0/r32/eax +<span id="L8990" class="LineNr"> 8990 </span> { +<span id="L8991" class="LineNr"> 8991 </span> <span class="subxComment"># if (s != "(") break</span> +<span id="L8992" class="LineNr"> 8992 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> +<span id="L8993" class="LineNr"> 8993 </span> 3d/compare-eax-and 0/imm32/false +<span id="L8994" class="LineNr"> 8994 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L8995" class="LineNr"> 8995 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> +<span id="L8996" class="LineNr"> 8996 </span> { +<span id="L8997" class="LineNr"> 8997 </span><span class="Constant">$parse-type:check-for-int</span>: +<span id="L8998" class="LineNr"> 8998 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L8999" class="LineNr"> 8999 </span> 8b/-> *ecx 0/r32/eax +<span id="L9000" class="LineNr"> 9000 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L9001" class="LineNr"> 9001 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L9002" class="LineNr"> 9002 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> +<span id="L9003" class="LineNr"> 9003 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L9004" class="LineNr"> 9004 </span> 3d/compare-eax-and 0/imm32/false +<span id="L9005" class="LineNr"> 9005 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L9006" class="LineNr"> 9006 </span> <span class="subxComment">#</span> +<span id="L9007" class="LineNr"> 9007 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L9008" class="LineNr"> 9008 </span> 3d/compare-eax-and 0/imm32/false +<span id="L9009" class="LineNr"> 9009 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L9010" class="LineNr"> 9010 </span><span class="Constant">$parse-type:int</span>: +<span id="L9011" class="LineNr"> 9011 </span> (<a href='mu.subx.html#L11638'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L9012" class="LineNr"> 9012 </span> (<a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L9013" class="LineNr"> 9013 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> +<span id="L9014" class="LineNr"> 9014 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> +<span id="L9015" class="LineNr"> 9015 </span> e9/jump $parse-type:end/disp32 +<span id="L9016" class="LineNr"> 9016 </span> } +<span id="L9017" class="LineNr"> 9017 </span><span class="Constant">$parse-type:atom</span>: +<span id="L9018" class="LineNr"> 9018 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L9019" class="LineNr"> 9019 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9020" class="LineNr"> 9020 </span> { +<span id="L9021" class="LineNr"> 9021 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: +<span id="L9022" class="LineNr"> 9022 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L9023" class="LineNr"> 9023 </span> 8b/-> *ecx 0/r32/eax +<span id="L9024" class="LineNr"> 9024 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L9025" class="LineNr"> 9025 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L9026" class="LineNr"> 9026 </span> <span class="subxComment"># if (tmp != '_') break</span> +<span id="L9027" class="LineNr"> 9027 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L9028" class="LineNr"> 9028 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9029" class="LineNr"> 9029 </span><span class="Constant">$parse-type:type-parameter</span>: +<span id="L9030" class="LineNr"> 9030 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L9031" class="LineNr"> 9031 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L9032" class="LineNr"> 9032 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L9033" class="LineNr"> 9033 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> +<span id="L9034" class="LineNr"> 9034 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) +<span id="L9035" class="LineNr"> 9035 </span> e9/jump $parse-type:end/disp32 +<span id="L9036" class="LineNr"> 9036 </span> } +<span id="L9037" class="LineNr"> 9037 </span><span class="Constant">$parse-type:non-type-parameter</span>: +<span id="L9038" class="LineNr"> 9038 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L9039" class="LineNr"> 9039 </span> (<a href='mu.subx.html#L9295'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> %ecx) <span class="subxComment"># => eax</span> +<span id="L9040" class="LineNr"> 9040 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L9041" class="LineNr"> 9041 </span> e9/jump $parse-type:end/disp32 +<span id="L9042" class="LineNr"> 9042 </span> } +<span id="L9043" class="LineNr"> 9043 </span><span class="Constant">$parse-type:non-atom</span>: +<span id="L9044" class="LineNr"> 9044 </span> <span class="subxComment"># otherwise s == "("</span> +<span id="L9045" class="LineNr"> 9045 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L9046" class="LineNr"> 9046 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L9047" class="LineNr"> 9047 </span> (<a href='mu.subx.html#L8923'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L9049" class="LineNr"> 9049 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L9050" class="LineNr"> 9050 </span> (<a href='mu.subx.html#L9072'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L9051" class="LineNr"> 9051 </span><span class="Constant">$parse-type:end</span>: +<span id="L9052" class="LineNr"> 9052 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L9053" class="LineNr"> 9053 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9054" class="LineNr"> 9054 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L9055" class="LineNr"> 9055 </span> 5a/pop-to-edx +<span id="L9056" class="LineNr"> 9056 </span> 59/pop-to-ecx +<span id="L9057" class="LineNr"> 9057 </span> 58/pop-to-eax +<span id="L9058" class="LineNr"> 9058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9059" class="LineNr"> 9059 </span> 89/<- %esp 5/r32/ebp +<span id="L9060" class="LineNr"> 9060 </span> 5d/pop-to-ebp +<span id="L9061" class="LineNr"> 9061 </span> c3/return +<span id="L9062" class="LineNr"> 9062 </span> +<span id="L9063" class="LineNr"> 9063 </span><span class="Constant">$parse-type:abort</span>: +<span id="L9064" class="LineNr"> 9064 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> +<span id="L9065" class="LineNr"> 9065 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) +<span id="L9066" class="LineNr"> 9066 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L9067" class="LineNr"> 9067 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L9068" class="LineNr"> 9068 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L9069" class="LineNr"> 9069 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L9070" class="LineNr"> 9070 </span> <span class="subxComment"># never gets here</span> +<span id="L9071" class="LineNr"> 9071 </span> +<span id="L9072" class="LineNr"> 9072 </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="L9073" class="LineNr"> 9073 </span> <span class="subxComment"># pseudocode:</span> +<span id="L9074" class="LineNr"> 9074 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> +<span id="L9075" class="LineNr"> 9075 </span> <span class="subxComment"># if tmp == 0</span> +<span id="L9076" class="LineNr"> 9076 </span> <span class="subxComment"># return 0</span> +<span id="L9077" class="LineNr"> 9077 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L9078" class="LineNr"> 9078 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L9079" class="LineNr"> 9079 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L9080" class="LineNr"> 9080 </span> <span class="subxComment">#</span> +<span id="L9081" class="LineNr"> 9081 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9082" class="LineNr"> 9082 </span> 55/push-ebp +<span id="L9083" class="LineNr"> 9083 </span> 89/<- %ebp 4/r32/esp +<span id="L9084" class="LineNr"> 9084 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L9085" class="LineNr"> 9085 </span> 50/push-eax +<span id="L9086" class="LineNr"> 9086 </span> 51/push-ecx +<span id="L9087" class="LineNr"> 9087 </span> 52/push-edx +<span id="L9088" class="LineNr"> 9088 </span> <span class="subxComment">#</span> +<span id="L9089" class="LineNr"> 9089 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L9090" class="LineNr"> 9090 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L9091" class="LineNr"> 9091 </span> 68/push 0/imm32 +<span id="L9092" class="LineNr"> 9092 </span> 68/push 0/imm32 +<span id="L9093" class="LineNr"> 9093 </span> 89/<- %ecx 4/r32/esp +<span id="L9094" class="LineNr"> 9094 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> +<span id="L9095" class="LineNr"> 9095 </span> (<a href='mu.subx.html#L8923'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L9096" class="LineNr"> 9096 </span> <span class="subxComment"># if (tmp == 0) return</span> +<span id="L9097" class="LineNr"> 9097 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L9098" class="LineNr"> 9098 </span> 74/jump-if-= $parse-type-tree:end/disp8 +<span id="L9099" class="LineNr"> 9099 </span> <span class="subxComment"># out = new tree</span> +<span id="L9100" class="LineNr"> 9100 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> *(ebp+0x10)) +<span id="L9101" class="LineNr"> 9101 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> +<span id="L9102" class="LineNr"> 9102 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L9103" class="LineNr"> 9103 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9104" class="LineNr"> 9104 </span> 89/<- %edx 0/r32/eax +<span id="L9105" class="LineNr"> 9105 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L9106" class="LineNr"> 9106 </span> 8b/-> *ecx 0/r32/eax +<span id="L9107" class="LineNr"> 9107 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L9108" class="LineNr"> 9108 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L9109" class="LineNr"> 9109 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L9110" class="LineNr"> 9110 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L9111" class="LineNr"> 9111 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L9112" class="LineNr"> 9112 </span> (<a href='mu.subx.html#L9072'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L9113" class="LineNr"> 9113 </span><span class="Constant">$parse-type-tree:end</span>: +<span id="L9114" class="LineNr"> 9114 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L9115" class="LineNr"> 9115 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9116" class="LineNr"> 9116 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L9117" class="LineNr"> 9117 </span> 5a/pop-to-edx +<span id="L9118" class="LineNr"> 9118 </span> 59/pop-to-ecx +<span id="L9119" class="LineNr"> 9119 </span> 58/pop-to-eax +<span id="L9120" class="LineNr"> 9120 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9121" class="LineNr"> 9121 </span> 89/<- %esp 5/r32/ebp +<span id="L9122" class="LineNr"> 9122 </span> 5d/pop-to-ebp +<span id="L9123" class="LineNr"> 9123 </span> c3/return +<span id="L9124" class="LineNr"> 9124 </span> +<span id="L9125" class="LineNr"> 9125 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> +<span id="L9126" class="LineNr"> 9126 </span> <span class="subxComment"># pseudocode:</span> +<span id="L9127" class="LineNr"> 9127 </span> <span class="subxComment"># start:</span> +<span id="L9128" class="LineNr"> 9128 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> +<span id="L9129" class="LineNr"> 9129 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> +<span id="L9130" class="LineNr"> 9130 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L9131" class="LineNr"> 9131 </span> <span class="subxComment"># return</span> +<span id="L9132" class="LineNr"> 9132 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L9133" class="LineNr"> 9133 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L9134" class="LineNr"> 9134 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> +<span id="L9135" class="LineNr"> 9135 </span> <span class="subxComment"># ++in->read</span> +<span id="L9136" class="LineNr"> 9136 </span> <span class="subxComment"># goto start</span> +<span id="L9137" class="LineNr"> 9137 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> +<span id="L9138" class="LineNr"> 9138 </span> <span class="subxComment"># goto done # treat as eof</span> +<span id="L9139" class="LineNr"> 9139 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> +<span id="L9140" class="LineNr"> 9140 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L9141" class="LineNr"> 9141 </span> <span class="subxComment"># goto done # no metadata</span> +<span id="L9142" class="LineNr"> 9142 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L9143" class="LineNr"> 9143 </span> <span class="subxComment"># ++in->read</span> +<span id="L9144" class="LineNr"> 9144 </span> <span class="subxComment"># goto done</span> +<span id="L9145" class="LineNr"> 9145 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L9146" class="LineNr"> 9146 </span> <span class="subxComment"># ++in->read</span> +<span id="L9147" class="LineNr"> 9147 </span> <span class="subxComment"># goto done</span> +<span id="L9148" class="LineNr"> 9148 </span> <span class="subxComment"># # read a word</span> +<span id="L9149" class="LineNr"> 9149 </span> <span class="subxComment"># while true</span> +<span id="L9150" class="LineNr"> 9150 </span> <span class="subxComment"># if in->read >= in->write</span> +<span id="L9151" class="LineNr"> 9151 </span> <span class="subxComment"># break</span> +<span id="L9152" class="LineNr"> 9152 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> +<span id="L9153" class="LineNr"> 9153 </span> <span class="subxComment"># if curr-byte == ' '</span> +<span id="L9154" class="LineNr"> 9154 </span> <span class="subxComment"># break</span> +<span id="L9155" class="LineNr"> 9155 </span> <span class="subxComment"># if curr-byte == '\r'</span> +<span id="L9156" class="LineNr"> 9156 </span> <span class="subxComment"># break</span> +<span id="L9157" class="LineNr"> 9157 </span> <span class="subxComment"># if curr-byte == '\n'</span> +<span id="L9158" class="LineNr"> 9158 </span> <span class="subxComment"># break</span> +<span id="L9159" class="LineNr"> 9159 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L9160" class="LineNr"> 9160 </span> <span class="subxComment"># break</span> +<span id="L9161" class="LineNr"> 9161 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L9162" class="LineNr"> 9162 </span> <span class="subxComment"># break</span> +<span id="L9163" class="LineNr"> 9163 </span> <span class="subxComment"># if curr-byte == ','</span> +<span id="L9164" class="LineNr"> 9164 </span> <span class="subxComment"># break</span> +<span id="L9165" class="LineNr"> 9165 </span> <span class="subxComment"># ++in->read</span> +<span id="L9166" class="LineNr"> 9166 </span> <span class="subxComment"># done:</span> +<span id="L9167" class="LineNr"> 9167 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L9168" class="LineNr"> 9168 </span> <span class="subxComment">#</span> +<span id="L9169" class="LineNr"> 9169 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9170" class="LineNr"> 9170 </span> 55/push-ebp +<span id="L9171" class="LineNr"> 9171 </span> 89/<- %ebp 4/r32/esp +<span id="L9172" class="LineNr"> 9172 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L9173" class="LineNr"> 9173 </span> 50/push-eax +<span id="L9174" class="LineNr"> 9174 </span> 51/push-ecx +<span id="L9175" class="LineNr"> 9175 </span> 56/push-esi +<span id="L9176" class="LineNr"> 9176 </span> 57/push-edi +<span id="L9177" class="LineNr"> 9177 </span> <span class="subxComment"># esi = in</span> +<span id="L9178" class="LineNr"> 9178 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L9179" class="LineNr"> 9179 </span> <span class="subxComment"># edi = out</span> +<span id="L9180" class="LineNr"> 9180 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L9181" class="LineNr"> 9181 </span><span class="Constant">$next-mu-token:start</span>: +<span id="L9182" class="LineNr"> 9182 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) +<span id="L9183" class="LineNr"> 9183 </span><span class="Constant">$next-mu-token:check0</span>: +<span id="L9184" class="LineNr"> 9184 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> +<span id="L9185" class="LineNr"> 9185 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L9186" class="LineNr"> 9186 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L9187" class="LineNr"> 9187 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> +<span id="L9188" class="LineNr"> 9188 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L9189" class="LineNr"> 9189 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L9190" class="LineNr"> 9190 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L9191" class="LineNr"> 9191 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 +<span id="L9192" class="LineNr"> 9192 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L9193" class="LineNr"> 9193 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L9194" class="LineNr"> 9194 </span> 89/<- *edi 0/r32/eax +<span id="L9195" class="LineNr"> 9195 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L9196" class="LineNr"> 9196 </span> 31/xor-with %eax 0/r32/eax +<span id="L9197" class="LineNr"> 9197 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L9198" class="LineNr"> 9198 </span> { +<span id="L9199" class="LineNr"> 9199 </span><span class="Constant">$next-mu-token:check-for-comma</span>: +<span id="L9200" class="LineNr"> 9200 </span> <span class="subxComment"># if (curr-byte != ',') break</span> +<span id="L9201" class="LineNr"> 9201 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L9202" class="LineNr"> 9202 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9203" class="LineNr"> 9203 </span> <span class="subxComment"># ++in->read</span> +<span id="L9204" class="LineNr"> 9204 </span> ff 0/subop/increment *(esi+4) +<span id="L9205" class="LineNr"> 9205 </span> <span class="subxComment"># restart</span> +<span id="L9206" class="LineNr"> 9206 </span> e9/jump $next-mu-token:start/disp32 +<span id="L9207" class="LineNr"> 9207 </span> } +<span id="L9208" class="LineNr"> 9208 </span> { +<span id="L9209" class="LineNr"> 9209 </span><span class="Constant">$next-mu-token:check-for-comment</span>: +<span id="L9210" class="LineNr"> 9210 </span> <span class="subxComment"># if (curr-byte != '#') break</span> +<span id="L9211" class="LineNr"> 9211 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L9212" class="LineNr"> 9212 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9213" class="LineNr"> 9213 </span> <span class="subxComment"># return eof</span> +<span id="L9214" class="LineNr"> 9214 </span> e9/jump $next-mu-token:done/disp32 +<span id="L9215" class="LineNr"> 9215 </span> } +<span id="L9216" class="LineNr"> 9216 </span> { +<span id="L9217" class="LineNr"> 9217 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: +<span id="L9218" class="LineNr"> 9218 </span> <span class="subxComment"># if (curr-byte != '"') break</span> +<span id="L9219" class="LineNr"> 9219 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L9220" class="LineNr"> 9220 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9221" class="LineNr"> 9221 </span> (<a href='../124next-token.subx.html#L1171'>skip-string</a> %esi) +<span id="L9222" class="LineNr"> 9222 </span> <span class="subxComment"># return</span> +<span id="L9223" class="LineNr"> 9223 </span> e9/jump $next-mu-token:done/disp32 +<span id="L9224" class="LineNr"> 9224 </span> } +<span id="L9225" class="LineNr"> 9225 </span> { +<span id="L9226" class="LineNr"> 9226 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: +<span id="L9227" class="LineNr"> 9227 </span> <span class="subxComment"># if (curr-byte != '(') break</span> +<span id="L9228" class="LineNr"> 9228 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L9229" class="LineNr"> 9229 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9230" class="LineNr"> 9230 </span> <span class="subxComment"># ++in->read</span> +<span id="L9231" class="LineNr"> 9231 </span> ff 0/subop/increment *(esi+4) +<span id="L9232" class="LineNr"> 9232 </span> <span class="subxComment"># return</span> +<span id="L9233" class="LineNr"> 9233 </span> e9/jump $next-mu-token:done/disp32 +<span id="L9234" class="LineNr"> 9234 </span> } +<span id="L9235" class="LineNr"> 9235 </span> { +<span id="L9236" class="LineNr"> 9236 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: +<span id="L9237" class="LineNr"> 9237 </span> <span class="subxComment"># if (curr-byte != ')') break</span> +<span id="L9238" class="LineNr"> 9238 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L9239" class="LineNr"> 9239 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9240" class="LineNr"> 9240 </span> <span class="subxComment"># ++in->read</span> +<span id="L9241" class="LineNr"> 9241 </span> ff 0/subop/increment *(esi+4) +<span id="L9242" class="LineNr"> 9242 </span> <span class="subxComment"># return</span> +<span id="L9243" class="LineNr"> 9243 </span> e9/jump $next-mu-token:done/disp32 +<span id="L9244" class="LineNr"> 9244 </span> } +<span id="L9245" class="LineNr"> 9245 </span> { +<span id="L9246" class="LineNr"> 9246 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: +<span id="L9247" class="LineNr"> 9247 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L9248" class="LineNr"> 9248 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L9249" class="LineNr"> 9249 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L9250" class="LineNr"> 9250 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> +<span id="L9251" class="LineNr"> 9251 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L9252" class="LineNr"> 9252 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L9253" class="LineNr"> 9253 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> +<span id="L9254" class="LineNr"> 9254 </span> 31/xor-with %eax 0/r32/eax +<span id="L9255" class="LineNr"> 9255 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L9256" class="LineNr"> 9256 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L9257" class="LineNr"> 9257 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L9258" class="LineNr"> 9258 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L9259" class="LineNr"> 9259 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L9260" class="LineNr"> 9260 </span> 3d/compare-eax-and 0xd/imm32/carriage-return +<span id="L9261" class="LineNr"> 9261 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L9262" class="LineNr"> 9262 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L9263" class="LineNr"> 9263 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L9264" class="LineNr"> 9264 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L9265" class="LineNr"> 9265 </span> <span class="subxComment"># if (c == '(') break</span> +<span id="L9266" class="LineNr"> 9266 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L9267" class="LineNr"> 9267 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L9268" class="LineNr"> 9268 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L9269" class="LineNr"> 9269 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L9270" class="LineNr"> 9270 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L9271" class="LineNr"> 9271 </span> <span class="subxComment"># if (c == ',') break</span> +<span id="L9272" class="LineNr"> 9272 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L9273" class="LineNr"> 9273 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L9274" class="LineNr"> 9274 </span> <span class="subxComment"># ++in->read</span> +<span id="L9275" class="LineNr"> 9275 </span> ff 0/subop/increment *(esi+4) +<span id="L9276" class="LineNr"> 9276 </span> <span class="subxComment">#</span> +<span id="L9277" class="LineNr"> 9277 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L9278" class="LineNr"> 9278 </span> } +<span id="L9279" class="LineNr"> 9279 </span><span class="Constant">$next-mu-token:done</span>: +<span id="L9280" class="LineNr"> 9280 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L9281" class="LineNr"> 9281 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L9282" class="LineNr"> 9282 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L9283" class="LineNr"> 9283 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L9284" class="LineNr"> 9284 </span><span class="Constant">$next-mu-token:end</span>: +<span id="L9285" class="LineNr"> 9285 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L9286" class="LineNr"> 9286 </span> 5f/pop-to-edi +<span id="L9287" class="LineNr"> 9287 </span> 5e/pop-to-esi +<span id="L9288" class="LineNr"> 9288 </span> 59/pop-to-ecx +<span id="L9289" class="LineNr"> 9289 </span> 58/pop-to-eax +<span id="L9290" class="LineNr"> 9290 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9291" class="LineNr"> 9291 </span> 89/<- %esp 5/r32/ebp +<span id="L9292" class="LineNr"> 9292 </span> 5d/pop-to-ebp +<span id="L9293" class="LineNr"> 9293 </span> c3/return +<span id="L9294" class="LineNr"> 9294 </span> +<span id="L9295" class="LineNr"> 9295 </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="L9296" class="LineNr"> 9296 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9297" class="LineNr"> 9297 </span> 55/push-ebp +<span id="L9298" class="LineNr"> 9298 </span> 89/<- %ebp 4/r32/esp +<span id="L9299" class="LineNr"> 9299 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> +<span id="L9300" class="LineNr"> 9300 </span> (<a href='mu.subx.html#L9323'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L9301" class="LineNr"> 9301 </span> 3d/compare-eax-and -1/imm32 +<span id="L9302" class="LineNr"> 9302 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 +<span id="L9303" class="LineNr"> 9303 </span><span class="Constant">$pos-or-insert-slice:insert</span>: +<span id="L9304" class="LineNr"> 9304 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> +<span id="L9305" class="LineNr"> 9305 </span> 68/push 0/imm32 +<span id="L9306" class="LineNr"> 9306 </span> 68/push 0/imm32 +<span id="L9307" class="LineNr"> 9307 </span> 89/<- %eax 4/r32/esp +<span id="L9308" class="LineNr"> 9308 </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="L9309" class="LineNr"> 9309 </span> <span class="subxComment"># throw away alloc-id</span> +<span id="L9310" class="LineNr"> 9310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L9311" class="LineNr"> 9311 </span> (<a href='../202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) +<span id="L9312" class="LineNr"> 9312 </span> (<a href='mu.subx.html#L9323'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L9313" class="LineNr"> 9313 </span><span class="Constant">$pos-or-insert-slice:end</span>: +<span id="L9314" class="LineNr"> 9314 </span> <span class="subxS1Comment"># . reclaim locals</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> 89/<- %esp 5/r32/ebp +<span id="L9318" class="LineNr"> 9318 </span> 5d/pop-to-ebp +<span id="L9319" class="LineNr"> 9319 </span> c3/return +<span id="L9320" class="LineNr"> 9320 </span> +<span id="L9321" class="LineNr"> 9321 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> +<span id="L9322" class="LineNr"> 9322 </span><span class="subxComment"># index is denominated in elements, not bytes</span> +<span id="L9323" class="LineNr"> 9323 </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="L9324" class="LineNr"> 9324 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9325" class="LineNr"> 9325 </span> 55/push-ebp +<span id="L9326" class="LineNr"> 9326 </span> 89/<- %ebp 4/r32/esp +<span id="L9327" class="LineNr"> 9327 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L9328" class="LineNr"> 9328 </span> 51/push-ecx +<span id="L9329" class="LineNr"> 9329 </span> 52/push-edx +<span id="L9330" class="LineNr"> 9330 </span> 53/push-ebx +<span id="L9331" class="LineNr"> 9331 </span> 56/push-esi +<span id="L9332" class="LineNr"> 9332 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> +<span id="L9333" class="LineNr"> 9333 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L9334" class="LineNr"> 9334 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L9335" class="LineNr"> 9335 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L9336" class="LineNr"> 9336 </span> <span class="subxComment"># esi = arr</span> +<span id="L9337" class="LineNr"> 9337 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L9338" class="LineNr"> 9338 </span> <span class="subxComment"># var index/ecx: int = 0</span> +<span id="L9339" class="LineNr"> 9339 </span> b9/copy-to-ecx 0/imm32 +<span id="L9340" class="LineNr"> 9340 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> +<span id="L9341" class="LineNr"> 9341 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L9342" class="LineNr"> 9342 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> +<span id="L9343" class="LineNr"> 9343 </span> 8b/-> *esi 3/r32/ebx +<span id="L9344" class="LineNr"> 9344 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx +<span id="L9345" class="LineNr"> 9345 </span> { +<span id="L9346" class="LineNr"> 9346 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L9347" class="LineNr"> 9347 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L9348" class="LineNr"> 9348 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L9349" class="LineNr"> 9349 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L9350" class="LineNr"> 9350 </span> <span class="subxComment"># if (curr >= max) return -1</span> +<span id="L9351" class="LineNr"> 9351 </span> 39/compare %edx 3/r32/ebx +<span id="L9352" class="LineNr"> 9352 </span> b8/copy-to-eax -1/imm32 +<span id="L9353" class="LineNr"> 9353 </span> 73/jump-if-addr>= $pos-slice:end/disp8 +<span id="L9354" class="LineNr"> 9354 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> +<span id="L9355" class="LineNr"> 9355 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> +<span id="L9356" class="LineNr"> 9356 </span> 3d/compare-eax-and 0/imm32/false +<span id="L9357" class="LineNr"> 9357 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L9358" class="LineNr"> 9358 </span> <span class="subxComment"># ++index</span> +<span id="L9359" class="LineNr"> 9359 </span> 41/increment-ecx +<span id="L9360" class="LineNr"> 9360 </span> <span class="subxComment"># curr += 4</span> +<span id="L9361" class="LineNr"> 9361 </span> 81 0/subop/add %edx 4/imm32 +<span id="L9362" class="LineNr"> 9362 </span> <span class="subxComment">#</span> +<span id="L9363" class="LineNr"> 9363 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L9364" class="LineNr"> 9364 </span> } +<span id="L9365" class="LineNr"> 9365 </span> <span class="subxComment"># return index</span> +<span id="L9366" class="LineNr"> 9366 </span> 89/<- %eax 1/r32/ecx +<span id="L9367" class="LineNr"> 9367 </span><span class="Constant">$pos-slice:end</span>: +<span id="L9368" class="LineNr"> 9368 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L9369" class="LineNr"> 9369 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L9370" class="LineNr"> 9370 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L9371" class="LineNr"> 9371 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L9372" class="LineNr"> 9372 </span> 5e/pop-to-esi +<span id="L9373" class="LineNr"> 9373 </span> 5b/pop-to-ebx +<span id="L9374" class="LineNr"> 9374 </span> 5a/pop-to-edx +<span id="L9375" class="LineNr"> 9375 </span> 59/pop-to-ecx +<span id="L9376" class="LineNr"> 9376 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9377" class="LineNr"> 9377 </span> 89/<- %esp 5/r32/ebp +<span id="L9378" class="LineNr"> 9378 </span> 5d/pop-to-ebp +<span id="L9379" class="LineNr"> 9379 </span> c3/return +<span id="L9380" class="LineNr"> 9380 </span> +<span id="L9381" class="LineNr"> 9381 </span><span class="subxTest">test-parse-var-with-type</span>: +<span id="L9382" class="LineNr"> 9382 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9383" class="LineNr"> 9383 </span> 55/push-ebp +<span id="L9384" class="LineNr"> 9384 </span> 89/<- %ebp 4/r32/esp +<span id="L9385" class="LineNr"> 9385 </span> <span class="subxComment"># setup</span> +<span id="L9386" class="LineNr"> 9386 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L9387" class="LineNr"> 9387 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L9388" class="LineNr"> 9388 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L9389" class="LineNr"> 9389 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L9390" class="LineNr"> 9390 </span> 8b/-> *eax 1/r32/ecx +<span id="L9391" class="LineNr"> 9391 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9392" class="LineNr"> 9392 </span> 05/add-to-eax 4/imm32 +<span id="L9393" class="LineNr"> 9393 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9394" class="LineNr"> 9394 </span> 51/push-ecx +<span id="L9395" class="LineNr"> 9395 </span> 50/push-eax +<span id="L9396" class="LineNr"> 9396 </span> 89/<- %ecx 4/r32/esp +<span id="L9397" class="LineNr"> 9397 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L9398" class="LineNr"> 9398 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9399" class="LineNr"> 9399 </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="L9400" class="LineNr"> 9400 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L9401" class="LineNr"> 9401 </span> 68/push 0/imm32 +<span id="L9402" class="LineNr"> 9402 </span> 68/push 0/imm32 +<span id="L9403" class="LineNr"> 9403 </span> 89/<- %edx 4/r32/esp +<span id="L9404" class="LineNr"> 9404 </span> <span class="subxComment">#</span> +<span id="L9405" class="LineNr"> 9405 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9406" class="LineNr"> 9406 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L9407" class="LineNr"> 9407 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9408" class="LineNr"> 9408 </span> 89/<- %edx 0/r32/eax +<span id="L9409" class="LineNr"> 9409 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L9410" class="LineNr"> 9410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L9411" class="LineNr"> 9411 </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#L9381'>test-parse-var-with-type</a>/name"</span>) +<span id="L9412" class="LineNr"> 9412 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L9413" class="LineNr"> 9413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L9414" class="LineNr"> 9414 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9381'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9415" class="LineNr"> 9415 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9381'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L9416" class="LineNr"> 9416 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9381'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L9417" class="LineNr"> 9417 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9418" class="LineNr"> 9418 </span> 89/<- %esp 5/r32/ebp +<span id="L9419" class="LineNr"> 9419 </span> 5d/pop-to-ebp +<span id="L9420" class="LineNr"> 9420 </span> c3/return +<span id="L9421" class="LineNr"> 9421 </span> +<span id="L9422" class="LineNr"> 9422 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: +<span id="L9423" class="LineNr"> 9423 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9424" class="LineNr"> 9424 </span> 55/push-ebp +<span id="L9425" class="LineNr"> 9425 </span> 89/<- %ebp 4/r32/esp +<span id="L9426" class="LineNr"> 9426 </span> <span class="subxComment"># setup</span> +<span id="L9427" class="LineNr"> 9427 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L9428" class="LineNr"> 9428 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L9429" class="LineNr"> 9429 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L9430" class="LineNr"> 9430 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L9431" class="LineNr"> 9431 </span> 8b/-> *eax 1/r32/ecx +<span id="L9432" class="LineNr"> 9432 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9433" class="LineNr"> 9433 </span> 05/add-to-eax 4/imm32 +<span id="L9434" class="LineNr"> 9434 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9435" class="LineNr"> 9435 </span> 51/push-ecx +<span id="L9436" class="LineNr"> 9436 </span> 50/push-eax +<span id="L9437" class="LineNr"> 9437 </span> 89/<- %ecx 4/r32/esp +<span id="L9438" class="LineNr"> 9438 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L9439" class="LineNr"> 9439 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9440" class="LineNr"> 9440 </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="L9441" class="LineNr"> 9441 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L9442" class="LineNr"> 9442 </span> 68/push 0/imm32 +<span id="L9443" class="LineNr"> 9443 </span> 68/push 0/imm32 +<span id="L9444" class="LineNr"> 9444 </span> 89/<- %edx 4/r32/esp +<span id="L9445" class="LineNr"> 9445 </span> <span class="subxComment">#</span> +<span id="L9446" class="LineNr"> 9446 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9447" class="LineNr"> 9447 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L9448" class="LineNr"> 9448 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9449" class="LineNr"> 9449 </span> 89/<- %edx 0/r32/eax +<span id="L9450" class="LineNr"> 9450 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L9451" class="LineNr"> 9451 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L9452" class="LineNr"> 9452 </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#L9422'>test-parse-var-with-type-and-register</a>/name"</span>) +<span id="L9453" class="LineNr"> 9453 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L9454" class="LineNr"> 9454 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L9455" class="LineNr"> 9455 </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#L9422'>test-parse-var-with-type-and-register</a>/register"</span>) +<span id="L9456" class="LineNr"> 9456 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L9457" class="LineNr"> 9457 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L9458" class="LineNr"> 9458 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9422'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9459" class="LineNr"> 9459 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9422'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L9460" class="LineNr"> 9460 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9422'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L9461" class="LineNr"> 9461 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9462" class="LineNr"> 9462 </span> 89/<- %esp 5/r32/ebp +<span id="L9463" class="LineNr"> 9463 </span> 5d/pop-to-ebp +<span id="L9464" class="LineNr"> 9464 </span> c3/return +<span id="L9465" class="LineNr"> 9465 </span> +<span id="L9466" class="LineNr"> 9466 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: +<span id="L9467" class="LineNr"> 9467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9468" class="LineNr"> 9468 </span> 55/push-ebp +<span id="L9469" class="LineNr"> 9469 </span> 89/<- %ebp 4/r32/esp +<span id="L9470" class="LineNr"> 9470 </span> <span class="subxComment"># setup</span> +<span id="L9471" class="LineNr"> 9471 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L9472" class="LineNr"> 9472 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L9473" class="LineNr"> 9473 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L9474" class="LineNr"> 9474 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L9475" class="LineNr"> 9475 </span> 8b/-> *eax 1/r32/ecx +<span id="L9476" class="LineNr"> 9476 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9477" class="LineNr"> 9477 </span> 05/add-to-eax 4/imm32 +<span id="L9478" class="LineNr"> 9478 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9479" class="LineNr"> 9479 </span> 51/push-ecx +<span id="L9480" class="LineNr"> 9480 </span> 50/push-eax +<span id="L9481" class="LineNr"> 9481 </span> 89/<- %ecx 4/r32/esp +<span id="L9482" class="LineNr"> 9482 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L9483" class="LineNr"> 9483 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9484" class="LineNr"> 9484 </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="L9485" class="LineNr"> 9485 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L9486" class="LineNr"> 9486 </span> 68/push 0/imm32 +<span id="L9487" class="LineNr"> 9487 </span> 68/push 0/imm32 +<span id="L9488" class="LineNr"> 9488 </span> 89/<- %edx 4/r32/esp +<span id="L9489" class="LineNr"> 9489 </span> <span class="subxComment">#</span> +<span id="L9490" class="LineNr"> 9490 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9491" class="LineNr"> 9491 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L9492" class="LineNr"> 9492 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9493" class="LineNr"> 9493 </span> 89/<- %edx 0/r32/eax +<span id="L9494" class="LineNr"> 9494 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L9495" class="LineNr"> 9495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L9496" class="LineNr"> 9496 </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#L9466'>test-parse-var-with-trailing-characters</a>/name"</span>) +<span id="L9497" class="LineNr"> 9497 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L9498" class="LineNr"> 9498 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L9466'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L9499" class="LineNr"> 9499 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L9500" class="LineNr"> 9500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L9501" class="LineNr"> 9501 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9466'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9502" class="LineNr"> 9502 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9466'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L9503" class="LineNr"> 9503 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9466'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L9504" class="LineNr"> 9504 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9505" class="LineNr"> 9505 </span> 89/<- %esp 5/r32/ebp +<span id="L9506" class="LineNr"> 9506 </span> 5d/pop-to-ebp +<span id="L9507" class="LineNr"> 9507 </span> c3/return +<span id="L9508" class="LineNr"> 9508 </span> +<span id="L9509" class="LineNr"> 9509 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: +<span id="L9510" class="LineNr"> 9510 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9511" class="LineNr"> 9511 </span> 55/push-ebp +<span id="L9512" class="LineNr"> 9512 </span> 89/<- %ebp 4/r32/esp +<span id="L9513" class="LineNr"> 9513 </span> <span class="subxComment"># setup</span> +<span id="L9514" class="LineNr"> 9514 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L9515" class="LineNr"> 9515 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L9516" class="LineNr"> 9516 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L9517" class="LineNr"> 9517 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L9518" class="LineNr"> 9518 </span> 8b/-> *eax 1/r32/ecx +<span id="L9519" class="LineNr"> 9519 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9520" class="LineNr"> 9520 </span> 05/add-to-eax 4/imm32 +<span id="L9521" class="LineNr"> 9521 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9522" class="LineNr"> 9522 </span> 51/push-ecx +<span id="L9523" class="LineNr"> 9523 </span> 50/push-eax +<span id="L9524" class="LineNr"> 9524 </span> 89/<- %ecx 4/r32/esp +<span id="L9525" class="LineNr"> 9525 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L9526" class="LineNr"> 9526 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9527" class="LineNr"> 9527 </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="L9528" class="LineNr"> 9528 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L9529" class="LineNr"> 9529 </span> 68/push 0/imm32 +<span id="L9530" class="LineNr"> 9530 </span> 68/push 0/imm32 +<span id="L9531" class="LineNr"> 9531 </span> 89/<- %edx 4/r32/esp +<span id="L9532" class="LineNr"> 9532 </span> <span class="subxComment">#</span> +<span id="L9533" class="LineNr"> 9533 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9534" class="LineNr"> 9534 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L9535" class="LineNr"> 9535 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9536" class="LineNr"> 9536 </span> 89/<- %edx 0/r32/eax +<span id="L9537" class="LineNr"> 9537 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L9538" class="LineNr"> 9538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L9539" class="LineNr"> 9539 </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#L9509'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) +<span id="L9540" class="LineNr"> 9540 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L9541" class="LineNr"> 9541 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L9542" class="LineNr"> 9542 </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#L9509'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) +<span id="L9543" class="LineNr"> 9543 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L9544" class="LineNr"> 9544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L9545" class="LineNr"> 9545 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9509'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9546" class="LineNr"> 9546 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9509'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L9547" class="LineNr"> 9547 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9509'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L9548" class="LineNr"> 9548 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9549" class="LineNr"> 9549 </span> 89/<- %esp 5/r32/ebp +<span id="L9550" class="LineNr"> 9550 </span> 5d/pop-to-ebp +<span id="L9551" class="LineNr"> 9551 </span> c3/return +<span id="L9552" class="LineNr"> 9552 </span> +<span id="L9553" class="LineNr"> 9553 </span><span class="subxTest">test-parse-var-with-compound-type</span>: +<span id="L9554" class="LineNr"> 9554 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9555" class="LineNr"> 9555 </span> 55/push-ebp +<span id="L9556" class="LineNr"> 9556 </span> 89/<- %ebp 4/r32/esp +<span id="L9557" class="LineNr"> 9557 </span> <span class="subxComment"># setup</span> +<span id="L9558" class="LineNr"> 9558 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L9559" class="LineNr"> 9559 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L9560" class="LineNr"> 9560 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L9561" class="LineNr"> 9561 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L9562" class="LineNr"> 9562 </span> 8b/-> *eax 1/r32/ecx +<span id="L9563" class="LineNr"> 9563 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9564" class="LineNr"> 9564 </span> 05/add-to-eax 4/imm32 +<span id="L9565" class="LineNr"> 9565 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9566" class="LineNr"> 9566 </span> 51/push-ecx +<span id="L9567" class="LineNr"> 9567 </span> 50/push-eax +<span id="L9568" class="LineNr"> 9568 </span> 89/<- %ecx 4/r32/esp +<span id="L9569" class="LineNr"> 9569 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> +<span id="L9570" class="LineNr"> 9570 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9571" class="LineNr"> 9571 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"(addr int)"</span>) +<span id="L9572" class="LineNr"> 9572 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L9573" class="LineNr"> 9573 </span> 68/push 0/imm32 +<span id="L9574" class="LineNr"> 9574 </span> 68/push 0/imm32 +<span id="L9575" class="LineNr"> 9575 </span> 89/<- %edx 4/r32/esp +<span id="L9576" class="LineNr"> 9576 </span> <span class="subxComment">#</span> +<span id="L9577" class="LineNr"> 9577 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9578" class="LineNr"> 9578 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L9579" class="LineNr"> 9579 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L9580" class="LineNr"> 9580 </span> 89/<- %edx 0/r32/eax +<span id="L9581" class="LineNr"> 9581 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L9582" class="LineNr"> 9582 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L9583" class="LineNr"> 9583 </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#L9553'>test-parse-var-with-compound-type</a>/name"</span>) +<span id="L9584" class="LineNr"> 9584 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L9585" class="LineNr"> 9585 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L9586" class="LineNr"> 9586 </span> <span class="subxH1Comment"># - check v-addr->type</span> +<span id="L9587" class="LineNr"> 9587 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> +<span id="L9588" class="LineNr"> 9588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L9589" class="LineNr"> 9589 </span> 89/<- %edx 0/r32/eax +<span id="L9590" class="LineNr"> 9590 </span> <span class="subxComment"># type is a non-atom</span> +<span id="L9591" class="LineNr"> 9591 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9592" class="LineNr"> 9592 </span> <span class="subxComment"># type->left == atom(addr)</span> +<span id="L9593" class="LineNr"> 9593 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L9594" class="LineNr"> 9594 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9595" class="LineNr"> 9595 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L9596" class="LineNr"> 9596 </span> <span class="subxComment"># type->right->left == atom(int)</span> +<span id="L9597" class="LineNr"> 9597 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L9598" class="LineNr"> 9598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L9599" class="LineNr"> 9599 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L9600" class="LineNr"> 9600 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L9601" class="LineNr"> 9601 </span> <span class="subxComment"># type->right->right == null</span> +<span id="L9602" class="LineNr"> 9602 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L9553'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L9603" class="LineNr"> 9603 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9604" class="LineNr"> 9604 </span> 89/<- %esp 5/r32/ebp +<span id="L9605" class="LineNr"> 9605 </span> 5d/pop-to-ebp +<span id="L9606" class="LineNr"> 9606 </span> c3/return +<span id="L9607" class="LineNr"> 9607 </span> +<span id="L9608" class="LineNr"> 9608 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> +<span id="L9609" class="LineNr"> 9609 </span><span class="subxComment"># no constraints at the moment on later letters</span> +<span id="L9610" class="LineNr"> 9610 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> +<span id="L9611" class="LineNr"> 9611 </span><span class="subxFunction">is-identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L9612" class="LineNr"> 9612 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9613" class="LineNr"> 9613 </span> 55/push-ebp +<span id="L9614" class="LineNr"> 9614 </span> 89/<- %ebp 4/r32/esp +<span id="L9615" class="LineNr"> 9615 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> +<span id="L9616" class="LineNr"> 9616 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L9617" class="LineNr"> 9617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L9618" class="LineNr"> 9618 </span> 75/jump-if-!= $is-identifier?:false/disp8 +<span id="L9619" class="LineNr"> 9619 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> +<span id="L9620" class="LineNr"> 9620 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L9621" class="LineNr"> 9621 </span> 8b/-> *eax 0/r32/eax +<span id="L9622" class="LineNr"> 9622 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L9623" class="LineNr"> 9623 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L9624" class="LineNr"> 9624 </span> <span class="subxComment"># if (c == '$') return true</span> +<span id="L9625" class="LineNr"> 9625 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L9626" class="LineNr"> 9626 </span> 74/jump-if-= $is-identifier?:true/disp8 +<span id="L9627" class="LineNr"> 9627 </span> <span class="subxComment"># if (c == '_') return true</span> +<span id="L9628" class="LineNr"> 9628 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L9629" class="LineNr"> 9629 </span> 74/jump-if-= $is-identifier?:true/disp8 +<span id="L9630" class="LineNr"> 9630 </span> <span class="subxComment"># drop case</span> +<span id="L9631" class="LineNr"> 9631 </span> 25/and-eax-with 0x5f/imm32 +<span id="L9632" class="LineNr"> 9632 </span> <span class="subxComment"># if (c < 'A') return false</span> +<span id="L9633" class="LineNr"> 9633 </span> 3d/compare-eax-and 0x41/imm32/A +<span id="L9634" class="LineNr"> 9634 </span> 7c/jump-if-< $is-identifier?:false/disp8 +<span id="L9635" class="LineNr"> 9635 </span> <span class="subxComment"># if (c > 'Z') return false</span> +<span id="L9636" class="LineNr"> 9636 </span> 3d/compare-eax-and 0x5a/imm32/Z +<span id="L9637" class="LineNr"> 9637 </span> 7f/jump-if-> $is-identifier?:false/disp8 +<span id="L9638" class="LineNr"> 9638 </span> <span class="subxComment"># otherwise return true</span> +<span id="L9639" class="LineNr"> 9639 </span><span class="Constant">$is-identifier?:true</span>: +<span id="L9640" class="LineNr"> 9640 </span> b8/copy-to-eax 1/imm32/true +<span id="L9641" class="LineNr"> 9641 </span> eb/jump $is-identifier?:end/disp8 +<span id="L9642" class="LineNr"> 9642 </span><span class="Constant">$is-identifier?:false</span>: +<span id="L9643" class="LineNr"> 9643 </span> b8/copy-to-eax 0/imm32/false +<span id="L9644" class="LineNr"> 9644 </span><span class="Constant">$is-identifier?:end</span>: +<span id="L9645" class="LineNr"> 9645 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9646" class="LineNr"> 9646 </span> 89/<- %esp 5/r32/ebp +<span id="L9647" class="LineNr"> 9647 </span> 5d/pop-to-ebp +<span id="L9648" class="LineNr"> 9648 </span> c3/return +<span id="L9649" class="LineNr"> 9649 </span> +<span id="L9650" class="LineNr"> 9650 </span><span class="subxTest">test-is-identifier-dollar</span>: +<span id="L9651" class="LineNr"> 9651 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9652" class="LineNr"> 9652 </span> 55/push-ebp +<span id="L9653" class="LineNr"> 9653 </span> 89/<- %ebp 4/r32/esp +<span id="L9654" class="LineNr"> 9654 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> +<span id="L9655" class="LineNr"> 9655 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 +<span id="L9656" class="LineNr"> 9656 </span> 8b/-> *eax 1/r32/ecx +<span id="L9657" class="LineNr"> 9657 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9658" class="LineNr"> 9658 </span> 05/add-to-eax 4/imm32 +<span id="L9659" class="LineNr"> 9659 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9660" class="LineNr"> 9660 </span> 51/push-ecx +<span id="L9661" class="LineNr"> 9661 </span> 50/push-eax +<span id="L9662" class="LineNr"> 9662 </span> 89/<- %ecx 4/r32/esp +<span id="L9663" class="LineNr"> 9663 </span> <span class="subxComment">#</span> +<span id="L9664" class="LineNr"> 9664 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9665" class="LineNr"> 9665 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) +<span id="L9666" class="LineNr"> 9666 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9667" class="LineNr"> 9667 </span> 89/<- %esp 5/r32/ebp +<span id="L9668" class="LineNr"> 9668 </span> 5d/pop-to-ebp +<span id="L9669" class="LineNr"> 9669 </span> c3/return +<span id="L9670" class="LineNr"> 9670 </span> +<span id="L9671" class="LineNr"> 9671 </span><span class="subxTest">test-is-identifier-underscore</span>: +<span id="L9672" class="LineNr"> 9672 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9673" class="LineNr"> 9673 </span> 55/push-ebp +<span id="L9674" class="LineNr"> 9674 </span> 89/<- %ebp 4/r32/esp +<span id="L9675" class="LineNr"> 9675 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> +<span id="L9676" class="LineNr"> 9676 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 +<span id="L9677" class="LineNr"> 9677 </span> 8b/-> *eax 1/r32/ecx +<span id="L9678" class="LineNr"> 9678 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9679" class="LineNr"> 9679 </span> 05/add-to-eax 4/imm32 +<span id="L9680" class="LineNr"> 9680 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9681" class="LineNr"> 9681 </span> 51/push-ecx +<span id="L9682" class="LineNr"> 9682 </span> 50/push-eax +<span id="L9683" class="LineNr"> 9683 </span> 89/<- %ecx 4/r32/esp +<span id="L9684" class="LineNr"> 9684 </span> <span class="subxComment">#</span> +<span id="L9685" class="LineNr"> 9685 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9686" class="LineNr"> 9686 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) +<span id="L9687" class="LineNr"> 9687 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9688" class="LineNr"> 9688 </span> 89/<- %esp 5/r32/ebp +<span id="L9689" class="LineNr"> 9689 </span> 5d/pop-to-ebp +<span id="L9690" class="LineNr"> 9690 </span> c3/return +<span id="L9691" class="LineNr"> 9691 </span> +<span id="L9692" class="LineNr"> 9692 </span><span class="subxTest">test-is-identifier-a</span>: +<span id="L9693" class="LineNr"> 9693 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9694" class="LineNr"> 9694 </span> 55/push-ebp +<span id="L9695" class="LineNr"> 9695 </span> 89/<- %ebp 4/r32/esp +<span id="L9696" class="LineNr"> 9696 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> +<span id="L9697" class="LineNr"> 9697 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 +<span id="L9698" class="LineNr"> 9698 </span> 8b/-> *eax 1/r32/ecx +<span id="L9699" class="LineNr"> 9699 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9700" class="LineNr"> 9700 </span> 05/add-to-eax 4/imm32 +<span id="L9701" class="LineNr"> 9701 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9702" class="LineNr"> 9702 </span> 51/push-ecx +<span id="L9703" class="LineNr"> 9703 </span> 50/push-eax +<span id="L9704" class="LineNr"> 9704 </span> 89/<- %ecx 4/r32/esp +<span id="L9705" class="LineNr"> 9705 </span> <span class="subxComment">#</span> +<span id="L9706" class="LineNr"> 9706 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9707" class="LineNr"> 9707 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) +<span id="L9708" class="LineNr"> 9708 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9709" class="LineNr"> 9709 </span> 89/<- %esp 5/r32/ebp +<span id="L9710" class="LineNr"> 9710 </span> 5d/pop-to-ebp +<span id="L9711" class="LineNr"> 9711 </span> c3/return +<span id="L9712" class="LineNr"> 9712 </span> +<span id="L9713" class="LineNr"> 9713 </span><span class="subxTest">test-is-identifier-z</span>: +<span id="L9714" class="LineNr"> 9714 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9715" class="LineNr"> 9715 </span> 55/push-ebp +<span id="L9716" class="LineNr"> 9716 </span> 89/<- %ebp 4/r32/esp +<span id="L9717" class="LineNr"> 9717 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> +<span id="L9718" class="LineNr"> 9718 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 +<span id="L9719" class="LineNr"> 9719 </span> 8b/-> *eax 1/r32/ecx +<span id="L9720" class="LineNr"> 9720 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9721" class="LineNr"> 9721 </span> 05/add-to-eax 4/imm32 +<span id="L9722" class="LineNr"> 9722 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9723" class="LineNr"> 9723 </span> 51/push-ecx +<span id="L9724" class="LineNr"> 9724 </span> 50/push-eax +<span id="L9725" class="LineNr"> 9725 </span> 89/<- %ecx 4/r32/esp +<span id="L9726" class="LineNr"> 9726 </span> <span class="subxComment">#</span> +<span id="L9727" class="LineNr"> 9727 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9728" class="LineNr"> 9728 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) +<span id="L9729" class="LineNr"> 9729 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9730" class="LineNr"> 9730 </span> 89/<- %esp 5/r32/ebp +<span id="L9731" class="LineNr"> 9731 </span> 5d/pop-to-ebp +<span id="L9732" class="LineNr"> 9732 </span> c3/return +<span id="L9733" class="LineNr"> 9733 </span> +<span id="L9734" class="LineNr"> 9734 </span><span class="subxTest">test-is-identifier-A</span>: +<span id="L9735" class="LineNr"> 9735 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9736" class="LineNr"> 9736 </span> 55/push-ebp +<span id="L9737" class="LineNr"> 9737 </span> 89/<- %ebp 4/r32/esp +<span id="L9738" class="LineNr"> 9738 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> +<span id="L9739" class="LineNr"> 9739 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 +<span id="L9740" class="LineNr"> 9740 </span> 8b/-> *eax 1/r32/ecx +<span id="L9741" class="LineNr"> 9741 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9742" class="LineNr"> 9742 </span> 05/add-to-eax 4/imm32 +<span id="L9743" class="LineNr"> 9743 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9744" class="LineNr"> 9744 </span> 51/push-ecx +<span id="L9745" class="LineNr"> 9745 </span> 50/push-eax +<span id="L9746" class="LineNr"> 9746 </span> 89/<- %ecx 4/r32/esp +<span id="L9747" class="LineNr"> 9747 </span> <span class="subxComment">#</span> +<span id="L9748" class="LineNr"> 9748 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9749" class="LineNr"> 9749 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) +<span id="L9750" class="LineNr"> 9750 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9751" class="LineNr"> 9751 </span> 89/<- %esp 5/r32/ebp +<span id="L9752" class="LineNr"> 9752 </span> 5d/pop-to-ebp +<span id="L9753" class="LineNr"> 9753 </span> c3/return +<span id="L9754" class="LineNr"> 9754 </span> +<span id="L9755" class="LineNr"> 9755 </span><span class="subxTest">test-is-identifier-Z</span>: +<span id="L9756" class="LineNr"> 9756 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9757" class="LineNr"> 9757 </span> 55/push-ebp +<span id="L9758" class="LineNr"> 9758 </span> 89/<- %ebp 4/r32/esp +<span id="L9759" class="LineNr"> 9759 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> +<span id="L9760" class="LineNr"> 9760 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 +<span id="L9761" class="LineNr"> 9761 </span> 8b/-> *eax 1/r32/ecx +<span id="L9762" class="LineNr"> 9762 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9763" class="LineNr"> 9763 </span> 05/add-to-eax 4/imm32 +<span id="L9764" class="LineNr"> 9764 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9765" class="LineNr"> 9765 </span> 51/push-ecx +<span id="L9766" class="LineNr"> 9766 </span> 50/push-eax +<span id="L9767" class="LineNr"> 9767 </span> 89/<- %ecx 4/r32/esp +<span id="L9768" class="LineNr"> 9768 </span> <span class="subxComment">#</span> +<span id="L9769" class="LineNr"> 9769 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9770" class="LineNr"> 9770 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) +<span id="L9771" class="LineNr"> 9771 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9772" class="LineNr"> 9772 </span> 89/<- %esp 5/r32/ebp +<span id="L9773" class="LineNr"> 9773 </span> 5d/pop-to-ebp +<span id="L9774" class="LineNr"> 9774 </span> c3/return +<span id="L9775" class="LineNr"> 9775 </span> +<span id="L9776" class="LineNr"> 9776 </span><span class="subxTest">test-is-identifier-at</span>: +<span id="L9777" class="LineNr"> 9777 </span> <span class="subxComment"># character before 'A' is invalid</span> +<span id="L9778" class="LineNr"> 9778 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9779" class="LineNr"> 9779 </span> 55/push-ebp +<span id="L9780" class="LineNr"> 9780 </span> 89/<- %ebp 4/r32/esp +<span id="L9781" class="LineNr"> 9781 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> +<span id="L9782" class="LineNr"> 9782 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 +<span id="L9783" class="LineNr"> 9783 </span> 8b/-> *eax 1/r32/ecx +<span id="L9784" class="LineNr"> 9784 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9785" class="LineNr"> 9785 </span> 05/add-to-eax 4/imm32 +<span id="L9786" class="LineNr"> 9786 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9787" class="LineNr"> 9787 </span> 51/push-ecx +<span id="L9788" class="LineNr"> 9788 </span> 50/push-eax +<span id="L9789" class="LineNr"> 9789 </span> 89/<- %ecx 4/r32/esp +<span id="L9790" class="LineNr"> 9790 </span> <span class="subxComment">#</span> +<span id="L9791" class="LineNr"> 9791 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9792" class="LineNr"> 9792 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L9793" class="LineNr"> 9793 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9794" class="LineNr"> 9794 </span> 89/<- %esp 5/r32/ebp +<span id="L9795" class="LineNr"> 9795 </span> 5d/pop-to-ebp +<span id="L9796" class="LineNr"> 9796 </span> c3/return +<span id="L9797" class="LineNr"> 9797 </span> +<span id="L9798" class="LineNr"> 9798 </span><span class="subxTest">test-is-identifier-square-bracket</span>: +<span id="L9799" class="LineNr"> 9799 </span> <span class="subxComment"># character after 'Z' is invalid</span> +<span id="L9800" class="LineNr"> 9800 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9801" class="LineNr"> 9801 </span> 55/push-ebp +<span id="L9802" class="LineNr"> 9802 </span> 89/<- %ebp 4/r32/esp +<span id="L9803" class="LineNr"> 9803 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> +<span id="L9804" class="LineNr"> 9804 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 +<span id="L9805" class="LineNr"> 9805 </span> 8b/-> *eax 1/r32/ecx +<span id="L9806" class="LineNr"> 9806 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9807" class="LineNr"> 9807 </span> 05/add-to-eax 4/imm32 +<span id="L9808" class="LineNr"> 9808 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9809" class="LineNr"> 9809 </span> 51/push-ecx +<span id="L9810" class="LineNr"> 9810 </span> 50/push-eax +<span id="L9811" class="LineNr"> 9811 </span> 89/<- %ecx 4/r32/esp +<span id="L9812" class="LineNr"> 9812 </span> <span class="subxComment">#</span> +<span id="L9813" class="LineNr"> 9813 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9814" class="LineNr"> 9814 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L9815" class="LineNr"> 9815 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9816" class="LineNr"> 9816 </span> 89/<- %esp 5/r32/ebp +<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-is-identifier-backtick</span>: +<span id="L9821" class="LineNr"> 9821 </span> <span class="subxComment"># character before 'a' is invalid</span> +<span id="L9822" class="LineNr"> 9822 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9823" class="LineNr"> 9823 </span> 55/push-ebp +<span id="L9824" class="LineNr"> 9824 </span> 89/<- %ebp 4/r32/esp +<span id="L9825" class="LineNr"> 9825 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> +<span id="L9826" class="LineNr"> 9826 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 +<span id="L9827" class="LineNr"> 9827 </span> 8b/-> *eax 1/r32/ecx +<span id="L9828" class="LineNr"> 9828 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9829" class="LineNr"> 9829 </span> 05/add-to-eax 4/imm32 +<span id="L9830" class="LineNr"> 9830 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9831" class="LineNr"> 9831 </span> 51/push-ecx +<span id="L9832" class="LineNr"> 9832 </span> 50/push-eax +<span id="L9833" class="LineNr"> 9833 </span> 89/<- %ecx 4/r32/esp +<span id="L9834" class="LineNr"> 9834 </span> <span class="subxComment">#</span> +<span id="L9835" class="LineNr"> 9835 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9836" class="LineNr"> 9836 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) +<span id="L9837" class="LineNr"> 9837 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9838" class="LineNr"> 9838 </span> 89/<- %esp 5/r32/ebp +<span id="L9839" class="LineNr"> 9839 </span> 5d/pop-to-ebp +<span id="L9840" class="LineNr"> 9840 </span> c3/return +<span id="L9841" class="LineNr"> 9841 </span> +<span id="L9842" class="LineNr"> 9842 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: +<span id="L9843" class="LineNr"> 9843 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L9844" class="LineNr"> 9844 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9845" class="LineNr"> 9845 </span> 55/push-ebp +<span id="L9846" class="LineNr"> 9846 </span> 89/<- %ebp 4/r32/esp +<span id="L9847" class="LineNr"> 9847 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> +<span id="L9848" class="LineNr"> 9848 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L9849" class="LineNr"> 9849 </span> 8b/-> *eax 1/r32/ecx +<span id="L9850" class="LineNr"> 9850 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9851" class="LineNr"> 9851 </span> 05/add-to-eax 4/imm32 +<span id="L9852" class="LineNr"> 9852 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9853" class="LineNr"> 9853 </span> 51/push-ecx +<span id="L9854" class="LineNr"> 9854 </span> 50/push-eax +<span id="L9855" class="LineNr"> 9855 </span> 89/<- %ecx 4/r32/esp +<span id="L9856" class="LineNr"> 9856 </span> <span class="subxComment">#</span> +<span id="L9857" class="LineNr"> 9857 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9858" class="LineNr"> 9858 </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="L9859" class="LineNr"> 9859 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9860" class="LineNr"> 9860 </span> 89/<- %esp 5/r32/ebp +<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-is-identifier-curly-brace-close</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 +<span id="L9868" class="LineNr"> 9868 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> +<span id="L9869" class="LineNr"> 9869 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 +<span id="L9870" class="LineNr"> 9870 </span> 8b/-> *eax 1/r32/ecx +<span id="L9871" class="LineNr"> 9871 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9872" class="LineNr"> 9872 </span> 05/add-to-eax 4/imm32 +<span id="L9873" class="LineNr"> 9873 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9874" class="LineNr"> 9874 </span> 51/push-ecx +<span id="L9875" class="LineNr"> 9875 </span> 50/push-eax +<span id="L9876" class="LineNr"> 9876 </span> 89/<- %ecx 4/r32/esp +<span id="L9877" class="LineNr"> 9877 </span> <span class="subxComment">#</span> +<span id="L9878" class="LineNr"> 9878 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9879" class="LineNr"> 9879 </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="L9880" class="LineNr"> 9880 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9881" class="LineNr"> 9881 </span> 89/<- %esp 5/r32/ebp +<span id="L9882" class="LineNr"> 9882 </span> 5d/pop-to-ebp +<span id="L9883" class="LineNr"> 9883 </span> c3/return +<span id="L9884" class="LineNr"> 9884 </span> +<span id="L9885" class="LineNr"> 9885 </span><span class="subxTest">test-is-identifier-hyphen</span>: +<span id="L9886" class="LineNr"> 9886 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</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"># (eax..ecx) = "-a"</span> +<span id="L9891" class="LineNr"> 9891 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L9892" class="LineNr"> 9892 </span> 8b/-> *eax 1/r32/ecx +<span id="L9893" class="LineNr"> 9893 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L9894" class="LineNr"> 9894 </span> 05/add-to-eax 4/imm32 +<span id="L9895" class="LineNr"> 9895 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L9896" class="LineNr"> 9896 </span> 51/push-ecx +<span id="L9897" class="LineNr"> 9897 </span> 50/push-eax +<span id="L9898" class="LineNr"> 9898 </span> 89/<- %ecx 4/r32/esp +<span id="L9899" class="LineNr"> 9899 </span> <span class="subxComment">#</span> +<span id="L9900" class="LineNr"> 9900 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) +<span id="L9901" class="LineNr"> 9901 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L9902" class="LineNr"> 9902 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9903" class="LineNr"> 9903 </span> 89/<- %esp 5/r32/ebp +<span id="L9904" class="LineNr"> 9904 </span> 5d/pop-to-ebp +<span id="L9905" class="LineNr"> 9905 </span> c3/return +<span id="L9906" class="LineNr"> 9906 </span> +<span id="L9907" class="LineNr"> 9907 </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="L9908" class="LineNr"> 9908 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9909" class="LineNr"> 9909 </span> 55/push-ebp +<span id="L9910" class="LineNr"> 9910 </span> 89/<- %ebp 4/r32/esp +<span id="L9911" class="LineNr"> 9911 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L9912" class="LineNr"> 9912 </span> 50/push-eax +<span id="L9913" class="LineNr"> 9913 </span> 56/push-esi +<span id="L9914" class="LineNr"> 9914 </span> 57/push-edi +<span id="L9915" class="LineNr"> 9915 </span> <span class="subxComment"># esi = in</span> +<span id="L9916" class="LineNr"> 9916 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L9917" class="LineNr"> 9917 </span> <span class="subxComment"># edi = out</span> +<span id="L9918" class="LineNr"> 9918 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L9919" class="LineNr"> 9919 </span> <span class="subxComment"># initialize some global state</span> +<span id="L9920" class="LineNr"> 9920 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 1/imm32 +<span id="L9921" class="LineNr"> 9921 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> +<span id="L9922" class="LineNr"> 9922 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> +<span id="L9923" class="LineNr"> 9923 </span> (<a href='mu.subx.html#L9935'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L9924" class="LineNr"> 9924 </span><span class="Constant">$populate-mu-function-body:end</span>: +<span id="L9925" class="LineNr"> 9925 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L9926" class="LineNr"> 9926 </span> 5f/pop-to-edi +<span id="L9927" class="LineNr"> 9927 </span> 5e/pop-to-esi +<span id="L9928" class="LineNr"> 9928 </span> 58/pop-to-eax +<span id="L9929" class="LineNr"> 9929 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9930" class="LineNr"> 9930 </span> 89/<- %esp 5/r32/ebp +<span id="L9931" class="LineNr"> 9931 </span> 5d/pop-to-ebp +<span id="L9932" class="LineNr"> 9932 </span> c3/return +<span id="L9933" class="LineNr"> 9933 </span> +<span id="L9934" class="LineNr"> 9934 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> +<span id="L9935" class="LineNr"> 9935 </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="L9936" class="LineNr"> 9936 </span> <span class="subxComment"># pseudocode:</span> +<span id="L9937" class="LineNr"> 9937 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L9938" class="LineNr"> 9938 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L9939" class="LineNr"> 9939 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L9940" class="LineNr"> 9940 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> +<span id="L9941" class="LineNr"> 9941 </span> <span class="subxComment"># out-addr->tag = 0/block</span> +<span id="L9942" class="LineNr"> 9942 </span> <span class="subxComment"># out-addr->var = some unique name</span> +<span id="L9943" class="LineNr"> 9943 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> +<span id="L9944" class="LineNr"> 9944 </span> <span class="subxComment"># while true # line loop</span> +<span id="L9945" class="LineNr"> 9945 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L9946" class="LineNr"> 9946 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L9947" class="LineNr"> 9947 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L9948" class="LineNr"> 9948 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L9949" class="LineNr"> 9949 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L9950" class="LineNr"> 9950 </span> <span class="subxComment"># continue</span> +<span id="L9951" class="LineNr"> 9951 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> +<span id="L9952" class="LineNr"> 9952 </span> <span class="subxComment"># continue</span> +<span id="L9953" class="LineNr"> 9953 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> +<span id="L9954" class="LineNr"> 9954 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> +<span id="L9955" class="LineNr"> 9955 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> +<span id="L9956" class="LineNr"> 9956 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> +<span id="L9957" class="LineNr"> 9957 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> +<span id="L9958" class="LineNr"> 9958 </span> <span class="subxComment"># break</span> +<span id="L9959" class="LineNr"> 9959 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> +<span id="L9960" class="LineNr"> 9960 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> +<span id="L9961" class="LineNr"> 9961 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> +<span id="L9962" class="LineNr"> 9962 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> +<span id="L9963" class="LineNr"> 9963 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> +<span id="L9964" class="LineNr"> 9964 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> +<span id="L9965" class="LineNr"> 9965 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> +<span id="L9966" class="LineNr"> 9966 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> +<span id="L9967" class="LineNr"> 9967 </span> <span class="subxComment"># else</span> +<span id="L9968" class="LineNr"> 9968 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> +<span id="L9969" class="LineNr"> 9969 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> +<span id="L9970" class="LineNr"> 9970 </span> <span class="subxComment"># pop(vars)</span> +<span id="L9971" class="LineNr"> 9971 </span> <span class="subxComment">#</span> +<span id="L9972" class="LineNr"> 9972 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9973" class="LineNr"> 9973 </span> 55/push-ebp +<span id="L9974" class="LineNr"> 9974 </span> 89/<- %ebp 4/r32/esp +<span id="L9975" class="LineNr"> 9975 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L9976" class="LineNr"> 9976 </span> 50/push-eax +<span id="L9977" class="LineNr"> 9977 </span> 51/push-ecx +<span id="L9978" class="LineNr"> 9978 </span> 52/push-edx +<span id="L9979" class="LineNr"> 9979 </span> 53/push-ebx +<span id="L9980" class="LineNr"> 9980 </span> 57/push-edi +<span id="L9981" class="LineNr"> 9981 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L9982" class="LineNr"> 9982 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L9983" class="LineNr"> 9983 </span> 68/push 0x200/imm32/size +<span id="L9984" class="LineNr"> 9984 </span> 68/push 0/imm32/read +<span id="L9985" class="LineNr"> 9985 </span> 68/push 0/imm32/write +<span id="L9986" class="LineNr"> 9986 </span> 89/<- %ecx 4/r32/esp +<span id="L9987" class="LineNr"> 9987 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L9988" class="LineNr"> 9988 </span> 68/push 0/imm32/end +<span id="L9989" class="LineNr"> 9989 </span> 68/push 0/imm32/start +<span id="L9990" class="LineNr"> 9990 </span> 89/<- %edx 4/r32/esp +<span id="L9991" class="LineNr"> 9991 </span> <span class="subxComment"># allocate into out</span> +<span id="L9992" class="LineNr"> 9992 </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#L329'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L9993" class="LineNr"> 9993 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> +<span id="L9994" class="LineNr"> 9994 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L9995" class="LineNr"> 9995 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L9996" class="LineNr"> 9996 </span> 89/<- %edi 0/r32/eax +<span id="L9997" class="LineNr"> 9997 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> +<span id="L9998" class="LineNr"> 9998 </span> <span class="subxComment"># set out-addr->var</span> +<span id="L9999" class="LineNr"> 9999 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L10000" class="LineNr">10000 </span> (<a href='mu.subx.html#L10155'>new-block-name</a> *(ebp+0x10) %eax) +<span id="L10001" class="LineNr">10001 </span> <span class="subxComment"># push(vars, out-addr->var)</span> +<span id="L10002" class="LineNr">10002 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L10003" class="LineNr">10003 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L10004" class="LineNr">10004 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> +<span id="L10005" class="LineNr">10005 </span> <span class="subxComment"># increment *Curr-block-depth</span> +<span id="L10006" class="LineNr">10006 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> +<span id="L10007" class="LineNr">10007 </span> { +<span id="L10008" class="LineNr">10008 </span><span class="Constant">$parse-mu-block:line-loop</span>: +<span id="L10009" class="LineNr">10009 </span> <span class="subxComment"># line = read-line-buffered(in)</span> +<span id="L10010" class="LineNr">10010 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L10011" class="LineNr">10011 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L10012" class="LineNr">10012 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> +<span id="L10013" class="LineNr">10013 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> +<span id="L10014" class="LineNr">10014 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> +<span id="L10015" class="LineNr">10015 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L10016" class="LineNr">10016 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> +<span id="L10017" class="LineNr">10017 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L10018" class="LineNr">10018 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L10019" class="LineNr">10019 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L10020" class="LineNr">10020 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> +<span id="L10021" class="LineNr">10021 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> +<span id="L10022" class="LineNr">10022 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L10023" class="LineNr">10023 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> %ecx %edx) +<span id="L10024" class="LineNr">10024 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> +<span id="L10025" class="LineNr">10025 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> +<span id="L10026" class="LineNr">10026 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L10027" class="LineNr">10027 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L10028" class="LineNr">10028 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L10029" class="LineNr">10029 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) +<span id="L10030" class="LineNr">10030 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10031" class="LineNr">10031 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L10032" class="LineNr">10032 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> +<span id="L10033" class="LineNr">10033 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L10034" class="LineNr">10034 </span> 8b/-> *edx 0/r32/eax +<span id="L10035" class="LineNr">10035 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10036" class="LineNr">10036 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10037" class="LineNr">10037 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L10038" class="LineNr">10038 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L10039" class="LineNr">10039 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L10040" class="LineNr">10040 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> +<span id="L10041" class="LineNr">10041 </span> { +<span id="L10042" class="LineNr">10042 </span><span class="Constant">$parse-mu-block:check-for-block</span>: +<span id="L10043" class="LineNr">10043 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) +<span id="L10044" class="LineNr">10044 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10045" class="LineNr">10045 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10046" class="LineNr">10046 </span> (<a href='mu.subx.html#L10219'>check-no-tokens-left</a> %ecx) +<span id="L10047" class="LineNr">10047 </span> <span class="subxComment"># parse new block and append</span> +<span id="L10048" class="LineNr">10048 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> +<span id="L10049" class="LineNr">10049 </span> 68/push 0/imm32 +<span id="L10050" class="LineNr">10050 </span> 68/push 0/imm32 +<span id="L10051" class="LineNr">10051 </span> 89/<- %eax 4/r32/esp +<span id="L10052" class="LineNr">10052 </span> <span class="subxS1Comment"># .</span> +<span id="L10053" class="LineNr">10053 </span> (<a href='mu.subx.html#L9935'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L10054" class="LineNr">10054 </span> (<a href='mu.subx.html#L11928'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L10055" class="LineNr">10055 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L10056" class="LineNr">10056 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10057" class="LineNr">10057 </span> <span class="subxS1Comment"># .</span> +<span id="L10058" class="LineNr">10058 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L10059" class="LineNr">10059 </span> } +<span id="L10060" class="LineNr">10060 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L10061" class="LineNr">10061 </span><span class="Constant">$parse-mu-block:check-for-end</span>: +<span id="L10062" class="LineNr">10062 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L10063" class="LineNr">10063 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10064" class="LineNr">10064 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10065" class="LineNr">10065 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> +<span id="L10066" class="LineNr">10066 </span> { +<span id="L10067" class="LineNr">10067 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: +<span id="L10068" class="LineNr">10068 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> +<span id="L10069" class="LineNr">10069 </span> 8b/-> *(edx+4) 0/r32/eax +<span id="L10070" class="LineNr">10070 </span> 48/decrement-eax +<span id="L10071" class="LineNr">10071 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10072" class="LineNr">10072 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10073" class="LineNr">10073 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> +<span id="L10074" class="LineNr">10074 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L10075" class="LineNr">10075 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10076" class="LineNr">10076 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> +<span id="L10077" class="LineNr">10077 </span> <span class="subxComment">#</span> +<span id="L10078" class="LineNr">10078 </span> <span class="subxComment"># skip ':'</span> +<span id="L10079" class="LineNr">10079 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> +<span id="L10080" class="LineNr">10080 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L10081" class="LineNr">10081 </span> 68/push 0/imm32 +<span id="L10082" class="LineNr">10082 </span> 68/push 0/imm32 +<span id="L10083" class="LineNr">10083 </span> 89/<- %eax 4/r32/esp +<span id="L10084" class="LineNr">10084 </span> <span class="subxComment">#</span> +<span id="L10085" class="LineNr">10085 </span> (<a href='mu.subx.html#L10265'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L10086" class="LineNr">10086 </span> (<a href='mu.subx.html#L11928'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L10087" class="LineNr">10087 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L10088" class="LineNr">10088 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10089" class="LineNr">10089 </span> <span class="subxComment">#</span> +<span id="L10090" class="LineNr">10090 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L10091" class="LineNr">10091 </span> } +<span id="L10092" class="LineNr">10092 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> +<span id="L10093" class="LineNr">10093 </span> { +<span id="L10094" class="LineNr">10094 </span><span class="Constant">$parse-mu-block:check-for-var</span>: +<span id="L10095" class="LineNr">10095 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) +<span id="L10096" class="LineNr">10096 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10097" class="LineNr">10097 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10098" class="LineNr">10098 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L10099" class="LineNr">10099 </span> 68/push 0/imm32 +<span id="L10100" class="LineNr">10100 </span> 68/push 0/imm32 +<span id="L10101" class="LineNr">10101 </span> 89/<- %eax 4/r32/esp +<span id="L10102" class="LineNr">10102 </span> <span class="subxComment">#</span> +<span id="L10103" class="LineNr">10103 </span> (<a href='mu.subx.html#L10321'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10104" class="LineNr">10104 </span> (<a href='mu.subx.html#L11928'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L10105" class="LineNr">10105 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L10106" class="LineNr">10106 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10107" class="LineNr">10107 </span> <span class="subxComment">#</span> +<span id="L10108" class="LineNr">10108 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L10109" class="LineNr">10109 </span> } +<span id="L10110" class="LineNr">10110 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: +<span id="L10111" class="LineNr">10111 </span> <span class="subxComment"># otherwise</span> +<span id="L10112" class="LineNr">10112 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L10113" class="LineNr">10113 </span> 68/push 0/imm32 +<span id="L10114" class="LineNr">10114 </span> 68/push 0/imm32 +<span id="L10115" class="LineNr">10115 </span> 89/<- %eax 4/r32/esp +<span id="L10116" class="LineNr">10116 </span> <span class="subxComment">#</span> +<span id="L10117" class="LineNr">10117 </span> (<a href='mu.subx.html#L10529'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L10118" class="LineNr">10118 </span> (<a href='mu.subx.html#L11928'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L10119" class="LineNr">10119 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L10120" class="LineNr">10120 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10121" class="LineNr">10121 </span> <span class="subxComment">#</span> +<span id="L10122" class="LineNr">10122 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L10123" class="LineNr">10123 </span> } <span class="subxComment"># end line loop</span> +<span id="L10124" class="LineNr">10124 </span> (<a href='mu.subx.html#L16564'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> *(ebp+0x10)) +<span id="L10125" class="LineNr">10125 </span> <span class="subxComment"># decrement *Curr-block-depth</span> +<span id="L10126" class="LineNr">10126 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> +<span id="L10127" class="LineNr">10127 </span> <span class="subxComment"># pop(vars)</span> +<span id="L10128" class="LineNr">10128 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L10129" class="LineNr">10129 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L10130" class="LineNr">10130 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L10131" class="LineNr">10131 </span><span class="Constant">$parse-mu-block:end</span>: +<span id="L10132" class="LineNr">10132 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10133" class="LineNr">10133 </span> 81 0/subop/add %esp 0x214/imm32 +<span id="L10134" class="LineNr">10134 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10135" class="LineNr">10135 </span> 5f/pop-to-edi +<span id="L10136" class="LineNr">10136 </span> 5b/pop-to-ebx +<span id="L10137" class="LineNr">10137 </span> 5a/pop-to-edx +<span id="L10138" class="LineNr">10138 </span> 59/pop-to-ecx +<span id="L10139" class="LineNr">10139 </span> 58/pop-to-eax +<span id="L10140" class="LineNr">10140 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10141" class="LineNr">10141 </span> 89/<- %esp 5/r32/ebp +<span id="L10142" class="LineNr">10142 </span> 5d/pop-to-ebp +<span id="L10143" class="LineNr">10143 </span> c3/return +<span id="L10144" class="LineNr">10144 </span> +<span id="L10145" class="LineNr">10145 </span><span class="Constant">$parse-mu-block:abort</span>: +<span id="L10146" class="LineNr">10146 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> +<span id="L10147" class="LineNr">10147 </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="L10148" class="LineNr">10148 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L10149" class="LineNr">10149 </span> (<a href='../113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L10150" class="LineNr">10150 </span> (<a href='../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="L10151" class="LineNr">10151 </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="L10152" class="LineNr">10152 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L10153" class="LineNr">10153 </span> bb/copy-to-ebx 1/imm32 -<span id="L10154" class="LineNr">10154 </span> e8/call syscall_exit/disp32 -<span id="L10155" class="LineNr">10155 </span> <span class="subxComment"># never gets here</span> -<span id="L10156" class="LineNr">10156 </span><span class="Constant">$check-no-tokens-left:end</span>: -<span id="L10157" class="LineNr">10157 </span> <span class="subxS1Comment"># . reclaim locals</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"># . restore registers</span> -<span id="L10160" class="LineNr">10160 </span> 59/pop-to-ecx -<span id="L10161" class="LineNr">10161 </span> 58/pop-to-eax -<span id="L10162" class="LineNr">10162 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10163" class="LineNr">10163 </span> 89/<- %esp 5/r32/ebp -<span id="L10164" class="LineNr">10164 </span> 5d/pop-to-ebp -<span id="L10165" class="LineNr">10165 </span> c3/return -<span id="L10166" class="LineNr">10166 </span> -<span id="L10167" class="LineNr">10167 </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="L10168" class="LineNr">10168 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10169" class="LineNr">10169 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L10170" class="LineNr">10170 </span> <span class="subxComment"># new-literal(name, v)</span> -<span id="L10171" class="LineNr">10171 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L10172" class="LineNr">10172 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> -<span id="L10173" class="LineNr">10173 </span> <span class="subxComment"># pop(vars)</span> -<span id="L10174" class="LineNr">10174 </span> <span class="subxComment"># out->tag = block</span> -<span id="L10175" class="LineNr">10175 </span> <span class="subxComment"># out->var = v</span> -<span id="L10176" class="LineNr">10176 </span> <span class="subxComment">#</span> -<span id="L10177" class="LineNr">10177 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10178" class="LineNr">10178 </span> 55/push-ebp -<span id="L10179" class="LineNr">10179 </span> 89/<- %ebp 4/r32/esp -<span id="L10180" class="LineNr">10180 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10181" class="LineNr">10181 </span> 50/push-eax -<span id="L10182" class="LineNr">10182 </span> 51/push-ecx -<span id="L10183" class="LineNr">10183 </span> 57/push-edi -<span id="L10184" class="LineNr">10184 </span> <span class="subxComment"># var v/ecx: (handle var)</span> -<span id="L10185" class="LineNr">10185 </span> 68/push 0/imm32 -<span id="L10186" class="LineNr">10186 </span> 68/push 0/imm32 -<span id="L10187" class="LineNr">10187 </span> 89/<- %ecx 4/r32/esp -<span id="L10188" class="LineNr">10188 </span> <span class="subxComment">#</span> -<span id="L10189" class="LineNr">10189 </span> (<a href='mu.subx.html#L11566'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) -<span id="L10190" class="LineNr">10190 </span> <span class="subxComment"># push(vars, v)</span> -<span id="L10191" class="LineNr">10191 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) -<span id="L10192" class="LineNr">10192 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) -<span id="L10193" class="LineNr">10193 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L10194" class="LineNr">10194 </span> <span class="subxComment">#</span> -<span id="L10195" class="LineNr">10195 </span> (<a href='mu.subx.html#L9837'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) -<span id="L10196" class="LineNr">10196 </span> <span class="subxComment"># pop v off vars</span> -<span id="L10197" class="LineNr">10197 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L10198" class="LineNr">10198 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L10199" class="LineNr">10199 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L10200" class="LineNr">10200 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L10201" class="LineNr">10201 </span> 8b/-> *(ebp+0x18) 7/r32/edi -<span id="L10202" class="LineNr">10202 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L10203" class="LineNr">10203 </span> 89/<- %edi 0/r32/eax -<span id="L10204" class="LineNr">10204 </span> <span class="subxComment"># out-addr->tag = named-block</span> -<span id="L10205" class="LineNr">10205 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L10206" class="LineNr">10206 </span> <span class="subxComment"># out-addr->var = v</span> -<span id="L10207" class="LineNr">10207 </span> 8b/-> *ecx 0/r32/eax -<span id="L10208" class="LineNr">10208 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L10209" class="LineNr">10209 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L10210" class="LineNr">10210 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L10211" class="LineNr">10211 </span><span class="Constant">$parse-mu-named-block:end</span>: -<span id="L10212" class="LineNr">10212 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10213" class="LineNr">10213 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10214" class="LineNr">10214 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10215" class="LineNr">10215 </span> 5f/pop-to-edi -<span id="L10216" class="LineNr">10216 </span> 59/pop-to-ecx -<span id="L10217" class="LineNr">10217 </span> 58/pop-to-eax -<span id="L10218" class="LineNr">10218 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10219" class="LineNr">10219 </span> 89/<- %esp 5/r32/ebp -<span id="L10220" class="LineNr">10220 </span> 5d/pop-to-ebp -<span id="L10221" class="LineNr">10221 </span> c3/return -<span id="L10222" class="LineNr">10222 </span> -<span id="L10223" class="LineNr">10223 </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="L10224" class="LineNr">10224 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10225" class="LineNr">10225 </span> 55/push-ebp -<span id="L10226" class="LineNr">10226 </span> 89/<- %ebp 4/r32/esp -<span id="L10227" class="LineNr">10227 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10228" class="LineNr">10228 </span> 50/push-eax -<span id="L10229" class="LineNr">10229 </span> 51/push-ecx -<span id="L10230" class="LineNr">10230 </span> 52/push-edx -<span id="L10231" class="LineNr">10231 </span> 53/push-ebx -<span id="L10232" class="LineNr">10232 </span> 57/push-edi -<span id="L10233" class="LineNr">10233 </span> <span class="subxComment"># edi = out</span> -<span id="L10234" class="LineNr">10234 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L10235" class="LineNr">10235 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L10236" class="LineNr">10236 </span> 68/push 0/imm32/end -<span id="L10237" class="LineNr">10237 </span> 68/push 0/imm32/start -<span id="L10238" class="LineNr">10238 </span> 89/<- %ecx 4/r32/esp -<span id="L10239" class="LineNr">10239 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L10240" class="LineNr">10240 </span> 68/push 0/imm32 -<span id="L10241" class="LineNr">10241 </span> 68/push 0/imm32 -<span id="L10242" class="LineNr">10242 </span> 89/<- %edx 4/r32/esp -<span id="L10243" class="LineNr">10243 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> -<span id="L10244" class="LineNr">10244 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10245" class="LineNr">10245 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %ecx *(ebp+8) %edx *(ebp+0x18) *(ebp+0x1c)) -<span id="L10246" class="LineNr">10246 </span> <span class="subxComment"># var v-addr/eax: (addr var)</span> -<span id="L10247" class="LineNr">10247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L10248" class="LineNr">10248 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L10249" class="LineNr">10249 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 3/r32/ebx -<span id="L10250" class="LineNr">10250 </span> 89/<- *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L10251" class="LineNr">10251 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> -<span id="L10252" class="LineNr">10252 </span> 8b/-> *(eax+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L10253" class="LineNr">10253 </span> 3d/compare-eax-and 0/imm32 -<span id="L10254" class="LineNr">10254 </span> { -<span id="L10255" class="LineNr">10255 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L10256" class="LineNr">10256 </span> <span class="subxComment"># TODO: disallow vars of type 'byte' on the stack</span> -<span id="L10257" class="LineNr">10257 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> -<span id="L10258" class="LineNr">10258 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10259" class="LineNr">10259 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L10260" class="LineNr">10260 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10261" class="LineNr">10261 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 -<span id="L10262" class="LineNr">10262 </span> <span class="subxComment">#</span> -<span id="L10263" class="LineNr">10263 </span> (<a href='mu.subx.html#L11629'>new-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L10264" class="LineNr">10264 </span> e9/jump $parse-mu-var-def:update-vars/disp32 -<span id="L10265" class="LineNr">10265 </span> } -<span id="L10266" class="LineNr">10266 </span> <span class="subxComment"># or v has a register and there's more to this line</span> -<span id="L10267" class="LineNr">10267 </span> { -<span id="L10268" class="LineNr">10268 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L10269" class="LineNr">10269 </span> <span class="subxComment"># TODO: disallow vars of type 'byte' in registers 'esi' or 'edi'</span> -<span id="L10270" class="LineNr">10270 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> -<span id="L10271" class="LineNr">10271 </span> <span class="subxComment"># ensure that the next word is '<-'</span> -<span id="L10272" class="LineNr">10272 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10273" class="LineNr">10273 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L10274" class="LineNr">10274 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10275" class="LineNr">10275 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 -<span id="L10276" class="LineNr">10276 </span> <span class="subxComment">#</span> -<span id="L10277" class="LineNr">10277 </span> (<a href='mu.subx.html#L11657'>new-reg-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L10278" class="LineNr">10278 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L10279" class="LineNr">10279 </span> (<a href='mu.subx.html#L10564'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10280" class="LineNr">10280 </span> } -<span id="L10281" class="LineNr">10281 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: -<span id="L10282" class="LineNr">10282 </span> <span class="subxComment"># push 'v' at end of function</span> -<span id="L10283" class="LineNr">10283 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) -<span id="L10284" class="LineNr">10284 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) -<span id="L10285" class="LineNr">10285 </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="L10286" class="LineNr">10286 </span><span class="Constant">$parse-mu-var-def:end</span>: -<span id="L10287" class="LineNr">10287 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10288" class="LineNr">10288 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L10289" class="LineNr">10289 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10290" class="LineNr">10290 </span> 5f/pop-to-edi -<span id="L10291" class="LineNr">10291 </span> 5b/pop-to-ebx -<span id="L10292" class="LineNr">10292 </span> 5a/pop-to-edx -<span id="L10293" class="LineNr">10293 </span> 59/pop-to-ecx -<span id="L10294" class="LineNr">10294 </span> 58/pop-to-eax -<span id="L10295" class="LineNr">10295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10296" class="LineNr">10296 </span> 89/<- %esp 5/r32/ebp -<span id="L10297" class="LineNr">10297 </span> 5d/pop-to-ebp -<span id="L10298" class="LineNr">10298 </span> c3/return -<span id="L10299" class="LineNr">10299 </span> -<span id="L10300" class="LineNr">10300 </span><span class="Constant">$parse-mu-var-def:error1</span>: -<span id="L10301" class="LineNr">10301 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L10302" class="LineNr">10302 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> -<span id="L10303" class="LineNr">10303 </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="L10304" class="LineNr">10304 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10305" class="LineNr">10305 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) -<span id="L10306" class="LineNr">10306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10307" class="LineNr">10307 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10308" class="LineNr">10308 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10309" class="LineNr">10309 </span> <span class="subxComment"># never gets here</span> -<span id="L10310" class="LineNr">10310 </span> -<span id="L10311" class="LineNr">10311 </span><span class="Constant">$parse-mu-var-def:error2</span>: -<span id="L10312" class="LineNr">10312 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L10313" class="LineNr">10313 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> -<span id="L10314" class="LineNr">10314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10315" class="LineNr">10315 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10316" class="LineNr">10316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10317" class="LineNr">10317 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10318" class="LineNr">10318 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) -<span id="L10319" class="LineNr">10319 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L10320" class="LineNr">10320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L10321" class="LineNr">10321 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L10322" class="LineNr">10322 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10323" class="LineNr">10323 </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="L10324" class="LineNr">10324 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10325" class="LineNr">10325 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10326" class="LineNr">10326 </span> <span class="subxComment"># never gets here</span> -<span id="L10327" class="LineNr">10327 </span> -<span id="L10328" class="LineNr">10328 </span><span class="subxTest">test-parse-mu-var-def</span>: -<span id="L10329" class="LineNr">10329 </span> <span class="subxComment"># 'var n: int'</span> -<span id="L10330" class="LineNr">10330 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10331" class="LineNr">10331 </span> 55/push-ebp -<span id="L10332" class="LineNr">10332 </span> 89/<- %ebp 4/r32/esp -<span id="L10333" class="LineNr">10333 </span> <span class="subxComment"># setup</span> -<span id="L10334" class="LineNr">10334 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L10335" class="LineNr">10335 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L10336" class="LineNr">10336 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10337" class="LineNr">10337 </span> (<a href='../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="L10338" class="LineNr">10338 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 1/imm32 -<span id="L10339" class="LineNr">10339 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L10340" class="LineNr">10340 </span> 68/push 0/imm32 -<span id="L10341" class="LineNr">10341 </span> 68/push 0/imm32 -<span id="L10342" class="LineNr">10342 </span> 89/<- %esi 4/r32/esp -<span id="L10343" class="LineNr">10343 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L10344" class="LineNr">10344 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L10345" class="LineNr">10345 </span> 68/push 0xc0/imm32/size -<span id="L10346" class="LineNr">10346 </span> 68/push 0/imm32/top -<span id="L10347" class="LineNr">10347 </span> 89/<- %ecx 4/r32/esp -<span id="L10348" class="LineNr">10348 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L10349" class="LineNr">10349 </span> <span class="subxComment"># convert</span> -<span id="L10350" class="LineNr">10350 </span> (<a href='mu.subx.html#L10223'>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="L10351" class="LineNr">10351 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L10352" class="LineNr">10352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L10353" class="LineNr">10353 </span> 89/<- %esi 0/r32/eax -<span id="L10354" class="LineNr">10354 </span> <span class="subxComment">#</span> -<span id="L10355" class="LineNr">10355 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> -<span id="L10356" class="LineNr">10356 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> -<span id="L10357" class="LineNr">10357 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L10358" class="LineNr">10358 </span> 89/<- %ecx 0/r32/eax -<span id="L10359" class="LineNr">10359 </span> <span class="subxComment"># v->name</span> -<span id="L10360" class="LineNr">10360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L10361" class="LineNr">10361 </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#L10328'>test-parse-mu-var-def</a>/var-name"</span>) -<span id="L10362" class="LineNr">10362 </span> <span class="subxComment"># v->register</span> -<span id="L10363" class="LineNr">10363 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> -<span id="L10364" class="LineNr">10364 </span> <span class="subxComment"># v->block-depth</span> -<span id="L10365" class="LineNr">10365 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L10366" class="LineNr">10366 </span> <span class="subxComment"># v->type == int</span> -<span id="L10367" class="LineNr">10367 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L10368" class="LineNr">10368 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L10369" class="LineNr">10369 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L10370" class="LineNr">10370 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L10328'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L10371" class="LineNr">10371 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10372" class="LineNr">10372 </span> 89/<- %esp 5/r32/ebp -<span id="L10373" class="LineNr">10373 </span> 5d/pop-to-ebp -<span id="L10374" class="LineNr">10374 </span> c3/return -<span id="L10375" class="LineNr">10375 </span> -<span id="L10376" class="LineNr">10376 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: -<span id="L10377" class="LineNr">10377 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> -<span id="L10378" class="LineNr">10378 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10379" class="LineNr">10379 </span> 55/push-ebp -<span id="L10380" class="LineNr">10380 </span> 89/<- %ebp 4/r32/esp -<span id="L10381" class="LineNr">10381 </span> <span class="subxComment"># setup</span> -<span id="L10382" class="LineNr">10382 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L10383" class="LineNr">10383 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L10384" class="LineNr">10384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10385" class="LineNr">10385 </span> (<a href='../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="L10386" class="LineNr">10386 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 1/imm32 -<span id="L10387" class="LineNr">10387 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L10388" class="LineNr">10388 </span> 68/push 0/imm32 -<span id="L10389" class="LineNr">10389 </span> 68/push 0/imm32 -<span id="L10390" class="LineNr">10390 </span> 89/<- %esi 4/r32/esp -<span id="L10391" class="LineNr">10391 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L10392" class="LineNr">10392 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L10393" class="LineNr">10393 </span> 68/push 0xc0/imm32/size -<span id="L10394" class="LineNr">10394 </span> 68/push 0/imm32/top -<span id="L10395" class="LineNr">10395 </span> 89/<- %ecx 4/r32/esp -<span id="L10396" class="LineNr">10396 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L10397" class="LineNr">10397 </span> <span class="subxComment"># convert</span> -<span id="L10398" class="LineNr">10398 </span> (<a href='mu.subx.html#L10223'>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="L10399" class="LineNr">10399 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L10400" class="LineNr">10400 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L10401" class="LineNr">10401 </span> 89/<- %esi 0/r32/eax -<span id="L10402" class="LineNr">10402 </span> <span class="subxComment">#</span> -<span id="L10403" class="LineNr">10403 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> -<span id="L10404" class="LineNr">10404 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> -<span id="L10405" class="LineNr">10405 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> -<span id="L10406" class="LineNr">10406 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L10407" class="LineNr">10407 </span> <span class="subxS1Comment"># .</span> -<span id="L10408" class="LineNr">10408 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> -<span id="L10409" class="LineNr">10409 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> -<span id="L10410" class="LineNr">10410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L10411" class="LineNr">10411 </span> <span class="subxS1Comment"># . ecx = eax</span> -<span id="L10412" class="LineNr">10412 </span> 89/<- %ecx 0/r32/eax -<span id="L10413" class="LineNr">10413 </span> <span class="subxComment"># v->name</span> -<span id="L10414" class="LineNr">10414 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L10415" class="LineNr">10415 </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#L10376'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> -<span id="L10416" class="LineNr">10416 </span> <span class="subxComment"># v->register</span> -<span id="L10417" class="LineNr">10417 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L10418" class="LineNr">10418 </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#L10376'>test-parse-mu-reg-var-def</a>/output-register"</span>) -<span id="L10419" class="LineNr">10419 </span> <span class="subxComment"># v->block-depth</span> -<span id="L10420" class="LineNr">10420 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L10421" class="LineNr">10421 </span> <span class="subxComment"># v->type == int</span> -<span id="L10422" class="LineNr">10422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L10423" class="LineNr">10423 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L10424" class="LineNr">10424 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L10425" class="LineNr">10425 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L10376'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L10426" class="LineNr">10426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10427" class="LineNr">10427 </span> 89/<- %esp 5/r32/ebp -<span id="L10428" class="LineNr">10428 </span> 5d/pop-to-ebp -<span id="L10429" class="LineNr">10429 </span> c3/return -<span id="L10430" class="LineNr">10430 </span> -<span id="L10431" class="LineNr">10431 </span><span class="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="L10432" class="LineNr">10432 </span> <span class="subxComment"># Carefully push any outputs on the vars stack _after_ reading the inputs</span> -<span id="L10433" class="LineNr">10433 </span> <span class="subxComment"># that may conflict with them.</span> -<span id="L10434" class="LineNr">10434 </span> <span class="subxComment">#</span> -<span id="L10435" class="LineNr">10435 </span> <span class="subxComment"># The only situation in which outputs are pushed here (when it's not a</span> -<span id="L10436" class="LineNr">10436 </span> <span class="subxComment"># 'var' vardef stmt), and so can possibly conflict with inputs, is if the</span> -<span id="L10437" class="LineNr">10437 </span> <span class="subxComment"># output is a function output.</span> -<span id="L10438" class="LineNr">10438 </span> <span class="subxComment">#</span> -<span id="L10439" class="LineNr">10439 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10440" class="LineNr">10440 </span> <span class="subxComment"># var name: slice</span> -<span id="L10441" class="LineNr">10441 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L10442" class="LineNr">10442 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> -<span id="L10443" class="LineNr">10443 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L10444" class="LineNr">10444 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> -<span id="L10445" class="LineNr">10445 </span> <span class="subxComment"># while true</span> -<span id="L10446" class="LineNr">10446 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L10447" class="LineNr">10447 </span> <span class="subxComment"># if (name == '<-') break</span> -<span id="L10448" class="LineNr">10448 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L10449" class="LineNr">10449 </span> <span class="subxComment"># var v: (handle var) = lookup-var-or-find-in-fn-outputs(name, vars, fn)</span> -<span id="L10450" class="LineNr">10450 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> -<span id="L10451" class="LineNr">10451 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> -<span id="L10452" class="LineNr">10452 </span> <span class="subxComment"># for output in stmt->outputs:</span> -<span id="L10453" class="LineNr">10453 </span> <span class="subxComment"># maybe-define-var(output, vars)</span> -<span id="L10454" class="LineNr">10454 </span> <span class="subxComment">#</span> -<span id="L10455" class="LineNr">10455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10456" class="LineNr">10456 </span> 55/push-ebp -<span id="L10457" class="LineNr">10457 </span> 89/<- %ebp 4/r32/esp -<span id="L10458" class="LineNr">10458 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10459" class="LineNr">10459 </span> 50/push-eax -<span id="L10460" class="LineNr">10460 </span> 51/push-ecx -<span id="L10461" class="LineNr">10461 </span> 52/push-edx -<span id="L10462" class="LineNr">10462 </span> 53/push-ebx -<span id="L10463" class="LineNr">10463 </span> 57/push-edi -<span id="L10464" class="LineNr">10464 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L10465" class="LineNr">10465 </span> 68/push 0/imm32/end -<span id="L10466" class="LineNr">10466 </span> 68/push 0/imm32/start -<span id="L10467" class="LineNr">10467 </span> 89/<- %ecx 4/r32/esp -<span id="L10468" class="LineNr">10468 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L10469" class="LineNr">10469 </span> ba/copy-to-edx 0/imm32/false -<span id="L10470" class="LineNr">10470 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L10471" class="LineNr">10471 </span> 68/push 0/imm32 -<span id="L10472" class="LineNr">10472 </span> 68/push 0/imm32 -<span id="L10473" class="LineNr">10473 </span> 89/<- %ebx 4/r32/esp -<span id="L10474" class="LineNr">10474 </span> <span class="subxComment">#</span> -<span id="L10475" class="LineNr">10475 </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#L329'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L10476" class="LineNr">10476 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L10477" class="LineNr">10477 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L10478" class="LineNr">10478 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L10479" class="LineNr">10479 </span> 89/<- %edi 0/r32/eax -<span id="L10480" class="LineNr">10480 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> -<span id="L10481" class="LineNr">10481 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L10482" class="LineNr">10482 </span> { -<span id="L10483" class="LineNr">10483 </span> (<a href='mu.subx.html#L10682'>stmt-has-outputs?</a> *(ebp+8)) -<span id="L10484" class="LineNr">10484 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10485" class="LineNr">10485 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L10486" class="LineNr">10486 </span> { -<span id="L10487" class="LineNr">10487 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: -<span id="L10488" class="LineNr">10488 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L10489" class="LineNr">10489 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10490" class="LineNr">10490 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L10491" class="LineNr">10491 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L10492" class="LineNr">10492 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10493" class="LineNr">10493 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L10494" class="LineNr">10494 </span> <span class="subxComment"># if (name == "<-") break</span> -<span id="L10495" class="LineNr">10495 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L10496" class="LineNr">10496 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10497" class="LineNr">10497 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L10498" class="LineNr">10498 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L10499" class="LineNr">10499 </span> ba/copy-to-edx 0/imm32/false -<span id="L10500" class="LineNr">10500 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L10501" class="LineNr">10501 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L10502" class="LineNr">10502 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L10503" class="LineNr">10503 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L10504" class="LineNr">10504 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L10505" class="LineNr">10505 </span> { -<span id="L10506" class="LineNr">10506 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L10507" class="LineNr">10507 </span> ff 0/subop/increment *ecx -<span id="L10508" class="LineNr">10508 </span> ba/copy-to-edx 1/imm32/true -<span id="L10509" class="LineNr">10509 </span> } -<span id="L10510" class="LineNr">10510 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L10511" class="LineNr">10511 </span> (<a href='mu.subx.html#L9513'>is-identifier?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L10512" class="LineNr">10512 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10513" class="LineNr">10513 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 -<span id="L10514" class="LineNr">10514 </span> <span class="subxComment">#</span> -<span id="L10515" class="LineNr">10515 </span> (<a href='mu.subx.html#L11132'>lookup-var-or-find-in-fn-outputs</a> %ecx *(ebp+0xc) *(ebp+0x10) %ebx *(ebp+0x18) *(ebp+0x1c)) -<span id="L10516" class="LineNr">10516 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> -<span id="L10517" class="LineNr">10517 </span> (<a href='mu.subx.html#L11740'>append-stmt-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x14) *(edi+0x18) %edx %eax) <span class="subxComment"># Stmt1-outputs</span> -<span id="L10518" class="LineNr">10518 </span> <span class="subxComment">#</span> -<span id="L10519" class="LineNr">10519 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L10520" class="LineNr">10520 </span> } -<span id="L10521" class="LineNr">10521 </span> } -<span id="L10522" class="LineNr">10522 </span> (<a href='mu.subx.html#L10564'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10523" class="LineNr">10523 </span><span class="Constant">$parse-mu-stmt:define-outputs</span>: -<span id="L10524" class="LineNr">10524 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = lookup(out-addr->outputs)</span> -<span id="L10525" class="LineNr">10525 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x14) *(edi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L10526" class="LineNr">10526 </span> 89/<- %edi 0/r32/eax -<span id="L10527" class="LineNr">10527 </span> { -<span id="L10528" class="LineNr">10528 </span><span class="Constant">$parse-mu-stmt:define-outputs-loop</span>: -<span id="L10529" class="LineNr">10529 </span> <span class="subxComment"># if (output == null) break</span> -<span id="L10530" class="LineNr">10530 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L10531" class="LineNr">10531 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10532" class="LineNr">10532 </span> <span class="subxComment">#</span> -<span id="L10533" class="LineNr">10533 </span> (<a href='mu.subx.html#L11221'>maybe-define-var</a> *edi *(edi+4) *(ebp+0xc)) <span class="subxComment"># if output is a deref, then it's already been defined,</span> -<span id="L10534" class="LineNr">10534 </span> <span class="subxComment"># and must be in vars. This call will be a no-op, but safe.</span> -<span id="L10535" class="LineNr">10535 </span> <span class="subxComment"># output = output->next</span> -<span id="L10536" class="LineNr">10536 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L10537" class="LineNr">10537 </span> 89/<- %edi 0/r32/eax -<span id="L10538" class="LineNr">10538 </span> <span class="subxComment">#</span> -<span id="L10539" class="LineNr">10539 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L10540" class="LineNr">10540 </span> } -<span id="L10541" class="LineNr">10541 </span><span class="Constant">$parse-mu-stmt:end</span>: -<span id="L10542" class="LineNr">10542 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10543" class="LineNr">10543 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L10544" class="LineNr">10544 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10545" class="LineNr">10545 </span> 5f/pop-to-edi -<span id="L10546" class="LineNr">10546 </span> 5b/pop-to-ebx -<span id="L10547" class="LineNr">10547 </span> 5a/pop-to-edx -<span id="L10548" class="LineNr">10548 </span> 59/pop-to-ecx -<span id="L10549" class="LineNr">10549 </span> 58/pop-to-eax -<span id="L10550" class="LineNr">10550 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10551" class="LineNr">10551 </span> 89/<- %esp 5/r32/ebp -<span id="L10552" class="LineNr">10552 </span> 5d/pop-to-ebp -<span id="L10553" class="LineNr">10553 </span> c3/return -<span id="L10554" class="LineNr">10554 </span> -<span id="L10555" class="LineNr">10555 </span><span class="Constant">$parse-mu-stmt:abort</span>: -<span id="L10556" class="LineNr">10556 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L10557" class="LineNr">10557 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"invalid identifier '"</span>) -<span id="L10558" class="LineNr">10558 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L10559" class="LineNr">10559 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10560" class="LineNr">10560 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10561" class="LineNr">10561 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10562" class="LineNr">10562 </span> <span class="subxComment"># never gets here</span> -<span id="L10563" class="LineNr">10563 </span> -<span id="L10564" class="LineNr">10564 </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="L10565" class="LineNr">10565 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10566" class="LineNr">10566 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> -<span id="L10567" class="LineNr">10567 </span> <span class="subxComment"># while true</span> -<span id="L10568" class="LineNr">10568 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L10569" class="LineNr">10569 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> -<span id="L10570" class="LineNr">10570 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> -<span id="L10571" class="LineNr">10571 </span> <span class="subxComment">#</span> -<span id="L10572" class="LineNr">10572 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10573" class="LineNr">10573 </span> 55/push-ebp -<span id="L10574" class="LineNr">10574 </span> 89/<- %ebp 4/r32/esp -<span id="L10575" class="LineNr">10575 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10576" class="LineNr">10576 </span> 50/push-eax -<span id="L10577" class="LineNr">10577 </span> 51/push-ecx -<span id="L10578" class="LineNr">10578 </span> 52/push-edx -<span id="L10579" class="LineNr">10579 </span> 53/push-ebx -<span id="L10580" class="LineNr">10580 </span> 56/push-esi -<span id="L10581" class="LineNr">10581 </span> 57/push-edi -<span id="L10582" class="LineNr">10582 </span> <span class="subxComment"># edi = stmt</span> -<span id="L10583" class="LineNr">10583 </span> 8b/-> *(ebp+8) 7/r32/edi -<span id="L10584" class="LineNr">10584 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L10585" class="LineNr">10585 </span> 68/push 0/imm32/end -<span id="L10586" class="LineNr">10586 </span> 68/push 0/imm32/start -<span id="L10587" class="LineNr">10587 </span> 89/<- %ecx 4/r32/esp -<span id="L10588" class="LineNr">10588 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L10589" class="LineNr">10589 </span> ba/copy-to-edx 0/imm32/false -<span id="L10590" class="LineNr">10590 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L10591" class="LineNr">10591 </span> 68/push 0/imm32 -<span id="L10592" class="LineNr">10592 </span> 68/push 0/imm32 -<span id="L10593" class="LineNr">10593 </span> 89/<- %esi 4/r32/esp -<span id="L10594" class="LineNr">10594 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: -<span id="L10595" class="LineNr">10595 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L10596" class="LineNr">10596 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> -<span id="L10597" class="LineNr">10597 </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="L10598" class="LineNr">10598 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> -<span id="L10599" class="LineNr">10599 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L10600" class="LineNr">10600 </span> 89/<- %ebx 0/r32/eax -<span id="L10601" class="LineNr">10601 </span> { -<span id="L10602" class="LineNr">10602 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: -<span id="L10603" class="LineNr">10603 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L10604" class="LineNr">10604 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L10605" class="LineNr">10605 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L10606" class="LineNr">10606 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L10607" class="LineNr">10607 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10608" class="LineNr">10608 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L10609" class="LineNr">10609 </span> <span class="subxComment"># if (name == "<-") abort</span> -<span id="L10610" class="LineNr">10610 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L10611" class="LineNr">10611 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10612" class="LineNr">10612 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 -<span id="L10613" class="LineNr">10613 </span> <span class="subxComment"># if (is-get? && second operand) lookup or create offset</span> -<span id="L10614" class="LineNr">10614 </span> { -<span id="L10615" class="LineNr">10615 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L10616" class="LineNr">10616 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10617" class="LineNr">10617 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L10618" class="LineNr">10618 </span> 3d/compare-eax-and 0/imm32 -<span id="L10619" class="LineNr">10619 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10620" class="LineNr">10620 </span> (<a href='mu.subx.html#L11825'>lookup-or-create-constant</a> %eax %ecx %esi) -<span id="L10621" class="LineNr">10621 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L10622" class="LineNr">10622 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> -<span id="L10623" class="LineNr">10623 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L10624" class="LineNr">10624 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> -<span id="L10625" class="LineNr">10625 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L10626" class="LineNr">10626 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> -<span id="L10627" class="LineNr">10627 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L10628" class="LineNr">10628 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L10629" class="LineNr">10629 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L10630" class="LineNr">10630 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L10631" class="LineNr">10631 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 -<span id="L10632" class="LineNr">10632 </span> } -<span id="L10633" class="LineNr">10633 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L10634" class="LineNr">10634 </span> ba/copy-to-edx 0/imm32/false -<span id="L10635" class="LineNr">10635 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L10636" class="LineNr">10636 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L10637" class="LineNr">10637 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L10638" class="LineNr">10638 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L10639" class="LineNr">10639 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L10640" class="LineNr">10640 </span> { -<span id="L10641" class="LineNr">10641 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L10642" class="LineNr">10642 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: -<span id="L10643" class="LineNr">10643 </span> ff 0/subop/increment *ecx -<span id="L10644" class="LineNr">10644 </span> ba/copy-to-edx 1/imm32/true -<span id="L10645" class="LineNr">10645 </span> } -<span id="L10646" class="LineNr">10646 </span> (<a href='mu.subx.html#L10730'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10647" class="LineNr">10647 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: -<span id="L10648" class="LineNr">10648 </span> 8d/copy-address *(edi+0xc) 0/r32/eax -<span id="L10649" class="LineNr">10649 </span> (<a href='mu.subx.html#L11740'>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="L10650" class="LineNr">10650 </span> <span class="subxComment">#</span> -<span id="L10651" class="LineNr">10651 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L10652" class="LineNr">10652 </span> } -<span id="L10653" class="LineNr">10653 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: -<span id="L10654" class="LineNr">10654 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10655" class="LineNr">10655 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L10656" class="LineNr">10656 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10657" class="LineNr">10657 </span> 5f/pop-to-edi -<span id="L10658" class="LineNr">10658 </span> 5e/pop-to-esi -<span id="L10659" class="LineNr">10659 </span> 5b/pop-to-ebx -<span id="L10660" class="LineNr">10660 </span> 5a/pop-to-edx -<span id="L10661" class="LineNr">10661 </span> 59/pop-to-ecx -<span id="L10662" class="LineNr">10662 </span> 58/pop-to-eax -<span id="L10663" class="LineNr">10663 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10664" class="LineNr">10664 </span> 89/<- %esp 5/r32/ebp -<span id="L10665" class="LineNr">10665 </span> 5d/pop-to-ebp -<span id="L10666" class="LineNr">10666 </span> c3/return -<span id="L10667" class="LineNr">10667 </span> -<span id="L10668" class="LineNr">10668 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: -<span id="L10669" class="LineNr">10669 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> -<span id="L10670" class="LineNr">10670 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10671" class="LineNr">10671 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10672" class="LineNr">10672 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10673" class="LineNr">10673 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10674" class="LineNr">10674 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L10675" class="LineNr">10675 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) -<span id="L10676" class="LineNr">10676 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L10677" class="LineNr">10677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10678" class="LineNr">10678 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10679" class="LineNr">10679 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10680" class="LineNr">10680 </span> <span class="subxComment"># never gets here</span> -<span id="L10681" class="LineNr">10681 </span> -<span id="L10682" class="LineNr">10682 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> -<span id="L10683" class="LineNr">10683 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10684" class="LineNr">10684 </span> 55/push-ebp -<span id="L10685" class="LineNr">10685 </span> 89/<- %ebp 4/r32/esp -<span id="L10686" class="LineNr">10686 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10687" class="LineNr">10687 </span> 51/push-ecx -<span id="L10688" class="LineNr">10688 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L10689" class="LineNr">10689 </span> 68/push 0/imm32/end -<span id="L10690" class="LineNr">10690 </span> 68/push 0/imm32/start -<span id="L10691" class="LineNr">10691 </span> 89/<- %ecx 4/r32/esp -<span id="L10692" class="LineNr">10692 </span> <span class="subxComment"># result = false</span> -<span id="L10693" class="LineNr">10693 </span> b8/copy-to-eax 0/imm32/false -<span id="L10694" class="LineNr">10694 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L10695" class="LineNr">10695 </span> { -<span id="L10696" class="LineNr">10696 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L10697" class="LineNr">10697 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L10698" class="LineNr">10698 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L10699" class="LineNr">10699 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10700" class="LineNr">10700 </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="L10701" class="LineNr">10701 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L10702" class="LineNr">10702 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> -<span id="L10703" class="LineNr">10703 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L10704" class="LineNr">10704 </span> 8b/-> *ecx 0/r32/eax -<span id="L10705" class="LineNr">10705 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L10706" class="LineNr">10706 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L10707" class="LineNr">10707 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L10708" class="LineNr">10708 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L10709" class="LineNr">10709 </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="L10710" class="LineNr">10710 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L10711" class="LineNr">10711 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> -<span id="L10712" class="LineNr">10712 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L10713" class="LineNr">10713 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10714" class="LineNr">10714 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 -<span id="L10715" class="LineNr">10715 </span> b8/copy-to-eax 1/imm32/true -<span id="L10716" class="LineNr">10716 </span> } -<span id="L10717" class="LineNr">10717 </span><span class="Constant">$stmt-has-outputs:end</span>: -<span id="L10718" class="LineNr">10718 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L10719" class="LineNr">10719 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10720" class="LineNr">10720 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10721" class="LineNr">10721 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10722" class="LineNr">10722 </span> 59/pop-to-ecx -<span id="L10723" class="LineNr">10723 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10724" class="LineNr">10724 </span> 89/<- %esp 5/r32/ebp -<span id="L10725" class="LineNr">10725 </span> 5d/pop-to-ebp -<span id="L10726" class="LineNr">10726 </span> c3/return -<span id="L10727" class="LineNr">10727 </span> -<span id="L10728" class="LineNr">10728 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> -<span id="L10729" class="LineNr">10729 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L10730" class="LineNr">10730 </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="L10731" class="LineNr">10731 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10732" class="LineNr">10732 </span> 55/push-ebp -<span id="L10733" class="LineNr">10733 </span> 89/<- %ebp 4/r32/esp -<span id="L10734" class="LineNr">10734 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10735" class="LineNr">10735 </span> 50/push-eax -<span id="L10736" class="LineNr">10736 </span> 51/push-ecx -<span id="L10737" class="LineNr">10737 </span> 56/push-esi -<span id="L10738" class="LineNr">10738 </span> <span class="subxComment"># esi = name</span> -<span id="L10739" class="LineNr">10739 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L10740" class="LineNr">10740 </span> <span class="subxComment"># if slice-empty?(name) abort</span> -<span id="L10741" class="LineNr">10741 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L10742" class="LineNr">10742 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10743" class="LineNr">10743 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 -<span id="L10744" class="LineNr">10744 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> -<span id="L10745" class="LineNr">10745 </span> 8b/-> *esi 1/r32/ecx -<span id="L10746" class="LineNr">10746 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L10747" class="LineNr">10747 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L10748" class="LineNr">10748 </span> <span class="subxComment"># if (is-decimal-digit?(c) || c == '-') return new var(name)</span> -<span id="L10749" class="LineNr">10749 </span> { -<span id="L10750" class="LineNr">10750 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash -<span id="L10751" class="LineNr">10751 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 -<span id="L10752" class="LineNr">10752 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L10753" class="LineNr">10753 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10754" class="LineNr">10754 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10755" class="LineNr">10755 </span><span class="Constant">$lookup-var-or-literal:literal</span>: -<span id="L10756" class="LineNr">10756 </span> (<a href='mu.subx.html#L11456'>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="L10757" class="LineNr">10757 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L10758" class="LineNr">10758 </span> } -<span id="L10759" class="LineNr">10759 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> -<span id="L10760" class="LineNr">10760 </span> { -<span id="L10761" class="LineNr">10761 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote -<span id="L10762" class="LineNr">10762 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L10763" class="LineNr">10763 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: -<span id="L10764" class="LineNr">10764 </span> (<a href='mu.subx.html#L11566'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) -<span id="L10765" class="LineNr">10765 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L10766" class="LineNr">10766 </span> } -<span id="L10767" class="LineNr">10767 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> -<span id="L10768" class="LineNr">10768 </span> { -<span id="L10769" class="LineNr">10769 </span><span class="Constant">$lookup-var-or-literal:var</span>: -<span id="L10770" class="LineNr">10770 </span> (<a href='mu.subx.html#L10793'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10771" class="LineNr">10771 </span> } -<span id="L10772" class="LineNr">10772 </span><span class="Constant">$lookup-var-or-literal:end</span>: -<span id="L10773" class="LineNr">10773 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10774" class="LineNr">10774 </span> 5e/pop-to-esi -<span id="L10775" class="LineNr">10775 </span> 59/pop-to-ecx -<span id="L10776" class="LineNr">10776 </span> 58/pop-to-eax -<span id="L10777" class="LineNr">10777 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10778" class="LineNr">10778 </span> 89/<- %esp 5/r32/ebp -<span id="L10779" class="LineNr">10779 </span> 5d/pop-to-ebp -<span id="L10780" class="LineNr">10780 </span> c3/return -<span id="L10781" class="LineNr">10781 </span> -<span id="L10782" class="LineNr">10782 </span><span class="Constant">$lookup-var-or-literal:abort</span>: -<span id="L10783" class="LineNr">10783 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10784" class="LineNr">10784 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10785" class="LineNr">10785 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10786" class="LineNr">10786 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10787" class="LineNr">10787 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) -<span id="L10788" class="LineNr">10788 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10789" class="LineNr">10789 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10790" class="LineNr">10790 </span> <span class="subxComment"># never gets here</span> -<span id="L10791" class="LineNr">10791 </span> -<span id="L10792" class="LineNr">10792 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L10793" class="LineNr">10793 </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="L10794" class="LineNr">10794 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10795" class="LineNr">10795 </span> 55/push-ebp -<span id="L10796" class="LineNr">10796 </span> 89/<- %ebp 4/r32/esp -<span id="L10797" class="LineNr">10797 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10798" class="LineNr">10798 </span> 50/push-eax -<span id="L10799" class="LineNr">10799 </span> <span class="subxComment">#</span> -<span id="L10800" class="LineNr">10800 </span> (<a href='mu.subx.html#L10827'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L10801" class="LineNr">10801 </span> <span class="subxComment"># if (*out == 0) abort</span> -<span id="L10802" class="LineNr">10802 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L10803" class="LineNr">10803 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L10804" class="LineNr">10804 </span> 74/jump-if-= $lookup-var:abort/disp8 -<span id="L10805" class="LineNr">10805 </span><span class="Constant">$lookup-var:end</span>: -<span id="L10806" class="LineNr">10806 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10807" class="LineNr">10807 </span> 58/pop-to-eax -<span id="L10808" class="LineNr">10808 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10809" class="LineNr">10809 </span> 89/<- %esp 5/r32/ebp -<span id="L10810" class="LineNr">10810 </span> 5d/pop-to-ebp -<span id="L10811" class="LineNr">10811 </span> c3/return -<span id="L10812" class="LineNr">10812 </span> -<span id="L10813" class="LineNr">10813 </span><span class="Constant">$lookup-var:abort</span>: -<span id="L10814" class="LineNr">10814 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10815" class="LineNr">10815 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10816" class="LineNr">10816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10817" class="LineNr">10817 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10818" class="LineNr">10818 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) -<span id="L10819" class="LineNr">10819 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L10820" class="LineNr">10820 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10821" class="LineNr">10821 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10822" class="LineNr">10822 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10823" class="LineNr">10823 </span> <span class="subxComment"># never gets here</span> -<span id="L10824" class="LineNr">10824 </span> -<span id="L10825" class="LineNr">10825 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> -<span id="L10826" class="LineNr">10826 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> -<span id="L10827" class="LineNr">10827 </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="L10828" class="LineNr">10828 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10829" class="LineNr">10829 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L10830" class="LineNr">10830 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L10831" class="LineNr">10831 </span> <span class="subxComment"># while curr >= min</span> -<span id="L10832" class="LineNr">10832 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L10833" class="LineNr">10833 </span> <span class="subxComment"># if v->name == name</span> -<span id="L10834" class="LineNr">10834 </span> <span class="subxComment"># return</span> -<span id="L10835" class="LineNr">10835 </span> <span class="subxComment"># curr -= 12</span> -<span id="L10836" class="LineNr">10836 </span> <span class="subxComment">#</span> -<span id="L10837" class="LineNr">10837 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10838" class="LineNr">10838 </span> 55/push-ebp -<span id="L10839" class="LineNr">10839 </span> 89/<- %ebp 4/r32/esp -<span id="L10840" class="LineNr">10840 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10841" class="LineNr">10841 </span> 50/push-eax -<span id="L10842" class="LineNr">10842 </span> 51/push-ecx -<span id="L10843" class="LineNr">10843 </span> 52/push-edx -<span id="L10844" class="LineNr">10844 </span> 53/push-ebx -<span id="L10845" class="LineNr">10845 </span> 56/push-esi -<span id="L10846" class="LineNr">10846 </span> 57/push-edi -<span id="L10847" class="LineNr">10847 </span> <span class="subxComment"># clear out</span> -<span id="L10848" class="LineNr">10848 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L10849" class="LineNr">10849 </span> <span class="subxComment"># esi = vars</span> -<span id="L10850" class="LineNr">10850 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L10851" class="LineNr">10851 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L10852" class="LineNr">10852 </span> 8b/-> *esi 3/r32/ebx -<span id="L10853" class="LineNr">10853 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> -<span id="L10854" class="LineNr">10854 </span> 3b/compare<- *(esi+4) 0/r32/eax -<span id="L10855" class="LineNr">10855 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 -<span id="L10856" class="LineNr">10856 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L10857" class="LineNr">10857 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L10858" class="LineNr">10858 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L10859" class="LineNr">10859 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L10860" class="LineNr">10860 </span> <span class="subxComment"># var var-in-reg/edi: 8 addrs</span> -<span id="L10861" class="LineNr">10861 </span> 68/push 0/imm32 -<span id="L10862" class="LineNr">10862 </span> 68/push 0/imm32 -<span id="L10863" class="LineNr">10863 </span> 68/push 0/imm32 -<span id="L10864" class="LineNr">10864 </span> 68/push 0/imm32 -<span id="L10865" class="LineNr">10865 </span> 68/push 0/imm32 -<span id="L10866" class="LineNr">10866 </span> 68/push 0/imm32 -<span id="L10867" class="LineNr">10867 </span> 68/push 0/imm32 -<span id="L10868" class="LineNr">10868 </span> 68/push 0/imm32 -<span id="L10869" class="LineNr">10869 </span> 89/<- %edi 4/r32/esp -<span id="L10870" class="LineNr">10870 </span> { -<span id="L10871" class="LineNr">10871 </span><span class="Constant">$lookup-var-helper:loop</span>: -<span id="L10872" class="LineNr">10872 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L10873" class="LineNr">10873 </span> 39/compare %ebx 2/r32/edx -<span id="L10874" class="LineNr">10874 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L10875" class="LineNr">10875 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> -<span id="L10876" class="LineNr">10876 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L10877" class="LineNr">10877 </span> 89/<- %ecx 0/r32/eax -<span id="L10878" class="LineNr">10878 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L10879" class="LineNr">10879 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L10880" class="LineNr">10880 </span> <span class="subxComment"># if (vn == name) return curr</span> -<span id="L10881" class="LineNr">10881 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L10882" class="LineNr">10882 </span> 3d/compare-eax-and 0/imm32/false -<span id="L10883" class="LineNr">10883 </span> { -<span id="L10884" class="LineNr">10884 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10885" class="LineNr">10885 </span><span class="Constant">$lookup-var-helper:found</span>: -<span id="L10886" class="LineNr">10886 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L10887" class="LineNr">10887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L10888" class="LineNr">10888 </span> 3d/compare-eax-and 0/imm32 -<span id="L10889" class="LineNr">10889 </span> { -<span id="L10890" class="LineNr">10890 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L10891" class="LineNr">10891 </span><span class="Constant">$lookup-var-helper:found-register</span>: -<span id="L10892" class="LineNr">10892 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> -<span id="L10893" class="LineNr">10893 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L10894" class="LineNr">10894 </span> 8b/-> *eax 0/r32/eax -<span id="L10895" class="LineNr">10895 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> -<span id="L10896" class="LineNr">10896 </span> 8b/-> *(edi+eax<<2) 0/r32/eax -<span id="L10897" class="LineNr">10897 </span> 3d/compare-eax-and 0/imm32 -<span id="L10898" class="LineNr">10898 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 -<span id="L10899" class="LineNr">10899 </span> } -<span id="L10900" class="LineNr">10900 </span><span class="Constant">$lookup-var-helper:return</span>: -<span id="L10901" class="LineNr">10901 </span> <span class="subxComment"># esi = out</span> -<span id="L10902" class="LineNr">10902 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L10903" class="LineNr">10903 </span> <span class="subxComment"># *out = *curr</span> -<span id="L10904" class="LineNr">10904 </span> 8b/-> *ebx 0/r32/eax -<span id="L10905" class="LineNr">10905 </span> 89/<- *esi 0/r32/eax -<span id="L10906" class="LineNr">10906 </span> 8b/-> *(ebx+4) 0/r32/eax -<span id="L10907" class="LineNr">10907 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L10908" class="LineNr">10908 </span> <span class="subxComment"># return</span> -<span id="L10909" class="LineNr">10909 </span> eb/jump $lookup-var-helper:end/disp8 -<span id="L10910" class="LineNr">10910 </span> } -<span id="L10911" class="LineNr">10911 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> -<span id="L10912" class="LineNr">10912 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L10913" class="LineNr">10913 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L10914" class="LineNr">10914 </span> <span class="subxS1Comment"># . if (var == 0) continue</span> -<span id="L10915" class="LineNr">10915 </span> 3d/compare-eax-and 0/imm32 -<span id="L10916" class="LineNr">10916 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 -<span id="L10917" class="LineNr">10917 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> -<span id="L10918" class="LineNr">10918 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L10919" class="LineNr">10919 </span> 8b/-> *eax 0/r32/eax -<span id="L10920" class="LineNr">10920 </span> <span class="subxS1Comment"># . if (var-in-reg[reg] == 0) var-in-reg[reg] = v</span> -<span id="L10921" class="LineNr">10921 </span> 81 7/subop/compare *(edi+eax<<2) 0/imm32 -<span id="L10922" class="LineNr">10922 </span> 75/jump-if-!= $lookup-var-helper:continue/disp8 -<span id="L10923" class="LineNr">10923 </span> 89/<- *(edi+eax<<2) 1/r32/ecx -<span id="L10924" class="LineNr">10924 </span><span class="Constant">$lookup-var-helper:continue</span>: -<span id="L10925" class="LineNr">10925 </span> <span class="subxComment"># curr -= 12</span> -<span id="L10926" class="LineNr">10926 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L10927" class="LineNr">10927 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L10928" class="LineNr">10928 </span> } -<span id="L10929" class="LineNr">10929 </span><span class="Constant">$lookup-var-helper:end</span>: -<span id="L10930" class="LineNr">10930 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L10931" class="LineNr">10931 </span> 81 0/subop/add %esp 0x20/imm32 -<span id="L10932" class="LineNr">10932 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L10933" class="LineNr">10933 </span> 5f/pop-to-edi -<span id="L10934" class="LineNr">10934 </span> 5e/pop-to-esi -<span id="L10935" class="LineNr">10935 </span> 5b/pop-to-ebx -<span id="L10936" class="LineNr">10936 </span> 5a/pop-to-edx -<span id="L10937" class="LineNr">10937 </span> 59/pop-to-ecx -<span id="L10938" class="LineNr">10938 </span> 58/pop-to-eax -<span id="L10939" class="LineNr">10939 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10940" class="LineNr">10940 </span> 89/<- %esp 5/r32/ebp -<span id="L10941" class="LineNr">10941 </span> 5d/pop-to-ebp -<span id="L10942" class="LineNr">10942 </span> c3/return -<span id="L10943" class="LineNr">10943 </span> -<span id="L10944" class="LineNr">10944 </span><span class="Constant">$lookup-var-helper:error1</span>: -<span id="L10945" class="LineNr">10945 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10946" class="LineNr">10946 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10947" class="LineNr">10947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10948" class="LineNr">10948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10949" class="LineNr">10949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) -<span id="L10950" class="LineNr">10950 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L10951" class="LineNr">10951 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10952" class="LineNr">10952 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10953" class="LineNr">10953 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10954" class="LineNr">10954 </span> <span class="subxComment"># never gets here</span> -<span id="L10955" class="LineNr">10955 </span> -<span id="L10956" class="LineNr">10956 </span><span class="Constant">$lookup-var-helper:error2</span>: -<span id="L10957" class="LineNr">10957 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> -<span id="L10958" class="LineNr">10958 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L10959" class="LineNr">10959 </span> 50/push-eax -<span id="L10960" class="LineNr">10960 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L10961" class="LineNr">10961 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L10962" class="LineNr">10962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10963" class="LineNr">10963 </span> 58/pop-eax -<span id="L10964" class="LineNr">10964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) -<span id="L10965" class="LineNr">10965 </span> 50/push-eax -<span id="L10966" class="LineNr">10966 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L10967" class="LineNr">10967 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10968" class="LineNr">10968 </span> 58/pop-to-eax -<span id="L10969" class="LineNr">10969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) -<span id="L10970" class="LineNr">10970 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L10971" class="LineNr">10971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) -<span id="L10972" class="LineNr">10972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L10973" class="LineNr">10973 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L10974" class="LineNr">10974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L10975" class="LineNr">10975 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L10976" class="LineNr">10976 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L10977" class="LineNr">10977 </span> <span class="subxComment"># never gets here</span> -<span id="L10978" class="LineNr">10978 </span> -<span id="L10979" class="LineNr">10979 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> -<span id="L10980" class="LineNr">10980 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10981" class="LineNr">10981 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L10982" class="LineNr">10982 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L10983" class="LineNr">10983 </span> <span class="subxComment"># while curr >= min</span> -<span id="L10984" class="LineNr">10984 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L10985" class="LineNr">10985 </span> <span class="subxComment"># print v</span> -<span id="L10986" class="LineNr">10986 </span> <span class="subxComment"># curr -= 12</span> -<span id="L10987" class="LineNr">10987 </span> <span class="subxComment">#</span> -<span id="L10988" class="LineNr">10988 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10989" class="LineNr">10989 </span> 55/push-ebp -<span id="L10990" class="LineNr">10990 </span> 89/<- %ebp 4/r32/esp -<span id="L10991" class="LineNr">10991 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L10992" class="LineNr">10992 </span> 52/push-edx -<span id="L10993" class="LineNr">10993 </span> 53/push-ebx -<span id="L10994" class="LineNr">10994 </span> 56/push-esi -<span id="L10995" class="LineNr">10995 </span> <span class="subxComment"># esi = vars</span> -<span id="L10996" class="LineNr">10996 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L10997" class="LineNr">10997 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L10998" class="LineNr">10998 </span> 8b/-> *esi 3/r32/ebx -<span id="L10999" class="LineNr">10999 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L11000" class="LineNr">11000 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L11001" class="LineNr">11001 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L11002" class="LineNr">11002 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L11003" class="LineNr">11003 </span> { -<span id="L11004" class="LineNr">11004 </span><span class="Constant">$dump-vars:loop</span>: -<span id="L11005" class="LineNr">11005 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L11006" class="LineNr">11006 </span> 39/compare %ebx 2/r32/edx -<span id="L11007" class="LineNr">11007 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L11008" class="LineNr">11008 </span> <span class="subxComment">#</span> -<span id="L11009" class="LineNr">11009 </span> (<a href='../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="L11010" class="LineNr">11010 </span> (<a href='mu.subx.html#L12866'>dump-var</a> 2 %ebx) -<span id="L11011" class="LineNr">11011 </span> <span class="subxComment"># curr -= 12</span> -<span id="L11012" class="LineNr">11012 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L11013" class="LineNr">11013 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L11014" class="LineNr">11014 </span> } -<span id="L11015" class="LineNr">11015 </span><span class="Constant">$dump-vars:end</span>: -<span id="L11016" class="LineNr">11016 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11017" class="LineNr">11017 </span> 5e/pop-to-esi -<span id="L11018" class="LineNr">11018 </span> 5b/pop-to-ebx -<span id="L11019" class="LineNr">11019 </span> 5a/pop-to-edx -<span id="L11020" class="LineNr">11020 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11021" class="LineNr">11021 </span> 89/<- %esp 5/r32/ebp -<span id="L11022" class="LineNr">11022 </span> 5d/pop-to-ebp -<span id="L11023" class="LineNr">11023 </span> c3/return -<span id="L11024" class="LineNr">11024 </span> -<span id="L11025" class="LineNr">11025 </span>== data -<span id="L11026" class="LineNr">11026 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> -<span id="L11027" class="LineNr">11027 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L11028" class="LineNr">11028 </span> <span class="subxComment"># a table is a stream</span> -<span id="L11029" class="LineNr">11029 </span> 0xa8/imm32/write -<span id="L11030" class="LineNr">11030 </span> 0/imm32/read -<span id="L11031" class="LineNr">11031 </span> 0xa8/imm32/length -<span id="L11032" class="LineNr">11032 </span> <span class="subxComment"># data</span> -<span id="L11033" class="LineNr">11033 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L11034" class="LineNr">11034 </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="L11035" class="LineNr">11035 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L11036" class="LineNr">11036 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L11037" class="LineNr">11037 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L11038" class="LineNr">11038 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L11039" class="LineNr">11039 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L11040" class="LineNr">11040 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L11041" class="LineNr">11041 </span> <span class="subxComment"># floating-point registers</span> -<span id="L11042" class="LineNr">11042 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 -<span id="L11043" class="LineNr">11043 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 -<span id="L11044" class="LineNr">11044 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 -<span id="L11045" class="LineNr">11045 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 -<span id="L11046" class="LineNr">11046 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 -<span id="L11047" class="LineNr">11047 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 -<span id="L11048" class="LineNr">11048 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 -<span id="L11049" class="LineNr">11049 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 -<span id="L11050" class="LineNr">11050 </span> -<span id="L11051" class="LineNr">11051 </span><span class="Constant">$Mu-register-eax</span>: -<span id="L11052" class="LineNr">11052 </span> 0x11/imm32/alloc-id -<span id="L11053" class="LineNr">11053 </span> 3/imm32/size -<span id="L11054" class="LineNr">11054 </span> 0x65/e 0x61/a 0x78/x -<span id="L11055" class="LineNr">11055 </span> -<span id="L11056" class="LineNr">11056 </span><span class="Constant">$Mu-register-ecx</span>: -<span id="L11057" class="LineNr">11057 </span> 0x11/imm32/alloc-id -<span id="L11058" class="LineNr">11058 </span> 3/imm32/size -<span id="L11059" class="LineNr">11059 </span> 0x65/e 0x63/c 0x78/x -<span id="L11060" class="LineNr">11060 </span> -<span id="L11061" class="LineNr">11061 </span><span class="Constant">$Mu-register-edx</span>: -<span id="L11062" class="LineNr">11062 </span> 0x11/imm32/alloc-id -<span id="L11063" class="LineNr">11063 </span> 3/imm32/size -<span id="L11064" class="LineNr">11064 </span> 0x65/e 0x64/d 0x78/x -<span id="L11065" class="LineNr">11065 </span> -<span id="L11066" class="LineNr">11066 </span><span class="Constant">$Mu-register-ebx</span>: -<span id="L11067" class="LineNr">11067 </span> 0x11/imm32/alloc-id -<span id="L11068" class="LineNr">11068 </span> 3/imm32/size -<span id="L11069" class="LineNr">11069 </span> 0x65/e 0x62/b 0x78/x -<span id="L11070" class="LineNr">11070 </span> -<span id="L11071" class="LineNr">11071 </span><span class="Constant">$Mu-register-esi</span>: -<span id="L11072" class="LineNr">11072 </span> 0x11/imm32/alloc-id -<span id="L11073" class="LineNr">11073 </span> 3/imm32/size -<span id="L11074" class="LineNr">11074 </span> 0x65/e 0x73/s 0x69/i -<span id="L11075" class="LineNr">11075 </span> -<span id="L11076" class="LineNr">11076 </span><span class="Constant">$Mu-register-edi</span>: -<span id="L11077" class="LineNr">11077 </span> 0x11/imm32/alloc-id -<span id="L11078" class="LineNr">11078 </span> 3/imm32/size -<span id="L11079" class="LineNr">11079 </span> 0x65/e 0x64/d 0x69/i -<span id="L11080" class="LineNr">11080 </span> -<span id="L11081" class="LineNr">11081 </span><span class="Constant">$Mu-register-xmm0</span>: -<span id="L11082" class="LineNr">11082 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11083" class="LineNr">11083 </span> <span class="subxComment"># "xmm0"</span> -<span id="L11084" class="LineNr">11084 </span> 0x4/imm32/size -<span id="L11085" class="LineNr">11085 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 -<span id="L11086" class="LineNr">11086 </span> -<span id="L11087" class="LineNr">11087 </span><span class="Constant">$Mu-register-xmm1</span>: -<span id="L11088" class="LineNr">11088 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11089" class="LineNr">11089 </span> <span class="subxComment"># "xmm1"</span> -<span id="L11090" class="LineNr">11090 </span> 0x4/imm32/size -<span id="L11091" class="LineNr">11091 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 -<span id="L11092" class="LineNr">11092 </span> -<span id="L11093" class="LineNr">11093 </span><span class="Constant">$Mu-register-xmm2</span>: -<span id="L11094" class="LineNr">11094 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11095" class="LineNr">11095 </span> <span class="subxComment"># "xmm2"</span> -<span id="L11096" class="LineNr">11096 </span> 0x4/imm32/size -<span id="L11097" class="LineNr">11097 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 -<span id="L11098" class="LineNr">11098 </span> -<span id="L11099" class="LineNr">11099 </span><span class="Constant">$Mu-register-xmm3</span>: -<span id="L11100" class="LineNr">11100 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11101" class="LineNr">11101 </span> <span class="subxComment"># "xmm3"</span> -<span id="L11102" class="LineNr">11102 </span> 0x4/imm32/size -<span id="L11103" class="LineNr">11103 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 -<span id="L11104" class="LineNr">11104 </span> -<span id="L11105" class="LineNr">11105 </span><span class="Constant">$Mu-register-xmm4</span>: -<span id="L11106" class="LineNr">11106 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11107" class="LineNr">11107 </span> <span class="subxComment"># "xmm4"</span> -<span id="L11108" class="LineNr">11108 </span> 0x4/imm32/size -<span id="L11109" class="LineNr">11109 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 -<span id="L11110" class="LineNr">11110 </span> -<span id="L11111" class="LineNr">11111 </span><span class="Constant">$Mu-register-xmm5</span>: -<span id="L11112" class="LineNr">11112 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11113" class="LineNr">11113 </span> <span class="subxComment"># "xmm5"</span> -<span id="L11114" class="LineNr">11114 </span> 0x4/imm32/size -<span id="L11115" class="LineNr">11115 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 -<span id="L11116" class="LineNr">11116 </span> -<span id="L11117" class="LineNr">11117 </span><span class="Constant">$Mu-register-xmm6</span>: -<span id="L11118" class="LineNr">11118 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11119" class="LineNr">11119 </span> <span class="subxComment"># "xmm6"</span> -<span id="L11120" class="LineNr">11120 </span> 0x4/imm32/size -<span id="L11121" class="LineNr">11121 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 -<span id="L11122" class="LineNr">11122 </span> -<span id="L11123" class="LineNr">11123 </span><span class="Constant">$Mu-register-xmm7</span>: -<span id="L11124" class="LineNr">11124 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L11125" class="LineNr">11125 </span> <span class="subxComment"># "xmm7"</span> -<span id="L11126" class="LineNr">11126 </span> 0x4/imm32/size -<span id="L11127" class="LineNr">11127 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L10149" class="LineNr">10149 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) +<span id="L10150" class="LineNr">10150 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L10151" class="LineNr">10151 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10152" class="LineNr">10152 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10153" class="LineNr">10153 </span> <span class="subxComment"># never gets here</span> +<span id="L10154" class="LineNr">10154 </span> +<span id="L10155" class="LineNr">10155 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> +<span id="L10156" class="LineNr">10156 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10157" class="LineNr">10157 </span> 55/push-ebp +<span id="L10158" class="LineNr">10158 </span> 89/<- %ebp 4/r32/esp +<span id="L10159" class="LineNr">10159 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10160" class="LineNr">10160 </span> 50/push-eax +<span id="L10161" class="LineNr">10161 </span> 51/push-ecx +<span id="L10162" class="LineNr">10162 </span> 52/push-edx +<span id="L10163" class="LineNr">10163 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> +<span id="L10164" class="LineNr">10164 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L10165" class="LineNr">10165 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10166" class="LineNr">10166 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> +<span id="L10167" class="LineNr">10167 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> +<span id="L10168" class="LineNr">10168 </span> 89/<- %ecx 0/r32/eax +<span id="L10169" class="LineNr">10169 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> +<span id="L10170" class="LineNr">10170 </span> 29/subtract-from %esp 1/r32/ecx +<span id="L10171" class="LineNr">10171 </span> ff 6/subop/push %ecx +<span id="L10172" class="LineNr">10172 </span> 68/push 0/imm32/read +<span id="L10173" class="LineNr">10173 </span> 68/push 0/imm32/write +<span id="L10174" class="LineNr">10174 </span> 89/<- %edx 4/r32/esp +<span id="L10175" class="LineNr">10175 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %edx) +<span id="L10176" class="LineNr">10176 </span> <span class="subxComment"># eax = fn->name</span> +<span id="L10177" class="LineNr">10177 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L10178" class="LineNr">10178 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10179" class="LineNr">10179 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> +<span id="L10180" class="LineNr">10180 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) +<span id="L10181" class="LineNr">10181 </span> (<a href='../108write.subx.html#L24'>write</a> %edx %eax) +<span id="L10182" class="LineNr">10182 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) +<span id="L10183" class="LineNr">10183 </span> (<a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L7944'>Next-block-index</a></span>) +<span id="L10184" class="LineNr">10184 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7944'>Next-block-index</a></span> +<span id="L10185" class="LineNr">10185 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> +<span id="L10186" class="LineNr">10186 </span> <span class="subxS1Comment"># . eax = name->write</span> +<span id="L10187" class="LineNr">10187 </span> 8b/-> *edx 0/r32/eax +<span id="L10188" class="LineNr">10188 </span> <span class="subxS1Comment"># . edx = name->data</span> +<span id="L10189" class="LineNr">10189 </span> 8d/copy-address *(edx+0xc) 2/r32/edx +<span id="L10190" class="LineNr">10190 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> +<span id="L10191" class="LineNr">10191 </span> 01/add-to %eax 2/r32/edx +<span id="L10192" class="LineNr">10192 </span> <span class="subxS1Comment"># . push {edx, eax}</span> +<span id="L10193" class="LineNr">10193 </span> ff 6/subop/push %eax +<span id="L10194" class="LineNr">10194 </span> ff 6/subop/push %edx +<span id="L10195" class="LineNr">10195 </span> 89/<- %eax 4/r32/esp +<span id="L10196" class="LineNr">10196 </span> <span class="subxComment"># out = new literal(s)</span> +<span id="L10197" class="LineNr">10197 </span> (<a href='mu.subx.html#L11696'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) +<span id="L10198" class="LineNr">10198 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> +<span id="L10199" class="LineNr">10199 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> +<span id="L10200" class="LineNr">10200 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> +<span id="L10201" class="LineNr">10201 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> +<span id="L10202" class="LineNr">10202 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L10203" class="LineNr">10203 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L10204" class="LineNr">10204 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L10205" class="LineNr">10205 </span><span class="Constant">$new-block-name:end</span>: +<span id="L10206" class="LineNr">10206 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10207" class="LineNr">10207 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> +<span id="L10208" class="LineNr">10208 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> +<span id="L10209" class="LineNr">10209 </span> 01/add-to %esp 1/r32/ecx +<span id="L10210" class="LineNr">10210 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10211" class="LineNr">10211 </span> 5a/pop-to-edx +<span id="L10212" class="LineNr">10212 </span> 59/pop-to-ecx +<span id="L10213" class="LineNr">10213 </span> 58/pop-to-eax +<span id="L10214" class="LineNr">10214 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10215" class="LineNr">10215 </span> 89/<- %esp 5/r32/ebp +<span id="L10216" class="LineNr">10216 </span> 5d/pop-to-ebp +<span id="L10217" class="LineNr">10217 </span> c3/return +<span id="L10218" class="LineNr">10218 </span> +<span id="L10219" class="LineNr">10219 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L10220" class="LineNr">10220 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10221" class="LineNr">10221 </span> 55/push-ebp +<span id="L10222" class="LineNr">10222 </span> 89/<- %ebp 4/r32/esp +<span id="L10223" class="LineNr">10223 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10224" class="LineNr">10224 </span> 50/push-eax +<span id="L10225" class="LineNr">10225 </span> 51/push-ecx +<span id="L10226" class="LineNr">10226 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L10227" class="LineNr">10227 </span> 68/push 0/imm32/end +<span id="L10228" class="LineNr">10228 </span> 68/push 0/imm32/start +<span id="L10229" class="LineNr">10229 </span> 89/<- %ecx 4/r32/esp +<span id="L10230" class="LineNr">10230 </span> <span class="subxComment">#</span> +<span id="L10231" class="LineNr">10231 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10232" class="LineNr">10232 </span> <span class="subxComment"># if slice-empty?(s) return</span> +<span id="L10233" class="LineNr">10233 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L10234" class="LineNr">10234 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10235" class="LineNr">10235 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 +<span id="L10236" class="LineNr">10236 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> +<span id="L10237" class="LineNr">10237 </span> <span class="subxS1Comment"># . eax = *s->start</span> +<span id="L10238" class="LineNr">10238 </span> 8b/-> *edx 0/r32/eax +<span id="L10239" class="LineNr">10239 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10240" class="LineNr">10240 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10241" class="LineNr">10241 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L10242" class="LineNr">10242 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L10243" class="LineNr">10243 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 +<span id="L10244" class="LineNr">10244 </span> <span class="subxComment"># abort</span> +<span id="L10245" class="LineNr">10245 </span> (<a href='../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="L10246" class="LineNr">10246 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L10247" class="LineNr">10247 </span> (<a href='../113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L10248" class="LineNr">10248 </span> (<a href='../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="L10249" class="LineNr">10249 </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="L10250" class="LineNr">10250 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L10251" class="LineNr">10251 </span> bb/copy-to-ebx 1/imm32 +<span id="L10252" class="LineNr">10252 </span> e8/call syscall_exit/disp32 +<span id="L10253" class="LineNr">10253 </span> <span class="subxComment"># never gets here</span> +<span id="L10254" class="LineNr">10254 </span><span class="Constant">$check-no-tokens-left:end</span>: +<span id="L10255" class="LineNr">10255 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10256" class="LineNr">10256 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10257" class="LineNr">10257 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10258" class="LineNr">10258 </span> 59/pop-to-ecx +<span id="L10259" class="LineNr">10259 </span> 58/pop-to-eax +<span id="L10260" class="LineNr">10260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10261" class="LineNr">10261 </span> 89/<- %esp 5/r32/ebp +<span id="L10262" class="LineNr">10262 </span> 5d/pop-to-ebp +<span id="L10263" class="LineNr">10263 </span> c3/return +<span id="L10264" class="LineNr">10264 </span> +<span id="L10265" class="LineNr">10265 </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="L10266" class="LineNr">10266 </span> <span class="subxComment"># pseudocode:</span> +<span id="L10267" class="LineNr">10267 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L10268" class="LineNr">10268 </span> <span class="subxComment"># new-literal(name, v)</span> +<span id="L10269" class="LineNr">10269 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L10270" class="LineNr">10270 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> +<span id="L10271" class="LineNr">10271 </span> <span class="subxComment"># pop(vars)</span> +<span id="L10272" class="LineNr">10272 </span> <span class="subxComment"># out->tag = block</span> +<span id="L10273" class="LineNr">10273 </span> <span class="subxComment"># out->var = v</span> +<span id="L10274" class="LineNr">10274 </span> <span class="subxComment">#</span> +<span id="L10275" class="LineNr">10275 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10276" class="LineNr">10276 </span> 55/push-ebp +<span id="L10277" class="LineNr">10277 </span> 89/<- %ebp 4/r32/esp +<span id="L10278" class="LineNr">10278 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10279" class="LineNr">10279 </span> 50/push-eax +<span id="L10280" class="LineNr">10280 </span> 51/push-ecx +<span id="L10281" class="LineNr">10281 </span> 57/push-edi +<span id="L10282" class="LineNr">10282 </span> <span class="subxComment"># var v/ecx: (handle var)</span> +<span id="L10283" class="LineNr">10283 </span> 68/push 0/imm32 +<span id="L10284" class="LineNr">10284 </span> 68/push 0/imm32 +<span id="L10285" class="LineNr">10285 </span> 89/<- %ecx 4/r32/esp +<span id="L10286" class="LineNr">10286 </span> <span class="subxComment">#</span> +<span id="L10287" class="LineNr">10287 </span> (<a href='mu.subx.html#L11696'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) +<span id="L10288" class="LineNr">10288 </span> <span class="subxComment"># push(vars, v)</span> +<span id="L10289" class="LineNr">10289 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) +<span id="L10290" class="LineNr">10290 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) +<span id="L10291" class="LineNr">10291 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L10292" class="LineNr">10292 </span> <span class="subxComment">#</span> +<span id="L10293" class="LineNr">10293 </span> (<a href='mu.subx.html#L9935'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) +<span id="L10294" class="LineNr">10294 </span> <span class="subxComment"># pop v off vars</span> +<span id="L10295" class="LineNr">10295 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L10296" class="LineNr">10296 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L10297" class="LineNr">10297 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L10298" class="LineNr">10298 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L10299" class="LineNr">10299 </span> 8b/-> *(ebp+0x18) 7/r32/edi +<span id="L10300" class="LineNr">10300 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L10301" class="LineNr">10301 </span> 89/<- %edi 0/r32/eax +<span id="L10302" class="LineNr">10302 </span> <span class="subxComment"># out-addr->tag = named-block</span> +<span id="L10303" class="LineNr">10303 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L10304" class="LineNr">10304 </span> <span class="subxComment"># out-addr->var = v</span> +<span id="L10305" class="LineNr">10305 </span> 8b/-> *ecx 0/r32/eax +<span id="L10306" class="LineNr">10306 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L10307" class="LineNr">10307 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L10308" class="LineNr">10308 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L10309" class="LineNr">10309 </span><span class="Constant">$parse-mu-named-block:end</span>: +<span id="L10310" class="LineNr">10310 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10311" class="LineNr">10311 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10312" class="LineNr">10312 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10313" class="LineNr">10313 </span> 5f/pop-to-edi +<span id="L10314" class="LineNr">10314 </span> 59/pop-to-ecx +<span id="L10315" class="LineNr">10315 </span> 58/pop-to-eax +<span id="L10316" class="LineNr">10316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10317" class="LineNr">10317 </span> 89/<- %esp 5/r32/ebp +<span id="L10318" class="LineNr">10318 </span> 5d/pop-to-ebp +<span id="L10319" class="LineNr">10319 </span> c3/return +<span id="L10320" class="LineNr">10320 </span> +<span id="L10321" class="LineNr">10321 </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="L10322" class="LineNr">10322 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10323" class="LineNr">10323 </span> 55/push-ebp +<span id="L10324" class="LineNr">10324 </span> 89/<- %ebp 4/r32/esp +<span id="L10325" class="LineNr">10325 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10326" class="LineNr">10326 </span> 50/push-eax +<span id="L10327" class="LineNr">10327 </span> 51/push-ecx +<span id="L10328" class="LineNr">10328 </span> 52/push-edx +<span id="L10329" class="LineNr">10329 </span> 53/push-ebx +<span id="L10330" class="LineNr">10330 </span> 57/push-edi +<span id="L10331" class="LineNr">10331 </span> <span class="subxComment"># edi = out</span> +<span id="L10332" class="LineNr">10332 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L10333" class="LineNr">10333 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L10334" class="LineNr">10334 </span> 68/push 0/imm32/end +<span id="L10335" class="LineNr">10335 </span> 68/push 0/imm32/start +<span id="L10336" class="LineNr">10336 </span> 89/<- %ecx 4/r32/esp +<span id="L10337" class="LineNr">10337 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L10338" class="LineNr">10338 </span> 68/push 0/imm32 +<span id="L10339" class="LineNr">10339 </span> 68/push 0/imm32 +<span id="L10340" class="LineNr">10340 </span> 89/<- %edx 4/r32/esp +<span id="L10341" class="LineNr">10341 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> +<span id="L10342" class="LineNr">10342 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10343" class="LineNr">10343 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %ecx *(ebp+8) %edx *(ebp+0x18) *(ebp+0x1c)) +<span id="L10344" class="LineNr">10344 </span> <span class="subxComment"># var v-addr/eax: (addr var)</span> +<span id="L10345" class="LineNr">10345 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L10346" class="LineNr">10346 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L10347" class="LineNr">10347 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 3/r32/ebx +<span id="L10348" class="LineNr">10348 </span> 89/<- *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L10349" class="LineNr">10349 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> +<span id="L10350" class="LineNr">10350 </span> 8b/-> *(eax+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L10351" class="LineNr">10351 </span> 3d/compare-eax-and 0/imm32 +<span id="L10352" class="LineNr">10352 </span> { +<span id="L10353" class="LineNr">10353 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L10354" class="LineNr">10354 </span> <span class="subxComment"># TODO: disallow vars of type 'byte' on the stack</span> +<span id="L10355" class="LineNr">10355 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> +<span id="L10356" class="LineNr">10356 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10357" class="LineNr">10357 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L10358" class="LineNr">10358 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10359" class="LineNr">10359 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 +<span id="L10360" class="LineNr">10360 </span> <span class="subxComment">#</span> +<span id="L10361" class="LineNr">10361 </span> (<a href='mu.subx.html#L11759'>new-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L10362" class="LineNr">10362 </span> e9/jump $parse-mu-var-def:update-vars/disp32 +<span id="L10363" class="LineNr">10363 </span> } +<span id="L10364" class="LineNr">10364 </span> <span class="subxComment"># or v has a register and there's more to this line</span> +<span id="L10365" class="LineNr">10365 </span> { +<span id="L10366" class="LineNr">10366 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L10367" class="LineNr">10367 </span> <span class="subxComment"># TODO: disallow vars of type 'byte' in registers 'esi' or 'edi'</span> +<span id="L10368" class="LineNr">10368 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> +<span id="L10369" class="LineNr">10369 </span> <span class="subxComment"># ensure that the next word is '<-'</span> +<span id="L10370" class="LineNr">10370 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10371" class="LineNr">10371 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L10372" class="LineNr">10372 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10373" class="LineNr">10373 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 +<span id="L10374" class="LineNr">10374 </span> <span class="subxComment">#</span> +<span id="L10375" class="LineNr">10375 </span> (<a href='mu.subx.html#L11787'>new-reg-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L10376" class="LineNr">10376 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L10377" class="LineNr">10377 </span> (<a href='mu.subx.html#L10662'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10378" class="LineNr">10378 </span> } +<span id="L10379" class="LineNr">10379 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: +<span id="L10380" class="LineNr">10380 </span> <span class="subxComment"># push 'v' at end of function</span> +<span id="L10381" class="LineNr">10381 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) +<span id="L10382" class="LineNr">10382 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) +<span id="L10383" class="LineNr">10383 </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="L10384" class="LineNr">10384 </span><span class="Constant">$parse-mu-var-def:end</span>: +<span id="L10385" class="LineNr">10385 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10386" class="LineNr">10386 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L10387" class="LineNr">10387 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10388" class="LineNr">10388 </span> 5f/pop-to-edi +<span id="L10389" class="LineNr">10389 </span> 5b/pop-to-ebx +<span id="L10390" class="LineNr">10390 </span> 5a/pop-to-edx +<span id="L10391" class="LineNr">10391 </span> 59/pop-to-ecx +<span id="L10392" class="LineNr">10392 </span> 58/pop-to-eax +<span id="L10393" class="LineNr">10393 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10394" class="LineNr">10394 </span> 89/<- %esp 5/r32/ebp +<span id="L10395" class="LineNr">10395 </span> 5d/pop-to-ebp +<span id="L10396" class="LineNr">10396 </span> c3/return +<span id="L10397" class="LineNr">10397 </span> +<span id="L10398" class="LineNr">10398 </span><span class="Constant">$parse-mu-var-def:error1</span>: +<span id="L10399" class="LineNr">10399 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L10400" class="LineNr">10400 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> +<span id="L10401" class="LineNr">10401 </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="L10402" class="LineNr">10402 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10403" class="LineNr">10403 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) +<span id="L10404" class="LineNr">10404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L10405" class="LineNr">10405 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10406" class="LineNr">10406 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10407" class="LineNr">10407 </span> <span class="subxComment"># never gets here</span> +<span id="L10408" class="LineNr">10408 </span> +<span id="L10409" class="LineNr">10409 </span><span class="Constant">$parse-mu-var-def:error2</span>: +<span id="L10410" class="LineNr">10410 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L10411" class="LineNr">10411 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> +<span id="L10412" class="LineNr">10412 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L10413" class="LineNr">10413 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L10414" class="LineNr">10414 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10415" class="LineNr">10415 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L10416" class="LineNr">10416 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) +<span id="L10417" class="LineNr">10417 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L10418" class="LineNr">10418 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L10419" class="LineNr">10419 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L10420" class="LineNr">10420 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L10421" class="LineNr">10421 </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="L10422" class="LineNr">10422 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10423" class="LineNr">10423 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10424" class="LineNr">10424 </span> <span class="subxComment"># never gets here</span> +<span id="L10425" class="LineNr">10425 </span> +<span id="L10426" class="LineNr">10426 </span><span class="subxTest">test-parse-mu-var-def</span>: +<span id="L10427" class="LineNr">10427 </span> <span class="subxComment"># 'var n: int'</span> +<span id="L10428" class="LineNr">10428 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10429" class="LineNr">10429 </span> 55/push-ebp +<span id="L10430" class="LineNr">10430 </span> 89/<- %ebp 4/r32/esp +<span id="L10431" class="LineNr">10431 </span> <span class="subxComment"># setup</span> +<span id="L10432" class="LineNr">10432 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L10433" class="LineNr">10433 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L10434" class="LineNr">10434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10435" class="LineNr">10435 </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="L10436" class="LineNr">10436 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 1/imm32 +<span id="L10437" class="LineNr">10437 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L10438" class="LineNr">10438 </span> 68/push 0/imm32 +<span id="L10439" class="LineNr">10439 </span> 68/push 0/imm32 +<span id="L10440" class="LineNr">10440 </span> 89/<- %esi 4/r32/esp +<span id="L10441" class="LineNr">10441 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L10442" class="LineNr">10442 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L10443" class="LineNr">10443 </span> 68/push 0xc0/imm32/size +<span id="L10444" class="LineNr">10444 </span> 68/push 0/imm32/top +<span id="L10445" class="LineNr">10445 </span> 89/<- %ecx 4/r32/esp +<span id="L10446" class="LineNr">10446 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L10447" class="LineNr">10447 </span> <span class="subxComment"># convert</span> +<span id="L10448" class="LineNr">10448 </span> (<a href='mu.subx.html#L10321'>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="L10449" class="LineNr">10449 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L10450" class="LineNr">10450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L10451" class="LineNr">10451 </span> 89/<- %esi 0/r32/eax +<span id="L10452" class="LineNr">10452 </span> <span class="subxComment">#</span> +<span id="L10453" class="LineNr">10453 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> +<span id="L10454" class="LineNr">10454 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> +<span id="L10455" class="LineNr">10455 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L10456" class="LineNr">10456 </span> 89/<- %ecx 0/r32/eax +<span id="L10457" class="LineNr">10457 </span> <span class="subxComment"># v->name</span> +<span id="L10458" class="LineNr">10458 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L10459" class="LineNr">10459 </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#L10426'>test-parse-mu-var-def</a>/var-name"</span>) +<span id="L10460" class="LineNr">10460 </span> <span class="subxComment"># v->register</span> +<span id="L10461" class="LineNr">10461 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> +<span id="L10462" class="LineNr">10462 </span> <span class="subxComment"># v->block-depth</span> +<span id="L10463" class="LineNr">10463 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L10464" class="LineNr">10464 </span> <span class="subxComment"># v->type == int</span> +<span id="L10465" class="LineNr">10465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L10466" class="LineNr">10466 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L10467" class="LineNr">10467 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L10468" class="LineNr">10468 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L10426'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L10469" class="LineNr">10469 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10470" class="LineNr">10470 </span> 89/<- %esp 5/r32/ebp +<span id="L10471" class="LineNr">10471 </span> 5d/pop-to-ebp +<span id="L10472" class="LineNr">10472 </span> c3/return +<span id="L10473" class="LineNr">10473 </span> +<span id="L10474" class="LineNr">10474 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: +<span id="L10475" class="LineNr">10475 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> +<span id="L10476" class="LineNr">10476 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10477" class="LineNr">10477 </span> 55/push-ebp +<span id="L10478" class="LineNr">10478 </span> 89/<- %ebp 4/r32/esp +<span id="L10479" class="LineNr">10479 </span> <span class="subxComment"># setup</span> +<span id="L10480" class="LineNr">10480 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L10481" class="LineNr">10481 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L10482" class="LineNr">10482 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10483" class="LineNr">10483 </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="L10484" class="LineNr">10484 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 1/imm32 +<span id="L10485" class="LineNr">10485 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L10486" class="LineNr">10486 </span> 68/push 0/imm32 +<span id="L10487" class="LineNr">10487 </span> 68/push 0/imm32 +<span id="L10488" class="LineNr">10488 </span> 89/<- %esi 4/r32/esp +<span id="L10489" class="LineNr">10489 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L10490" class="LineNr">10490 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L10491" class="LineNr">10491 </span> 68/push 0xc0/imm32/size +<span id="L10492" class="LineNr">10492 </span> 68/push 0/imm32/top +<span id="L10493" class="LineNr">10493 </span> 89/<- %ecx 4/r32/esp +<span id="L10494" class="LineNr">10494 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L10495" class="LineNr">10495 </span> <span class="subxComment"># convert</span> +<span id="L10496" class="LineNr">10496 </span> (<a href='mu.subx.html#L10321'>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="L10497" class="LineNr">10497 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L10498" class="LineNr">10498 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L10499" class="LineNr">10499 </span> 89/<- %esi 0/r32/eax +<span id="L10500" class="LineNr">10500 </span> <span class="subxComment">#</span> +<span id="L10501" class="LineNr">10501 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> +<span id="L10502" class="LineNr">10502 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> +<span id="L10503" class="LineNr">10503 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> +<span id="L10504" class="LineNr">10504 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L10505" class="LineNr">10505 </span> <span class="subxS1Comment"># .</span> +<span id="L10506" class="LineNr">10506 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> +<span id="L10507" class="LineNr">10507 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> +<span id="L10508" class="LineNr">10508 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L10509" class="LineNr">10509 </span> <span class="subxS1Comment"># . ecx = eax</span> +<span id="L10510" class="LineNr">10510 </span> 89/<- %ecx 0/r32/eax +<span id="L10511" class="LineNr">10511 </span> <span class="subxComment"># v->name</span> +<span id="L10512" class="LineNr">10512 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L10513" class="LineNr">10513 </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#L10474'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> +<span id="L10514" class="LineNr">10514 </span> <span class="subxComment"># v->register</span> +<span id="L10515" class="LineNr">10515 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L10516" class="LineNr">10516 </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#L10474'>test-parse-mu-reg-var-def</a>/output-register"</span>) +<span id="L10517" class="LineNr">10517 </span> <span class="subxComment"># v->block-depth</span> +<span id="L10518" class="LineNr">10518 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L10519" class="LineNr">10519 </span> <span class="subxComment"># v->type == int</span> +<span id="L10520" class="LineNr">10520 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L10521" class="LineNr">10521 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L10522" class="LineNr">10522 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L10523" class="LineNr">10523 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L10474'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L10524" class="LineNr">10524 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10525" class="LineNr">10525 </span> 89/<- %esp 5/r32/ebp +<span id="L10526" class="LineNr">10526 </span> 5d/pop-to-ebp +<span id="L10527" class="LineNr">10527 </span> c3/return +<span id="L10528" class="LineNr">10528 </span> +<span id="L10529" class="LineNr">10529 </span><span class="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="L10530" class="LineNr">10530 </span> <span class="subxComment"># Carefully push any outputs on the vars stack _after_ reading the inputs</span> +<span id="L10531" class="LineNr">10531 </span> <span class="subxComment"># that may conflict with them.</span> +<span id="L10532" class="LineNr">10532 </span> <span class="subxComment">#</span> +<span id="L10533" class="LineNr">10533 </span> <span class="subxComment"># The only situation in which outputs are pushed here (when it's not a</span> +<span id="L10534" class="LineNr">10534 </span> <span class="subxComment"># 'var' vardef stmt), and so can possibly conflict with inputs, is if the</span> +<span id="L10535" class="LineNr">10535 </span> <span class="subxComment"># output is a function output.</span> +<span id="L10536" class="LineNr">10536 </span> <span class="subxComment">#</span> +<span id="L10537" class="LineNr">10537 </span> <span class="subxComment"># pseudocode:</span> +<span id="L10538" class="LineNr">10538 </span> <span class="subxComment"># var name: slice</span> +<span id="L10539" class="LineNr">10539 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L10540" class="LineNr">10540 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> +<span id="L10541" class="LineNr">10541 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L10542" class="LineNr">10542 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> +<span id="L10543" class="LineNr">10543 </span> <span class="subxComment"># while true</span> +<span id="L10544" class="LineNr">10544 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L10545" class="LineNr">10545 </span> <span class="subxComment"># if (name == '<-') break</span> +<span id="L10546" class="LineNr">10546 </span> <span class="subxComment"># assert(is-identifier?(name))</span> +<span id="L10547" class="LineNr">10547 </span> <span class="subxComment"># var v: (handle var) = lookup-var-or-find-in-fn-outputs(name, vars, fn)</span> +<span id="L10548" class="LineNr">10548 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> +<span id="L10549" class="LineNr">10549 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> +<span id="L10550" class="LineNr">10550 </span> <span class="subxComment"># for output in stmt->outputs:</span> +<span id="L10551" class="LineNr">10551 </span> <span class="subxComment"># maybe-define-var(output, vars)</span> +<span id="L10552" class="LineNr">10552 </span> <span class="subxComment">#</span> +<span id="L10553" class="LineNr">10553 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10554" class="LineNr">10554 </span> 55/push-ebp +<span id="L10555" class="LineNr">10555 </span> 89/<- %ebp 4/r32/esp +<span id="L10556" class="LineNr">10556 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10557" class="LineNr">10557 </span> 50/push-eax +<span id="L10558" class="LineNr">10558 </span> 51/push-ecx +<span id="L10559" class="LineNr">10559 </span> 52/push-edx +<span id="L10560" class="LineNr">10560 </span> 53/push-ebx +<span id="L10561" class="LineNr">10561 </span> 57/push-edi +<span id="L10562" class="LineNr">10562 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L10563" class="LineNr">10563 </span> 68/push 0/imm32/end +<span id="L10564" class="LineNr">10564 </span> 68/push 0/imm32/start +<span id="L10565" class="LineNr">10565 </span> 89/<- %ecx 4/r32/esp +<span id="L10566" class="LineNr">10566 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L10567" class="LineNr">10567 </span> ba/copy-to-edx 0/imm32/false +<span id="L10568" class="LineNr">10568 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L10569" class="LineNr">10569 </span> 68/push 0/imm32 +<span id="L10570" class="LineNr">10570 </span> 68/push 0/imm32 +<span id="L10571" class="LineNr">10571 </span> 89/<- %ebx 4/r32/esp +<span id="L10572" class="LineNr">10572 </span> <span class="subxComment">#</span> +<span id="L10573" class="LineNr">10573 </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#L329'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L10574" class="LineNr">10574 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L10575" class="LineNr">10575 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L10576" class="LineNr">10576 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L10577" class="LineNr">10577 </span> 89/<- %edi 0/r32/eax +<span id="L10578" class="LineNr">10578 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> +<span id="L10579" class="LineNr">10579 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L10580" class="LineNr">10580 </span> { +<span id="L10581" class="LineNr">10581 </span> (<a href='mu.subx.html#L10780'>stmt-has-outputs?</a> *(ebp+8)) +<span id="L10582" class="LineNr">10582 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10583" class="LineNr">10583 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L10584" class="LineNr">10584 </span> { +<span id="L10585" class="LineNr">10585 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: +<span id="L10586" class="LineNr">10586 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L10587" class="LineNr">10587 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10588" class="LineNr">10588 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L10589" class="LineNr">10589 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L10590" class="LineNr">10590 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10591" class="LineNr">10591 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10592" class="LineNr">10592 </span> <span class="subxComment"># if (name == "<-") break</span> +<span id="L10593" class="LineNr">10593 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L10594" class="LineNr">10594 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10595" class="LineNr">10595 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10596" class="LineNr">10596 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L10597" class="LineNr">10597 </span> ba/copy-to-edx 0/imm32/false +<span id="L10598" class="LineNr">10598 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L10599" class="LineNr">10599 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L10600" class="LineNr">10600 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10601" class="LineNr">10601 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10602" class="LineNr">10602 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L10603" class="LineNr">10603 </span> { +<span id="L10604" class="LineNr">10604 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L10605" class="LineNr">10605 </span> ff 0/subop/increment *ecx +<span id="L10606" class="LineNr">10606 </span> ba/copy-to-edx 1/imm32/true +<span id="L10607" class="LineNr">10607 </span> } +<span id="L10608" class="LineNr">10608 </span> <span class="subxComment"># assert(is-identifier?(name))</span> +<span id="L10609" class="LineNr">10609 </span> (<a href='mu.subx.html#L9611'>is-identifier?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L10610" class="LineNr">10610 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10611" class="LineNr">10611 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 +<span id="L10612" class="LineNr">10612 </span> <span class="subxComment">#</span> +<span id="L10613" class="LineNr">10613 </span> (<a href='mu.subx.html#L11262'>lookup-var-or-find-in-fn-outputs</a> %ecx *(ebp+0xc) *(ebp+0x10) %ebx *(ebp+0x18) *(ebp+0x1c)) +<span id="L10614" class="LineNr">10614 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> +<span id="L10615" class="LineNr">10615 </span> (<a href='mu.subx.html#L11870'>append-stmt-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x14) *(edi+0x18) %edx %eax) <span class="subxComment"># Stmt1-outputs</span> +<span id="L10616" class="LineNr">10616 </span> <span class="subxComment">#</span> +<span id="L10617" class="LineNr">10617 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L10618" class="LineNr">10618 </span> } +<span id="L10619" class="LineNr">10619 </span> } +<span id="L10620" class="LineNr">10620 </span> (<a href='mu.subx.html#L10662'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10621" class="LineNr">10621 </span><span class="Constant">$parse-mu-stmt:define-outputs</span>: +<span id="L10622" class="LineNr">10622 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = lookup(out-addr->outputs)</span> +<span id="L10623" class="LineNr">10623 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x14) *(edi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L10624" class="LineNr">10624 </span> 89/<- %edi 0/r32/eax +<span id="L10625" class="LineNr">10625 </span> { +<span id="L10626" class="LineNr">10626 </span><span class="Constant">$parse-mu-stmt:define-outputs-loop</span>: +<span id="L10627" class="LineNr">10627 </span> <span class="subxComment"># if (output == null) break</span> +<span id="L10628" class="LineNr">10628 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L10629" class="LineNr">10629 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10630" class="LineNr">10630 </span> <span class="subxComment">#</span> +<span id="L10631" class="LineNr">10631 </span> (<a href='mu.subx.html#L11351'>maybe-define-var</a> *edi *(edi+4) *(ebp+0xc)) <span class="subxComment"># if output is a deref, then it's already been defined,</span> +<span id="L10632" class="LineNr">10632 </span> <span class="subxComment"># and must be in vars. This call will be a no-op, but safe.</span> +<span id="L10633" class="LineNr">10633 </span> <span class="subxComment"># output = output->next</span> +<span id="L10634" class="LineNr">10634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L10635" class="LineNr">10635 </span> 89/<- %edi 0/r32/eax +<span id="L10636" class="LineNr">10636 </span> <span class="subxComment">#</span> +<span id="L10637" class="LineNr">10637 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L10638" class="LineNr">10638 </span> } +<span id="L10639" class="LineNr">10639 </span><span class="Constant">$parse-mu-stmt:end</span>: +<span id="L10640" class="LineNr">10640 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10641" class="LineNr">10641 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L10642" class="LineNr">10642 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10643" class="LineNr">10643 </span> 5f/pop-to-edi +<span id="L10644" class="LineNr">10644 </span> 5b/pop-to-ebx +<span id="L10645" class="LineNr">10645 </span> 5a/pop-to-edx +<span id="L10646" class="LineNr">10646 </span> 59/pop-to-ecx +<span id="L10647" class="LineNr">10647 </span> 58/pop-to-eax +<span id="L10648" class="LineNr">10648 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10649" class="LineNr">10649 </span> 89/<- %esp 5/r32/ebp +<span id="L10650" class="LineNr">10650 </span> 5d/pop-to-ebp +<span id="L10651" class="LineNr">10651 </span> c3/return +<span id="L10652" class="LineNr">10652 </span> +<span id="L10653" class="LineNr">10653 </span><span class="Constant">$parse-mu-stmt:abort</span>: +<span id="L10654" class="LineNr">10654 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L10655" class="LineNr">10655 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"invalid identifier '"</span>) +<span id="L10656" class="LineNr">10656 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L10657" class="LineNr">10657 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L10658" class="LineNr">10658 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10659" class="LineNr">10659 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10660" class="LineNr">10660 </span> <span class="subxComment"># never gets here</span> +<span id="L10661" class="LineNr">10661 </span> +<span id="L10662" class="LineNr">10662 </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="L10663" class="LineNr">10663 </span> <span class="subxComment"># pseudocode:</span> +<span id="L10664" class="LineNr">10664 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> +<span id="L10665" class="LineNr">10665 </span> <span class="subxComment"># while true</span> +<span id="L10666" class="LineNr">10666 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L10667" class="LineNr">10667 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> +<span id="L10668" class="LineNr">10668 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> +<span id="L10669" class="LineNr">10669 </span> <span class="subxComment">#</span> +<span id="L10670" class="LineNr">10670 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10671" class="LineNr">10671 </span> 55/push-ebp +<span id="L10672" class="LineNr">10672 </span> 89/<- %ebp 4/r32/esp +<span id="L10673" class="LineNr">10673 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10674" class="LineNr">10674 </span> 50/push-eax +<span id="L10675" class="LineNr">10675 </span> 51/push-ecx +<span id="L10676" class="LineNr">10676 </span> 52/push-edx +<span id="L10677" class="LineNr">10677 </span> 53/push-ebx +<span id="L10678" class="LineNr">10678 </span> 56/push-esi +<span id="L10679" class="LineNr">10679 </span> 57/push-edi +<span id="L10680" class="LineNr">10680 </span> <span class="subxComment"># edi = stmt</span> +<span id="L10681" class="LineNr">10681 </span> 8b/-> *(ebp+8) 7/r32/edi +<span id="L10682" class="LineNr">10682 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L10683" class="LineNr">10683 </span> 68/push 0/imm32/end +<span id="L10684" class="LineNr">10684 </span> 68/push 0/imm32/start +<span id="L10685" class="LineNr">10685 </span> 89/<- %ecx 4/r32/esp +<span id="L10686" class="LineNr">10686 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L10687" class="LineNr">10687 </span> ba/copy-to-edx 0/imm32/false +<span id="L10688" class="LineNr">10688 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L10689" class="LineNr">10689 </span> 68/push 0/imm32 +<span id="L10690" class="LineNr">10690 </span> 68/push 0/imm32 +<span id="L10691" class="LineNr">10691 </span> 89/<- %esi 4/r32/esp +<span id="L10692" class="LineNr">10692 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: +<span id="L10693" class="LineNr">10693 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L10694" class="LineNr">10694 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> +<span id="L10695" class="LineNr">10695 </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="L10696" class="LineNr">10696 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> +<span id="L10697" class="LineNr">10697 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L10698" class="LineNr">10698 </span> 89/<- %ebx 0/r32/eax +<span id="L10699" class="LineNr">10699 </span> { +<span id="L10700" class="LineNr">10700 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: +<span id="L10701" class="LineNr">10701 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L10702" class="LineNr">10702 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L10703" class="LineNr">10703 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L10704" class="LineNr">10704 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L10705" class="LineNr">10705 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10706" class="LineNr">10706 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10707" class="LineNr">10707 </span> <span class="subxComment"># if (name == "<-") abort</span> +<span id="L10708" class="LineNr">10708 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L10709" class="LineNr">10709 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10710" class="LineNr">10710 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 +<span id="L10711" class="LineNr">10711 </span> <span class="subxComment"># if (is-get? && second operand) lookup or create offset</span> +<span id="L10712" class="LineNr">10712 </span> { +<span id="L10713" class="LineNr">10713 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L10714" class="LineNr">10714 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10715" class="LineNr">10715 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L10716" class="LineNr">10716 </span> 3d/compare-eax-and 0/imm32 +<span id="L10717" class="LineNr">10717 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10718" class="LineNr">10718 </span> (<a href='mu.subx.html#L11955'>lookup-or-create-constant</a> %eax %ecx %esi) +<span id="L10719" class="LineNr">10719 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L10720" class="LineNr">10720 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> +<span id="L10721" class="LineNr">10721 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L10722" class="LineNr">10722 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> +<span id="L10723" class="LineNr">10723 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L10724" class="LineNr">10724 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> +<span id="L10725" class="LineNr">10725 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L10726" class="LineNr">10726 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L10727" class="LineNr">10727 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L10728" class="LineNr">10728 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L10729" class="LineNr">10729 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 +<span id="L10730" class="LineNr">10730 </span> } +<span id="L10731" class="LineNr">10731 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L10732" class="LineNr">10732 </span> ba/copy-to-edx 0/imm32/false +<span id="L10733" class="LineNr">10733 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L10734" class="LineNr">10734 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L10735" class="LineNr">10735 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10736" class="LineNr">10736 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10737" class="LineNr">10737 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L10738" class="LineNr">10738 </span> { +<span id="L10739" class="LineNr">10739 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L10740" class="LineNr">10740 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: +<span id="L10741" class="LineNr">10741 </span> ff 0/subop/increment *ecx +<span id="L10742" class="LineNr">10742 </span> ba/copy-to-edx 1/imm32/true +<span id="L10743" class="LineNr">10743 </span> } +<span id="L10744" class="LineNr">10744 </span> (<a href='mu.subx.html#L10828'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10745" class="LineNr">10745 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: +<span id="L10746" class="LineNr">10746 </span> 8d/copy-address *(edi+0xc) 0/r32/eax +<span id="L10747" class="LineNr">10747 </span> (<a href='mu.subx.html#L11870'>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="L10748" class="LineNr">10748 </span> <span class="subxComment">#</span> +<span id="L10749" class="LineNr">10749 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L10750" class="LineNr">10750 </span> } +<span id="L10751" class="LineNr">10751 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: +<span id="L10752" class="LineNr">10752 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10753" class="LineNr">10753 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L10754" class="LineNr">10754 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10755" class="LineNr">10755 </span> 5f/pop-to-edi +<span id="L10756" class="LineNr">10756 </span> 5e/pop-to-esi +<span id="L10757" class="LineNr">10757 </span> 5b/pop-to-ebx +<span id="L10758" class="LineNr">10758 </span> 5a/pop-to-edx +<span id="L10759" class="LineNr">10759 </span> 59/pop-to-ecx +<span id="L10760" class="LineNr">10760 </span> 58/pop-to-eax +<span id="L10761" class="LineNr">10761 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10762" class="LineNr">10762 </span> 89/<- %esp 5/r32/ebp +<span id="L10763" class="LineNr">10763 </span> 5d/pop-to-ebp +<span id="L10764" class="LineNr">10764 </span> c3/return +<span id="L10765" class="LineNr">10765 </span> +<span id="L10766" class="LineNr">10766 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: +<span id="L10767" class="LineNr">10767 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> +<span id="L10768" class="LineNr">10768 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L10769" class="LineNr">10769 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L10770" class="LineNr">10770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10771" class="LineNr">10771 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L10772" class="LineNr">10772 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L10773" class="LineNr">10773 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) +<span id="L10774" class="LineNr">10774 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L10775" class="LineNr">10775 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L10776" class="LineNr">10776 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10777" class="LineNr">10777 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10778" class="LineNr">10778 </span> <span class="subxComment"># never gets here</span> +<span id="L10779" class="LineNr">10779 </span> +<span id="L10780" class="LineNr">10780 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> +<span id="L10781" class="LineNr">10781 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10782" class="LineNr">10782 </span> 55/push-ebp +<span id="L10783" class="LineNr">10783 </span> 89/<- %ebp 4/r32/esp +<span id="L10784" class="LineNr">10784 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10785" class="LineNr">10785 </span> 51/push-ecx +<span id="L10786" class="LineNr">10786 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L10787" class="LineNr">10787 </span> 68/push 0/imm32/end +<span id="L10788" class="LineNr">10788 </span> 68/push 0/imm32/start +<span id="L10789" class="LineNr">10789 </span> 89/<- %ecx 4/r32/esp +<span id="L10790" class="LineNr">10790 </span> <span class="subxComment"># result = false</span> +<span id="L10791" class="LineNr">10791 </span> b8/copy-to-eax 0/imm32/false +<span id="L10792" class="LineNr">10792 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L10793" class="LineNr">10793 </span> { +<span id="L10794" class="LineNr">10794 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L10795" class="LineNr">10795 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L10796" class="LineNr">10796 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L10797" class="LineNr">10797 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10798" class="LineNr">10798 </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="L10799" class="LineNr">10799 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L10800" class="LineNr">10800 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> +<span id="L10801" class="LineNr">10801 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L10802" class="LineNr">10802 </span> 8b/-> *ecx 0/r32/eax +<span id="L10803" class="LineNr">10803 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L10804" class="LineNr">10804 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L10805" class="LineNr">10805 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L10806" class="LineNr">10806 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L10807" class="LineNr">10807 </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="L10808" class="LineNr">10808 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L10809" class="LineNr">10809 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> +<span id="L10810" class="LineNr">10810 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L10811" class="LineNr">10811 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10812" class="LineNr">10812 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 +<span id="L10813" class="LineNr">10813 </span> b8/copy-to-eax 1/imm32/true +<span id="L10814" class="LineNr">10814 </span> } +<span id="L10815" class="LineNr">10815 </span><span class="Constant">$stmt-has-outputs:end</span>: +<span id="L10816" class="LineNr">10816 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L10817" class="LineNr">10817 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L10818" class="LineNr">10818 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10819" class="LineNr">10819 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10820" class="LineNr">10820 </span> 59/pop-to-ecx +<span id="L10821" class="LineNr">10821 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10822" class="LineNr">10822 </span> 89/<- %esp 5/r32/ebp +<span id="L10823" class="LineNr">10823 </span> 5d/pop-to-ebp +<span id="L10824" class="LineNr">10824 </span> c3/return +<span id="L10825" class="LineNr">10825 </span> +<span id="L10826" class="LineNr">10826 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> +<span id="L10827" class="LineNr">10827 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L10828" class="LineNr">10828 </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="L10829" class="LineNr">10829 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10830" class="LineNr">10830 </span> 55/push-ebp +<span id="L10831" class="LineNr">10831 </span> 89/<- %ebp 4/r32/esp +<span id="L10832" class="LineNr">10832 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10833" class="LineNr">10833 </span> 50/push-eax +<span id="L10834" class="LineNr">10834 </span> 51/push-ecx +<span id="L10835" class="LineNr">10835 </span> 56/push-esi +<span id="L10836" class="LineNr">10836 </span> <span class="subxComment"># esi = name</span> +<span id="L10837" class="LineNr">10837 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L10838" class="LineNr">10838 </span> <span class="subxComment"># if slice-empty?(name) abort</span> +<span id="L10839" class="LineNr">10839 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L10840" class="LineNr">10840 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10841" class="LineNr">10841 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 +<span id="L10842" class="LineNr">10842 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> +<span id="L10843" class="LineNr">10843 </span> 8b/-> *esi 1/r32/ecx +<span id="L10844" class="LineNr">10844 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L10845" class="LineNr">10845 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L10846" class="LineNr">10846 </span> <span class="subxComment"># if (is-decimal-digit?(c) || c == '-') return new var(name)</span> +<span id="L10847" class="LineNr">10847 </span> { +<span id="L10848" class="LineNr">10848 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash +<span id="L10849" class="LineNr">10849 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 +<span id="L10850" class="LineNr">10850 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L10851" class="LineNr">10851 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10852" class="LineNr">10852 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10853" class="LineNr">10853 </span><span class="Constant">$lookup-var-or-literal:literal</span>: +<span id="L10854" class="LineNr">10854 </span> (<a href='mu.subx.html#L11586'>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="L10855" class="LineNr">10855 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L10856" class="LineNr">10856 </span> } +<span id="L10857" class="LineNr">10857 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> +<span id="L10858" class="LineNr">10858 </span> { +<span id="L10859" class="LineNr">10859 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote +<span id="L10860" class="LineNr">10860 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L10861" class="LineNr">10861 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: +<span id="L10862" class="LineNr">10862 </span> (<a href='mu.subx.html#L11696'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) +<span id="L10863" class="LineNr">10863 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L10864" class="LineNr">10864 </span> } +<span id="L10865" class="LineNr">10865 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> +<span id="L10866" class="LineNr">10866 </span> { +<span id="L10867" class="LineNr">10867 </span><span class="Constant">$lookup-var-or-literal:var</span>: +<span id="L10868" class="LineNr">10868 </span> (<a href='mu.subx.html#L10891'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10869" class="LineNr">10869 </span> } +<span id="L10870" class="LineNr">10870 </span><span class="Constant">$lookup-var-or-literal:end</span>: +<span id="L10871" class="LineNr">10871 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10872" class="LineNr">10872 </span> 5e/pop-to-esi +<span id="L10873" class="LineNr">10873 </span> 59/pop-to-ecx +<span id="L10874" class="LineNr">10874 </span> 58/pop-to-eax +<span id="L10875" class="LineNr">10875 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10876" class="LineNr">10876 </span> 89/<- %esp 5/r32/ebp +<span id="L10877" class="LineNr">10877 </span> 5d/pop-to-ebp +<span id="L10878" class="LineNr">10878 </span> c3/return +<span id="L10879" class="LineNr">10879 </span> +<span id="L10880" class="LineNr">10880 </span><span class="Constant">$lookup-var-or-literal:abort</span>: +<span id="L10881" class="LineNr">10881 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L10882" class="LineNr">10882 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L10883" class="LineNr">10883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10884" class="LineNr">10884 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L10885" class="LineNr">10885 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) +<span id="L10886" class="LineNr">10886 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10887" class="LineNr">10887 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10888" class="LineNr">10888 </span> <span class="subxComment"># never gets here</span> +<span id="L10889" class="LineNr">10889 </span> +<span id="L10890" class="LineNr">10890 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L10891" class="LineNr">10891 </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="L10892" class="LineNr">10892 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10893" class="LineNr">10893 </span> 55/push-ebp +<span id="L10894" class="LineNr">10894 </span> 89/<- %ebp 4/r32/esp +<span id="L10895" class="LineNr">10895 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10896" class="LineNr">10896 </span> 50/push-eax +<span id="L10897" class="LineNr">10897 </span> <span class="subxComment">#</span> +<span id="L10898" class="LineNr">10898 </span> (<a href='mu.subx.html#L10925'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L10899" class="LineNr">10899 </span> <span class="subxComment"># if (*out == 0) abort</span> +<span id="L10900" class="LineNr">10900 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L10901" class="LineNr">10901 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L10902" class="LineNr">10902 </span> 74/jump-if-= $lookup-var:abort/disp8 +<span id="L10903" class="LineNr">10903 </span><span class="Constant">$lookup-var:end</span>: +<span id="L10904" class="LineNr">10904 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L10905" class="LineNr">10905 </span> 58/pop-to-eax +<span id="L10906" class="LineNr">10906 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10907" class="LineNr">10907 </span> 89/<- %esp 5/r32/ebp +<span id="L10908" class="LineNr">10908 </span> 5d/pop-to-ebp +<span id="L10909" class="LineNr">10909 </span> c3/return +<span id="L10910" class="LineNr">10910 </span> +<span id="L10911" class="LineNr">10911 </span><span class="Constant">$lookup-var:abort</span>: +<span id="L10912" class="LineNr">10912 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L10913" class="LineNr">10913 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L10914" class="LineNr">10914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L10915" class="LineNr">10915 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L10916" class="LineNr">10916 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) +<span id="L10917" class="LineNr">10917 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L10918" class="LineNr">10918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L10919" class="LineNr">10919 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L10920" class="LineNr">10920 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L10921" class="LineNr">10921 </span> <span class="subxComment"># never gets here</span> +<span id="L10922" class="LineNr">10922 </span> +<span id="L10923" class="LineNr">10923 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> +<span id="L10924" class="LineNr">10924 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> +<span id="L10925" class="LineNr">10925 </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="L10926" class="LineNr">10926 </span> <span class="subxComment"># pseudocode:</span> +<span id="L10927" class="LineNr">10927 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L10928" class="LineNr">10928 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L10929" class="LineNr">10929 </span> <span class="subxComment"># while curr >= min</span> +<span id="L10930" class="LineNr">10930 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L10931" class="LineNr">10931 </span> <span class="subxComment"># if v->name == name</span> +<span id="L10932" class="LineNr">10932 </span> <span class="subxComment"># return</span> +<span id="L10933" class="LineNr">10933 </span> <span class="subxComment"># curr -= 12</span> +<span id="L10934" class="LineNr">10934 </span> <span class="subxComment">#</span> +<span id="L10935" class="LineNr">10935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10936" class="LineNr">10936 </span> 55/push-ebp +<span id="L10937" class="LineNr">10937 </span> 89/<- %ebp 4/r32/esp +<span id="L10938" class="LineNr">10938 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L10939" class="LineNr">10939 </span> 50/push-eax +<span id="L10940" class="LineNr">10940 </span> 51/push-ecx +<span id="L10941" class="LineNr">10941 </span> 52/push-edx +<span id="L10942" class="LineNr">10942 </span> 53/push-ebx +<span id="L10943" class="LineNr">10943 </span> 56/push-esi +<span id="L10944" class="LineNr">10944 </span> 57/push-edi +<span id="L10945" class="LineNr">10945 </span> <span class="subxComment"># clear out</span> +<span id="L10946" class="LineNr">10946 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L10947" class="LineNr">10947 </span> <span class="subxComment"># esi = vars</span> +<span id="L10948" class="LineNr">10948 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L10949" class="LineNr">10949 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L10950" class="LineNr">10950 </span> 8b/-> *esi 3/r32/ebx +<span id="L10951" class="LineNr">10951 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> +<span id="L10952" class="LineNr">10952 </span> 3b/compare<- *(esi+4) 0/r32/eax +<span id="L10953" class="LineNr">10953 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 +<span id="L10954" class="LineNr">10954 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L10955" class="LineNr">10955 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L10956" class="LineNr">10956 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L10957" class="LineNr">10957 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L10958" class="LineNr">10958 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> +<span id="L10959" class="LineNr">10959 </span> 68/push 0/imm32 +<span id="L10960" class="LineNr">10960 </span> 68/push 0/imm32 +<span id="L10961" class="LineNr">10961 </span> 68/push 0/imm32 +<span id="L10962" class="LineNr">10962 </span> 68/push 0/imm32 +<span id="L10963" class="LineNr">10963 </span> 68/push 0/imm32 +<span id="L10964" class="LineNr">10964 </span> 68/push 0/imm32 +<span id="L10965" class="LineNr">10965 </span> 68/push 0/imm32 +<span id="L10966" class="LineNr">10966 </span> 68/push 0/imm32 +<span id="L10967" class="LineNr">10967 </span> 68/push 0/imm32 +<span id="L10968" class="LineNr">10968 </span> 68/push 0/imm32 +<span id="L10969" class="LineNr">10969 </span> 68/push 0/imm32 +<span id="L10970" class="LineNr">10970 </span> 68/push 0/imm32 +<span id="L10971" class="LineNr">10971 </span> 68/push 0/imm32 +<span id="L10972" class="LineNr">10972 </span> 68/push 0/imm32 +<span id="L10973" class="LineNr">10973 </span> 68/push 0/imm32 +<span id="L10974" class="LineNr">10974 </span> 68/push 0/imm32 +<span id="L10975" class="LineNr">10975 </span> 89/<- %edi 4/r32/esp +<span id="L10976" class="LineNr">10976 </span> { +<span id="L10977" class="LineNr">10977 </span><span class="Constant">$lookup-var-helper:loop</span>: +<span id="L10978" class="LineNr">10978 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L10979" class="LineNr">10979 </span> 39/compare %ebx 2/r32/edx +<span id="L10980" class="LineNr">10980 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L10981" class="LineNr">10981 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> +<span id="L10982" class="LineNr">10982 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L10983" class="LineNr">10983 </span> 89/<- %ecx 0/r32/eax +<span id="L10984" class="LineNr">10984 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L10985" class="LineNr">10985 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L10986" class="LineNr">10986 </span> <span class="subxComment"># if (vn == name) return curr</span> +<span id="L10987" class="LineNr">10987 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L10988" class="LineNr">10988 </span> 3d/compare-eax-and 0/imm32/false +<span id="L10989" class="LineNr">10989 </span> { +<span id="L10990" class="LineNr">10990 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10991" class="LineNr">10991 </span><span class="Constant">$lookup-var-helper:found</span>: +<span id="L10992" class="LineNr">10992 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L10993" class="LineNr">10993 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L10994" class="LineNr">10994 </span> 3d/compare-eax-and 0/imm32 +<span id="L10995" class="LineNr">10995 </span> { +<span id="L10996" class="LineNr">10996 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L10997" class="LineNr">10997 </span><span class="Constant">$lookup-var-helper:found-register</span>: +<span id="L10998" class="LineNr">10998 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> +<span id="L10999" class="LineNr">10999 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11158'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L11000" class="LineNr">11000 </span> 8b/-> *eax 0/r32/eax +<span id="L11001" class="LineNr">11001 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> +<span id="L11002" class="LineNr">11002 </span> 8b/-> *(edi+eax<<2) 0/r32/eax +<span id="L11003" class="LineNr">11003 </span> 3d/compare-eax-and 0/imm32 +<span id="L11004" class="LineNr">11004 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 +<span id="L11005" class="LineNr">11005 </span> } +<span id="L11006" class="LineNr">11006 </span><span class="Constant">$lookup-var-helper:return</span>: +<span id="L11007" class="LineNr">11007 </span> <span class="subxComment"># esi = out</span> +<span id="L11008" class="LineNr">11008 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L11009" class="LineNr">11009 </span> <span class="subxComment"># *out = *curr</span> +<span id="L11010" class="LineNr">11010 </span> 8b/-> *ebx 0/r32/eax +<span id="L11011" class="LineNr">11011 </span> 89/<- *esi 0/r32/eax +<span id="L11012" class="LineNr">11012 </span> 8b/-> *(ebx+4) 0/r32/eax +<span id="L11013" class="LineNr">11013 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L11014" class="LineNr">11014 </span> <span class="subxComment"># return</span> +<span id="L11015" class="LineNr">11015 </span> eb/jump $lookup-var-helper:end/disp8 +<span id="L11016" class="LineNr">11016 </span> } +<span id="L11017" class="LineNr">11017 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> +<span id="L11018" class="LineNr">11018 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L11019" class="LineNr">11019 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L11020" class="LineNr">11020 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> +<span id="L11021" class="LineNr">11021 </span> 3d/compare-eax-and 0/imm32 +<span id="L11022" class="LineNr">11022 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 +<span id="L11023" class="LineNr">11023 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> +<span id="L11024" class="LineNr">11024 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11158'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L11025" class="LineNr">11025 </span> 8b/-> *eax 0/r32/eax +<span id="L11026" class="LineNr">11026 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> +<span id="L11027" class="LineNr">11027 </span> 89/<- *(edi+eax<<2) 1/r32/ecx +<span id="L11028" class="LineNr">11028 </span><span class="Constant">$lookup-var-helper:continue</span>: +<span id="L11029" class="LineNr">11029 </span> <span class="subxComment"># curr -= 12</span> +<span id="L11030" class="LineNr">11030 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L11031" class="LineNr">11031 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L11032" class="LineNr">11032 </span> } +<span id="L11033" class="LineNr">11033 </span><span class="Constant">$lookup-var-helper:end</span>: +<span id="L11034" class="LineNr">11034 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L11035" class="LineNr">11035 </span> 81 0/subop/add %esp 0x40/imm32 +<span id="L11036" class="LineNr">11036 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11037" class="LineNr">11037 </span> 5f/pop-to-edi +<span id="L11038" class="LineNr">11038 </span> 5e/pop-to-esi +<span id="L11039" class="LineNr">11039 </span> 5b/pop-to-ebx +<span id="L11040" class="LineNr">11040 </span> 5a/pop-to-edx +<span id="L11041" class="LineNr">11041 </span> 59/pop-to-ecx +<span id="L11042" class="LineNr">11042 </span> 58/pop-to-eax +<span id="L11043" class="LineNr">11043 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11044" class="LineNr">11044 </span> 89/<- %esp 5/r32/ebp +<span id="L11045" class="LineNr">11045 </span> 5d/pop-to-ebp +<span id="L11046" class="LineNr">11046 </span> c3/return +<span id="L11047" class="LineNr">11047 </span> +<span id="L11048" class="LineNr">11048 </span><span class="Constant">$lookup-var-helper:error1</span>: +<span id="L11049" class="LineNr">11049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L11050" class="LineNr">11050 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11051" class="LineNr">11051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L11052" class="LineNr">11052 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L11053" class="LineNr">11053 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) +<span id="L11054" class="LineNr">11054 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L11055" class="LineNr">11055 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L11056" class="LineNr">11056 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L11057" class="LineNr">11057 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L11058" class="LineNr">11058 </span> <span class="subxComment"># never gets here</span> +<span id="L11059" class="LineNr">11059 </span> +<span id="L11060" class="LineNr">11060 </span><span class="Constant">$lookup-var-helper:error2</span>: +<span id="L11061" class="LineNr">11061 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> +<span id="L11062" class="LineNr">11062 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L11063" class="LineNr">11063 </span> 50/push-eax +<span id="L11064" class="LineNr">11064 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11065" class="LineNr">11065 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L11066" class="LineNr">11066 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L11067" class="LineNr">11067 </span> 58/pop-eax +<span id="L11068" class="LineNr">11068 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) +<span id="L11069" class="LineNr">11069 </span> 50/push-eax +<span id="L11070" class="LineNr">11070 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L11071" class="LineNr">11071 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L11072" class="LineNr">11072 </span> 58/pop-to-eax +<span id="L11073" class="LineNr">11073 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) +<span id="L11074" class="LineNr">11074 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L11075" class="LineNr">11075 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) +<span id="L11076" class="LineNr">11076 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11077" class="LineNr">11077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L11078" class="LineNr">11078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L11079" class="LineNr">11079 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L11080" class="LineNr">11080 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L11081" class="LineNr">11081 </span> <span class="subxComment"># never gets here</span> +<span id="L11082" class="LineNr">11082 </span> +<span id="L11083" class="LineNr">11083 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> +<span id="L11084" class="LineNr">11084 </span> <span class="subxComment"># pseudocode:</span> +<span id="L11085" class="LineNr">11085 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L11086" class="LineNr">11086 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L11087" class="LineNr">11087 </span> <span class="subxComment"># while curr >= min</span> +<span id="L11088" class="LineNr">11088 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L11089" class="LineNr">11089 </span> <span class="subxComment"># print v</span> +<span id="L11090" class="LineNr">11090 </span> <span class="subxComment"># curr -= 12</span> +<span id="L11091" class="LineNr">11091 </span> <span class="subxComment">#</span> +<span id="L11092" class="LineNr">11092 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11093" class="LineNr">11093 </span> 55/push-ebp +<span id="L11094" class="LineNr">11094 </span> 89/<- %ebp 4/r32/esp +<span id="L11095" class="LineNr">11095 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11096" class="LineNr">11096 </span> 52/push-edx +<span id="L11097" class="LineNr">11097 </span> 53/push-ebx +<span id="L11098" class="LineNr">11098 </span> 56/push-esi +<span id="L11099" class="LineNr">11099 </span> <span class="subxComment"># esi = vars</span> +<span id="L11100" class="LineNr">11100 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L11101" class="LineNr">11101 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L11102" class="LineNr">11102 </span> 8b/-> *esi 3/r32/ebx +<span id="L11103" class="LineNr">11103 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L11104" class="LineNr">11104 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L11105" class="LineNr">11105 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L11106" class="LineNr">11106 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L11107" class="LineNr">11107 </span> { +<span id="L11108" class="LineNr">11108 </span><span class="Constant">$dump-vars:loop</span>: +<span id="L11109" class="LineNr">11109 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L11110" class="LineNr">11110 </span> 39/compare %ebx 2/r32/edx +<span id="L11111" class="LineNr">11111 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L11112" class="LineNr">11112 </span> <span class="subxComment">#</span> +<span id="L11113" class="LineNr">11113 </span> (<a href='../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="L11114" class="LineNr">11114 </span> (<a href='mu.subx.html#L12996'>dump-var</a> 2 %ebx) +<span id="L11115" class="LineNr">11115 </span> <span class="subxComment"># curr -= 12</span> +<span id="L11116" class="LineNr">11116 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L11117" class="LineNr">11117 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L11118" class="LineNr">11118 </span> } +<span id="L11119" class="LineNr">11119 </span><span class="Constant">$dump-vars:end</span>: +<span id="L11120" class="LineNr">11120 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11121" class="LineNr">11121 </span> 5e/pop-to-esi +<span id="L11122" class="LineNr">11122 </span> 5b/pop-to-ebx +<span id="L11123" class="LineNr">11123 </span> 5a/pop-to-edx +<span id="L11124" class="LineNr">11124 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11125" class="LineNr">11125 </span> 89/<- %esp 5/r32/ebp +<span id="L11126" class="LineNr">11126 </span> 5d/pop-to-ebp +<span id="L11127" class="LineNr">11127 </span> c3/return <span id="L11128" class="LineNr">11128 </span> -<span id="L11129" class="LineNr">11129 </span>== code -<span id="L11130" class="LineNr">11130 </span> -<span id="L11131" class="LineNr">11131 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and create a new var for a fn output if not found</span> -<span id="L11132" class="LineNr">11132 </span><span class="subxFunction">lookup-var-or-find-in-fn-outputs</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), fn: (addr function), out: (addr handle var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L11133" class="LineNr">11133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11134" class="LineNr">11134 </span> 55/push-ebp -<span id="L11135" class="LineNr">11135 </span> 89/<- %ebp 4/r32/esp -<span id="L11136" class="LineNr">11136 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11137" class="LineNr">11137 </span> 50/push-eax -<span id="L11138" class="LineNr">11138 </span> <span class="subxComment">#</span> -<span id="L11139" class="LineNr">11139 </span> (<a href='mu.subx.html#L10827'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) <span class="subxComment"># arg order slightly different; 'fn' is deemphasized</span> -<span id="L11140" class="LineNr">11140 </span> { -<span id="L11141" class="LineNr">11141 </span> <span class="subxComment"># if (out != 0) return</span> -<span id="L11142" class="LineNr">11142 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L11143" class="LineNr">11143 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L11144" class="LineNr">11144 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L11145" class="LineNr">11145 </span> <span class="subxComment"># if name is one of fn's outputs, return it</span> -<span id="L11146" class="LineNr">11146 </span> (<a href='mu.subx.html#L11168'>find-in-function-outputs</a> *(ebp+0x10) *(ebp+8) *(ebp+0x14)) -<span id="L11147" class="LineNr">11147 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L11148" class="LineNr">11148 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L11149" class="LineNr">11149 </span> <span class="subxComment"># otherwise abort</span> -<span id="L11150" class="LineNr">11150 </span> 0f 84/jump-if-= $lookup-or-define-var:abort/disp32 -<span id="L11151" class="LineNr">11151 </span> } -<span id="L11152" class="LineNr">11152 </span><span class="Constant">$lookup-or-define-var:end</span>: -<span id="L11153" class="LineNr">11153 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11154" class="LineNr">11154 </span> 58/pop-to-eax -<span id="L11155" class="LineNr">11155 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11156" class="LineNr">11156 </span> 89/<- %esp 5/r32/ebp -<span id="L11157" class="LineNr">11157 </span> 5d/pop-to-ebp -<span id="L11158" class="LineNr">11158 </span> c3/return -<span id="L11159" class="LineNr">11159 </span> -<span id="L11160" class="LineNr">11160 </span><span class="Constant">$lookup-or-define-var:abort</span>: -<span id="L11161" class="LineNr">11161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"unknown variable '"</span>) -<span id="L11162" class="LineNr">11162 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L11163" class="LineNr">11163 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L11164" class="LineNr">11164 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L11165" class="LineNr">11165 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L11166" class="LineNr">11166 </span> <span class="subxComment"># never gets here</span> -<span id="L11167" class="LineNr">11167 </span> -<span id="L11168" class="LineNr">11168 </span><span class="subxFunction">find-in-function-outputs</span>: <span class="subxComment"># fn: (addr function), name: (addr slice), out: (addr handle var)</span> -<span id="L11169" class="LineNr">11169 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11170" class="LineNr">11170 </span> 55/push-ebp -<span id="L11171" class="LineNr">11171 </span> 89/<- %ebp 4/r32/esp -<span id="L11172" class="LineNr">11172 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11173" class="LineNr">11173 </span> 50/push-eax -<span id="L11174" class="LineNr">11174 </span> 51/push-ecx -<span id="L11175" class="LineNr">11175 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L11176" class="LineNr">11176 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L11177" class="LineNr">11177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L11178" class="LineNr">11178 </span> 89/<- %ecx 0/r32/eax -<span id="L11179" class="LineNr">11179 </span> <span class="subxComment"># while curr != null</span> -<span id="L11180" class="LineNr">11180 </span> { -<span id="L11181" class="LineNr">11181 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L11182" class="LineNr">11182 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L11183" class="LineNr">11183 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L11184" class="LineNr">11184 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L11185" class="LineNr">11185 </span> <span class="subxComment"># var s/eax: (addr array byte) = lookup(v->name)</span> -<span id="L11186" class="LineNr">11186 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L11187" class="LineNr">11187 </span> <span class="subxComment"># if (s == name) return curr->value</span> -<span id="L11188" class="LineNr">11188 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L11189" class="LineNr">11189 </span> 3d/compare-eax-and 0/imm32/false -<span id="L11190" class="LineNr">11190 </span> { -<span id="L11191" class="LineNr">11191 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L11192" class="LineNr">11192 </span> <span class="subxComment"># var edi = out</span> -<span id="L11193" class="LineNr">11193 </span> 57/push-edi -<span id="L11194" class="LineNr">11194 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L11195" class="LineNr">11195 </span> <span class="subxComment"># *out = curr->value</span> -<span id="L11196" class="LineNr">11196 </span> 8b/-> *ecx 0/r32/eax -<span id="L11197" class="LineNr">11197 </span> 89/<- *edi 0/r32/eax -<span id="L11198" class="LineNr">11198 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L11199" class="LineNr">11199 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L11200" class="LineNr">11200 </span> <span class="subxComment">#</span> -<span id="L11201" class="LineNr">11201 </span> 5f/pop-to-edi -<span id="L11202" class="LineNr">11202 </span> eb/jump $find-in-function-outputs:end/disp8 -<span id="L11203" class="LineNr">11203 </span> } -<span id="L11204" class="LineNr">11204 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L11205" class="LineNr">11205 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L11206" class="LineNr">11206 </span> 89/<- %ecx 0/r32/eax -<span id="L11207" class="LineNr">11207 </span> <span class="subxComment">#</span> -<span id="L11208" class="LineNr">11208 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L11209" class="LineNr">11209 </span> } -<span id="L11210" class="LineNr">11210 </span> b8/copy-to-eax 0/imm32 -<span id="L11211" class="LineNr">11211 </span><span class="Constant">$find-in-function-outputs:end</span>: -<span id="L11212" class="LineNr">11212 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11213" class="LineNr">11213 </span> 59/pop-to-ecx -<span id="L11214" class="LineNr">11214 </span> 58/pop-to-eax -<span id="L11215" class="LineNr">11215 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11216" class="LineNr">11216 </span> 89/<- %esp 5/r32/ebp -<span id="L11217" class="LineNr">11217 </span> 5d/pop-to-ebp -<span id="L11218" class="LineNr">11218 </span> c3/return -<span id="L11219" class="LineNr">11219 </span> -<span id="L11220" class="LineNr">11220 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> -<span id="L11221" class="LineNr">11221 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> -<span id="L11222" class="LineNr">11222 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11223" class="LineNr">11223 </span> 55/push-ebp -<span id="L11224" class="LineNr">11224 </span> 89/<- %ebp 4/r32/esp -<span id="L11225" class="LineNr">11225 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11226" class="LineNr">11226 </span> 50/push-eax -<span id="L11227" class="LineNr">11227 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L11228" class="LineNr">11228 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L11229" class="LineNr">11229 </span> <span class="subxComment">#</span> -<span id="L11230" class="LineNr">11230 </span> (<a href='mu.subx.html#L11246'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L11231" class="LineNr">11231 </span> 3d/compare-eax-and 0/imm32/false -<span id="L11232" class="LineNr">11232 </span> 75/jump-if-!= $maybe-define-var:end/disp8 -<span id="L11233" class="LineNr">11233 </span> <span class="subxComment"># otherwise update vars</span> -<span id="L11234" class="LineNr">11234 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) -<span id="L11235" class="LineNr">11235 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) -<span id="L11236" class="LineNr">11236 </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="L11237" class="LineNr">11237 </span><span class="Constant">$maybe-define-var:end</span>: -<span id="L11238" class="LineNr">11238 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11239" class="LineNr">11239 </span> 58/pop-to-eax -<span id="L11240" class="LineNr">11240 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11241" class="LineNr">11241 </span> 89/<- %esp 5/r32/ebp -<span id="L11242" class="LineNr">11242 </span> 5d/pop-to-ebp -<span id="L11243" class="LineNr">11243 </span> c3/return -<span id="L11244" class="LineNr">11244 </span> -<span id="L11245" class="LineNr">11245 </span><span class="subxComment"># simpler version of lookup-var-helper</span> -<span id="L11246" class="LineNr">11246 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L11247" class="LineNr">11247 </span> <span class="subxComment"># pseudocode:</span> -<span id="L11248" class="LineNr">11248 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L11249" class="LineNr">11249 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L11250" class="LineNr">11250 </span> <span class="subxComment"># while curr >= min</span> -<span id="L11251" class="LineNr">11251 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L11252" class="LineNr">11252 </span> <span class="subxComment"># if v->name == target->name</span> -<span id="L11253" class="LineNr">11253 </span> <span class="subxComment"># return true</span> -<span id="L11254" class="LineNr">11254 </span> <span class="subxComment"># curr -= 12</span> -<span id="L11255" class="LineNr">11255 </span> <span class="subxComment"># return false</span> -<span id="L11256" class="LineNr">11256 </span> <span class="subxComment">#</span> -<span id="L11257" class="LineNr">11257 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11258" class="LineNr">11258 </span> 55/push-ebp -<span id="L11259" class="LineNr">11259 </span> 89/<- %ebp 4/r32/esp -<span id="L11260" class="LineNr">11260 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11261" class="LineNr">11261 </span> 51/push-ecx -<span id="L11262" class="LineNr">11262 </span> 52/push-edx -<span id="L11263" class="LineNr">11263 </span> 56/push-esi -<span id="L11264" class="LineNr">11264 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> -<span id="L11265" class="LineNr">11265 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L11266" class="LineNr">11266 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L11267" class="LineNr">11267 </span> 89/<- %ecx 0/r32/eax -<span id="L11268" class="LineNr">11268 </span> <span class="subxComment"># esi = vars</span> -<span id="L11269" class="LineNr">11269 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L11270" class="LineNr">11270 </span> <span class="subxComment"># eax = vars->top</span> -<span id="L11271" class="LineNr">11271 </span> 8b/-> *esi 0/r32/eax -<span id="L11272" class="LineNr">11272 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L11273" class="LineNr">11273 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L11274" class="LineNr">11274 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L11275" class="LineNr">11275 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L11276" class="LineNr">11276 </span> { -<span id="L11277" class="LineNr">11277 </span><span class="Constant">$binding-exists?:loop</span>: -<span id="L11278" class="LineNr">11278 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L11279" class="LineNr">11279 </span> 39/compare %esi 2/r32/edx -<span id="L11280" class="LineNr">11280 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L11281" class="LineNr">11281 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> -<span id="L11282" class="LineNr">11282 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L11283" class="LineNr">11283 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L11284" class="LineNr">11284 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L11285" class="LineNr">11285 </span> <span class="subxComment"># if (vn == target-name) return true</span> -<span id="L11286" class="LineNr">11286 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L11287" class="LineNr">11287 </span> 3d/compare-eax-and 0/imm32/false -<span id="L11288" class="LineNr">11288 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> -<span id="L11289" class="LineNr">11289 </span> <span class="subxComment"># curr -= 12</span> -<span id="L11290" class="LineNr">11290 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L11291" class="LineNr">11291 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L11292" class="LineNr">11292 </span> } -<span id="L11293" class="LineNr">11293 </span> b8/copy-to-eax 0/imm32/false -<span id="L11294" class="LineNr">11294 </span><span class="Constant">$binding-exists?:end</span>: -<span id="L11295" class="LineNr">11295 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11296" class="LineNr">11296 </span> 5e/pop-to-esi -<span id="L11297" class="LineNr">11297 </span> 5a/pop-to-edx -<span id="L11298" class="LineNr">11298 </span> 59/pop-to-ecx -<span id="L11299" class="LineNr">11299 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11300" class="LineNr">11300 </span> 89/<- %esp 5/r32/ebp -<span id="L11301" class="LineNr">11301 </span> 5d/pop-to-ebp -<span id="L11302" class="LineNr">11302 </span> c3/return -<span id="L11303" class="LineNr">11303 </span> -<span id="L11304" class="LineNr">11304 </span><span class="subxTest">test-parse-mu-stmt</span>: -<span id="L11305" class="LineNr">11305 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11306" class="LineNr">11306 </span> 55/push-ebp -<span id="L11307" class="LineNr">11307 </span> 89/<- %ebp 4/r32/esp -<span id="L11308" class="LineNr">11308 </span> <span class="subxComment"># setup</span> -<span id="L11309" class="LineNr">11309 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L11310" class="LineNr">11310 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L11311" class="LineNr">11311 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11312" class="LineNr">11312 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"increment n\n"</span>) -<span id="L11313" class="LineNr">11313 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L11314" class="LineNr">11314 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L11315" class="LineNr">11315 </span> 68/push 0xc0/imm32/size -<span id="L11316" class="LineNr">11316 </span> 68/push 0/imm32/top -<span id="L11317" class="LineNr">11317 </span> 89/<- %ecx 4/r32/esp -<span id="L11318" class="LineNr">11318 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L11319" class="LineNr">11319 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L11320" class="LineNr">11320 </span> 68/push 0/imm32 -<span id="L11321" class="LineNr">11321 </span> 68/push 0/imm32 -<span id="L11322" class="LineNr">11322 </span> 89/<- %edx 4/r32/esp -<span id="L11323" class="LineNr">11323 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L11324" class="LineNr">11324 </span> 68/push 0/imm32 -<span id="L11325" class="LineNr">11325 </span> 68/push 0/imm32 -<span id="L11326" class="LineNr">11326 </span> 89/<- %eax 4/r32/esp -<span id="L11327" class="LineNr">11327 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L11328" class="LineNr">11328 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L11329" class="LineNr">11329 </span> (<a href='mu.subx.html#L11420'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L11330" class="LineNr">11330 </span> <span class="subxComment">#</span> -<span id="L11331" class="LineNr">11331 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L11332" class="LineNr">11332 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L11333" class="LineNr">11333 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L11334" class="LineNr">11334 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L11335" class="LineNr">11335 </span> 68/push 0/imm32 -<span id="L11336" class="LineNr">11336 </span> 68/push 0/imm32 -<span id="L11337" class="LineNr">11337 </span> 89/<- %eax 4/r32/esp -<span id="L11338" class="LineNr">11338 </span> <span class="subxComment"># convert</span> -<span id="L11339" class="LineNr">11339 </span> (<a href='mu.subx.html#L10431'>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="L11340" class="LineNr">11340 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L11341" class="LineNr">11341 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11342" class="LineNr">11342 </span> 89/<- %edx 0/r32/eax -<span id="L11343" class="LineNr">11343 </span> <span class="subxComment"># out->tag</span> -<span id="L11344" class="LineNr">11344 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L11304'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L11345" class="LineNr">11345 </span> <span class="subxComment"># out->operation</span> -<span id="L11346" class="LineNr">11346 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L11347" class="LineNr">11347 </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#L11304'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L11348" class="LineNr">11348 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L11349" class="LineNr">11349 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L11350" class="LineNr">11350 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L11351" class="LineNr">11351 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L11352" class="LineNr">11352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L11353" class="LineNr">11353 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L11354" class="LineNr">11354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L11355" class="LineNr">11355 </span> <span class="subxS1Comment"># .</span> -<span id="L11356" class="LineNr">11356 </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#L11304'>test-parse-mu-stmt</a>/inout:0"</span>) -<span id="L11357" class="LineNr">11357 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11358" class="LineNr">11358 </span> 89/<- %esp 5/r32/ebp -<span id="L11359" class="LineNr">11359 </span> 5d/pop-to-ebp -<span id="L11360" class="LineNr">11360 </span> c3/return -<span id="L11361" class="LineNr">11361 </span> -<span id="L11362" class="LineNr">11362 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: -<span id="L11363" class="LineNr">11363 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11364" class="LineNr">11364 </span> 55/push-ebp -<span id="L11365" class="LineNr">11365 </span> 89/<- %ebp 4/r32/esp -<span id="L11366" class="LineNr">11366 </span> <span class="subxComment"># setup</span> -<span id="L11367" class="LineNr">11367 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L11368" class="LineNr">11368 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L11369" class="LineNr">11369 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<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">"copy-to n, 3\n"</span>) -<span id="L11371" class="LineNr">11371 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L11372" class="LineNr">11372 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L11373" class="LineNr">11373 </span> 68/push 0xc0/imm32/size -<span id="L11374" class="LineNr">11374 </span> 68/push 0/imm32/top -<span id="L11375" class="LineNr">11375 </span> 89/<- %ecx 4/r32/esp -<span id="L11376" class="LineNr">11376 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L11377" class="LineNr">11377 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L11378" class="LineNr">11378 </span> 68/push 0/imm32 -<span id="L11379" class="LineNr">11379 </span> 68/push 0/imm32 -<span id="L11380" class="LineNr">11380 </span> 89/<- %edx 4/r32/esp -<span id="L11381" class="LineNr">11381 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L11382" class="LineNr">11382 </span> 68/push 0/imm32 -<span id="L11383" class="LineNr">11383 </span> 68/push 0/imm32 -<span id="L11384" class="LineNr">11384 </span> 89/<- %eax 4/r32/esp -<span id="L11385" class="LineNr">11385 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L11386" class="LineNr">11386 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L11387" class="LineNr">11387 </span> (<a href='mu.subx.html#L11420'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L11388" class="LineNr">11388 </span> <span class="subxComment">#</span> -<span id="L11389" class="LineNr">11389 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L11390" class="LineNr">11390 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L11391" class="LineNr">11391 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L11392" class="LineNr">11392 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L11393" class="LineNr">11393 </span> 68/push 0/imm32 -<span id="L11394" class="LineNr">11394 </span> 68/push 0/imm32 -<span id="L11395" class="LineNr">11395 </span> 89/<- %eax 4/r32/esp -<span id="L11396" class="LineNr">11396 </span> <span class="subxComment"># convert</span> -<span id="L11397" class="LineNr">11397 </span> (<a href='mu.subx.html#L10431'>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="L11398" class="LineNr">11398 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L11399" class="LineNr">11399 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11400" class="LineNr">11400 </span> 89/<- %edx 0/r32/eax -<span id="L11401" class="LineNr">11401 </span> <span class="subxComment"># out->tag</span> -<span id="L11402" class="LineNr">11402 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L11362'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L11403" class="LineNr">11403 </span> <span class="subxComment"># out->operation</span> -<span id="L11404" class="LineNr">11404 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L11405" class="LineNr">11405 </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#L11362'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L11406" class="LineNr">11406 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L11407" class="LineNr">11407 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L11408" class="LineNr">11408 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L11409" class="LineNr">11409 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L11410" class="LineNr">11410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L11411" class="LineNr">11411 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L11412" class="LineNr">11412 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L11413" class="LineNr">11413 </span> <span class="subxS1Comment"># .</span> -<span id="L11414" class="LineNr">11414 </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#L11362'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) -<span id="L11415" class="LineNr">11415 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11416" class="LineNr">11416 </span> 89/<- %esp 5/r32/ebp -<span id="L11417" class="LineNr">11417 </span> 5d/pop-to-ebp -<span id="L11418" class="LineNr">11418 </span> c3/return -<span id="L11419" class="LineNr">11419 </span> -<span id="L11420" class="LineNr">11420 </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="L11421" class="LineNr">11421 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11422" class="LineNr">11422 </span> 55/push-ebp -<span id="L11423" class="LineNr">11423 </span> 89/<- %ebp 4/r32/esp -<span id="L11424" class="LineNr">11424 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11425" class="LineNr">11425 </span> 50/push-eax -<span id="L11426" class="LineNr">11426 </span> 51/push-ecx -<span id="L11427" class="LineNr">11427 </span> <span class="subxComment"># ecx = out</span> -<span id="L11428" class="LineNr">11428 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L11429" class="LineNr">11429 </span> <span class="subxComment">#</span> -<span id="L11430" class="LineNr">11430 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L342'>Var-size</a></span> %ecx) -<span id="L11431" class="LineNr">11431 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L11432" class="LineNr">11432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L11433" class="LineNr">11433 </span> <span class="subxComment"># out-addr->name = name</span> -<span id="L11434" class="LineNr">11434 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L11435" class="LineNr">11435 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L11436" class="LineNr">11436 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L11437" class="LineNr">11437 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L11438" class="LineNr">11438 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L11439" class="LineNr">11439 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> -<span id="L11440" class="LineNr">11440 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L11441" class="LineNr">11441 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L11442" class="LineNr">11442 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> -<span id="L11443" class="LineNr">11443 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> -<span id="L11444" class="LineNr">11444 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L11445" class="LineNr">11445 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L11446" class="LineNr">11446 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L11447" class="LineNr">11447 </span><span class="Constant">$new-var:end</span>: -<span id="L11448" class="LineNr">11448 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11449" class="LineNr">11449 </span> 59/pop-to-ecx -<span id="L11450" class="LineNr">11450 </span> 58/pop-to-eax -<span id="L11451" class="LineNr">11451 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11452" class="LineNr">11452 </span> 89/<- %esp 5/r32/ebp -<span id="L11453" class="LineNr">11453 </span> 5d/pop-to-ebp -<span id="L11454" class="LineNr">11454 </span> c3/return -<span id="L11455" class="LineNr">11455 </span> -<span id="L11456" class="LineNr">11456 </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="L11457" class="LineNr">11457 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11458" class="LineNr">11458 </span> 55/push-ebp -<span id="L11459" class="LineNr">11459 </span> 89/<- %ebp 4/r32/esp -<span id="L11460" class="LineNr">11460 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11461" class="LineNr">11461 </span> 50/push-eax -<span id="L11462" class="LineNr">11462 </span> 51/push-ecx -<span id="L11463" class="LineNr">11463 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> -<span id="L11464" class="LineNr">11464 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L11465" class="LineNr">11465 </span> 3d/compare-eax-and 0/imm32/false -<span id="L11466" class="LineNr">11466 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 -<span id="L11467" class="LineNr">11467 </span> <span class="subxComment"># a little more error-checking</span> -<span id="L11468" class="LineNr">11468 </span> (<a href='mu.subx.html#L11508'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L11469" class="LineNr">11469 </span> <span class="subxComment"># out = new var(s)</span> -<span id="L11470" class="LineNr">11470 </span> (<a href='mu.subx.html#L11605'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L11471" class="LineNr">11471 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L11472" class="LineNr">11472 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L11473" class="LineNr">11473 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11474" class="LineNr">11474 </span> 89/<- %ecx 0/r32/eax -<span id="L11475" class="LineNr">11475 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L11476" class="LineNr">11476 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/r32/eax -<span id="L11477" class="LineNr">11477 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L11478" class="LineNr">11478 </span> <span class="subxComment"># out-addr->type = new tree()</span> -<span id="L11479" class="LineNr">11479 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L11480" class="LineNr">11480 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> %eax) -<span id="L11481" class="LineNr">11481 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L11482" class="LineNr">11482 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L11483" class="LineNr">11483 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L11484" class="LineNr">11484 </span><span class="Constant">$new-literal-integer:end</span>: -<span id="L11485" class="LineNr">11485 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L11486" class="LineNr">11486 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11487" class="LineNr">11487 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11488" class="LineNr">11488 </span> 59/pop-to-ecx -<span id="L11489" class="LineNr">11489 </span> 58/pop-to-eax -<span id="L11490" class="LineNr">11490 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11491" class="LineNr">11491 </span> 89/<- %esp 5/r32/ebp -<span id="L11492" class="LineNr">11492 </span> 5d/pop-to-ebp -<span id="L11493" class="LineNr">11493 </span> c3/return -<span id="L11494" class="LineNr">11494 </span> -<span id="L11495" class="LineNr">11495 </span><span class="Constant">$new-literal-integer:abort</span>: -<span id="L11496" class="LineNr">11496 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L11497" class="LineNr">11497 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L11498" class="LineNr">11498 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L11499" class="LineNr">11499 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L11500" class="LineNr">11500 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) -<span id="L11501" class="LineNr">11501 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L11502" class="LineNr">11502 </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="L11503" class="LineNr">11503 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L11504" class="LineNr">11504 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L11505" class="LineNr">11505 </span> <span class="subxComment"># never gets here</span> -<span id="L11506" class="LineNr">11506 </span> -<span id="L11507" class="LineNr">11507 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> -<span id="L11508" class="LineNr">11508 </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="L11509" class="LineNr">11509 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11510" class="LineNr">11510 </span> 55/push-ebp -<span id="L11511" class="LineNr">11511 </span> 89/<- %ebp 4/r32/esp -<span id="L11512" class="LineNr">11512 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11513" class="LineNr">11513 </span> 50/push-eax -<span id="L11514" class="LineNr">11514 </span> 51/push-ecx -<span id="L11515" class="LineNr">11515 </span> 52/push-edx -<span id="L11516" class="LineNr">11516 </span> <span class="subxComment"># ecx = name</span> -<span id="L11517" class="LineNr">11517 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L11518" class="LineNr">11518 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> -<span id="L11519" class="LineNr">11519 </span> 8b/-> *ecx 2/r32/edx -<span id="L11520" class="LineNr">11520 </span> <span class="subxComment"># if (*start == '-') ++start</span> -<span id="L11521" class="LineNr">11521 </span> b8/copy-to-eax 0/imm32 -<span id="L11522" class="LineNr">11522 </span> 8a/copy-byte *edx 0/r32/AL -<span id="L11523" class="LineNr">11523 </span> 3d/compare-eax-and 0x2d/imm32/dash -<span id="L11524" class="LineNr">11524 </span> { -<span id="L11525" class="LineNr">11525 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L11526" class="LineNr">11526 </span> 42/increment-edx -<span id="L11527" class="LineNr">11527 </span> } -<span id="L11528" class="LineNr">11528 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> -<span id="L11529" class="LineNr">11529 </span> 8b/-> *(ecx+4) 1/r32/ecx -<span id="L11530" class="LineNr">11530 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> -<span id="L11531" class="LineNr">11531 </span> 89/<- %eax 1/r32/ecx -<span id="L11532" class="LineNr">11532 </span> 29/subtract-from %eax 2/r32/edx -<span id="L11533" class="LineNr">11533 </span> <span class="subxComment"># if (len <= 1) return</span> -<span id="L11534" class="LineNr">11534 </span> 3d/compare-eax-with 1/imm32 -<span id="L11535" class="LineNr">11535 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 -<span id="L11536" class="LineNr">11536 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: -<span id="L11537" class="LineNr">11537 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> -<span id="L11538" class="LineNr">11538 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> -<span id="L11539" class="LineNr">11539 </span> 51/push-ecx -<span id="L11540" class="LineNr">11540 </span> 52/push-edx -<span id="L11541" class="LineNr">11541 </span> 89/<- %eax 4/r32/esp -<span id="L11542" class="LineNr">11542 </span> <span class="subxS1Comment"># .</span> -<span id="L11543" class="LineNr">11543 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> -<span id="L11544" class="LineNr">11544 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L11545" class="LineNr">11545 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11546" class="LineNr">11546 </span> <span class="subxS1Comment"># .</span> -<span id="L11547" class="LineNr">11547 </span> 3d/compare-eax-with 0/imm32/false -<span id="L11548" class="LineNr">11548 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 -<span id="L11549" class="LineNr">11549 </span><span class="Constant">$check-mu-hex-int:abort</span>: -<span id="L11550" class="LineNr">11550 </span> <span class="subxComment"># otherwise abort</span> -<span id="L11551" class="LineNr">11551 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"literal integers are always hex in Mu; either start '"</span>) -<span id="L11552" class="LineNr">11552 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) -<span id="L11553" class="LineNr">11553 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' with a '0x' to be unambiguous, or convert it to decimal.\n"</span>) -<span id="L11554" class="LineNr">11554 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L11555" class="LineNr">11555 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L11556" class="LineNr">11556 </span><span class="Constant">$check-mu-hex-int:end</span>: -<span id="L11557" class="LineNr">11557 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11558" class="LineNr">11558 </span> 5a/pop-to-edx -<span id="L11559" class="LineNr">11559 </span> 59/pop-to-ecx -<span id="L11560" class="LineNr">11560 </span> 58/pop-to-eax -<span id="L11561" class="LineNr">11561 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11562" class="LineNr">11562 </span> 89/<- %esp 5/r32/ebp -<span id="L11563" class="LineNr">11563 </span> 5d/pop-to-ebp -<span id="L11564" class="LineNr">11564 </span> c3/return -<span id="L11565" class="LineNr">11565 </span> -<span id="L11566" class="LineNr">11566 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L11567" class="LineNr">11567 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11568" class="LineNr">11568 </span> 55/push-ebp -<span id="L11569" class="LineNr">11569 </span> 89/<- %ebp 4/r32/esp -<span id="L11570" class="LineNr">11570 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11571" class="LineNr">11571 </span> 50/push-eax -<span id="L11572" class="LineNr">11572 </span> 51/push-ecx -<span id="L11573" class="LineNr">11573 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L11574" class="LineNr">11574 </span> 68/push 0/imm32 -<span id="L11575" class="LineNr">11575 </span> 68/push 0/imm32 -<span id="L11576" class="LineNr">11576 </span> 89/<- %ecx 4/r32/esp -<span id="L11577" class="LineNr">11577 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L11578" class="LineNr">11578 </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="L11579" class="LineNr">11579 </span> <span class="subxComment"># allocate to out</span> -<span id="L11580" class="LineNr">11580 </span> (<a href='mu.subx.html#L11420'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L11581" class="LineNr">11581 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L11582" class="LineNr">11582 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L11583" class="LineNr">11583 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L11584" class="LineNr">11584 </span> 89/<- %ecx 0/r32/eax -<span id="L11585" class="LineNr">11585 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L11586" class="LineNr">11586 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/r32/eax -<span id="L11587" class="LineNr">11587 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L11588" class="LineNr">11588 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L11589" class="LineNr">11589 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L11590" class="LineNr">11590 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> %eax) -<span id="L11591" class="LineNr">11591 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L11592" class="LineNr">11592 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L11593" class="LineNr">11593 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L11594" class="LineNr">11594 </span><span class="Constant">$new-literal:end</span>: -<span id="L11595" class="LineNr">11595 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L11596" class="LineNr">11596 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11597" class="LineNr">11597 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11598" class="LineNr">11598 </span> 59/pop-to-ecx -<span id="L11599" class="LineNr">11599 </span> 58/pop-to-eax -<span id="L11600" class="LineNr">11600 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11601" class="LineNr">11601 </span> 89/<- %esp 5/r32/ebp -<span id="L11602" class="LineNr">11602 </span> 5d/pop-to-ebp -<span id="L11603" class="LineNr">11603 </span> c3/return -<span id="L11604" class="LineNr">11604 </span> -<span id="L11605" class="LineNr">11605 </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="L11606" class="LineNr">11606 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11607" class="LineNr">11607 </span> 55/push-ebp -<span id="L11608" class="LineNr">11608 </span> 89/<- %ebp 4/r32/esp -<span id="L11609" class="LineNr">11609 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11610" class="LineNr">11610 </span> 51/push-ecx -<span id="L11611" class="LineNr">11611 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> -<span id="L11612" class="LineNr">11612 </span> 68/push 0/imm32 -<span id="L11613" class="LineNr">11613 </span> 68/push 0/imm32 -<span id="L11614" class="LineNr">11614 </span> 89/<- %ecx 4/r32/esp -<span id="L11615" class="LineNr">11615 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> -<span id="L11616" class="LineNr">11616 </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="L11617" class="LineNr">11617 </span> <span class="subxComment"># out = new-var(tmp)</span> -<span id="L11618" class="LineNr">11618 </span> (<a href='mu.subx.html#L11420'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L11619" class="LineNr">11619 </span><span class="Constant">$new-var-from-slice:end</span>: -<span id="L11620" class="LineNr">11620 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L11621" class="LineNr">11621 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11622" class="LineNr">11622 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11623" class="LineNr">11623 </span> 59/pop-to-ecx -<span id="L11624" class="LineNr">11624 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11625" class="LineNr">11625 </span> 89/<- %esp 5/r32/ebp -<span id="L11626" class="LineNr">11626 </span> 5d/pop-to-ebp -<span id="L11627" class="LineNr">11627 </span> c3/return -<span id="L11628" class="LineNr">11628 </span> -<span id="L11629" class="LineNr">11629 </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="L11630" class="LineNr">11630 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11631" class="LineNr">11631 </span> 55/push-ebp -<span id="L11632" class="LineNr">11632 </span> 89/<- %ebp 4/r32/esp -<span id="L11633" class="LineNr">11633 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11634" class="LineNr">11634 </span> 50/push-eax -<span id="L11635" class="LineNr">11635 </span> 51/push-ecx -<span id="L11636" class="LineNr">11636 </span> <span class="subxComment">#</span> -<span id="L11637" class="LineNr">11637 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L329'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L11638" class="LineNr">11638 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L11639" class="LineNr">11639 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L11640" class="LineNr">11640 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11641" class="LineNr">11641 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L11642" class="LineNr">11642 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> -<span id="L11643" class="LineNr">11643 </span> <span class="subxComment"># result->var = var</span> -<span id="L11644" class="LineNr">11644 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L11645" class="LineNr">11645 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L11646" class="LineNr">11646 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L11647" class="LineNr">11647 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L11648" class="LineNr">11648 </span><span class="Constant">$new-var-def:end</span>: -<span id="L11649" class="LineNr">11649 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11650" class="LineNr">11650 </span> 59/pop-to-ecx -<span id="L11651" class="LineNr">11651 </span> 58/pop-to-eax -<span id="L11652" class="LineNr">11652 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11653" class="LineNr">11653 </span> 89/<- %esp 5/r32/ebp -<span id="L11654" class="LineNr">11654 </span> 5d/pop-to-ebp -<span id="L11655" class="LineNr">11655 </span> c3/return -<span id="L11656" class="LineNr">11656 </span> -<span id="L11657" class="LineNr">11657 </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="L11658" class="LineNr">11658 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11659" class="LineNr">11659 </span> 55/push-ebp -<span id="L11660" class="LineNr">11660 </span> 89/<- %ebp 4/r32/esp -<span id="L11661" class="LineNr">11661 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11662" class="LineNr">11662 </span> 50/push-eax -<span id="L11663" class="LineNr">11663 </span> <span class="subxComment"># eax = out</span> -<span id="L11664" class="LineNr">11664 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L11665" class="LineNr">11665 </span> <span class="subxComment">#</span> -<span id="L11666" class="LineNr">11666 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L329'>Stmt-size</a></span> %eax) -<span id="L11667" class="LineNr">11667 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L11668" class="LineNr">11668 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11669" class="LineNr">11669 </span> <span class="subxComment"># set tag</span> -<span id="L11670" class="LineNr">11670 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> -<span id="L11671" class="LineNr">11671 </span> <span class="subxComment"># set output</span> -<span id="L11672" class="LineNr">11672 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> -<span id="L11673" class="LineNr">11673 </span> (<a href='mu.subx.html#L11740'>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="L11674" class="LineNr">11674 </span><span class="Constant">$new-reg-var-def:end</span>: -<span id="L11675" class="LineNr">11675 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11676" class="LineNr">11676 </span> 58/pop-to-eax -<span id="L11677" class="LineNr">11677 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11678" class="LineNr">11678 </span> 89/<- %esp 5/r32/ebp -<span id="L11679" class="LineNr">11679 </span> 5d/pop-to-ebp -<span id="L11680" class="LineNr">11680 </span> c3/return -<span id="L11681" class="LineNr">11681 </span> -<span id="L11682" class="LineNr">11682 </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="L11683" class="LineNr">11683 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11684" class="LineNr">11684 </span> 55/push-ebp -<span id="L11685" class="LineNr">11685 </span> 89/<- %ebp 4/r32/esp -<span id="L11686" class="LineNr">11686 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11687" class="LineNr">11687 </span> 50/push-eax -<span id="L11688" class="LineNr">11688 </span> 51/push-ecx -<span id="L11689" class="LineNr">11689 </span> 57/push-edi -<span id="L11690" class="LineNr">11690 </span> <span class="subxComment"># edi = out</span> -<span id="L11691" class="LineNr">11691 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L11692" class="LineNr">11692 </span> <span class="subxComment"># *out = new list</span> -<span id="L11693" class="LineNr">11693 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L349'>List-size</a></span> %edi) -<span id="L11694" class="LineNr">11694 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> -<span id="L11695" class="LineNr">11695 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L11696" class="LineNr">11696 </span> 89/<- %edi 0/r32/eax -<span id="L11697" class="LineNr">11697 </span> <span class="subxComment"># out-addr->value = value</span> -<span id="L11698" class="LineNr">11698 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L11699" class="LineNr">11699 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L11700" class="LineNr">11700 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L11701" class="LineNr">11701 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L11702" class="LineNr">11702 </span> <span class="subxComment"># if (list == null) return</span> -<span id="L11703" class="LineNr">11703 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 -<span id="L11704" class="LineNr">11704 </span> 74/jump-if-= $append-list:end/disp8 -<span id="L11705" class="LineNr">11705 </span> <span class="subxComment"># otherwise append</span> -<span id="L11706" class="LineNr">11706 </span><span class="Constant">$append-list:non-empty-list</span>: -<span id="L11707" class="LineNr">11707 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> -<span id="L11708" class="LineNr">11708 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L11709" class="LineNr">11709 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L11710" class="LineNr">11710 </span> { -<span id="L11711" class="LineNr">11711 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> -<span id="L11712" class="LineNr">11712 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L11713" class="LineNr">11713 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L11714" class="LineNr">11714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> -<span id="L11715" class="LineNr">11715 </span> <span class="subxComment">#</span> -<span id="L11716" class="LineNr">11716 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L11717" class="LineNr">11717 </span> } -<span id="L11718" class="LineNr">11718 </span> <span class="subxComment"># edi = out</span> -<span id="L11719" class="LineNr">11719 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L11720" class="LineNr">11720 </span> <span class="subxComment"># curr->next = out</span> -<span id="L11721" class="LineNr">11721 </span> 8b/-> *edi 1/r32/ecx -<span id="L11722" class="LineNr">11722 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L11723" class="LineNr">11723 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L11724" class="LineNr">11724 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L11725" class="LineNr">11725 </span> <span class="subxComment"># out = list</span> -<span id="L11726" class="LineNr">11726 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L11727" class="LineNr">11727 </span> 89/<- *edi 1/r32/ecx -<span id="L11728" class="LineNr">11728 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L11729" class="LineNr">11729 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L11730" class="LineNr">11730 </span><span class="Constant">$append-list:end</span>: -<span id="L11731" class="LineNr">11731 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11732" class="LineNr">11732 </span> 5f/pop-to-edi -<span id="L11733" class="LineNr">11733 </span> 59/pop-to-ecx -<span id="L11734" class="LineNr">11734 </span> 58/pop-to-eax -<span id="L11735" class="LineNr">11735 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11736" class="LineNr">11736 </span> 89/<- %esp 5/r32/ebp -<span id="L11737" class="LineNr">11737 </span> 5d/pop-to-ebp -<span id="L11738" class="LineNr">11738 </span> c3/return -<span id="L11739" class="LineNr">11739 </span> -<span id="L11740" class="LineNr">11740 </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="L11741" class="LineNr">11741 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11742" class="LineNr">11742 </span> 55/push-ebp -<span id="L11743" class="LineNr">11743 </span> 89/<- %ebp 4/r32/esp -<span id="L11744" class="LineNr">11744 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11745" class="LineNr">11745 </span> 50/push-eax -<span id="L11746" class="LineNr">11746 </span> 51/push-ecx -<span id="L11747" class="LineNr">11747 </span> 57/push-edi -<span id="L11748" class="LineNr">11748 </span> <span class="subxComment"># edi = out</span> -<span id="L11749" class="LineNr">11749 </span> 8b/-> *(ebp+0x20) 7/r32/edi -<span id="L11750" class="LineNr">11750 </span> <span class="subxComment"># out = new stmt-var</span> -<span id="L11751" class="LineNr">11751 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L359'>Stmt-var-size</a></span> %edi) -<span id="L11752" class="LineNr">11752 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> -<span id="L11753" class="LineNr">11753 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L11754" class="LineNr">11754 </span> 89/<- %ecx 0/r32/eax -<span id="L11755" class="LineNr">11755 </span> <span class="subxComment"># out-addr->value = v</span> -<span id="L11756" class="LineNr">11756 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L11757" class="LineNr">11757 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L11758" class="LineNr">11758 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L11759" class="LineNr">11759 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L11760" class="LineNr">11760 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> -<span id="L11761" class="LineNr">11761 </span> 8b/-> *(ebp+0x1c) 0/r32/eax -<span id="L11762" class="LineNr">11762 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L11763" class="LineNr">11763 </span> <span class="subxComment"># if (vars == null) return result</span> -<span id="L11764" class="LineNr">11764 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null -<span id="L11765" class="LineNr">11765 </span> 74/jump-if-= $append-stmt-var:end/disp8 -<span id="L11766" class="LineNr">11766 </span> <span class="subxComment"># otherwise append</span> -<span id="L11767" class="LineNr">11767 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> -<span id="L11768" class="LineNr">11768 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L11769" class="LineNr">11769 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L11770" class="LineNr">11770 </span> { -<span id="L11771" class="LineNr">11771 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L11772" class="LineNr">11772 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L11773" class="LineNr">11773 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L11774" class="LineNr">11774 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> -<span id="L11775" class="LineNr">11775 </span> <span class="subxComment">#</span> -<span id="L11776" class="LineNr">11776 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L11777" class="LineNr">11777 </span> } -<span id="L11778" class="LineNr">11778 </span> <span class="subxComment"># curr->next = out</span> -<span id="L11779" class="LineNr">11779 </span> 8b/-> *edi 1/r32/ecx -<span id="L11780" class="LineNr">11780 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L11781" class="LineNr">11781 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L11782" class="LineNr">11782 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L11783" class="LineNr">11783 </span> <span class="subxComment"># out = vars</span> -<span id="L11784" class="LineNr">11784 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L11785" class="LineNr">11785 </span> 89/<- *edi 1/r32/ecx -<span id="L11786" class="LineNr">11786 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L11787" class="LineNr">11787 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L11788" class="LineNr">11788 </span><span class="Constant">$append-stmt-var:end</span>: -<span id="L11789" class="LineNr">11789 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11790" class="LineNr">11790 </span> 5f/pop-to-edi -<span id="L11791" class="LineNr">11791 </span> 59/pop-to-ecx -<span id="L11792" class="LineNr">11792 </span> 58/pop-to-eax -<span id="L11793" class="LineNr">11793 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11794" class="LineNr">11794 </span> 89/<- %esp 5/r32/ebp -<span id="L11795" class="LineNr">11795 </span> 5d/pop-to-ebp -<span id="L11796" class="LineNr">11796 </span> c3/return -<span id="L11797" class="LineNr">11797 </span> -<span id="L11798" class="LineNr">11798 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> -<span id="L11799" class="LineNr">11799 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11800" class="LineNr">11800 </span> 55/push-ebp -<span id="L11801" class="LineNr">11801 </span> 89/<- %ebp 4/r32/esp -<span id="L11802" class="LineNr">11802 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11803" class="LineNr">11803 </span> 50/push-eax -<span id="L11804" class="LineNr">11804 </span> 56/push-esi -<span id="L11805" class="LineNr">11805 </span> <span class="subxComment"># esi = block</span> -<span id="L11806" class="LineNr">11806 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L11807" class="LineNr">11807 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> -<span id="L11808" class="LineNr">11808 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> -<span id="L11809" class="LineNr">11809 </span> (<a href='mu.subx.html#L11682'>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="L11810" class="LineNr">11810 </span><span class="Constant">$append-to-block:end</span>: -<span id="L11811" class="LineNr">11811 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11812" class="LineNr">11812 </span> 5e/pop-to-esi -<span id="L11813" class="LineNr">11813 </span> 58/pop-to-eax -<span id="L11814" class="LineNr">11814 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11815" class="LineNr">11815 </span> 89/<- %esp 5/r32/ebp -<span id="L11816" class="LineNr">11816 </span> 5d/pop-to-ebp -<span id="L11817" class="LineNr">11817 </span> c3/return -<span id="L11818" class="LineNr">11818 </span> -<span id="L11819" class="LineNr">11819 </span><span class="subxComment">## Parsing types</span> -<span id="L11820" class="LineNr">11820 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> -<span id="L11821" class="LineNr">11821 </span><span class="subxComment"># metadata as we parse instructions.</span> -<span id="L11822" class="LineNr">11822 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> -<span id="L11823" class="LineNr">11823 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> -<span id="L11824" class="LineNr">11824 </span> -<span id="L11825" class="LineNr">11825 </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="L11826" class="LineNr">11826 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11827" class="LineNr">11827 </span> 55/push-ebp -<span id="L11828" class="LineNr">11828 </span> 89/<- %ebp 4/r32/esp -<span id="L11829" class="LineNr">11829 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11830" class="LineNr">11830 </span> 50/push-eax -<span id="L11831" class="LineNr">11831 </span> 56/push-esi -<span id="L11832" class="LineNr">11832 </span> <span class="subxComment"># var container-type/esi: type-id</span> -<span id="L11833" class="LineNr">11833 </span> (<a href='mu.subx.html#L11876'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L11834" class="LineNr">11834 </span> 89/<- %esi 0/r32/eax -<span id="L11835" class="LineNr">11835 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> -<span id="L11836" class="LineNr">11836 </span> 68/push 0/imm32 -<span id="L11837" class="LineNr">11837 </span> 68/push 0/imm32 -<span id="L11838" class="LineNr">11838 </span> 89/<- %eax 4/r32/esp -<span id="L11839" class="LineNr">11839 </span> (<a href='mu.subx.html#L11913'>find-or-create-typeinfo</a> %esi %eax) -<span id="L11840" class="LineNr">11840 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> -<span id="L11841" class="LineNr">11841 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L11842" class="LineNr">11842 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> -<span id="L11843" class="LineNr">11843 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> -<span id="L11844" class="LineNr">11844 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L11845" class="LineNr">11845 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L11846" class="LineNr">11846 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L11847" class="LineNr">11847 </span> (<a href='mu.subx.html#L12029'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L11848" class="LineNr">11848 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> -<span id="L11849" class="LineNr">11849 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L11850" class="LineNr">11850 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L11851" class="LineNr">11851 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L11852" class="LineNr">11852 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L11853" class="LineNr">11853 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L11854" class="LineNr">11854 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L11855" class="LineNr">11855 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L11856" class="LineNr">11856 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> -<span id="L11857" class="LineNr">11857 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> -<span id="L11858" class="LineNr">11858 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L11859" class="LineNr">11859 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L11860" class="LineNr">11860 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L11861" class="LineNr">11861 </span><span class="Constant">$lookup-or-create-constant:end</span>: -<span id="L11862" class="LineNr">11862 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L11863" class="LineNr">11863 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11864" class="LineNr">11864 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11865" class="LineNr">11865 </span> 5e/pop-to-esi -<span id="L11866" class="LineNr">11866 </span> 58/pop-to-eax -<span id="L11867" class="LineNr">11867 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11868" class="LineNr">11868 </span> 89/<- %esp 5/r32/ebp -<span id="L11869" class="LineNr">11869 </span> 5d/pop-to-ebp -<span id="L11870" class="LineNr">11870 </span> c3/return -<span id="L11871" class="LineNr">11871 </span> -<span id="L11872" class="LineNr">11872 </span><span class="subxComment"># if addr var:</span> -<span id="L11873" class="LineNr">11873 </span><span class="subxComment"># container->var->type->right->left->value</span> -<span id="L11874" class="LineNr">11874 </span><span class="subxComment"># otherwise</span> -<span id="L11875" class="LineNr">11875 </span><span class="subxComment"># container->var->type->value</span> -<span id="L11876" class="LineNr">11876 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> -<span id="L11877" class="LineNr">11877 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11878" class="LineNr">11878 </span> 55/push-ebp -<span id="L11879" class="LineNr">11879 </span> 89/<- %ebp 4/r32/esp -<span id="L11880" class="LineNr">11880 </span> <span class="subxComment">#</span> -<span id="L11881" class="LineNr">11881 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L11882" class="LineNr">11882 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L11883" class="LineNr">11883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L11884" class="LineNr">11884 </span> { -<span id="L11885" class="LineNr">11885 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L11886" class="LineNr">11886 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L11887" class="LineNr">11887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L11888" class="LineNr">11888 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L11889" class="LineNr">11889 </span> } -<span id="L11890" class="LineNr">11890 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L11891" class="LineNr">11891 </span><span class="Constant">$container-type:end</span>: -<span id="L11892" class="LineNr">11892 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11893" class="LineNr">11893 </span> 89/<- %esp 5/r32/ebp -<span id="L11894" class="LineNr">11894 </span> 5d/pop-to-ebp -<span id="L11895" class="LineNr">11895 </span> c3/return -<span id="L11896" class="LineNr">11896 </span> -<span id="L11897" class="LineNr">11897 </span><span class="subxFunction">is-container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> -<span id="L11898" class="LineNr">11898 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11899" class="LineNr">11899 </span> 55/push-ebp -<span id="L11900" class="LineNr">11900 </span> 89/<- %ebp 4/r32/esp -<span id="L11901" class="LineNr">11901 </span> <span class="subxComment">#</span> -<span id="L11902" class="LineNr">11902 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L11903" class="LineNr">11903 </span> c1/shift 4/subop/left %eax 2/imm8 -<span id="L11904" class="LineNr">11904 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> -<span id="L11905" class="LineNr">11905 </span> 0f 9d/set-if->= %al -<span id="L11906" class="LineNr">11906 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L11907" class="LineNr">11907 </span><span class="Constant">$is-container?:end</span>: -<span id="L11908" class="LineNr">11908 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11909" class="LineNr">11909 </span> 89/<- %esp 5/r32/ebp -<span id="L11910" class="LineNr">11910 </span> 5d/pop-to-ebp -<span id="L11911" class="LineNr">11911 </span> c3/return -<span id="L11912" class="LineNr">11912 </span> -<span id="L11913" class="LineNr">11913 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L11914" class="LineNr">11914 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11915" class="LineNr">11915 </span> 55/push-ebp -<span id="L11916" class="LineNr">11916 </span> 89/<- %ebp 4/r32/esp -<span id="L11917" class="LineNr">11917 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11918" class="LineNr">11918 </span> 50/push-eax -<span id="L11919" class="LineNr">11919 </span> 51/push-ecx -<span id="L11920" class="LineNr">11920 </span> 52/push-edx -<span id="L11921" class="LineNr">11921 </span> 57/push-edi -<span id="L11922" class="LineNr">11922 </span> <span class="subxComment"># edi = out</span> -<span id="L11923" class="LineNr">11923 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L11924" class="LineNr">11924 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L11925" class="LineNr">11925 </span> 68/push 0/imm32 -<span id="L11926" class="LineNr">11926 </span> 68/push 0/imm32 -<span id="L11927" class="LineNr">11927 </span> 89/<- %ecx 4/r32/esp -<span id="L11928" class="LineNr">11928 </span> <span class="subxComment"># find-typeinfo(t, out)</span> -<span id="L11929" class="LineNr">11929 </span> (<a href='mu.subx.html#L11980'>find-typeinfo</a> *(ebp+8) %edi) -<span id="L11930" class="LineNr">11930 </span> { -<span id="L11931" class="LineNr">11931 </span> <span class="subxComment"># if (*out != 0) break</span> -<span id="L11932" class="LineNr">11932 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L11933" class="LineNr">11933 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L11934" class="LineNr">11934 </span><span class="Constant">$find-or-create-typeinfo:create</span>: -<span id="L11935" class="LineNr">11935 </span> <span class="subxComment"># *out = allocate</span> -<span id="L11936" class="LineNr">11936 </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#L450'>Typeinfo-size</a></span> %edi) -<span id="L11937" class="LineNr">11937 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L11938" class="LineNr">11938 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L11939" class="LineNr">11939 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> -<span id="L11940" class="LineNr">11940 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L11941" class="LineNr">11941 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> -<span id="L11942" class="LineNr">11942 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L11943" class="LineNr">11943 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L11944" class="LineNr">11944 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L11945" class="LineNr">11945 </span> <span class="subxComment"># tmp->id = t</span> -<span id="L11946" class="LineNr">11946 </span> 8b/-> *(ebp+8) 2/r32/edx -<span id="L11947" class="LineNr">11947 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> -<span id="L11948" class="LineNr">11948 </span> <span class="subxComment"># tmp->fields = new table</span> -<span id="L11949" class="LineNr">11949 </span> <span class="subxS1Comment"># . fields = new table</span> -<span id="L11950" class="LineNr">11950 </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#L455'>Typeinfo-fields-row-size</a></span> %ecx) -<span id="L11951" class="LineNr">11951 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> -<span id="L11952" class="LineNr">11952 </span> 8b/-> *ecx 2/r32/edx -<span id="L11953" class="LineNr">11953 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L11954" class="LineNr">11954 </span> 8b/-> *(ecx+4) 2/r32/edx -<span id="L11955" class="LineNr">11955 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L11956" class="LineNr">11956 </span> <span class="subxComment"># tmp->next = Program->types</span> -<span id="L11957" class="LineNr">11957 </span> 8b/-> *_Program-types 1/r32/ecx -<span id="L11958" class="LineNr">11958 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L11959" class="LineNr">11959 </span> 8b/-> *_Program-types->payload 1/r32/ecx -<span id="L11960" class="LineNr">11960 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L11961" class="LineNr">11961 </span> <span class="subxComment"># Program->types = out</span> -<span id="L11962" class="LineNr">11962 </span> 8b/-> *edi 1/r32/ecx -<span id="L11963" class="LineNr">11963 </span> 89/<- *_Program-types 1/r32/ecx -<span id="L11964" class="LineNr">11964 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L11965" class="LineNr">11965 </span> 89/<- *_Program-types->payload 1/r32/ecx -<span id="L11966" class="LineNr">11966 </span> } -<span id="L11967" class="LineNr">11967 </span><span class="Constant">$find-or-create-typeinfo:end</span>: -<span id="L11968" class="LineNr">11968 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L11969" class="LineNr">11969 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11970" class="LineNr">11970 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L11971" class="LineNr">11971 </span> 5f/pop-to-edi -<span id="L11972" class="LineNr">11972 </span> 5a/pop-to-edx -<span id="L11973" class="LineNr">11973 </span> 59/pop-to-ecx -<span id="L11974" class="LineNr">11974 </span> 58/pop-to-eax -<span id="L11975" class="LineNr">11975 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11976" class="LineNr">11976 </span> 89/<- %esp 5/r32/ebp -<span id="L11977" class="LineNr">11977 </span> 5d/pop-to-ebp -<span id="L11978" class="LineNr">11978 </span> c3/return -<span id="L11979" class="LineNr">11979 </span> -<span id="L11980" class="LineNr">11980 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L11981" class="LineNr">11981 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11982" class="LineNr">11982 </span> 55/push-ebp -<span id="L11983" class="LineNr">11983 </span> 89/<- %ebp 4/r32/esp -<span id="L11984" class="LineNr">11984 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11985" class="LineNr">11985 </span> 50/push-eax -<span id="L11986" class="LineNr">11986 </span> 51/push-ecx -<span id="L11987" class="LineNr">11987 </span> 52/push-edx -<span id="L11988" class="LineNr">11988 </span> 57/push-edi -<span id="L11989" class="LineNr">11989 </span> <span class="subxComment"># ecx = t</span> -<span id="L11990" class="LineNr">11990 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L11991" class="LineNr">11991 </span> <span class="subxComment"># edi = out</span> -<span id="L11992" class="LineNr">11992 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L11993" class="LineNr">11993 </span> <span class="subxComment"># *out = Program->types</span> -<span id="L11994" class="LineNr">11994 </span> 8b/-> *_Program-types 0/r32/eax -<span id="L11995" class="LineNr">11995 </span> 89/<- *edi 0/r32/eax -<span id="L11996" class="LineNr">11996 </span> 8b/-> *_Program-types->payload 0/r32/eax -<span id="L11997" class="LineNr">11997 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L11998" class="LineNr">11998 </span> { -<span id="L11999" class="LineNr">11999 </span><span class="Constant">$find-typeinfo:loop</span>: -<span id="L12000" class="LineNr">12000 </span> <span class="subxComment"># if (*out == 0) break</span> -<span id="L12001" class="LineNr">12001 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L12002" class="LineNr">12002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12003" class="LineNr">12003 </span><span class="Constant">$find-typeinfo:check</span>: -<span id="L12004" class="LineNr">12004 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L12005" class="LineNr">12005 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L12006" class="LineNr">12006 </span> <span class="subxComment"># if (tmp->id == t) break</span> -<span id="L12007" class="LineNr">12007 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> -<span id="L12008" class="LineNr">12008 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12009" class="LineNr">12009 </span><span class="Constant">$find-typeinfo:continue</span>: -<span id="L12010" class="LineNr">12010 </span> <span class="subxComment"># *out = tmp->next</span> -<span id="L12011" class="LineNr">12011 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L12012" class="LineNr">12012 </span> 89/<- *edi 2/r32/edx -<span id="L12013" class="LineNr">12013 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L12014" class="LineNr">12014 </span> 89/<- *(edi+4) 2/r32/edx -<span id="L12015" class="LineNr">12015 </span> <span class="subxComment">#</span> -<span id="L12016" class="LineNr">12016 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12017" class="LineNr">12017 </span> } -<span id="L12018" class="LineNr">12018 </span><span class="Constant">$find-typeinfo:end</span>: -<span id="L12019" class="LineNr">12019 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12020" class="LineNr">12020 </span> 5f/pop-to-edi -<span id="L12021" class="LineNr">12021 </span> 5a/pop-to-edx -<span id="L12022" class="LineNr">12022 </span> 59/pop-to-ecx -<span id="L12023" class="LineNr">12023 </span> 58/pop-to-eax -<span id="L12024" class="LineNr">12024 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12025" class="LineNr">12025 </span> 89/<- %esp 5/r32/ebp -<span id="L12026" class="LineNr">12026 </span> 5d/pop-to-ebp -<span id="L12027" class="LineNr">12027 </span> c3/return -<span id="L12028" class="LineNr">12028 </span> -<span id="L12029" class="LineNr">12029 </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="L12030" class="LineNr">12030 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12031" class="LineNr">12031 </span> 55/push-ebp -<span id="L12032" class="LineNr">12032 </span> 89/<- %ebp 4/r32/esp -<span id="L12033" class="LineNr">12033 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12034" class="LineNr">12034 </span> 50/push-eax -<span id="L12035" class="LineNr">12035 </span> 52/push-edx -<span id="L12036" class="LineNr">12036 </span> 57/push-edi -<span id="L12037" class="LineNr">12037 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</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> 89/<- %edi 4/r32/esp -<span id="L12041" class="LineNr">12041 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> -<span id="L12042" class="LineNr">12042 </span> (<a href='mu.subx.html#L12094'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) -<span id="L12043" class="LineNr">12043 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> -<span id="L12044" class="LineNr">12044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L12045" class="LineNr">12045 </span> 89/<- %edi 0/r32/eax -<span id="L12046" class="LineNr">12046 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> -<span id="L12047" class="LineNr">12047 </span> { -<span id="L12048" class="LineNr">12048 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12049" class="LineNr">12049 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L12050" class="LineNr">12050 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> -<span id="L12051" class="LineNr">12051 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> -<span id="L12052" class="LineNr">12052 </span> 68/push 0/imm32 -<span id="L12053" class="LineNr">12053 </span> 68/push 0/imm32 -<span id="L12054" class="LineNr">12054 </span> 89/<- %eax 4/r32/esp -<span id="L12055" class="LineNr">12055 </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="L12056" class="LineNr">12056 </span> <span class="subxS1Comment"># . new var</span> -<span id="L12057" class="LineNr">12057 </span> 8d/copy-address *(edi+0xc) 2/r32/edx -<span id="L12058" class="LineNr">12058 </span> (<a href='mu.subx.html#L11420'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L12059" class="LineNr">12059 </span> <span class="subxS1Comment"># . reclaim name</span> -<span id="L12060" class="LineNr">12060 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12061" class="LineNr">12061 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> -<span id="L12062" class="LineNr">12062 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> -<span id="L12063" class="LineNr">12063 </span> 89/<- %edx 0/r32/eax -<span id="L12064" class="LineNr">12064 </span> <span class="subxComment"># result->type = new constant type</span> -<span id="L12065" class="LineNr">12065 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L12066" class="LineNr">12066 </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#L388'>Type-tree-size</a></span> %eax) -<span id="L12067" class="LineNr">12067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> -<span id="L12068" class="LineNr">12068 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L12069" class="LineNr">12069 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> -<span id="L12070" class="LineNr">12070 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L12071" class="LineNr">12071 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L12072" class="LineNr">12072 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L12073" class="LineNr">12073 </span> <span class="subxComment"># result->offset isn't filled out yet</span> -<span id="L12074" class="LineNr">12074 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L12075" class="LineNr">12075 </span> } -<span id="L12076" class="LineNr">12076 </span> <span class="subxComment"># out = dest-addr->output-var</span> -<span id="L12077" class="LineNr">12077 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L12078" class="LineNr">12078 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12079" class="LineNr">12079 </span> 89/<- *edx 0/r32/eax -<span id="L12080" class="LineNr">12080 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12081" class="LineNr">12081 </span> 89/<- *(edx+4) 0/r32/eax -<span id="L12082" class="LineNr">12082 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: -<span id="L12083" class="LineNr">12083 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L12084" class="LineNr">12084 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12085" class="LineNr">12085 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12086" class="LineNr">12086 </span> 5f/pop-to-edi -<span id="L12087" class="LineNr">12087 </span> 5a/pop-to-edx -<span id="L12088" class="LineNr">12088 </span> 58/pop-to-eax -<span id="L12089" class="LineNr">12089 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12090" class="LineNr">12090 </span> 89/<- %esp 5/r32/ebp -<span id="L12091" class="LineNr">12091 </span> 5d/pop-to-ebp -<span id="L12092" class="LineNr">12092 </span> c3/return -<span id="L12093" class="LineNr">12093 </span> -<span id="L12094" class="LineNr">12094 </span><span class="subxFunction">find-or-create-typeinfo-fields</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle typeinfo-entry)</span> -<span id="L12095" class="LineNr">12095 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12096" class="LineNr">12096 </span> 55/push-ebp -<span id="L12097" class="LineNr">12097 </span> 89/<- %ebp 4/r32/esp -<span id="L12098" class="LineNr">12098 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12099" class="LineNr">12099 </span> 50/push-eax -<span id="L12100" class="LineNr">12100 </span> 56/push-esi -<span id="L12101" class="LineNr">12101 </span> 57/push-edi -<span id="L12102" class="LineNr">12102 </span> <span class="subxComment"># eax = lookup(T->fields)</span> -<span id="L12103" class="LineNr">12103 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L12104" class="LineNr">12104 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L12105" class="LineNr">12105 </span> <span class="subxComment"># edi = out</span> -<span id="L12106" class="LineNr">12106 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L12107" class="LineNr">12107 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> -<span id="L12108" class="LineNr">12108 </span> (<a href='../131table.subx.html#L1022'>get-or-insert-slice</a> %eax *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L455'>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="L12109" class="LineNr">12109 </span> 89/<- %esi 0/r32/eax -<span id="L12110" class="LineNr">12110 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> -<span id="L12111" class="LineNr">12111 </span> { -<span id="L12112" class="LineNr">12112 </span> 81 7/subop/compare *esi 0/imm32 -<span id="L12113" class="LineNr">12113 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12114" class="LineNr">12114 </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#L471'>Typeinfo-entry-size</a></span> %esi) -<span id="L12115" class="LineNr">12115 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> -<span id="L12116" class="LineNr">12116 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L12117" class="LineNr">12117 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> -<span id="L12118" class="LineNr">12118 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> -<span id="L12119" class="LineNr">12119 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L12120" class="LineNr">12120 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> -<span id="L12121" class="LineNr">12121 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12122" class="LineNr">12122 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12123" class="LineNr">12123 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L12124" class="LineNr">12124 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> -<span id="L12125" class="LineNr">12125 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L12126" class="LineNr">12126 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> -<span id="L12127" class="LineNr">12127 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L12128" class="LineNr">12128 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12129" class="LineNr">12129 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12130" class="LineNr">12130 </span> } -<span id="L12131" class="LineNr">12131 </span> <span class="subxComment"># *out = src</span> -<span id="L12132" class="LineNr">12132 </span> <span class="subxS1Comment"># . *edi = *src</span> -<span id="L12133" class="LineNr">12133 </span> 8b/-> *esi 0/r32/eax -<span id="L12134" class="LineNr">12134 </span> 89/<- *edi 0/r32/eax -<span id="L12135" class="LineNr">12135 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L12136" class="LineNr">12136 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L12137" class="LineNr">12137 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: -<span id="L12138" class="LineNr">12138 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12139" class="LineNr">12139 </span> 5f/pop-to-edi -<span id="L12140" class="LineNr">12140 </span> 5e/pop-to-esi -<span id="L12141" class="LineNr">12141 </span> 58/pop-to-eax -<span id="L12142" class="LineNr">12142 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12143" class="LineNr">12143 </span> 89/<- %esp 5/r32/ebp -<span id="L12144" class="LineNr">12144 </span> 5d/pop-to-ebp -<span id="L12145" class="LineNr">12145 </span> c3/return -<span id="L12146" class="LineNr">12146 </span> -<span id="L12147" class="LineNr">12147 </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="L12148" class="LineNr">12148 </span> <span class="subxComment"># pseudocode:</span> -<span id="L12149" class="LineNr">12149 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L12150" class="LineNr">12150 </span> <span class="subxComment"># curr-index = 0</span> -<span id="L12151" class="LineNr">12151 </span> <span class="subxComment"># while true</span> -<span id="L12152" class="LineNr">12152 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L12153" class="LineNr">12153 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L12154" class="LineNr">12154 </span> <span class="subxComment"># if line->write == 0</span> -<span id="L12155" class="LineNr">12155 </span> <span class="subxComment"># abort</span> -<span id="L12156" class="LineNr">12156 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L12157" class="LineNr">12157 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L12158" class="LineNr">12158 </span> <span class="subxComment"># continue</span> -<span id="L12159" class="LineNr">12159 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> -<span id="L12160" class="LineNr">12160 </span> <span class="subxComment"># break</span> -<span id="L12161" class="LineNr">12161 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> -<span id="L12162" class="LineNr">12162 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> -<span id="L12163" class="LineNr">12163 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> -<span id="L12164" class="LineNr">12164 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L12165" class="LineNr">12165 </span> <span class="subxComment"># curr-index++</span> -<span id="L12166" class="LineNr">12166 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L12167" class="LineNr">12167 </span> <span class="subxComment"># if r->output-var == 0</span> -<span id="L12168" class="LineNr">12168 </span> <span class="subxComment"># r->output-var = new literal</span> -<span id="L12169" class="LineNr">12169 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> -<span id="L12170" class="LineNr">12170 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> -<span id="L12171" class="LineNr">12171 </span> <span class="subxComment">#</span> -<span id="L12172" class="LineNr">12172 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12173" class="LineNr">12173 </span> 55/push-ebp -<span id="L12174" class="LineNr">12174 </span> 89/<- %ebp 4/r32/esp -<span id="L12175" class="LineNr">12175 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> -<span id="L12176" class="LineNr">12176 </span> 68/push 0/imm32 -<span id="L12177" class="LineNr">12177 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12178" class="LineNr">12178 </span> 50/push-eax -<span id="L12179" class="LineNr">12179 </span> 51/push-ecx -<span id="L12180" class="LineNr">12180 </span> 52/push-edx -<span id="L12181" class="LineNr">12181 </span> 53/push-ebx -<span id="L12182" class="LineNr">12182 </span> 56/push-esi -<span id="L12183" class="LineNr">12183 </span> 57/push-edi -<span id="L12184" class="LineNr">12184 </span> <span class="subxComment"># edi = t</span> -<span id="L12185" class="LineNr">12185 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L12186" class="LineNr">12186 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L12187" class="LineNr">12187 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L12188" class="LineNr">12188 </span> 68/push 0x200/imm32/size -<span id="L12189" class="LineNr">12189 </span> 68/push 0/imm32/read -<span id="L12190" class="LineNr">12190 </span> 68/push 0/imm32/write -<span id="L12191" class="LineNr">12191 </span> 89/<- %ecx 4/r32/esp -<span id="L12192" class="LineNr">12192 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L12193" class="LineNr">12193 </span> 68/push 0/imm32/end -<span id="L12194" class="LineNr">12194 </span> 68/push 0/imm32/start -<span id="L12195" class="LineNr">12195 </span> 89/<- %edx 4/r32/esp -<span id="L12196" class="LineNr">12196 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L12197" class="LineNr">12197 </span> 68/push 0/imm32 -<span id="L12198" class="LineNr">12198 </span> 68/push 0/imm32 -<span id="L12199" class="LineNr">12199 </span> 89/<- %esi 4/r32/esp -<span id="L12200" class="LineNr">12200 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L12201" class="LineNr">12201 </span> 68/push 0/imm32 -<span id="L12202" class="LineNr">12202 </span> 68/push 0/imm32 -<span id="L12203" class="LineNr">12203 </span> 89/<- %ebx 4/r32/esp -<span id="L12204" class="LineNr">12204 </span> { -<span id="L12205" class="LineNr">12205 </span><span class="Constant">$populate-mu-type:line-loop</span>: -<span id="L12206" class="LineNr">12206 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L12207" class="LineNr">12207 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L12208" class="LineNr">12208 </span> <span class="subxComment"># if (line->write == 0) abort</span> -<span id="L12209" class="LineNr">12209 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L12210" class="LineNr">12210 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 -<span id="L12211" class="Folded">12211 </span><span class="Folded">+-- 6 lines: #? # dump line ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12217" class="LineNr">12217 </span> (<a href='mu.subx.html#L9027'>next-mu-token</a> %ecx %edx) -<span id="L12218" class="LineNr">12218 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L12219" class="LineNr">12219 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L12220" class="LineNr">12220 </span> 3d/compare-eax-and 0/imm32 -<span id="L12221" class="LineNr">12221 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L12222" class="LineNr">12222 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L12223" class="LineNr">12223 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L12224" class="LineNr">12224 </span> 3d/compare-eax-and 0/imm32 -<span id="L12225" class="LineNr">12225 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L12226" class="LineNr">12226 </span><span class="Constant">$populate-mu-type:parse-element</span>: -<span id="L12227" class="LineNr">12227 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L12228" class="LineNr">12228 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> -<span id="L12229" class="LineNr">12229 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> -<span id="L12230" class="LineNr">12230 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> -<span id="L12231" class="LineNr">12231 </span> (<a href='mu.subx.html#L8732'>parse-var-with-type</a> %edx %ecx %esi *(ebp+0x10) *(ebp+0x14)) -<span id="L12232" class="LineNr">12232 </span> <span class="subxComment"># if v is an addr, abort</span> -<span id="L12233" class="LineNr">12233 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L12234" class="LineNr">12234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12235" class="LineNr">12235 </span> (<a href='mu.subx.html#L23523'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L12236" class="LineNr">12236 </span> 3d/compare-eax-and 0/imm32/false -<span id="L12237" class="LineNr">12237 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 -<span id="L12238" class="LineNr">12238 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> -<span id="L12239" class="LineNr">12239 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L12240" class="LineNr">12240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12241" class="LineNr">12241 </span> (<a href='mu.subx.html#L23545'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L12242" class="LineNr">12242 </span> 3d/compare-eax-and 0/imm32/false -<span id="L12243" class="LineNr">12243 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 -<span id="L12244" class="LineNr">12244 </span> <span class="subxComment"># if v is a byte, abort</span> -<span id="L12245" class="LineNr">12245 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L12246" class="LineNr">12246 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12247" class="LineNr">12247 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L12248" class="LineNr">12248 </span> 3d/compare-eax-and 0/imm32/false -<span id="L12249" class="LineNr">12249 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 -<span id="L12250" class="LineNr">12250 </span> <span class="subxComment"># if v is a slice, abort</span> -<span id="L12251" class="LineNr">12251 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L12252" class="LineNr">12252 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12253" class="LineNr">12253 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> -<span id="L12254" class="LineNr">12254 </span> 3d/compare-eax-and 0/imm32/false -<span id="L12255" class="LineNr">12255 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 -<span id="L12256" class="LineNr">12256 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> -<span id="L12257" class="LineNr">12257 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L12258" class="LineNr">12258 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12259" class="LineNr">12259 </span> (<a href='mu.subx.html#L23567'>is-mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L12260" class="LineNr">12260 </span> 3d/compare-eax-and 0/imm32/false -<span id="L12261" class="LineNr">12261 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 -<span id="L12262" class="LineNr">12262 </span> <span class="subxComment"># var tmp/ecx</span> -<span id="L12263" class="LineNr">12263 </span> 51/push-ecx -<span id="L12264" class="LineNr">12264 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: -<span id="L12265" class="LineNr">12265 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L12266" class="LineNr">12266 </span> (<a href='mu.subx.html#L12094'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) -<span id="L12267" class="LineNr">12267 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L12268" class="LineNr">12268 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L12269" class="LineNr">12269 </span> 8b/-> *(ebp-4) 1/r32/ecx -<span id="L12270" class="LineNr">12270 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> -<span id="L12271" class="LineNr">12271 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L12272" class="LineNr">12272 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L12273" class="LineNr">12273 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> -<span id="L12274" class="LineNr">12274 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12275" class="LineNr">12275 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12276" class="LineNr">12276 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L12277" class="LineNr">12277 </span> <span class="subxComment"># ++curr-index</span> -<span id="L12278" class="LineNr">12278 </span> ff 0/subop/increment *(ebp-4) -<span id="L12279" class="LineNr">12279 </span><span class="Constant">$populate-mu-type:set-input-type</span>: -<span id="L12280" class="LineNr">12280 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L12281" class="LineNr">12281 </span> 8b/-> *esi 1/r32/ecx -<span id="L12282" class="LineNr">12282 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L12283" class="LineNr">12283 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L12284" class="LineNr">12284 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L12285" class="LineNr">12285 </span> <span class="subxComment"># restore line</span> -<span id="L12286" class="LineNr">12286 </span> 59/pop-to-ecx -<span id="L12287" class="LineNr">12287 </span> { -<span id="L12288" class="LineNr">12288 </span><span class="Constant">$populate-mu-type:create-output-type</span>: -<span id="L12289" class="LineNr">12289 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> -<span id="L12290" class="LineNr">12290 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12291" class="LineNr">12291 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12292" class="LineNr">12292 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12293" class="LineNr">12293 </span> (<a href='mu.subx.html#L11566'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edx %eax) -<span id="L12294" class="LineNr">12294 </span> } -<span id="L12295" class="LineNr">12295 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L12296" class="LineNr">12296 </span> } -<span id="L12297" class="LineNr">12297 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: -<span id="L12298" class="LineNr">12298 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> -<span id="L12299" class="LineNr">12299 </span> <span class="subxComment"># have encountered the element types.</span> -<span id="L12300" class="LineNr">12300 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> -<span id="L12301" class="LineNr">12301 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12302" class="LineNr">12302 </span><span class="Constant">$populate-mu-type:end</span>: -<span id="L12303" class="LineNr">12303 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L12304" class="LineNr">12304 </span> 81 0/subop/add %esp 0x224/imm32 -<span id="L12305" class="LineNr">12305 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12306" class="LineNr">12306 </span> 5f/pop-to-edi -<span id="L12307" class="LineNr">12307 </span> 5e/pop-to-esi -<span id="L12308" class="LineNr">12308 </span> 5b/pop-to-ebx -<span id="L12309" class="LineNr">12309 </span> 5a/pop-to-edx -<span id="L12310" class="LineNr">12310 </span> 59/pop-to-ecx -<span id="L12311" class="LineNr">12311 </span> 58/pop-to-eax -<span id="L12312" class="LineNr">12312 </span> <span class="subxComment"># reclaim curr-index</span> -<span id="L12313" class="LineNr">12313 </span> 81 0/subop/add %esp 4/imm32 -<span id="L12314" class="LineNr">12314 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12315" class="LineNr">12315 </span> 89/<- %esp 5/r32/ebp -<span id="L12316" class="LineNr">12316 </span> 5d/pop-to-ebp -<span id="L12317" class="LineNr">12317 </span> c3/return -<span id="L12318" class="LineNr">12318 </span> -<span id="L12319" class="LineNr">12319 </span><span class="Constant">$populate-mu-type:error1</span>: -<span id="L12320" class="LineNr">12320 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> -<span id="L12321" class="LineNr">12321 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) -<span id="L12322" class="LineNr">12322 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12323" class="LineNr">12323 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12324" class="LineNr">12324 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) -<span id="L12325" class="LineNr">12325 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12326" class="LineNr">12326 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12327" class="LineNr">12327 </span> <span class="subxComment"># never gets here</span> -<span id="L12328" class="LineNr">12328 </span> -<span id="L12329" class="LineNr">12329 </span><span class="Constant">$populate-mu-type:error2</span>: -<span id="L12330" class="LineNr">12330 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L12331" class="LineNr">12331 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12332" class="LineNr">12332 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12333" class="LineNr">12333 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) -<span id="L12334" class="LineNr">12334 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12335" class="LineNr">12335 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12336" class="LineNr">12336 </span> <span class="subxComment"># never gets here</span> -<span id="L12337" class="LineNr">12337 </span> -<span id="L12338" class="LineNr">12338 </span><span class="Constant">$populate-mu-type:error3</span>: -<span id="L12339" class="LineNr">12339 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L12340" class="LineNr">12340 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12341" class="LineNr">12341 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12342" class="LineNr">12342 </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="L12343" class="LineNr">12343 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12344" class="LineNr">12344 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12345" class="LineNr">12345 </span> <span class="subxComment"># never gets here</span> -<span id="L12346" class="LineNr">12346 </span> -<span id="L12347" class="LineNr">12347 </span><span class="Constant">$populate-mu-type:error4</span>: -<span id="L12348" class="LineNr">12348 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L12349" class="LineNr">12349 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12350" class="LineNr">12350 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12351" class="LineNr">12351 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) -<span id="L12352" class="LineNr">12352 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12353" class="LineNr">12353 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12354" class="LineNr">12354 </span> <span class="subxComment"># never gets here</span> -<span id="L12355" class="LineNr">12355 </span> -<span id="L12356" class="LineNr">12356 </span><span class="Constant">$populate-mu-type:error5</span>: -<span id="L12357" class="LineNr">12357 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L12358" class="LineNr">12358 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12359" class="LineNr">12359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12360" class="LineNr">12360 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) -<span id="L12361" class="LineNr">12361 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12362" class="LineNr">12362 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12363" class="LineNr">12363 </span> <span class="subxComment"># never gets here</span> -<span id="L12364" class="LineNr">12364 </span> -<span id="L12365" class="LineNr">12365 </span><span class="Constant">$populate-mu-type:error6</span>: -<span id="L12366" class="LineNr">12366 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L12367" class="LineNr">12367 </span> (<a href='mu.subx.html#L12374'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L12368" class="LineNr">12368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L12369" class="LineNr">12369 </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="L12370" class="LineNr">12370 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L12371" class="LineNr">12371 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L12372" class="LineNr">12372 </span> <span class="subxComment"># never gets here</span> -<span id="L12373" class="LineNr">12373 </span> -<span id="L12374" class="LineNr">12374 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> -<span id="L12375" class="LineNr">12375 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12376" class="LineNr">12376 </span> 55/push-ebp -<span id="L12377" class="LineNr">12377 </span> 89/<- %ebp 4/r32/esp -<span id="L12378" class="LineNr">12378 </span> <span class="subxComment">#</span> -<span id="L12379" class="LineNr">12379 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> *(ebp+8)) -<span id="L12380" class="LineNr">12380 </span><span class="Constant">$type-name:end</span>: -<span id="L12381" class="LineNr">12381 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12382" class="LineNr">12382 </span> 89/<- %esp 5/r32/ebp -<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="subxFunction">index</span>: <span class="subxComment"># arr: (addr stream (handle array byte)), index: int -> result/eax: (addr array byte)</span> -<span id="L12387" class="LineNr">12387 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12388" class="LineNr">12388 </span> 55/push-ebp -<span id="L12389" class="LineNr">12389 </span> 89/<- %ebp 4/r32/esp -<span id="L12390" class="LineNr">12390 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12391" class="LineNr">12391 </span> 56/push-esi -<span id="L12392" class="LineNr">12392 </span> <span class="subxComment"># TODO: bounds-check index</span> -<span id="L12393" class="LineNr">12393 </span> <span class="subxComment"># esi = arr</span> -<span id="L12394" class="LineNr">12394 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L12395" class="LineNr">12395 </span> <span class="subxComment"># eax = index</span> -<span id="L12396" class="LineNr">12396 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L12397" class="LineNr">12397 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> -<span id="L12398" class="LineNr">12398 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax -<span id="L12399" class="LineNr">12399 </span><span class="Constant">$index:end</span>: -<span id="L12400" class="LineNr">12400 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12401" class="LineNr">12401 </span> 5e/pop-to-esi -<span id="L12402" class="LineNr">12402 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12403" class="LineNr">12403 </span> 89/<- %esp 5/r32/ebp -<span id="L12404" class="LineNr">12404 </span> 5d/pop-to-ebp -<span id="L12405" class="LineNr">12405 </span> c3/return -<span id="L12406" class="LineNr">12406 </span> -<span id="L12407" class="LineNr">12407 </span><span class="subxComment">#######################################################</span> -<span id="L12408" class="LineNr">12408 </span><span class="subxComment"># Compute type sizes</span> -<span id="L12409" class="LineNr">12409 </span><span class="subxComment">#######################################################</span> -<span id="L12410" class="LineNr">12410 </span> -<span id="L12411" class="LineNr">12411 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> -<span id="L12412" class="LineNr">12412 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> -<span id="L12413" class="LineNr">12413 </span><span class="subxComment"># types, which we will compute as needed.</span> -<span id="L12414" class="LineNr">12414 </span> -<span id="L12415" class="LineNr">12415 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> -<span id="L12416" class="LineNr">12416 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L12417" class="LineNr">12417 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12418" class="LineNr">12418 </span> 55/push-ebp -<span id="L12419" class="LineNr">12419 </span> 89/<- %ebp 4/r32/esp -<span id="L12420" class="LineNr">12420 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: -<span id="L12421" class="LineNr">12421 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L12422" class="LineNr">12422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L12423" class="LineNr">12423 </span> { -<span id="L12424" class="LineNr">12424 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L12425" class="LineNr">12425 </span> 3d/compare-eax-and 0/imm32/null -<span id="L12426" class="LineNr">12426 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12427" class="LineNr">12427 </span> (<a href='mu.subx.html#L12453'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L12428" class="LineNr">12428 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L12429" class="LineNr">12429 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L12430" class="LineNr">12430 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12431" class="LineNr">12431 </span> } -<span id="L12432" class="LineNr">12432 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: -<span id="L12433" class="LineNr">12433 </span> <span class="subxComment"># curr = *Program->types</span> -<span id="L12434" class="LineNr">12434 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L12435" class="LineNr">12435 </span> { -<span id="L12436" class="LineNr">12436 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L12437" class="LineNr">12437 </span> 3d/compare-eax-and 0/imm32/null -<span id="L12438" class="LineNr">12438 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12439" class="LineNr">12439 </span> (<a href='mu.subx.html#L12617'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L12440" class="LineNr">12440 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L12441" class="LineNr">12441 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L12442" class="LineNr">12442 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12443" class="LineNr">12443 </span> } -<span id="L12444" class="LineNr">12444 </span><span class="Constant">$populate-mu-type-sizes:end</span>: -<span id="L12445" class="LineNr">12445 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12446" class="LineNr">12446 </span> 89/<- %esp 5/r32/ebp -<span id="L12447" class="LineNr">12447 </span> 5d/pop-to-ebp -<span id="L12448" class="LineNr">12448 </span> c3/return -<span id="L12449" class="LineNr">12449 </span> -<span id="L12450" class="LineNr">12450 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> -<span id="L12451" class="LineNr">12451 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> -<span id="L12452" class="LineNr">12452 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> -<span id="L12453" class="LineNr">12453 </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="L12454" class="LineNr">12454 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12455" class="LineNr">12455 </span> 55/push-ebp -<span id="L12456" class="LineNr">12456 </span> 89/<- %ebp 4/r32/esp -<span id="L12457" class="LineNr">12457 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12458" class="LineNr">12458 </span> 50/push-eax -<span id="L12459" class="LineNr">12459 </span> 51/push-ecx -<span id="L12460" class="LineNr">12460 </span> 52/push-edx -<span id="L12461" class="LineNr">12461 </span> 56/push-esi -<span id="L12462" class="LineNr">12462 </span> 57/push-edi -<span id="L12463" class="LineNr">12463 </span> <span class="subxComment"># esi = T</span> -<span id="L12464" class="LineNr">12464 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L12465" class="LineNr">12465 </span> <span class="subxComment"># if T is already computed, return</span> -<span id="L12466" class="LineNr">12466 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12467" class="LineNr">12467 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 -<span id="L12468" class="LineNr">12468 </span> <span class="subxComment"># if T is being computed, abort</span> -<span id="L12469" class="LineNr">12469 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12470" class="LineNr">12470 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 -<span id="L12471" class="LineNr">12471 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> -<span id="L12472" class="LineNr">12472 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12473" class="LineNr">12473 </span> <span class="subxComment"># var total-size/edi: int = 0</span> -<span id="L12474" class="LineNr">12474 </span> bf/copy-to-edi 0/imm32 -<span id="L12475" class="LineNr">12475 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> -<span id="L12476" class="LineNr">12476 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L12477" class="LineNr">12477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L12478" class="LineNr">12478 </span> 89/<- %ecx 0/r32/eax -<span id="L12479" class="LineNr">12479 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L12480" class="LineNr">12480 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L12481" class="LineNr">12481 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L12482" class="LineNr">12482 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L12483" class="LineNr">12483 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L12484" class="LineNr">12484 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L12485" class="LineNr">12485 </span> { -<span id="L12486" class="LineNr">12486 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: -<span id="L12487" class="LineNr">12487 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L12488" class="LineNr">12488 </span> 39/compare %ecx 2/r32/edx -<span id="L12489" class="LineNr">12489 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L12490" class="LineNr">12490 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> -<span id="L12491" class="LineNr">12491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L12492" class="LineNr">12492 </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="L12493" class="LineNr">12493 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L12494" class="LineNr">12494 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 -<span id="L12495" class="LineNr">12495 </span> <span class="subxComment"># compute size of t->input-var</span> -<span id="L12496" class="LineNr">12496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L12497" class="LineNr">12497 </span> (<a href='mu.subx.html#L12527'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L12498" class="LineNr">12498 </span> <span class="subxComment"># result += eax</span> -<span id="L12499" class="LineNr">12499 </span> 01/add-to %edi 0/r32/eax -<span id="L12500" class="LineNr">12500 </span> <span class="subxComment"># curr += row-size</span> -<span id="L12501" class="LineNr">12501 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L12502" class="LineNr">12502 </span> <span class="subxComment">#</span> -<span id="L12503" class="LineNr">12503 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12504" class="LineNr">12504 </span> } -<span id="L12505" class="LineNr">12505 </span> <span class="subxH1Comment"># - save result</span> -<span id="L12506" class="LineNr">12506 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12507" class="LineNr">12507 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: -<span id="L12508" class="LineNr">12508 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12509" class="LineNr">12509 </span> 5f/pop-to-edi -<span id="L12510" class="LineNr">12510 </span> 5e/pop-to-esi -<span id="L12511" class="LineNr">12511 </span> 5a/pop-to-edx -<span id="L12512" class="LineNr">12512 </span> 59/pop-to-ecx -<span id="L12513" class="LineNr">12513 </span> 58/pop-to-eax -<span id="L12514" class="LineNr">12514 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12515" class="LineNr">12515 </span> 89/<- %esp 5/r32/ebp -<span id="L12516" class="LineNr">12516 </span> 5d/pop-to-ebp -<span id="L12517" class="LineNr">12517 </span> c3/return -<span id="L12518" class="LineNr">12518 </span> -<span id="L12519" class="LineNr">12519 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: -<span id="L12520" class="LineNr">12520 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) -<span id="L12521" class="LineNr">12521 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L12522" class="LineNr">12522 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L12523" class="LineNr">12523 </span> <span class="subxComment"># never gets here</span> -<span id="L12524" class="LineNr">12524 </span> -<span id="L12525" class="LineNr">12525 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> -<span id="L12526" class="LineNr">12526 </span><span class="subxComment"># off the right data structures.</span> -<span id="L12527" class="LineNr">12527 </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="L12528" class="LineNr">12528 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12529" class="LineNr">12529 </span> 55/push-ebp -<span id="L12530" class="LineNr">12530 </span> 89/<- %ebp 4/r32/esp -<span id="L12531" class="LineNr">12531 </span> <span class="subxS1Comment"># . push registers</span> -<span id="L12532" class="LineNr">12532 </span> 51/push-ecx -<span id="L12533" class="LineNr">12533 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L12534" class="LineNr">12534 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L12535" class="LineNr">12535 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L12536" class="LineNr">12536 </span> 89/<- %ecx 0/r32/eax -<span id="L12537" class="LineNr">12537 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L12538" class="LineNr">12538 </span> { -<span id="L12539" class="LineNr">12539 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L12540" class="LineNr">12540 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12541" class="LineNr">12541 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L12542" class="LineNr">12542 </span> 89/<- %ecx 0/r32/eax -<span id="L12543" class="LineNr">12543 </span> } -<span id="L12544" class="LineNr">12544 </span> <span class="subxComment"># TODO: ensure t is an atom</span> -<span id="L12545" class="LineNr">12545 </span> (<a href='mu.subx.html#L12554'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L12546" class="LineNr">12546 </span><span class="Constant">$compute-size-of-var:end</span>: -<span id="L12547" class="LineNr">12547 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12548" class="LineNr">12548 </span> 59/pop-to-ecx -<span id="L12549" class="LineNr">12549 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12550" class="LineNr">12550 </span> 89/<- %esp 5/r32/ebp -<span id="L12551" class="LineNr">12551 </span> 5d/pop-to-ebp -<span id="L12552" class="LineNr">12552 </span> c3/return -<span id="L12553" class="LineNr">12553 </span> -<span id="L12554" class="LineNr">12554 </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="L12555" class="LineNr">12555 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12556" class="LineNr">12556 </span> 55/push-ebp -<span id="L12557" class="LineNr">12557 </span> 89/<- %ebp 4/r32/esp -<span id="L12558" class="LineNr">12558 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12559" class="LineNr">12559 </span> 51/push-ecx -<span id="L12560" class="LineNr">12560 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L12561" class="LineNr">12561 </span> 68/push 0/imm32 -<span id="L12562" class="LineNr">12562 </span> 68/push 0/imm32 -<span id="L12563" class="LineNr">12563 </span> 89/<- %ecx 4/r32/esp -<span id="L12564" class="LineNr">12564 </span> <span class="subxComment"># eax = t</span> -<span id="L12565" class="LineNr">12565 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L12566" class="LineNr">12566 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L12567" class="LineNr">12567 </span> 3d/compare-eax-and 0/imm32/literal -<span id="L12568" class="LineNr">12568 </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="L12569" class="LineNr">12569 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L12570" class="LineNr">12570 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L12571" class="LineNr">12571 </span> { -<span id="L12572" class="LineNr">12572 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12573" class="LineNr">12573 </span> b8/copy-to-eax 4/imm32 -<span id="L12574" class="LineNr">12574 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L12575" class="LineNr">12575 </span> } -<span id="L12576" class="LineNr">12576 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L12577" class="LineNr">12577 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L12578" class="LineNr">12578 </span> { -<span id="L12579" class="LineNr">12579 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12580" class="LineNr">12580 </span> b8/copy-to-eax 8/imm32 -<span id="L12581" class="LineNr">12581 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L12582" class="LineNr">12582 </span> } -<span id="L12583" class="LineNr">12583 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L12584" class="LineNr">12584 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L12585" class="LineNr">12585 </span> { -<span id="L12586" class="LineNr">12586 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L12587" class="LineNr">12587 </span> b8/copy-to-eax 8/imm32 -<span id="L12588" class="LineNr">12588 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L12589" class="LineNr">12589 </span> } -<span id="L12590" class="LineNr">12590 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> -<span id="L12591" class="LineNr">12591 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L12592" class="LineNr">12592 </span> (<a href='mu.subx.html#L11980'>find-typeinfo</a> %eax %ecx) -<span id="L12593" class="LineNr">12593 </span> { -<span id="L12594" class="LineNr">12594 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L12595" class="LineNr">12595 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12596" class="LineNr">12596 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: -<span id="L12597" class="LineNr">12597 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L12598" class="LineNr">12598 </span> (<a href='mu.subx.html#L12453'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L12599" class="LineNr">12599 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L12600" class="LineNr">12600 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L12601" class="LineNr">12601 </span> } -<span id="L12602" class="LineNr">12602 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L12603" class="LineNr">12603 </span> b8/copy-to-eax 4/imm32 -<span id="L12604" class="LineNr">12604 </span><span class="Constant">$compute-size-of-type-id:end</span>: -<span id="L12605" class="LineNr">12605 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L12606" class="LineNr">12606 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12607" class="LineNr">12607 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12608" class="LineNr">12608 </span> 59/pop-to-ecx -<span id="L12609" class="LineNr">12609 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12610" class="LineNr">12610 </span> 89/<- %esp 5/r32/ebp -<span id="L12611" class="LineNr">12611 </span> 5d/pop-to-ebp -<span id="L12612" class="LineNr">12612 </span> c3/return -<span id="L12613" class="LineNr">12613 </span> -<span id="L12614" class="LineNr">12614 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> -<span id="L12615" class="LineNr">12615 </span><span class="subxComment"># compute offsets for each element</span> -<span id="L12616" class="LineNr">12616 </span><span class="subxComment"># complication: fields may be out of order</span> -<span id="L12617" class="LineNr">12617 </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="L12618" class="LineNr">12618 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12619" class="LineNr">12619 </span> 55/push-ebp -<span id="L12620" class="LineNr">12620 </span> 89/<- %ebp 4/r32/esp -<span id="L12621" class="LineNr">12621 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12622" class="LineNr">12622 </span> 50/push-eax -<span id="L12623" class="LineNr">12623 </span> 51/push-ecx -<span id="L12624" class="LineNr">12624 </span> 52/push-edx -<span id="L12625" class="LineNr">12625 </span> 53/push-ebx -<span id="L12626" class="LineNr">12626 </span> 56/push-esi -<span id="L12627" class="LineNr">12627 </span> 57/push-edi -<span id="L12628" class="LineNr">12628 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> -<span id="L12629" class="LineNr">12629 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> -<span id="L12630" class="LineNr">12630 </span> bf/copy-to-edi 0/imm32 -<span id="L12631" class="LineNr">12631 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> -<span id="L12632" class="LineNr">12632 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L12633" class="LineNr">12633 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L12634" class="LineNr">12634 </span> 89/<- %ecx 0/r32/eax -<span id="L12635" class="LineNr">12635 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> -<span id="L12636" class="LineNr">12636 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L12637" class="LineNr">12637 </span> c1 5/subop/shift-right-logical %edx 4/imm8 -<span id="L12638" class="LineNr">12638 </span> <span class="subxComment"># var i/ebx: int = 0</span> -<span id="L12639" class="LineNr">12639 </span> bb/copy-to-ebx 0/imm32 -<span id="L12640" class="LineNr">12640 </span> { -<span id="L12641" class="LineNr">12641 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: -<span id="L12642" class="LineNr">12642 </span> 39/compare %ebx 2/r32/edx -<span id="L12643" class="LineNr">12643 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 -<span id="L12644" class="LineNr">12644 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> -<span id="L12645" class="LineNr">12645 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L12646" class="LineNr">12646 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> -<span id="L12647" class="LineNr">12647 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L12648" class="LineNr">12648 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12649" class="LineNr">12649 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12650" class="LineNr">12650 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> -<span id="L12651" class="LineNr">12651 </span> (<a href='mu.subx.html#L12684'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L12652" class="LineNr">12652 </span> 89/<- %esi 0/r32/eax -<span id="L12653" class="LineNr">12653 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> -<span id="L12654" class="LineNr">12654 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L12655" class="LineNr">12655 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L12656" class="LineNr">12656 </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="L12657" class="LineNr">12657 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L12658" class="LineNr">12658 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L12659" class="LineNr">12659 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> -<span id="L12660" class="LineNr">12660 </span> <span class="subxS1Comment"># . eax: (addr var)</span> -<span id="L12661" class="LineNr">12661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> -<span id="L12662" class="LineNr">12662 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> -<span id="L12663" class="LineNr">12663 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> -<span id="L12664" class="LineNr">12664 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L12665" class="LineNr">12665 </span> (<a href='mu.subx.html#L14794'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L12666" class="LineNr">12666 </span> 01/add-to %edi 0/r32/eax -<span id="L12667" class="LineNr">12667 </span> <span class="subxComment"># ++i</span> -<span id="L12668" class="LineNr">12668 </span> 43/increment-ebx -<span id="L12669" class="LineNr">12669 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L12670" class="LineNr">12670 </span> } -<span id="L12671" class="LineNr">12671 </span><span class="Constant">$populate-mu-type-offsets:end</span>: -<span id="L12672" class="LineNr">12672 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12673" class="LineNr">12673 </span> 5f/pop-to-edi -<span id="L12674" class="LineNr">12674 </span> 5e/pop-to-esi -<span id="L12675" class="LineNr">12675 </span> 5b/pop-to-ebx -<span id="L12676" class="LineNr">12676 </span> 5a/pop-to-edx -<span id="L12677" class="LineNr">12677 </span> 59/pop-to-ecx -<span id="L12678" class="LineNr">12678 </span> 58/pop-to-eax +<span id="L11129" class="LineNr">11129 </span>== data +<span id="L11130" class="LineNr">11130 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> +<span id="L11131" class="LineNr">11131 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L11132" class="LineNr">11132 </span> <span class="subxComment"># a table is a stream</span> +<span id="L11133" class="LineNr">11133 </span> 0xa8/imm32/write +<span id="L11134" class="LineNr">11134 </span> 0/imm32/read +<span id="L11135" class="LineNr">11135 </span> 0xa8/imm32/length +<span id="L11136" class="LineNr">11136 </span> <span class="subxComment"># data</span> +<span id="L11137" class="LineNr">11137 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L11138" class="LineNr">11138 </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="L11139" class="LineNr">11139 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L11140" class="LineNr">11140 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L11141" class="LineNr">11141 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L11142" class="LineNr">11142 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L11143" class="LineNr">11143 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L11144" class="LineNr">11144 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L11145" class="LineNr">11145 </span> <span class="subxComment"># floating-point registers</span> +<span id="L11146" class="LineNr">11146 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 +<span id="L11147" class="LineNr">11147 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 +<span id="L11148" class="LineNr">11148 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 +<span id="L11149" class="LineNr">11149 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 +<span id="L11150" class="LineNr">11150 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 +<span id="L11151" class="LineNr">11151 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 +<span id="L11152" class="LineNr">11152 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 +<span id="L11153" class="LineNr">11153 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 +<span id="L11154" class="LineNr">11154 </span> +<span id="L11155" class="LineNr">11155 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> +<span id="L11156" class="LineNr">11156 </span><span class="subxComment"># registers.</span> +<span id="L11157" class="LineNr">11157 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> +<span id="L11158" class="LineNr">11158 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L11159" class="LineNr">11159 </span> <span class="subxComment"># a table is a stream</span> +<span id="L11160" class="LineNr">11160 </span> 0xa8/imm32/write +<span id="L11161" class="LineNr">11161 </span> 0/imm32/read +<span id="L11162" class="LineNr">11162 </span> 0xa8/imm32/length +<span id="L11163" class="LineNr">11163 </span> <span class="subxComment"># data</span> +<span id="L11164" class="LineNr">11164 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L11165" class="LineNr">11165 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L11166" class="LineNr">11166 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L11167" class="LineNr">11167 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L11168" class="LineNr">11168 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L11169" class="LineNr">11169 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L11170" class="LineNr">11170 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L11171" class="LineNr">11171 </span> <span class="subxComment"># floating-point registers</span> +<span id="L11172" class="LineNr">11172 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 +<span id="L11173" class="LineNr">11173 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 +<span id="L11174" class="LineNr">11174 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 +<span id="L11175" class="LineNr">11175 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 +<span id="L11176" class="LineNr">11176 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 +<span id="L11177" class="LineNr">11177 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 +<span id="L11178" class="LineNr">11178 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 +<span id="L11179" class="LineNr">11179 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L11180" class="LineNr">11180 </span> +<span id="L11181" class="LineNr">11181 </span><span class="Constant">$Mu-register-eax</span>: +<span id="L11182" class="LineNr">11182 </span> 0x11/imm32/alloc-id +<span id="L11183" class="LineNr">11183 </span> 3/imm32/size +<span id="L11184" class="LineNr">11184 </span> 0x65/e 0x61/a 0x78/x +<span id="L11185" class="LineNr">11185 </span> +<span id="L11186" class="LineNr">11186 </span><span class="Constant">$Mu-register-ecx</span>: +<span id="L11187" class="LineNr">11187 </span> 0x11/imm32/alloc-id +<span id="L11188" class="LineNr">11188 </span> 3/imm32/size +<span id="L11189" class="LineNr">11189 </span> 0x65/e 0x63/c 0x78/x +<span id="L11190" class="LineNr">11190 </span> +<span id="L11191" class="LineNr">11191 </span><span class="Constant">$Mu-register-edx</span>: +<span id="L11192" class="LineNr">11192 </span> 0x11/imm32/alloc-id +<span id="L11193" class="LineNr">11193 </span> 3/imm32/size +<span id="L11194" class="LineNr">11194 </span> 0x65/e 0x64/d 0x78/x +<span id="L11195" class="LineNr">11195 </span> +<span id="L11196" class="LineNr">11196 </span><span class="Constant">$Mu-register-ebx</span>: +<span id="L11197" class="LineNr">11197 </span> 0x11/imm32/alloc-id +<span id="L11198" class="LineNr">11198 </span> 3/imm32/size +<span id="L11199" class="LineNr">11199 </span> 0x65/e 0x62/b 0x78/x +<span id="L11200" class="LineNr">11200 </span> +<span id="L11201" class="LineNr">11201 </span><span class="Constant">$Mu-register-esi</span>: +<span id="L11202" class="LineNr">11202 </span> 0x11/imm32/alloc-id +<span id="L11203" class="LineNr">11203 </span> 3/imm32/size +<span id="L11204" class="LineNr">11204 </span> 0x65/e 0x73/s 0x69/i +<span id="L11205" class="LineNr">11205 </span> +<span id="L11206" class="LineNr">11206 </span><span class="Constant">$Mu-register-edi</span>: +<span id="L11207" class="LineNr">11207 </span> 0x11/imm32/alloc-id +<span id="L11208" class="LineNr">11208 </span> 3/imm32/size +<span id="L11209" class="LineNr">11209 </span> 0x65/e 0x64/d 0x69/i +<span id="L11210" class="LineNr">11210 </span> +<span id="L11211" class="LineNr">11211 </span><span class="Constant">$Mu-register-xmm0</span>: +<span id="L11212" class="LineNr">11212 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11213" class="LineNr">11213 </span> <span class="subxComment"># "xmm0"</span> +<span id="L11214" class="LineNr">11214 </span> 0x4/imm32/size +<span id="L11215" class="LineNr">11215 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L11216" class="LineNr">11216 </span> +<span id="L11217" class="LineNr">11217 </span><span class="Constant">$Mu-register-xmm1</span>: +<span id="L11218" class="LineNr">11218 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11219" class="LineNr">11219 </span> <span class="subxComment"># "xmm1"</span> +<span id="L11220" class="LineNr">11220 </span> 0x4/imm32/size +<span id="L11221" class="LineNr">11221 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L11222" class="LineNr">11222 </span> +<span id="L11223" class="LineNr">11223 </span><span class="Constant">$Mu-register-xmm2</span>: +<span id="L11224" class="LineNr">11224 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11225" class="LineNr">11225 </span> <span class="subxComment"># "xmm2"</span> +<span id="L11226" class="LineNr">11226 </span> 0x4/imm32/size +<span id="L11227" class="LineNr">11227 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L11228" class="LineNr">11228 </span> +<span id="L11229" class="LineNr">11229 </span><span class="Constant">$Mu-register-xmm3</span>: +<span id="L11230" class="LineNr">11230 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11231" class="LineNr">11231 </span> <span class="subxComment"># "xmm3"</span> +<span id="L11232" class="LineNr">11232 </span> 0x4/imm32/size +<span id="L11233" class="LineNr">11233 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L11234" class="LineNr">11234 </span> +<span id="L11235" class="LineNr">11235 </span><span class="Constant">$Mu-register-xmm4</span>: +<span id="L11236" class="LineNr">11236 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11237" class="LineNr">11237 </span> <span class="subxComment"># "xmm4"</span> +<span id="L11238" class="LineNr">11238 </span> 0x4/imm32/size +<span id="L11239" class="LineNr">11239 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L11240" class="LineNr">11240 </span> +<span id="L11241" class="LineNr">11241 </span><span class="Constant">$Mu-register-xmm5</span>: +<span id="L11242" class="LineNr">11242 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11243" class="LineNr">11243 </span> <span class="subxComment"># "xmm5"</span> +<span id="L11244" class="LineNr">11244 </span> 0x4/imm32/size +<span id="L11245" class="LineNr">11245 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L11246" class="LineNr">11246 </span> +<span id="L11247" class="LineNr">11247 </span><span class="Constant">$Mu-register-xmm6</span>: +<span id="L11248" class="LineNr">11248 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11249" class="LineNr">11249 </span> <span class="subxComment"># "xmm6"</span> +<span id="L11250" class="LineNr">11250 </span> 0x4/imm32/size +<span id="L11251" class="LineNr">11251 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L11252" class="LineNr">11252 </span> +<span id="L11253" class="LineNr">11253 </span><span class="Constant">$Mu-register-xmm7</span>: +<span id="L11254" class="LineNr">11254 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L11255" class="LineNr">11255 </span> <span class="subxComment"># "xmm7"</span> +<span id="L11256" class="LineNr">11256 </span> 0x4/imm32/size +<span id="L11257" class="LineNr">11257 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L11258" class="LineNr">11258 </span> +<span id="L11259" class="LineNr">11259 </span>== code +<span id="L11260" class="LineNr">11260 </span> +<span id="L11261" class="LineNr">11261 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and create a new var for a fn output if not found</span> +<span id="L11262" class="LineNr">11262 </span><span class="subxFunction">lookup-var-or-find-in-fn-outputs</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), fn: (addr function), out: (addr handle var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L11263" class="LineNr">11263 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11264" class="LineNr">11264 </span> 55/push-ebp +<span id="L11265" class="LineNr">11265 </span> 89/<- %ebp 4/r32/esp +<span id="L11266" class="LineNr">11266 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11267" class="LineNr">11267 </span> 50/push-eax +<span id="L11268" class="LineNr">11268 </span> <span class="subxComment">#</span> +<span id="L11269" class="LineNr">11269 </span> (<a href='mu.subx.html#L10925'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) <span class="subxComment"># arg order slightly different; 'fn' is deemphasized</span> +<span id="L11270" class="LineNr">11270 </span> { +<span id="L11271" class="LineNr">11271 </span> <span class="subxComment"># if (out != 0) return</span> +<span id="L11272" class="LineNr">11272 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11273" class="LineNr">11273 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L11274" class="LineNr">11274 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L11275" class="LineNr">11275 </span> <span class="subxComment"># if name is one of fn's outputs, return it</span> +<span id="L11276" class="LineNr">11276 </span> (<a href='mu.subx.html#L11298'>find-in-function-outputs</a> *(ebp+0x10) *(ebp+8) *(ebp+0x14)) +<span id="L11277" class="LineNr">11277 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11278" class="LineNr">11278 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L11279" class="LineNr">11279 </span> <span class="subxComment"># otherwise abort</span> +<span id="L11280" class="LineNr">11280 </span> 0f 84/jump-if-= $lookup-or-define-var:abort/disp32 +<span id="L11281" class="LineNr">11281 </span> } +<span id="L11282" class="LineNr">11282 </span><span class="Constant">$lookup-or-define-var:end</span>: +<span id="L11283" class="LineNr">11283 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11284" class="LineNr">11284 </span> 58/pop-to-eax +<span id="L11285" class="LineNr">11285 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11286" class="LineNr">11286 </span> 89/<- %esp 5/r32/ebp +<span id="L11287" class="LineNr">11287 </span> 5d/pop-to-ebp +<span id="L11288" class="LineNr">11288 </span> c3/return +<span id="L11289" class="LineNr">11289 </span> +<span id="L11290" class="LineNr">11290 </span><span class="Constant">$lookup-or-define-var:abort</span>: +<span id="L11291" class="LineNr">11291 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"unknown variable '"</span>) +<span id="L11292" class="LineNr">11292 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L11293" class="LineNr">11293 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L11294" class="LineNr">11294 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L11295" class="LineNr">11295 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L11296" class="LineNr">11296 </span> <span class="subxComment"># never gets here</span> +<span id="L11297" class="LineNr">11297 </span> +<span id="L11298" class="LineNr">11298 </span><span class="subxFunction">find-in-function-outputs</span>: <span class="subxComment"># fn: (addr function), name: (addr slice), out: (addr handle var)</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="subxS1Comment"># . save registers</span> +<span id="L11303" class="LineNr">11303 </span> 50/push-eax +<span id="L11304" class="LineNr">11304 </span> 51/push-ecx +<span id="L11305" class="LineNr">11305 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L11306" class="LineNr">11306 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L11307" class="LineNr">11307 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L11308" class="LineNr">11308 </span> 89/<- %ecx 0/r32/eax +<span id="L11309" class="LineNr">11309 </span> <span class="subxComment"># while curr != null</span> +<span id="L11310" class="LineNr">11310 </span> { +<span id="L11311" class="LineNr">11311 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L11312" class="LineNr">11312 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L11313" class="LineNr">11313 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L11314" class="LineNr">11314 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L11315" class="LineNr">11315 </span> <span class="subxComment"># var s/eax: (addr array byte) = lookup(v->name)</span> +<span id="L11316" class="LineNr">11316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11317" class="LineNr">11317 </span> <span class="subxComment"># if (s == name) return curr->value</span> +<span id="L11318" class="LineNr">11318 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L11319" class="LineNr">11319 </span> 3d/compare-eax-and 0/imm32/false +<span id="L11320" class="LineNr">11320 </span> { +<span id="L11321" class="LineNr">11321 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L11322" class="LineNr">11322 </span> <span class="subxComment"># var edi = out</span> +<span id="L11323" class="LineNr">11323 </span> 57/push-edi +<span id="L11324" class="LineNr">11324 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L11325" class="LineNr">11325 </span> <span class="subxComment"># *out = curr->value</span> +<span id="L11326" class="LineNr">11326 </span> 8b/-> *ecx 0/r32/eax +<span id="L11327" class="LineNr">11327 </span> 89/<- *edi 0/r32/eax +<span id="L11328" class="LineNr">11328 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L11329" class="LineNr">11329 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L11330" class="LineNr">11330 </span> <span class="subxComment">#</span> +<span id="L11331" class="LineNr">11331 </span> 5f/pop-to-edi +<span id="L11332" class="LineNr">11332 </span> eb/jump $find-in-function-outputs:end/disp8 +<span id="L11333" class="LineNr">11333 </span> } +<span id="L11334" class="LineNr">11334 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L11335" class="LineNr">11335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L11336" class="LineNr">11336 </span> 89/<- %ecx 0/r32/eax +<span id="L11337" class="LineNr">11337 </span> <span class="subxComment">#</span> +<span id="L11338" class="LineNr">11338 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L11339" class="LineNr">11339 </span> } +<span id="L11340" class="LineNr">11340 </span> b8/copy-to-eax 0/imm32 +<span id="L11341" class="LineNr">11341 </span><span class="Constant">$find-in-function-outputs:end</span>: +<span id="L11342" class="LineNr">11342 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11343" class="LineNr">11343 </span> 59/pop-to-ecx +<span id="L11344" class="LineNr">11344 </span> 58/pop-to-eax +<span id="L11345" class="LineNr">11345 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11346" class="LineNr">11346 </span> 89/<- %esp 5/r32/ebp +<span id="L11347" class="LineNr">11347 </span> 5d/pop-to-ebp +<span id="L11348" class="LineNr">11348 </span> c3/return +<span id="L11349" class="LineNr">11349 </span> +<span id="L11350" class="LineNr">11350 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> +<span id="L11351" class="LineNr">11351 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> +<span id="L11352" class="LineNr">11352 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11353" class="LineNr">11353 </span> 55/push-ebp +<span id="L11354" class="LineNr">11354 </span> 89/<- %ebp 4/r32/esp +<span id="L11355" class="LineNr">11355 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11356" class="LineNr">11356 </span> 50/push-eax +<span id="L11357" class="LineNr">11357 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L11358" class="LineNr">11358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L11359" class="LineNr">11359 </span> <span class="subxComment">#</span> +<span id="L11360" class="LineNr">11360 </span> (<a href='mu.subx.html#L11376'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L11361" class="LineNr">11361 </span> 3d/compare-eax-and 0/imm32/false +<span id="L11362" class="LineNr">11362 </span> 75/jump-if-!= $maybe-define-var:end/disp8 +<span id="L11363" class="LineNr">11363 </span> <span class="subxComment"># otherwise update vars</span> +<span id="L11364" class="LineNr">11364 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) +<span id="L11365" class="LineNr">11365 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) +<span id="L11366" class="LineNr">11366 </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="L11367" class="LineNr">11367 </span><span class="Constant">$maybe-define-var:end</span>: +<span id="L11368" class="LineNr">11368 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11369" class="LineNr">11369 </span> 58/pop-to-eax +<span id="L11370" class="LineNr">11370 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11371" class="LineNr">11371 </span> 89/<- %esp 5/r32/ebp +<span id="L11372" class="LineNr">11372 </span> 5d/pop-to-ebp +<span id="L11373" class="LineNr">11373 </span> c3/return +<span id="L11374" class="LineNr">11374 </span> +<span id="L11375" class="LineNr">11375 </span><span class="subxComment"># simpler version of lookup-var-helper</span> +<span id="L11376" class="LineNr">11376 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L11377" class="LineNr">11377 </span> <span class="subxComment"># pseudocode:</span> +<span id="L11378" class="LineNr">11378 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L11379" class="LineNr">11379 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L11380" class="LineNr">11380 </span> <span class="subxComment"># while curr >= min</span> +<span id="L11381" class="LineNr">11381 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L11382" class="LineNr">11382 </span> <span class="subxComment"># if v->name == target->name</span> +<span id="L11383" class="LineNr">11383 </span> <span class="subxComment"># return true</span> +<span id="L11384" class="LineNr">11384 </span> <span class="subxComment"># curr -= 12</span> +<span id="L11385" class="LineNr">11385 </span> <span class="subxComment"># return false</span> +<span id="L11386" class="LineNr">11386 </span> <span class="subxComment">#</span> +<span id="L11387" class="LineNr">11387 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11388" class="LineNr">11388 </span> 55/push-ebp +<span id="L11389" class="LineNr">11389 </span> 89/<- %ebp 4/r32/esp +<span id="L11390" class="LineNr">11390 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11391" class="LineNr">11391 </span> 51/push-ecx +<span id="L11392" class="LineNr">11392 </span> 52/push-edx +<span id="L11393" class="LineNr">11393 </span> 56/push-esi +<span id="L11394" class="LineNr">11394 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> +<span id="L11395" class="LineNr">11395 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L11396" class="LineNr">11396 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11397" class="LineNr">11397 </span> 89/<- %ecx 0/r32/eax +<span id="L11398" class="LineNr">11398 </span> <span class="subxComment"># esi = vars</span> +<span id="L11399" class="LineNr">11399 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L11400" class="LineNr">11400 </span> <span class="subxComment"># eax = vars->top</span> +<span id="L11401" class="LineNr">11401 </span> 8b/-> *esi 0/r32/eax +<span id="L11402" class="LineNr">11402 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L11403" class="LineNr">11403 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L11404" class="LineNr">11404 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L11405" class="LineNr">11405 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L11406" class="LineNr">11406 </span> { +<span id="L11407" class="LineNr">11407 </span><span class="Constant">$binding-exists?:loop</span>: +<span id="L11408" class="LineNr">11408 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L11409" class="LineNr">11409 </span> 39/compare %esi 2/r32/edx +<span id="L11410" class="LineNr">11410 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L11411" class="LineNr">11411 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> +<span id="L11412" class="LineNr">11412 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L11413" class="LineNr">11413 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L11414" class="LineNr">11414 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11415" class="LineNr">11415 </span> <span class="subxComment"># if (vn == target-name) return true</span> +<span id="L11416" class="LineNr">11416 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> +<span id="L11417" class="LineNr">11417 </span> 3d/compare-eax-and 0/imm32/false +<span id="L11418" class="LineNr">11418 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> +<span id="L11419" class="LineNr">11419 </span> <span class="subxComment"># curr -= 12</span> +<span id="L11420" class="LineNr">11420 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L11421" class="LineNr">11421 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L11422" class="LineNr">11422 </span> } +<span id="L11423" class="LineNr">11423 </span> b8/copy-to-eax 0/imm32/false +<span id="L11424" class="LineNr">11424 </span><span class="Constant">$binding-exists?:end</span>: +<span id="L11425" class="LineNr">11425 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11426" class="LineNr">11426 </span> 5e/pop-to-esi +<span id="L11427" class="LineNr">11427 </span> 5a/pop-to-edx +<span id="L11428" class="LineNr">11428 </span> 59/pop-to-ecx +<span id="L11429" class="LineNr">11429 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11430" class="LineNr">11430 </span> 89/<- %esp 5/r32/ebp +<span id="L11431" class="LineNr">11431 </span> 5d/pop-to-ebp +<span id="L11432" class="LineNr">11432 </span> c3/return +<span id="L11433" class="LineNr">11433 </span> +<span id="L11434" class="LineNr">11434 </span><span class="subxTest">test-parse-mu-stmt</span>: +<span id="L11435" class="LineNr">11435 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11436" class="LineNr">11436 </span> 55/push-ebp +<span id="L11437" class="LineNr">11437 </span> 89/<- %ebp 4/r32/esp +<span id="L11438" class="LineNr">11438 </span> <span class="subxComment"># setup</span> +<span id="L11439" class="LineNr">11439 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L11440" class="LineNr">11440 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L11441" class="LineNr">11441 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11442" class="LineNr">11442 </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="L11443" class="LineNr">11443 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L11444" class="LineNr">11444 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L11445" class="LineNr">11445 </span> 68/push 0xc0/imm32/size +<span id="L11446" class="LineNr">11446 </span> 68/push 0/imm32/top +<span id="L11447" class="LineNr">11447 </span> 89/<- %ecx 4/r32/esp +<span id="L11448" class="LineNr">11448 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L11449" class="LineNr">11449 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L11450" class="LineNr">11450 </span> 68/push 0/imm32 +<span id="L11451" class="LineNr">11451 </span> 68/push 0/imm32 +<span id="L11452" class="LineNr">11452 </span> 89/<- %edx 4/r32/esp +<span id="L11453" class="LineNr">11453 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L11454" class="LineNr">11454 </span> 68/push 0/imm32 +<span id="L11455" class="LineNr">11455 </span> 68/push 0/imm32 +<span id="L11456" class="LineNr">11456 </span> 89/<- %eax 4/r32/esp +<span id="L11457" class="LineNr">11457 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L11458" class="LineNr">11458 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L11459" class="LineNr">11459 </span> (<a href='mu.subx.html#L11550'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L11460" class="LineNr">11460 </span> <span class="subxComment">#</span> +<span id="L11461" class="LineNr">11461 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L11462" class="LineNr">11462 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L11463" class="LineNr">11463 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L11464" class="LineNr">11464 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L11465" class="LineNr">11465 </span> 68/push 0/imm32 +<span id="L11466" class="LineNr">11466 </span> 68/push 0/imm32 +<span id="L11467" class="LineNr">11467 </span> 89/<- %eax 4/r32/esp +<span id="L11468" class="LineNr">11468 </span> <span class="subxComment"># convert</span> +<span id="L11469" class="LineNr">11469 </span> (<a href='mu.subx.html#L10529'>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="L11470" class="LineNr">11470 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L11471" class="LineNr">11471 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11472" class="LineNr">11472 </span> 89/<- %edx 0/r32/eax +<span id="L11473" class="LineNr">11473 </span> <span class="subxComment"># out->tag</span> +<span id="L11474" class="LineNr">11474 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L11434'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L11475" class="LineNr">11475 </span> <span class="subxComment"># out->operation</span> +<span id="L11476" class="LineNr">11476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L11477" class="LineNr">11477 </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#L11434'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L11478" class="LineNr">11478 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L11479" class="LineNr">11479 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L11480" class="LineNr">11480 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L11481" class="LineNr">11481 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L11482" class="LineNr">11482 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L11483" class="LineNr">11483 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L11484" class="LineNr">11484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11485" class="LineNr">11485 </span> <span class="subxS1Comment"># .</span> +<span id="L11486" class="LineNr">11486 </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#L11434'>test-parse-mu-stmt</a>/inout:0"</span>) +<span id="L11487" class="LineNr">11487 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11488" class="LineNr">11488 </span> 89/<- %esp 5/r32/ebp +<span id="L11489" class="LineNr">11489 </span> 5d/pop-to-ebp +<span id="L11490" class="LineNr">11490 </span> c3/return +<span id="L11491" class="LineNr">11491 </span> +<span id="L11492" class="LineNr">11492 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: +<span id="L11493" class="LineNr">11493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11494" class="LineNr">11494 </span> 55/push-ebp +<span id="L11495" class="LineNr">11495 </span> 89/<- %ebp 4/r32/esp +<span id="L11496" class="LineNr">11496 </span> <span class="subxComment"># setup</span> +<span id="L11497" class="LineNr">11497 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L11498" class="LineNr">11498 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L11499" class="LineNr">11499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<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">"copy-to n, 3\n"</span>) +<span id="L11501" class="LineNr">11501 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L11502" class="LineNr">11502 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L11503" class="LineNr">11503 </span> 68/push 0xc0/imm32/size +<span id="L11504" class="LineNr">11504 </span> 68/push 0/imm32/top +<span id="L11505" class="LineNr">11505 </span> 89/<- %ecx 4/r32/esp +<span id="L11506" class="LineNr">11506 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L11507" class="LineNr">11507 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L11508" class="LineNr">11508 </span> 68/push 0/imm32 +<span id="L11509" class="LineNr">11509 </span> 68/push 0/imm32 +<span id="L11510" class="LineNr">11510 </span> 89/<- %edx 4/r32/esp +<span id="L11511" class="LineNr">11511 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L11512" class="LineNr">11512 </span> 68/push 0/imm32 +<span id="L11513" class="LineNr">11513 </span> 68/push 0/imm32 +<span id="L11514" class="LineNr">11514 </span> 89/<- %eax 4/r32/esp +<span id="L11515" class="LineNr">11515 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L11516" class="LineNr">11516 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L11517" class="LineNr">11517 </span> (<a href='mu.subx.html#L11550'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L11518" class="LineNr">11518 </span> <span class="subxComment">#</span> +<span id="L11519" class="LineNr">11519 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L11520" class="LineNr">11520 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L11521" class="LineNr">11521 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L11522" class="LineNr">11522 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L11523" class="LineNr">11523 </span> 68/push 0/imm32 +<span id="L11524" class="LineNr">11524 </span> 68/push 0/imm32 +<span id="L11525" class="LineNr">11525 </span> 89/<- %eax 4/r32/esp +<span id="L11526" class="LineNr">11526 </span> <span class="subxComment"># convert</span> +<span id="L11527" class="LineNr">11527 </span> (<a href='mu.subx.html#L10529'>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="L11528" class="LineNr">11528 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L11529" class="LineNr">11529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11530" class="LineNr">11530 </span> 89/<- %edx 0/r32/eax +<span id="L11531" class="LineNr">11531 </span> <span class="subxComment"># out->tag</span> +<span id="L11532" class="LineNr">11532 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L11492'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L11533" class="LineNr">11533 </span> <span class="subxComment"># out->operation</span> +<span id="L11534" class="LineNr">11534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L11535" class="LineNr">11535 </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#L11492'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L11536" class="LineNr">11536 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L11537" class="LineNr">11537 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L11538" class="LineNr">11538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L11539" class="LineNr">11539 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L11540" class="LineNr">11540 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L11541" class="LineNr">11541 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L11542" class="LineNr">11542 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L11543" class="LineNr">11543 </span> <span class="subxS1Comment"># .</span> +<span id="L11544" class="LineNr">11544 </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#L11492'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L11545" class="LineNr">11545 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11546" class="LineNr">11546 </span> 89/<- %esp 5/r32/ebp +<span id="L11547" class="LineNr">11547 </span> 5d/pop-to-ebp +<span id="L11548" class="LineNr">11548 </span> c3/return +<span id="L11549" class="LineNr">11549 </span> +<span id="L11550" class="LineNr">11550 </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="L11551" class="LineNr">11551 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11552" class="LineNr">11552 </span> 55/push-ebp +<span id="L11553" class="LineNr">11553 </span> 89/<- %ebp 4/r32/esp +<span id="L11554" class="LineNr">11554 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11555" class="LineNr">11555 </span> 50/push-eax +<span id="L11556" class="LineNr">11556 </span> 51/push-ecx +<span id="L11557" class="LineNr">11557 </span> <span class="subxComment"># ecx = out</span> +<span id="L11558" class="LineNr">11558 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L11559" class="LineNr">11559 </span> <span class="subxComment">#</span> +<span id="L11560" class="LineNr">11560 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L342'>Var-size</a></span> %ecx) +<span id="L11561" class="LineNr">11561 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L11562" class="LineNr">11562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L11563" class="LineNr">11563 </span> <span class="subxComment"># out-addr->name = name</span> +<span id="L11564" class="LineNr">11564 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L11565" class="LineNr">11565 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L11566" class="LineNr">11566 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L11567" class="LineNr">11567 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L11568" class="LineNr">11568 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L11569" class="LineNr">11569 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> +<span id="L11570" class="LineNr">11570 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L11571" class="LineNr">11571 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L11572" class="LineNr">11572 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> +<span id="L11573" class="LineNr">11573 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> +<span id="L11574" class="LineNr">11574 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L11575" class="LineNr">11575 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L11576" class="LineNr">11576 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L11577" class="LineNr">11577 </span><span class="Constant">$new-var:end</span>: +<span id="L11578" class="LineNr">11578 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11579" class="LineNr">11579 </span> 59/pop-to-ecx +<span id="L11580" class="LineNr">11580 </span> 58/pop-to-eax +<span id="L11581" class="LineNr">11581 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11582" class="LineNr">11582 </span> 89/<- %esp 5/r32/ebp +<span id="L11583" class="LineNr">11583 </span> 5d/pop-to-ebp +<span id="L11584" class="LineNr">11584 </span> c3/return +<span id="L11585" class="LineNr">11585 </span> +<span id="L11586" class="LineNr">11586 </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="L11587" class="LineNr">11587 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11588" class="LineNr">11588 </span> 55/push-ebp +<span id="L11589" class="LineNr">11589 </span> 89/<- %ebp 4/r32/esp +<span id="L11590" class="LineNr">11590 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11591" class="LineNr">11591 </span> 50/push-eax +<span id="L11592" class="LineNr">11592 </span> 51/push-ecx +<span id="L11593" class="LineNr">11593 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> +<span id="L11594" class="LineNr">11594 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L11595" class="LineNr">11595 </span> 3d/compare-eax-and 0/imm32/false +<span id="L11596" class="LineNr">11596 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 +<span id="L11597" class="LineNr">11597 </span> <span class="subxComment"># a little more error-checking</span> +<span id="L11598" class="LineNr">11598 </span> (<a href='mu.subx.html#L11638'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L11599" class="LineNr">11599 </span> <span class="subxComment"># out = new var(s)</span> +<span id="L11600" class="LineNr">11600 </span> (<a href='mu.subx.html#L11735'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L11601" class="LineNr">11601 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L11602" class="LineNr">11602 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L11603" class="LineNr">11603 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11604" class="LineNr">11604 </span> 89/<- %ecx 0/r32/eax +<span id="L11605" class="LineNr">11605 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L11606" class="LineNr">11606 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/r32/eax +<span id="L11607" class="LineNr">11607 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L11608" class="LineNr">11608 </span> <span class="subxComment"># out-addr->type = new tree()</span> +<span id="L11609" class="LineNr">11609 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L11610" class="LineNr">11610 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> %eax) +<span id="L11611" class="LineNr">11611 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L11612" class="LineNr">11612 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L11613" class="LineNr">11613 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L11614" class="LineNr">11614 </span><span class="Constant">$new-literal-integer:end</span>: +<span id="L11615" class="LineNr">11615 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L11616" class="LineNr">11616 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11617" class="LineNr">11617 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11618" class="LineNr">11618 </span> 59/pop-to-ecx +<span id="L11619" class="LineNr">11619 </span> 58/pop-to-eax +<span id="L11620" class="LineNr">11620 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11621" class="LineNr">11621 </span> 89/<- %esp 5/r32/ebp +<span id="L11622" class="LineNr">11622 </span> 5d/pop-to-ebp +<span id="L11623" class="LineNr">11623 </span> c3/return +<span id="L11624" class="LineNr">11624 </span> +<span id="L11625" class="LineNr">11625 </span><span class="Constant">$new-literal-integer:abort</span>: +<span id="L11626" class="LineNr">11626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L11627" class="LineNr">11627 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11628" class="LineNr">11628 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L11629" class="LineNr">11629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L11630" class="LineNr">11630 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) +<span id="L11631" class="LineNr">11631 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L11632" class="LineNr">11632 </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="L11633" class="LineNr">11633 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L11634" class="LineNr">11634 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L11635" class="LineNr">11635 </span> <span class="subxComment"># never gets here</span> +<span id="L11636" class="LineNr">11636 </span> +<span id="L11637" class="LineNr">11637 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> +<span id="L11638" class="LineNr">11638 </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="L11639" class="LineNr">11639 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11640" class="LineNr">11640 </span> 55/push-ebp +<span id="L11641" class="LineNr">11641 </span> 89/<- %ebp 4/r32/esp +<span id="L11642" class="LineNr">11642 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11643" class="LineNr">11643 </span> 50/push-eax +<span id="L11644" class="LineNr">11644 </span> 51/push-ecx +<span id="L11645" class="LineNr">11645 </span> 52/push-edx +<span id="L11646" class="LineNr">11646 </span> <span class="subxComment"># ecx = name</span> +<span id="L11647" class="LineNr">11647 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L11648" class="LineNr">11648 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> +<span id="L11649" class="LineNr">11649 </span> 8b/-> *ecx 2/r32/edx +<span id="L11650" class="LineNr">11650 </span> <span class="subxComment"># if (*start == '-') ++start</span> +<span id="L11651" class="LineNr">11651 </span> b8/copy-to-eax 0/imm32 +<span id="L11652" class="LineNr">11652 </span> 8a/copy-byte *edx 0/r32/AL +<span id="L11653" class="LineNr">11653 </span> 3d/compare-eax-and 0x2d/imm32/dash +<span id="L11654" class="LineNr">11654 </span> { +<span id="L11655" class="LineNr">11655 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L11656" class="LineNr">11656 </span> 42/increment-edx +<span id="L11657" class="LineNr">11657 </span> } +<span id="L11658" class="LineNr">11658 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> +<span id="L11659" class="LineNr">11659 </span> 8b/-> *(ecx+4) 1/r32/ecx +<span id="L11660" class="LineNr">11660 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> +<span id="L11661" class="LineNr">11661 </span> 89/<- %eax 1/r32/ecx +<span id="L11662" class="LineNr">11662 </span> 29/subtract-from %eax 2/r32/edx +<span id="L11663" class="LineNr">11663 </span> <span class="subxComment"># if (len <= 1) return</span> +<span id="L11664" class="LineNr">11664 </span> 3d/compare-eax-with 1/imm32 +<span id="L11665" class="LineNr">11665 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 +<span id="L11666" class="LineNr">11666 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: +<span id="L11667" class="LineNr">11667 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> +<span id="L11668" class="LineNr">11668 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> +<span id="L11669" class="LineNr">11669 </span> 51/push-ecx +<span id="L11670" class="LineNr">11670 </span> 52/push-edx +<span id="L11671" class="LineNr">11671 </span> 89/<- %eax 4/r32/esp +<span id="L11672" class="LineNr">11672 </span> <span class="subxS1Comment"># .</span> +<span id="L11673" class="LineNr">11673 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> +<span id="L11674" class="LineNr">11674 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L11675" class="LineNr">11675 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11676" class="LineNr">11676 </span> <span class="subxS1Comment"># .</span> +<span id="L11677" class="LineNr">11677 </span> 3d/compare-eax-with 0/imm32/false +<span id="L11678" class="LineNr">11678 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 +<span id="L11679" class="LineNr">11679 </span><span class="Constant">$check-mu-hex-int:abort</span>: +<span id="L11680" class="LineNr">11680 </span> <span class="subxComment"># otherwise abort</span> +<span id="L11681" class="LineNr">11681 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"literal integers are always hex in Mu; either start '"</span>) +<span id="L11682" class="LineNr">11682 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) +<span id="L11683" class="LineNr">11683 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' with a '0x' to be unambiguous, or convert it to decimal.\n"</span>) +<span id="L11684" class="LineNr">11684 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L11685" class="LineNr">11685 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L11686" class="LineNr">11686 </span><span class="Constant">$check-mu-hex-int:end</span>: +<span id="L11687" class="LineNr">11687 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11688" class="LineNr">11688 </span> 5a/pop-to-edx +<span id="L11689" class="LineNr">11689 </span> 59/pop-to-ecx +<span id="L11690" class="LineNr">11690 </span> 58/pop-to-eax +<span id="L11691" class="LineNr">11691 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11692" class="LineNr">11692 </span> 89/<- %esp 5/r32/ebp +<span id="L11693" class="LineNr">11693 </span> 5d/pop-to-ebp +<span id="L11694" class="LineNr">11694 </span> c3/return +<span id="L11695" class="LineNr">11695 </span> +<span id="L11696" class="LineNr">11696 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L11697" class="LineNr">11697 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11698" class="LineNr">11698 </span> 55/push-ebp +<span id="L11699" class="LineNr">11699 </span> 89/<- %ebp 4/r32/esp +<span id="L11700" class="LineNr">11700 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11701" class="LineNr">11701 </span> 50/push-eax +<span id="L11702" class="LineNr">11702 </span> 51/push-ecx +<span id="L11703" class="LineNr">11703 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L11704" class="LineNr">11704 </span> 68/push 0/imm32 +<span id="L11705" class="LineNr">11705 </span> 68/push 0/imm32 +<span id="L11706" class="LineNr">11706 </span> 89/<- %ecx 4/r32/esp +<span id="L11707" class="LineNr">11707 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L11708" class="LineNr">11708 </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="L11709" class="LineNr">11709 </span> <span class="subxComment"># allocate to out</span> +<span id="L11710" class="LineNr">11710 </span> (<a href='mu.subx.html#L11550'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L11711" class="LineNr">11711 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L11712" class="LineNr">11712 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L11713" class="LineNr">11713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L11714" class="LineNr">11714 </span> 89/<- %ecx 0/r32/eax +<span id="L11715" class="LineNr">11715 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L11716" class="LineNr">11716 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/r32/eax +<span id="L11717" class="LineNr">11717 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L11718" class="LineNr">11718 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L11719" class="LineNr">11719 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L11720" class="LineNr">11720 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L388'>Type-tree-size</a></span> %eax) +<span id="L11721" class="LineNr">11721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L11722" class="LineNr">11722 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L11723" class="LineNr">11723 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L11724" class="LineNr">11724 </span><span class="Constant">$new-literal:end</span>: +<span id="L11725" class="LineNr">11725 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L11726" class="LineNr">11726 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11727" class="LineNr">11727 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11728" class="LineNr">11728 </span> 59/pop-to-ecx +<span id="L11729" class="LineNr">11729 </span> 58/pop-to-eax +<span id="L11730" class="LineNr">11730 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11731" class="LineNr">11731 </span> 89/<- %esp 5/r32/ebp +<span id="L11732" class="LineNr">11732 </span> 5d/pop-to-ebp +<span id="L11733" class="LineNr">11733 </span> c3/return +<span id="L11734" class="LineNr">11734 </span> +<span id="L11735" class="LineNr">11735 </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="L11736" class="LineNr">11736 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11737" class="LineNr">11737 </span> 55/push-ebp +<span id="L11738" class="LineNr">11738 </span> 89/<- %ebp 4/r32/esp +<span id="L11739" class="LineNr">11739 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11740" class="LineNr">11740 </span> 51/push-ecx +<span id="L11741" class="LineNr">11741 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> +<span id="L11742" class="LineNr">11742 </span> 68/push 0/imm32 +<span id="L11743" class="LineNr">11743 </span> 68/push 0/imm32 +<span id="L11744" class="LineNr">11744 </span> 89/<- %ecx 4/r32/esp +<span id="L11745" class="LineNr">11745 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> +<span id="L11746" class="LineNr">11746 </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="L11747" class="LineNr">11747 </span> <span class="subxComment"># out = new-var(tmp)</span> +<span id="L11748" class="LineNr">11748 </span> (<a href='mu.subx.html#L11550'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L11749" class="LineNr">11749 </span><span class="Constant">$new-var-from-slice:end</span>: +<span id="L11750" class="LineNr">11750 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L11751" class="LineNr">11751 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11752" class="LineNr">11752 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11753" class="LineNr">11753 </span> 59/pop-to-ecx +<span id="L11754" class="LineNr">11754 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11755" class="LineNr">11755 </span> 89/<- %esp 5/r32/ebp +<span id="L11756" class="LineNr">11756 </span> 5d/pop-to-ebp +<span id="L11757" class="LineNr">11757 </span> c3/return +<span id="L11758" class="LineNr">11758 </span> +<span id="L11759" class="LineNr">11759 </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="L11760" class="LineNr">11760 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11761" class="LineNr">11761 </span> 55/push-ebp +<span id="L11762" class="LineNr">11762 </span> 89/<- %ebp 4/r32/esp +<span id="L11763" class="LineNr">11763 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11764" class="LineNr">11764 </span> 50/push-eax +<span id="L11765" class="LineNr">11765 </span> 51/push-ecx +<span id="L11766" class="LineNr">11766 </span> <span class="subxComment">#</span> +<span id="L11767" class="LineNr">11767 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L329'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L11768" class="LineNr">11768 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L11769" class="LineNr">11769 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11770" class="LineNr">11770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11771" class="LineNr">11771 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L11772" class="LineNr">11772 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> +<span id="L11773" class="LineNr">11773 </span> <span class="subxComment"># result->var = var</span> +<span id="L11774" class="LineNr">11774 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L11775" class="LineNr">11775 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L11776" class="LineNr">11776 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L11777" class="LineNr">11777 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L11778" class="LineNr">11778 </span><span class="Constant">$new-var-def:end</span>: +<span id="L11779" class="LineNr">11779 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11780" class="LineNr">11780 </span> 59/pop-to-ecx +<span id="L11781" class="LineNr">11781 </span> 58/pop-to-eax +<span id="L11782" class="LineNr">11782 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11783" class="LineNr">11783 </span> 89/<- %esp 5/r32/ebp +<span id="L11784" class="LineNr">11784 </span> 5d/pop-to-ebp +<span id="L11785" class="LineNr">11785 </span> c3/return +<span id="L11786" class="LineNr">11786 </span> +<span id="L11787" class="LineNr">11787 </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="L11788" class="LineNr">11788 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11789" class="LineNr">11789 </span> 55/push-ebp +<span id="L11790" class="LineNr">11790 </span> 89/<- %ebp 4/r32/esp +<span id="L11791" class="LineNr">11791 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11792" class="LineNr">11792 </span> 50/push-eax +<span id="L11793" class="LineNr">11793 </span> <span class="subxComment"># eax = out</span> +<span id="L11794" class="LineNr">11794 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L11795" class="LineNr">11795 </span> <span class="subxComment">#</span> +<span id="L11796" class="LineNr">11796 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L329'>Stmt-size</a></span> %eax) +<span id="L11797" class="LineNr">11797 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L11798" class="LineNr">11798 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11799" class="LineNr">11799 </span> <span class="subxComment"># set tag</span> +<span id="L11800" class="LineNr">11800 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> +<span id="L11801" class="LineNr">11801 </span> <span class="subxComment"># set output</span> +<span id="L11802" class="LineNr">11802 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> +<span id="L11803" class="LineNr">11803 </span> (<a href='mu.subx.html#L11870'>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="L11804" class="LineNr">11804 </span><span class="Constant">$new-reg-var-def:end</span>: +<span id="L11805" class="LineNr">11805 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11806" class="LineNr">11806 </span> 58/pop-to-eax +<span id="L11807" class="LineNr">11807 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11808" class="LineNr">11808 </span> 89/<- %esp 5/r32/ebp +<span id="L11809" class="LineNr">11809 </span> 5d/pop-to-ebp +<span id="L11810" class="LineNr">11810 </span> c3/return +<span id="L11811" class="LineNr">11811 </span> +<span id="L11812" class="LineNr">11812 </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="L11813" class="LineNr">11813 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11814" class="LineNr">11814 </span> 55/push-ebp +<span id="L11815" class="LineNr">11815 </span> 89/<- %ebp 4/r32/esp +<span id="L11816" class="LineNr">11816 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11817" class="LineNr">11817 </span> 50/push-eax +<span id="L11818" class="LineNr">11818 </span> 51/push-ecx +<span id="L11819" class="LineNr">11819 </span> 57/push-edi +<span id="L11820" class="LineNr">11820 </span> <span class="subxComment"># edi = out</span> +<span id="L11821" class="LineNr">11821 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L11822" class="LineNr">11822 </span> <span class="subxComment"># *out = new list</span> +<span id="L11823" class="LineNr">11823 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L349'>List-size</a></span> %edi) +<span id="L11824" class="LineNr">11824 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> +<span id="L11825" class="LineNr">11825 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L11826" class="LineNr">11826 </span> 89/<- %edi 0/r32/eax +<span id="L11827" class="LineNr">11827 </span> <span class="subxComment"># out-addr->value = value</span> +<span id="L11828" class="LineNr">11828 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L11829" class="LineNr">11829 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L11830" class="LineNr">11830 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L11831" class="LineNr">11831 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L11832" class="LineNr">11832 </span> <span class="subxComment"># if (list == null) return</span> +<span id="L11833" class="LineNr">11833 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 +<span id="L11834" class="LineNr">11834 </span> 74/jump-if-= $append-list:end/disp8 +<span id="L11835" class="LineNr">11835 </span> <span class="subxComment"># otherwise append</span> +<span id="L11836" class="LineNr">11836 </span><span class="Constant">$append-list:non-empty-list</span>: +<span id="L11837" class="LineNr">11837 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> +<span id="L11838" class="LineNr">11838 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L11839" class="LineNr">11839 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L11840" class="LineNr">11840 </span> { +<span id="L11841" class="LineNr">11841 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> +<span id="L11842" class="LineNr">11842 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L11843" class="LineNr">11843 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L11844" class="LineNr">11844 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> +<span id="L11845" class="LineNr">11845 </span> <span class="subxComment">#</span> +<span id="L11846" class="LineNr">11846 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L11847" class="LineNr">11847 </span> } +<span id="L11848" class="LineNr">11848 </span> <span class="subxComment"># edi = out</span> +<span id="L11849" class="LineNr">11849 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L11850" class="LineNr">11850 </span> <span class="subxComment"># curr->next = out</span> +<span id="L11851" class="LineNr">11851 </span> 8b/-> *edi 1/r32/ecx +<span id="L11852" class="LineNr">11852 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L11853" class="LineNr">11853 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L11854" class="LineNr">11854 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L11855" class="LineNr">11855 </span> <span class="subxComment"># out = list</span> +<span id="L11856" class="LineNr">11856 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L11857" class="LineNr">11857 </span> 89/<- *edi 1/r32/ecx +<span id="L11858" class="LineNr">11858 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L11859" class="LineNr">11859 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L11860" class="LineNr">11860 </span><span class="Constant">$append-list:end</span>: +<span id="L11861" class="LineNr">11861 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11862" class="LineNr">11862 </span> 5f/pop-to-edi +<span id="L11863" class="LineNr">11863 </span> 59/pop-to-ecx +<span id="L11864" class="LineNr">11864 </span> 58/pop-to-eax +<span id="L11865" class="LineNr">11865 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11866" class="LineNr">11866 </span> 89/<- %esp 5/r32/ebp +<span id="L11867" class="LineNr">11867 </span> 5d/pop-to-ebp +<span id="L11868" class="LineNr">11868 </span> c3/return +<span id="L11869" class="LineNr">11869 </span> +<span id="L11870" class="LineNr">11870 </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="L11871" class="LineNr">11871 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11872" class="LineNr">11872 </span> 55/push-ebp +<span id="L11873" class="LineNr">11873 </span> 89/<- %ebp 4/r32/esp +<span id="L11874" class="LineNr">11874 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11875" class="LineNr">11875 </span> 50/push-eax +<span id="L11876" class="LineNr">11876 </span> 51/push-ecx +<span id="L11877" class="LineNr">11877 </span> 57/push-edi +<span id="L11878" class="LineNr">11878 </span> <span class="subxComment"># edi = out</span> +<span id="L11879" class="LineNr">11879 </span> 8b/-> *(ebp+0x20) 7/r32/edi +<span id="L11880" class="LineNr">11880 </span> <span class="subxComment"># out = new stmt-var</span> +<span id="L11881" class="LineNr">11881 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L359'>Stmt-var-size</a></span> %edi) +<span id="L11882" class="LineNr">11882 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> +<span id="L11883" class="LineNr">11883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L11884" class="LineNr">11884 </span> 89/<- %ecx 0/r32/eax +<span id="L11885" class="LineNr">11885 </span> <span class="subxComment"># out-addr->value = v</span> +<span id="L11886" class="LineNr">11886 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L11887" class="LineNr">11887 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L11888" class="LineNr">11888 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L11889" class="LineNr">11889 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L11890" class="LineNr">11890 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> +<span id="L11891" class="LineNr">11891 </span> 8b/-> *(ebp+0x1c) 0/r32/eax +<span id="L11892" class="LineNr">11892 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L11893" class="LineNr">11893 </span> <span class="subxComment"># if (vars == null) return result</span> +<span id="L11894" class="LineNr">11894 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null +<span id="L11895" class="LineNr">11895 </span> 74/jump-if-= $append-stmt-var:end/disp8 +<span id="L11896" class="LineNr">11896 </span> <span class="subxComment"># otherwise append</span> +<span id="L11897" class="LineNr">11897 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> +<span id="L11898" class="LineNr">11898 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L11899" class="LineNr">11899 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L11900" class="LineNr">11900 </span> { +<span id="L11901" class="LineNr">11901 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L11902" class="LineNr">11902 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L11903" class="LineNr">11903 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L11904" class="LineNr">11904 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> +<span id="L11905" class="LineNr">11905 </span> <span class="subxComment">#</span> +<span id="L11906" class="LineNr">11906 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L11907" class="LineNr">11907 </span> } +<span id="L11908" class="LineNr">11908 </span> <span class="subxComment"># curr->next = out</span> +<span id="L11909" class="LineNr">11909 </span> 8b/-> *edi 1/r32/ecx +<span id="L11910" class="LineNr">11910 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L11911" class="LineNr">11911 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L11912" class="LineNr">11912 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L11913" class="LineNr">11913 </span> <span class="subxComment"># out = vars</span> +<span id="L11914" class="LineNr">11914 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L11915" class="LineNr">11915 </span> 89/<- *edi 1/r32/ecx +<span id="L11916" class="LineNr">11916 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L11917" class="LineNr">11917 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L11918" class="LineNr">11918 </span><span class="Constant">$append-stmt-var:end</span>: +<span id="L11919" class="LineNr">11919 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11920" class="LineNr">11920 </span> 5f/pop-to-edi +<span id="L11921" class="LineNr">11921 </span> 59/pop-to-ecx +<span id="L11922" class="LineNr">11922 </span> 58/pop-to-eax +<span id="L11923" class="LineNr">11923 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11924" class="LineNr">11924 </span> 89/<- %esp 5/r32/ebp +<span id="L11925" class="LineNr">11925 </span> 5d/pop-to-ebp +<span id="L11926" class="LineNr">11926 </span> c3/return +<span id="L11927" class="LineNr">11927 </span> +<span id="L11928" class="LineNr">11928 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> +<span id="L11929" class="LineNr">11929 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11930" class="LineNr">11930 </span> 55/push-ebp +<span id="L11931" class="LineNr">11931 </span> 89/<- %ebp 4/r32/esp +<span id="L11932" class="LineNr">11932 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11933" class="LineNr">11933 </span> 50/push-eax +<span id="L11934" class="LineNr">11934 </span> 56/push-esi +<span id="L11935" class="LineNr">11935 </span> <span class="subxComment"># esi = block</span> +<span id="L11936" class="LineNr">11936 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L11937" class="LineNr">11937 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> +<span id="L11938" class="LineNr">11938 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> +<span id="L11939" class="LineNr">11939 </span> (<a href='mu.subx.html#L11812'>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="L11940" class="LineNr">11940 </span><span class="Constant">$append-to-block:end</span>: +<span id="L11941" class="LineNr">11941 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11942" class="LineNr">11942 </span> 5e/pop-to-esi +<span id="L11943" class="LineNr">11943 </span> 58/pop-to-eax +<span id="L11944" class="LineNr">11944 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11945" class="LineNr">11945 </span> 89/<- %esp 5/r32/ebp +<span id="L11946" class="LineNr">11946 </span> 5d/pop-to-ebp +<span id="L11947" class="LineNr">11947 </span> c3/return +<span id="L11948" class="LineNr">11948 </span> +<span id="L11949" class="LineNr">11949 </span><span class="subxComment">## Parsing types</span> +<span id="L11950" class="LineNr">11950 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> +<span id="L11951" class="LineNr">11951 </span><span class="subxComment"># metadata as we parse instructions.</span> +<span id="L11952" class="LineNr">11952 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> +<span id="L11953" class="LineNr">11953 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> +<span id="L11954" class="LineNr">11954 </span> +<span id="L11955" class="LineNr">11955 </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="L11956" class="LineNr">11956 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11957" class="LineNr">11957 </span> 55/push-ebp +<span id="L11958" class="LineNr">11958 </span> 89/<- %ebp 4/r32/esp +<span id="L11959" class="LineNr">11959 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11960" class="LineNr">11960 </span> 50/push-eax +<span id="L11961" class="LineNr">11961 </span> 56/push-esi +<span id="L11962" class="LineNr">11962 </span> <span class="subxComment"># var container-type/esi: type-id</span> +<span id="L11963" class="LineNr">11963 </span> (<a href='mu.subx.html#L12006'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L11964" class="LineNr">11964 </span> 89/<- %esi 0/r32/eax +<span id="L11965" class="LineNr">11965 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> +<span id="L11966" class="LineNr">11966 </span> 68/push 0/imm32 +<span id="L11967" class="LineNr">11967 </span> 68/push 0/imm32 +<span id="L11968" class="LineNr">11968 </span> 89/<- %eax 4/r32/esp +<span id="L11969" class="LineNr">11969 </span> (<a href='mu.subx.html#L12043'>find-or-create-typeinfo</a> %esi %eax) +<span id="L11970" class="LineNr">11970 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> +<span id="L11971" class="LineNr">11971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L11972" class="LineNr">11972 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> +<span id="L11973" class="LineNr">11973 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> +<span id="L11974" class="LineNr">11974 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L11975" class="LineNr">11975 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L11976" class="LineNr">11976 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L11977" class="LineNr">11977 </span> (<a href='mu.subx.html#L12159'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L11978" class="LineNr">11978 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> +<span id="L11979" class="LineNr">11979 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L11980" class="LineNr">11980 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L11981" class="LineNr">11981 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L11982" class="LineNr">11982 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L11983" class="LineNr">11983 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L11984" class="LineNr">11984 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L11985" class="LineNr">11985 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L11986" class="LineNr">11986 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> +<span id="L11987" class="LineNr">11987 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> +<span id="L11988" class="LineNr">11988 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L11989" class="LineNr">11989 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L11990" class="LineNr">11990 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L11991" class="LineNr">11991 </span><span class="Constant">$lookup-or-create-constant:end</span>: +<span id="L11992" class="LineNr">11992 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L11993" class="LineNr">11993 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11994" class="LineNr">11994 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L11995" class="LineNr">11995 </span> 5e/pop-to-esi +<span id="L11996" class="LineNr">11996 </span> 58/pop-to-eax +<span id="L11997" class="LineNr">11997 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11998" class="LineNr">11998 </span> 89/<- %esp 5/r32/ebp +<span id="L11999" class="LineNr">11999 </span> 5d/pop-to-ebp +<span id="L12000" class="LineNr">12000 </span> c3/return +<span id="L12001" class="LineNr">12001 </span> +<span id="L12002" class="LineNr">12002 </span><span class="subxComment"># if addr var:</span> +<span id="L12003" class="LineNr">12003 </span><span class="subxComment"># container->var->type->right->left->value</span> +<span id="L12004" class="LineNr">12004 </span><span class="subxComment"># otherwise</span> +<span id="L12005" class="LineNr">12005 </span><span class="subxComment"># container->var->type->value</span> +<span id="L12006" class="LineNr">12006 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> +<span id="L12007" class="LineNr">12007 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12008" class="LineNr">12008 </span> 55/push-ebp +<span id="L12009" class="LineNr">12009 </span> 89/<- %ebp 4/r32/esp +<span id="L12010" class="LineNr">12010 </span> <span class="subxComment">#</span> +<span id="L12011" class="LineNr">12011 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L12012" class="LineNr">12012 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L12013" class="LineNr">12013 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12014" class="LineNr">12014 </span> { +<span id="L12015" class="LineNr">12015 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L12016" class="LineNr">12016 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12017" class="LineNr">12017 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L12018" class="LineNr">12018 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L12019" class="LineNr">12019 </span> } +<span id="L12020" class="LineNr">12020 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L12021" class="LineNr">12021 </span><span class="Constant">$container-type:end</span>: +<span id="L12022" class="LineNr">12022 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12023" class="LineNr">12023 </span> 89/<- %esp 5/r32/ebp +<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="subxFunction">is-container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</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">#</span> +<span id="L12032" class="LineNr">12032 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L12033" class="LineNr">12033 </span> c1/shift 4/subop/left %eax 2/imm8 +<span id="L12034" class="LineNr">12034 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L431'>Primitive-type-ids</a></span> +<span id="L12035" class="LineNr">12035 </span> 0f 9d/set-if->= %al +<span id="L12036" class="LineNr">12036 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L12037" class="LineNr">12037 </span><span class="Constant">$is-container?:end</span>: +<span id="L12038" class="LineNr">12038 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12039" class="LineNr">12039 </span> 89/<- %esp 5/r32/ebp +<span id="L12040" class="LineNr">12040 </span> 5d/pop-to-ebp +<span id="L12041" class="LineNr">12041 </span> c3/return +<span id="L12042" class="LineNr">12042 </span> +<span id="L12043" class="LineNr">12043 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L12044" class="LineNr">12044 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12045" class="LineNr">12045 </span> 55/push-ebp +<span id="L12046" class="LineNr">12046 </span> 89/<- %ebp 4/r32/esp +<span id="L12047" class="LineNr">12047 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12048" class="LineNr">12048 </span> 50/push-eax +<span id="L12049" class="LineNr">12049 </span> 51/push-ecx +<span id="L12050" class="LineNr">12050 </span> 52/push-edx +<span id="L12051" class="LineNr">12051 </span> 57/push-edi +<span id="L12052" class="LineNr">12052 </span> <span class="subxComment"># edi = out</span> +<span id="L12053" class="LineNr">12053 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L12054" class="LineNr">12054 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L12055" class="LineNr">12055 </span> 68/push 0/imm32 +<span id="L12056" class="LineNr">12056 </span> 68/push 0/imm32 +<span id="L12057" class="LineNr">12057 </span> 89/<- %ecx 4/r32/esp +<span id="L12058" class="LineNr">12058 </span> <span class="subxComment"># find-typeinfo(t, out)</span> +<span id="L12059" class="LineNr">12059 </span> (<a href='mu.subx.html#L12110'>find-typeinfo</a> *(ebp+8) %edi) +<span id="L12060" class="LineNr">12060 </span> { +<span id="L12061" class="LineNr">12061 </span> <span class="subxComment"># if (*out != 0) break</span> +<span id="L12062" class="LineNr">12062 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L12063" class="LineNr">12063 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L12064" class="LineNr">12064 </span><span class="Constant">$find-or-create-typeinfo:create</span>: +<span id="L12065" class="LineNr">12065 </span> <span class="subxComment"># *out = allocate</span> +<span id="L12066" class="LineNr">12066 </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#L450'>Typeinfo-size</a></span> %edi) +<span id="L12067" class="LineNr">12067 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L12068" class="LineNr">12068 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L12069" class="LineNr">12069 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> +<span id="L12070" class="LineNr">12070 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L12071" class="LineNr">12071 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> +<span id="L12072" class="LineNr">12072 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L12073" class="LineNr">12073 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12074" class="LineNr">12074 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12075" class="LineNr">12075 </span> <span class="subxComment"># tmp->id = t</span> +<span id="L12076" class="LineNr">12076 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L12077" class="LineNr">12077 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> +<span id="L12078" class="LineNr">12078 </span> <span class="subxComment"># tmp->fields = new table</span> +<span id="L12079" class="LineNr">12079 </span> <span class="subxS1Comment"># . fields = new table</span> +<span id="L12080" class="LineNr">12080 </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#L455'>Typeinfo-fields-row-size</a></span> %ecx) +<span id="L12081" class="LineNr">12081 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> +<span id="L12082" class="LineNr">12082 </span> 8b/-> *ecx 2/r32/edx +<span id="L12083" class="LineNr">12083 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L12084" class="LineNr">12084 </span> 8b/-> *(ecx+4) 2/r32/edx +<span id="L12085" class="LineNr">12085 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L12086" class="LineNr">12086 </span> <span class="subxComment"># tmp->next = Program->types</span> +<span id="L12087" class="LineNr">12087 </span> 8b/-> *_Program-types 1/r32/ecx +<span id="L12088" class="LineNr">12088 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L12089" class="LineNr">12089 </span> 8b/-> *_Program-types->payload 1/r32/ecx +<span id="L12090" class="LineNr">12090 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L12091" class="LineNr">12091 </span> <span class="subxComment"># Program->types = out</span> +<span id="L12092" class="LineNr">12092 </span> 8b/-> *edi 1/r32/ecx +<span id="L12093" class="LineNr">12093 </span> 89/<- *_Program-types 1/r32/ecx +<span id="L12094" class="LineNr">12094 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L12095" class="LineNr">12095 </span> 89/<- *_Program-types->payload 1/r32/ecx +<span id="L12096" class="LineNr">12096 </span> } +<span id="L12097" class="LineNr">12097 </span><span class="Constant">$find-or-create-typeinfo:end</span>: +<span id="L12098" class="LineNr">12098 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L12099" class="LineNr">12099 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12100" class="LineNr">12100 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12101" class="LineNr">12101 </span> 5f/pop-to-edi +<span id="L12102" class="LineNr">12102 </span> 5a/pop-to-edx +<span id="L12103" class="LineNr">12103 </span> 59/pop-to-ecx +<span id="L12104" class="LineNr">12104 </span> 58/pop-to-eax +<span id="L12105" class="LineNr">12105 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12106" class="LineNr">12106 </span> 89/<- %esp 5/r32/ebp +<span id="L12107" class="LineNr">12107 </span> 5d/pop-to-ebp +<span id="L12108" class="LineNr">12108 </span> c3/return +<span id="L12109" class="LineNr">12109 </span> +<span id="L12110" class="LineNr">12110 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L12111" class="LineNr">12111 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12112" class="LineNr">12112 </span> 55/push-ebp +<span id="L12113" class="LineNr">12113 </span> 89/<- %ebp 4/r32/esp +<span id="L12114" class="LineNr">12114 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12115" class="LineNr">12115 </span> 50/push-eax +<span id="L12116" class="LineNr">12116 </span> 51/push-ecx +<span id="L12117" class="LineNr">12117 </span> 52/push-edx +<span id="L12118" class="LineNr">12118 </span> 57/push-edi +<span id="L12119" class="LineNr">12119 </span> <span class="subxComment"># ecx = t</span> +<span id="L12120" class="LineNr">12120 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L12121" class="LineNr">12121 </span> <span class="subxComment"># edi = out</span> +<span id="L12122" class="LineNr">12122 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L12123" class="LineNr">12123 </span> <span class="subxComment"># *out = Program->types</span> +<span id="L12124" class="LineNr">12124 </span> 8b/-> *_Program-types 0/r32/eax +<span id="L12125" class="LineNr">12125 </span> 89/<- *edi 0/r32/eax +<span id="L12126" class="LineNr">12126 </span> 8b/-> *_Program-types->payload 0/r32/eax +<span id="L12127" class="LineNr">12127 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L12128" class="LineNr">12128 </span> { +<span id="L12129" class="LineNr">12129 </span><span class="Constant">$find-typeinfo:loop</span>: +<span id="L12130" class="LineNr">12130 </span> <span class="subxComment"># if (*out == 0) break</span> +<span id="L12131" class="LineNr">12131 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L12132" class="LineNr">12132 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12133" class="LineNr">12133 </span><span class="Constant">$find-typeinfo:check</span>: +<span id="L12134" class="LineNr">12134 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L12135" class="LineNr">12135 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L12136" class="LineNr">12136 </span> <span class="subxComment"># if (tmp->id == t) break</span> +<span id="L12137" class="LineNr">12137 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> +<span id="L12138" class="LineNr">12138 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12139" class="LineNr">12139 </span><span class="Constant">$find-typeinfo:continue</span>: +<span id="L12140" class="LineNr">12140 </span> <span class="subxComment"># *out = tmp->next</span> +<span id="L12141" class="LineNr">12141 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L12142" class="LineNr">12142 </span> 89/<- *edi 2/r32/edx +<span id="L12143" class="LineNr">12143 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L12144" class="LineNr">12144 </span> 89/<- *(edi+4) 2/r32/edx +<span id="L12145" class="LineNr">12145 </span> <span class="subxComment">#</span> +<span id="L12146" class="LineNr">12146 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12147" class="LineNr">12147 </span> } +<span id="L12148" class="LineNr">12148 </span><span class="Constant">$find-typeinfo:end</span>: +<span id="L12149" class="LineNr">12149 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12150" class="LineNr">12150 </span> 5f/pop-to-edi +<span id="L12151" class="LineNr">12151 </span> 5a/pop-to-edx +<span id="L12152" class="LineNr">12152 </span> 59/pop-to-ecx +<span id="L12153" class="LineNr">12153 </span> 58/pop-to-eax +<span id="L12154" class="LineNr">12154 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12155" class="LineNr">12155 </span> 89/<- %esp 5/r32/ebp +<span id="L12156" class="LineNr">12156 </span> 5d/pop-to-ebp +<span id="L12157" class="LineNr">12157 </span> c3/return +<span id="L12158" class="LineNr">12158 </span> +<span id="L12159" class="LineNr">12159 </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="L12160" class="LineNr">12160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12161" class="LineNr">12161 </span> 55/push-ebp +<span id="L12162" class="LineNr">12162 </span> 89/<- %ebp 4/r32/esp +<span id="L12163" class="LineNr">12163 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12164" class="LineNr">12164 </span> 50/push-eax +<span id="L12165" class="LineNr">12165 </span> 52/push-edx +<span id="L12166" class="LineNr">12166 </span> 57/push-edi +<span id="L12167" class="LineNr">12167 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> +<span id="L12168" class="LineNr">12168 </span> 68/push 0/imm32 +<span id="L12169" class="LineNr">12169 </span> 68/push 0/imm32 +<span id="L12170" class="LineNr">12170 </span> 89/<- %edi 4/r32/esp +<span id="L12171" class="LineNr">12171 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> +<span id="L12172" class="LineNr">12172 </span> (<a href='mu.subx.html#L12224'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) +<span id="L12173" class="LineNr">12173 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> +<span id="L12174" class="LineNr">12174 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L12175" class="LineNr">12175 </span> 89/<- %edi 0/r32/eax +<span id="L12176" class="LineNr">12176 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> +<span id="L12177" class="LineNr">12177 </span> { +<span id="L12178" class="LineNr">12178 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12179" class="LineNr">12179 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L12180" class="LineNr">12180 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> +<span id="L12181" class="LineNr">12181 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> +<span id="L12182" class="LineNr">12182 </span> 68/push 0/imm32 +<span id="L12183" class="LineNr">12183 </span> 68/push 0/imm32 +<span id="L12184" class="LineNr">12184 </span> 89/<- %eax 4/r32/esp +<span id="L12185" class="LineNr">12185 </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="L12186" class="LineNr">12186 </span> <span class="subxS1Comment"># . new var</span> +<span id="L12187" class="LineNr">12187 </span> 8d/copy-address *(edi+0xc) 2/r32/edx +<span id="L12188" class="LineNr">12188 </span> (<a href='mu.subx.html#L11550'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L12189" class="LineNr">12189 </span> <span class="subxS1Comment"># . reclaim name</span> +<span id="L12190" class="LineNr">12190 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12191" class="LineNr">12191 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> +<span id="L12192" class="LineNr">12192 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> +<span id="L12193" class="LineNr">12193 </span> 89/<- %edx 0/r32/eax +<span id="L12194" class="LineNr">12194 </span> <span class="subxComment"># result->type = new constant type</span> +<span id="L12195" class="LineNr">12195 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L12196" class="LineNr">12196 </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#L388'>Type-tree-size</a></span> %eax) +<span id="L12197" class="LineNr">12197 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> +<span id="L12198" class="LineNr">12198 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L12199" class="LineNr">12199 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> +<span id="L12200" class="LineNr">12200 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L12201" class="LineNr">12201 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L12202" class="LineNr">12202 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L12203" class="LineNr">12203 </span> <span class="subxComment"># result->offset isn't filled out yet</span> +<span id="L12204" class="LineNr">12204 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L12205" class="LineNr">12205 </span> } +<span id="L12206" class="LineNr">12206 </span> <span class="subxComment"># out = dest-addr->output-var</span> +<span id="L12207" class="LineNr">12207 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L12208" class="LineNr">12208 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12209" class="LineNr">12209 </span> 89/<- *edx 0/r32/eax +<span id="L12210" class="LineNr">12210 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12211" class="LineNr">12211 </span> 89/<- *(edx+4) 0/r32/eax +<span id="L12212" class="LineNr">12212 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: +<span id="L12213" class="LineNr">12213 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L12214" class="LineNr">12214 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12215" class="LineNr">12215 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12216" class="LineNr">12216 </span> 5f/pop-to-edi +<span id="L12217" class="LineNr">12217 </span> 5a/pop-to-edx +<span id="L12218" class="LineNr">12218 </span> 58/pop-to-eax +<span id="L12219" class="LineNr">12219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12220" class="LineNr">12220 </span> 89/<- %esp 5/r32/ebp +<span id="L12221" class="LineNr">12221 </span> 5d/pop-to-ebp +<span id="L12222" class="LineNr">12222 </span> c3/return +<span id="L12223" class="LineNr">12223 </span> +<span id="L12224" class="LineNr">12224 </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="L12225" class="LineNr">12225 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12226" class="LineNr">12226 </span> 55/push-ebp +<span id="L12227" class="LineNr">12227 </span> 89/<- %ebp 4/r32/esp +<span id="L12228" class="LineNr">12228 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12229" class="LineNr">12229 </span> 50/push-eax +<span id="L12230" class="LineNr">12230 </span> 56/push-esi +<span id="L12231" class="LineNr">12231 </span> 57/push-edi +<span id="L12232" class="LineNr">12232 </span> <span class="subxComment"># eax = lookup(T->fields)</span> +<span id="L12233" class="LineNr">12233 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L12234" class="LineNr">12234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L12235" class="LineNr">12235 </span> <span class="subxComment"># edi = out</span> +<span id="L12236" class="LineNr">12236 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L12237" class="LineNr">12237 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> +<span id="L12238" class="LineNr">12238 </span> (<a href='../131table.subx.html#L1022'>get-or-insert-slice</a> %eax *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L455'>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="L12239" class="LineNr">12239 </span> 89/<- %esi 0/r32/eax +<span id="L12240" class="LineNr">12240 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> +<span id="L12241" class="LineNr">12241 </span> { +<span id="L12242" class="LineNr">12242 </span> 81 7/subop/compare *esi 0/imm32 +<span id="L12243" class="LineNr">12243 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12244" class="LineNr">12244 </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#L471'>Typeinfo-entry-size</a></span> %esi) +<span id="L12245" class="LineNr">12245 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> +<span id="L12246" class="LineNr">12246 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L12247" class="LineNr">12247 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> +<span id="L12248" class="LineNr">12248 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> +<span id="L12249" class="LineNr">12249 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L12250" class="LineNr">12250 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> +<span id="L12251" class="LineNr">12251 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12252" class="LineNr">12252 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12253" class="LineNr">12253 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L12254" class="LineNr">12254 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> +<span id="L12255" class="LineNr">12255 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L12256" class="LineNr">12256 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> +<span id="L12257" class="LineNr">12257 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L12258" class="LineNr">12258 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12259" class="LineNr">12259 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12260" class="LineNr">12260 </span> } +<span id="L12261" class="LineNr">12261 </span> <span class="subxComment"># *out = src</span> +<span id="L12262" class="LineNr">12262 </span> <span class="subxS1Comment"># . *edi = *src</span> +<span id="L12263" class="LineNr">12263 </span> 8b/-> *esi 0/r32/eax +<span id="L12264" class="LineNr">12264 </span> 89/<- *edi 0/r32/eax +<span id="L12265" class="LineNr">12265 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L12266" class="LineNr">12266 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L12267" class="LineNr">12267 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: +<span id="L12268" class="LineNr">12268 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12269" class="LineNr">12269 </span> 5f/pop-to-edi +<span id="L12270" class="LineNr">12270 </span> 5e/pop-to-esi +<span id="L12271" class="LineNr">12271 </span> 58/pop-to-eax +<span id="L12272" class="LineNr">12272 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12273" class="LineNr">12273 </span> 89/<- %esp 5/r32/ebp +<span id="L12274" class="LineNr">12274 </span> 5d/pop-to-ebp +<span id="L12275" class="LineNr">12275 </span> c3/return +<span id="L12276" class="LineNr">12276 </span> +<span id="L12277" class="LineNr">12277 </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="L12278" class="LineNr">12278 </span> <span class="subxComment"># pseudocode:</span> +<span id="L12279" class="LineNr">12279 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L12280" class="LineNr">12280 </span> <span class="subxComment"># curr-index = 0</span> +<span id="L12281" class="LineNr">12281 </span> <span class="subxComment"># while true</span> +<span id="L12282" class="LineNr">12282 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L12283" class="LineNr">12283 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L12284" class="LineNr">12284 </span> <span class="subxComment"># if line->write == 0</span> +<span id="L12285" class="LineNr">12285 </span> <span class="subxComment"># abort</span> +<span id="L12286" class="LineNr">12286 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L12287" class="LineNr">12287 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L12288" class="LineNr">12288 </span> <span class="subxComment"># continue</span> +<span id="L12289" class="LineNr">12289 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> +<span id="L12290" class="LineNr">12290 </span> <span class="subxComment"># break</span> +<span id="L12291" class="LineNr">12291 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> +<span id="L12292" class="LineNr">12292 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> +<span id="L12293" class="LineNr">12293 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> +<span id="L12294" class="LineNr">12294 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L12295" class="LineNr">12295 </span> <span class="subxComment"># curr-index++</span> +<span id="L12296" class="LineNr">12296 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L12297" class="LineNr">12297 </span> <span class="subxComment"># if r->output-var == 0</span> +<span id="L12298" class="LineNr">12298 </span> <span class="subxComment"># r->output-var = new literal</span> +<span id="L12299" class="LineNr">12299 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> +<span id="L12300" class="LineNr">12300 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> +<span id="L12301" class="LineNr">12301 </span> <span class="subxComment">#</span> +<span id="L12302" class="LineNr">12302 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12303" class="LineNr">12303 </span> 55/push-ebp +<span id="L12304" class="LineNr">12304 </span> 89/<- %ebp 4/r32/esp +<span id="L12305" class="LineNr">12305 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> +<span id="L12306" class="LineNr">12306 </span> 68/push 0/imm32 +<span id="L12307" class="LineNr">12307 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12308" class="LineNr">12308 </span> 50/push-eax +<span id="L12309" class="LineNr">12309 </span> 51/push-ecx +<span id="L12310" class="LineNr">12310 </span> 52/push-edx +<span id="L12311" class="LineNr">12311 </span> 53/push-ebx +<span id="L12312" class="LineNr">12312 </span> 56/push-esi +<span id="L12313" class="LineNr">12313 </span> 57/push-edi +<span id="L12314" class="LineNr">12314 </span> <span class="subxComment"># edi = t</span> +<span id="L12315" class="LineNr">12315 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L12316" class="LineNr">12316 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L12317" class="LineNr">12317 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L12318" class="LineNr">12318 </span> 68/push 0x200/imm32/size +<span id="L12319" class="LineNr">12319 </span> 68/push 0/imm32/read +<span id="L12320" class="LineNr">12320 </span> 68/push 0/imm32/write +<span id="L12321" class="LineNr">12321 </span> 89/<- %ecx 4/r32/esp +<span id="L12322" class="LineNr">12322 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L12323" class="LineNr">12323 </span> 68/push 0/imm32/end +<span id="L12324" class="LineNr">12324 </span> 68/push 0/imm32/start +<span id="L12325" class="LineNr">12325 </span> 89/<- %edx 4/r32/esp +<span id="L12326" class="LineNr">12326 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L12327" class="LineNr">12327 </span> 68/push 0/imm32 +<span id="L12328" class="LineNr">12328 </span> 68/push 0/imm32 +<span id="L12329" class="LineNr">12329 </span> 89/<- %esi 4/r32/esp +<span id="L12330" class="LineNr">12330 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L12331" class="LineNr">12331 </span> 68/push 0/imm32 +<span id="L12332" class="LineNr">12332 </span> 68/push 0/imm32 +<span id="L12333" class="LineNr">12333 </span> 89/<- %ebx 4/r32/esp +<span id="L12334" class="LineNr">12334 </span> { +<span id="L12335" class="LineNr">12335 </span><span class="Constant">$populate-mu-type:line-loop</span>: +<span id="L12336" class="LineNr">12336 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L12337" class="LineNr">12337 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L12338" class="LineNr">12338 </span> <span class="subxComment"># if (line->write == 0) abort</span> +<span id="L12339" class="LineNr">12339 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L12340" class="LineNr">12340 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 +<span id="L12341" class="Folded">12341 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12347" class="LineNr">12347 </span> (<a href='mu.subx.html#L9125'>next-mu-token</a> %ecx %edx) +<span id="L12348" class="LineNr">12348 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L12349" class="LineNr">12349 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L12350" class="LineNr">12350 </span> 3d/compare-eax-and 0/imm32 +<span id="L12351" class="LineNr">12351 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L12352" class="LineNr">12352 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L12353" class="LineNr">12353 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L12354" class="LineNr">12354 </span> 3d/compare-eax-and 0/imm32 +<span id="L12355" class="LineNr">12355 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L12356" class="LineNr">12356 </span><span class="Constant">$populate-mu-type:parse-element</span>: +<span id="L12357" class="LineNr">12357 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L12358" class="LineNr">12358 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> +<span id="L12359" class="LineNr">12359 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> +<span id="L12360" class="LineNr">12360 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> +<span id="L12361" class="LineNr">12361 </span> (<a href='mu.subx.html#L8830'>parse-var-with-type</a> %edx %ecx %esi *(ebp+0x10) *(ebp+0x14)) +<span id="L12362" class="LineNr">12362 </span> <span class="subxComment"># if v is an addr, abort</span> +<span id="L12363" class="LineNr">12363 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L12364" class="LineNr">12364 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12365" class="LineNr">12365 </span> (<a href='mu.subx.html#L23714'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L12366" class="LineNr">12366 </span> 3d/compare-eax-and 0/imm32/false +<span id="L12367" class="LineNr">12367 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 +<span id="L12368" class="LineNr">12368 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> +<span id="L12369" class="LineNr">12369 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L12370" class="LineNr">12370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12371" class="LineNr">12371 </span> (<a href='mu.subx.html#L23736'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L12372" class="LineNr">12372 </span> 3d/compare-eax-and 0/imm32/false +<span id="L12373" class="LineNr">12373 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 +<span id="L12374" class="LineNr">12374 </span> <span class="subxComment"># if v is a byte, abort</span> +<span id="L12375" class="LineNr">12375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L12376" class="LineNr">12376 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12377" class="LineNr">12377 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L12378" class="LineNr">12378 </span> 3d/compare-eax-and 0/imm32/false +<span id="L12379" class="LineNr">12379 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 +<span id="L12380" class="LineNr">12380 </span> <span class="subxComment"># if v is a slice, abort</span> +<span id="L12381" class="LineNr">12381 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L12382" class="LineNr">12382 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12383" class="LineNr">12383 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> +<span id="L12384" class="LineNr">12384 </span> 3d/compare-eax-and 0/imm32/false +<span id="L12385" class="LineNr">12385 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 +<span id="L12386" class="LineNr">12386 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> +<span id="L12387" class="LineNr">12387 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L12388" class="LineNr">12388 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12389" class="LineNr">12389 </span> (<a href='mu.subx.html#L23758'>is-mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L12390" class="LineNr">12390 </span> 3d/compare-eax-and 0/imm32/false +<span id="L12391" class="LineNr">12391 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 +<span id="L12392" class="LineNr">12392 </span> <span class="subxComment"># var tmp/ecx</span> +<span id="L12393" class="LineNr">12393 </span> 51/push-ecx +<span id="L12394" class="LineNr">12394 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: +<span id="L12395" class="LineNr">12395 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L12396" class="LineNr">12396 </span> (<a href='mu.subx.html#L12224'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) +<span id="L12397" class="LineNr">12397 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L12398" class="LineNr">12398 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L12399" class="LineNr">12399 </span> 8b/-> *(ebp-4) 1/r32/ecx +<span id="L12400" class="LineNr">12400 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> +<span id="L12401" class="LineNr">12401 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L12402" class="LineNr">12402 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L12403" class="LineNr">12403 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> +<span id="L12404" class="LineNr">12404 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12405" class="LineNr">12405 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12406" class="LineNr">12406 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L12407" class="LineNr">12407 </span> <span class="subxComment"># ++curr-index</span> +<span id="L12408" class="LineNr">12408 </span> ff 0/subop/increment *(ebp-4) +<span id="L12409" class="LineNr">12409 </span><span class="Constant">$populate-mu-type:set-input-type</span>: +<span id="L12410" class="LineNr">12410 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L12411" class="LineNr">12411 </span> 8b/-> *esi 1/r32/ecx +<span id="L12412" class="LineNr">12412 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L12413" class="LineNr">12413 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L12414" class="LineNr">12414 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L12415" class="LineNr">12415 </span> <span class="subxComment"># restore line</span> +<span id="L12416" class="LineNr">12416 </span> 59/pop-to-ecx +<span id="L12417" class="LineNr">12417 </span> { +<span id="L12418" class="LineNr">12418 </span><span class="Constant">$populate-mu-type:create-output-type</span>: +<span id="L12419" class="LineNr">12419 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> +<span id="L12420" class="LineNr">12420 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12421" class="LineNr">12421 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12422" class="LineNr">12422 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12423" class="LineNr">12423 </span> (<a href='mu.subx.html#L11696'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edx %eax) +<span id="L12424" class="LineNr">12424 </span> } +<span id="L12425" class="LineNr">12425 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L12426" class="LineNr">12426 </span> } +<span id="L12427" class="LineNr">12427 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: +<span id="L12428" class="LineNr">12428 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> +<span id="L12429" class="LineNr">12429 </span> <span class="subxComment"># have encountered the element types.</span> +<span id="L12430" class="LineNr">12430 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> +<span id="L12431" class="LineNr">12431 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12432" class="LineNr">12432 </span><span class="Constant">$populate-mu-type:end</span>: +<span id="L12433" class="LineNr">12433 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L12434" class="LineNr">12434 </span> 81 0/subop/add %esp 0x224/imm32 +<span id="L12435" class="LineNr">12435 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12436" class="LineNr">12436 </span> 5f/pop-to-edi +<span id="L12437" class="LineNr">12437 </span> 5e/pop-to-esi +<span id="L12438" class="LineNr">12438 </span> 5b/pop-to-ebx +<span id="L12439" class="LineNr">12439 </span> 5a/pop-to-edx +<span id="L12440" class="LineNr">12440 </span> 59/pop-to-ecx +<span id="L12441" class="LineNr">12441 </span> 58/pop-to-eax +<span id="L12442" class="LineNr">12442 </span> <span class="subxComment"># reclaim curr-index</span> +<span id="L12443" class="LineNr">12443 </span> 81 0/subop/add %esp 4/imm32 +<span id="L12444" class="LineNr">12444 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12445" class="LineNr">12445 </span> 89/<- %esp 5/r32/ebp +<span id="L12446" class="LineNr">12446 </span> 5d/pop-to-ebp +<span id="L12447" class="LineNr">12447 </span> c3/return +<span id="L12448" class="LineNr">12448 </span> +<span id="L12449" class="LineNr">12449 </span><span class="Constant">$populate-mu-type:error1</span>: +<span id="L12450" class="LineNr">12450 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> +<span id="L12451" class="LineNr">12451 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) +<span id="L12452" class="LineNr">12452 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12453" class="LineNr">12453 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12454" class="LineNr">12454 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) +<span id="L12455" class="LineNr">12455 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12456" class="LineNr">12456 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12457" class="LineNr">12457 </span> <span class="subxComment"># never gets here</span> +<span id="L12458" class="LineNr">12458 </span> +<span id="L12459" class="LineNr">12459 </span><span class="Constant">$populate-mu-type:error2</span>: +<span id="L12460" class="LineNr">12460 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L12461" class="LineNr">12461 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12462" class="LineNr">12462 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12463" class="LineNr">12463 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) +<span id="L12464" class="LineNr">12464 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12465" class="LineNr">12465 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12466" class="LineNr">12466 </span> <span class="subxComment"># never gets here</span> +<span id="L12467" class="LineNr">12467 </span> +<span id="L12468" class="LineNr">12468 </span><span class="Constant">$populate-mu-type:error3</span>: +<span id="L12469" class="LineNr">12469 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L12470" class="LineNr">12470 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12471" class="LineNr">12471 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12472" class="LineNr">12472 </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="L12473" class="LineNr">12473 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12474" class="LineNr">12474 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12475" class="LineNr">12475 </span> <span class="subxComment"># never gets here</span> +<span id="L12476" class="LineNr">12476 </span> +<span id="L12477" class="LineNr">12477 </span><span class="Constant">$populate-mu-type:error4</span>: +<span id="L12478" class="LineNr">12478 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L12479" class="LineNr">12479 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12480" class="LineNr">12480 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12481" class="LineNr">12481 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) +<span id="L12482" class="LineNr">12482 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12483" class="LineNr">12483 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12484" class="LineNr">12484 </span> <span class="subxComment"># never gets here</span> +<span id="L12485" class="LineNr">12485 </span> +<span id="L12486" class="LineNr">12486 </span><span class="Constant">$populate-mu-type:error5</span>: +<span id="L12487" class="LineNr">12487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L12488" class="LineNr">12488 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12489" class="LineNr">12489 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12490" class="LineNr">12490 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) +<span id="L12491" class="LineNr">12491 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12492" class="LineNr">12492 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12493" class="LineNr">12493 </span> <span class="subxComment"># never gets here</span> +<span id="L12494" class="LineNr">12494 </span> +<span id="L12495" class="LineNr">12495 </span><span class="Constant">$populate-mu-type:error6</span>: +<span id="L12496" class="LineNr">12496 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L12497" class="LineNr">12497 </span> (<a href='mu.subx.html#L12504'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L12498" class="LineNr">12498 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L12499" class="LineNr">12499 </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="L12500" class="LineNr">12500 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L12501" class="LineNr">12501 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L12502" class="LineNr">12502 </span> <span class="subxComment"># never gets here</span> +<span id="L12503" class="LineNr">12503 </span> +<span id="L12504" class="LineNr">12504 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> +<span id="L12505" class="LineNr">12505 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12506" class="LineNr">12506 </span> 55/push-ebp +<span id="L12507" class="LineNr">12507 </span> 89/<- %ebp 4/r32/esp +<span id="L12508" class="LineNr">12508 </span> <span class="subxComment">#</span> +<span id="L12509" class="LineNr">12509 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span> *(ebp+8)) +<span id="L12510" class="LineNr">12510 </span><span class="Constant">$type-name:end</span>: +<span id="L12511" class="LineNr">12511 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12512" class="LineNr">12512 </span> 89/<- %esp 5/r32/ebp +<span id="L12513" class="LineNr">12513 </span> 5d/pop-to-ebp +<span id="L12514" class="LineNr">12514 </span> c3/return +<span id="L12515" class="LineNr">12515 </span> +<span id="L12516" class="LineNr">12516 </span><span class="subxFunction">index</span>: <span class="subxComment"># arr: (addr stream (handle array byte)), index: int -> result/eax: (addr array byte)</span> +<span id="L12517" class="LineNr">12517 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12518" class="LineNr">12518 </span> 55/push-ebp +<span id="L12519" class="LineNr">12519 </span> 89/<- %ebp 4/r32/esp +<span id="L12520" class="LineNr">12520 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12521" class="LineNr">12521 </span> 56/push-esi +<span id="L12522" class="LineNr">12522 </span> <span class="subxComment"># TODO: bounds-check index</span> +<span id="L12523" class="LineNr">12523 </span> <span class="subxComment"># esi = arr</span> +<span id="L12524" class="LineNr">12524 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L12525" class="LineNr">12525 </span> <span class="subxComment"># eax = index</span> +<span id="L12526" class="LineNr">12526 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L12527" class="LineNr">12527 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> +<span id="L12528" class="LineNr">12528 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax +<span id="L12529" class="LineNr">12529 </span><span class="Constant">$index:end</span>: +<span id="L12530" class="LineNr">12530 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12531" class="LineNr">12531 </span> 5e/pop-to-esi +<span id="L12532" class="LineNr">12532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12533" class="LineNr">12533 </span> 89/<- %esp 5/r32/ebp +<span id="L12534" class="LineNr">12534 </span> 5d/pop-to-ebp +<span id="L12535" class="LineNr">12535 </span> c3/return +<span id="L12536" class="LineNr">12536 </span> +<span id="L12537" class="LineNr">12537 </span><span class="subxComment">#######################################################</span> +<span id="L12538" class="LineNr">12538 </span><span class="subxComment"># Compute type sizes</span> +<span id="L12539" class="LineNr">12539 </span><span class="subxComment">#######################################################</span> +<span id="L12540" class="LineNr">12540 </span> +<span id="L12541" class="LineNr">12541 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> +<span id="L12542" class="LineNr">12542 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> +<span id="L12543" class="LineNr">12543 </span><span class="subxComment"># types, which we will compute as needed.</span> +<span id="L12544" class="LineNr">12544 </span> +<span id="L12545" class="LineNr">12545 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> +<span id="L12546" class="LineNr">12546 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L12547" class="LineNr">12547 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12548" class="LineNr">12548 </span> 55/push-ebp +<span id="L12549" class="LineNr">12549 </span> 89/<- %ebp 4/r32/esp +<span id="L12550" class="LineNr">12550 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: +<span id="L12551" class="LineNr">12551 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L12552" class="LineNr">12552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L12553" class="LineNr">12553 </span> { +<span id="L12554" class="LineNr">12554 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L12555" class="LineNr">12555 </span> 3d/compare-eax-and 0/imm32/null +<span id="L12556" class="LineNr">12556 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12557" class="LineNr">12557 </span> (<a href='mu.subx.html#L12583'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L12558" class="LineNr">12558 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L12559" class="LineNr">12559 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L12560" class="LineNr">12560 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12561" class="LineNr">12561 </span> } +<span id="L12562" class="LineNr">12562 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: +<span id="L12563" class="LineNr">12563 </span> <span class="subxComment"># curr = *Program->types</span> +<span id="L12564" class="LineNr">12564 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L12565" class="LineNr">12565 </span> { +<span id="L12566" class="LineNr">12566 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L12567" class="LineNr">12567 </span> 3d/compare-eax-and 0/imm32/null +<span id="L12568" class="LineNr">12568 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12569" class="LineNr">12569 </span> (<a href='mu.subx.html#L12747'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L12570" class="LineNr">12570 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L12571" class="LineNr">12571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L12572" class="LineNr">12572 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12573" class="LineNr">12573 </span> } +<span id="L12574" class="LineNr">12574 </span><span class="Constant">$populate-mu-type-sizes:end</span>: +<span id="L12575" class="LineNr">12575 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12576" class="LineNr">12576 </span> 89/<- %esp 5/r32/ebp +<span id="L12577" class="LineNr">12577 </span> 5d/pop-to-ebp +<span id="L12578" class="LineNr">12578 </span> c3/return +<span id="L12579" class="LineNr">12579 </span> +<span id="L12580" class="LineNr">12580 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> +<span id="L12581" class="LineNr">12581 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> +<span id="L12582" class="LineNr">12582 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> +<span id="L12583" class="LineNr">12583 </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="L12584" class="LineNr">12584 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12585" class="LineNr">12585 </span> 55/push-ebp +<span id="L12586" class="LineNr">12586 </span> 89/<- %ebp 4/r32/esp +<span id="L12587" class="LineNr">12587 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12588" class="LineNr">12588 </span> 50/push-eax +<span id="L12589" class="LineNr">12589 </span> 51/push-ecx +<span id="L12590" class="LineNr">12590 </span> 52/push-edx +<span id="L12591" class="LineNr">12591 </span> 56/push-esi +<span id="L12592" class="LineNr">12592 </span> 57/push-edi +<span id="L12593" class="LineNr">12593 </span> <span class="subxComment"># esi = T</span> +<span id="L12594" class="LineNr">12594 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L12595" class="LineNr">12595 </span> <span class="subxComment"># if T is already computed, return</span> +<span id="L12596" class="LineNr">12596 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12597" class="LineNr">12597 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 +<span id="L12598" class="LineNr">12598 </span> <span class="subxComment"># if T is being computed, abort</span> +<span id="L12599" class="LineNr">12599 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12600" class="LineNr">12600 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 +<span id="L12601" class="LineNr">12601 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> +<span id="L12602" class="LineNr">12602 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12603" class="LineNr">12603 </span> <span class="subxComment"># var total-size/edi: int = 0</span> +<span id="L12604" class="LineNr">12604 </span> bf/copy-to-edi 0/imm32 +<span id="L12605" class="LineNr">12605 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> +<span id="L12606" class="LineNr">12606 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L12607" class="LineNr">12607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L12608" class="LineNr">12608 </span> 89/<- %ecx 0/r32/eax +<span id="L12609" class="LineNr">12609 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L12610" class="LineNr">12610 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L12611" class="LineNr">12611 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L12612" class="LineNr">12612 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L12613" class="LineNr">12613 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L12614" class="LineNr">12614 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L12615" class="LineNr">12615 </span> { +<span id="L12616" class="LineNr">12616 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: +<span id="L12617" class="LineNr">12617 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L12618" class="LineNr">12618 </span> 39/compare %ecx 2/r32/edx +<span id="L12619" class="LineNr">12619 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L12620" class="LineNr">12620 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> +<span id="L12621" class="LineNr">12621 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L12622" class="LineNr">12622 </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="L12623" class="LineNr">12623 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L12624" class="LineNr">12624 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 +<span id="L12625" class="LineNr">12625 </span> <span class="subxComment"># compute size of t->input-var</span> +<span id="L12626" class="LineNr">12626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L12627" class="LineNr">12627 </span> (<a href='mu.subx.html#L12657'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L12628" class="LineNr">12628 </span> <span class="subxComment"># result += eax</span> +<span id="L12629" class="LineNr">12629 </span> 01/add-to %edi 0/r32/eax +<span id="L12630" class="LineNr">12630 </span> <span class="subxComment"># curr += row-size</span> +<span id="L12631" class="LineNr">12631 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L12632" class="LineNr">12632 </span> <span class="subxComment">#</span> +<span id="L12633" class="LineNr">12633 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12634" class="LineNr">12634 </span> } +<span id="L12635" class="LineNr">12635 </span> <span class="subxH1Comment"># - save result</span> +<span id="L12636" class="LineNr">12636 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12637" class="LineNr">12637 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: +<span id="L12638" class="LineNr">12638 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12639" class="LineNr">12639 </span> 5f/pop-to-edi +<span id="L12640" class="LineNr">12640 </span> 5e/pop-to-esi +<span id="L12641" class="LineNr">12641 </span> 5a/pop-to-edx +<span id="L12642" class="LineNr">12642 </span> 59/pop-to-ecx +<span id="L12643" class="LineNr">12643 </span> 58/pop-to-eax +<span id="L12644" class="LineNr">12644 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12645" class="LineNr">12645 </span> 89/<- %esp 5/r32/ebp +<span id="L12646" class="LineNr">12646 </span> 5d/pop-to-ebp +<span id="L12647" class="LineNr">12647 </span> c3/return +<span id="L12648" class="LineNr">12648 </span> +<span id="L12649" class="LineNr">12649 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: +<span id="L12650" class="LineNr">12650 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) +<span id="L12651" class="LineNr">12651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L12652" class="LineNr">12652 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L12653" class="LineNr">12653 </span> <span class="subxComment"># never gets here</span> +<span id="L12654" class="LineNr">12654 </span> +<span id="L12655" class="LineNr">12655 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> +<span id="L12656" class="LineNr">12656 </span><span class="subxComment"># off the right data structures.</span> +<span id="L12657" class="LineNr">12657 </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="L12658" class="LineNr">12658 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12659" class="LineNr">12659 </span> 55/push-ebp +<span id="L12660" class="LineNr">12660 </span> 89/<- %ebp 4/r32/esp +<span id="L12661" class="LineNr">12661 </span> <span class="subxS1Comment"># . push registers</span> +<span id="L12662" class="LineNr">12662 </span> 51/push-ecx +<span id="L12663" class="LineNr">12663 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L12664" class="LineNr">12664 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L12665" class="LineNr">12665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L12666" class="LineNr">12666 </span> 89/<- %ecx 0/r32/eax +<span id="L12667" class="LineNr">12667 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L12668" class="LineNr">12668 </span> { +<span id="L12669" class="LineNr">12669 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L12670" class="LineNr">12670 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12671" class="LineNr">12671 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L12672" class="LineNr">12672 </span> 89/<- %ecx 0/r32/eax +<span id="L12673" class="LineNr">12673 </span> } +<span id="L12674" class="LineNr">12674 </span> <span class="subxComment"># TODO: ensure t is an atom</span> +<span id="L12675" class="LineNr">12675 </span> (<a href='mu.subx.html#L12684'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L12676" class="LineNr">12676 </span><span class="Constant">$compute-size-of-var:end</span>: +<span id="L12677" class="LineNr">12677 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12678" class="LineNr">12678 </span> 59/pop-to-ecx <span id="L12679" class="LineNr">12679 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12680" class="LineNr">12680 </span> 89/<- %esp 5/r32/ebp <span id="L12681" class="LineNr">12681 </span> 5d/pop-to-ebp <span id="L12682" class="LineNr">12682 </span> c3/return <span id="L12683" class="LineNr">12683 </span> -<span id="L12684" class="LineNr">12684 </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="L12684" class="LineNr">12684 </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="L12685" class="LineNr">12685 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12686" class="LineNr">12686 </span> 55/push-ebp <span id="L12687" class="LineNr">12687 </span> 89/<- %ebp 4/r32/esp <span id="L12688" class="LineNr">12688 </span> <span class="subxS1Comment"># . save registers</span> <span id="L12689" class="LineNr">12689 </span> 51/push-ecx -<span id="L12690" class="LineNr">12690 </span> 52/push-edx -<span id="L12691" class="LineNr">12691 </span> 53/push-ebx -<span id="L12692" class="LineNr">12692 </span> 56/push-esi -<span id="L12693" class="LineNr">12693 </span> 57/push-edi -<span id="L12694" class="LineNr">12694 </span> <span class="subxComment"># esi = table</span> -<span id="L12695" class="LineNr">12695 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L12696" class="LineNr">12696 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> -<span id="L12697" class="LineNr">12697 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx -<span id="L12698" class="LineNr">12698 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L12699" class="LineNr">12699 </span> 8b/-> *esi 2/r32/edx -<span id="L12700" class="LineNr">12700 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L12690" class="LineNr">12690 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L12691" class="LineNr">12691 </span> 68/push 0/imm32 +<span id="L12692" class="LineNr">12692 </span> 68/push 0/imm32 +<span id="L12693" class="LineNr">12693 </span> 89/<- %ecx 4/r32/esp +<span id="L12694" class="LineNr">12694 </span> <span class="subxComment"># eax = t</span> +<span id="L12695" class="LineNr">12695 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L12696" class="LineNr">12696 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L12697" class="LineNr">12697 </span> 3d/compare-eax-and 0/imm32/literal +<span id="L12698" class="LineNr">12698 </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="L12699" class="LineNr">12699 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L12700" class="LineNr">12700 </span> 3d/compare-eax-and 8/imm32/byte <span id="L12701" class="LineNr">12701 </span> { -<span id="L12702" class="LineNr">12702 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: -<span id="L12703" class="LineNr">12703 </span> 39/compare %ecx 2/r32/edx -<span id="L12704" class="LineNr">12704 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L12705" class="LineNr">12705 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> -<span id="L12706" class="LineNr">12706 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L12707" class="LineNr">12707 </span> <span class="subxComment"># if (v->index == idx) return v</span> -<span id="L12708" class="LineNr">12708 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L12709" class="LineNr">12709 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> -<span id="L12710" class="LineNr">12710 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L12711" class="LineNr">12711 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> -<span id="L12712" class="LineNr">12712 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> -<span id="L12713" class="LineNr">12713 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12714" class="LineNr">12714 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12715" class="LineNr">12715 </span> 39/compare *(ebp+0xc) 3/r32/ebx -<span id="L12716" class="LineNr">12716 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 -<span id="L12717" class="LineNr">12717 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> -<span id="L12718" class="LineNr">12718 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> -<span id="L12719" class="LineNr">12719 </span> <span class="subxComment">#</span> -<span id="L12720" class="LineNr">12720 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12721" class="LineNr">12721 </span> } -<span id="L12722" class="LineNr">12722 </span> <span class="subxComment"># return 0</span> -<span id="L12723" class="LineNr">12723 </span> b8/copy-to-eax 0/imm32 -<span id="L12724" class="LineNr">12724 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: -<span id="L12725" class="LineNr">12725 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> -<span id="L12726" class="LineNr">12726 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L12727" class="LineNr">12727 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L12728" class="LineNr">12728 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L12729" class="LineNr">12729 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12730" class="LineNr">12730 </span> 5f/pop-to-edi -<span id="L12731" class="LineNr">12731 </span> 5e/pop-to-esi -<span id="L12732" class="LineNr">12732 </span> 5b/pop-to-ebx -<span id="L12733" class="LineNr">12733 </span> 5a/pop-to-edx -<span id="L12734" class="LineNr">12734 </span> 59/pop-to-ecx -<span id="L12735" class="LineNr">12735 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12736" class="LineNr">12736 </span> 89/<- %esp 5/r32/ebp -<span id="L12737" class="LineNr">12737 </span> 5d/pop-to-ebp -<span id="L12738" class="LineNr">12738 </span> c3/return -<span id="L12739" class="LineNr">12739 </span> -<span id="L12740" class="LineNr">12740 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> -<span id="L12741" class="LineNr">12741 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12742" class="LineNr">12742 </span> 55/push-ebp -<span id="L12743" class="LineNr">12743 </span> 89/<- %ebp 4/r32/esp -<span id="L12744" class="LineNr">12744 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12745" class="LineNr">12745 </span> 50/push-eax -<span id="L12746" class="LineNr">12746 </span> <span class="subxComment">#</span> -<span id="L12747" class="LineNr">12747 </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="L12748" class="LineNr">12748 </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="L12749" class="LineNr">12749 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L12750" class="LineNr">12750 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L12751" class="LineNr">12751 </span> { -<span id="L12752" class="LineNr">12752 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L12753" class="LineNr">12753 </span> 3d/compare-eax-and 0/imm32 -<span id="L12754" class="LineNr">12754 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12755" class="LineNr">12755 </span> (<a href='../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="L12756" class="LineNr">12756 </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="L12757" class="LineNr">12757 </span> (<a href='mu.subx.html#L12770'>dump-typeinfo</a> %eax) -<span id="L12758" class="LineNr">12758 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L12759" class="LineNr">12759 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L12760" class="LineNr">12760 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L12761" class="LineNr">12761 </span> } -<span id="L12762" class="LineNr">12762 </span><span class="Constant">$dump-typeinfos:end</span>: -<span id="L12763" class="LineNr">12763 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12764" class="LineNr">12764 </span> 58/pop-to-eax -<span id="L12765" class="LineNr">12765 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12766" class="LineNr">12766 </span> 89/<- %esp 5/r32/ebp -<span id="L12767" class="LineNr">12767 </span> 5d/pop-to-ebp -<span id="L12768" class="LineNr">12768 </span> c3/return -<span id="L12769" class="LineNr">12769 </span> -<span id="L12770" class="LineNr">12770 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> -<span id="L12771" class="LineNr">12771 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12772" class="LineNr">12772 </span> 55/push-ebp -<span id="L12773" class="LineNr">12773 </span> 89/<- %ebp 4/r32/esp -<span id="L12774" class="LineNr">12774 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12775" class="LineNr">12775 </span> 50/push-eax -<span id="L12776" class="LineNr">12776 </span> 51/push-ecx -<span id="L12777" class="LineNr">12777 </span> 52/push-edx -<span id="L12778" class="LineNr">12778 </span> 53/push-ebx -<span id="L12779" class="LineNr">12779 </span> 56/push-esi -<span id="L12780" class="LineNr">12780 </span> 57/push-edi -<span id="L12781" class="LineNr">12781 </span> <span class="subxComment"># esi = in</span> -<span id="L12782" class="LineNr">12782 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L12783" class="LineNr">12783 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L12784" class="LineNr">12784 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L12785" class="LineNr">12785 </span> 89/<- %ecx 0/r32/eax -<span id="L12786" class="LineNr">12786 </span> (<a href='../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="L12787" class="LineNr">12787 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *esi) -<span id="L12788" class="LineNr">12788 </span> (<a href='../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="L12789" class="LineNr">12789 </span> (<a href='../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="L12790" class="LineNr">12790 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %ecx) -<span id="L12791" class="LineNr">12791 </span> (<a 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="L12792" class="LineNr">12792 </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="L12793" class="LineNr">12793 </span> (<a href='../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="L12794" class="LineNr">12794 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L12795" class="LineNr">12795 </span> (<a 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="L12796" class="LineNr">12796 </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="L12797" class="LineNr">12797 </span> (<a href='../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="L12798" class="LineNr">12798 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) -<span id="L12799" class="LineNr">12799 </span> (<a 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="L12800" class="LineNr">12800 </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="L12801" class="LineNr">12801 </span> (<a href='../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="L12802" class="LineNr">12802 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L12803" class="LineNr">12803 </span> (<a 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="L12804" class="LineNr">12804 </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="L12805" class="LineNr">12805 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L12806" class="LineNr">12806 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L12807" class="LineNr">12807 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L12808" class="LineNr">12808 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L12809" class="LineNr">12809 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L12810" class="LineNr">12810 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L12811" class="LineNr">12811 </span> { -<span id="L12812" class="LineNr">12812 </span><span class="Constant">$dump-typeinfo:loop</span>: -<span id="L12813" class="LineNr">12813 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L12814" class="LineNr">12814 </span> 39/compare %ecx 2/r32/edx -<span id="L12815" class="LineNr">12815 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 -<span id="L12816" class="LineNr">12816 </span> (<a href='../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="L12817" class="LineNr">12817 </span> (<a href='../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="L12818" class="LineNr">12818 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L12819" class="LineNr">12819 </span> (<a href='../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="L12820" class="LineNr">12820 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) -<span id="L12821" class="LineNr">12821 </span> (<a href='../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="L12822" class="LineNr">12822 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) -<span id="L12823" class="LineNr">12823 </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="L12824" class="LineNr">12824 </span> (<a href='../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="L12825" class="LineNr">12825 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L12826" class="LineNr">12826 </span> (<a 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="L12827" class="LineNr">12827 </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="L12828" class="LineNr">12828 </span> (<a href='../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="L12829" class="LineNr">12829 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L12830" class="LineNr">12830 </span> (<a href='../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="L12831" class="LineNr">12831 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+0xc)) -<span id="L12832" class="LineNr">12832 </span> (<a href='../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="L12833" class="LineNr">12833 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L12834" class="LineNr">12834 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L12835" class="LineNr">12835 </span> (<a 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="L12836" class="LineNr">12836 </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="L12837" class="LineNr">12837 </span> (<a href='../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="L12838" class="LineNr">12838 </span> (<a href='mu.subx.html#L12866'>dump-var</a> 5 %eax) -<span id="L12839" class="LineNr">12839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L12840" class="LineNr">12840 </span> (<a href='../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="L12841" class="LineNr">12841 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+8)) -<span id="L12842" class="LineNr">12842 </span> (<a 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="L12843" class="LineNr">12843 </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="L12844" class="LineNr">12844 </span> (<a href='../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="L12845" class="LineNr">12845 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L12846" class="LineNr">12846 </span> (<a href='mu.subx.html#L12866'>dump-var</a> 5 %eax) -<span id="L12847" class="LineNr">12847 </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="L12848" class="LineNr">12848 </span> <span class="subxComment"># curr += row-size</span> -<span id="L12849" class="LineNr">12849 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L12850" class="LineNr">12850 </span> <span class="subxComment">#</span> -<span id="L12851" class="LineNr">12851 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L12852" class="LineNr">12852 </span> } -<span id="L12853" class="LineNr">12853 </span><span class="Constant">$dump-typeinfo:end</span>: -<span id="L12854" class="LineNr">12854 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12855" class="LineNr">12855 </span> 5f/pop-to-edi -<span id="L12856" class="LineNr">12856 </span> 5e/pop-to-esi -<span id="L12857" class="LineNr">12857 </span> 5b/pop-to-ebx -<span id="L12858" class="LineNr">12858 </span> 5a/pop-to-edx -<span id="L12859" class="LineNr">12859 </span> 59/pop-to-ecx -<span id="L12860" class="LineNr">12860 </span> 58/pop-to-eax -<span id="L12861" class="LineNr">12861 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12862" class="LineNr">12862 </span> 89/<- %esp 5/r32/ebp -<span id="L12863" class="LineNr">12863 </span> 5d/pop-to-ebp -<span id="L12864" class="LineNr">12864 </span> c3/return -<span id="L12865" class="LineNr">12865 </span> -<span id="L12866" class="LineNr">12866 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> -<span id="L12867" class="LineNr">12867 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12868" class="LineNr">12868 </span> 55/push-ebp -<span id="L12869" class="LineNr">12869 </span> 89/<- %ebp 4/r32/esp -<span id="L12870" class="LineNr">12870 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12871" class="LineNr">12871 </span> 50/push-eax -<span id="L12872" class="LineNr">12872 </span> 53/push-ebx -<span id="L12873" class="LineNr">12873 </span> <span class="subxComment"># eax = v</span> -<span id="L12874" class="LineNr">12874 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L12875" class="LineNr">12875 </span> <span class="subxComment">#</span> -<span id="L12876" class="LineNr">12876 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *eax) -<span id="L12877" class="LineNr">12877 </span> (<a href='../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="L12878" class="LineNr">12878 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+4)) -<span id="L12879" class="LineNr">12879 </span> (<a href='../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="L12880" class="LineNr">12880 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) -<span id="L12881" class="LineNr">12881 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L12882" class="LineNr">12882 </span> (<a 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="L12883" class="LineNr">12883 </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="L12884" class="LineNr">12884 </span> { -<span id="L12885" class="LineNr">12885 </span> 3d/compare-eax-and 0/imm32 -<span id="L12886" class="LineNr">12886 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L12887" class="LineNr">12887 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L12888" class="LineNr">12888 </span> (<a href='../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="L12889" class="LineNr">12889 </span> 89/<- %ebx 0/r32/eax -<span id="L12890" class="LineNr">12890 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12891" class="LineNr">12891 </span> (<a href='../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="L12892" class="LineNr">12892 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12893" class="LineNr">12893 </span> (<a href='../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="L12894" class="LineNr">12894 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> -<span id="L12895" class="LineNr">12895 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L12896" class="LineNr">12896 </span> { -<span id="L12897" class="LineNr">12897 </span> 3d/compare-eax-and 0/imm32 -<span id="L12898" class="LineNr">12898 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12899" class="LineNr">12899 </span> (<a 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="L12900" class="LineNr">12900 </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="L12901" class="LineNr">12901 </span> } -<span id="L12902" class="LineNr">12902 </span> (<a 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="L12903" class="LineNr">12903 </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="L12904" class="LineNr">12904 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L12905" class="LineNr">12905 </span> (<a href='../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="L12906" class="LineNr">12906 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12907" class="LineNr">12907 </span> (<a 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="L12908" class="LineNr">12908 </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="L12909" class="LineNr">12909 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L12910" class="LineNr">12910 </span> (<a href='../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="L12911" class="LineNr">12911 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12912" class="LineNr">12912 </span> (<a 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="L12913" class="LineNr">12913 </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="L12914" class="LineNr">12914 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L12915" class="LineNr">12915 </span> (<a href='../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="L12916" class="LineNr">12916 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12917" class="LineNr">12917 </span> (<a href='../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="L12918" class="LineNr">12918 </span> (<a href='../117write-int-hex.subx.html#L266'>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="L12919" class="LineNr">12919 </span> (<a href='../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="L12920" class="LineNr">12920 </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="L12921" class="LineNr">12921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L12922" class="LineNr">12922 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L12923" class="LineNr">12923 </span> { -<span id="L12924" class="LineNr">12924 </span> 3d/compare-eax-and 0/imm32 -<span id="L12925" class="LineNr">12925 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L12926" class="LineNr">12926 </span> (<a 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="L12927" class="LineNr">12927 </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="L12928" class="LineNr">12928 </span> } -<span id="L12929" class="LineNr">12929 </span> (<a 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="L12930" class="LineNr">12930 </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="L12931" class="LineNr">12931 </span> } -<span id="L12932" class="LineNr">12932 </span><span class="Constant">$dump-var:end</span>: -<span id="L12933" class="LineNr">12933 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12934" class="LineNr">12934 </span> 5b/pop-to-ebx -<span id="L12935" class="LineNr">12935 </span> 58/pop-to-eax -<span id="L12936" class="LineNr">12936 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12937" class="LineNr">12937 </span> 89/<- %esp 5/r32/ebp -<span id="L12938" class="LineNr">12938 </span> 5d/pop-to-ebp -<span id="L12939" class="LineNr">12939 </span> c3/return -<span id="L12940" class="LineNr">12940 </span> -<span id="L12941" class="LineNr">12941 </span><span class="subxComment">#######################################################</span> -<span id="L12942" class="LineNr">12942 </span><span class="subxComment"># Type-checking</span> -<span id="L12943" class="LineNr">12943 </span><span class="subxComment">#######################################################</span> -<span id="L12944" class="LineNr">12944 </span> -<span id="L12945" class="LineNr">12945 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L12946" class="LineNr">12946 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12947" class="LineNr">12947 </span> 55/push-ebp -<span id="L12948" class="LineNr">12948 </span> 89/<- %ebp 4/r32/esp -<span id="L12949" class="LineNr">12949 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12950" class="LineNr">12950 </span> 50/push-eax -<span id="L12951" class="LineNr">12951 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> -<span id="L12952" class="LineNr">12952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L12953" class="LineNr">12953 </span> { -<span id="L12954" class="LineNr">12954 </span><span class="Constant">$check-mu-types:loop</span>: -<span id="L12955" class="LineNr">12955 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L12956" class="LineNr">12956 </span> 3d/compare-eax-and 0/imm32 -<span id="L12957" class="LineNr">12957 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L12958" class="Folded">12958 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12966" class="LineNr">12966 </span> (<a href='mu.subx.html#L12979'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L12967" class="LineNr">12967 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L12968" class="LineNr">12968 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L12969" class="LineNr">12969 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L12970" class="LineNr">12970 </span> } -<span id="L12971" class="LineNr">12971 </span><span class="Constant">$check-mu-types:end</span>: -<span id="L12972" class="LineNr">12972 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12973" class="LineNr">12973 </span> 58/pop-to-eax -<span id="L12974" class="LineNr">12974 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12975" class="LineNr">12975 </span> 89/<- %esp 5/r32/ebp -<span id="L12976" class="LineNr">12976 </span> 5d/pop-to-ebp -<span id="L12977" class="LineNr">12977 </span> c3/return -<span id="L12978" class="LineNr">12978 </span> -<span id="L12979" class="LineNr">12979 </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="L12980" class="LineNr">12980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12981" class="LineNr">12981 </span> 55/push-ebp -<span id="L12982" class="LineNr">12982 </span> 89/<- %ebp 4/r32/esp -<span id="L12983" class="LineNr">12983 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L12984" class="LineNr">12984 </span> 50/push-eax -<span id="L12985" class="LineNr">12985 </span> <span class="subxComment"># eax = f</span> -<span id="L12986" class="LineNr">12986 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L12987" class="LineNr">12987 </span> <span class="subxComment"># TODO: anything to check in header?</span> -<span id="L12988" class="LineNr">12988 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L12989" class="LineNr">12989 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L12990" class="LineNr">12990 </span> (<a href='mu.subx.html#L12999'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L12991" class="LineNr">12991 </span><span class="Constant">$check-mu-function:end</span>: -<span id="L12992" class="LineNr">12992 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L12993" class="LineNr">12993 </span> 58/pop-to-eax -<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="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="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="subxS1Comment"># . save registers</span> -<span id="L13004" class="LineNr">13004 </span> 50/push-eax -<span id="L13005" class="LineNr">13005 </span> <span class="subxComment"># eax = block</span> -<span id="L13006" class="LineNr">13006 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13007" class="LineNr">13007 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L13008" class="LineNr">13008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L13009" class="LineNr">13009 </span> <span class="subxComment">#</span> -<span id="L13010" class="LineNr">13010 </span> { -<span id="L13011" class="LineNr">13011 </span><span class="Constant">$check-mu-block:check-empty</span>: -<span id="L13012" class="LineNr">13012 </span> 3d/compare-eax-and 0/imm32 -<span id="L13013" class="LineNr">13013 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L13014" class="LineNr">13014 </span> <span class="subxComment"># emit block->statements</span> -<span id="L13015" class="LineNr">13015 </span> (<a href='mu.subx.html#L13025'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13016" class="LineNr">13016 </span> } -<span id="L13017" class="LineNr">13017 </span><span class="Constant">$check-mu-block:end</span>: -<span id="L13018" class="LineNr">13018 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13019" class="LineNr">13019 </span> 58/pop-to-eax -<span id="L13020" class="LineNr">13020 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13021" class="LineNr">13021 </span> 89/<- %esp 5/r32/ebp -<span id="L13022" class="LineNr">13022 </span> 5d/pop-to-ebp -<span id="L13023" class="LineNr">13023 </span> c3/return -<span id="L13024" class="LineNr">13024 </span> -<span id="L13025" class="LineNr">13025 </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="L13026" class="LineNr">13026 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13027" class="LineNr">13027 </span> 55/push-ebp -<span id="L13028" class="LineNr">13028 </span> 89/<- %ebp 4/r32/esp -<span id="L13029" class="LineNr">13029 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13030" class="LineNr">13030 </span> 50/push-eax -<span id="L13031" class="LineNr">13031 </span> 56/push-esi -<span id="L13032" class="LineNr">13032 </span> <span class="subxComment"># esi = stmts</span> -<span id="L13033" class="LineNr">13033 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L13034" class="LineNr">13034 </span> { -<span id="L13035" class="LineNr">13035 </span><span class="Constant">$check-mu-stmt-list:loop</span>: -<span id="L13036" class="LineNr">13036 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L13037" class="LineNr">13037 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L13038" class="LineNr">13038 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> -<span id="L13039" class="LineNr">13039 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L13040" class="LineNr">13040 </span> { -<span id="L13041" class="LineNr">13041 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: -<span id="L13042" class="LineNr">13042 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L13043" class="LineNr">13043 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13044" class="LineNr">13044 </span><span class="Constant">$check-mu-stmt-list:block</span>: -<span id="L13045" class="LineNr">13045 </span> (<a href='mu.subx.html#L12999'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13046" class="LineNr">13046 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L13047" class="LineNr">13047 </span> } -<span id="L13048" class="LineNr">13048 </span> { -<span id="L13049" class="LineNr">13049 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: -<span id="L13050" class="LineNr">13050 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L13051" class="LineNr">13051 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L13052" class="LineNr">13052 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: -<span id="L13053" class="LineNr">13053 </span> (<a href='mu.subx.html#L13079'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13054" class="LineNr">13054 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L13055" class="LineNr">13055 </span> } -<span id="L13056" class="LineNr">13056 </span> { -<span id="L13057" class="LineNr">13057 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: -<span id="L13058" class="LineNr">13058 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L13059" class="LineNr">13059 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L13060" class="LineNr">13060 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: -<span id="L13061" class="LineNr">13061 </span> (<a href='mu.subx.html#L13079'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13062" class="LineNr">13062 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L13063" class="LineNr">13063 </span> } -<span id="L13064" class="LineNr">13064 </span><span class="Constant">$check-mu-stmt-list:continue</span>: -<span id="L13065" class="LineNr">13065 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L13066" class="LineNr">13066 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L13067" class="LineNr">13067 </span> 89/<- %esi 0/r32/eax -<span id="L13068" class="LineNr">13068 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L13069" class="LineNr">13069 </span> } -<span id="L13070" class="LineNr">13070 </span><span class="Constant">$check-mu-stmt-list:end</span>: -<span id="L13071" class="LineNr">13071 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13072" class="LineNr">13072 </span> 5e/pop-to-esi -<span id="L13073" class="LineNr">13073 </span> 58/pop-to-eax -<span id="L13074" class="LineNr">13074 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13075" class="LineNr">13075 </span> 89/<- %esp 5/r32/ebp -<span id="L13076" class="LineNr">13076 </span> 5d/pop-to-ebp -<span id="L13077" class="LineNr">13077 </span> c3/return -<span id="L13078" class="LineNr">13078 </span> -<span id="L13079" class="LineNr">13079 </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="L13080" class="LineNr">13080 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13081" class="LineNr">13081 </span> 55/push-ebp -<span id="L13082" class="LineNr">13082 </span> 89/<- %ebp 4/r32/esp -<span id="L13083" class="LineNr">13083 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13084" class="LineNr">13084 </span> 50/push-eax -<span id="L13085" class="LineNr">13085 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> -<span id="L13086" class="LineNr">13086 </span> (<a href='mu.subx.html#L13132'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L13087" class="LineNr">13087 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13088" class="LineNr">13088 </span> { -<span id="L13089" class="LineNr">13089 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13090" class="LineNr">13090 </span> (<a href='mu.subx.html#L13216'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13091" class="LineNr">13091 </span> e9/jump $check-mu-stmt:end/disp32 -<span id="L13092" class="LineNr">13092 </span> } -<span id="L13093" class="LineNr">13093 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> -<span id="L13094" class="LineNr">13094 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> -<span id="L13095" class="LineNr">13095 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L13096" class="LineNr">13096 </span> (<a href='mu.subx.html#L23393'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L13097" class="LineNr">13097 </span> 3d/compare-eax-and 0/imm32 -<span id="L13098" class="LineNr">13098 </span> { -<span id="L13099" class="LineNr">13099 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13100" class="LineNr">13100 </span> (<a href='mu.subx.html#L14362'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13101" class="LineNr">13101 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L13102" class="LineNr">13102 </span> } -<span id="L13103" class="LineNr">13103 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> -<span id="L13104" class="LineNr">13104 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L13105" class="LineNr">13105 </span> (<a href='mu.subx.html#L23393'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L13106" class="LineNr">13106 </span> 3d/compare-eax-and 0/imm32 -<span id="L13107" class="LineNr">13107 </span> { -<span id="L13108" class="LineNr">13108 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13109" class="LineNr">13109 </span> (<a href='mu.subx.html#L14362'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13110" class="LineNr">13110 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L13111" class="LineNr">13111 </span> } -<span id="L13112" class="LineNr">13112 </span> <span class="subxH1Comment"># - otherwise abort</span> -<span id="L13113" class="LineNr">13113 </span> e9/jump $check-mu-stmt:unknown-call/disp32 -<span id="L13114" class="LineNr">13114 </span><span class="Constant">$check-mu-stmt:end</span>: -<span id="L13115" class="LineNr">13115 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13116" class="LineNr">13116 </span> 58/pop-to-eax -<span id="L13117" class="LineNr">13117 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13118" class="LineNr">13118 </span> 89/<- %esp 5/r32/ebp -<span id="L13119" class="LineNr">13119 </span> 5d/pop-to-ebp -<span id="L13120" class="LineNr">13120 </span> c3/return -<span id="L13121" class="LineNr">13121 </span> -<span id="L13122" class="LineNr">13122 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: -<span id="L13123" class="LineNr">13123 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) -<span id="L13124" class="LineNr">13124 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13125" class="LineNr">13125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13126" class="LineNr">13126 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13127" class="LineNr">13127 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L13128" class="LineNr">13128 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13129" class="LineNr">13129 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13130" class="LineNr">13130 </span> <span class="subxComment"># never gets here</span> -<span id="L13131" class="LineNr">13131 </span> -<span id="L13132" class="LineNr">13132 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L13133" class="LineNr">13133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13134" class="LineNr">13134 </span> 55/push-ebp -<span id="L13135" class="LineNr">13135 </span> 89/<- %ebp 4/r32/esp -<span id="L13136" class="LineNr">13136 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13137" class="LineNr">13137 </span> 51/push-ecx -<span id="L13138" class="LineNr">13138 </span> 56/push-esi -<span id="L13139" class="LineNr">13139 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L13140" class="LineNr">13140 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L13141" class="LineNr">13141 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13142" class="LineNr">13142 </span> 89/<- %esi 0/r32/eax -<span id="L13143" class="LineNr">13143 </span> <span class="subxComment"># if (name == "get") return true</span> -<span id="L13144" class="LineNr">13144 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L13145" class="LineNr">13145 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13146" class="LineNr">13146 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13147" class="LineNr">13147 </span> <span class="subxComment"># if (name == "index") return true</span> -<span id="L13148" class="LineNr">13148 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L13149" class="LineNr">13149 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13150" class="LineNr">13150 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13151" class="LineNr">13151 </span> <span class="subxComment"># if (name == "length") return true</span> -<span id="L13152" class="LineNr">13152 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L13153" class="LineNr">13153 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13154" class="LineNr">13154 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13155" class="LineNr">13155 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> -<span id="L13156" class="LineNr">13156 </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="L13157" class="LineNr">13157 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13158" class="LineNr">13158 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13159" class="LineNr">13159 </span> <span class="subxComment"># if (name == "copy-object") return true</span> -<span id="L13160" class="LineNr">13160 </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="L13161" class="LineNr">13161 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13162" class="LineNr">13162 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13163" class="LineNr">13163 </span> <span class="subxComment"># if (name == "allocate") return true</span> -<span id="L13164" class="LineNr">13164 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L13165" class="LineNr">13165 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13166" class="LineNr">13166 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13167" class="LineNr">13167 </span> <span class="subxComment"># if (name == "populate") return true</span> -<span id="L13168" class="LineNr">13168 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L13169" class="LineNr">13169 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13170" class="LineNr">13170 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13171" class="LineNr">13171 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> -<span id="L13172" class="LineNr">13172 </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="L13173" class="LineNr">13173 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13174" class="LineNr">13174 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13175" class="LineNr">13175 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> -<span id="L13176" class="LineNr">13176 </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="L13177" class="LineNr">13177 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13178" class="LineNr">13178 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13179" class="LineNr">13179 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> -<span id="L13180" class="LineNr">13180 </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="L13181" class="LineNr">13181 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13182" class="LineNr">13182 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L13183" class="LineNr">13183 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> -<span id="L13184" class="LineNr">13184 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span>/imm32 -<span id="L13185" class="LineNr">13185 </span> { -<span id="L13186" class="LineNr">13186 </span><span class="Constant">$has-primitive-name?:loop</span>: -<span id="L13187" class="LineNr">13187 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L13188" class="LineNr">13188 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L13189" class="LineNr">13189 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13190" class="LineNr">13190 </span> <span class="subxComment"># if (primitive->name == name) return true</span> -<span id="L13191" class="LineNr">13191 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L13192" class="LineNr">13192 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L13193" class="LineNr">13193 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L13194" class="LineNr">13194 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L13195" class="LineNr">13195 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L13196" class="LineNr">13196 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13197" class="LineNr">13197 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 -<span id="L13198" class="LineNr">13198 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: -<span id="L13199" class="LineNr">13199 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L13200" class="LineNr">13200 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L13201" class="LineNr">13201 </span> 89/<- %ecx 0/r32/eax -<span id="L13202" class="LineNr">13202 </span> <span class="subxComment">#</span> -<span id="L13203" class="LineNr">13203 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L13204" class="LineNr">13204 </span> } -<span id="L13205" class="LineNr">13205 </span> <span class="subxComment"># return null</span> -<span id="L13206" class="LineNr">13206 </span> b8/copy-to-eax 0/imm32 -<span id="L13207" class="LineNr">13207 </span><span class="Constant">$has-primitive-name?:end</span>: -<span id="L13208" class="LineNr">13208 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13209" class="LineNr">13209 </span> 5e/pop-to-esi -<span id="L13210" class="LineNr">13210 </span> 59/pop-to-ecx -<span id="L13211" class="LineNr">13211 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13212" class="LineNr">13212 </span> 89/<- %esp 5/r32/ebp -<span id="L13213" class="LineNr">13213 </span> 5d/pop-to-ebp -<span id="L13214" class="LineNr">13214 </span> c3/return -<span id="L13215" class="LineNr">13215 </span> -<span id="L13216" class="LineNr">13216 </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="L13217" class="LineNr">13217 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13218" class="LineNr">13218 </span> 55/push-ebp -<span id="L13219" class="LineNr">13219 </span> 89/<- %ebp 4/r32/esp -<span id="L13220" class="LineNr">13220 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13221" class="LineNr">13221 </span> 50/push-eax -<span id="L13222" class="LineNr">13222 </span> 51/push-ecx -<span id="L13223" class="LineNr">13223 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L13224" class="LineNr">13224 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13225" class="LineNr">13225 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13226" class="LineNr">13226 </span> 89/<- %ecx 0/r32/eax -<span id="L13227" class="LineNr">13227 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L12702" class="LineNr">12702 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12703" class="LineNr">12703 </span> b8/copy-to-eax 4/imm32 +<span id="L12704" class="LineNr">12704 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L12705" class="LineNr">12705 </span> } +<span id="L12706" class="LineNr">12706 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L12707" class="LineNr">12707 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L12708" class="LineNr">12708 </span> { +<span id="L12709" class="LineNr">12709 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12710" class="LineNr">12710 </span> b8/copy-to-eax 8/imm32 +<span id="L12711" class="LineNr">12711 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L12712" class="LineNr">12712 </span> } +<span id="L12713" class="LineNr">12713 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L12714" class="LineNr">12714 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L12715" class="LineNr">12715 </span> { +<span id="L12716" class="LineNr">12716 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L12717" class="LineNr">12717 </span> b8/copy-to-eax 8/imm32 +<span id="L12718" class="LineNr">12718 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L12719" class="LineNr">12719 </span> } +<span id="L12720" class="LineNr">12720 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> +<span id="L12721" class="LineNr">12721 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L12722" class="LineNr">12722 </span> (<a href='mu.subx.html#L12110'>find-typeinfo</a> %eax %ecx) +<span id="L12723" class="LineNr">12723 </span> { +<span id="L12724" class="LineNr">12724 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L12725" class="LineNr">12725 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12726" class="LineNr">12726 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: +<span id="L12727" class="LineNr">12727 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L12728" class="LineNr">12728 </span> (<a href='mu.subx.html#L12583'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L12729" class="LineNr">12729 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L12730" class="LineNr">12730 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L12731" class="LineNr">12731 </span> } +<span id="L12732" class="LineNr">12732 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L12733" class="LineNr">12733 </span> b8/copy-to-eax 4/imm32 +<span id="L12734" class="LineNr">12734 </span><span class="Constant">$compute-size-of-type-id:end</span>: +<span id="L12735" class="LineNr">12735 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L12736" class="LineNr">12736 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12737" class="LineNr">12737 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12738" class="LineNr">12738 </span> 59/pop-to-ecx +<span id="L12739" class="LineNr">12739 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12740" class="LineNr">12740 </span> 89/<- %esp 5/r32/ebp +<span id="L12741" class="LineNr">12741 </span> 5d/pop-to-ebp +<span id="L12742" class="LineNr">12742 </span> c3/return +<span id="L12743" class="LineNr">12743 </span> +<span id="L12744" class="LineNr">12744 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> +<span id="L12745" class="LineNr">12745 </span><span class="subxComment"># compute offsets for each element</span> +<span id="L12746" class="LineNr">12746 </span><span class="subxComment"># complication: fields may be out of order</span> +<span id="L12747" class="LineNr">12747 </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="L12748" class="LineNr">12748 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12749" class="LineNr">12749 </span> 55/push-ebp +<span id="L12750" class="LineNr">12750 </span> 89/<- %ebp 4/r32/esp +<span id="L12751" class="LineNr">12751 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12752" class="LineNr">12752 </span> 50/push-eax +<span id="L12753" class="LineNr">12753 </span> 51/push-ecx +<span id="L12754" class="LineNr">12754 </span> 52/push-edx +<span id="L12755" class="LineNr">12755 </span> 53/push-ebx +<span id="L12756" class="LineNr">12756 </span> 56/push-esi +<span id="L12757" class="LineNr">12757 </span> 57/push-edi +<span id="L12758" class="LineNr">12758 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> +<span id="L12759" class="LineNr">12759 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> +<span id="L12760" class="LineNr">12760 </span> bf/copy-to-edi 0/imm32 +<span id="L12761" class="LineNr">12761 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> +<span id="L12762" class="LineNr">12762 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L12763" class="LineNr">12763 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L12764" class="LineNr">12764 </span> 89/<- %ecx 0/r32/eax +<span id="L12765" class="LineNr">12765 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> +<span id="L12766" class="LineNr">12766 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L12767" class="LineNr">12767 </span> c1 5/subop/shift-right-logical %edx 4/imm8 +<span id="L12768" class="LineNr">12768 </span> <span class="subxComment"># var i/ebx: int = 0</span> +<span id="L12769" class="LineNr">12769 </span> bb/copy-to-ebx 0/imm32 +<span id="L12770" class="LineNr">12770 </span> { +<span id="L12771" class="LineNr">12771 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: +<span id="L12772" class="LineNr">12772 </span> 39/compare %ebx 2/r32/edx +<span id="L12773" class="LineNr">12773 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 +<span id="L12774" class="LineNr">12774 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> +<span id="L12775" class="LineNr">12775 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L12776" class="LineNr">12776 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> +<span id="L12777" class="LineNr">12777 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L12778" class="LineNr">12778 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12779" class="LineNr">12779 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12780" class="LineNr">12780 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> +<span id="L12781" class="LineNr">12781 </span> (<a href='mu.subx.html#L12814'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L12782" class="LineNr">12782 </span> 89/<- %esi 0/r32/eax +<span id="L12783" class="LineNr">12783 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> +<span id="L12784" class="LineNr">12784 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L12785" class="LineNr">12785 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L12786" class="LineNr">12786 </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="L12787" class="LineNr">12787 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L12788" class="LineNr">12788 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L12789" class="LineNr">12789 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> +<span id="L12790" class="LineNr">12790 </span> <span class="subxS1Comment"># . eax: (addr var)</span> +<span id="L12791" class="LineNr">12791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> +<span id="L12792" class="LineNr">12792 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> +<span id="L12793" class="LineNr">12793 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> +<span id="L12794" class="LineNr">12794 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L12795" class="LineNr">12795 </span> (<a href='mu.subx.html#L14934'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L12796" class="LineNr">12796 </span> 01/add-to %edi 0/r32/eax +<span id="L12797" class="LineNr">12797 </span> <span class="subxComment"># ++i</span> +<span id="L12798" class="LineNr">12798 </span> 43/increment-ebx +<span id="L12799" class="LineNr">12799 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L12800" class="LineNr">12800 </span> } +<span id="L12801" class="LineNr">12801 </span><span class="Constant">$populate-mu-type-offsets:end</span>: +<span id="L12802" class="LineNr">12802 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12803" class="LineNr">12803 </span> 5f/pop-to-edi +<span id="L12804" class="LineNr">12804 </span> 5e/pop-to-esi +<span id="L12805" class="LineNr">12805 </span> 5b/pop-to-ebx +<span id="L12806" class="LineNr">12806 </span> 5a/pop-to-edx +<span id="L12807" class="LineNr">12807 </span> 59/pop-to-ecx +<span id="L12808" class="LineNr">12808 </span> 58/pop-to-eax +<span id="L12809" class="LineNr">12809 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12810" class="LineNr">12810 </span> 89/<- %esp 5/r32/ebp +<span id="L12811" class="LineNr">12811 </span> 5d/pop-to-ebp +<span id="L12812" class="LineNr">12812 </span> c3/return +<span id="L12813" class="LineNr">12813 </span> +<span id="L12814" class="LineNr">12814 </span><span class="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="L12815" class="LineNr">12815 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12816" class="LineNr">12816 </span> 55/push-ebp +<span id="L12817" class="LineNr">12817 </span> 89/<- %ebp 4/r32/esp +<span id="L12818" class="LineNr">12818 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12819" class="LineNr">12819 </span> 51/push-ecx +<span id="L12820" class="LineNr">12820 </span> 52/push-edx +<span id="L12821" class="LineNr">12821 </span> 53/push-ebx +<span id="L12822" class="LineNr">12822 </span> 56/push-esi +<span id="L12823" class="LineNr">12823 </span> 57/push-edi +<span id="L12824" class="LineNr">12824 </span> <span class="subxComment"># esi = table</span> +<span id="L12825" class="LineNr">12825 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L12826" class="LineNr">12826 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> +<span id="L12827" class="LineNr">12827 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L12828" class="LineNr">12828 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L12829" class="LineNr">12829 </span> 8b/-> *esi 2/r32/edx +<span id="L12830" class="LineNr">12830 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L12831" class="LineNr">12831 </span> { +<span id="L12832" class="LineNr">12832 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: +<span id="L12833" class="LineNr">12833 </span> 39/compare %ecx 2/r32/edx +<span id="L12834" class="LineNr">12834 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L12835" class="LineNr">12835 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> +<span id="L12836" class="LineNr">12836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L12837" class="LineNr">12837 </span> <span class="subxComment"># if (v->index == idx) return v</span> +<span id="L12838" class="LineNr">12838 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L12839" class="LineNr">12839 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> +<span id="L12840" class="LineNr">12840 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L12841" class="LineNr">12841 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> +<span id="L12842" class="LineNr">12842 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> +<span id="L12843" class="LineNr">12843 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12844" class="LineNr">12844 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12845" class="LineNr">12845 </span> 39/compare *(ebp+0xc) 3/r32/ebx +<span id="L12846" class="LineNr">12846 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 +<span id="L12847" class="LineNr">12847 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> +<span id="L12848" class="LineNr">12848 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> +<span id="L12849" class="LineNr">12849 </span> <span class="subxComment">#</span> +<span id="L12850" class="LineNr">12850 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12851" class="LineNr">12851 </span> } +<span id="L12852" class="LineNr">12852 </span> <span class="subxComment"># return 0</span> +<span id="L12853" class="LineNr">12853 </span> b8/copy-to-eax 0/imm32 +<span id="L12854" class="LineNr">12854 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: +<span id="L12855" class="LineNr">12855 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> +<span id="L12856" class="LineNr">12856 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L12857" class="LineNr">12857 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L12858" class="LineNr">12858 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L12859" class="LineNr">12859 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12860" class="LineNr">12860 </span> 5f/pop-to-edi +<span id="L12861" class="LineNr">12861 </span> 5e/pop-to-esi +<span id="L12862" class="LineNr">12862 </span> 5b/pop-to-ebx +<span id="L12863" class="LineNr">12863 </span> 5a/pop-to-edx +<span id="L12864" class="LineNr">12864 </span> 59/pop-to-ecx +<span id="L12865" class="LineNr">12865 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12866" class="LineNr">12866 </span> 89/<- %esp 5/r32/ebp +<span id="L12867" class="LineNr">12867 </span> 5d/pop-to-ebp +<span id="L12868" class="LineNr">12868 </span> c3/return +<span id="L12869" class="LineNr">12869 </span> +<span id="L12870" class="LineNr">12870 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> +<span id="L12871" class="LineNr">12871 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12872" class="LineNr">12872 </span> 55/push-ebp +<span id="L12873" class="LineNr">12873 </span> 89/<- %ebp 4/r32/esp +<span id="L12874" class="LineNr">12874 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12875" class="LineNr">12875 </span> 50/push-eax +<span id="L12876" class="LineNr">12876 </span> <span class="subxComment">#</span> +<span id="L12877" class="LineNr">12877 </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="L12878" class="LineNr">12878 </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="L12879" class="LineNr">12879 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L12880" class="LineNr">12880 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L12881" class="LineNr">12881 </span> { +<span id="L12882" class="LineNr">12882 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L12883" class="LineNr">12883 </span> 3d/compare-eax-and 0/imm32 +<span id="L12884" class="LineNr">12884 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L12885" class="LineNr">12885 </span> (<a href='../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="L12886" class="LineNr">12886 </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="L12887" class="LineNr">12887 </span> (<a href='mu.subx.html#L12900'>dump-typeinfo</a> %eax) +<span id="L12888" class="LineNr">12888 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L12889" class="LineNr">12889 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L12890" class="LineNr">12890 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L12891" class="LineNr">12891 </span> } +<span id="L12892" class="LineNr">12892 </span><span class="Constant">$dump-typeinfos:end</span>: +<span id="L12893" class="LineNr">12893 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12894" class="LineNr">12894 </span> 58/pop-to-eax +<span id="L12895" class="LineNr">12895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12896" class="LineNr">12896 </span> 89/<- %esp 5/r32/ebp +<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="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</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 +<span id="L12904" class="LineNr">12904 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L12905" class="LineNr">12905 </span> 50/push-eax +<span id="L12906" class="LineNr">12906 </span> 51/push-ecx +<span id="L12907" class="LineNr">12907 </span> 52/push-edx +<span id="L12908" class="LineNr">12908 </span> 53/push-ebx +<span id="L12909" class="LineNr">12909 </span> 56/push-esi +<span id="L12910" class="LineNr">12910 </span> 57/push-edi +<span id="L12911" class="LineNr">12911 </span> <span class="subxComment"># esi = in</span> +<span id="L12912" class="LineNr">12912 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L12913" class="LineNr">12913 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L12914" class="LineNr">12914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L12915" class="LineNr">12915 </span> 89/<- %ecx 0/r32/eax +<span id="L12916" class="LineNr">12916 </span> (<a href='../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="L12917" class="LineNr">12917 </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="L12918" class="LineNr">12918 </span> (<a href='../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="L12919" class="LineNr">12919 </span> (<a href='../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="L12920" class="LineNr">12920 </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="L12921" class="LineNr">12921 </span> (<a 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="L12922" class="LineNr">12922 </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="L12923" class="LineNr">12923 </span> (<a href='../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="L12924" class="LineNr">12924 </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="L12925" class="LineNr">12925 </span> (<a 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="L12926" class="LineNr">12926 </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="L12927" class="LineNr">12927 </span> (<a href='../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="L12928" class="LineNr">12928 </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="L12929" class="LineNr">12929 </span> (<a 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="L12930" class="LineNr">12930 </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="L12931" class="LineNr">12931 </span> (<a href='../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="L12932" class="LineNr">12932 </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="L12933" class="LineNr">12933 </span> (<a 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="L12934" class="LineNr">12934 </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="L12935" class="LineNr">12935 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L12936" class="LineNr">12936 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L12937" class="LineNr">12937 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L12938" class="LineNr">12938 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L12939" class="LineNr">12939 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L12940" class="LineNr">12940 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L12941" class="LineNr">12941 </span> { +<span id="L12942" class="LineNr">12942 </span><span class="Constant">$dump-typeinfo:loop</span>: +<span id="L12943" class="LineNr">12943 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L12944" class="LineNr">12944 </span> 39/compare %ecx 2/r32/edx +<span id="L12945" class="LineNr">12945 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 +<span id="L12946" class="LineNr">12946 </span> (<a href='../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="L12947" class="LineNr">12947 </span> (<a href='../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="L12948" class="LineNr">12948 </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="L12949" class="LineNr">12949 </span> (<a href='../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="L12950" class="LineNr">12950 </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="L12951" class="LineNr">12951 </span> (<a href='../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="L12952" class="LineNr">12952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) +<span id="L12953" class="LineNr">12953 </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="L12954" class="LineNr">12954 </span> (<a href='../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="L12955" class="LineNr">12955 </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="L12956" class="LineNr">12956 </span> (<a 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="L12957" class="LineNr">12957 </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="L12958" class="LineNr">12958 </span> (<a href='../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="L12959" class="LineNr">12959 </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="L12960" class="LineNr">12960 </span> (<a href='../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="L12961" class="LineNr">12961 </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="L12962" class="LineNr">12962 </span> (<a href='../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="L12963" class="LineNr">12963 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L12964" class="LineNr">12964 </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="L12965" class="LineNr">12965 </span> (<a 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="L12966" class="LineNr">12966 </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="L12967" class="LineNr">12967 </span> (<a href='../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="L12968" class="LineNr">12968 </span> (<a href='mu.subx.html#L12996'>dump-var</a> 5 %eax) +<span id="L12969" class="LineNr">12969 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L12970" class="LineNr">12970 </span> (<a href='../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="L12971" class="LineNr">12971 </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="L12972" class="LineNr">12972 </span> (<a 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="L12973" class="LineNr">12973 </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="L12974" class="LineNr">12974 </span> (<a href='../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="L12975" class="LineNr">12975 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L12976" class="LineNr">12976 </span> (<a href='mu.subx.html#L12996'>dump-var</a> 5 %eax) +<span id="L12977" class="LineNr">12977 </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="L12978" class="LineNr">12978 </span> <span class="subxComment"># curr += row-size</span> +<span id="L12979" class="LineNr">12979 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L12980" class="LineNr">12980 </span> <span class="subxComment">#</span> +<span id="L12981" class="LineNr">12981 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L12982" class="LineNr">12982 </span> } +<span id="L12983" class="LineNr">12983 </span><span class="Constant">$dump-typeinfo:end</span>: +<span id="L12984" class="LineNr">12984 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L12985" class="LineNr">12985 </span> 5f/pop-to-edi +<span id="L12986" class="LineNr">12986 </span> 5e/pop-to-esi +<span id="L12987" class="LineNr">12987 </span> 5b/pop-to-ebx +<span id="L12988" class="LineNr">12988 </span> 5a/pop-to-edx +<span id="L12989" class="LineNr">12989 </span> 59/pop-to-ecx +<span id="L12990" class="LineNr">12990 </span> 58/pop-to-eax +<span id="L12991" class="LineNr">12991 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12992" class="LineNr">12992 </span> 89/<- %esp 5/r32/ebp +<span id="L12993" class="LineNr">12993 </span> 5d/pop-to-ebp +<span id="L12994" class="LineNr">12994 </span> c3/return +<span id="L12995" class="LineNr">12995 </span> +<span id="L12996" class="LineNr">12996 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> +<span id="L12997" class="LineNr">12997 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12998" class="LineNr">12998 </span> 55/push-ebp +<span id="L12999" class="LineNr">12999 </span> 89/<- %ebp 4/r32/esp +<span id="L13000" class="LineNr">13000 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13001" class="LineNr">13001 </span> 50/push-eax +<span id="L13002" class="LineNr">13002 </span> 53/push-ebx +<span id="L13003" class="LineNr">13003 </span> <span class="subxComment"># eax = v</span> +<span id="L13004" class="LineNr">13004 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13005" class="LineNr">13005 </span> <span class="subxComment">#</span> +<span id="L13006" class="LineNr">13006 </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="L13007" class="LineNr">13007 </span> (<a href='../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="L13008" class="LineNr">13008 </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="L13009" class="LineNr">13009 </span> (<a href='../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="L13010" class="LineNr">13010 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) +<span id="L13011" class="LineNr">13011 </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="L13012" class="LineNr">13012 </span> (<a 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="L13013" class="LineNr">13013 </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="L13014" class="LineNr">13014 </span> { +<span id="L13015" class="LineNr">13015 </span> 3d/compare-eax-and 0/imm32 +<span id="L13016" class="LineNr">13016 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L13017" class="LineNr">13017 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L13018" class="LineNr">13018 </span> (<a href='../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="L13019" class="LineNr">13019 </span> 89/<- %ebx 0/r32/eax +<span id="L13020" class="LineNr">13020 </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="L13021" class="LineNr">13021 </span> (<a href='../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="L13022" class="LineNr">13022 </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="L13023" class="LineNr">13023 </span> (<a href='../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="L13024" class="LineNr">13024 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L13025" class="LineNr">13025 </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="L13026" class="LineNr">13026 </span> { +<span id="L13027" class="LineNr">13027 </span> 3d/compare-eax-and 0/imm32 +<span id="L13028" class="LineNr">13028 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13029" class="LineNr">13029 </span> (<a 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="L13030" class="LineNr">13030 </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="L13031" class="LineNr">13031 </span> } +<span id="L13032" class="LineNr">13032 </span> (<a 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="L13033" class="LineNr">13033 </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="L13034" class="LineNr">13034 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L13035" class="LineNr">13035 </span> (<a href='../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="L13036" class="LineNr">13036 </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="L13037" class="LineNr">13037 </span> (<a 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="L13038" class="LineNr">13038 </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="L13039" class="LineNr">13039 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L13040" class="LineNr">13040 </span> (<a href='../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="L13041" class="LineNr">13041 </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="L13042" class="LineNr">13042 </span> (<a 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="L13043" class="LineNr">13043 </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="L13044" class="LineNr">13044 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L13045" class="LineNr">13045 </span> (<a href='../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="L13046" class="LineNr">13046 </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="L13047" class="LineNr">13047 </span> (<a href='../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="L13048" class="LineNr">13048 </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="L13049" class="LineNr">13049 </span> (<a href='../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="L13050" class="LineNr">13050 </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="L13051" class="LineNr">13051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L13052" class="LineNr">13052 </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="L13053" class="LineNr">13053 </span> { +<span id="L13054" class="LineNr">13054 </span> 3d/compare-eax-and 0/imm32 +<span id="L13055" class="LineNr">13055 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13056" class="LineNr">13056 </span> (<a 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="L13057" class="LineNr">13057 </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="L13058" class="LineNr">13058 </span> } +<span id="L13059" class="LineNr">13059 </span> (<a 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="L13060" class="LineNr">13060 </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="L13061" class="LineNr">13061 </span> } +<span id="L13062" class="LineNr">13062 </span><span class="Constant">$dump-var:end</span>: +<span id="L13063" class="LineNr">13063 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13064" class="LineNr">13064 </span> 5b/pop-to-ebx +<span id="L13065" class="LineNr">13065 </span> 58/pop-to-eax +<span id="L13066" class="LineNr">13066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13067" class="LineNr">13067 </span> 89/<- %esp 5/r32/ebp +<span id="L13068" class="LineNr">13068 </span> 5d/pop-to-ebp +<span id="L13069" class="LineNr">13069 </span> c3/return +<span id="L13070" class="LineNr">13070 </span> +<span id="L13071" class="LineNr">13071 </span><span class="subxComment">#######################################################</span> +<span id="L13072" class="LineNr">13072 </span><span class="subxComment"># Type-checking</span> +<span id="L13073" class="LineNr">13073 </span><span class="subxComment">#######################################################</span> +<span id="L13074" class="LineNr">13074 </span> +<span id="L13075" class="LineNr">13075 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L13076" class="LineNr">13076 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13077" class="LineNr">13077 </span> 55/push-ebp +<span id="L13078" class="LineNr">13078 </span> 89/<- %ebp 4/r32/esp +<span id="L13079" class="LineNr">13079 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13080" class="LineNr">13080 </span> 50/push-eax +<span id="L13081" class="LineNr">13081 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> +<span id="L13082" class="LineNr">13082 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L13083" class="LineNr">13083 </span> { +<span id="L13084" class="LineNr">13084 </span><span class="Constant">$check-mu-types:loop</span>: +<span id="L13085" class="LineNr">13085 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L13086" class="LineNr">13086 </span> 3d/compare-eax-and 0/imm32 +<span id="L13087" class="LineNr">13087 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L13088" class="Folded">13088 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13096" class="LineNr">13096 </span> (<a href='mu.subx.html#L13109'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L13097" class="LineNr">13097 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L13098" class="LineNr">13098 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L13099" class="LineNr">13099 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L13100" class="LineNr">13100 </span> } +<span id="L13101" class="LineNr">13101 </span><span class="Constant">$check-mu-types:end</span>: +<span id="L13102" class="LineNr">13102 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13103" class="LineNr">13103 </span> 58/pop-to-eax +<span id="L13104" class="LineNr">13104 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13105" class="LineNr">13105 </span> 89/<- %esp 5/r32/ebp +<span id="L13106" class="LineNr">13106 </span> 5d/pop-to-ebp +<span id="L13107" class="LineNr">13107 </span> c3/return +<span id="L13108" class="LineNr">13108 </span> +<span id="L13109" class="LineNr">13109 </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="L13110" class="LineNr">13110 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13111" class="LineNr">13111 </span> 55/push-ebp +<span id="L13112" class="LineNr">13112 </span> 89/<- %ebp 4/r32/esp +<span id="L13113" class="LineNr">13113 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13114" class="LineNr">13114 </span> 50/push-eax +<span id="L13115" class="LineNr">13115 </span> <span class="subxComment"># eax = f</span> +<span id="L13116" class="LineNr">13116 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13117" class="LineNr">13117 </span> <span class="subxComment"># TODO: anything to check in header?</span> +<span id="L13118" class="LineNr">13118 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L13119" class="LineNr">13119 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L13120" class="LineNr">13120 </span> (<a href='mu.subx.html#L13129'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L13121" class="LineNr">13121 </span><span class="Constant">$check-mu-function:end</span>: +<span id="L13122" class="LineNr">13122 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13123" class="LineNr">13123 </span> 58/pop-to-eax +<span id="L13124" class="LineNr">13124 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13125" class="LineNr">13125 </span> 89/<- %esp 5/r32/ebp +<span id="L13126" class="LineNr">13126 </span> 5d/pop-to-ebp +<span id="L13127" class="LineNr">13127 </span> c3/return +<span id="L13128" class="LineNr">13128 </span> +<span id="L13129" class="LineNr">13129 </span><span class="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="L13130" class="LineNr">13130 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13131" class="LineNr">13131 </span> 55/push-ebp +<span id="L13132" class="LineNr">13132 </span> 89/<- %ebp 4/r32/esp +<span id="L13133" class="LineNr">13133 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13134" class="LineNr">13134 </span> 50/push-eax +<span id="L13135" class="LineNr">13135 </span> <span class="subxComment"># eax = block</span> +<span id="L13136" class="LineNr">13136 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13137" class="LineNr">13137 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L13138" class="LineNr">13138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L13139" class="LineNr">13139 </span> <span class="subxComment">#</span> +<span id="L13140" class="LineNr">13140 </span> { +<span id="L13141" class="LineNr">13141 </span><span class="Constant">$check-mu-block:check-empty</span>: +<span id="L13142" class="LineNr">13142 </span> 3d/compare-eax-and 0/imm32 +<span id="L13143" class="LineNr">13143 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L13144" class="LineNr">13144 </span> <span class="subxComment"># emit block->statements</span> +<span id="L13145" class="LineNr">13145 </span> (<a href='mu.subx.html#L13155'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13146" class="LineNr">13146 </span> } +<span id="L13147" class="LineNr">13147 </span><span class="Constant">$check-mu-block:end</span>: +<span id="L13148" class="LineNr">13148 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13149" class="LineNr">13149 </span> 58/pop-to-eax +<span id="L13150" class="LineNr">13150 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13151" class="LineNr">13151 </span> 89/<- %esp 5/r32/ebp +<span id="L13152" class="LineNr">13152 </span> 5d/pop-to-ebp +<span id="L13153" class="LineNr">13153 </span> c3/return +<span id="L13154" class="LineNr">13154 </span> +<span id="L13155" class="LineNr">13155 </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="L13156" class="LineNr">13156 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13157" class="LineNr">13157 </span> 55/push-ebp +<span id="L13158" class="LineNr">13158 </span> 89/<- %ebp 4/r32/esp +<span id="L13159" class="LineNr">13159 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13160" class="LineNr">13160 </span> 50/push-eax +<span id="L13161" class="LineNr">13161 </span> 56/push-esi +<span id="L13162" class="LineNr">13162 </span> <span class="subxComment"># esi = stmts</span> +<span id="L13163" class="LineNr">13163 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L13164" class="LineNr">13164 </span> { +<span id="L13165" class="LineNr">13165 </span><span class="Constant">$check-mu-stmt-list:loop</span>: +<span id="L13166" class="LineNr">13166 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L13167" class="LineNr">13167 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L13168" class="LineNr">13168 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> +<span id="L13169" class="LineNr">13169 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L13170" class="LineNr">13170 </span> { +<span id="L13171" class="LineNr">13171 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: +<span id="L13172" class="LineNr">13172 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L13173" class="LineNr">13173 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L13174" class="LineNr">13174 </span><span class="Constant">$check-mu-stmt-list:block</span>: +<span id="L13175" class="LineNr">13175 </span> (<a href='mu.subx.html#L13129'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13176" class="LineNr">13176 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L13177" class="LineNr">13177 </span> } +<span id="L13178" class="LineNr">13178 </span> { +<span id="L13179" class="LineNr">13179 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: +<span id="L13180" class="LineNr">13180 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L13181" class="LineNr">13181 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L13182" class="LineNr">13182 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: +<span id="L13183" class="LineNr">13183 </span> (<a href='mu.subx.html#L13209'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13184" class="LineNr">13184 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L13185" class="LineNr">13185 </span> } +<span id="L13186" class="LineNr">13186 </span> { +<span id="L13187" class="LineNr">13187 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: +<span id="L13188" class="LineNr">13188 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L13189" class="LineNr">13189 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L13190" class="LineNr">13190 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: +<span id="L13191" class="LineNr">13191 </span> (<a href='mu.subx.html#L13209'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13192" class="LineNr">13192 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L13193" class="LineNr">13193 </span> } +<span id="L13194" class="LineNr">13194 </span><span class="Constant">$check-mu-stmt-list:continue</span>: +<span id="L13195" class="LineNr">13195 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L13196" class="LineNr">13196 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L13197" class="LineNr">13197 </span> 89/<- %esi 0/r32/eax +<span id="L13198" class="LineNr">13198 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L13199" class="LineNr">13199 </span> } +<span id="L13200" class="LineNr">13200 </span><span class="Constant">$check-mu-stmt-list:end</span>: +<span id="L13201" class="LineNr">13201 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13202" class="LineNr">13202 </span> 5e/pop-to-esi +<span id="L13203" class="LineNr">13203 </span> 58/pop-to-eax +<span id="L13204" class="LineNr">13204 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13205" class="LineNr">13205 </span> 89/<- %esp 5/r32/ebp +<span id="L13206" class="LineNr">13206 </span> 5d/pop-to-ebp +<span id="L13207" class="LineNr">13207 </span> c3/return +<span id="L13208" class="LineNr">13208 </span> +<span id="L13209" class="LineNr">13209 </span><span class="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="L13210" class="LineNr">13210 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13211" class="LineNr">13211 </span> 55/push-ebp +<span id="L13212" class="LineNr">13212 </span> 89/<- %ebp 4/r32/esp +<span id="L13213" class="LineNr">13213 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13214" class="LineNr">13214 </span> 50/push-eax +<span id="L13215" class="LineNr">13215 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> +<span id="L13216" class="LineNr">13216 </span> (<a href='mu.subx.html#L13262'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L13217" class="LineNr">13217 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13218" class="LineNr">13218 </span> { +<span id="L13219" class="LineNr">13219 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13220" class="LineNr">13220 </span> (<a href='mu.subx.html#L13346'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13221" class="LineNr">13221 </span> e9/jump $check-mu-stmt:end/disp32 +<span id="L13222" class="LineNr">13222 </span> } +<span id="L13223" class="LineNr">13223 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> +<span id="L13224" class="LineNr">13224 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> +<span id="L13225" class="LineNr">13225 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L13226" class="LineNr">13226 </span> (<a href='mu.subx.html#L23584'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L13227" class="LineNr">13227 </span> 3d/compare-eax-and 0/imm32 <span id="L13228" class="LineNr">13228 </span> { -<span id="L13229" class="LineNr">13229 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L13230" class="LineNr">13230 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13231" class="LineNr">13231 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13232" class="LineNr">13232 </span> (<a href='mu.subx.html#L13544'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13233" class="LineNr">13233 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13234" class="LineNr">13234 </span> } -<span id="L13235" class="LineNr">13235 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> -<span id="L13236" class="LineNr">13236 </span> { -<span id="L13237" class="LineNr">13237 </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="L13238" class="LineNr">13238 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13239" class="LineNr">13239 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13240" class="LineNr">13240 </span> (<a href='mu.subx.html#L13556'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13241" class="LineNr">13241 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13242" class="LineNr">13242 </span> } -<span id="L13243" class="LineNr">13243 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> -<span id="L13244" class="LineNr">13244 </span> { -<span id="L13245" class="LineNr">13245 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> -<span id="L13246" class="LineNr">13246 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13247" class="LineNr">13247 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13248" class="LineNr">13248 </span> (<a href='mu.subx.html#L13568'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13249" class="LineNr">13249 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13250" class="LineNr">13250 </span> } -<span id="L13251" class="LineNr">13251 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> -<span id="L13252" class="LineNr">13252 </span> { -<span id="L13253" class="LineNr">13253 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> -<span id="L13254" class="LineNr">13254 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13255" class="LineNr">13255 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13256" class="LineNr">13256 </span> (<a href='mu.subx.html#L13580'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13257" class="LineNr">13257 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13258" class="LineNr">13258 </span> } -<span id="L13259" class="LineNr">13259 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> -<span id="L13260" class="LineNr">13260 </span> { -<span id="L13261" class="LineNr">13261 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L13262" class="LineNr">13262 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13263" class="LineNr">13263 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13264" class="LineNr">13264 </span> (<a href='mu.subx.html#L13592'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13265" class="LineNr">13265 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13266" class="LineNr">13266 </span> } -<span id="L13267" class="LineNr">13267 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> -<span id="L13268" class="LineNr">13268 </span> { -<span id="L13269" class="LineNr">13269 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L13270" class="LineNr">13270 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13271" class="LineNr">13271 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13272" class="LineNr">13272 </span> (<a href='mu.subx.html#L13871'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13273" class="LineNr">13273 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13274" class="LineNr">13274 </span> } -<span id="L13275" class="LineNr">13275 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> -<span id="L13276" class="LineNr">13276 </span> { -<span id="L13277" class="LineNr">13277 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L13278" class="LineNr">13278 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13279" class="LineNr">13279 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13280" class="LineNr">13280 </span> (<a href='mu.subx.html#L14254'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13281" class="LineNr">13281 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13282" class="LineNr">13282 </span> } -<span id="L13283" class="LineNr">13283 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> -<span id="L13284" class="LineNr">13284 </span> { -<span id="L13285" class="LineNr">13285 </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="L13286" class="LineNr">13286 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13287" class="LineNr">13287 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13288" class="LineNr">13288 </span> (<a href='mu.subx.html#L14266'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13289" class="LineNr">13289 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13290" class="LineNr">13290 </span> } -<span id="L13291" class="LineNr">13291 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> -<span id="L13292" class="LineNr">13292 </span> { -<span id="L13293" class="LineNr">13293 </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="L13294" class="LineNr">13294 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13295" class="LineNr">13295 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13296" class="LineNr">13296 </span> (<a href='mu.subx.html#L14278'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13297" class="LineNr">13297 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13298" class="LineNr">13298 </span> } -<span id="L13299" class="LineNr">13299 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> -<span id="L13300" class="LineNr">13300 </span> { -<span id="L13301" class="LineNr">13301 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L13302" class="LineNr">13302 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13303" class="LineNr">13303 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13304" class="LineNr">13304 </span> (<a href='mu.subx.html#L14290'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13305" class="LineNr">13305 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13306" class="LineNr">13306 </span> } -<span id="L13307" class="LineNr">13307 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> -<span id="L13308" class="LineNr">13308 </span> { -<span id="L13309" class="LineNr">13309 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L13310" class="LineNr">13310 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13311" class="LineNr">13311 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13312" class="LineNr">13312 </span> (<a href='mu.subx.html#L14302'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13313" class="LineNr">13313 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13314" class="LineNr">13314 </span> } -<span id="L13315" class="LineNr">13315 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> -<span id="L13316" class="LineNr">13316 </span> { -<span id="L13317" class="LineNr">13317 </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="L13318" class="LineNr">13318 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13229" class="LineNr">13229 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13230" class="LineNr">13230 </span> (<a href='mu.subx.html#L14502'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13231" class="LineNr">13231 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L13232" class="LineNr">13232 </span> } +<span id="L13233" class="LineNr">13233 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> +<span id="L13234" class="LineNr">13234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L13235" class="LineNr">13235 </span> (<a href='mu.subx.html#L23584'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L13236" class="LineNr">13236 </span> 3d/compare-eax-and 0/imm32 +<span id="L13237" class="LineNr">13237 </span> { +<span id="L13238" class="LineNr">13238 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13239" class="LineNr">13239 </span> (<a href='mu.subx.html#L14502'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13240" class="LineNr">13240 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L13241" class="LineNr">13241 </span> } +<span id="L13242" class="LineNr">13242 </span> <span class="subxH1Comment"># - otherwise abort</span> +<span id="L13243" class="LineNr">13243 </span> e9/jump $check-mu-stmt:unknown-call/disp32 +<span id="L13244" class="LineNr">13244 </span><span class="Constant">$check-mu-stmt:end</span>: +<span id="L13245" class="LineNr">13245 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13246" class="LineNr">13246 </span> 58/pop-to-eax +<span id="L13247" class="LineNr">13247 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13248" class="LineNr">13248 </span> 89/<- %esp 5/r32/ebp +<span id="L13249" class="LineNr">13249 </span> 5d/pop-to-ebp +<span id="L13250" class="LineNr">13250 </span> c3/return +<span id="L13251" class="LineNr">13251 </span> +<span id="L13252" class="LineNr">13252 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: +<span id="L13253" class="LineNr">13253 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) +<span id="L13254" class="LineNr">13254 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13255" class="LineNr">13255 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13256" class="LineNr">13256 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13257" class="LineNr">13257 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L13258" class="LineNr">13258 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13259" class="LineNr">13259 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13260" class="LineNr">13260 </span> <span class="subxComment"># never gets here</span> +<span id="L13261" class="LineNr">13261 </span> +<span id="L13262" class="LineNr">13262 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L13263" class="LineNr">13263 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13264" class="LineNr">13264 </span> 55/push-ebp +<span id="L13265" class="LineNr">13265 </span> 89/<- %ebp 4/r32/esp +<span id="L13266" class="LineNr">13266 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13267" class="LineNr">13267 </span> 51/push-ecx +<span id="L13268" class="LineNr">13268 </span> 56/push-esi +<span id="L13269" class="LineNr">13269 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L13270" class="LineNr">13270 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L13271" class="LineNr">13271 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13272" class="LineNr">13272 </span> 89/<- %esi 0/r32/eax +<span id="L13273" class="LineNr">13273 </span> <span class="subxComment"># if (name == "get") return true</span> +<span id="L13274" class="LineNr">13274 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L13275" class="LineNr">13275 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13276" class="LineNr">13276 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13277" class="LineNr">13277 </span> <span class="subxComment"># if (name == "index") return true</span> +<span id="L13278" class="LineNr">13278 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L13279" class="LineNr">13279 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13280" class="LineNr">13280 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13281" class="LineNr">13281 </span> <span class="subxComment"># if (name == "length") return true</span> +<span id="L13282" class="LineNr">13282 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L13283" class="LineNr">13283 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13284" class="LineNr">13284 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13285" class="LineNr">13285 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> +<span id="L13286" class="LineNr">13286 </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="L13287" class="LineNr">13287 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13288" class="LineNr">13288 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13289" class="LineNr">13289 </span> <span class="subxComment"># if (name == "copy-object") return true</span> +<span id="L13290" class="LineNr">13290 </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="L13291" class="LineNr">13291 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13292" class="LineNr">13292 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13293" class="LineNr">13293 </span> <span class="subxComment"># if (name == "allocate") return true</span> +<span id="L13294" class="LineNr">13294 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L13295" class="LineNr">13295 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13296" class="LineNr">13296 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13297" class="LineNr">13297 </span> <span class="subxComment"># if (name == "populate") return true</span> +<span id="L13298" class="LineNr">13298 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L13299" class="LineNr">13299 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13300" class="LineNr">13300 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13301" class="LineNr">13301 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> +<span id="L13302" class="LineNr">13302 </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="L13303" class="LineNr">13303 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13304" class="LineNr">13304 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13305" class="LineNr">13305 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> +<span id="L13306" class="LineNr">13306 </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="L13307" class="LineNr">13307 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13308" class="LineNr">13308 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13309" class="LineNr">13309 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> +<span id="L13310" class="LineNr">13310 </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="L13311" class="LineNr">13311 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13312" class="LineNr">13312 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L13313" class="LineNr">13313 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> +<span id="L13314" class="LineNr">13314 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span>/imm32 +<span id="L13315" class="LineNr">13315 </span> { +<span id="L13316" class="LineNr">13316 </span><span class="Constant">$has-primitive-name?:loop</span>: +<span id="L13317" class="LineNr">13317 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L13318" class="LineNr">13318 </span> 81 7/subop/compare %ecx 0/imm32 <span id="L13319" class="LineNr">13319 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13320" class="LineNr">13320 </span> (<a href='mu.subx.html#L14314'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13321" class="LineNr">13321 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13322" class="LineNr">13322 </span> } -<span id="L13323" class="LineNr">13323 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> -<span id="L13324" class="LineNr">13324 </span> { -<span id="L13325" class="LineNr">13325 </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="L13320" class="LineNr">13320 </span> <span class="subxComment"># if (primitive->name == name) return true</span> +<span id="L13321" class="LineNr">13321 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L13322" class="LineNr">13322 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L13323" class="LineNr">13323 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L13324" class="LineNr">13324 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L13325" class="LineNr">13325 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> <span id="L13326" class="LineNr">13326 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13327" class="LineNr">13327 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13328" class="LineNr">13328 </span> (<a href='mu.subx.html#L14326'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13329" class="LineNr">13329 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13330" class="LineNr">13330 </span> } -<span id="L13331" class="LineNr">13331 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> -<span id="L13332" class="LineNr">13332 </span> { -<span id="L13333" class="LineNr">13333 </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="L13334" class="LineNr">13334 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13335" class="LineNr">13335 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13336" class="LineNr">13336 </span> (<a href='mu.subx.html#L14338'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13337" class="LineNr">13337 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13338" class="LineNr">13338 </span> } -<span id="L13339" class="LineNr">13339 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> -<span id="L13340" class="LineNr">13340 </span> { -<span id="L13341" class="LineNr">13341 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> -<span id="L13342" class="LineNr">13342 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13343" class="LineNr">13343 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13344" class="LineNr">13344 </span> (<a href='mu.subx.html#L14350'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13345" class="LineNr">13345 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L13346" class="LineNr">13346 </span> } -<span id="L13347" class="LineNr">13347 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> -<span id="L13348" class="LineNr">13348 </span> (<a href='mu.subx.html#L13359'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13349" class="LineNr">13349 </span><span class="Constant">$check-mu-primitive:end</span>: -<span id="L13350" class="LineNr">13350 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13351" class="LineNr">13351 </span> 59/pop-to-ecx -<span id="L13352" class="LineNr">13352 </span> 58/pop-to-eax -<span id="L13353" class="LineNr">13353 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13354" class="LineNr">13354 </span> 89/<- %esp 5/r32/ebp -<span id="L13355" class="LineNr">13355 </span> 5d/pop-to-ebp -<span id="L13356" class="LineNr">13356 </span> c3/return -<span id="L13357" class="LineNr">13357 </span> -<span id="L13358" class="LineNr">13358 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> -<span id="L13359" class="LineNr">13359 </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="L13360" class="LineNr">13360 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13361" class="LineNr">13361 </span> 55/push-ebp -<span id="L13362" class="LineNr">13362 </span> 89/<- %ebp 4/r32/esp -<span id="L13363" class="LineNr">13363 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13364" class="LineNr">13364 </span> 50/push-eax -<span id="L13365" class="LineNr">13365 </span> 51/push-ecx -<span id="L13366" class="LineNr">13366 </span> 56/push-esi -<span id="L13367" class="LineNr">13367 </span> <span class="subxComment"># esi = stmt</span> -<span id="L13368" class="LineNr">13368 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L13369" class="LineNr">13369 </span> <span class="subxComment"># var gas/ecx: int = 2</span> -<span id="L13370" class="LineNr">13370 </span> b9/copy-to-ecx 2/imm32 -<span id="L13371" class="LineNr">13371 </span> <span class="subxH1Comment"># - check at most 1 output</span> -<span id="L13372" class="LineNr">13372 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> -<span id="L13373" class="LineNr">13373 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L13327" class="LineNr">13327 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 +<span id="L13328" class="LineNr">13328 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: +<span id="L13329" class="LineNr">13329 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L13330" class="LineNr">13330 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L13331" class="LineNr">13331 </span> 89/<- %ecx 0/r32/eax +<span id="L13332" class="LineNr">13332 </span> <span class="subxComment">#</span> +<span id="L13333" class="LineNr">13333 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L13334" class="LineNr">13334 </span> } +<span id="L13335" class="LineNr">13335 </span> <span class="subxComment"># return null</span> +<span id="L13336" class="LineNr">13336 </span> b8/copy-to-eax 0/imm32 +<span id="L13337" class="LineNr">13337 </span><span class="Constant">$has-primitive-name?:end</span>: +<span id="L13338" class="LineNr">13338 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13339" class="LineNr">13339 </span> 5e/pop-to-esi +<span id="L13340" class="LineNr">13340 </span> 59/pop-to-ecx +<span id="L13341" class="LineNr">13341 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13342" class="LineNr">13342 </span> 89/<- %esp 5/r32/ebp +<span id="L13343" class="LineNr">13343 </span> 5d/pop-to-ebp +<span id="L13344" class="LineNr">13344 </span> c3/return +<span id="L13345" class="LineNr">13345 </span> +<span id="L13346" class="LineNr">13346 </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="L13347" class="LineNr">13347 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13348" class="LineNr">13348 </span> 55/push-ebp +<span id="L13349" class="LineNr">13349 </span> 89/<- %ebp 4/r32/esp +<span id="L13350" class="LineNr">13350 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13351" class="LineNr">13351 </span> 50/push-eax +<span id="L13352" class="LineNr">13352 </span> 51/push-ecx +<span id="L13353" class="LineNr">13353 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L13354" class="LineNr">13354 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13355" class="LineNr">13355 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13356" class="LineNr">13356 </span> 89/<- %ecx 0/r32/eax +<span id="L13357" class="LineNr">13357 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L13358" class="LineNr">13358 </span> { +<span id="L13359" class="LineNr">13359 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L13360" class="LineNr">13360 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13361" class="LineNr">13361 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13362" class="LineNr">13362 </span> (<a href='mu.subx.html#L13684'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13363" class="LineNr">13363 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13364" class="LineNr">13364 </span> } +<span id="L13365" class="LineNr">13365 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> +<span id="L13366" class="LineNr">13366 </span> { +<span id="L13367" class="LineNr">13367 </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="L13368" class="LineNr">13368 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13369" class="LineNr">13369 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13370" class="LineNr">13370 </span> (<a href='mu.subx.html#L13696'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13371" class="LineNr">13371 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13372" class="LineNr">13372 </span> } +<span id="L13373" class="LineNr">13373 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> <span id="L13374" class="LineNr">13374 </span> { -<span id="L13375" class="LineNr">13375 </span> 3d/compare-eax-and 0/imm32 -<span id="L13376" class="LineNr">13376 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13377" class="LineNr">13377 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: -<span id="L13378" class="LineNr">13378 </span> (<a href='mu.subx.html#L13487'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13379" class="LineNr">13379 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13380" class="LineNr">13380 </span> 3d/compare-eax-and 0/imm32 -<span id="L13381" class="LineNr">13381 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 -<span id="L13382" class="LineNr">13382 </span> <span class="subxComment"># check output is in a register</span> -<span id="L13383" class="LineNr">13383 </span> <span class="subxComment"># --gas</span> -<span id="L13384" class="LineNr">13384 </span> 49/decrement-ecx -<span id="L13385" class="LineNr">13385 </span> } -<span id="L13386" class="LineNr">13386 </span> <span class="subxH1Comment"># - check first inout</span> -<span id="L13387" class="LineNr">13387 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13388" class="LineNr">13388 </span> { -<span id="L13389" class="LineNr">13389 </span> 3d/compare-eax-and 0/imm32 -<span id="L13390" class="LineNr">13390 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 -<span id="L13391" class="LineNr">13391 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: -<span id="L13392" class="LineNr">13392 </span> (<a href='mu.subx.html#L13448'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13393" class="LineNr">13393 </span> <span class="subxComment"># --gas</span> -<span id="L13394" class="LineNr">13394 </span> 49/decrement-ecx -<span id="L13395" class="LineNr">13395 </span> } -<span id="L13396" class="LineNr">13396 </span> <span class="subxH1Comment"># - check second inout</span> -<span id="L13397" class="LineNr">13397 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13375" class="LineNr">13375 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> +<span id="L13376" class="LineNr">13376 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13377" class="LineNr">13377 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13378" class="LineNr">13378 </span> (<a href='mu.subx.html#L13708'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13379" class="LineNr">13379 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13380" class="LineNr">13380 </span> } +<span id="L13381" class="LineNr">13381 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> +<span id="L13382" class="LineNr">13382 </span> { +<span id="L13383" class="LineNr">13383 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> +<span id="L13384" class="LineNr">13384 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13385" class="LineNr">13385 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13386" class="LineNr">13386 </span> (<a href='mu.subx.html#L13720'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13387" class="LineNr">13387 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13388" class="LineNr">13388 </span> } +<span id="L13389" class="LineNr">13389 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> +<span id="L13390" class="LineNr">13390 </span> { +<span id="L13391" class="LineNr">13391 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L13392" class="LineNr">13392 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13393" class="LineNr">13393 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13394" class="LineNr">13394 </span> (<a href='mu.subx.html#L13732'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13395" class="LineNr">13395 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13396" class="LineNr">13396 </span> } +<span id="L13397" class="LineNr">13397 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> <span id="L13398" class="LineNr">13398 </span> { -<span id="L13399" class="LineNr">13399 </span> 3d/compare-eax-and 0/imm32 -<span id="L13400" class="LineNr">13400 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 -<span id="L13401" class="LineNr">13401 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: -<span id="L13402" class="LineNr">13402 </span> <span class="subxComment"># is a second inout allowed?</span> -<span id="L13403" class="LineNr">13403 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L13404" class="LineNr">13404 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L13405" class="LineNr">13405 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: -<span id="L13406" class="LineNr">13406 </span> (<a href='mu.subx.html#L13448'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L13407" class="LineNr">13407 </span> } -<span id="L13408" class="LineNr">13408 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: -<span id="L13409" class="LineNr">13409 </span> <span class="subxComment"># if there's a third arg, raise an error</span> -<span id="L13410" class="LineNr">13410 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L13411" class="LineNr">13411 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L13412" class="LineNr">13412 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: -<span id="L13413" class="LineNr">13413 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13414" class="LineNr">13414 </span> 5e/pop-to-esi -<span id="L13415" class="LineNr">13415 </span> 59/pop-to-ecx -<span id="L13416" class="LineNr">13416 </span> 58/pop-to-eax -<span id="L13417" class="LineNr">13417 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13418" class="LineNr">13418 </span> 89/<- %esp 5/r32/ebp -<span id="L13419" class="LineNr">13419 </span> 5d/pop-to-ebp -<span id="L13420" class="LineNr">13420 </span> c3/return -<span id="L13421" class="LineNr">13421 </span> -<span id="L13422" class="LineNr">13422 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: -<span id="L13423" class="LineNr">13423 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13424" class="LineNr">13424 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13425" class="LineNr">13425 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13426" class="LineNr">13426 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13427" class="LineNr">13427 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L13428" class="LineNr">13428 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13429" class="LineNr">13429 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13430" class="LineNr">13430 </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="L13431" class="LineNr">13431 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13432" class="LineNr">13432 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13433" class="LineNr">13433 </span> <span class="subxComment"># never gets here</span> -<span id="L13434" class="LineNr">13434 </span> -<span id="L13435" class="LineNr">13435 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: -<span id="L13436" class="LineNr">13436 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13437" class="LineNr">13437 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13438" class="LineNr">13438 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13439" class="LineNr">13439 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13440" class="LineNr">13440 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L13441" class="LineNr">13441 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13442" class="LineNr">13442 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13443" class="LineNr">13443 </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="L13444" class="LineNr">13444 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13445" class="LineNr">13445 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13446" class="LineNr">13446 </span> <span class="subxComment"># never gets here</span> -<span id="L13447" class="LineNr">13447 </span> -<span id="L13448" class="LineNr">13448 </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="L13449" class="LineNr">13449 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13450" class="LineNr">13450 </span> 55/push-ebp -<span id="L13451" class="LineNr">13451 </span> 89/<- %ebp 4/r32/esp -<span id="L13452" class="LineNr">13452 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13453" class="LineNr">13453 </span> 50/push-eax -<span id="L13454" class="LineNr">13454 </span> 56/push-esi -<span id="L13455" class="LineNr">13455 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L13456" class="LineNr">13456 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13457" class="LineNr">13457 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13458" class="LineNr">13458 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13459" class="LineNr">13459 </span> 89/<- %esi 0/r32/eax -<span id="L13460" class="LineNr">13460 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: -<span id="L13461" class="LineNr">13461 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L13462" class="LineNr">13462 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> -<span id="L13463" class="LineNr">13463 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13464" class="LineNr">13464 </span> 75/jump-if-!= $check-mu-numberlike-arg:end/disp8 -<span id="L13465" class="LineNr">13465 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: -<span id="L13466" class="LineNr">13466 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return</span> -<span id="L13467" class="LineNr">13467 </span> { -<span id="L13468" class="LineNr">13468 </span> (<a href='mu.subx.html#L23523'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L13469" class="LineNr">13469 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13470" class="LineNr">13470 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13471" class="LineNr">13471 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13472" class="LineNr">13472 </span> 8b/-> *(eax+0x10) 0/r32/eax -<span id="L13473" class="LineNr">13473 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13474" class="LineNr">13474 </span> 75/jump-if-!= $check-mu-numberlike-arg:end/disp8 -<span id="L13475" class="LineNr">13475 </span> } -<span id="L13476" class="LineNr">13476 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: -<span id="L13477" class="LineNr">13477 </span> (<a href='mu.subx.html#L13487'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L13478" class="LineNr">13478 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: -<span id="L13479" class="LineNr">13479 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13480" class="LineNr">13480 </span> 5e/pop-to-esi -<span id="L13481" class="LineNr">13481 </span> 58/pop-to-eax -<span id="L13482" class="LineNr">13482 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13483" class="LineNr">13483 </span> 89/<- %esp 5/r32/ebp -<span id="L13484" class="LineNr">13484 </span> 5d/pop-to-ebp -<span id="L13485" class="LineNr">13485 </span> c3/return -<span id="L13486" class="LineNr">13486 </span> -<span id="L13487" class="LineNr">13487 </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="L13488" class="LineNr">13488 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13489" class="LineNr">13489 </span> 55/push-ebp -<span id="L13490" class="LineNr">13490 </span> 89/<- %ebp 4/r32/esp -<span id="L13491" class="LineNr">13491 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13492" class="LineNr">13492 </span> 50/push-eax -<span id="L13493" class="LineNr">13493 </span> 56/push-esi -<span id="L13494" class="LineNr">13494 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L13495" class="LineNr">13495 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L13496" class="LineNr">13496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13497" class="LineNr">13497 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13498" class="LineNr">13498 </span> 89/<- %esi 0/r32/eax -<span id="L13499" class="LineNr">13499 </span><span class="Constant">$check-mu-numberlike-output:check-int</span>: -<span id="L13500" class="LineNr">13500 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L13501" class="LineNr">13501 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> -<span id="L13502" class="LineNr">13502 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13503" class="LineNr">13503 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 -<span id="L13504" class="LineNr">13504 </span><span class="Constant">$check-mu-numberlike-output:check-float</span>: -<span id="L13505" class="LineNr">13505 </span> <span class="subxComment"># if t is a float, return</span> -<span id="L13506" class="LineNr">13506 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> -<span id="L13507" class="LineNr">13507 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13508" class="LineNr">13508 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 -<span id="L13509" class="LineNr">13509 </span><span class="Constant">$check-mu-numberlike-output:check-boolean</span>: -<span id="L13510" class="LineNr">13510 </span> <span class="subxComment"># if t is a boolean, return</span> -<span id="L13511" class="LineNr">13511 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> -<span id="L13512" class="LineNr">13512 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13513" class="LineNr">13513 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 -<span id="L13514" class="LineNr">13514 </span><span class="Constant">$check-mu-numberlike-output:check-byte</span>: -<span id="L13515" class="LineNr">13515 </span> <span class="subxComment"># if t is a byte, return</span> -<span id="L13516" class="LineNr">13516 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> -<span id="L13517" class="LineNr">13517 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13518" class="LineNr">13518 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 -<span id="L13519" class="LineNr">13519 </span> e9/jump $check-mu-numberlike-output:fail/disp32 -<span id="L13520" class="LineNr">13520 </span><span class="Constant">$check-mu-numberlike-output:end</span>: -<span id="L13521" class="LineNr">13521 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13522" class="LineNr">13522 </span> 5e/pop-to-esi -<span id="L13523" class="LineNr">13523 </span> 58/pop-to-eax -<span id="L13524" class="LineNr">13524 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13525" class="LineNr">13525 </span> 89/<- %esp 5/r32/ebp -<span id="L13526" class="LineNr">13526 </span> 5d/pop-to-ebp -<span id="L13527" class="LineNr">13527 </span> c3/return -<span id="L13528" class="LineNr">13528 </span> -<span id="L13529" class="LineNr">13529 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: -<span id="L13530" class="LineNr">13530 </span> <span class="subxComment"># otherwise raise an error</span> -<span id="L13531" class="LineNr">13531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L13532" class="LineNr">13532 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L13533" class="LineNr">13533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13534" class="LineNr">13534 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L13535" class="LineNr">13535 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) -<span id="L13536" class="LineNr">13536 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13537" class="LineNr">13537 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L13538" class="LineNr">13538 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L13539" class="LineNr">13539 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": only non-addr scalar args permitted\n"</span>) -<span id="L13540" class="LineNr">13540 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L13541" class="LineNr">13541 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L13542" class="LineNr">13542 </span> <span class="subxComment"># never gets here</span> -<span id="L13543" class="LineNr">13543 </span> -<span id="L13544" class="LineNr">13544 </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="L13545" class="LineNr">13545 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13546" class="LineNr">13546 </span> 55/push-ebp -<span id="L13547" class="LineNr">13547 </span> 89/<- %ebp 4/r32/esp -<span id="L13548" class="LineNr">13548 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13549" class="LineNr">13549 </span><span class="Constant">$check-mu-copy-stmt:end</span>: -<span id="L13550" class="LineNr">13550 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13551" class="LineNr">13551 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13552" class="LineNr">13552 </span> 89/<- %esp 5/r32/ebp -<span id="L13553" class="LineNr">13553 </span> 5d/pop-to-ebp -<span id="L13554" class="LineNr">13554 </span> c3/return -<span id="L13555" class="LineNr">13555 </span> -<span id="L13556" class="LineNr">13556 </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="L13557" class="LineNr">13557 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13558" class="LineNr">13558 </span> 55/push-ebp -<span id="L13559" class="LineNr">13559 </span> 89/<- %ebp 4/r32/esp -<span id="L13560" class="LineNr">13560 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13561" class="LineNr">13561 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: -<span id="L13562" class="LineNr">13562 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13563" class="LineNr">13563 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13564" class="LineNr">13564 </span> 89/<- %esp 5/r32/ebp -<span id="L13565" class="LineNr">13565 </span> 5d/pop-to-ebp -<span id="L13566" class="LineNr">13566 </span> c3/return -<span id="L13567" class="LineNr">13567 </span> -<span id="L13568" class="LineNr">13568 </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="L13569" class="LineNr">13569 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13570" class="LineNr">13570 </span> 55/push-ebp -<span id="L13571" class="LineNr">13571 </span> 89/<- %ebp 4/r32/esp -<span id="L13572" class="LineNr">13572 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13573" class="LineNr">13573 </span><span class="Constant">$check-mu-compare-stmt:end</span>: -<span id="L13574" class="LineNr">13574 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13575" class="LineNr">13575 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13576" class="LineNr">13576 </span> 89/<- %esp 5/r32/ebp -<span id="L13577" class="LineNr">13577 </span> 5d/pop-to-ebp -<span id="L13578" class="LineNr">13578 </span> c3/return -<span id="L13579" class="LineNr">13579 </span> -<span id="L13580" class="LineNr">13580 </span><span class="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="L13581" class="LineNr">13581 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13582" class="LineNr">13582 </span> 55/push-ebp -<span id="L13583" class="LineNr">13583 </span> 89/<- %ebp 4/r32/esp -<span id="L13584" class="LineNr">13584 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13585" class="LineNr">13585 </span><span class="Constant">$check-mu-address-stmt:end</span>: -<span id="L13586" class="LineNr">13586 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13587" class="LineNr">13587 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13588" class="LineNr">13588 </span> 89/<- %esp 5/r32/ebp -<span id="L13589" class="LineNr">13589 </span> 5d/pop-to-ebp -<span id="L13590" class="LineNr">13590 </span> c3/return -<span id="L13591" class="LineNr">13591 </span> -<span id="L13592" class="LineNr">13592 </span><span class="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="L13593" class="LineNr">13593 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13594" class="LineNr">13594 </span> 55/push-ebp -<span id="L13595" class="LineNr">13595 </span> 89/<- %ebp 4/r32/esp -<span id="L13596" class="LineNr">13596 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13597" class="LineNr">13597 </span> 50/push-eax -<span id="L13598" class="LineNr">13598 </span> 51/push-ecx -<span id="L13599" class="LineNr">13599 </span> 52/push-edx -<span id="L13600" class="LineNr">13600 </span> 53/push-ebx -<span id="L13601" class="LineNr">13601 </span> 56/push-esi -<span id="L13602" class="LineNr">13602 </span> 57/push-edi -<span id="L13603" class="LineNr">13603 </span> <span class="subxComment"># esi = stmt</span> -<span id="L13604" class="LineNr">13604 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L13605" class="LineNr">13605 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L13606" class="LineNr">13606 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L13607" class="LineNr">13607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13608" class="LineNr">13608 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13609" class="LineNr">13609 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L13610" class="LineNr">13610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13611" class="LineNr">13611 </span> 89/<- %ecx 0/r32/eax -<span id="L13612" class="LineNr">13612 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: -<span id="L13613" class="LineNr">13613 </span> <span class="subxH1Comment"># - check base type</span> -<span id="L13614" class="LineNr">13614 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> -<span id="L13615" class="LineNr">13615 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L13616" class="LineNr">13616 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13617" class="LineNr">13617 </span> 89/<- %ebx 0/r32/eax -<span id="L13618" class="LineNr">13618 </span> { -<span id="L13619" class="LineNr">13619 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L13620" class="LineNr">13620 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L13621" class="LineNr">13621 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: -<span id="L13622" class="LineNr">13622 </span> <span class="subxComment"># if (type->left != addr) break</span> -<span id="L13623" class="LineNr">13623 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13624" class="LineNr">13624 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L13625" class="LineNr">13625 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13626" class="LineNr">13626 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13627" class="LineNr">13627 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: -<span id="L13628" class="LineNr">13628 </span> <span class="subxComment"># now check for register</span> -<span id="L13629" class="LineNr">13629 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L13630" class="LineNr">13630 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 -<span id="L13631" class="LineNr">13631 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: -<span id="L13632" class="LineNr">13632 </span> <span class="subxComment"># type->left is now an addr; skip it</span> -<span id="L13633" class="LineNr">13633 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L13634" class="LineNr">13634 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L13635" class="LineNr">13635 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L13636" class="LineNr">13636 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: -<span id="L13637" class="LineNr">13637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13638" class="LineNr">13638 </span> 89/<- %ebx 0/r32/eax -<span id="L13639" class="LineNr">13639 </span> } -<span id="L13640" class="LineNr">13640 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: -<span id="L13641" class="LineNr">13641 </span> <span class="subxComment"># ensure type is a container</span> -<span id="L13642" class="LineNr">13642 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> -<span id="L13643" class="LineNr">13643 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> -<span id="L13644" class="LineNr">13644 </span> (<a href='mu.subx.html#L11897'>is-container?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L13645" class="LineNr">13645 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13646" class="LineNr">13646 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L13647" class="LineNr">13647 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> -<span id="L13648" class="LineNr">13648 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> -<span id="L13649" class="LineNr">13649 </span> 68/push 0/imm32 -<span id="L13650" class="LineNr">13650 </span> 68/push 0/imm32 -<span id="L13651" class="LineNr">13651 </span> 89/<- %ecx 4/r32/esp -<span id="L13652" class="LineNr">13652 </span> <span class="subxS1Comment"># .</span> -<span id="L13653" class="LineNr">13653 </span> (<a href='mu.subx.html#L11980'>find-typeinfo</a> %ebx %ecx) -<span id="L13654" class="LineNr">13654 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L13655" class="LineNr">13655 </span> <span class="subxS1Comment"># . reclaim container</span> -<span id="L13656" class="LineNr">13656 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13657" class="LineNr">13657 </span> <span class="subxS1Comment"># .</span> -<span id="L13658" class="LineNr">13658 </span> 89/<- %edx 0/r32/eax -<span id="L13659" class="LineNr">13659 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> -<span id="L13660" class="LineNr">13660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13661" class="LineNr">13661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13662" class="LineNr">13662 </span> 89/<- %ecx 0/r32/eax -<span id="L13663" class="LineNr">13663 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L13664" class="LineNr">13664 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13665" class="LineNr">13665 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L13666" class="LineNr">13666 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> -<span id="L13667" class="LineNr">13667 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13668" class="LineNr">13668 </span> 89/<- %ecx 0/r32/eax -<span id="L13669" class="LineNr">13669 </span> <span class="subxH1Comment"># - check for valid field</span> -<span id="L13670" class="LineNr">13670 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L13671" class="LineNr">13671 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 -<span id="L13672" class="LineNr">13672 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L13673" class="LineNr">13673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13674" class="LineNr">13674 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13675" class="LineNr">13675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13676" class="LineNr">13676 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13677" class="LineNr">13677 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 -<span id="L13678" class="LineNr">13678 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L13679" class="LineNr">13679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L13680" class="LineNr">13680 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L13681" class="LineNr">13681 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13682" class="LineNr">13682 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 -<span id="L13683" class="LineNr">13683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13684" class="LineNr">13684 </span> 89/<- %edi 0/r32/eax -<span id="L13685" class="LineNr">13685 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: -<span id="L13686" class="LineNr">13686 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L13687" class="LineNr">13687 </span> <span class="subxComment"># must be in register</span> -<span id="L13688" class="LineNr">13688 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L13689" class="LineNr">13689 </span> 3d/compare-eax-and 0/imm32 -<span id="L13690" class="LineNr">13690 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 -<span id="L13691" class="LineNr">13691 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L13692" class="LineNr">13692 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13693" class="LineNr">13693 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L13694" class="LineNr">13694 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L13695" class="LineNr">13695 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L13696" class="LineNr">13696 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13697" class="LineNr">13697 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> -<span id="L13698" class="LineNr">13698 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13699" class="LineNr">13699 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L13700" class="LineNr">13700 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: -<span id="L13701" class="LineNr">13701 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> -<span id="L13702" class="LineNr">13702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13703" class="LineNr">13703 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L13704" class="LineNr">13704 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> -<span id="L13705" class="LineNr">13705 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> -<span id="L13706" class="LineNr">13706 </span> { -<span id="L13707" class="LineNr">13707 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13708" class="LineNr">13708 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13709" class="LineNr">13709 </span> } -<span id="L13710" class="LineNr">13710 </span> 89/<- %edi 0/r32/eax -<span id="L13711" class="LineNr">13711 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> -<span id="L13712" class="LineNr">13712 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L13713" class="LineNr">13713 </span> 89/<- %ecx 0/r32/eax -<span id="L13714" class="LineNr">13714 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> -<span id="L13715" class="LineNr">13715 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L13716" class="LineNr">13716 </span> (<a href='../131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> -<span id="L13717" class="LineNr">13717 </span> <span class="subxS1Comment"># .</span> -<span id="L13718" class="LineNr">13718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L13719" class="LineNr">13719 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L13720" class="LineNr">13720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13721" class="LineNr">13721 </span> <span class="subxS1Comment"># .</span> -<span id="L13722" class="LineNr">13722 </span> (<a href='mu.subx.html#L15121'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> -<span id="L13723" class="LineNr">13723 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13724" class="LineNr">13724 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 -<span id="L13725" class="LineNr">13725 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L13726" class="LineNr">13726 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L13727" class="LineNr">13727 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13728" class="LineNr">13728 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13729" class="LineNr">13729 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 -<span id="L13730" class="LineNr">13730 </span><span class="Constant">$check-mu-get-stmt:end</span>: -<span id="L13731" class="LineNr">13731 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L13732" class="LineNr">13732 </span> 5f/pop-to-edi -<span id="L13733" class="LineNr">13733 </span> 5e/pop-to-esi -<span id="L13734" class="LineNr">13734 </span> 5b/pop-to-ebx -<span id="L13735" class="LineNr">13735 </span> 5a/pop-to-edx -<span id="L13736" class="LineNr">13736 </span> 59/pop-to-ecx -<span id="L13737" class="LineNr">13737 </span> 58/pop-to-eax -<span id="L13738" class="LineNr">13738 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13739" class="LineNr">13739 </span> 89/<- %esp 5/r32/ebp -<span id="L13740" class="LineNr">13740 </span> 5d/pop-to-ebp -<span id="L13741" class="LineNr">13741 </span> c3/return -<span id="L13742" class="LineNr">13742 </span> -<span id="L13743" class="LineNr">13743 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: -<span id="L13744" class="LineNr">13744 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13745" class="LineNr">13745 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13746" class="LineNr">13746 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13747" class="LineNr">13747 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13748" class="LineNr">13748 </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="L13749" class="LineNr">13749 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13750" class="LineNr">13750 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13751" class="LineNr">13751 </span> <span class="subxComment"># never gets here</span> -<span id="L13752" class="LineNr">13752 </span> -<span id="L13753" class="LineNr">13753 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: -<span id="L13754" class="LineNr">13754 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13755" class="LineNr">13755 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13756" class="LineNr">13756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13757" class="LineNr">13757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13758" class="LineNr">13758 </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="L13759" class="LineNr">13759 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13760" class="LineNr">13760 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13761" class="LineNr">13761 </span> <span class="subxComment"># never gets here</span> -<span id="L13762" class="LineNr">13762 </span> -<span id="L13763" class="LineNr">13763 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: -<span id="L13764" class="LineNr">13764 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13765" class="LineNr">13765 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13766" class="LineNr">13766 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13767" class="LineNr">13767 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13768" class="LineNr">13768 </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="L13769" class="LineNr">13769 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13770" class="LineNr">13770 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13771" class="LineNr">13771 </span> <span class="subxComment"># never gets here</span> -<span id="L13772" class="LineNr">13772 </span> -<span id="L13773" class="LineNr">13773 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: -<span id="L13774" class="LineNr">13774 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13775" class="LineNr">13775 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13776" class="LineNr">13776 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13777" class="LineNr">13777 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13778" class="LineNr">13778 </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="L13779" class="LineNr">13779 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13780" class="LineNr">13780 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13781" class="LineNr">13781 </span> <span class="subxComment"># never gets here</span> -<span id="L13782" class="LineNr">13782 </span> -<span id="L13783" class="LineNr">13783 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: -<span id="L13784" class="LineNr">13784 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> -<span id="L13785" class="LineNr">13785 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13786" class="LineNr">13786 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13787" class="LineNr">13787 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13788" class="LineNr">13788 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13789" class="LineNr">13789 </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="L13790" class="LineNr">13790 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13791" class="LineNr">13791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13792" class="LineNr">13792 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L13793" class="LineNr">13793 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13794" class="LineNr">13794 </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="L13795" class="LineNr">13795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13796" class="LineNr">13796 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13797" class="LineNr">13797 </span> <span class="subxComment"># never gets here</span> -<span id="L13798" class="LineNr">13798 </span> -<span id="L13799" class="LineNr">13799 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: -<span id="L13800" class="LineNr">13800 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13801" class="LineNr">13801 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13802" class="LineNr">13802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13803" class="LineNr">13803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13804" class="LineNr">13804 </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="L13805" class="LineNr">13805 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13806" class="LineNr">13806 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13807" class="LineNr">13807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L13808" class="LineNr">13808 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13809" class="LineNr">13809 </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="L13810" class="LineNr">13810 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13811" class="LineNr">13811 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13812" class="LineNr">13812 </span> <span class="subxComment"># never gets here</span> -<span id="L13813" class="LineNr">13813 </span> -<span id="L13814" class="LineNr">13814 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: -<span id="L13815" class="LineNr">13815 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> -<span id="L13816" class="LineNr">13816 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13817" class="LineNr">13817 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13818" class="LineNr">13818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13819" class="LineNr">13819 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13820" class="LineNr">13820 </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="L13821" class="LineNr">13821 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> -<span id="L13822" class="LineNr">13822 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span>/imm32 -<span id="L13823" class="LineNr">13823 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) *(edi+ebx<<2+0xc)) -<span id="L13824" class="LineNr">13824 </span> <span class="subxS1Comment"># .</span> -<span id="L13825" class="LineNr">13825 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) -<span id="L13826" class="LineNr">13826 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L13827" class="LineNr">13827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13828" class="LineNr">13828 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L13829" class="LineNr">13829 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13830" class="LineNr">13830 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13831" class="LineNr">13831 </span> <span class="subxComment"># never gets here</span> -<span id="L13832" class="LineNr">13832 </span> -<span id="L13833" class="LineNr">13833 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: -<span id="L13834" class="LineNr">13834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13835" class="LineNr">13835 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13836" class="LineNr">13836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13837" class="LineNr">13837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13838" class="LineNr">13838 </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="L13839" class="LineNr">13839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L13840" class="LineNr">13840 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13841" class="LineNr">13841 </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="L13842" class="LineNr">13842 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13843" class="LineNr">13843 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13844" class="LineNr">13844 </span> <span class="subxComment"># never gets here</span> -<span id="L13845" class="LineNr">13845 </span> -<span id="L13846" class="LineNr">13846 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: -<span id="L13847" class="LineNr">13847 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13848" class="LineNr">13848 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13849" class="LineNr">13849 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13850" class="LineNr">13850 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13851" class="LineNr">13851 </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 address\n"</span>) -<span id="L13852" class="LineNr">13852 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13853" class="LineNr">13853 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13854" class="LineNr">13854 </span> <span class="subxComment"># never gets here</span> -<span id="L13855" class="LineNr">13855 </span> -<span id="L13856" class="LineNr">13856 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: -<span id="L13857" class="LineNr">13857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L13858" class="LineNr">13858 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L13859" class="LineNr">13859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L13860" class="LineNr">13860 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L13861" class="LineNr">13861 </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="L13862" class="LineNr">13862 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) -<span id="L13863" class="LineNr">13863 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) -<span id="L13864" class="LineNr">13864 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span>/imm32 -<span id="L13865" class="LineNr">13865 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) *(edi+ebx<<2+0xc)) -<span id="L13866" class="LineNr">13866 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L13867" class="LineNr">13867 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L13868" class="LineNr">13868 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L13869" class="LineNr">13869 </span> <span class="subxComment"># never gets here</span> -<span id="L13870" class="LineNr">13870 </span> -<span id="L13871" class="LineNr">13871 </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="L13872" class="LineNr">13872 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13873" class="LineNr">13873 </span> 55/push-ebp -<span id="L13874" class="LineNr">13874 </span> 89/<- %ebp 4/r32/esp -<span id="L13875" class="LineNr">13875 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L13876" class="LineNr">13876 </span> 50/push-eax -<span id="L13877" class="LineNr">13877 </span> 51/push-ecx -<span id="L13878" class="LineNr">13878 </span> 52/push-edx -<span id="L13879" class="LineNr">13879 </span> 53/push-ebx -<span id="L13880" class="LineNr">13880 </span> 56/push-esi -<span id="L13881" class="LineNr">13881 </span> 57/push-edi -<span id="L13882" class="LineNr">13882 </span> <span class="subxComment"># esi = stmt</span> -<span id="L13883" class="LineNr">13883 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L13884" class="LineNr">13884 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L13885" class="LineNr">13885 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L13886" class="LineNr">13886 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13887" class="LineNr">13887 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: -<span id="L13888" class="LineNr">13888 </span> 3d/compare-eax-and 0/imm32 -<span id="L13889" class="LineNr">13889 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L13890" class="LineNr">13890 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13891" class="LineNr">13891 </span> 89/<- %ecx 0/r32/eax -<span id="L13892" class="LineNr">13892 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L13893" class="LineNr">13893 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L13894" class="LineNr">13894 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13895" class="LineNr">13895 </span> 89/<- %ebx 0/r32/eax -<span id="L13896" class="LineNr">13896 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L13897" class="LineNr">13897 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L13898" class="LineNr">13898 </span> { -<span id="L13899" class="LineNr">13899 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13900" class="LineNr">13900 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L13901" class="LineNr">13901 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13902" class="LineNr">13902 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 -<span id="L13903" class="LineNr">13903 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L13904" class="LineNr">13904 </span> } -<span id="L13905" class="LineNr">13905 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: -<span id="L13906" class="LineNr">13906 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L13907" class="LineNr">13907 </span> { -<span id="L13908" class="LineNr">13908 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13909" class="LineNr">13909 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L13910" class="LineNr">13910 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13911" class="LineNr">13911 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13912" class="LineNr">13912 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13913" class="LineNr">13913 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L13914" class="LineNr">13914 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13915" class="LineNr">13915 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13916" class="LineNr">13916 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L13917" class="LineNr">13917 </span> } -<span id="L13918" class="LineNr">13918 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L13919" class="LineNr">13919 </span> { -<span id="L13920" class="LineNr">13920 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13921" class="LineNr">13921 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L13922" class="LineNr">13922 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13923" class="LineNr">13923 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13924" class="LineNr">13924 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: -<span id="L13925" class="LineNr">13925 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L13926" class="LineNr">13926 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13927" class="LineNr">13927 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L13928" class="LineNr">13928 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13929" class="LineNr">13929 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L13930" class="LineNr">13930 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: -<span id="L13931" class="LineNr">13931 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L13932" class="LineNr">13932 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L13933" class="LineNr">13933 </span> } -<span id="L13934" class="LineNr">13934 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L13935" class="LineNr">13935 </span> { -<span id="L13936" class="LineNr">13936 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13937" class="LineNr">13937 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L13938" class="LineNr">13938 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13939" class="LineNr">13939 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13940" class="LineNr">13940 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: -<span id="L13941" class="LineNr">13941 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L13942" class="LineNr">13942 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 -<span id="L13943" class="LineNr">13943 </span> } -<span id="L13944" class="LineNr">13944 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L13945" class="LineNr">13945 </span> { -<span id="L13946" class="LineNr">13946 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13947" class="LineNr">13947 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L13948" class="LineNr">13948 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13949" class="LineNr">13949 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13950" class="LineNr">13950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L13951" class="LineNr">13951 </span> 89/<- %ebx 0/r32/eax -<span id="L13952" class="LineNr">13952 </span> } -<span id="L13953" class="LineNr">13953 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L13954" class="LineNr">13954 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L13955" class="LineNr">13955 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L13956" class="LineNr">13956 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L13957" class="LineNr">13957 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: -<span id="L13958" class="LineNr">13958 </span> 3d/compare-eax-and 0/imm32 -<span id="L13959" class="LineNr">13959 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L13960" class="LineNr">13960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L13961" class="LineNr">13961 </span> 89/<- %ecx 0/r32/eax -<span id="L13962" class="LineNr">13962 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L13963" class="LineNr">13963 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L13964" class="LineNr">13964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L13965" class="LineNr">13965 </span> 89/<- %edx 0/r32/eax -<span id="L13966" class="LineNr">13966 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> -<span id="L13967" class="LineNr">13967 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L13968" class="LineNr">13968 </span> { -<span id="L13969" class="LineNr">13969 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L13970" class="LineNr">13970 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: -<span id="L13971" class="LineNr">13971 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L13972" class="LineNr">13972 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13973" class="LineNr">13973 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L13974" class="LineNr">13974 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L13975" class="LineNr">13975 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13976" class="LineNr">13976 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L13977" class="LineNr">13977 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> -<span id="L13978" class="LineNr">13978 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13979" class="LineNr">13979 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 -<span id="L13980" class="LineNr">13980 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L13981" class="LineNr">13981 </span> } -<span id="L13982" class="LineNr">13982 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> -<span id="L13983" class="LineNr">13983 </span> { -<span id="L13984" class="LineNr">13984 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13985" class="LineNr">13985 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: -<span id="L13986" class="LineNr">13986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L13987" class="LineNr">13987 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L13988" class="LineNr">13988 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13989" class="LineNr">13989 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L13990" class="LineNr">13990 </span> } -<span id="L13991" class="LineNr">13991 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: -<span id="L13992" class="LineNr">13992 </span> <span class="subxComment"># check index is either a literal or in a register</span> -<span id="L13993" class="LineNr">13993 </span> { -<span id="L13994" class="LineNr">13994 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L13995" class="LineNr">13995 </span> 3d/compare-eax-and 0/imm32/false -<span id="L13996" class="LineNr">13996 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L13997" class="LineNr">13997 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: -<span id="L13998" class="LineNr">13998 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L13999" class="LineNr">13999 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 -<span id="L14000" class="LineNr">14000 </span> } -<span id="L14001" class="LineNr">14001 </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="L14002" class="LineNr">14002 </span> { -<span id="L14003" class="LineNr">14003 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L14004" class="LineNr">14004 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14005" class="LineNr">14005 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14006" class="LineNr">14006 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: -<span id="L14007" class="LineNr">14007 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L14008" class="LineNr">14008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14009" class="LineNr">14009 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> -<span id="L14010" class="LineNr">14010 </span> 3d/compare-eax-and 1/imm32 -<span id="L14011" class="LineNr">14011 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14012" class="LineNr">14012 </span> 3d/compare-eax-and 2/imm32 -<span id="L14013" class="LineNr">14013 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14014" class="LineNr">14014 </span> 3d/compare-eax-and 4/imm32 -<span id="L14015" class="LineNr">14015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14016" class="LineNr">14016 </span> 3d/compare-eax-and 8/imm32 -<span id="L14017" class="LineNr">14017 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14018" class="LineNr">14018 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 -<span id="L14019" class="LineNr">14019 </span> } -<span id="L14020" class="LineNr">14020 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L14021" class="LineNr">14021 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L14022" class="LineNr">14022 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L14023" class="LineNr">14023 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L14024" class="LineNr">14024 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14025" class="LineNr">14025 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 -<span id="L14026" class="LineNr">14026 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L14027" class="LineNr">14027 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L14028" class="LineNr">14028 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L14029" class="LineNr">14029 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14030" class="LineNr">14030 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 -<span id="L14031" class="LineNr">14031 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14032" class="LineNr">14032 </span> 89/<- %edi 0/r32/eax -<span id="L14033" class="LineNr">14033 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L14034" class="LineNr">14034 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L14035" class="LineNr">14035 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14036" class="LineNr">14036 </span> 89/<- %edx 0/r32/eax -<span id="L14037" class="LineNr">14037 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14038" class="LineNr">14038 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L14039" class="LineNr">14039 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L14040" class="LineNr">14040 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14041" class="LineNr">14041 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L14042" class="LineNr">14042 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14043" class="LineNr">14043 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L14044" class="LineNr">14044 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L14045" class="LineNr">14045 </span> (<a href='mu.subx.html#L15062'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L14046" class="LineNr">14046 </span> 89/<- %ebx 0/r32/eax -<span id="L14047" class="LineNr">14047 </span> (<a href='mu.subx.html#L15062'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L14048" class="LineNr">14048 </span> (<a href='mu.subx.html#L15121'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L14049" class="LineNr">14049 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14050" class="LineNr">14050 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 -<span id="L14051" class="LineNr">14051 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L14052" class="LineNr">14052 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L14053" class="LineNr">14053 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L14054" class="LineNr">14054 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14055" class="LineNr">14055 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 -<span id="L14056" class="LineNr">14056 </span><span class="Constant">$check-mu-index-stmt:end</span>: -<span id="L14057" class="LineNr">14057 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14058" class="LineNr">14058 </span> 5f/pop-to-edi -<span id="L14059" class="LineNr">14059 </span> 5e/pop-to-esi -<span id="L14060" class="LineNr">14060 </span> 5b/pop-to-ebx -<span id="L14061" class="LineNr">14061 </span> 5a/pop-to-edx -<span id="L14062" class="LineNr">14062 </span> 59/pop-to-ecx -<span id="L14063" class="LineNr">14063 </span> 58/pop-to-eax -<span id="L14064" class="LineNr">14064 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14065" class="LineNr">14065 </span> 89/<- %esp 5/r32/ebp -<span id="L14066" class="LineNr">14066 </span> 5d/pop-to-ebp -<span id="L14067" class="LineNr">14067 </span> c3/return -<span id="L14068" class="LineNr">14068 </span> -<span id="L14069" class="LineNr">14069 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: -<span id="L14070" class="LineNr">14070 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14071" class="LineNr">14071 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14072" class="LineNr">14072 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14073" class="LineNr">14073 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14074" class="LineNr">14074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L14075" class="LineNr">14075 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14076" class="LineNr">14076 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14077" class="LineNr">14077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L14078" class="LineNr">14078 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14079" class="LineNr">14079 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14080" class="LineNr">14080 </span> <span class="subxComment"># never gets here</span> -<span id="L14081" class="LineNr">14081 </span> -<span id="L14082" class="LineNr">14082 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: -<span id="L14083" class="LineNr">14083 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14084" class="LineNr">14084 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14085" class="LineNr">14085 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14086" class="LineNr">14086 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14087" class="LineNr">14087 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) -<span id="L14088" class="LineNr">14088 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14089" class="LineNr">14089 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14090" class="LineNr">14090 </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="L14091" class="LineNr">14091 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14092" class="LineNr">14092 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14093" class="LineNr">14093 </span> <span class="subxComment"># never gets here</span> -<span id="L14094" class="LineNr">14094 </span> -<span id="L14095" class="LineNr">14095 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: -<span id="L14096" class="LineNr">14096 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14097" class="LineNr">14097 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14098" class="LineNr">14098 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14099" class="LineNr">14099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14100" class="LineNr">14100 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L14101" class="LineNr">14101 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14102" class="LineNr">14102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14103" class="LineNr">14103 </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="L14104" class="LineNr">14104 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14105" class="LineNr">14105 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14106" class="LineNr">14106 </span> <span class="subxComment"># never gets here</span> -<span id="L14107" class="LineNr">14107 </span> -<span id="L14108" class="LineNr">14108 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: -<span id="L14109" class="LineNr">14109 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14110" class="LineNr">14110 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14111" class="LineNr">14111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14112" class="LineNr">14112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14113" class="LineNr">14113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L14114" class="LineNr">14114 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14115" class="LineNr">14115 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14116" class="LineNr">14116 </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="L14117" class="LineNr">14117 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14118" class="LineNr">14118 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14119" class="LineNr">14119 </span> <span class="subxComment"># never gets here</span> -<span id="L14120" class="LineNr">14120 </span> -<span id="L14121" class="LineNr">14121 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: -<span id="L14122" class="LineNr">14122 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14123" class="LineNr">14123 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14124" class="LineNr">14124 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14125" class="LineNr">14125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14126" class="LineNr">14126 </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="L14127" class="LineNr">14127 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14128" class="LineNr">14128 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14129" class="LineNr">14129 </span> <span class="subxComment"># never gets here</span> -<span id="L14130" class="LineNr">14130 </span> -<span id="L14131" class="LineNr">14131 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: -<span id="L14132" class="LineNr">14132 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14133" class="LineNr">14133 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14134" class="LineNr">14134 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14135" class="LineNr">14135 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14136" class="LineNr">14136 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L14137" class="LineNr">14137 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14138" class="LineNr">14138 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14139" class="LineNr">14139 </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="L14140" class="LineNr">14140 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14141" class="LineNr">14141 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14142" class="LineNr">14142 </span> <span class="subxComment"># never gets here</span> -<span id="L14143" class="LineNr">14143 </span> -<span id="L14144" class="LineNr">14144 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: -<span id="L14145" class="LineNr">14145 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14146" class="LineNr">14146 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14147" class="LineNr">14147 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14148" class="LineNr">14148 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14149" class="LineNr">14149 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) -<span id="L14150" class="LineNr">14150 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14151" class="LineNr">14151 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14152" class="LineNr">14152 </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="L14153" class="LineNr">14153 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14154" class="LineNr">14154 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14155" class="LineNr">14155 </span> <span class="subxComment"># never gets here</span> -<span id="L14156" class="LineNr">14156 </span> -<span id="L14157" class="LineNr">14157 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: -<span id="L14158" class="LineNr">14158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14159" class="LineNr">14159 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14160" class="LineNr">14160 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14161" class="LineNr">14161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14162" class="LineNr">14162 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L14163" class="LineNr">14163 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14164" class="LineNr">14164 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14165" class="LineNr">14165 </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="L14166" class="LineNr">14166 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14167" class="LineNr">14167 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14168" class="LineNr">14168 </span> <span class="subxComment"># never gets here</span> -<span id="L14169" class="LineNr">14169 </span> -<span id="L14170" class="LineNr">14170 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: -<span id="L14171" class="LineNr">14171 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14172" class="LineNr">14172 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14173" class="LineNr">14173 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14174" class="LineNr">14174 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14175" class="LineNr">14175 </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="L14176" class="LineNr">14176 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L14177" class="LineNr">14177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14178" class="LineNr">14178 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14179" class="LineNr">14179 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14180" class="LineNr">14180 </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="L14181" class="LineNr">14181 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14182" class="LineNr">14182 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14183" class="LineNr">14183 </span> <span class="subxComment"># never gets here</span> -<span id="L14184" class="LineNr">14184 </span> -<span id="L14185" class="LineNr">14185 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: -<span id="L14186" class="LineNr">14186 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14187" class="LineNr">14187 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14188" class="LineNr">14188 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14189" class="LineNr">14189 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14190" class="LineNr">14190 </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="L14191" class="LineNr">14191 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14192" class="LineNr">14192 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14193" class="LineNr">14193 </span> <span class="subxComment"># never gets here</span> -<span id="L14194" class="LineNr">14194 </span> -<span id="L14195" class="LineNr">14195 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: -<span id="L14196" class="LineNr">14196 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14197" class="LineNr">14197 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14198" class="LineNr">14198 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14199" class="LineNr">14199 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14200" class="LineNr">14200 </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="L14201" class="LineNr">14201 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14202" class="LineNr">14202 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14203" class="LineNr">14203 </span> <span class="subxComment"># never gets here</span> -<span id="L14204" class="LineNr">14204 </span> -<span id="L14205" class="LineNr">14205 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: -<span id="L14206" class="LineNr">14206 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14207" class="LineNr">14207 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14208" class="LineNr">14208 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14209" class="LineNr">14209 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14210" class="LineNr">14210 </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="L14211" class="LineNr">14211 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14212" class="LineNr">14212 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14213" class="LineNr">14213 </span> <span class="subxComment"># never gets here</span> -<span id="L14214" class="LineNr">14214 </span> -<span id="L14215" class="LineNr">14215 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: -<span id="L14216" class="LineNr">14216 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14217" class="LineNr">14217 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14218" class="LineNr">14218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14219" class="LineNr">14219 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14220" class="LineNr">14220 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L14221" class="LineNr">14221 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14222" class="LineNr">14222 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14223" class="LineNr">14223 </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="L14224" class="LineNr">14224 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14225" class="LineNr">14225 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14226" class="LineNr">14226 </span> <span class="subxComment"># never gets here</span> -<span id="L14227" class="LineNr">14227 </span> -<span id="L14228" class="LineNr">14228 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: -<span id="L14229" class="LineNr">14229 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14230" class="LineNr">14230 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14231" class="LineNr">14231 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14232" class="LineNr">14232 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14233" class="LineNr">14233 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L14234" class="LineNr">14234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14235" class="LineNr">14235 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14236" class="LineNr">14236 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an address\n"</span>) -<span id="L14237" class="LineNr">14237 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14238" class="LineNr">14238 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14239" class="LineNr">14239 </span> <span class="subxComment"># never gets here</span> -<span id="L14240" class="LineNr">14240 </span> -<span id="L14241" class="LineNr">14241 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: -<span id="L14242" class="LineNr">14242 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14243" class="LineNr">14243 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L14244" class="LineNr">14244 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14245" class="LineNr">14245 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14246" class="LineNr">14246 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L14247" class="LineNr">14247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14248" class="LineNr">14248 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14249" class="LineNr">14249 </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="L14250" class="LineNr">14250 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14251" class="LineNr">14251 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14252" class="LineNr">14252 </span> <span class="subxComment"># never gets here</span> -<span id="L14253" class="LineNr">14253 </span> -<span id="L14254" class="LineNr">14254 </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="L14255" class="LineNr">14255 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14256" class="LineNr">14256 </span> 55/push-ebp -<span id="L14257" class="LineNr">14257 </span> 89/<- %ebp 4/r32/esp -<span id="L14258" class="LineNr">14258 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14259" class="LineNr">14259 </span><span class="Constant">$check-mu-length-stmt:end</span>: -<span id="L14260" class="LineNr">14260 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14261" class="LineNr">14261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14262" class="LineNr">14262 </span> 89/<- %esp 5/r32/ebp -<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="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="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="subxS1Comment"># . save registers</span> -<span id="L14271" class="LineNr">14271 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: -<span id="L14272" class="LineNr">14272 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14273" class="LineNr">14273 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14274" class="LineNr">14274 </span> 89/<- %esp 5/r32/ebp -<span id="L14275" class="LineNr">14275 </span> 5d/pop-to-ebp -<span id="L14276" class="LineNr">14276 </span> c3/return -<span id="L14277" class="LineNr">14277 </span> -<span id="L14278" class="LineNr">14278 </span><span class="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="L14279" class="LineNr">14279 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14280" class="LineNr">14280 </span> 55/push-ebp -<span id="L14281" class="LineNr">14281 </span> 89/<- %ebp 4/r32/esp -<span id="L14282" class="LineNr">14282 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14283" class="LineNr">14283 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: -<span id="L14284" class="LineNr">14284 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14285" class="LineNr">14285 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14286" class="LineNr">14286 </span> 89/<- %esp 5/r32/ebp -<span id="L14287" class="LineNr">14287 </span> 5d/pop-to-ebp -<span id="L14288" class="LineNr">14288 </span> c3/return -<span id="L14289" class="LineNr">14289 </span> -<span id="L14290" class="LineNr">14290 </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="L14291" class="LineNr">14291 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14292" class="LineNr">14292 </span> 55/push-ebp -<span id="L14293" class="LineNr">14293 </span> 89/<- %ebp 4/r32/esp -<span id="L14294" class="LineNr">14294 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14295" class="LineNr">14295 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: -<span id="L14296" class="LineNr">14296 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14297" class="LineNr">14297 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14298" class="LineNr">14298 </span> 89/<- %esp 5/r32/ebp -<span id="L14299" class="LineNr">14299 </span> 5d/pop-to-ebp -<span id="L14300" class="LineNr">14300 </span> c3/return -<span id="L14301" class="LineNr">14301 </span> -<span id="L14302" class="LineNr">14302 </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="L14303" class="LineNr">14303 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14304" class="LineNr">14304 </span> 55/push-ebp -<span id="L14305" class="LineNr">14305 </span> 89/<- %ebp 4/r32/esp -<span id="L14306" class="LineNr">14306 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14307" class="LineNr">14307 </span><span class="Constant">$check-mu-populate-stmt:end</span>: -<span id="L14308" class="LineNr">14308 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14309" class="LineNr">14309 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14310" class="LineNr">14310 </span> 89/<- %esp 5/r32/ebp -<span id="L14311" class="LineNr">14311 </span> 5d/pop-to-ebp -<span id="L14312" class="LineNr">14312 </span> c3/return -<span id="L14313" class="LineNr">14313 </span> -<span id="L14314" class="LineNr">14314 </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="L14315" class="LineNr">14315 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14316" class="LineNr">14316 </span> 55/push-ebp -<span id="L14317" class="LineNr">14317 </span> 89/<- %ebp 4/r32/esp -<span id="L14318" class="LineNr">14318 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14319" class="LineNr">14319 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: -<span id="L14320" class="LineNr">14320 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14321" class="LineNr">14321 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14322" class="LineNr">14322 </span> 89/<- %esp 5/r32/ebp -<span id="L14323" class="LineNr">14323 </span> 5d/pop-to-ebp -<span id="L14324" class="LineNr">14324 </span> c3/return -<span id="L14325" class="LineNr">14325 </span> -<span id="L14326" class="LineNr">14326 </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="L14327" class="LineNr">14327 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14328" class="LineNr">14328 </span> 55/push-ebp -<span id="L14329" class="LineNr">14329 </span> 89/<- %ebp 4/r32/esp -<span id="L14330" class="LineNr">14330 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14331" class="LineNr">14331 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: -<span id="L14332" class="LineNr">14332 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14333" class="LineNr">14333 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14334" class="LineNr">14334 </span> 89/<- %esp 5/r32/ebp -<span id="L14335" class="LineNr">14335 </span> 5d/pop-to-ebp -<span id="L14336" class="LineNr">14336 </span> c3/return -<span id="L14337" class="LineNr">14337 </span> -<span id="L14338" class="LineNr">14338 </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="L14339" class="LineNr">14339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14340" class="LineNr">14340 </span> 55/push-ebp -<span id="L14341" class="LineNr">14341 </span> 89/<- %ebp 4/r32/esp -<span id="L14342" class="LineNr">14342 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14343" class="LineNr">14343 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: -<span id="L14344" class="LineNr">14344 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14345" class="LineNr">14345 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14346" class="LineNr">14346 </span> 89/<- %esp 5/r32/ebp -<span id="L14347" class="LineNr">14347 </span> 5d/pop-to-ebp -<span id="L14348" class="LineNr">14348 </span> c3/return -<span id="L14349" class="LineNr">14349 </span> -<span id="L14350" class="LineNr">14350 </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="L14351" class="LineNr">14351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14352" class="LineNr">14352 </span> 55/push-ebp -<span id="L14353" class="LineNr">14353 </span> 89/<- %ebp 4/r32/esp -<span id="L14354" class="LineNr">14354 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14355" class="LineNr">14355 </span><span class="Constant">$check-mu-convert-stmt:end</span>: -<span id="L14356" class="LineNr">14356 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14357" class="LineNr">14357 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14358" class="LineNr">14358 </span> 89/<- %esp 5/r32/ebp -<span id="L14359" class="LineNr">14359 </span> 5d/pop-to-ebp -<span id="L14360" class="LineNr">14360 </span> c3/return -<span id="L14361" class="LineNr">14361 </span> -<span id="L14362" class="LineNr">14362 </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="L14363" class="LineNr">14363 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14364" class="LineNr">14364 </span> 55/push-ebp -<span id="L14365" class="LineNr">14365 </span> 89/<- %ebp 4/r32/esp -<span id="L14366" class="LineNr">14366 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L14367" class="LineNr">14367 </span> 68/push 0/imm32 -<span id="L14368" class="LineNr">14368 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> -<span id="L14369" class="LineNr">14369 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L14370" class="LineNr">14370 </span> 68/push 0x60/imm32/size -<span id="L14371" class="LineNr">14371 </span> 68/push 0/imm32/read -<span id="L14372" class="LineNr">14372 </span> 68/push 0/imm32/write -<span id="L14373" class="LineNr">14373 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> -<span id="L14374" class="LineNr">14374 </span> 89/<- *(ebp-4) 4/r32/esp -<span id="L14375" class="LineNr">14375 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) -<span id="L14376" class="LineNr">14376 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14377" class="LineNr">14377 </span> 50/push-eax -<span id="L14378" class="LineNr">14378 </span> 51/push-ecx -<span id="L14379" class="LineNr">14379 </span> 52/push-edx -<span id="L14380" class="LineNr">14380 </span> 53/push-ebx -<span id="L14381" class="LineNr">14381 </span> 56/push-esi -<span id="L14382" class="LineNr">14382 </span> 57/push-edi -<span id="L14383" class="LineNr">14383 </span> <span class="subxComment"># esi = stmt</span> -<span id="L14384" class="LineNr">14384 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L14385" class="LineNr">14385 </span> <span class="subxComment"># edi = callee</span> -<span id="L14386" class="LineNr">14386 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L14387" class="LineNr">14387 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L14388" class="LineNr">14388 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L14389" class="LineNr">14389 </span> 89/<- %ecx 0/r32/eax -<span id="L14390" class="LineNr">14390 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> -<span id="L14391" class="LineNr">14391 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L14392" class="LineNr">14392 </span> 89/<- %edx 0/r32/eax -<span id="L14393" class="LineNr">14393 </span> { -<span id="L14394" class="LineNr">14394 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: -<span id="L14395" class="LineNr">14395 </span> <span class="subxComment"># if (inouts == 0) break</span> -<span id="L14396" class="LineNr">14396 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L14397" class="LineNr">14397 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14398" class="LineNr">14398 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L14399" class="LineNr">14399 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L14400" class="LineNr">14400 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14401" class="LineNr">14401 </span><span class="Constant">$check-mu-call:check-inout-type</span>: -<span id="L14402" class="LineNr">14402 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(inouts->value)</span> -<span id="L14403" class="LineNr">14403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14404" class="LineNr">14404 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L14405" class="LineNr">14405 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14406" class="LineNr">14406 </span> 89/<- %ebx 0/r32/eax -<span id="L14407" class="LineNr">14407 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L14408" class="LineNr">14408 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L14409" class="LineNr">14409 </span> { -<span id="L14410" class="LineNr">14410 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14411" class="LineNr">14411 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14412" class="LineNr">14412 </span> 89/<- %ebx 0/r32/eax -<span id="L14413" class="LineNr">14413 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L14414" class="LineNr">14414 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L14415" class="LineNr">14415 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14416" class="LineNr">14416 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14417" class="LineNr">14417 </span> 89/<- %ebx 0/r32/eax -<span id="L14418" class="LineNr">14418 </span> } -<span id="L14419" class="LineNr">14419 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L14420" class="LineNr">14420 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L14421" class="LineNr">14421 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L14422" class="LineNr">14422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14423" class="LineNr">14423 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L14424" class="LineNr">14424 </span> (<a href='mu.subx.html#L14654'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L14425" class="LineNr">14425 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14426" class="LineNr">14426 </span> { -<span id="L14427" class="LineNr">14427 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14428" class="LineNr">14428 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14429" class="LineNr">14429 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14430" class="LineNr">14430 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14431" class="LineNr">14431 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14432" class="LineNr">14432 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14433" class="LineNr">14433 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14434" class="LineNr">14434 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14435" class="LineNr">14435 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) -<span id="L14436" class="LineNr">14436 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14437" class="LineNr">14437 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14438" class="LineNr">14438 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14439" class="LineNr">14439 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L14440" class="LineNr">14440 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14441" class="LineNr">14441 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14442" class="LineNr">14442 </span> } -<span id="L14443" class="LineNr">14443 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: -<span id="L14444" class="LineNr">14444 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L14445" class="LineNr">14445 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L14446" class="LineNr">14446 </span> 89/<- %ecx 0/r32/eax -<span id="L14447" class="LineNr">14447 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L14448" class="LineNr">14448 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L14449" class="LineNr">14449 </span> 89/<- %edx 0/r32/eax -<span id="L14450" class="LineNr">14450 </span> <span class="subxComment">#</span> -<span id="L14451" class="LineNr">14451 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14452" class="LineNr">14452 </span> } -<span id="L14453" class="LineNr">14453 </span><span class="Constant">$check-mu-call:check-inout-count</span>: -<span id="L14454" class="LineNr">14454 </span> <span class="subxComment"># if (inouts == expected) proceed</span> -<span id="L14455" class="LineNr">14455 </span> 39/compare %ecx 2/r32/edx -<span id="L14456" class="LineNr">14456 </span> { -<span id="L14457" class="LineNr">14457 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14458" class="LineNr">14458 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L14459" class="LineNr">14459 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> -<span id="L14460" class="LineNr">14460 </span> { -<span id="L14461" class="LineNr">14461 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L14462" class="LineNr">14462 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14463" class="LineNr">14463 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14464" class="LineNr">14464 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14465" class="LineNr">14465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14466" class="LineNr">14466 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14467" class="LineNr">14467 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14468" class="LineNr">14468 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14469" class="LineNr">14469 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14470" class="LineNr">14470 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) -<span id="L14471" class="LineNr">14471 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14472" class="LineNr">14472 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14473" class="LineNr">14473 </span> } -<span id="L14474" class="LineNr">14474 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> -<span id="L14475" class="LineNr">14475 </span> { -<span id="L14476" class="LineNr">14476 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L14477" class="LineNr">14477 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14478" class="LineNr">14478 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14479" class="LineNr">14479 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14480" class="LineNr">14480 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14481" class="LineNr">14481 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14482" class="LineNr">14482 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14483" class="LineNr">14483 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14484" class="LineNr">14484 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14485" class="LineNr">14485 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) -<span id="L14486" class="LineNr">14486 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14487" class="LineNr">14487 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14488" class="LineNr">14488 </span> } -<span id="L14489" class="LineNr">14489 </span> } -<span id="L14490" class="LineNr">14490 </span><span class="Constant">$check-mu-call:check-outputs</span>: -<span id="L14491" class="LineNr">14491 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L14492" class="LineNr">14492 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L14493" class="LineNr">14493 </span> 89/<- %ecx 0/r32/eax -<span id="L14494" class="LineNr">14494 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> -<span id="L14495" class="LineNr">14495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L14496" class="LineNr">14496 </span> 89/<- %edx 0/r32/eax -<span id="L14497" class="LineNr">14497 </span> { -<span id="L14498" class="LineNr">14498 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: -<span id="L14499" class="LineNr">14499 </span> <span class="subxComment"># if (outputs == 0) break</span> -<span id="L14500" class="LineNr">14500 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L14501" class="LineNr">14501 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14502" class="LineNr">14502 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L14503" class="LineNr">14503 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L14504" class="LineNr">14504 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14505" class="LineNr">14505 </span><span class="Constant">$check-mu-call:check-output-type</span>: -<span id="L14506" class="LineNr">14506 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L14507" class="LineNr">14507 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14508" class="LineNr">14508 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L14509" class="LineNr">14509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14510" class="LineNr">14510 </span> 89/<- %ebx 0/r32/eax -<span id="L14511" class="LineNr">14511 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L14512" class="LineNr">14512 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L14513" class="LineNr">14513 </span> { -<span id="L14514" class="LineNr">14514 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14515" class="LineNr">14515 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14516" class="LineNr">14516 </span> 89/<- %ebx 0/r32/eax -<span id="L14517" class="LineNr">14517 </span> } -<span id="L14518" class="LineNr">14518 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L14519" class="LineNr">14519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L14520" class="LineNr">14520 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L14521" class="LineNr">14521 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14522" class="LineNr">14522 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L14523" class="LineNr">14523 </span> (<a href='mu.subx.html#L14654'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L14524" class="LineNr">14524 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14525" class="LineNr">14525 </span> { -<span id="L14526" class="LineNr">14526 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14527" class="LineNr">14527 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14528" class="LineNr">14528 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14529" class="LineNr">14529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14530" class="LineNr">14530 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14531" class="LineNr">14531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14532" class="LineNr">14532 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14533" class="LineNr">14533 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14534" class="LineNr">14534 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) -<span id="L14535" class="LineNr">14535 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14536" class="LineNr">14536 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14537" class="LineNr">14537 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14538" class="LineNr">14538 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L14539" class="LineNr">14539 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14540" class="LineNr">14540 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14541" class="LineNr">14541 </span> } -<span id="L14542" class="LineNr">14542 </span><span class="Constant">$check-mu-call:check-output-register</span>: -<span id="L14543" class="LineNr">14543 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L14544" class="LineNr">14544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14545" class="LineNr">14545 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> -<span id="L14546" class="LineNr">14546 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L14547" class="LineNr">14547 </span> 89/<- %ebx 0/r32/eax -<span id="L14548" class="LineNr">14548 </span> <span class="subxComment"># if (r == 0) error</span> -<span id="L14549" class="LineNr">14549 </span> 3d/compare-eax-and 0/imm32 -<span id="L14550" class="LineNr">14550 </span> { -<span id="L14551" class="LineNr">14551 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14552" class="LineNr">14552 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14553" class="LineNr">14553 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14554" class="LineNr">14554 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14555" class="LineNr">14555 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14556" class="LineNr">14556 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14557" class="LineNr">14557 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14558" class="LineNr">14558 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14559" class="LineNr">14559 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) -<span id="L14560" class="LineNr">14560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14561" class="LineNr">14561 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14562" class="LineNr">14562 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14563" class="LineNr">14563 </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="L14564" class="LineNr">14564 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14565" class="LineNr">14565 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14566" class="LineNr">14566 </span> } -<span id="L14567" class="LineNr">14567 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L14568" class="LineNr">14568 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14569" class="LineNr">14569 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> -<span id="L14570" class="LineNr">14570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L14571" class="LineNr">14571 </span> <span class="subxComment"># if (r != r2) error</span> -<span id="L14572" class="LineNr">14572 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L14573" class="LineNr">14573 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14574" class="LineNr">14574 </span> { -<span id="L14575" class="LineNr">14575 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14576" class="LineNr">14576 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14577" class="LineNr">14577 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14578" class="LineNr">14578 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14579" class="LineNr">14579 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14580" class="LineNr">14580 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14581" class="LineNr">14581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14582" class="LineNr">14582 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14583" class="LineNr">14583 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) -<span id="L14584" class="LineNr">14584 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L14585" class="LineNr">14585 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14586" class="LineNr">14586 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14587" class="LineNr">14587 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L14588" class="LineNr">14588 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14589" class="LineNr">14589 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14590" class="LineNr">14590 </span> } -<span id="L14591" class="LineNr">14591 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: -<span id="L14592" class="LineNr">14592 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L14593" class="LineNr">14593 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L14594" class="LineNr">14594 </span> 89/<- %ecx 0/r32/eax -<span id="L14595" class="LineNr">14595 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L14596" class="LineNr">14596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L14597" class="LineNr">14597 </span> 89/<- %edx 0/r32/eax -<span id="L14598" class="LineNr">14598 </span> <span class="subxComment">#</span> -<span id="L14599" class="LineNr">14599 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14600" class="LineNr">14600 </span> } -<span id="L14601" class="LineNr">14601 </span><span class="Constant">$check-mu-call:check-output-count</span>: -<span id="L14602" class="LineNr">14602 </span> <span class="subxComment"># if (outputs == expected) proceed</span> -<span id="L14603" class="LineNr">14603 </span> 39/compare %ecx 2/r32/edx -<span id="L14604" class="LineNr">14604 </span> { -<span id="L14605" class="LineNr">14605 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14606" class="LineNr">14606 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L14607" class="LineNr">14607 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> -<span id="L14608" class="LineNr">14608 </span> { -<span id="L14609" class="LineNr">14609 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L14610" class="LineNr">14610 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14611" class="LineNr">14611 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14612" class="LineNr">14612 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14613" class="LineNr">14613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14614" class="LineNr">14614 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14615" class="LineNr">14615 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14616" class="LineNr">14616 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14617" class="LineNr">14617 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14618" class="LineNr">14618 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) -<span id="L14619" class="LineNr">14619 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14620" class="LineNr">14620 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14621" class="LineNr">14621 </span> } -<span id="L14622" class="LineNr">14622 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> -<span id="L14623" class="LineNr">14623 </span> { -<span id="L14624" class="LineNr">14624 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L14625" class="LineNr">14625 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14626" class="LineNr">14626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14627" class="LineNr">14627 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L14628" class="LineNr">14628 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14629" class="LineNr">14629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14630" class="LineNr">14630 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L14631" class="LineNr">14631 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14632" class="LineNr">14632 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14633" class="LineNr">14633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) -<span id="L14634" class="LineNr">14634 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14635" class="LineNr">14635 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14636" class="LineNr">14636 </span> } -<span id="L14637" class="LineNr">14637 </span> } -<span id="L14638" class="LineNr">14638 </span><span class="Constant">$check-mu-call:end</span>: -<span id="L14639" class="LineNr">14639 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14640" class="LineNr">14640 </span> 5f/pop-to-edi -<span id="L14641" class="LineNr">14641 </span> 5e/pop-to-esi -<span id="L14642" class="LineNr">14642 </span> 5b/pop-to-ebx -<span id="L14643" class="LineNr">14643 </span> 5a/pop-to-edx -<span id="L14644" class="LineNr">14644 </span> 59/pop-to-ecx -<span id="L14645" class="LineNr">14645 </span> 58/pop-to-eax -<span id="L14646" class="LineNr">14646 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> -<span id="L14647" class="LineNr">14647 </span> 81 0/subop/add %esp 0x70/imm32 -<span id="L14648" class="LineNr">14648 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14649" class="LineNr">14649 </span> 89/<- %esp 5/r32/ebp -<span id="L14650" class="LineNr">14650 </span> 5d/pop-to-ebp -<span id="L14651" class="LineNr">14651 </span> c3/return -<span id="L14652" class="LineNr">14652 </span> -<span id="L14653" class="LineNr">14653 </span><span class="subxComment"># like type-equal? but takes literals into account</span> -<span id="L14654" class="LineNr">14654 </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="L14655" class="LineNr">14655 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14656" class="LineNr">14656 </span> 55/push-ebp -<span id="L14657" class="LineNr">14657 </span> 89/<- %ebp 4/r32/esp -<span id="L14658" class="LineNr">14658 </span> <span class="subxComment"># if (call == literal) return true # TODO: more precise</span> -<span id="L14659" class="LineNr">14659 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> -<span id="L14660" class="LineNr">14660 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14661" class="LineNr">14661 </span> b8/copy-to-eax 1/imm32/true -<span id="L14662" class="LineNr">14662 </span> 75/jump-if-!= $type-match?:end/disp8 -<span id="L14663" class="LineNr">14663 </span><span class="Constant">$type-match?:baseline</span>: -<span id="L14664" class="LineNr">14664 </span> <span class="subxComment"># otherwise fall back</span> -<span id="L14665" class="LineNr">14665 </span> (<a href='mu.subx.html#L14672'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14666" class="LineNr">14666 </span><span class="Constant">$type-match?:end</span>: -<span id="L14667" class="LineNr">14667 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14668" class="LineNr">14668 </span> 89/<- %esp 5/r32/ebp -<span id="L14669" class="LineNr">14669 </span> 5d/pop-to-ebp -<span id="L14670" class="LineNr">14670 </span> c3/return -<span id="L14671" class="LineNr">14671 </span> -<span id="L14672" class="LineNr">14672 </span><span class="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="L14673" class="LineNr">14673 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14674" class="LineNr">14674 </span> 55/push-ebp -<span id="L14675" class="LineNr">14675 </span> 89/<- %ebp 4/r32/esp -<span id="L14676" class="LineNr">14676 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14677" class="LineNr">14677 </span> 51/push-ecx -<span id="L14678" class="LineNr">14678 </span> 52/push-edx -<span id="L14679" class="LineNr">14679 </span> 53/push-ebx -<span id="L14680" class="LineNr">14680 </span> <span class="subxComment"># ecx = def</span> -<span id="L14681" class="LineNr">14681 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14682" class="LineNr">14682 </span> <span class="subxComment"># edx = call</span> -<span id="L14683" class="LineNr">14683 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L14684" class="LineNr">14684 </span><span class="Constant">$type-component-match?:compare-addr</span>: -<span id="L14685" class="LineNr">14685 </span> <span class="subxComment"># if (def == call) return true</span> -<span id="L14686" class="LineNr">14686 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L14687" class="LineNr">14687 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L14688" class="LineNr">14688 </span> b8/copy-to-eax 1/imm32/true -<span id="L14689" class="LineNr">14689 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L14690" class="LineNr">14690 </span> <span class="subxComment"># if (def == 0) return false</span> -<span id="L14691" class="LineNr">14691 </span> b8/copy-to-eax 0/imm32/false -<span id="L14692" class="LineNr">14692 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14693" class="LineNr">14693 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L14694" class="LineNr">14694 </span> <span class="subxComment"># if (call == 0) return false</span> -<span id="L14695" class="LineNr">14695 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14696" class="LineNr">14696 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L14697" class="LineNr">14697 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> -<span id="L14698" class="LineNr">14698 </span> { -<span id="L14699" class="LineNr">14699 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: -<span id="L14700" class="LineNr">14700 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14701" class="LineNr">14701 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14702" class="LineNr">14702 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L14703" class="LineNr">14703 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14704" class="LineNr">14704 </span><span class="Constant">$type-component-match?:type-parameter</span>: -<span id="L14705" class="LineNr">14705 </span> (<a href='mu.subx.html#L14769'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14706" class="LineNr">14706 </span> e9/jump $type-component-match?:end/disp32 -<span id="L14707" class="LineNr">14707 </span> } -<span id="L14708" class="LineNr">14708 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> -<span id="L14709" class="LineNr">14709 </span> { -<span id="L14710" class="LineNr">14710 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: -<span id="L14711" class="LineNr">14711 </span> <span class="subxComment"># if def is a list..</span> -<span id="L14712" class="LineNr">14712 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14713" class="LineNr">14713 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14714" class="LineNr">14714 </span> <span class="subxComment"># ..that's a singleton</span> -<span id="L14715" class="LineNr">14715 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L14716" class="LineNr">14716 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14717" class="LineNr">14717 </span> <span class="subxComment"># ..and whose head is a type parameter</span> -<span id="L14718" class="LineNr">14718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14719" class="LineNr">14719 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14720" class="LineNr">14720 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14721" class="LineNr">14721 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L14722" class="LineNr">14722 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14723" class="LineNr">14723 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: -<span id="L14724" class="LineNr">14724 </span> (<a href='mu.subx.html#L14769'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14725" class="LineNr">14725 </span> e9/jump $type-component-match?:end/disp32 -<span id="L14726" class="LineNr">14726 </span> } -<span id="L14727" class="LineNr">14727 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: -<span id="L14728" class="LineNr">14728 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> -<span id="L14729" class="LineNr">14729 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14730" class="LineNr">14730 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14731" class="LineNr">14731 </span> b8/copy-to-eax 0/imm32/false -<span id="L14732" class="LineNr">14732 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 -<span id="L14733" class="LineNr">14733 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> -<span id="L14734" class="LineNr">14734 </span> { -<span id="L14735" class="LineNr">14735 </span><span class="Constant">$type-component-match?:check-atom</span>: -<span id="L14736" class="LineNr">14736 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L14737" class="LineNr">14737 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14738" class="LineNr">14738 </span><span class="Constant">$type-component-match?:is-atom</span>: -<span id="L14739" class="LineNr">14739 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L14740" class="LineNr">14740 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L14741" class="LineNr">14741 </span> 0f 94/set-if-= %al -<span id="L14742" class="LineNr">14742 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L14743" class="LineNr">14743 </span> e9/jump $type-component-match?:end/disp32 -<span id="L14744" class="LineNr">14744 </span> } -<span id="L14745" class="LineNr">14745 </span><span class="Constant">$type-component-match?:check-left</span>: -<span id="L14746" class="LineNr">14746 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> -<span id="L14747" class="LineNr">14747 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14748" class="LineNr">14748 </span> 89/<- %ebx 0/r32/eax -<span id="L14749" class="LineNr">14749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14750" class="LineNr">14750 </span> (<a href='mu.subx.html#L14672'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14751" class="LineNr">14751 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14752" class="LineNr">14752 </span> 74/jump-if-= $type-component-match?:end/disp8 -<span id="L14753" class="LineNr">14753 </span><span class="Constant">$type-component-match?:check-right</span>: -<span id="L14754" class="LineNr">14754 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> -<span id="L14755" class="LineNr">14755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14756" class="LineNr">14756 </span> 89/<- %ebx 0/r32/eax -<span id="L14757" class="LineNr">14757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14758" class="LineNr">14758 </span> (<a href='mu.subx.html#L14672'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14759" class="LineNr">14759 </span><span class="Constant">$type-component-match?:end</span>: -<span id="L14760" class="LineNr">14760 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14761" class="LineNr">14761 </span> 5b/pop-to-ebx -<span id="L14762" class="LineNr">14762 </span> 5a/pop-to-edx -<span id="L14763" class="LineNr">14763 </span> 59/pop-to-ecx -<span id="L14764" class="LineNr">14764 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14765" class="LineNr">14765 </span> 89/<- %esp 5/r32/ebp -<span id="L14766" class="LineNr">14766 </span> 5d/pop-to-ebp -<span id="L14767" class="LineNr">14767 </span> c3/return -<span id="L14768" class="LineNr">14768 </span> -<span id="L14769" class="LineNr">14769 </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="L14770" class="LineNr">14770 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14771" class="LineNr">14771 </span> 55/push-ebp -<span id="L14772" class="LineNr">14772 </span> 89/<- %ebp 4/r32/esp -<span id="L14773" class="LineNr">14773 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14774" class="LineNr">14774 </span> 51/push-ecx -<span id="L14775" class="LineNr">14775 </span> <span class="subxComment">#</span> -<span id="L14776" class="LineNr">14776 </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="L14777" class="LineNr">14777 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> -<span id="L14778" class="LineNr">14778 </span> { -<span id="L14779" class="LineNr">14779 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L14780" class="LineNr">14780 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14781" class="LineNr">14781 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L14782" class="LineNr">14782 </span> 89/<- *eax 1/r32/ecx -<span id="L14783" class="LineNr">14783 </span> } -<span id="L14784" class="LineNr">14784 </span> <span class="subxComment">#</span> -<span id="L14785" class="LineNr">14785 </span> (<a href='mu.subx.html#L15121'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> -<span id="L14786" class="LineNr">14786 </span><span class="Constant">$type-parameter-match?:end</span>: -<span id="L14787" class="LineNr">14787 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14788" class="LineNr">14788 </span> 59/pop-to-ecx -<span id="L14789" class="LineNr">14789 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14790" class="LineNr">14790 </span> 89/<- %esp 5/r32/ebp -<span id="L14791" class="LineNr">14791 </span> 5d/pop-to-ebp -<span id="L14792" class="LineNr">14792 </span> c3/return -<span id="L14793" class="LineNr">14793 </span> -<span id="L14794" class="LineNr">14794 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L13399" class="LineNr">13399 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L13400" class="LineNr">13400 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13401" class="LineNr">13401 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13402" class="LineNr">13402 </span> (<a href='mu.subx.html#L14011'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13403" class="LineNr">13403 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13404" class="LineNr">13404 </span> } +<span id="L13405" class="LineNr">13405 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> +<span id="L13406" class="LineNr">13406 </span> { +<span id="L13407" class="LineNr">13407 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L13408" class="LineNr">13408 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13409" class="LineNr">13409 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13410" class="LineNr">13410 </span> (<a href='mu.subx.html#L14394'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13411" class="LineNr">13411 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13412" class="LineNr">13412 </span> } +<span id="L13413" class="LineNr">13413 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> +<span id="L13414" class="LineNr">13414 </span> { +<span id="L13415" class="LineNr">13415 </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="L13416" class="LineNr">13416 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13417" class="LineNr">13417 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13418" class="LineNr">13418 </span> (<a href='mu.subx.html#L14406'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13419" class="LineNr">13419 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13420" class="LineNr">13420 </span> } +<span id="L13421" class="LineNr">13421 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> +<span id="L13422" class="LineNr">13422 </span> { +<span id="L13423" class="LineNr">13423 </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="L13424" class="LineNr">13424 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13425" class="LineNr">13425 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13426" class="LineNr">13426 </span> (<a href='mu.subx.html#L14418'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13427" class="LineNr">13427 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13428" class="LineNr">13428 </span> } +<span id="L13429" class="LineNr">13429 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> +<span id="L13430" class="LineNr">13430 </span> { +<span id="L13431" class="LineNr">13431 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L13432" class="LineNr">13432 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13433" class="LineNr">13433 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13434" class="LineNr">13434 </span> (<a href='mu.subx.html#L14430'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13435" class="LineNr">13435 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13436" class="LineNr">13436 </span> } +<span id="L13437" class="LineNr">13437 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> +<span id="L13438" class="LineNr">13438 </span> { +<span id="L13439" class="LineNr">13439 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L13440" class="LineNr">13440 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13441" class="LineNr">13441 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13442" class="LineNr">13442 </span> (<a href='mu.subx.html#L14442'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13443" class="LineNr">13443 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13444" class="LineNr">13444 </span> } +<span id="L13445" class="LineNr">13445 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> +<span id="L13446" class="LineNr">13446 </span> { +<span id="L13447" class="LineNr">13447 </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="L13448" class="LineNr">13448 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13449" class="LineNr">13449 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13450" class="LineNr">13450 </span> (<a href='mu.subx.html#L14454'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13451" class="LineNr">13451 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13452" class="LineNr">13452 </span> } +<span id="L13453" class="LineNr">13453 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> +<span id="L13454" class="LineNr">13454 </span> { +<span id="L13455" class="LineNr">13455 </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="L13456" class="LineNr">13456 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13457" class="LineNr">13457 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13458" class="LineNr">13458 </span> (<a href='mu.subx.html#L14466'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13459" class="LineNr">13459 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13460" class="LineNr">13460 </span> } +<span id="L13461" class="LineNr">13461 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> +<span id="L13462" class="LineNr">13462 </span> { +<span id="L13463" class="LineNr">13463 </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="L13464" class="LineNr">13464 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13465" class="LineNr">13465 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13466" class="LineNr">13466 </span> (<a href='mu.subx.html#L14478'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13467" class="LineNr">13467 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13468" class="LineNr">13468 </span> } +<span id="L13469" class="LineNr">13469 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> +<span id="L13470" class="LineNr">13470 </span> { +<span id="L13471" class="LineNr">13471 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> +<span id="L13472" class="LineNr">13472 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13473" class="LineNr">13473 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13474" class="LineNr">13474 </span> (<a href='mu.subx.html#L14490'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13475" class="LineNr">13475 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L13476" class="LineNr">13476 </span> } +<span id="L13477" class="LineNr">13477 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> +<span id="L13478" class="LineNr">13478 </span> (<a href='mu.subx.html#L13489'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13479" class="LineNr">13479 </span><span class="Constant">$check-mu-primitive:end</span>: +<span id="L13480" class="LineNr">13480 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13481" class="LineNr">13481 </span> 59/pop-to-ecx +<span id="L13482" class="LineNr">13482 </span> 58/pop-to-eax +<span id="L13483" class="LineNr">13483 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13484" class="LineNr">13484 </span> 89/<- %esp 5/r32/ebp +<span id="L13485" class="LineNr">13485 </span> 5d/pop-to-ebp +<span id="L13486" class="LineNr">13486 </span> c3/return +<span id="L13487" class="LineNr">13487 </span> +<span id="L13488" class="LineNr">13488 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> +<span id="L13489" class="LineNr">13489 </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="L13490" class="LineNr">13490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13491" class="LineNr">13491 </span> 55/push-ebp +<span id="L13492" class="LineNr">13492 </span> 89/<- %ebp 4/r32/esp +<span id="L13493" class="LineNr">13493 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13494" class="LineNr">13494 </span> 50/push-eax +<span id="L13495" class="LineNr">13495 </span> 51/push-ecx +<span id="L13496" class="LineNr">13496 </span> 56/push-esi +<span id="L13497" class="LineNr">13497 </span> <span class="subxComment"># esi = stmt</span> +<span id="L13498" class="LineNr">13498 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L13499" class="LineNr">13499 </span> <span class="subxComment"># var gas/ecx: int = 2</span> +<span id="L13500" class="LineNr">13500 </span> b9/copy-to-ecx 2/imm32 +<span id="L13501" class="LineNr">13501 </span> <span class="subxH1Comment"># - check at most 1 output</span> +<span id="L13502" class="LineNr">13502 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> +<span id="L13503" class="LineNr">13503 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L13504" class="LineNr">13504 </span> { +<span id="L13505" class="LineNr">13505 </span> 3d/compare-eax-and 0/imm32 +<span id="L13506" class="LineNr">13506 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13507" class="LineNr">13507 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: +<span id="L13508" class="LineNr">13508 </span> (<a href='mu.subx.html#L13617'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13509" class="LineNr">13509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13510" class="LineNr">13510 </span> 3d/compare-eax-and 0/imm32 +<span id="L13511" class="LineNr">13511 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 +<span id="L13512" class="LineNr">13512 </span> <span class="subxComment"># check output is in a register</span> +<span id="L13513" class="LineNr">13513 </span> <span class="subxComment"># --gas</span> +<span id="L13514" class="LineNr">13514 </span> 49/decrement-ecx +<span id="L13515" class="LineNr">13515 </span> } +<span id="L13516" class="LineNr">13516 </span> <span class="subxH1Comment"># - check first inout</span> +<span id="L13517" class="LineNr">13517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13518" class="LineNr">13518 </span> { +<span id="L13519" class="LineNr">13519 </span> 3d/compare-eax-and 0/imm32 +<span id="L13520" class="LineNr">13520 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 +<span id="L13521" class="LineNr">13521 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: +<span id="L13522" class="LineNr">13522 </span> (<a href='mu.subx.html#L13578'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13523" class="LineNr">13523 </span> <span class="subxComment"># --gas</span> +<span id="L13524" class="LineNr">13524 </span> 49/decrement-ecx +<span id="L13525" class="LineNr">13525 </span> } +<span id="L13526" class="LineNr">13526 </span> <span class="subxH1Comment"># - check second inout</span> +<span id="L13527" class="LineNr">13527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13528" class="LineNr">13528 </span> { +<span id="L13529" class="LineNr">13529 </span> 3d/compare-eax-and 0/imm32 +<span id="L13530" class="LineNr">13530 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 +<span id="L13531" class="LineNr">13531 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: +<span id="L13532" class="LineNr">13532 </span> <span class="subxComment"># is a second inout allowed?</span> +<span id="L13533" class="LineNr">13533 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L13534" class="LineNr">13534 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L13535" class="LineNr">13535 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: +<span id="L13536" class="LineNr">13536 </span> (<a href='mu.subx.html#L13578'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L13537" class="LineNr">13537 </span> } +<span id="L13538" class="LineNr">13538 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: +<span id="L13539" class="LineNr">13539 </span> <span class="subxComment"># if there's a third arg, raise an error</span> +<span id="L13540" class="LineNr">13540 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L13541" class="LineNr">13541 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L13542" class="LineNr">13542 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: +<span id="L13543" class="LineNr">13543 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13544" class="LineNr">13544 </span> 5e/pop-to-esi +<span id="L13545" class="LineNr">13545 </span> 59/pop-to-ecx +<span id="L13546" class="LineNr">13546 </span> 58/pop-to-eax +<span id="L13547" class="LineNr">13547 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13548" class="LineNr">13548 </span> 89/<- %esp 5/r32/ebp +<span id="L13549" class="LineNr">13549 </span> 5d/pop-to-ebp +<span id="L13550" class="LineNr">13550 </span> c3/return +<span id="L13551" class="LineNr">13551 </span> +<span id="L13552" class="LineNr">13552 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: +<span id="L13553" class="LineNr">13553 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13554" class="LineNr">13554 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13555" class="LineNr">13555 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13556" class="LineNr">13556 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13557" class="LineNr">13557 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L13558" class="LineNr">13558 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13559" class="LineNr">13559 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13560" class="LineNr">13560 </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="L13561" class="LineNr">13561 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13562" class="LineNr">13562 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13563" class="LineNr">13563 </span> <span class="subxComment"># never gets here</span> +<span id="L13564" class="LineNr">13564 </span> +<span id="L13565" class="LineNr">13565 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: +<span id="L13566" class="LineNr">13566 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13567" class="LineNr">13567 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13568" class="LineNr">13568 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13569" class="LineNr">13569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13570" class="LineNr">13570 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L13571" class="LineNr">13571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13572" class="LineNr">13572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13573" class="LineNr">13573 </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="L13574" class="LineNr">13574 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13575" class="LineNr">13575 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13576" class="LineNr">13576 </span> <span class="subxComment"># never gets here</span> +<span id="L13577" class="LineNr">13577 </span> +<span id="L13578" class="LineNr">13578 </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="L13579" class="LineNr">13579 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13580" class="LineNr">13580 </span> 55/push-ebp +<span id="L13581" class="LineNr">13581 </span> 89/<- %ebp 4/r32/esp +<span id="L13582" class="LineNr">13582 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13583" class="LineNr">13583 </span> 50/push-eax +<span id="L13584" class="LineNr">13584 </span> 56/push-esi +<span id="L13585" class="LineNr">13585 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L13586" class="LineNr">13586 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13587" class="LineNr">13587 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13588" class="LineNr">13588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13589" class="LineNr">13589 </span> 89/<- %esi 0/r32/eax +<span id="L13590" class="LineNr">13590 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: +<span id="L13591" class="LineNr">13591 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L13592" class="LineNr">13592 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> +<span id="L13593" class="LineNr">13593 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13594" class="LineNr">13594 </span> 75/jump-if-!= $check-mu-numberlike-arg:end/disp8 +<span id="L13595" class="LineNr">13595 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: +<span id="L13596" class="LineNr">13596 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return</span> +<span id="L13597" class="LineNr">13597 </span> { +<span id="L13598" class="LineNr">13598 </span> (<a href='mu.subx.html#L23714'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L13599" class="LineNr">13599 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13600" class="LineNr">13600 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13601" class="LineNr">13601 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13602" class="LineNr">13602 </span> 8b/-> *(eax+0x10) 0/r32/eax +<span id="L13603" class="LineNr">13603 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13604" class="LineNr">13604 </span> 75/jump-if-!= $check-mu-numberlike-arg:end/disp8 +<span id="L13605" class="LineNr">13605 </span> } +<span id="L13606" class="LineNr">13606 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: +<span id="L13607" class="LineNr">13607 </span> (<a href='mu.subx.html#L13617'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L13608" class="LineNr">13608 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: +<span id="L13609" class="LineNr">13609 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13610" class="LineNr">13610 </span> 5e/pop-to-esi +<span id="L13611" class="LineNr">13611 </span> 58/pop-to-eax +<span id="L13612" class="LineNr">13612 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13613" class="LineNr">13613 </span> 89/<- %esp 5/r32/ebp +<span id="L13614" class="LineNr">13614 </span> 5d/pop-to-ebp +<span id="L13615" class="LineNr">13615 </span> c3/return +<span id="L13616" class="LineNr">13616 </span> +<span id="L13617" class="LineNr">13617 </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="L13618" class="LineNr">13618 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13619" class="LineNr">13619 </span> 55/push-ebp +<span id="L13620" class="LineNr">13620 </span> 89/<- %ebp 4/r32/esp +<span id="L13621" class="LineNr">13621 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13622" class="LineNr">13622 </span> 50/push-eax +<span id="L13623" class="LineNr">13623 </span> 56/push-esi +<span id="L13624" class="LineNr">13624 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L13625" class="LineNr">13625 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L13626" class="LineNr">13626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13627" class="LineNr">13627 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13628" class="LineNr">13628 </span> 89/<- %esi 0/r32/eax +<span id="L13629" class="LineNr">13629 </span><span class="Constant">$check-mu-numberlike-output:check-int</span>: +<span id="L13630" class="LineNr">13630 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L13631" class="LineNr">13631 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> +<span id="L13632" class="LineNr">13632 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13633" class="LineNr">13633 </span> 0f 85/jump-if-!= $check-mu-numberlike-output:end/disp32 +<span id="L13634" class="LineNr">13634 </span><span class="Constant">$check-mu-numberlike-output:check-float</span>: +<span id="L13635" class="LineNr">13635 </span> <span class="subxComment"># if t is a float, return</span> +<span id="L13636" class="LineNr">13636 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> +<span id="L13637" class="LineNr">13637 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13638" class="LineNr">13638 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 +<span id="L13639" class="LineNr">13639 </span><span class="Constant">$check-mu-numberlike-output:check-boolean</span>: +<span id="L13640" class="LineNr">13640 </span> <span class="subxComment"># if t is a boolean, return</span> +<span id="L13641" class="LineNr">13641 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> +<span id="L13642" class="LineNr">13642 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13643" class="LineNr">13643 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 +<span id="L13644" class="LineNr">13644 </span><span class="Constant">$check-mu-numberlike-output:check-byte</span>: +<span id="L13645" class="LineNr">13645 </span> <span class="subxComment"># if t is a byte, return</span> +<span id="L13646" class="LineNr">13646 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L13647" class="LineNr">13647 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13648" class="LineNr">13648 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 +<span id="L13649" class="LineNr">13649 </span><span class="Constant">$check-mu-numberlike-output:check-code-point</span>: +<span id="L13650" class="LineNr">13650 </span> <span class="subxComment"># if t is a code-point, return</span> +<span id="L13651" class="LineNr">13651 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> +<span id="L13652" class="LineNr">13652 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13653" class="LineNr">13653 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 +<span id="L13654" class="LineNr">13654 </span><span class="Constant">$check-mu-numberlike-output:check-grapheme</span>: +<span id="L13655" class="LineNr">13655 </span> <span class="subxComment"># if t is a grapheme, return</span> +<span id="L13656" class="LineNr">13656 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> +<span id="L13657" class="LineNr">13657 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13658" class="LineNr">13658 </span> 75/jump-if-!= $check-mu-numberlike-output:end/disp8 +<span id="L13659" class="LineNr">13659 </span> e9/jump $check-mu-numberlike-output:fail/disp32 +<span id="L13660" class="LineNr">13660 </span><span class="Constant">$check-mu-numberlike-output:end</span>: +<span id="L13661" class="LineNr">13661 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13662" class="LineNr">13662 </span> 5e/pop-to-esi +<span id="L13663" class="LineNr">13663 </span> 58/pop-to-eax +<span id="L13664" class="LineNr">13664 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13665" class="LineNr">13665 </span> 89/<- %esp 5/r32/ebp +<span id="L13666" class="LineNr">13666 </span> 5d/pop-to-ebp +<span id="L13667" class="LineNr">13667 </span> c3/return +<span id="L13668" class="LineNr">13668 </span> +<span id="L13669" class="LineNr">13669 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: +<span id="L13670" class="LineNr">13670 </span> <span class="subxComment"># otherwise raise an error</span> +<span id="L13671" class="LineNr">13671 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L13672" class="LineNr">13672 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L13673" class="LineNr">13673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13674" class="LineNr">13674 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L13675" class="LineNr">13675 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) +<span id="L13676" class="LineNr">13676 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13677" class="LineNr">13677 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L13678" class="LineNr">13678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L13679" class="LineNr">13679 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": only non-addr scalar args permitted\n"</span>) +<span id="L13680" class="LineNr">13680 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L13681" class="LineNr">13681 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L13682" class="LineNr">13682 </span> <span class="subxComment"># never gets here</span> +<span id="L13683" class="LineNr">13683 </span> +<span id="L13684" class="LineNr">13684 </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="L13685" class="LineNr">13685 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13686" class="LineNr">13686 </span> 55/push-ebp +<span id="L13687" class="LineNr">13687 </span> 89/<- %ebp 4/r32/esp +<span id="L13688" class="LineNr">13688 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13689" class="LineNr">13689 </span><span class="Constant">$check-mu-copy-stmt:end</span>: +<span id="L13690" class="LineNr">13690 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13691" class="LineNr">13691 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13692" class="LineNr">13692 </span> 89/<- %esp 5/r32/ebp +<span id="L13693" class="LineNr">13693 </span> 5d/pop-to-ebp +<span id="L13694" class="LineNr">13694 </span> c3/return +<span id="L13695" class="LineNr">13695 </span> +<span id="L13696" class="LineNr">13696 </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="L13697" class="LineNr">13697 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13698" class="LineNr">13698 </span> 55/push-ebp +<span id="L13699" class="LineNr">13699 </span> 89/<- %ebp 4/r32/esp +<span id="L13700" class="LineNr">13700 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13701" class="LineNr">13701 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: +<span id="L13702" class="LineNr">13702 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13703" class="LineNr">13703 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13704" class="LineNr">13704 </span> 89/<- %esp 5/r32/ebp +<span id="L13705" class="LineNr">13705 </span> 5d/pop-to-ebp +<span id="L13706" class="LineNr">13706 </span> c3/return +<span id="L13707" class="LineNr">13707 </span> +<span id="L13708" class="LineNr">13708 </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="L13709" class="LineNr">13709 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13710" class="LineNr">13710 </span> 55/push-ebp +<span id="L13711" class="LineNr">13711 </span> 89/<- %ebp 4/r32/esp +<span id="L13712" class="LineNr">13712 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13713" class="LineNr">13713 </span><span class="Constant">$check-mu-compare-stmt:end</span>: +<span id="L13714" class="LineNr">13714 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13715" class="LineNr">13715 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13716" class="LineNr">13716 </span> 89/<- %esp 5/r32/ebp +<span id="L13717" class="LineNr">13717 </span> 5d/pop-to-ebp +<span id="L13718" class="LineNr">13718 </span> c3/return +<span id="L13719" class="LineNr">13719 </span> +<span id="L13720" class="LineNr">13720 </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="L13721" class="LineNr">13721 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13722" class="LineNr">13722 </span> 55/push-ebp +<span id="L13723" class="LineNr">13723 </span> 89/<- %ebp 4/r32/esp +<span id="L13724" class="LineNr">13724 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13725" class="LineNr">13725 </span><span class="Constant">$check-mu-address-stmt:end</span>: +<span id="L13726" class="LineNr">13726 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13727" class="LineNr">13727 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13728" class="LineNr">13728 </span> 89/<- %esp 5/r32/ebp +<span id="L13729" class="LineNr">13729 </span> 5d/pop-to-ebp +<span id="L13730" class="LineNr">13730 </span> c3/return +<span id="L13731" class="LineNr">13731 </span> +<span id="L13732" class="LineNr">13732 </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="L13733" class="LineNr">13733 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13734" class="LineNr">13734 </span> 55/push-ebp +<span id="L13735" class="LineNr">13735 </span> 89/<- %ebp 4/r32/esp +<span id="L13736" class="LineNr">13736 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13737" class="LineNr">13737 </span> 50/push-eax +<span id="L13738" class="LineNr">13738 </span> 51/push-ecx +<span id="L13739" class="LineNr">13739 </span> 52/push-edx +<span id="L13740" class="LineNr">13740 </span> 53/push-ebx +<span id="L13741" class="LineNr">13741 </span> 56/push-esi +<span id="L13742" class="LineNr">13742 </span> 57/push-edi +<span id="L13743" class="LineNr">13743 </span> <span class="subxComment"># esi = stmt</span> +<span id="L13744" class="LineNr">13744 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L13745" class="LineNr">13745 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L13746" class="LineNr">13746 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L13747" class="LineNr">13747 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13748" class="LineNr">13748 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13749" class="LineNr">13749 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L13750" class="LineNr">13750 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13751" class="LineNr">13751 </span> 89/<- %ecx 0/r32/eax +<span id="L13752" class="LineNr">13752 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: +<span id="L13753" class="LineNr">13753 </span> <span class="subxH1Comment"># - check base type</span> +<span id="L13754" class="LineNr">13754 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> +<span id="L13755" class="LineNr">13755 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L13756" class="LineNr">13756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13757" class="LineNr">13757 </span> 89/<- %ebx 0/r32/eax +<span id="L13758" class="LineNr">13758 </span> { +<span id="L13759" class="LineNr">13759 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L13760" class="LineNr">13760 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L13761" class="LineNr">13761 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: +<span id="L13762" class="LineNr">13762 </span> <span class="subxComment"># if (type->left != addr) break</span> +<span id="L13763" class="LineNr">13763 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L13764" class="LineNr">13764 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L13765" class="LineNr">13765 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13766" class="LineNr">13766 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L13767" class="LineNr">13767 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: +<span id="L13768" class="LineNr">13768 </span> <span class="subxComment"># now check for register</span> +<span id="L13769" class="LineNr">13769 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L13770" class="LineNr">13770 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 +<span id="L13771" class="LineNr">13771 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: +<span id="L13772" class="LineNr">13772 </span> <span class="subxComment"># type->left is now an addr; skip it</span> +<span id="L13773" class="LineNr">13773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L13774" class="LineNr">13774 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L13775" class="LineNr">13775 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L13776" class="LineNr">13776 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: +<span id="L13777" class="LineNr">13777 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L13778" class="LineNr">13778 </span> 89/<- %ebx 0/r32/eax +<span id="L13779" class="LineNr">13779 </span> } +<span id="L13780" class="LineNr">13780 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: +<span id="L13781" class="LineNr">13781 </span> <span class="subxComment"># ensure type is a container</span> +<span id="L13782" class="LineNr">13782 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> +<span id="L13783" class="LineNr">13783 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> +<span id="L13784" class="LineNr">13784 </span> (<a href='mu.subx.html#L12027'>is-container?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L13785" class="LineNr">13785 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13786" class="LineNr">13786 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L13787" class="LineNr">13787 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> +<span id="L13788" class="LineNr">13788 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> +<span id="L13789" class="LineNr">13789 </span> 68/push 0/imm32 +<span id="L13790" class="LineNr">13790 </span> 68/push 0/imm32 +<span id="L13791" class="LineNr">13791 </span> 89/<- %ecx 4/r32/esp +<span id="L13792" class="LineNr">13792 </span> <span class="subxS1Comment"># .</span> +<span id="L13793" class="LineNr">13793 </span> (<a href='mu.subx.html#L12110'>find-typeinfo</a> %ebx %ecx) +<span id="L13794" class="LineNr">13794 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L13795" class="LineNr">13795 </span> <span class="subxS1Comment"># . reclaim container</span> +<span id="L13796" class="LineNr">13796 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13797" class="LineNr">13797 </span> <span class="subxS1Comment"># .</span> +<span id="L13798" class="LineNr">13798 </span> 89/<- %edx 0/r32/eax +<span id="L13799" class="LineNr">13799 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> +<span id="L13800" class="LineNr">13800 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13801" class="LineNr">13801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13802" class="LineNr">13802 </span> 89/<- %ecx 0/r32/eax +<span id="L13803" class="LineNr">13803 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L13804" class="LineNr">13804 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13805" class="LineNr">13805 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L13806" class="LineNr">13806 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> +<span id="L13807" class="LineNr">13807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13808" class="LineNr">13808 </span> 89/<- %ecx 0/r32/eax +<span id="L13809" class="LineNr">13809 </span> <span class="subxH1Comment"># - check for valid field</span> +<span id="L13810" class="LineNr">13810 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L13811" class="LineNr">13811 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 +<span id="L13812" class="LineNr">13812 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L13813" class="LineNr">13813 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13814" class="LineNr">13814 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13815" class="LineNr">13815 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13816" class="LineNr">13816 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13817" class="LineNr">13817 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 +<span id="L13818" class="LineNr">13818 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L13819" class="LineNr">13819 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L13820" class="LineNr">13820 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L13821" class="LineNr">13821 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13822" class="LineNr">13822 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 +<span id="L13823" class="LineNr">13823 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13824" class="LineNr">13824 </span> 89/<- %edi 0/r32/eax +<span id="L13825" class="LineNr">13825 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: +<span id="L13826" class="LineNr">13826 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L13827" class="LineNr">13827 </span> <span class="subxComment"># must be in register</span> +<span id="L13828" class="LineNr">13828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L13829" class="LineNr">13829 </span> 3d/compare-eax-and 0/imm32 +<span id="L13830" class="LineNr">13830 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 +<span id="L13831" class="LineNr">13831 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L13832" class="LineNr">13832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13833" class="LineNr">13833 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L13834" class="LineNr">13834 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L13835" class="LineNr">13835 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L13836" class="LineNr">13836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L13837" class="LineNr">13837 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L13838" class="LineNr">13838 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13839" class="LineNr">13839 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L13840" class="LineNr">13840 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: +<span id="L13841" class="LineNr">13841 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> +<span id="L13842" class="LineNr">13842 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13843" class="LineNr">13843 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L13844" class="LineNr">13844 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> +<span id="L13845" class="LineNr">13845 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> +<span id="L13846" class="LineNr">13846 </span> { +<span id="L13847" class="LineNr">13847 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L13848" class="LineNr">13848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L13849" class="LineNr">13849 </span> } +<span id="L13850" class="LineNr">13850 </span> 89/<- %edi 0/r32/eax +<span id="L13851" class="LineNr">13851 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> +<span id="L13852" class="LineNr">13852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L13853" class="LineNr">13853 </span> 89/<- %ecx 0/r32/eax +<span id="L13854" class="LineNr">13854 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> +<span id="L13855" class="LineNr">13855 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L13856" class="LineNr">13856 </span> (<a href='../131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> +<span id="L13857" class="LineNr">13857 </span> <span class="subxS1Comment"># .</span> +<span id="L13858" class="LineNr">13858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L13859" class="LineNr">13859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L13860" class="LineNr">13860 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L13861" class="LineNr">13861 </span> <span class="subxS1Comment"># .</span> +<span id="L13862" class="LineNr">13862 </span> (<a href='mu.subx.html#L15261'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> +<span id="L13863" class="LineNr">13863 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13864" class="LineNr">13864 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 +<span id="L13865" class="LineNr">13865 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L13866" class="LineNr">13866 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L13867" class="LineNr">13867 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L13868" class="LineNr">13868 </span> 3d/compare-eax-and 0/imm32/false +<span id="L13869" class="LineNr">13869 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 +<span id="L13870" class="LineNr">13870 </span><span class="Constant">$check-mu-get-stmt:end</span>: +<span id="L13871" class="LineNr">13871 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L13872" class="LineNr">13872 </span> 5f/pop-to-edi +<span id="L13873" class="LineNr">13873 </span> 5e/pop-to-esi +<span id="L13874" class="LineNr">13874 </span> 5b/pop-to-ebx +<span id="L13875" class="LineNr">13875 </span> 5a/pop-to-edx +<span id="L13876" class="LineNr">13876 </span> 59/pop-to-ecx +<span id="L13877" class="LineNr">13877 </span> 58/pop-to-eax +<span id="L13878" class="LineNr">13878 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13879" class="LineNr">13879 </span> 89/<- %esp 5/r32/ebp +<span id="L13880" class="LineNr">13880 </span> 5d/pop-to-ebp +<span id="L13881" class="LineNr">13881 </span> c3/return +<span id="L13882" class="LineNr">13882 </span> +<span id="L13883" class="LineNr">13883 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: +<span id="L13884" class="LineNr">13884 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13885" class="LineNr">13885 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13886" class="LineNr">13886 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13887" class="LineNr">13887 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13888" class="LineNr">13888 </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="L13889" class="LineNr">13889 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13890" class="LineNr">13890 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13891" class="LineNr">13891 </span> <span class="subxComment"># never gets here</span> +<span id="L13892" class="LineNr">13892 </span> +<span id="L13893" class="LineNr">13893 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: +<span id="L13894" class="LineNr">13894 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13895" class="LineNr">13895 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13896" class="LineNr">13896 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13897" class="LineNr">13897 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13898" class="LineNr">13898 </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="L13899" class="LineNr">13899 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13900" class="LineNr">13900 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13901" class="LineNr">13901 </span> <span class="subxComment"># never gets here</span> +<span id="L13902" class="LineNr">13902 </span> +<span id="L13903" class="LineNr">13903 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: +<span id="L13904" class="LineNr">13904 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13905" class="LineNr">13905 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13906" class="LineNr">13906 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13907" class="LineNr">13907 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13908" class="LineNr">13908 </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="L13909" class="LineNr">13909 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13910" class="LineNr">13910 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13911" class="LineNr">13911 </span> <span class="subxComment"># never gets here</span> +<span id="L13912" class="LineNr">13912 </span> +<span id="L13913" class="LineNr">13913 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: +<span id="L13914" class="LineNr">13914 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13915" class="LineNr">13915 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13916" class="LineNr">13916 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13917" class="LineNr">13917 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13918" class="LineNr">13918 </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="L13919" class="LineNr">13919 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13920" class="LineNr">13920 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13921" class="LineNr">13921 </span> <span class="subxComment"># never gets here</span> +<span id="L13922" class="LineNr">13922 </span> +<span id="L13923" class="LineNr">13923 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: +<span id="L13924" class="LineNr">13924 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> +<span id="L13925" class="LineNr">13925 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13926" class="LineNr">13926 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13927" class="LineNr">13927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13928" class="LineNr">13928 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13929" class="LineNr">13929 </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="L13930" class="LineNr">13930 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13931" class="LineNr">13931 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13932" class="LineNr">13932 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L13933" class="LineNr">13933 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13934" class="LineNr">13934 </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="L13935" class="LineNr">13935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13936" class="LineNr">13936 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13937" class="LineNr">13937 </span> <span class="subxComment"># never gets here</span> +<span id="L13938" class="LineNr">13938 </span> +<span id="L13939" class="LineNr">13939 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: +<span id="L13940" class="LineNr">13940 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13941" class="LineNr">13941 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13942" class="LineNr">13942 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13943" class="LineNr">13943 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13944" class="LineNr">13944 </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="L13945" class="LineNr">13945 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L13946" class="LineNr">13946 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L13947" class="LineNr">13947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L13948" class="LineNr">13948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13949" class="LineNr">13949 </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="L13950" class="LineNr">13950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13951" class="LineNr">13951 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13952" class="LineNr">13952 </span> <span class="subxComment"># never gets here</span> +<span id="L13953" class="LineNr">13953 </span> +<span id="L13954" class="LineNr">13954 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: +<span id="L13955" class="LineNr">13955 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> +<span id="L13956" class="LineNr">13956 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13957" class="LineNr">13957 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13958" class="LineNr">13958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13959" class="LineNr">13959 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13960" class="LineNr">13960 </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="L13961" class="LineNr">13961 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> +<span id="L13962" class="LineNr">13962 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span>/imm32 +<span id="L13963" class="LineNr">13963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) *(edi+ebx<<2+0xc)) +<span id="L13964" class="LineNr">13964 </span> <span class="subxS1Comment"># .</span> +<span id="L13965" class="LineNr">13965 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) +<span id="L13966" class="LineNr">13966 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L13967" class="LineNr">13967 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13968" class="LineNr">13968 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L13969" class="LineNr">13969 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13970" class="LineNr">13970 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13971" class="LineNr">13971 </span> <span class="subxComment"># never gets here</span> +<span id="L13972" class="LineNr">13972 </span> +<span id="L13973" class="LineNr">13973 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: +<span id="L13974" class="LineNr">13974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13975" class="LineNr">13975 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13976" class="LineNr">13976 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13977" class="LineNr">13977 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13978" class="LineNr">13978 </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="L13979" class="LineNr">13979 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L13980" class="LineNr">13980 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13981" class="LineNr">13981 </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="L13982" class="LineNr">13982 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13983" class="LineNr">13983 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13984" class="LineNr">13984 </span> <span class="subxComment"># never gets here</span> +<span id="L13985" class="LineNr">13985 </span> +<span id="L13986" class="LineNr">13986 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: +<span id="L13987" class="LineNr">13987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13988" class="LineNr">13988 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13989" class="LineNr">13989 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L13990" class="LineNr">13990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L13991" class="LineNr">13991 </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 address\n"</span>) +<span id="L13992" class="LineNr">13992 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L13993" class="LineNr">13993 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L13994" class="LineNr">13994 </span> <span class="subxComment"># never gets here</span> +<span id="L13995" class="LineNr">13995 </span> +<span id="L13996" class="LineNr">13996 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: +<span id="L13997" class="LineNr">13997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L13998" class="LineNr">13998 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L13999" class="LineNr">13999 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14000" class="LineNr">14000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14001" class="LineNr">14001 </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="L14002" class="LineNr">14002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) +<span id="L14003" class="LineNr">14003 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) +<span id="L14004" class="LineNr">14004 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L394'>Type-id</a></span>/imm32 +<span id="L14005" class="LineNr">14005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) *(edi+ebx<<2+0xc)) +<span id="L14006" class="LineNr">14006 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L14007" class="LineNr">14007 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14008" class="LineNr">14008 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14009" class="LineNr">14009 </span> <span class="subxComment"># never gets here</span> +<span id="L14010" class="LineNr">14010 </span> +<span id="L14011" class="LineNr">14011 </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="L14012" class="LineNr">14012 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14013" class="LineNr">14013 </span> 55/push-ebp +<span id="L14014" class="LineNr">14014 </span> 89/<- %ebp 4/r32/esp +<span id="L14015" class="LineNr">14015 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14016" class="LineNr">14016 </span> 50/push-eax +<span id="L14017" class="LineNr">14017 </span> 51/push-ecx +<span id="L14018" class="LineNr">14018 </span> 52/push-edx +<span id="L14019" class="LineNr">14019 </span> 53/push-ebx +<span id="L14020" class="LineNr">14020 </span> 56/push-esi +<span id="L14021" class="LineNr">14021 </span> 57/push-edi +<span id="L14022" class="LineNr">14022 </span> <span class="subxComment"># esi = stmt</span> +<span id="L14023" class="LineNr">14023 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L14024" class="LineNr">14024 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L14025" class="LineNr">14025 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L14026" class="LineNr">14026 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14027" class="LineNr">14027 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: +<span id="L14028" class="LineNr">14028 </span> 3d/compare-eax-and 0/imm32 +<span id="L14029" class="LineNr">14029 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L14030" class="LineNr">14030 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14031" class="LineNr">14031 </span> 89/<- %ecx 0/r32/eax +<span id="L14032" class="LineNr">14032 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L14033" class="LineNr">14033 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L14034" class="LineNr">14034 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14035" class="LineNr">14035 </span> 89/<- %ebx 0/r32/eax +<span id="L14036" class="LineNr">14036 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L14037" class="LineNr">14037 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14038" class="LineNr">14038 </span> { +<span id="L14039" class="LineNr">14039 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14040" class="LineNr">14040 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L14041" class="LineNr">14041 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14042" class="LineNr">14042 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 +<span id="L14043" class="LineNr">14043 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L14044" class="LineNr">14044 </span> } +<span id="L14045" class="LineNr">14045 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: +<span id="L14046" class="LineNr">14046 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L14047" class="LineNr">14047 </span> { +<span id="L14048" class="LineNr">14048 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14049" class="LineNr">14049 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L14050" class="LineNr">14050 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14051" class="LineNr">14051 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14052" class="LineNr">14052 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14053" class="LineNr">14053 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L14054" class="LineNr">14054 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14055" class="LineNr">14055 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14056" class="LineNr">14056 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L14057" class="LineNr">14057 </span> } +<span id="L14058" class="LineNr">14058 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L14059" class="LineNr">14059 </span> { +<span id="L14060" class="LineNr">14060 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14061" class="LineNr">14061 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L14062" class="LineNr">14062 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14063" class="LineNr">14063 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14064" class="LineNr">14064 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: +<span id="L14065" class="LineNr">14065 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14066" class="LineNr">14066 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14067" class="LineNr">14067 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L14068" class="LineNr">14068 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14069" class="LineNr">14069 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L14070" class="LineNr">14070 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: +<span id="L14071" class="LineNr">14071 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L14072" class="LineNr">14072 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L14073" class="LineNr">14073 </span> } +<span id="L14074" class="LineNr">14074 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L14075" class="LineNr">14075 </span> { +<span id="L14076" class="LineNr">14076 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14077" class="LineNr">14077 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L14078" class="LineNr">14078 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14079" class="LineNr">14079 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14080" class="LineNr">14080 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: +<span id="L14081" class="LineNr">14081 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L14082" class="LineNr">14082 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 +<span id="L14083" class="LineNr">14083 </span> } +<span id="L14084" class="LineNr">14084 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L14085" class="LineNr">14085 </span> { +<span id="L14086" class="LineNr">14086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14087" class="LineNr">14087 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L14088" class="LineNr">14088 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14089" class="LineNr">14089 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14090" class="LineNr">14090 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14091" class="LineNr">14091 </span> 89/<- %ebx 0/r32/eax +<span id="L14092" class="LineNr">14092 </span> } +<span id="L14093" class="LineNr">14093 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L14094" class="LineNr">14094 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L14095" class="LineNr">14095 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14096" class="LineNr">14096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14097" class="LineNr">14097 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: +<span id="L14098" class="LineNr">14098 </span> 3d/compare-eax-and 0/imm32 +<span id="L14099" class="LineNr">14099 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L14100" class="LineNr">14100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14101" class="LineNr">14101 </span> 89/<- %ecx 0/r32/eax +<span id="L14102" class="LineNr">14102 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L14103" class="LineNr">14103 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L14104" class="LineNr">14104 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14105" class="LineNr">14105 </span> 89/<- %edx 0/r32/eax +<span id="L14106" class="LineNr">14106 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> +<span id="L14107" class="LineNr">14107 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14108" class="LineNr">14108 </span> { +<span id="L14109" class="LineNr">14109 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14110" class="LineNr">14110 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: +<span id="L14111" class="LineNr">14111 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L14112" class="LineNr">14112 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14113" class="LineNr">14113 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L14114" class="LineNr">14114 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L14115" class="LineNr">14115 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14116" class="LineNr">14116 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L14117" class="LineNr">14117 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> +<span id="L14118" class="LineNr">14118 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14119" class="LineNr">14119 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 +<span id="L14120" class="LineNr">14120 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L14121" class="LineNr">14121 </span> } +<span id="L14122" class="LineNr">14122 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> +<span id="L14123" class="LineNr">14123 </span> { +<span id="L14124" class="LineNr">14124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14125" class="LineNr">14125 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: +<span id="L14126" class="LineNr">14126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14127" class="LineNr">14127 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L14128" class="LineNr">14128 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14129" class="LineNr">14129 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L14130" class="LineNr">14130 </span> } +<span id="L14131" class="LineNr">14131 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: +<span id="L14132" class="LineNr">14132 </span> <span class="subxComment"># check index is either a literal or in a register</span> +<span id="L14133" class="LineNr">14133 </span> { +<span id="L14134" class="LineNr">14134 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L14135" class="LineNr">14135 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14136" class="LineNr">14136 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14137" class="LineNr">14137 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: +<span id="L14138" class="LineNr">14138 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L14139" class="LineNr">14139 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 +<span id="L14140" class="LineNr">14140 </span> } +<span id="L14141" class="LineNr">14141 </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="L14142" class="LineNr">14142 </span> { +<span id="L14143" class="LineNr">14143 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L14144" class="LineNr">14144 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14145" class="LineNr">14145 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14146" class="LineNr">14146 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: +<span id="L14147" class="LineNr">14147 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14148" class="LineNr">14148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14149" class="LineNr">14149 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> +<span id="L14150" class="LineNr">14150 </span> 3d/compare-eax-and 1/imm32 +<span id="L14151" class="LineNr">14151 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14152" class="LineNr">14152 </span> 3d/compare-eax-and 2/imm32 +<span id="L14153" class="LineNr">14153 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14154" class="LineNr">14154 </span> 3d/compare-eax-and 4/imm32 +<span id="L14155" class="LineNr">14155 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14156" class="LineNr">14156 </span> 3d/compare-eax-and 8/imm32 +<span id="L14157" class="LineNr">14157 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14158" class="LineNr">14158 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 +<span id="L14159" class="LineNr">14159 </span> } +<span id="L14160" class="LineNr">14160 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L14161" class="LineNr">14161 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14162" class="LineNr">14162 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14163" class="LineNr">14163 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14164" class="LineNr">14164 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14165" class="LineNr">14165 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 +<span id="L14166" class="LineNr">14166 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L14167" class="LineNr">14167 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L14168" class="LineNr">14168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L14169" class="LineNr">14169 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14170" class="LineNr">14170 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 +<span id="L14171" class="LineNr">14171 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14172" class="LineNr">14172 </span> 89/<- %edi 0/r32/eax +<span id="L14173" class="LineNr">14173 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L14174" class="LineNr">14174 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L14175" class="LineNr">14175 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14176" class="LineNr">14176 </span> 89/<- %edx 0/r32/eax +<span id="L14177" class="LineNr">14177 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14178" class="LineNr">14178 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L14179" class="LineNr">14179 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L14180" class="LineNr">14180 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14181" class="LineNr">14181 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L14182" class="LineNr">14182 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14183" class="LineNr">14183 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L14184" class="LineNr">14184 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L14185" class="LineNr">14185 </span> (<a href='mu.subx.html#L15202'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L14186" class="LineNr">14186 </span> 89/<- %ebx 0/r32/eax +<span id="L14187" class="LineNr">14187 </span> (<a href='mu.subx.html#L15202'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L14188" class="LineNr">14188 </span> (<a href='mu.subx.html#L15261'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L14189" class="LineNr">14189 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14190" class="LineNr">14190 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 +<span id="L14191" class="LineNr">14191 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L14192" class="LineNr">14192 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L14193" class="LineNr">14193 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14194" class="LineNr">14194 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14195" class="LineNr">14195 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 +<span id="L14196" class="LineNr">14196 </span><span class="Constant">$check-mu-index-stmt:end</span>: +<span id="L14197" class="LineNr">14197 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14198" class="LineNr">14198 </span> 5f/pop-to-edi +<span id="L14199" class="LineNr">14199 </span> 5e/pop-to-esi +<span id="L14200" class="LineNr">14200 </span> 5b/pop-to-ebx +<span id="L14201" class="LineNr">14201 </span> 5a/pop-to-edx +<span id="L14202" class="LineNr">14202 </span> 59/pop-to-ecx +<span id="L14203" class="LineNr">14203 </span> 58/pop-to-eax +<span id="L14204" class="LineNr">14204 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14205" class="LineNr">14205 </span> 89/<- %esp 5/r32/ebp +<span id="L14206" class="LineNr">14206 </span> 5d/pop-to-ebp +<span id="L14207" class="LineNr">14207 </span> c3/return +<span id="L14208" class="LineNr">14208 </span> +<span id="L14209" class="LineNr">14209 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: +<span id="L14210" class="LineNr">14210 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14211" class="LineNr">14211 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14212" class="LineNr">14212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14213" class="LineNr">14213 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14214" class="LineNr">14214 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L14215" class="LineNr">14215 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14216" class="LineNr">14216 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14217" class="LineNr">14217 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L14218" class="LineNr">14218 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14219" class="LineNr">14219 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14220" class="LineNr">14220 </span> <span class="subxComment"># never gets here</span> +<span id="L14221" class="LineNr">14221 </span> +<span id="L14222" class="LineNr">14222 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: +<span id="L14223" class="LineNr">14223 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14224" class="LineNr">14224 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14225" class="LineNr">14225 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14226" class="LineNr">14226 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14227" class="LineNr">14227 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) +<span id="L14228" class="LineNr">14228 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14229" class="LineNr">14229 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14230" class="LineNr">14230 </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="L14231" class="LineNr">14231 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14232" class="LineNr">14232 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14233" class="LineNr">14233 </span> <span class="subxComment"># never gets here</span> +<span id="L14234" class="LineNr">14234 </span> +<span id="L14235" class="LineNr">14235 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: +<span id="L14236" class="LineNr">14236 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14237" class="LineNr">14237 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14238" class="LineNr">14238 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14239" class="LineNr">14239 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14240" class="LineNr">14240 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L14241" class="LineNr">14241 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14242" class="LineNr">14242 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14243" class="LineNr">14243 </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="L14244" class="LineNr">14244 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14245" class="LineNr">14245 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14246" class="LineNr">14246 </span> <span class="subxComment"># never gets here</span> +<span id="L14247" class="LineNr">14247 </span> +<span id="L14248" class="LineNr">14248 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: +<span id="L14249" class="LineNr">14249 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14250" class="LineNr">14250 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14251" class="LineNr">14251 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14252" class="LineNr">14252 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14253" class="LineNr">14253 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L14254" class="LineNr">14254 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14255" class="LineNr">14255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14256" class="LineNr">14256 </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="L14257" class="LineNr">14257 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14258" class="LineNr">14258 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14259" class="LineNr">14259 </span> <span class="subxComment"># never gets here</span> +<span id="L14260" class="LineNr">14260 </span> +<span id="L14261" class="LineNr">14261 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: +<span id="L14262" class="LineNr">14262 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14263" class="LineNr">14263 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14264" class="LineNr">14264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14265" class="LineNr">14265 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14266" class="LineNr">14266 </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="L14267" class="LineNr">14267 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14268" class="LineNr">14268 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14269" class="LineNr">14269 </span> <span class="subxComment"># never gets here</span> +<span id="L14270" class="LineNr">14270 </span> +<span id="L14271" class="LineNr">14271 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: +<span id="L14272" class="LineNr">14272 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14273" class="LineNr">14273 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14274" class="LineNr">14274 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14275" class="LineNr">14275 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14276" class="LineNr">14276 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L14277" class="LineNr">14277 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14278" class="LineNr">14278 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14279" class="LineNr">14279 </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="L14280" class="LineNr">14280 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14281" class="LineNr">14281 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14282" class="LineNr">14282 </span> <span class="subxComment"># never gets here</span> +<span id="L14283" class="LineNr">14283 </span> +<span id="L14284" class="LineNr">14284 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: +<span id="L14285" class="LineNr">14285 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14286" class="LineNr">14286 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14287" class="LineNr">14287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14288" class="LineNr">14288 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14289" class="LineNr">14289 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) +<span id="L14290" class="LineNr">14290 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14291" class="LineNr">14291 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14292" class="LineNr">14292 </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="L14293" class="LineNr">14293 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14294" class="LineNr">14294 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14295" class="LineNr">14295 </span> <span class="subxComment"># never gets here</span> +<span id="L14296" class="LineNr">14296 </span> +<span id="L14297" class="LineNr">14297 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: +<span id="L14298" class="LineNr">14298 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14299" class="LineNr">14299 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14300" class="LineNr">14300 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14301" class="LineNr">14301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14302" class="LineNr">14302 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L14303" class="LineNr">14303 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14304" class="LineNr">14304 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14305" class="LineNr">14305 </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="L14306" class="LineNr">14306 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14307" class="LineNr">14307 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14308" class="LineNr">14308 </span> <span class="subxComment"># never gets here</span> +<span id="L14309" class="LineNr">14309 </span> +<span id="L14310" class="LineNr">14310 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: +<span id="L14311" class="LineNr">14311 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14312" class="LineNr">14312 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14313" class="LineNr">14313 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14314" class="LineNr">14314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14315" class="LineNr">14315 </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="L14316" class="LineNr">14316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14317" class="LineNr">14317 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14318" class="LineNr">14318 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14319" class="LineNr">14319 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14320" class="LineNr">14320 </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="L14321" class="LineNr">14321 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14322" class="LineNr">14322 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14323" class="LineNr">14323 </span> <span class="subxComment"># never gets here</span> +<span id="L14324" class="LineNr">14324 </span> +<span id="L14325" class="LineNr">14325 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: +<span id="L14326" class="LineNr">14326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14327" class="LineNr">14327 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14328" class="LineNr">14328 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14329" class="LineNr">14329 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14330" class="LineNr">14330 </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="L14331" class="LineNr">14331 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14332" class="LineNr">14332 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14333" class="LineNr">14333 </span> <span class="subxComment"># never gets here</span> +<span id="L14334" class="LineNr">14334 </span> +<span id="L14335" class="LineNr">14335 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: +<span id="L14336" class="LineNr">14336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14337" class="LineNr">14337 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14338" class="LineNr">14338 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14339" class="LineNr">14339 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14340" class="LineNr">14340 </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="L14341" class="LineNr">14341 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14342" class="LineNr">14342 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14343" class="LineNr">14343 </span> <span class="subxComment"># never gets here</span> +<span id="L14344" class="LineNr">14344 </span> +<span id="L14345" class="LineNr">14345 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: +<span id="L14346" class="LineNr">14346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14347" class="LineNr">14347 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14348" class="LineNr">14348 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14349" class="LineNr">14349 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14350" class="LineNr">14350 </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="L14351" class="LineNr">14351 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14352" class="LineNr">14352 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14353" class="LineNr">14353 </span> <span class="subxComment"># never gets here</span> +<span id="L14354" class="LineNr">14354 </span> +<span id="L14355" class="LineNr">14355 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: +<span id="L14356" class="LineNr">14356 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14357" class="LineNr">14357 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14358" class="LineNr">14358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14359" class="LineNr">14359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14360" class="LineNr">14360 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L14361" class="LineNr">14361 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14362" class="LineNr">14362 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14363" class="LineNr">14363 </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="L14364" class="LineNr">14364 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14365" class="LineNr">14365 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14366" class="LineNr">14366 </span> <span class="subxComment"># never gets here</span> +<span id="L14367" class="LineNr">14367 </span> +<span id="L14368" class="LineNr">14368 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: +<span id="L14369" class="LineNr">14369 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14370" class="LineNr">14370 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14371" class="LineNr">14371 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14372" class="LineNr">14372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14373" class="LineNr">14373 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L14374" class="LineNr">14374 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14375" class="LineNr">14375 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14376" class="LineNr">14376 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an address\n"</span>) +<span id="L14377" class="LineNr">14377 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14378" class="LineNr">14378 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14379" class="LineNr">14379 </span> <span class="subxComment"># never gets here</span> +<span id="L14380" class="LineNr">14380 </span> +<span id="L14381" class="LineNr">14381 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: +<span id="L14382" class="LineNr">14382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L14383" class="LineNr">14383 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L14384" class="LineNr">14384 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14385" class="LineNr">14385 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14386" class="LineNr">14386 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L14387" class="LineNr">14387 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14388" class="LineNr">14388 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L14389" class="LineNr">14389 </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="L14390" class="LineNr">14390 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L14391" class="LineNr">14391 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L14392" class="LineNr">14392 </span> <span class="subxComment"># never gets here</span> +<span id="L14393" class="LineNr">14393 </span> +<span id="L14394" class="LineNr">14394 </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="L14395" class="LineNr">14395 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14396" class="LineNr">14396 </span> 55/push-ebp +<span id="L14397" class="LineNr">14397 </span> 89/<- %ebp 4/r32/esp +<span id="L14398" class="LineNr">14398 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14399" class="LineNr">14399 </span><span class="Constant">$check-mu-length-stmt:end</span>: +<span id="L14400" class="LineNr">14400 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14401" class="LineNr">14401 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14402" class="LineNr">14402 </span> 89/<- %esp 5/r32/ebp +<span id="L14403" class="LineNr">14403 </span> 5d/pop-to-ebp +<span id="L14404" class="LineNr">14404 </span> c3/return +<span id="L14405" class="LineNr">14405 </span> +<span id="L14406" class="LineNr">14406 </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="L14407" class="LineNr">14407 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14408" class="LineNr">14408 </span> 55/push-ebp +<span id="L14409" class="LineNr">14409 </span> 89/<- %ebp 4/r32/esp +<span id="L14410" class="LineNr">14410 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14411" class="LineNr">14411 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: +<span id="L14412" class="LineNr">14412 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14413" class="LineNr">14413 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14414" class="LineNr">14414 </span> 89/<- %esp 5/r32/ebp +<span id="L14415" class="LineNr">14415 </span> 5d/pop-to-ebp +<span id="L14416" class="LineNr">14416 </span> c3/return +<span id="L14417" class="LineNr">14417 </span> +<span id="L14418" class="LineNr">14418 </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="L14419" class="LineNr">14419 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14420" class="LineNr">14420 </span> 55/push-ebp +<span id="L14421" class="LineNr">14421 </span> 89/<- %ebp 4/r32/esp +<span id="L14422" class="LineNr">14422 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14423" class="LineNr">14423 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: +<span id="L14424" class="LineNr">14424 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14425" class="LineNr">14425 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14426" class="LineNr">14426 </span> 89/<- %esp 5/r32/ebp +<span id="L14427" class="LineNr">14427 </span> 5d/pop-to-ebp +<span id="L14428" class="LineNr">14428 </span> c3/return +<span id="L14429" class="LineNr">14429 </span> +<span id="L14430" class="LineNr">14430 </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="L14431" class="LineNr">14431 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14432" class="LineNr">14432 </span> 55/push-ebp +<span id="L14433" class="LineNr">14433 </span> 89/<- %ebp 4/r32/esp +<span id="L14434" class="LineNr">14434 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14435" class="LineNr">14435 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: +<span id="L14436" class="LineNr">14436 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14437" class="LineNr">14437 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14438" class="LineNr">14438 </span> 89/<- %esp 5/r32/ebp +<span id="L14439" class="LineNr">14439 </span> 5d/pop-to-ebp +<span id="L14440" class="LineNr">14440 </span> c3/return +<span id="L14441" class="LineNr">14441 </span> +<span id="L14442" class="LineNr">14442 </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="L14443" class="LineNr">14443 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14444" class="LineNr">14444 </span> 55/push-ebp +<span id="L14445" class="LineNr">14445 </span> 89/<- %ebp 4/r32/esp +<span id="L14446" class="LineNr">14446 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14447" class="LineNr">14447 </span><span class="Constant">$check-mu-populate-stmt:end</span>: +<span id="L14448" class="LineNr">14448 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14449" class="LineNr">14449 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14450" class="LineNr">14450 </span> 89/<- %esp 5/r32/ebp +<span id="L14451" class="LineNr">14451 </span> 5d/pop-to-ebp +<span id="L14452" class="LineNr">14452 </span> c3/return +<span id="L14453" class="LineNr">14453 </span> +<span id="L14454" class="LineNr">14454 </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="L14455" class="LineNr">14455 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14456" class="LineNr">14456 </span> 55/push-ebp +<span id="L14457" class="LineNr">14457 </span> 89/<- %ebp 4/r32/esp +<span id="L14458" class="LineNr">14458 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14459" class="LineNr">14459 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: +<span id="L14460" class="LineNr">14460 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14461" class="LineNr">14461 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14462" class="LineNr">14462 </span> 89/<- %esp 5/r32/ebp +<span id="L14463" class="LineNr">14463 </span> 5d/pop-to-ebp +<span id="L14464" class="LineNr">14464 </span> c3/return +<span id="L14465" class="LineNr">14465 </span> +<span id="L14466" class="LineNr">14466 </span><span class="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="L14467" class="LineNr">14467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14468" class="LineNr">14468 </span> 55/push-ebp +<span id="L14469" class="LineNr">14469 </span> 89/<- %ebp 4/r32/esp +<span id="L14470" class="LineNr">14470 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14471" class="LineNr">14471 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: +<span id="L14472" class="LineNr">14472 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14473" class="LineNr">14473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14474" class="LineNr">14474 </span> 89/<- %esp 5/r32/ebp +<span id="L14475" class="LineNr">14475 </span> 5d/pop-to-ebp +<span id="L14476" class="LineNr">14476 </span> c3/return +<span id="L14477" class="LineNr">14477 </span> +<span id="L14478" class="LineNr">14478 </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="L14479" class="LineNr">14479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14480" class="LineNr">14480 </span> 55/push-ebp +<span id="L14481" class="LineNr">14481 </span> 89/<- %ebp 4/r32/esp +<span id="L14482" class="LineNr">14482 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14483" class="LineNr">14483 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: +<span id="L14484" class="LineNr">14484 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14485" class="LineNr">14485 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14486" class="LineNr">14486 </span> 89/<- %esp 5/r32/ebp +<span id="L14487" class="LineNr">14487 </span> 5d/pop-to-ebp +<span id="L14488" class="LineNr">14488 </span> c3/return +<span id="L14489" class="LineNr">14489 </span> +<span id="L14490" class="LineNr">14490 </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="L14491" class="LineNr">14491 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14492" class="LineNr">14492 </span> 55/push-ebp +<span id="L14493" class="LineNr">14493 </span> 89/<- %ebp 4/r32/esp +<span id="L14494" class="LineNr">14494 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14495" class="LineNr">14495 </span><span class="Constant">$check-mu-convert-stmt:end</span>: +<span id="L14496" class="LineNr">14496 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14497" class="LineNr">14497 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14498" class="LineNr">14498 </span> 89/<- %esp 5/r32/ebp +<span id="L14499" class="LineNr">14499 </span> 5d/pop-to-ebp +<span id="L14500" class="LineNr">14500 </span> c3/return +<span id="L14501" class="LineNr">14501 </span> +<span id="L14502" class="LineNr">14502 </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="L14503" class="LineNr">14503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14504" class="LineNr">14504 </span> 55/push-ebp +<span id="L14505" class="LineNr">14505 </span> 89/<- %ebp 4/r32/esp +<span id="L14506" class="LineNr">14506 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L14507" class="LineNr">14507 </span> 68/push 0/imm32 +<span id="L14508" class="LineNr">14508 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> +<span id="L14509" class="LineNr">14509 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L14510" class="LineNr">14510 </span> 68/push 0x60/imm32/size +<span id="L14511" class="LineNr">14511 </span> 68/push 0/imm32/read +<span id="L14512" class="LineNr">14512 </span> 68/push 0/imm32/write +<span id="L14513" class="LineNr">14513 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> +<span id="L14514" class="LineNr">14514 </span> 89/<- *(ebp-4) 4/r32/esp +<span id="L14515" class="LineNr">14515 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) +<span id="L14516" class="LineNr">14516 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14517" class="LineNr">14517 </span> 50/push-eax +<span id="L14518" class="LineNr">14518 </span> 51/push-ecx +<span id="L14519" class="LineNr">14519 </span> 52/push-edx +<span id="L14520" class="LineNr">14520 </span> 53/push-ebx +<span id="L14521" class="LineNr">14521 </span> 56/push-esi +<span id="L14522" class="LineNr">14522 </span> 57/push-edi +<span id="L14523" class="LineNr">14523 </span> <span class="subxComment"># esi = stmt</span> +<span id="L14524" class="LineNr">14524 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L14525" class="LineNr">14525 </span> <span class="subxComment"># edi = callee</span> +<span id="L14526" class="LineNr">14526 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L14527" class="LineNr">14527 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L14528" class="LineNr">14528 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L14529" class="LineNr">14529 </span> 89/<- %ecx 0/r32/eax +<span id="L14530" class="LineNr">14530 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> +<span id="L14531" class="LineNr">14531 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L14532" class="LineNr">14532 </span> 89/<- %edx 0/r32/eax +<span id="L14533" class="LineNr">14533 </span> { +<span id="L14534" class="LineNr">14534 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: +<span id="L14535" class="LineNr">14535 </span> <span class="subxComment"># if (inouts == 0) break</span> +<span id="L14536" class="LineNr">14536 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L14537" class="LineNr">14537 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14538" class="LineNr">14538 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L14539" class="LineNr">14539 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L14540" class="LineNr">14540 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14541" class="LineNr">14541 </span><span class="Constant">$check-mu-call:check-inout-type</span>: +<span id="L14542" class="LineNr">14542 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(inouts->value)</span> +<span id="L14543" class="LineNr">14543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14544" class="LineNr">14544 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L14545" class="LineNr">14545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14546" class="LineNr">14546 </span> 89/<- %ebx 0/r32/eax +<span id="L14547" class="LineNr">14547 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L14548" class="LineNr">14548 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L14549" class="LineNr">14549 </span> { +<span id="L14550" class="LineNr">14550 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14551" class="LineNr">14551 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14552" class="LineNr">14552 </span> 89/<- %ebx 0/r32/eax +<span id="L14553" class="LineNr">14553 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L14554" class="LineNr">14554 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L14555" class="LineNr">14555 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14556" class="LineNr">14556 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14557" class="LineNr">14557 </span> 89/<- %ebx 0/r32/eax +<span id="L14558" class="LineNr">14558 </span> } +<span id="L14559" class="LineNr">14559 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L14560" class="LineNr">14560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L14561" class="LineNr">14561 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L14562" class="LineNr">14562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14563" class="LineNr">14563 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L14564" class="LineNr">14564 </span> (<a href='mu.subx.html#L14794'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L14565" class="LineNr">14565 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14566" class="LineNr">14566 </span> { +<span id="L14567" class="LineNr">14567 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L14568" class="LineNr">14568 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14569" class="LineNr">14569 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14570" class="LineNr">14570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14571" class="LineNr">14571 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14572" class="LineNr">14572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14573" class="LineNr">14573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14574" class="LineNr">14574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14575" class="LineNr">14575 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) +<span id="L14576" class="LineNr">14576 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14577" class="LineNr">14577 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14578" class="LineNr">14578 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14579" class="LineNr">14579 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L14580" class="LineNr">14580 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14581" class="LineNr">14581 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14582" class="LineNr">14582 </span> } +<span id="L14583" class="LineNr">14583 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: +<span id="L14584" class="LineNr">14584 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L14585" class="LineNr">14585 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14586" class="LineNr">14586 </span> 89/<- %ecx 0/r32/eax +<span id="L14587" class="LineNr">14587 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L14588" class="LineNr">14588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L14589" class="LineNr">14589 </span> 89/<- %edx 0/r32/eax +<span id="L14590" class="LineNr">14590 </span> <span class="subxComment">#</span> +<span id="L14591" class="LineNr">14591 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L14592" class="LineNr">14592 </span> } +<span id="L14593" class="LineNr">14593 </span><span class="Constant">$check-mu-call:check-inout-count</span>: +<span id="L14594" class="LineNr">14594 </span> <span class="subxComment"># if (inouts == expected) proceed</span> +<span id="L14595" class="LineNr">14595 </span> 39/compare %ecx 2/r32/edx +<span id="L14596" class="LineNr">14596 </span> { +<span id="L14597" class="LineNr">14597 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14598" class="LineNr">14598 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L14599" class="LineNr">14599 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> +<span id="L14600" class="LineNr">14600 </span> { +<span id="L14601" class="LineNr">14601 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L14602" class="LineNr">14602 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14603" class="LineNr">14603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14604" class="LineNr">14604 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14605" class="LineNr">14605 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14606" class="LineNr">14606 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14607" class="LineNr">14607 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14608" class="LineNr">14608 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14609" class="LineNr">14609 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14610" class="LineNr">14610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) +<span id="L14611" class="LineNr">14611 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14612" class="LineNr">14612 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14613" class="LineNr">14613 </span> } +<span id="L14614" class="LineNr">14614 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> +<span id="L14615" class="LineNr">14615 </span> { +<span id="L14616" class="LineNr">14616 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L14617" class="LineNr">14617 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14618" class="LineNr">14618 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14619" class="LineNr">14619 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14620" class="LineNr">14620 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14621" class="LineNr">14621 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14622" class="LineNr">14622 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14623" class="LineNr">14623 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14624" class="LineNr">14624 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14625" class="LineNr">14625 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) +<span id="L14626" class="LineNr">14626 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14627" class="LineNr">14627 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14628" class="LineNr">14628 </span> } +<span id="L14629" class="LineNr">14629 </span> } +<span id="L14630" class="LineNr">14630 </span><span class="Constant">$check-mu-call:check-outputs</span>: +<span id="L14631" class="LineNr">14631 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L14632" class="LineNr">14632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L14633" class="LineNr">14633 </span> 89/<- %ecx 0/r32/eax +<span id="L14634" class="LineNr">14634 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> +<span id="L14635" class="LineNr">14635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L14636" class="LineNr">14636 </span> 89/<- %edx 0/r32/eax +<span id="L14637" class="LineNr">14637 </span> { +<span id="L14638" class="LineNr">14638 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: +<span id="L14639" class="LineNr">14639 </span> <span class="subxComment"># if (outputs == 0) break</span> +<span id="L14640" class="LineNr">14640 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L14641" class="LineNr">14641 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14642" class="LineNr">14642 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L14643" class="LineNr">14643 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L14644" class="LineNr">14644 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14645" class="LineNr">14645 </span><span class="Constant">$check-mu-call:check-output-type</span>: +<span id="L14646" class="LineNr">14646 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L14647" class="LineNr">14647 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14648" class="LineNr">14648 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L14649" class="LineNr">14649 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14650" class="LineNr">14650 </span> 89/<- %ebx 0/r32/eax +<span id="L14651" class="LineNr">14651 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L14652" class="LineNr">14652 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L14653" class="LineNr">14653 </span> { +<span id="L14654" class="LineNr">14654 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14655" class="LineNr">14655 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14656" class="LineNr">14656 </span> 89/<- %ebx 0/r32/eax +<span id="L14657" class="LineNr">14657 </span> } +<span id="L14658" class="LineNr">14658 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L14659" class="LineNr">14659 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L14660" class="LineNr">14660 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L14661" class="LineNr">14661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14662" class="LineNr">14662 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L14663" class="LineNr">14663 </span> (<a href='mu.subx.html#L14794'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L14664" class="LineNr">14664 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14665" class="LineNr">14665 </span> { +<span id="L14666" class="LineNr">14666 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L14667" class="LineNr">14667 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14668" class="LineNr">14668 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14669" class="LineNr">14669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14670" class="LineNr">14670 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14671" class="LineNr">14671 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14672" class="LineNr">14672 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14673" class="LineNr">14673 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14674" class="LineNr">14674 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) +<span id="L14675" class="LineNr">14675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14676" class="LineNr">14676 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14677" class="LineNr">14677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14678" class="LineNr">14678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L14679" class="LineNr">14679 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14680" class="LineNr">14680 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14681" class="LineNr">14681 </span> } +<span id="L14682" class="LineNr">14682 </span><span class="Constant">$check-mu-call:check-output-register</span>: +<span id="L14683" class="LineNr">14683 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L14684" class="LineNr">14684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14685" class="LineNr">14685 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> +<span id="L14686" class="LineNr">14686 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L14687" class="LineNr">14687 </span> 89/<- %ebx 0/r32/eax +<span id="L14688" class="LineNr">14688 </span> <span class="subxComment"># if (r == 0) error</span> +<span id="L14689" class="LineNr">14689 </span> 3d/compare-eax-and 0/imm32 +<span id="L14690" class="LineNr">14690 </span> { +<span id="L14691" class="LineNr">14691 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L14692" class="LineNr">14692 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14693" class="LineNr">14693 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14694" class="LineNr">14694 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14695" class="LineNr">14695 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14696" class="LineNr">14696 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14697" class="LineNr">14697 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14698" class="LineNr">14698 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14699" class="LineNr">14699 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) +<span id="L14700" class="LineNr">14700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14701" class="LineNr">14701 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14702" class="LineNr">14702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14703" class="LineNr">14703 </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="L14704" class="LineNr">14704 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14705" class="LineNr">14705 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14706" class="LineNr">14706 </span> } +<span id="L14707" class="LineNr">14707 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L14708" class="LineNr">14708 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14709" class="LineNr">14709 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> +<span id="L14710" class="LineNr">14710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L14711" class="LineNr">14711 </span> <span class="subxComment"># if (r != r2) error</span> +<span id="L14712" class="LineNr">14712 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L14713" class="LineNr">14713 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14714" class="LineNr">14714 </span> { +<span id="L14715" class="LineNr">14715 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L14716" class="LineNr">14716 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14717" class="LineNr">14717 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14718" class="LineNr">14718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14719" class="LineNr">14719 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14720" class="LineNr">14720 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14721" class="LineNr">14721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14722" class="LineNr">14722 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14723" class="LineNr">14723 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) +<span id="L14724" class="LineNr">14724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L14725" class="LineNr">14725 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L14726" class="LineNr">14726 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14727" class="LineNr">14727 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L14728" class="LineNr">14728 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14729" class="LineNr">14729 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14730" class="LineNr">14730 </span> } +<span id="L14731" class="LineNr">14731 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: +<span id="L14732" class="LineNr">14732 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L14733" class="LineNr">14733 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L14734" class="LineNr">14734 </span> 89/<- %ecx 0/r32/eax +<span id="L14735" class="LineNr">14735 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L14736" class="LineNr">14736 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L14737" class="LineNr">14737 </span> 89/<- %edx 0/r32/eax +<span id="L14738" class="LineNr">14738 </span> <span class="subxComment">#</span> +<span id="L14739" class="LineNr">14739 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L14740" class="LineNr">14740 </span> } +<span id="L14741" class="LineNr">14741 </span><span class="Constant">$check-mu-call:check-output-count</span>: +<span id="L14742" class="LineNr">14742 </span> <span class="subxComment"># if (outputs == expected) proceed</span> +<span id="L14743" class="LineNr">14743 </span> 39/compare %ecx 2/r32/edx +<span id="L14744" class="LineNr">14744 </span> { +<span id="L14745" class="LineNr">14745 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14746" class="LineNr">14746 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L14747" class="LineNr">14747 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> +<span id="L14748" class="LineNr">14748 </span> { +<span id="L14749" class="LineNr">14749 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L14750" class="LineNr">14750 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14751" class="LineNr">14751 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14752" class="LineNr">14752 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14753" class="LineNr">14753 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14754" class="LineNr">14754 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14755" class="LineNr">14755 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14756" class="LineNr">14756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14757" class="LineNr">14757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14758" class="LineNr">14758 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) +<span id="L14759" class="LineNr">14759 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14760" class="LineNr">14760 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14761" class="LineNr">14761 </span> } +<span id="L14762" class="LineNr">14762 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> +<span id="L14763" class="LineNr">14763 </span> { +<span id="L14764" class="LineNr">14764 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L14765" class="LineNr">14765 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14766" class="LineNr">14766 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L14767" class="LineNr">14767 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L14768" class="LineNr">14768 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14769" class="LineNr">14769 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14770" class="LineNr">14770 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L14771" class="LineNr">14771 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14772" class="LineNr">14772 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L14773" class="LineNr">14773 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) +<span id="L14774" class="LineNr">14774 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L14775" class="LineNr">14775 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L14776" class="LineNr">14776 </span> } +<span id="L14777" class="LineNr">14777 </span> } +<span id="L14778" class="LineNr">14778 </span><span class="Constant">$check-mu-call:end</span>: +<span id="L14779" class="LineNr">14779 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14780" class="LineNr">14780 </span> 5f/pop-to-edi +<span id="L14781" class="LineNr">14781 </span> 5e/pop-to-esi +<span id="L14782" class="LineNr">14782 </span> 5b/pop-to-ebx +<span id="L14783" class="LineNr">14783 </span> 5a/pop-to-edx +<span id="L14784" class="LineNr">14784 </span> 59/pop-to-ecx +<span id="L14785" class="LineNr">14785 </span> 58/pop-to-eax +<span id="L14786" class="LineNr">14786 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> +<span id="L14787" class="LineNr">14787 </span> 81 0/subop/add %esp 0x70/imm32 +<span id="L14788" class="LineNr">14788 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14789" class="LineNr">14789 </span> 89/<- %esp 5/r32/ebp +<span id="L14790" class="LineNr">14790 </span> 5d/pop-to-ebp +<span id="L14791" class="LineNr">14791 </span> c3/return +<span id="L14792" class="LineNr">14792 </span> +<span id="L14793" class="LineNr">14793 </span><span class="subxComment"># like type-equal? but takes literals into account</span> +<span id="L14794" class="LineNr">14794 </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="L14795" class="LineNr">14795 </span> <span class="subxS1Comment"># . prologue</span> <span id="L14796" class="LineNr">14796 </span> 55/push-ebp <span id="L14797" class="LineNr">14797 </span> 89/<- %ebp 4/r32/esp -<span id="L14798" class="LineNr">14798 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14799" class="LineNr">14799 </span> 51/push-ecx -<span id="L14800" class="LineNr">14800 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L14801" class="LineNr">14801 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14802" class="LineNr">14802 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> -<span id="L14803" class="LineNr">14803 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L14804" class="LineNr">14804 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L14805" class="LineNr">14805 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> -<span id="L14806" class="LineNr">14806 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> -<span id="L14807" class="LineNr">14807 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L14808" class="LineNr">14808 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L14809" class="LineNr">14809 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14810" class="LineNr">14810 </span> 89/<- %ecx 0/r32/eax -<span id="L14811" class="LineNr">14811 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> -<span id="L14812" class="LineNr">14812 </span> { -<span id="L14813" class="LineNr">14813 </span> (<a href='mu.subx.html#L14891'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14814" class="LineNr">14814 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14815" class="LineNr">14815 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14816" class="LineNr">14816 </span> (<a href='mu.subx.html#L14922'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14817" class="LineNr">14817 </span> eb/jump $size-of:end/disp8 -<span id="L14818" class="LineNr">14818 </span> } -<span id="L14819" class="LineNr">14819 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L14820" class="LineNr">14820 </span> { -<span id="L14821" class="LineNr">14821 </span> (<a href='mu.subx.html#L14956'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14822" class="LineNr">14822 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14823" class="LineNr">14823 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14824" class="LineNr">14824 </span> (<a href='mu.subx.html#L14987'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14825" class="LineNr">14825 </span> eb/jump $size-of:end/disp8 -<span id="L14826" class="LineNr">14826 </span> } -<span id="L14827" class="LineNr">14827 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L14828" class="LineNr">14828 </span> { -<span id="L14829" class="LineNr">14829 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14830" class="LineNr">14830 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14831" class="LineNr">14831 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14832" class="LineNr">14832 </span> 89/<- %ecx 0/r32/eax -<span id="L14833" class="LineNr">14833 </span> } -<span id="L14834" class="LineNr">14834 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L14835" class="LineNr">14835 </span> (<a href='mu.subx.html#L15000'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L14836" class="LineNr">14836 </span><span class="Constant">$size-of:end</span>: -<span id="L14837" class="LineNr">14837 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14838" class="LineNr">14838 </span> 59/pop-to-ecx -<span id="L14839" class="LineNr">14839 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14840" class="LineNr">14840 </span> 89/<- %esp 5/r32/ebp -<span id="L14841" class="LineNr">14841 </span> 5d/pop-to-ebp -<span id="L14842" class="LineNr">14842 </span> c3/return -<span id="L14843" class="LineNr">14843 </span> -<span id="L14844" class="LineNr">14844 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L14845" class="LineNr">14845 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14846" class="LineNr">14846 </span> 55/push-ebp -<span id="L14847" class="LineNr">14847 </span> 89/<- %ebp 4/r32/esp -<span id="L14848" class="LineNr">14848 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14849" class="LineNr">14849 </span> 51/push-ecx -<span id="L14850" class="LineNr">14850 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L14851" class="LineNr">14851 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14852" class="LineNr">14852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14853" class="LineNr">14853 </span> 89/<- %ecx 0/r32/eax -<span id="L14854" class="LineNr">14854 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> -<span id="L14855" class="LineNr">14855 </span> <span class="subxComment"># t = lookup(t->right)</span> -<span id="L14856" class="LineNr">14856 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14857" class="LineNr">14857 </span> 89/<- %ecx 0/r32/eax -<span id="L14858" class="LineNr">14858 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> -<span id="L14859" class="LineNr">14859 </span> { -<span id="L14860" class="LineNr">14860 </span> (<a href='mu.subx.html#L14891'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14861" class="LineNr">14861 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14862" class="LineNr">14862 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14863" class="LineNr">14863 </span> (<a href='mu.subx.html#L14922'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14864" class="LineNr">14864 </span> eb/jump $size-of-deref:end/disp8 -<span id="L14865" class="LineNr">14865 </span> } -<span id="L14866" class="LineNr">14866 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L14867" class="LineNr">14867 </span> { -<span id="L14868" class="LineNr">14868 </span> (<a href='mu.subx.html#L14956'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14869" class="LineNr">14869 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14870" class="LineNr">14870 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L14871" class="LineNr">14871 </span> (<a href='mu.subx.html#L14987'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14872" class="LineNr">14872 </span> eb/jump $size-of-deref:end/disp8 -<span id="L14873" class="LineNr">14873 </span> } -<span id="L14874" class="LineNr">14874 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L14875" class="LineNr">14875 </span> { -<span id="L14876" class="LineNr">14876 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14877" class="LineNr">14877 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14878" class="LineNr">14878 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14879" class="LineNr">14879 </span> 89/<- %ecx 0/r32/eax -<span id="L14880" class="LineNr">14880 </span> } -<span id="L14881" class="LineNr">14881 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L14882" class="LineNr">14882 </span> (<a href='mu.subx.html#L15000'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L14883" class="LineNr">14883 </span><span class="Constant">$size-of-deref:end</span>: -<span id="L14884" class="LineNr">14884 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14885" class="LineNr">14885 </span> 59/pop-to-ecx -<span id="L14886" class="LineNr">14886 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14887" class="LineNr">14887 </span> 89/<- %esp 5/r32/ebp -<span id="L14888" class="LineNr">14888 </span> 5d/pop-to-ebp -<span id="L14889" class="LineNr">14889 </span> c3/return -<span id="L14890" class="LineNr">14890 </span> -<span id="L14891" class="LineNr">14891 </span><span class="subxFunction">is-mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L14892" class="LineNr">14892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14893" class="LineNr">14893 </span> 55/push-ebp -<span id="L14894" class="LineNr">14894 </span> 89/<- %ebp 4/r32/esp -<span id="L14895" class="LineNr">14895 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14896" class="LineNr">14896 </span> 51/push-ecx -<span id="L14897" class="LineNr">14897 </span> <span class="subxComment"># ecx = t</span> -<span id="L14898" class="LineNr">14898 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14899" class="LineNr">14899 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L14900" class="LineNr">14900 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14901" class="LineNr">14901 </span> 75/jump-if-!= $is-mu-array?:return-false/disp8 -<span id="L14902" class="LineNr">14902 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L14903" class="LineNr">14903 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14904" class="LineNr">14904 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14905" class="LineNr">14905 </span> 74/jump-if-= $is-mu-array?:return-false/disp8 -<span id="L14906" class="LineNr">14906 </span> <span class="subxComment"># return t->left->value == array</span> -<span id="L14907" class="LineNr">14907 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L14908" class="LineNr">14908 </span> 0f 94/set-if-= %al -<span id="L14909" class="LineNr">14909 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L14910" class="LineNr">14910 </span> eb/jump $is-mu-array?:end/disp8 -<span id="L14911" class="LineNr">14911 </span><span class="Constant">$is-mu-array?:return-false</span>: -<span id="L14912" class="LineNr">14912 </span> b8/copy-to-eax 0/imm32/false -<span id="L14913" class="LineNr">14913 </span><span class="Constant">$is-mu-array?:end</span>: -<span id="L14914" class="LineNr">14914 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14915" class="LineNr">14915 </span> 59/pop-to-ecx -<span id="L14916" class="LineNr">14916 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14917" class="LineNr">14917 </span> 89/<- %esp 5/r32/ebp -<span id="L14918" class="LineNr">14918 </span> 5d/pop-to-ebp -<span id="L14919" class="LineNr">14919 </span> c3/return -<span id="L14920" class="LineNr">14920 </span> -<span id="L14921" class="LineNr">14921 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> -<span id="L14922" class="LineNr">14922 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L14923" class="LineNr">14923 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14924" class="LineNr">14924 </span> 55/push-ebp -<span id="L14925" class="LineNr">14925 </span> 89/<- %ebp 4/r32/esp -<span id="L14926" class="LineNr">14926 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14927" class="LineNr">14927 </span> 51/push-ecx -<span id="L14928" class="LineNr">14928 </span> 52/push-edx -<span id="L14929" class="LineNr">14929 </span> <span class="subxComment">#</span> -<span id="L14930" class="LineNr">14930 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14931" class="LineNr">14931 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> -<span id="L14932" class="LineNr">14932 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14933" class="LineNr">14933 </span> 89/<- %ecx 0/r32/eax -<span id="L14934" class="LineNr">14934 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> -<span id="L14935" class="LineNr">14935 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14936" class="LineNr">14936 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> -<span id="L14937" class="LineNr">14937 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> -<span id="L14938" class="LineNr">14938 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> -<span id="L14939" class="LineNr">14939 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L14940" class="LineNr">14940 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14941" class="LineNr">14941 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> -<span id="L14942" class="LineNr">14942 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> -<span id="L14943" class="LineNr">14943 </span> (<a href='mu.subx.html#L17030'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> -<span id="L14944" class="LineNr">14944 </span> f7 4/subop/multiply-into-edx-eax %ecx -<span id="L14945" class="LineNr">14945 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> -<span id="L14946" class="LineNr">14946 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L14947" class="LineNr">14947 </span><span class="Constant">$size-of-array:end</span>: -<span id="L14948" class="LineNr">14948 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14949" class="LineNr">14949 </span> 5a/pop-to-edx -<span id="L14950" class="LineNr">14950 </span> 59/pop-to-ecx -<span id="L14951" class="LineNr">14951 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14952" class="LineNr">14952 </span> 89/<- %esp 5/r32/ebp -<span id="L14953" class="LineNr">14953 </span> 5d/pop-to-ebp -<span id="L14954" class="LineNr">14954 </span> c3/return -<span id="L14955" class="LineNr">14955 </span> -<span id="L14956" class="LineNr">14956 </span><span class="subxFunction">is-mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L14957" class="LineNr">14957 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14958" class="LineNr">14958 </span> 55/push-ebp -<span id="L14959" class="LineNr">14959 </span> 89/<- %ebp 4/r32/esp -<span id="L14960" class="LineNr">14960 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14961" class="LineNr">14961 </span> 51/push-ecx -<span id="L14962" class="LineNr">14962 </span> <span class="subxComment"># ecx = t</span> -<span id="L14963" class="LineNr">14963 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L14964" class="LineNr">14964 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L14965" class="LineNr">14965 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14966" class="LineNr">14966 </span> 75/jump-if-!= $is-mu-stream?:return-false/disp8 -<span id="L14967" class="LineNr">14967 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L14968" class="LineNr">14968 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L14969" class="LineNr">14969 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L14970" class="LineNr">14970 </span> 74/jump-if-= $is-mu-stream?:return-false/disp8 -<span id="L14971" class="LineNr">14971 </span> <span class="subxComment"># return t->left->value == stream</span> -<span id="L14972" class="LineNr">14972 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L14973" class="LineNr">14973 </span> 0f 94/set-if-= %al -<span id="L14974" class="LineNr">14974 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L14975" class="LineNr">14975 </span> eb/jump $is-mu-stream?:end/disp8 -<span id="L14976" class="LineNr">14976 </span><span class="Constant">$is-mu-stream?:return-false</span>: -<span id="L14977" class="LineNr">14977 </span> b8/copy-to-eax 0/imm32/false -<span id="L14978" class="LineNr">14978 </span><span class="Constant">$is-mu-stream?:end</span>: -<span id="L14979" class="LineNr">14979 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14980" class="LineNr">14980 </span> 59/pop-to-ecx -<span id="L14981" class="LineNr">14981 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14982" class="LineNr">14982 </span> 89/<- %esp 5/r32/ebp -<span id="L14983" class="LineNr">14983 </span> 5d/pop-to-ebp -<span id="L14984" class="LineNr">14984 </span> c3/return -<span id="L14985" class="LineNr">14985 </span> -<span id="L14986" class="LineNr">14986 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> -<span id="L14987" class="LineNr">14987 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L14988" class="LineNr">14988 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14989" class="LineNr">14989 </span> 55/push-ebp -<span id="L14990" class="LineNr">14990 </span> 89/<- %ebp 4/r32/esp -<span id="L14991" class="LineNr">14991 </span> <span class="subxComment">#</span> -<span id="L14992" class="LineNr">14992 </span> (<a href='mu.subx.html#L14922'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> -<span id="L14993" class="LineNr">14993 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> -<span id="L14994" class="LineNr">14994 </span><span class="Constant">$size-of-stream:end</span>: -<span id="L14995" class="LineNr">14995 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14996" class="LineNr">14996 </span> 89/<- %esp 5/r32/ebp -<span id="L14997" class="LineNr">14997 </span> 5d/pop-to-ebp -<span id="L14998" class="LineNr">14998 </span> c3/return -<span id="L14999" class="LineNr">14999 </span> -<span id="L15000" class="LineNr">15000 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L15001" class="LineNr">15001 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15002" class="LineNr">15002 </span> 55/push-ebp -<span id="L15003" class="LineNr">15003 </span> 89/<- %ebp 4/r32/esp -<span id="L15004" class="LineNr">15004 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15005" class="LineNr">15005 </span> 51/push-ecx -<span id="L15006" class="LineNr">15006 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L15007" class="LineNr">15007 </span> 68/push 0/imm32 -<span id="L15008" class="LineNr">15008 </span> 68/push 0/imm32 -<span id="L15009" class="LineNr">15009 </span> 89/<- %ecx 4/r32/esp -<span id="L15010" class="LineNr">15010 </span> <span class="subxComment"># eax = t</span> -<span id="L15011" class="LineNr">15011 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L15012" class="LineNr">15012 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L15013" class="LineNr">15013 </span> 3d/compare-eax-and 0/imm32 -<span id="L15014" class="LineNr">15014 </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="L15015" class="LineNr">15015 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L15016" class="LineNr">15016 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L15017" class="LineNr">15017 </span> { -<span id="L15018" class="LineNr">15018 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15019" class="LineNr">15019 </span> b8/copy-to-eax 4/imm32 -<span id="L15020" class="LineNr">15020 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L15021" class="LineNr">15021 </span> } -<span id="L15022" class="LineNr">15022 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L15023" class="LineNr">15023 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L15024" class="LineNr">15024 </span> { -<span id="L15025" class="LineNr">15025 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15026" class="LineNr">15026 </span> b8/copy-to-eax 8/imm32 -<span id="L15027" class="LineNr">15027 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L15028" class="LineNr">15028 </span> } -<span id="L15029" class="LineNr">15029 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L15030" class="LineNr">15030 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L15031" class="LineNr">15031 </span> { -<span id="L15032" class="LineNr">15032 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15033" class="LineNr">15033 </span> b8/copy-to-eax 8/imm32 -<span id="L15034" class="LineNr">15034 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L15035" class="LineNr">15035 </span> } -<span id="L15036" class="LineNr">15036 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> -<span id="L15037" class="LineNr">15037 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L15038" class="LineNr">15038 </span> (<a href='mu.subx.html#L11980'>find-typeinfo</a> %eax %ecx) -<span id="L15039" class="LineNr">15039 </span> { -<span id="L15040" class="LineNr">15040 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L15041" class="LineNr">15041 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15042" class="LineNr">15042 </span><span class="Constant">$size-of-type-id:user-defined</span>: -<span id="L15043" class="LineNr">15043 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L15044" class="LineNr">15044 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L15045" class="LineNr">15045 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L15046" class="LineNr">15046 </span> } -<span id="L15047" class="LineNr">15047 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L15048" class="LineNr">15048 </span> b8/copy-to-eax 4/imm32 -<span id="L15049" class="LineNr">15049 </span><span class="Constant">$size-of-type-id:end</span>: -<span id="L15050" class="LineNr">15050 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15051" class="LineNr">15051 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15052" class="LineNr">15052 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15053" class="LineNr">15053 </span> 59/pop-to-ecx -<span id="L15054" class="LineNr">15054 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15055" class="LineNr">15055 </span> 89/<- %esp 5/r32/ebp -<span id="L15056" class="LineNr">15056 </span> 5d/pop-to-ebp -<span id="L15057" class="LineNr">15057 </span> c3/return -<span id="L15058" class="LineNr">15058 </span> -<span id="L15059" class="LineNr">15059 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> -<span id="L15060" class="LineNr">15060 </span><span class="subxComment"># replace it with a handle some time.</span> -<span id="L15061" class="LineNr">15061 </span><span class="subxComment"># Returns null if t is an atom.</span> -<span id="L15062" class="LineNr">15062 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> +<span id="L14798" class="LineNr">14798 </span> <span class="subxComment"># if (call == literal) return true # TODO: more precise</span> +<span id="L14799" class="LineNr">14799 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> +<span id="L14800" class="LineNr">14800 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14801" class="LineNr">14801 </span> b8/copy-to-eax 1/imm32/true +<span id="L14802" class="LineNr">14802 </span> 75/jump-if-!= $type-match?:end/disp8 +<span id="L14803" class="LineNr">14803 </span><span class="Constant">$type-match?:baseline</span>: +<span id="L14804" class="LineNr">14804 </span> <span class="subxComment"># otherwise fall back</span> +<span id="L14805" class="LineNr">14805 </span> (<a href='mu.subx.html#L14812'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14806" class="LineNr">14806 </span><span class="Constant">$type-match?:end</span>: +<span id="L14807" class="LineNr">14807 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14808" class="LineNr">14808 </span> 89/<- %esp 5/r32/ebp +<span id="L14809" class="LineNr">14809 </span> 5d/pop-to-ebp +<span id="L14810" class="LineNr">14810 </span> c3/return +<span id="L14811" class="LineNr">14811 </span> +<span id="L14812" class="LineNr">14812 </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="L14813" class="LineNr">14813 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14814" class="LineNr">14814 </span> 55/push-ebp +<span id="L14815" class="LineNr">14815 </span> 89/<- %ebp 4/r32/esp +<span id="L14816" class="LineNr">14816 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14817" class="LineNr">14817 </span> 51/push-ecx +<span id="L14818" class="LineNr">14818 </span> 52/push-edx +<span id="L14819" class="LineNr">14819 </span> 53/push-ebx +<span id="L14820" class="LineNr">14820 </span> <span class="subxComment"># ecx = def</span> +<span id="L14821" class="LineNr">14821 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L14822" class="LineNr">14822 </span> <span class="subxComment"># edx = call</span> +<span id="L14823" class="LineNr">14823 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L14824" class="LineNr">14824 </span><span class="Constant">$type-component-match?:compare-addr</span>: +<span id="L14825" class="LineNr">14825 </span> <span class="subxComment"># if (def == call) return true</span> +<span id="L14826" class="LineNr">14826 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L14827" class="LineNr">14827 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L14828" class="LineNr">14828 </span> b8/copy-to-eax 1/imm32/true +<span id="L14829" class="LineNr">14829 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L14830" class="LineNr">14830 </span> <span class="subxComment"># if (def == 0) return false</span> +<span id="L14831" class="LineNr">14831 </span> b8/copy-to-eax 0/imm32/false +<span id="L14832" class="LineNr">14832 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14833" class="LineNr">14833 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L14834" class="LineNr">14834 </span> <span class="subxComment"># if (call == 0) return false</span> +<span id="L14835" class="LineNr">14835 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14836" class="LineNr">14836 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L14837" class="LineNr">14837 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> +<span id="L14838" class="LineNr">14838 </span> { +<span id="L14839" class="LineNr">14839 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: +<span id="L14840" class="LineNr">14840 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14841" class="LineNr">14841 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14842" class="LineNr">14842 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L14843" class="LineNr">14843 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14844" class="LineNr">14844 </span><span class="Constant">$type-component-match?:type-parameter</span>: +<span id="L14845" class="LineNr">14845 </span> (<a href='mu.subx.html#L14909'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14846" class="LineNr">14846 </span> e9/jump $type-component-match?:end/disp32 +<span id="L14847" class="LineNr">14847 </span> } +<span id="L14848" class="LineNr">14848 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> +<span id="L14849" class="LineNr">14849 </span> { +<span id="L14850" class="LineNr">14850 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: +<span id="L14851" class="LineNr">14851 </span> <span class="subxComment"># if def is a list..</span> +<span id="L14852" class="LineNr">14852 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14853" class="LineNr">14853 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14854" class="LineNr">14854 </span> <span class="subxComment"># ..that's a singleton</span> +<span id="L14855" class="LineNr">14855 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L14856" class="LineNr">14856 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14857" class="LineNr">14857 </span> <span class="subxComment"># ..and whose head is a type parameter</span> +<span id="L14858" class="LineNr">14858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14859" class="LineNr">14859 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14860" class="LineNr">14860 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14861" class="LineNr">14861 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L14862" class="LineNr">14862 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14863" class="LineNr">14863 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: +<span id="L14864" class="LineNr">14864 </span> (<a href='mu.subx.html#L14909'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14865" class="LineNr">14865 </span> e9/jump $type-component-match?:end/disp32 +<span id="L14866" class="LineNr">14866 </span> } +<span id="L14867" class="LineNr">14867 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: +<span id="L14868" class="LineNr">14868 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> +<span id="L14869" class="LineNr">14869 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14870" class="LineNr">14870 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14871" class="LineNr">14871 </span> b8/copy-to-eax 0/imm32/false +<span id="L14872" class="LineNr">14872 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 +<span id="L14873" class="LineNr">14873 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> +<span id="L14874" class="LineNr">14874 </span> { +<span id="L14875" class="LineNr">14875 </span><span class="Constant">$type-component-match?:check-atom</span>: +<span id="L14876" class="LineNr">14876 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L14877" class="LineNr">14877 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14878" class="LineNr">14878 </span><span class="Constant">$type-component-match?:is-atom</span>: +<span id="L14879" class="LineNr">14879 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L14880" class="LineNr">14880 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L14881" class="LineNr">14881 </span> 0f 94/set-if-= %al +<span id="L14882" class="LineNr">14882 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L14883" class="LineNr">14883 </span> e9/jump $type-component-match?:end/disp32 +<span id="L14884" class="LineNr">14884 </span> } +<span id="L14885" class="LineNr">14885 </span><span class="Constant">$type-component-match?:check-left</span>: +<span id="L14886" class="LineNr">14886 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> +<span id="L14887" class="LineNr">14887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14888" class="LineNr">14888 </span> 89/<- %ebx 0/r32/eax +<span id="L14889" class="LineNr">14889 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14890" class="LineNr">14890 </span> (<a href='mu.subx.html#L14812'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14891" class="LineNr">14891 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14892" class="LineNr">14892 </span> 74/jump-if-= $type-component-match?:end/disp8 +<span id="L14893" class="LineNr">14893 </span><span class="Constant">$type-component-match?:check-right</span>: +<span id="L14894" class="LineNr">14894 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> +<span id="L14895" class="LineNr">14895 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14896" class="LineNr">14896 </span> 89/<- %ebx 0/r32/eax +<span id="L14897" class="LineNr">14897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14898" class="LineNr">14898 </span> (<a href='mu.subx.html#L14812'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14899" class="LineNr">14899 </span><span class="Constant">$type-component-match?:end</span>: +<span id="L14900" class="LineNr">14900 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14901" class="LineNr">14901 </span> 5b/pop-to-ebx +<span id="L14902" class="LineNr">14902 </span> 5a/pop-to-edx +<span id="L14903" class="LineNr">14903 </span> 59/pop-to-ecx +<span id="L14904" class="LineNr">14904 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14905" class="LineNr">14905 </span> 89/<- %esp 5/r32/ebp +<span id="L14906" class="LineNr">14906 </span> 5d/pop-to-ebp +<span id="L14907" class="LineNr">14907 </span> c3/return +<span id="L14908" class="LineNr">14908 </span> +<span id="L14909" class="LineNr">14909 </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="L14910" class="LineNr">14910 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14911" class="LineNr">14911 </span> 55/push-ebp +<span id="L14912" class="LineNr">14912 </span> 89/<- %ebp 4/r32/esp +<span id="L14913" class="LineNr">14913 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14914" class="LineNr">14914 </span> 51/push-ecx +<span id="L14915" class="LineNr">14915 </span> <span class="subxComment">#</span> +<span id="L14916" class="LineNr">14916 </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="L14917" class="LineNr">14917 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> +<span id="L14918" class="LineNr">14918 </span> { +<span id="L14919" class="LineNr">14919 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L14920" class="LineNr">14920 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14921" class="LineNr">14921 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L14922" class="LineNr">14922 </span> 89/<- *eax 1/r32/ecx +<span id="L14923" class="LineNr">14923 </span> } +<span id="L14924" class="LineNr">14924 </span> <span class="subxComment">#</span> +<span id="L14925" class="LineNr">14925 </span> (<a href='mu.subx.html#L15261'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> +<span id="L14926" class="LineNr">14926 </span><span class="Constant">$type-parameter-match?:end</span>: +<span id="L14927" class="LineNr">14927 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14928" class="LineNr">14928 </span> 59/pop-to-ecx +<span id="L14929" class="LineNr">14929 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14930" class="LineNr">14930 </span> 89/<- %esp 5/r32/ebp +<span id="L14931" class="LineNr">14931 </span> 5d/pop-to-ebp +<span id="L14932" class="LineNr">14932 </span> c3/return +<span id="L14933" class="LineNr">14933 </span> +<span id="L14934" class="LineNr">14934 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L14935" class="LineNr">14935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14936" class="LineNr">14936 </span> 55/push-ebp +<span id="L14937" class="LineNr">14937 </span> 89/<- %ebp 4/r32/esp +<span id="L14938" class="LineNr">14938 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14939" class="LineNr">14939 </span> 51/push-ecx +<span id="L14940" class="LineNr">14940 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L14941" class="LineNr">14941 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L14942" class="LineNr">14942 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> +<span id="L14943" class="LineNr">14943 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L14944" class="LineNr">14944 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L14945" class="LineNr">14945 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> +<span id="L14946" class="LineNr">14946 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> +<span id="L14947" class="LineNr">14947 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L14948" class="LineNr">14948 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L14949" class="LineNr">14949 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14950" class="LineNr">14950 </span> 89/<- %ecx 0/r32/eax +<span id="L14951" class="LineNr">14951 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> +<span id="L14952" class="LineNr">14952 </span> { +<span id="L14953" class="LineNr">14953 </span> (<a href='mu.subx.html#L15031'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14954" class="LineNr">14954 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14955" class="LineNr">14955 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14956" class="LineNr">14956 </span> (<a href='mu.subx.html#L15062'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14957" class="LineNr">14957 </span> eb/jump $size-of:end/disp8 +<span id="L14958" class="LineNr">14958 </span> } +<span id="L14959" class="LineNr">14959 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> +<span id="L14960" class="LineNr">14960 </span> { +<span id="L14961" class="LineNr">14961 </span> (<a href='mu.subx.html#L15096'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14962" class="LineNr">14962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14963" class="LineNr">14963 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L14964" class="LineNr">14964 </span> (<a href='mu.subx.html#L15127'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14965" class="LineNr">14965 </span> eb/jump $size-of:end/disp8 +<span id="L14966" class="LineNr">14966 </span> } +<span id="L14967" class="LineNr">14967 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L14968" class="LineNr">14968 </span> { +<span id="L14969" class="LineNr">14969 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L14970" class="LineNr">14970 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14971" class="LineNr">14971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L14972" class="LineNr">14972 </span> 89/<- %ecx 0/r32/eax +<span id="L14973" class="LineNr">14973 </span> } +<span id="L14974" class="LineNr">14974 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L14975" class="LineNr">14975 </span> (<a href='mu.subx.html#L15140'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L14976" class="LineNr">14976 </span><span class="Constant">$size-of:end</span>: +<span id="L14977" class="LineNr">14977 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14978" class="LineNr">14978 </span> 59/pop-to-ecx +<span id="L14979" class="LineNr">14979 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14980" class="LineNr">14980 </span> 89/<- %esp 5/r32/ebp +<span id="L14981" class="LineNr">14981 </span> 5d/pop-to-ebp +<span id="L14982" class="LineNr">14982 </span> c3/return +<span id="L14983" class="LineNr">14983 </span> +<span id="L14984" class="LineNr">14984 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L14985" class="LineNr">14985 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14986" class="LineNr">14986 </span> 55/push-ebp +<span id="L14987" class="LineNr">14987 </span> 89/<- %ebp 4/r32/esp +<span id="L14988" class="LineNr">14988 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14989" class="LineNr">14989 </span> 51/push-ecx +<span id="L14990" class="LineNr">14990 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L14991" class="LineNr">14991 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L14992" class="LineNr">14992 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L14993" class="LineNr">14993 </span> 89/<- %ecx 0/r32/eax +<span id="L14994" class="LineNr">14994 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> +<span id="L14995" class="LineNr">14995 </span> <span class="subxComment"># t = lookup(t->right)</span> +<span id="L14996" class="LineNr">14996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L14997" class="LineNr">14997 </span> 89/<- %ecx 0/r32/eax +<span id="L14998" class="LineNr">14998 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> +<span id="L14999" class="LineNr">14999 </span> { +<span id="L15000" class="LineNr">15000 </span> (<a href='mu.subx.html#L15031'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15001" class="LineNr">15001 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15002" class="LineNr">15002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15003" class="LineNr">15003 </span> (<a href='mu.subx.html#L15062'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15004" class="LineNr">15004 </span> eb/jump $size-of-deref:end/disp8 +<span id="L15005" class="LineNr">15005 </span> } +<span id="L15006" class="LineNr">15006 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> +<span id="L15007" class="LineNr">15007 </span> { +<span id="L15008" class="LineNr">15008 </span> (<a href='mu.subx.html#L15096'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15009" class="LineNr">15009 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15010" class="LineNr">15010 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15011" class="LineNr">15011 </span> (<a href='mu.subx.html#L15127'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15012" class="LineNr">15012 </span> eb/jump $size-of-deref:end/disp8 +<span id="L15013" class="LineNr">15013 </span> } +<span id="L15014" class="LineNr">15014 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L15015" class="LineNr">15015 </span> { +<span id="L15016" class="LineNr">15016 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15017" class="LineNr">15017 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15018" class="LineNr">15018 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15019" class="LineNr">15019 </span> 89/<- %ecx 0/r32/eax +<span id="L15020" class="LineNr">15020 </span> } +<span id="L15021" class="LineNr">15021 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L15022" class="LineNr">15022 </span> (<a href='mu.subx.html#L15140'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L15023" class="LineNr">15023 </span><span class="Constant">$size-of-deref:end</span>: +<span id="L15024" class="LineNr">15024 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15025" class="LineNr">15025 </span> 59/pop-to-ecx +<span id="L15026" class="LineNr">15026 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15027" class="LineNr">15027 </span> 89/<- %esp 5/r32/ebp +<span id="L15028" class="LineNr">15028 </span> 5d/pop-to-ebp +<span id="L15029" class="LineNr">15029 </span> c3/return +<span id="L15030" class="LineNr">15030 </span> +<span id="L15031" class="LineNr">15031 </span><span class="subxFunction">is-mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L15032" class="LineNr">15032 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15033" class="LineNr">15033 </span> 55/push-ebp +<span id="L15034" class="LineNr">15034 </span> 89/<- %ebp 4/r32/esp +<span id="L15035" class="LineNr">15035 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15036" class="LineNr">15036 </span> 51/push-ecx +<span id="L15037" class="LineNr">15037 </span> <span class="subxComment"># ecx = t</span> +<span id="L15038" class="LineNr">15038 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15039" class="LineNr">15039 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L15040" class="LineNr">15040 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15041" class="LineNr">15041 </span> 75/jump-if-!= $is-mu-array?:return-false/disp8 +<span id="L15042" class="LineNr">15042 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L15043" class="LineNr">15043 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15044" class="LineNr">15044 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15045" class="LineNr">15045 </span> 74/jump-if-= $is-mu-array?:return-false/disp8 +<span id="L15046" class="LineNr">15046 </span> <span class="subxComment"># return t->left->value == array</span> +<span id="L15047" class="LineNr">15047 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L15048" class="LineNr">15048 </span> 0f 94/set-if-= %al +<span id="L15049" class="LineNr">15049 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15050" class="LineNr">15050 </span> eb/jump $is-mu-array?:end/disp8 +<span id="L15051" class="LineNr">15051 </span><span class="Constant">$is-mu-array?:return-false</span>: +<span id="L15052" class="LineNr">15052 </span> b8/copy-to-eax 0/imm32/false +<span id="L15053" class="LineNr">15053 </span><span class="Constant">$is-mu-array?:end</span>: +<span id="L15054" class="LineNr">15054 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15055" class="LineNr">15055 </span> 59/pop-to-ecx +<span id="L15056" class="LineNr">15056 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15057" class="LineNr">15057 </span> 89/<- %esp 5/r32/ebp +<span id="L15058" class="LineNr">15058 </span> 5d/pop-to-ebp +<span id="L15059" class="LineNr">15059 </span> c3/return +<span id="L15060" class="LineNr">15060 </span> +<span id="L15061" class="LineNr">15061 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> +<span id="L15062" class="LineNr">15062 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> <span id="L15063" class="LineNr">15063 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15064" class="LineNr">15064 </span> 55/push-ebp <span id="L15065" class="LineNr">15065 </span> 89/<- %ebp 4/r32/esp <span id="L15066" class="LineNr">15066 </span> <span class="subxS1Comment"># . save registers</span> <span id="L15067" class="LineNr">15067 </span> 51/push-ecx -<span id="L15068" class="LineNr">15068 </span> <span class="subxComment"># eax = 0</span> -<span id="L15069" class="LineNr">15069 </span> b8/copy-to-eax 0/imm32 -<span id="L15070" class="LineNr">15070 </span> <span class="subxComment"># ecx = t</span> -<span id="L15071" class="LineNr">15071 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L15072" class="LineNr">15072 </span><span class="Constant">$type-tail:check-atom</span>: -<span id="L15073" class="LineNr">15073 </span> <span class="subxComment"># if t->is-atom? return 0</span> -<span id="L15074" class="LineNr">15074 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15075" class="LineNr">15075 </span> 0f 85/jump-if-!= $type-tail:end/disp32 -<span id="L15076" class="LineNr">15076 </span> <span class="subxComment"># var tail = t->right</span> -<span id="L15077" class="LineNr">15077 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L15078" class="LineNr">15078 </span> 89/<- %ecx 0/r32/eax -<span id="L15079" class="LineNr">15079 </span><span class="Constant">$type-tail:check-singleton</span>: -<span id="L15080" class="LineNr">15080 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> -<span id="L15081" class="LineNr">15081 </span> { -<span id="L15082" class="LineNr">15082 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L15083" class="LineNr">15083 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15084" class="LineNr">15084 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15085" class="LineNr">15085 </span> e9/jump $type-tail:end/disp32 -<span id="L15086" class="LineNr">15086 </span> } -<span id="L15087" class="LineNr">15087 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> -<span id="L15088" class="LineNr">15088 </span> { -<span id="L15089" class="LineNr">15089 </span><span class="Constant">$type-tail:check-array-capacity</span>: -<span id="L15090" class="LineNr">15090 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L15091" class="LineNr">15091 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15092" class="LineNr">15092 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15093" class="LineNr">15093 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: -<span id="L15094" class="LineNr">15094 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15095" class="LineNr">15095 </span> 3d/compare-eax-and 0/imm32 -<span id="L15096" class="LineNr">15096 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15097" class="LineNr">15097 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: -<span id="L15098" class="LineNr">15098 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> -<span id="L15099" class="LineNr">15099 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15100" class="LineNr">15100 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15101" class="LineNr">15101 </span><span class="Constant">$type-tail:array-capacity</span>: -<span id="L15102" class="LineNr">15102 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15103" class="LineNr">15103 </span> eb/jump $type-tail:end/disp8 -<span id="L15104" class="LineNr">15104 </span> } -<span id="L15105" class="LineNr">15105 </span><span class="Constant">$type-tail:check-compound-left</span>: -<span id="L15106" class="LineNr">15106 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> -<span id="L15107" class="LineNr">15107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15108" class="LineNr">15108 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15109" class="LineNr">15109 </span> 74/jump-if-= $type-tail:end/disp8 -<span id="L15110" class="LineNr">15110 </span><span class="Constant">$type-tail:return-tail</span>: -<span id="L15111" class="LineNr">15111 </span> <span class="subxComment"># return tail</span> -<span id="L15112" class="LineNr">15112 </span> 89/<- %eax 1/r32/ecx -<span id="L15113" class="LineNr">15113 </span><span class="Constant">$type-tail:end</span>: -<span id="L15114" class="LineNr">15114 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15115" class="LineNr">15115 </span> 59/pop-to-ecx -<span id="L15116" class="LineNr">15116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15117" class="LineNr">15117 </span> 89/<- %esp 5/r32/ebp -<span id="L15118" class="LineNr">15118 </span> 5d/pop-to-ebp -<span id="L15119" class="LineNr">15119 </span> c3/return -<span id="L15120" class="LineNr">15120 </span> -<span id="L15121" class="LineNr">15121 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L15122" class="LineNr">15122 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15123" class="LineNr">15123 </span> 55/push-ebp -<span id="L15124" class="LineNr">15124 </span> 89/<- %ebp 4/r32/esp -<span id="L15125" class="LineNr">15125 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15126" class="LineNr">15126 </span> 51/push-ecx -<span id="L15127" class="LineNr">15127 </span> 52/push-edx -<span id="L15128" class="LineNr">15128 </span> 53/push-ebx -<span id="L15129" class="LineNr">15129 </span> <span class="subxComment"># ecx = a</span> -<span id="L15130" class="LineNr">15130 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L15131" class="LineNr">15131 </span> <span class="subxComment"># edx = b</span> -<span id="L15132" class="LineNr">15132 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L15133" class="LineNr">15133 </span><span class="Constant">$type-equal?:compare-addr</span>: -<span id="L15134" class="LineNr">15134 </span> <span class="subxComment"># if (a == b) return true</span> -<span id="L15135" class="LineNr">15135 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L15136" class="LineNr">15136 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L15137" class="LineNr">15137 </span> b8/copy-to-eax 1/imm32/true -<span id="L15138" class="LineNr">15138 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L15139" class="LineNr">15139 </span><span class="Constant">$type-equal?:compare-null-a</span>: -<span id="L15140" class="LineNr">15140 </span> <span class="subxComment"># if (a == 0) return false</span> -<span id="L15141" class="LineNr">15141 </span> b8/copy-to-eax 0/imm32/false -<span id="L15142" class="LineNr">15142 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L15143" class="LineNr">15143 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L15144" class="LineNr">15144 </span><span class="Constant">$type-equal?:compare-null-b</span>: -<span id="L15145" class="LineNr">15145 </span> <span class="subxComment"># if (b == 0) return false</span> -<span id="L15146" class="LineNr">15146 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L15147" class="LineNr">15147 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L15148" class="LineNr">15148 </span><span class="Constant">$type-equal?:compare-atom-state</span>: -<span id="L15149" class="LineNr">15149 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> -<span id="L15150" class="LineNr">15150 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15151" class="LineNr">15151 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15152" class="LineNr">15152 </span> b8/copy-to-eax 0/imm32/false -<span id="L15153" class="LineNr">15153 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 -<span id="L15154" class="LineNr">15154 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> -<span id="L15155" class="LineNr">15155 </span> { -<span id="L15156" class="LineNr">15156 </span><span class="Constant">$type-equal?:check-atom</span>: -<span id="L15157" class="LineNr">15157 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L15158" class="LineNr">15158 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15159" class="LineNr">15159 </span><span class="Constant">$type-equal?:is-atom</span>: -<span id="L15160" class="LineNr">15160 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L15161" class="LineNr">15161 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L15162" class="LineNr">15162 </span> 0f 94/set-if-= %al -<span id="L15163" class="LineNr">15163 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15164" class="LineNr">15164 </span> e9/jump $type-equal?:end/disp32 -<span id="L15165" class="LineNr">15165 </span> } -<span id="L15166" class="LineNr">15166 </span><span class="Constant">$type-equal?:check-left</span>: -<span id="L15167" class="LineNr">15167 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> -<span id="L15168" class="LineNr">15168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15169" class="LineNr">15169 </span> 89/<- %ebx 0/r32/eax -<span id="L15170" class="LineNr">15170 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L15171" class="LineNr">15171 </span> (<a href='mu.subx.html#L15121'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L15172" class="LineNr">15172 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15173" class="LineNr">15173 </span> 74/jump-if-= $type-equal?:end/disp8 -<span id="L15174" class="LineNr">15174 </span><span class="Constant">$type-equal?:check-right</span>: -<span id="L15175" class="LineNr">15175 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> -<span id="L15176" class="LineNr">15176 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L15177" class="LineNr">15177 </span> 89/<- %ebx 0/r32/eax -<span id="L15178" class="LineNr">15178 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L15179" class="LineNr">15179 </span> (<a href='mu.subx.html#L15121'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L15180" class="LineNr">15180 </span><span class="Constant">$type-equal?:end</span>: -<span id="L15181" class="LineNr">15181 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15182" class="LineNr">15182 </span> 5b/pop-to-ebx -<span id="L15183" class="LineNr">15183 </span> 5a/pop-to-edx -<span id="L15184" class="LineNr">15184 </span> 59/pop-to-ecx -<span id="L15185" class="LineNr">15185 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15186" class="LineNr">15186 </span> 89/<- %esp 5/r32/ebp -<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="subxComment">#######################################################</span> -<span id="L15191" class="LineNr">15191 </span><span class="subxComment"># Code-generation</span> -<span id="L15192" class="LineNr">15192 </span><span class="subxComment">#######################################################</span> -<span id="L15193" class="LineNr">15193 </span> -<span id="L15194" class="LineNr">15194 </span>== data -<span id="L15195" class="LineNr">15195 </span> -<span id="L15196" class="LineNr">15196 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> -<span id="L15197" class="LineNr">15197 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> -<span id="L15198" class="LineNr">15198 </span> 0/imm32 -<span id="L15199" class="LineNr">15199 </span> -<span id="L15200" class="LineNr">15200 </span>== code -<span id="L15201" class="LineNr">15201 </span> -<span id="L15202" class="LineNr">15202 </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="L15068" class="LineNr">15068 </span> 52/push-edx +<span id="L15069" class="LineNr">15069 </span> <span class="subxComment">#</span> +<span id="L15070" class="LineNr">15070 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15071" class="LineNr">15071 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> +<span id="L15072" class="LineNr">15072 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15073" class="LineNr">15073 </span> 89/<- %ecx 0/r32/eax +<span id="L15074" class="LineNr">15074 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> +<span id="L15075" class="LineNr">15075 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15076" class="LineNr">15076 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> +<span id="L15077" class="LineNr">15077 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> +<span id="L15078" class="LineNr">15078 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> +<span id="L15079" class="LineNr">15079 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15080" class="LineNr">15080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15081" class="LineNr">15081 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> +<span id="L15082" class="LineNr">15082 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> +<span id="L15083" class="LineNr">15083 </span> (<a href='mu.subx.html#L17170'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> +<span id="L15084" class="LineNr">15084 </span> f7 4/subop/multiply-into-edx-eax %ecx +<span id="L15085" class="LineNr">15085 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> +<span id="L15086" class="LineNr">15086 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L15087" class="LineNr">15087 </span><span class="Constant">$size-of-array:end</span>: +<span id="L15088" class="LineNr">15088 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15089" class="LineNr">15089 </span> 5a/pop-to-edx +<span id="L15090" class="LineNr">15090 </span> 59/pop-to-ecx +<span id="L15091" class="LineNr">15091 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15092" class="LineNr">15092 </span> 89/<- %esp 5/r32/ebp +<span id="L15093" class="LineNr">15093 </span> 5d/pop-to-ebp +<span id="L15094" class="LineNr">15094 </span> c3/return +<span id="L15095" class="LineNr">15095 </span> +<span id="L15096" class="LineNr">15096 </span><span class="subxFunction">is-mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L15097" class="LineNr">15097 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15098" class="LineNr">15098 </span> 55/push-ebp +<span id="L15099" class="LineNr">15099 </span> 89/<- %ebp 4/r32/esp +<span id="L15100" class="LineNr">15100 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15101" class="LineNr">15101 </span> 51/push-ecx +<span id="L15102" class="LineNr">15102 </span> <span class="subxComment"># ecx = t</span> +<span id="L15103" class="LineNr">15103 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15104" class="LineNr">15104 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L15105" class="LineNr">15105 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15106" class="LineNr">15106 </span> 75/jump-if-!= $is-mu-stream?:return-false/disp8 +<span id="L15107" class="LineNr">15107 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L15108" class="LineNr">15108 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15109" class="LineNr">15109 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15110" class="LineNr">15110 </span> 74/jump-if-= $is-mu-stream?:return-false/disp8 +<span id="L15111" class="LineNr">15111 </span> <span class="subxComment"># return t->left->value == stream</span> +<span id="L15112" class="LineNr">15112 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L15113" class="LineNr">15113 </span> 0f 94/set-if-= %al +<span id="L15114" class="LineNr">15114 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15115" class="LineNr">15115 </span> eb/jump $is-mu-stream?:end/disp8 +<span id="L15116" class="LineNr">15116 </span><span class="Constant">$is-mu-stream?:return-false</span>: +<span id="L15117" class="LineNr">15117 </span> b8/copy-to-eax 0/imm32/false +<span id="L15118" class="LineNr">15118 </span><span class="Constant">$is-mu-stream?:end</span>: +<span id="L15119" class="LineNr">15119 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15120" class="LineNr">15120 </span> 59/pop-to-ecx +<span id="L15121" class="LineNr">15121 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15122" class="LineNr">15122 </span> 89/<- %esp 5/r32/ebp +<span id="L15123" class="LineNr">15123 </span> 5d/pop-to-ebp +<span id="L15124" class="LineNr">15124 </span> c3/return +<span id="L15125" class="LineNr">15125 </span> +<span id="L15126" class="LineNr">15126 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> +<span id="L15127" class="LineNr">15127 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L15128" class="LineNr">15128 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15129" class="LineNr">15129 </span> 55/push-ebp +<span id="L15130" class="LineNr">15130 </span> 89/<- %ebp 4/r32/esp +<span id="L15131" class="LineNr">15131 </span> <span class="subxComment">#</span> +<span id="L15132" class="LineNr">15132 </span> (<a href='mu.subx.html#L15062'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> +<span id="L15133" class="LineNr">15133 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> +<span id="L15134" class="LineNr">15134 </span><span class="Constant">$size-of-stream:end</span>: +<span id="L15135" class="LineNr">15135 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15136" class="LineNr">15136 </span> 89/<- %esp 5/r32/ebp +<span id="L15137" class="LineNr">15137 </span> 5d/pop-to-ebp +<span id="L15138" class="LineNr">15138 </span> c3/return +<span id="L15139" class="LineNr">15139 </span> +<span id="L15140" class="LineNr">15140 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L15141" class="LineNr">15141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15142" class="LineNr">15142 </span> 55/push-ebp +<span id="L15143" class="LineNr">15143 </span> 89/<- %ebp 4/r32/esp +<span id="L15144" class="LineNr">15144 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15145" class="LineNr">15145 </span> 51/push-ecx +<span id="L15146" class="LineNr">15146 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L15147" class="LineNr">15147 </span> 68/push 0/imm32 +<span id="L15148" class="LineNr">15148 </span> 68/push 0/imm32 +<span id="L15149" class="LineNr">15149 </span> 89/<- %ecx 4/r32/esp +<span id="L15150" class="LineNr">15150 </span> <span class="subxComment"># eax = t</span> +<span id="L15151" class="LineNr">15151 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L15152" class="LineNr">15152 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L15153" class="LineNr">15153 </span> 3d/compare-eax-and 0/imm32 +<span id="L15154" class="LineNr">15154 </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="L15155" class="LineNr">15155 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L15156" class="LineNr">15156 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L15157" class="LineNr">15157 </span> { +<span id="L15158" class="LineNr">15158 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15159" class="LineNr">15159 </span> b8/copy-to-eax 4/imm32 +<span id="L15160" class="LineNr">15160 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L15161" class="LineNr">15161 </span> } +<span id="L15162" class="LineNr">15162 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L15163" class="LineNr">15163 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L15164" class="LineNr">15164 </span> { +<span id="L15165" class="LineNr">15165 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15166" class="LineNr">15166 </span> b8/copy-to-eax 8/imm32 +<span id="L15167" class="LineNr">15167 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L15168" class="LineNr">15168 </span> } +<span id="L15169" class="LineNr">15169 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L15170" class="LineNr">15170 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L15171" class="LineNr">15171 </span> { +<span id="L15172" class="LineNr">15172 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15173" class="LineNr">15173 </span> b8/copy-to-eax 8/imm32 +<span id="L15174" class="LineNr">15174 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L15175" class="LineNr">15175 </span> } +<span id="L15176" class="LineNr">15176 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> +<span id="L15177" class="LineNr">15177 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L15178" class="LineNr">15178 </span> (<a href='mu.subx.html#L12110'>find-typeinfo</a> %eax %ecx) +<span id="L15179" class="LineNr">15179 </span> { +<span id="L15180" class="LineNr">15180 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L15181" class="LineNr">15181 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15182" class="LineNr">15182 </span><span class="Constant">$size-of-type-id:user-defined</span>: +<span id="L15183" class="LineNr">15183 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L15184" class="LineNr">15184 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L15185" class="LineNr">15185 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L15186" class="LineNr">15186 </span> } +<span id="L15187" class="LineNr">15187 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L15188" class="LineNr">15188 </span> b8/copy-to-eax 4/imm32 +<span id="L15189" class="LineNr">15189 </span><span class="Constant">$size-of-type-id:end</span>: +<span id="L15190" class="LineNr">15190 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15191" class="LineNr">15191 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15192" class="LineNr">15192 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15193" class="LineNr">15193 </span> 59/pop-to-ecx +<span id="L15194" class="LineNr">15194 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15195" class="LineNr">15195 </span> 89/<- %esp 5/r32/ebp +<span id="L15196" class="LineNr">15196 </span> 5d/pop-to-ebp +<span id="L15197" class="LineNr">15197 </span> c3/return +<span id="L15198" class="LineNr">15198 </span> +<span id="L15199" class="LineNr">15199 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> +<span id="L15200" class="LineNr">15200 </span><span class="subxComment"># replace it with a handle some time.</span> +<span id="L15201" class="LineNr">15201 </span><span class="subxComment"># Returns null if t is an atom.</span> +<span id="L15202" class="LineNr">15202 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> <span id="L15203" class="LineNr">15203 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15204" class="LineNr">15204 </span> 55/push-ebp <span id="L15205" class="LineNr">15205 </span> 89/<- %ebp 4/r32/esp <span id="L15206" class="LineNr">15206 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15207" class="LineNr">15207 </span> 50/push-eax -<span id="L15208" class="LineNr">15208 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> -<span id="L15209" class="LineNr">15209 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L15210" class="LineNr">15210 </span> { -<span id="L15211" class="LineNr">15211 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L15212" class="LineNr">15212 </span> 3d/compare-eax-and 0/imm32 -<span id="L15213" class="LineNr">15213 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15214" class="LineNr">15214 </span> (<a href='mu.subx.html#L15227'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L15215" class="LineNr">15215 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L15216" class="LineNr">15216 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L15217" class="LineNr">15217 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15218" class="LineNr">15218 </span> } -<span id="L15219" class="LineNr">15219 </span><span class="Constant">$emit-subx:end</span>: -<span id="L15220" class="LineNr">15220 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15221" class="LineNr">15221 </span> 58/pop-to-eax -<span id="L15222" class="LineNr">15222 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15223" class="LineNr">15223 </span> 89/<- %esp 5/r32/ebp -<span id="L15224" class="LineNr">15224 </span> 5d/pop-to-ebp -<span id="L15225" class="LineNr">15225 </span> c3/return -<span id="L15226" class="LineNr">15226 </span> -<span id="L15227" class="LineNr">15227 </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="L15228" class="LineNr">15228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15229" class="LineNr">15229 </span> 55/push-ebp -<span id="L15230" class="LineNr">15230 </span> 89/<- %ebp 4/r32/esp -<span id="L15231" class="LineNr">15231 </span> <span class="subxComment"># some preprocessing</span> -<span id="L15232" class="LineNr">15232 </span> (<a href='mu.subx.html#L15272'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) -<span id="L15233" class="LineNr">15233 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15234" class="LineNr">15234 </span> 50/push-eax -<span id="L15235" class="LineNr">15235 </span> 51/push-ecx -<span id="L15236" class="LineNr">15236 </span> 52/push-edx -<span id="L15237" class="LineNr">15237 </span> <span class="subxComment"># initialize some global state</span> -<span id="L15238" class="LineNr">15238 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> -<span id="L15239" class="LineNr">15239 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 0/imm32 -<span id="L15240" class="LineNr">15240 </span> <span class="subxComment"># ecx = f</span> -<span id="L15241" class="LineNr">15241 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15242" class="LineNr">15242 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> -<span id="L15243" class="LineNr">15243 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L15244" class="LineNr">15244 </span> 68/push 0xc00/imm32/size -<span id="L15245" class="LineNr">15245 </span> 68/push 0/imm32/top -<span id="L15246" class="LineNr">15246 </span> 89/<- %edx 4/r32/esp -<span id="L15247" class="LineNr">15247 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> -<span id="L15248" class="LineNr">15248 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15249" class="LineNr">15249 </span> <span class="subxComment">#</span> -<span id="L15250" class="LineNr">15250 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L15251" class="LineNr">15251 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) -<span id="L15252" class="LineNr">15252 </span> (<a href='mu.subx.html#L26040'>emit-subx-prologue</a> *(ebp+8)) -<span id="L15253" class="LineNr">15253 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L15254" class="LineNr">15254 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L15255" class="LineNr">15255 </span> <span class="subxComment">#</span> -<span id="L15256" class="LineNr">15256 </span> (<a href='mu.subx.html#L17956'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L15257" class="LineNr">15257 </span> (<a href='mu.subx.html#L26054'>emit-subx-epilogue</a> *(ebp+8)) -<span id="L15258" class="LineNr">15258 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> -<span id="L15259" class="LineNr">15259 </span> <span class="subxComment"># been cleaned up</span> -<span id="L15260" class="LineNr">15260 </span><span class="Constant">$emit-subx-function:end</span>: -<span id="L15261" class="LineNr">15261 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15262" class="LineNr">15262 </span> 81 0/subop/add %esp 0xc08/imm32 -<span id="L15263" class="LineNr">15263 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15264" class="LineNr">15264 </span> 5a/pop-to-edx -<span id="L15265" class="LineNr">15265 </span> 59/pop-to-ecx -<span id="L15266" class="LineNr">15266 </span> 58/pop-to-eax -<span id="L15267" class="LineNr">15267 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15268" class="LineNr">15268 </span> 89/<- %esp 5/r32/ebp -<span id="L15269" class="LineNr">15269 </span> 5d/pop-to-ebp -<span id="L15270" class="LineNr">15270 </span> c3/return -<span id="L15271" class="LineNr">15271 </span> -<span id="L15272" class="LineNr">15272 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> -<span id="L15273" class="LineNr">15273 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15274" class="LineNr">15274 </span> 55/push-ebp -<span id="L15275" class="LineNr">15275 </span> 89/<- %ebp 4/r32/esp -<span id="L15276" class="LineNr">15276 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15277" class="LineNr">15277 </span> 50/push-eax -<span id="L15278" class="LineNr">15278 </span> 51/push-ecx -<span id="L15279" class="LineNr">15279 </span> 52/push-edx -<span id="L15280" class="LineNr">15280 </span> 53/push-ebx -<span id="L15281" class="LineNr">15281 </span> 57/push-edi -<span id="L15282" class="LineNr">15282 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> -<span id="L15283" class="LineNr">15283 </span> ba/copy-to-edx 8/imm32 -<span id="L15284" class="LineNr">15284 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> -<span id="L15285" class="LineNr">15285 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L15286" class="LineNr">15286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L15287" class="LineNr">15287 </span> 89/<- %ecx 0/r32/eax -<span id="L15288" class="LineNr">15288 </span> { -<span id="L15289" class="LineNr">15289 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: -<span id="L15290" class="LineNr">15290 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L15291" class="LineNr">15291 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15292" class="LineNr">15292 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> -<span id="L15293" class="LineNr">15293 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15294" class="LineNr">15294 </span> 89/<- %ebx 0/r32/eax -<span id="L15295" class="LineNr">15295 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> -<span id="L15296" class="LineNr">15296 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> -<span id="L15297" class="LineNr">15297 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L15298" class="LineNr">15298 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L15299" class="LineNr">15299 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L15300" class="LineNr">15300 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> -<span id="L15301" class="LineNr">15301 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> -<span id="L15302" class="LineNr">15302 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L15303" class="LineNr">15303 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15304" class="LineNr">15304 </span> <span class="subxComment"># v->offset = next-offset</span> -<span id="L15305" class="LineNr">15305 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L15306" class="LineNr">15306 </span> <span class="subxComment"># next-offset += size-of(v)</span> -<span id="L15307" class="LineNr">15307 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L15308" class="LineNr">15308 </span> 01/add-to %edx 0/r32/eax -<span id="L15309" class="LineNr">15309 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L15310" class="LineNr">15310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15311" class="LineNr">15311 </span> 89/<- %ecx 0/r32/eax -<span id="L15312" class="LineNr">15312 </span> <span class="subxComment">#</span> -<span id="L15313" class="LineNr">15313 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L15314" class="LineNr">15314 </span> } -<span id="L15315" class="LineNr">15315 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: -<span id="L15316" class="LineNr">15316 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15317" class="LineNr">15317 </span> 5f/pop-to-edi -<span id="L15318" class="LineNr">15318 </span> 5b/pop-to-ebx -<span id="L15319" class="LineNr">15319 </span> 5a/pop-to-edx -<span id="L15320" class="LineNr">15320 </span> 59/pop-to-ecx -<span id="L15321" class="LineNr">15321 </span> 58/pop-to-eax -<span id="L15322" class="LineNr">15322 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15323" class="LineNr">15323 </span> 89/<- %esp 5/r32/ebp -<span id="L15324" class="LineNr">15324 </span> 5d/pop-to-ebp -<span id="L15325" class="LineNr">15325 </span> c3/return -<span id="L15326" class="LineNr">15326 </span> -<span id="L15327" class="LineNr">15327 </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="L15328" class="LineNr">15328 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15329" class="LineNr">15329 </span> 55/push-ebp -<span id="L15330" class="LineNr">15330 </span> 89/<- %ebp 4/r32/esp -<span id="L15331" class="LineNr">15331 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15332" class="LineNr">15332 </span> 50/push-eax -<span id="L15333" class="LineNr">15333 </span> 51/push-ecx -<span id="L15334" class="LineNr">15334 </span> 53/push-ebx -<span id="L15335" class="LineNr">15335 </span> 56/push-esi -<span id="L15336" class="LineNr">15336 </span> <span class="subxComment"># esi = stmts</span> -<span id="L15337" class="LineNr">15337 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L15338" class="LineNr">15338 </span> <span class="subxComment">#</span> -<span id="L15339" class="LineNr">15339 </span> { -<span id="L15340" class="LineNr">15340 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: -<span id="L15341" class="LineNr">15341 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L15342" class="LineNr">15342 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15343" class="LineNr">15343 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> -<span id="L15344" class="LineNr">15344 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15345" class="LineNr">15345 </span> 89/<- %ecx 0/r32/eax -<span id="L15346" class="LineNr">15346 </span> { -<span id="L15347" class="LineNr">15347 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: -<span id="L15348" class="LineNr">15348 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L15349" class="LineNr">15349 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15350" class="LineNr">15350 </span><span class="Constant">$emit-subx-stmt-list:block</span>: -<span id="L15351" class="LineNr">15351 </span> (<a href='mu.subx.html#L17956'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L15352" class="LineNr">15352 </span> } -<span id="L15353" class="LineNr">15353 </span> { -<span id="L15354" class="LineNr">15354 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: -<span id="L15355" class="LineNr">15355 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L15356" class="LineNr">15356 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15357" class="LineNr">15357 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: -<span id="L15358" class="LineNr">15358 </span> { -<span id="L15359" class="LineNr">15359 </span> (<a href='mu.subx.html#L15626'>is-mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15360" class="LineNr">15360 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15361" class="LineNr">15361 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15362" class="LineNr">15362 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: -<span id="L15363" class="Folded">15363 </span><span class="Folded">+-- 27 lines: # unconditional loops --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15390" class="Folded">15390 </span><span class="Folded">+-- 16 lines: # unconditional breaks -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15406" class="Folded">15406 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15444" class="Folded">15444 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15463" class="LineNr">15463 </span> } -<span id="L15464" class="LineNr">15464 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: -<span id="L15465" class="LineNr">15465 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> *(ebp+0x18) *(ebp+0x1c)) -<span id="L15466" class="LineNr">15466 </span> e9/jump $emit-subx-stmt-list:continue/disp32 -<span id="L15467" class="LineNr">15467 </span> } -<span id="L15468" class="LineNr">15468 </span> { -<span id="L15469" class="LineNr">15469 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: -<span id="L15470" class="LineNr">15470 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> -<span id="L15471" class="LineNr">15471 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15472" class="LineNr">15472 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: -<span id="L15473" class="LineNr">15473 </span> (<a href='mu.subx.html#L16578'>emit-subx-var-def</a> *(ebp+8) %ecx) -<span id="L15474" class="LineNr">15474 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> -<span id="L15475" class="LineNr">15475 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> -<span id="L15476" class="LineNr">15476 </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="L15477" class="LineNr">15477 </span> <span class="subxComment">#</span> -<span id="L15478" class="LineNr">15478 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L15479" class="LineNr">15479 </span> } -<span id="L15480" class="LineNr">15480 </span> { -<span id="L15481" class="LineNr">15481 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: -<span id="L15482" class="LineNr">15482 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L15483" class="LineNr">15483 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15484" class="LineNr">15484 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: -<span id="L15485" class="LineNr">15485 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> -<span id="L15486" class="LineNr">15486 </span> (<a href='mu.subx.html#L15515'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L15487" class="LineNr">15487 </span> <span class="subxComment"># emit the instruction as usual</span> -<span id="L15488" class="LineNr">15488 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> *(ebp+0x18) *(ebp+0x1c)) -<span id="L15489" class="LineNr">15489 </span> <span class="subxComment">#</span> -<span id="L15490" class="LineNr">15490 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L15491" class="LineNr">15491 </span> } -<span id="L15492" class="LineNr">15492 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: -<span id="L15493" class="LineNr">15493 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L15494" class="LineNr">15494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15495" class="LineNr">15495 </span> 89/<- %esi 0/r32/eax -<span id="L15496" class="LineNr">15496 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15497" class="LineNr">15497 </span> } -<span id="L15498" class="LineNr">15498 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: -<span id="L15499" class="LineNr">15499 </span> (<a href='mu.subx.html#L15784'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15500" class="LineNr">15500 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: -<span id="L15501" class="LineNr">15501 </span> (<a href='mu.subx.html#L16024'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15502" class="LineNr">15502 </span> (<a href='mu.subx.html#L16424'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> *(ebp+0x14)) -<span id="L15503" class="LineNr">15503 </span><span class="Constant">$emit-subx-stmt-list:end</span>: -<span id="L15504" class="LineNr">15504 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15505" class="LineNr">15505 </span> 5e/pop-to-esi -<span id="L15506" class="LineNr">15506 </span> 5b/pop-to-ebx -<span id="L15507" class="LineNr">15507 </span> 59/pop-to-ecx -<span id="L15508" class="LineNr">15508 </span> 58/pop-to-eax -<span id="L15509" class="LineNr">15509 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15510" class="LineNr">15510 </span> 89/<- %esp 5/r32/ebp -<span id="L15511" class="LineNr">15511 </span> 5d/pop-to-ebp -<span id="L15512" class="LineNr">15512 </span> c3/return -<span id="L15513" class="LineNr">15513 </span> -<span id="L15514" class="LineNr">15514 </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="L15515" class="LineNr">15515 </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="L15516" class="LineNr">15516 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15517" class="LineNr">15517 </span> 55/push-ebp -<span id="L15518" class="LineNr">15518 </span> 89/<- %ebp 4/r32/esp -<span id="L15519" class="LineNr">15519 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15520" class="LineNr">15520 </span> 50/push-eax -<span id="L15521" class="LineNr">15521 </span> 51/push-ecx -<span id="L15522" class="LineNr">15522 </span> 52/push-edx -<span id="L15523" class="LineNr">15523 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L15524" class="LineNr">15524 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15525" class="LineNr">15525 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> -<span id="L15526" class="LineNr">15526 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L15527" class="LineNr">15527 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> -<span id="L15528" class="LineNr">15528 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> -<span id="L15529" class="LineNr">15529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L15530" class="LineNr">15530 </span> 89/<- %ecx 0/r32/eax -<span id="L15531" class="LineNr">15531 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L15532" class="LineNr">15532 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/r32/eax -<span id="L15533" class="LineNr">15533 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L15534" class="LineNr">15534 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L15535" class="LineNr">15535 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> -<span id="L15536" class="LineNr">15536 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L15537" class="LineNr">15537 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> -<span id="L15538" class="LineNr">15538 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> -<span id="L15539" class="LineNr">15539 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L15540" class="LineNr">15540 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15541" class="LineNr">15541 </span> <span class="subxComment"># ensure that v is in a register</span> -<span id="L15542" class="LineNr">15542 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L15543" class="LineNr">15543 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 -<span id="L15544" class="LineNr">15544 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> -<span id="L15545" class="LineNr">15545 </span> (<a href='mu.subx.html#L16096'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L15546" class="LineNr">15546 </span> 89/<- %edx 0/r32/eax -<span id="L15547" class="LineNr">15547 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15548" class="LineNr">15548 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L15549" class="LineNr">15549 </span> (<a href='mu.subx.html#L16169'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L15550" class="LineNr">15550 </span> 89/<- %edx 0/r32/eax -<span id="L15551" class="LineNr">15551 </span> <span class="subxComment"># check emit-spill?</span> -<span id="L15552" class="LineNr">15552 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15553" class="LineNr">15553 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L15554" class="LineNr">15554 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> -<span id="L15555" class="LineNr">15555 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> -<span id="L15556" class="LineNr">15556 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L15557" class="LineNr">15557 </span> <span class="subxComment"># emit spill</span> -<span id="L15558" class="LineNr">15558 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15559" class="LineNr">15559 </span> (<a href='mu.subx.html#L15868'>emit-push-register</a> *(ebp+8) %eax) -<span id="L15560" class="LineNr">15560 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a></span>: -<span id="L15561" class="LineNr">15561 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15562" class="LineNr">15562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L15563" class="LineNr">15563 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> -<span id="L15564" class="LineNr">15564 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> -<span id="L15565" class="LineNr">15565 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> -<span id="L15566" class="LineNr">15566 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) -<span id="L15567" class="LineNr">15567 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: -<span id="L15568" class="LineNr">15568 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15569" class="LineNr">15569 </span> 5a/pop-to-edx -<span id="L15570" class="LineNr">15570 </span> 59/pop-to-ecx -<span id="L15571" class="LineNr">15571 </span> 58/pop-to-eax -<span id="L15572" class="LineNr">15572 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15573" class="LineNr">15573 </span> 89/<- %esp 5/r32/ebp -<span id="L15574" class="LineNr">15574 </span> 5d/pop-to-ebp -<span id="L15575" class="LineNr">15575 </span> c3/return -<span id="L15576" class="LineNr">15576 </span> -<span id="L15577" class="LineNr">15577 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: -<span id="L15578" class="LineNr">15578 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> -<span id="L15579" class="LineNr">15579 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) -<span id="L15580" class="LineNr">15580 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> -<span id="L15581" class="LineNr">15581 </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="L15582" class="LineNr">15582 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) -<span id="L15583" class="LineNr">15583 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) -<span id="L15584" class="LineNr">15584 </span> <span class="subxComment"># never gets here</span> -<span id="L15585" class="LineNr">15585 </span> -<span id="L15586" class="LineNr">15586 </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="L15587" class="LineNr">15587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15588" class="LineNr">15588 </span> 55/push-ebp -<span id="L15589" class="LineNr">15589 </span> 89/<- %ebp 4/r32/esp -<span id="L15590" class="LineNr">15590 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15591" class="LineNr">15591 </span> 50/push-eax -<span id="L15592" class="LineNr">15592 </span> 51/push-ecx -<span id="L15593" class="LineNr">15593 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L15594" class="LineNr">15594 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15595" class="LineNr">15595 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> -<span id="L15596" class="LineNr">15596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L15597" class="LineNr">15597 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L15598" class="LineNr">15598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15599" class="LineNr">15599 </span> <span class="subxComment"># clean up until target block</span> -<span id="L15600" class="LineNr">15600 </span> (<a href='mu.subx.html#L15944'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) -<span id="L15601" class="LineNr">15601 </span> <span class="subxComment"># emit jump to target block</span> -<span id="L15602" class="LineNr">15602 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15603" class="LineNr">15603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L15604" class="LineNr">15604 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L15605" class="LineNr">15605 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L15606" class="LineNr">15606 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) -<span id="L15607" class="LineNr">15607 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15608" class="LineNr">15608 </span> { -<span id="L15609" class="LineNr">15609 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15610" class="LineNr">15610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) -<span id="L15611" class="LineNr">15611 </span> } -<span id="L15612" class="LineNr">15612 </span> 3d/compare-eax-and 0/imm32/false <span class="subxComment"># just in case the function call modified flags</span> -<span id="L15613" class="LineNr">15613 </span> { -<span id="L15614" class="LineNr">15614 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15615" class="LineNr">15615 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) -<span id="L15616" class="LineNr">15616 </span> } -<span id="L15617" class="LineNr">15617 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: -<span id="L15618" class="LineNr">15618 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15619" class="LineNr">15619 </span> 59/pop-to-ecx -<span id="L15620" class="LineNr">15620 </span> 58/pop-to-eax -<span id="L15621" class="LineNr">15621 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15622" class="LineNr">15622 </span> 89/<- %esp 5/r32/ebp -<span id="L15623" class="LineNr">15623 </span> 5d/pop-to-ebp -<span id="L15624" class="LineNr">15624 </span> c3/return -<span id="L15625" class="LineNr">15625 </span> -<span id="L15626" class="LineNr">15626 </span><span class="subxFunction">is-mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> -<span id="L15627" class="LineNr">15627 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15628" class="LineNr">15628 </span> 55/push-ebp -<span id="L15629" class="LineNr">15629 </span> 89/<- %ebp 4/r32/esp -<span id="L15630" class="LineNr">15630 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15631" class="LineNr">15631 </span> 51/push-ecx -<span id="L15632" class="LineNr">15632 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L15633" class="LineNr">15633 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L15634" class="LineNr">15634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L15635" class="LineNr">15635 </span> 89/<- %ecx 0/r32/eax -<span id="L15636" class="LineNr">15636 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> -<span id="L15637" class="LineNr">15637 </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="L15638" class="LineNr">15638 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15639" class="LineNr">15639 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 -<span id="L15640" class="LineNr">15640 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "break")</span> -<span id="L15641" class="LineNr">15641 </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="L15642" class="LineNr">15642 </span><span class="Constant">$is-mu-branch?:end</span>: -<span id="L15643" class="LineNr">15643 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15644" class="LineNr">15644 </span> 59/pop-to-ecx -<span id="L15645" class="LineNr">15645 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15646" class="LineNr">15646 </span> 89/<- %esp 5/r32/ebp -<span id="L15647" class="LineNr">15647 </span> 5d/pop-to-ebp -<span id="L15648" class="LineNr">15648 </span> c3/return -<span id="L15649" class="LineNr">15649 </span> -<span id="L15650" class="LineNr">15650 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> -<span id="L15651" class="LineNr">15651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15652" class="LineNr">15652 </span> 55/push-ebp -<span id="L15653" class="LineNr">15653 </span> 89/<- %ebp 4/r32/esp -<span id="L15654" class="LineNr">15654 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15655" class="LineNr">15655 </span> 50/push-eax -<span id="L15656" class="LineNr">15656 </span> <span class="subxComment"># eax = stmt</span> -<span id="L15657" class="LineNr">15657 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L15658" class="LineNr">15658 </span> <span class="subxComment">#</span> -<span id="L15659" class="LineNr">15659 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L15660" class="LineNr">15660 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L15676'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> -<span id="L15661" class="LineNr">15661 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15662" class="LineNr">15662 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L15663" class="LineNr">15663 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L15664" class="LineNr">15664 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) -<span id="L15665" class="LineNr">15665 </span><span class="Constant">$emit-reverse-break:end</span>: -<span id="L15666" class="LineNr">15666 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15667" class="LineNr">15667 </span> 58/pop-to-eax -<span id="L15668" class="LineNr">15668 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15669" class="LineNr">15669 </span> 89/<- %esp 5/r32/ebp -<span id="L15670" class="LineNr">15670 </span> 5d/pop-to-ebp -<span id="L15671" class="LineNr">15671 </span> c3/return -<span id="L15672" class="LineNr">15672 </span> -<span id="L15673" class="LineNr">15673 </span>== data -<span id="L15674" class="LineNr">15674 </span> -<span id="L15675" class="LineNr">15675 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> -<span id="L15676" class="LineNr">15676 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> -<span id="L15677" class="LineNr">15677 </span> <span class="subxComment"># a table is a stream</span> -<span id="L15678" class="LineNr">15678 </span> 0x1c0/imm32/write -<span id="L15679" class="LineNr">15679 </span> 0/imm32/read -<span id="L15680" class="LineNr">15680 </span> 0x1c0/imm32/size -<span id="L15681" class="LineNr">15681 </span> <span class="subxComment"># data</span> -<span id="L15682" class="LineNr">15682 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21352'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21689'>_string_0f_85_jump_label</a>/imm32 -<span id="L15683" class="LineNr">15683 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21462'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21689'>_string_0f_85_jump_label</a>/imm32 -<span id="L15684" class="LineNr">15684 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21367'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21674'>_string_0f_84_jump_label</a>/imm32 -<span id="L15685" class="LineNr">15685 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21477'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21674'>_string_0f_84_jump_label</a>/imm32 -<span id="L15686" class="LineNr">15686 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21342'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21749'>_string_0f_8d_jump_label</a>/imm32 -<span id="L15687" class="LineNr">15687 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21452'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21749'>_string_0f_8d_jump_label</a>/imm32 -<span id="L15688" class="LineNr">15688 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21357'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21764'>_string_0f_8e_jump_label</a>/imm32 -<span id="L15689" class="LineNr">15689 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21467'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21764'>_string_0f_8e_jump_label</a>/imm32 -<span id="L15690" class="LineNr">15690 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21347'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15691" class="LineNr">15691 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21457'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15692" class="LineNr">15692 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21362'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21734'>_string_0f_8c_jump_label</a>/imm32 -<span id="L15693" class="LineNr">15693 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21472'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21734'>_string_0f_8c_jump_label</a>/imm32 -<span id="L15694" class="LineNr">15694 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21372'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32 -<span id="L15695" class="LineNr">15695 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21482'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32 -<span id="L15696" class="LineNr">15696 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21382'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32 -<span id="L15697" class="LineNr">15697 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21492'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32 -<span id="L15698" class="LineNr">15698 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21377'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15699" class="LineNr">15699 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21487'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15700" class="LineNr">15700 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21387'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32 -<span id="L15701" class="LineNr">15701 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21497'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32 -<span id="L15702" class="LineNr">15702 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21392'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32 -<span id="L15703" class="LineNr">15703 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21502'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32 -<span id="L15704" class="LineNr">15704 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21402'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32 -<span id="L15705" class="LineNr">15705 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21512'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32 -<span id="L15706" class="LineNr">15706 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21397'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15707" class="LineNr">15707 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21507'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32 -<span id="L15708" class="LineNr">15708 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21407'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32 -<span id="L15709" class="LineNr">15709 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21517'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32 -<span id="L15710" class="LineNr">15710 </span> -<span id="L15711" class="LineNr">15711 </span>== code -<span id="L15712" class="LineNr">15712 </span> -<span id="L15713" class="LineNr">15713 </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="L15714" class="LineNr">15714 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15715" class="LineNr">15715 </span> 55/push-ebp -<span id="L15716" class="LineNr">15716 </span> 89/<- %ebp 4/r32/esp -<span id="L15717" class="LineNr">15717 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15718" class="LineNr">15718 </span> 50/push-eax -<span id="L15719" class="LineNr">15719 </span> 51/push-ecx -<span id="L15720" class="LineNr">15720 </span> 52/push-edx -<span id="L15721" class="LineNr">15721 </span> 53/push-ebx -<span id="L15722" class="LineNr">15722 </span> 56/push-esi -<span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># ecx = vars</span> -<span id="L15724" class="LineNr">15724 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15725" class="LineNr">15725 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L15726" class="LineNr">15726 </span> 8b/-> *ecx 0/r32/eax -<span id="L15727" class="LineNr">15727 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L15728" class="LineNr">15728 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L15729" class="LineNr">15729 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L15730" class="LineNr">15730 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L15731" class="LineNr">15731 </span> <span class="subxComment"># edx = depth</span> -<span id="L15732" class="LineNr">15732 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L15733" class="LineNr">15733 </span> { -<span id="L15734" class="LineNr">15734 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: -<span id="L15735" class="LineNr">15735 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L15736" class="LineNr">15736 </span> 39/compare %esi 1/r32/ecx -<span id="L15737" class="LineNr">15737 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L15738" class="LineNr">15738 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L15739" class="LineNr">15739 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15740" class="LineNr">15740 </span> 89/<- %ebx 0/r32/eax -<span id="L15741" class="LineNr">15741 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L15742" class="LineNr">15742 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L15743" class="LineNr">15743 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L15744" class="LineNr">15744 </span> { -<span id="L15745" class="LineNr">15745 </span><span class="Constant">$emit-unconditional-jump-to-depth:check</span>: -<span id="L15746" class="LineNr">15746 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> -<span id="L15747" class="LineNr">15747 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L15748" class="LineNr">15748 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15749" class="LineNr">15749 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: -<span id="L15750" class="LineNr">15750 </span> <span class="subxComment"># if v is not a literal, continue</span> -<span id="L15751" class="LineNr">15751 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L15752" class="LineNr">15752 </span> 3d/compare-eax-and 0/imm32 -<span id="L15753" class="LineNr">15753 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15754" class="LineNr">15754 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: -<span id="L15755" class="LineNr">15755 </span> <span class="subxComment"># emit unconditional jump, then return</span> -<span id="L15756" class="LineNr">15756 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15757" class="LineNr">15757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L15758" class="LineNr">15758 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15759" class="LineNr">15759 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L15760" class="LineNr">15760 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) -<span id="L15761" class="LineNr">15761 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) -<span id="L15762" class="LineNr">15762 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) -<span id="L15763" class="LineNr">15763 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 -<span id="L15764" class="LineNr">15764 </span> } -<span id="L15765" class="LineNr">15765 </span> <span class="subxComment"># curr -= 12</span> -<span id="L15766" class="LineNr">15766 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L15767" class="LineNr">15767 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15768" class="LineNr">15768 </span> } -<span id="L15769" class="LineNr">15769 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> -<span id="L15770" class="LineNr">15770 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: -<span id="L15771" class="LineNr">15771 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15772" class="LineNr">15772 </span> 5e/pop-to-esi -<span id="L15773" class="LineNr">15773 </span> 5b/pop-to-ebx -<span id="L15774" class="LineNr">15774 </span> 5a/pop-to-edx -<span id="L15775" class="LineNr">15775 </span> 59/pop-to-ecx -<span id="L15776" class="LineNr">15776 </span> 58/pop-to-eax -<span id="L15777" class="LineNr">15777 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15778" class="LineNr">15778 </span> 89/<- %esp 5/r32/ebp -<span id="L15779" class="LineNr">15779 </span> 5d/pop-to-ebp -<span id="L15780" class="LineNr">15780 </span> c3/return -<span id="L15781" class="LineNr">15781 </span> -<span id="L15782" class="LineNr">15782 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> -<span id="L15783" class="LineNr">15783 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L15784" class="LineNr">15784 </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="L15785" class="LineNr">15785 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15786" class="LineNr">15786 </span> 55/push-ebp -<span id="L15787" class="LineNr">15787 </span> 89/<- %ebp 4/r32/esp -<span id="L15788" class="LineNr">15788 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15789" class="LineNr">15789 </span> 50/push-eax -<span id="L15790" class="LineNr">15790 </span> 51/push-ecx -<span id="L15791" class="LineNr">15791 </span> 52/push-edx -<span id="L15792" class="LineNr">15792 </span> 53/push-ebx -<span id="L15793" class="LineNr">15793 </span> 56/push-esi -<span id="L15794" class="LineNr">15794 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> -<span id="L15795" class="LineNr">15795 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15796" class="LineNr">15796 </span> <span class="subxComment"># ecx = vars</span> -<span id="L15797" class="LineNr">15797 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15798" class="LineNr">15798 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L15799" class="LineNr">15799 </span> 8b/-> *ecx 6/r32/esi -<span id="L15800" class="LineNr">15800 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L15801" class="LineNr">15801 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L15802" class="LineNr">15802 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L15803" class="LineNr">15803 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L15804" class="LineNr">15804 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L15805" class="LineNr">15805 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L15806" class="LineNr">15806 </span> { -<span id="L15807" class="LineNr">15807 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: -<span id="L15808" class="LineNr">15808 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L15809" class="LineNr">15809 </span> 39/compare %esi 1/r32/ecx -<span id="L15810" class="LineNr">15810 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L15811" class="LineNr">15811 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L15812" class="LineNr">15812 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15813" class="LineNr">15813 </span> 89/<- %ebx 0/r32/eax -<span id="L15814" class="LineNr">15814 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> -<span id="L15815" class="LineNr">15815 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L15816" class="LineNr">15816 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L15817" class="LineNr">15817 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L15818" class="LineNr">15818 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15819" class="LineNr">15819 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L15820" class="LineNr">15820 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L15821" class="LineNr">15821 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L15822" class="LineNr">15822 </span> <span class="subxComment"># if v is in a register</span> -<span id="L15823" class="LineNr">15823 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L15824" class="LineNr">15824 </span> { -<span id="L15825" class="LineNr">15825 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15826" class="LineNr">15826 </span> { -<span id="L15827" class="LineNr">15827 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: -<span id="L15828" class="LineNr">15828 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L15829" class="LineNr">15829 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15830" class="LineNr">15830 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15831" class="LineNr">15831 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: -<span id="L15832" class="LineNr">15832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15833" class="LineNr">15833 </span> (<a href='mu.subx.html#L15905'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L15834" class="LineNr">15834 </span> } -<span id="L15835" class="LineNr">15835 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 -<span id="L15836" class="LineNr">15836 </span> } -<span id="L15837" class="LineNr">15837 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L15838" class="LineNr">15838 </span> { -<span id="L15839" class="LineNr">15839 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15840" class="LineNr">15840 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: -<span id="L15841" class="LineNr">15841 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L15842" class="LineNr">15842 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L15843" class="LineNr">15843 </span> 3d/compare-eax-and 0/imm32 -<span id="L15844" class="LineNr">15844 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15845" class="LineNr">15845 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: -<span id="L15846" class="LineNr">15846 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15847" class="LineNr">15847 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L15848" class="LineNr">15848 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L15849" class="LineNr">15849 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L15850" class="LineNr">15850 </span> } -<span id="L15851" class="LineNr">15851 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: -<span id="L15852" class="LineNr">15852 </span> <span class="subxComment"># curr -= 12</span> -<span id="L15853" class="LineNr">15853 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L15854" class="LineNr">15854 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15855" class="LineNr">15855 </span> } -<span id="L15856" class="LineNr">15856 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: -<span id="L15857" class="LineNr">15857 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15858" class="LineNr">15858 </span> 5e/pop-to-esi -<span id="L15859" class="LineNr">15859 </span> 5b/pop-to-ebx -<span id="L15860" class="LineNr">15860 </span> 5a/pop-to-edx -<span id="L15861" class="LineNr">15861 </span> 59/pop-to-ecx -<span id="L15862" class="LineNr">15862 </span> 58/pop-to-eax -<span id="L15863" class="LineNr">15863 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15864" class="LineNr">15864 </span> 89/<- %esp 5/r32/ebp -<span id="L15865" class="LineNr">15865 </span> 5d/pop-to-ebp -<span id="L15866" class="LineNr">15866 </span> c3/return -<span id="L15867" class="LineNr">15867 </span> -<span id="L15868" class="LineNr">15868 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L15869" class="LineNr">15869 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15870" class="LineNr">15870 </span> 55/push-ebp -<span id="L15871" class="LineNr">15871 </span> 89/<- %ebp 4/r32/esp -<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># eax = reg</span> -<span id="L15873" class="LineNr">15873 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L15874" class="LineNr">15874 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L15875" class="LineNr">15875 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L15876" class="LineNr">15876 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15877" class="LineNr">15877 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> -<span id="L15878" class="LineNr">15878 </span> { -<span id="L15879" class="LineNr">15879 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L15880" class="LineNr">15880 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># TODO validate register</span> -<span id="L15882" class="LineNr">15882 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15883" class="LineNr">15883 </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="L15884" class="LineNr">15884 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15885" class="LineNr">15885 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) -<span id="L15886" class="LineNr">15886 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L15887" class="LineNr">15887 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L15888" class="LineNr">15888 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L15889" class="LineNr">15889 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15890" class="LineNr">15890 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L15891" class="LineNr">15891 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L15892" class="LineNr">15892 </span> e9/jump $emit-push-register:end/disp32 -<span id="L15893" class="LineNr">15893 </span> } -<span id="L15894" class="LineNr">15894 </span> <span class="subxComment"># otherwise push gp register</span> -<span id="L15895" class="LineNr">15895 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15896" class="LineNr">15896 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) -<span id="L15897" class="LineNr">15897 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L15898" class="LineNr">15898 </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="L15899" class="LineNr">15899 </span><span class="Constant">$emit-push-register:end</span>: -<span id="L15900" class="LineNr">15900 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15901" class="LineNr">15901 </span> 89/<- %esp 5/r32/ebp -<span id="L15902" class="LineNr">15902 </span> 5d/pop-to-ebp -<span id="L15903" class="LineNr">15903 </span> c3/return -<span id="L15904" class="LineNr">15904 </span> -<span id="L15905" class="LineNr">15905 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L15906" class="LineNr">15906 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15907" class="LineNr">15907 </span> 55/push-ebp -<span id="L15908" class="LineNr">15908 </span> 89/<- %ebp 4/r32/esp -<span id="L15909" class="LineNr">15909 </span> <span class="subxComment"># eax = reg</span> -<span id="L15910" class="LineNr">15910 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L15911" class="LineNr">15911 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L15912" class="LineNr">15912 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L15913" class="LineNr">15913 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15914" class="LineNr">15914 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> -<span id="L15915" class="LineNr">15915 </span> { -<span id="L15916" class="LineNr">15916 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L15917" class="LineNr">15917 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15918" class="LineNr">15918 </span> <span class="subxComment"># TODO validate register</span> -<span id="L15919" class="LineNr">15919 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15920" class="LineNr">15920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) -<span id="L15921" class="LineNr">15921 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L15922" class="LineNr">15922 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L15923" class="LineNr">15923 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L15924" class="LineNr">15924 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15925" class="LineNr">15925 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L15926" class="LineNr">15926 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L15927" class="LineNr">15927 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15928" class="LineNr">15928 </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="L15929" class="LineNr">15929 </span> e9/jump $emit-push-register:end/disp32 -<span id="L15930" class="LineNr">15930 </span> } -<span id="L15931" class="LineNr">15931 </span> <span class="subxComment"># otherwise pop to gp register</span> -<span id="L15932" class="LineNr">15932 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15933" class="LineNr">15933 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L15934" class="LineNr">15934 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L15935" class="LineNr">15935 </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="L15936" class="LineNr">15936 </span><span class="Constant">$emit-pop-register:end</span>: -<span id="L15937" class="LineNr">15937 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15938" class="LineNr">15938 </span> 89/<- %esp 5/r32/ebp -<span id="L15939" class="LineNr">15939 </span> 5d/pop-to-ebp -<span id="L15940" class="LineNr">15940 </span> c3/return -<span id="L15941" class="LineNr">15941 </span> -<span id="L15942" class="LineNr">15942 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> -<span id="L15943" class="LineNr">15943 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L15944" class="LineNr">15944 </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="L15945" class="LineNr">15945 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15946" class="LineNr">15946 </span> 55/push-ebp -<span id="L15947" class="LineNr">15947 </span> 89/<- %ebp 4/r32/esp -<span id="L15948" class="LineNr">15948 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15949" class="LineNr">15949 </span> 50/push-eax -<span id="L15950" class="LineNr">15950 </span> 51/push-ecx -<span id="L15951" class="LineNr">15951 </span> 52/push-edx -<span id="L15952" class="LineNr">15952 </span> 53/push-ebx -<span id="L15953" class="LineNr">15953 </span> <span class="subxComment"># ecx = vars</span> -<span id="L15954" class="LineNr">15954 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15955" class="LineNr">15955 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L15956" class="LineNr">15956 </span> 8b/-> *ecx 0/r32/eax -<span id="L15957" class="LineNr">15957 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L15958" class="LineNr">15958 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L15959" class="LineNr">15959 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L15960" class="LineNr">15960 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L15961" class="LineNr">15961 </span> { -<span id="L15962" class="LineNr">15962 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: -<span id="L15963" class="LineNr">15963 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L15964" class="LineNr">15964 </span> 39/compare %edx 1/r32/ecx -<span id="L15965" class="LineNr">15965 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L15966" class="LineNr">15966 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> -<span id="L15967" class="LineNr">15967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L15968" class="LineNr">15968 </span> 89/<- %ebx 0/r32/eax -<span id="L15969" class="LineNr">15969 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> -<span id="L15970" class="LineNr">15970 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15971" class="LineNr">15971 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L15972" class="LineNr">15972 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15973" class="LineNr">15973 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15974" class="LineNr">15974 </span> <span class="subxComment"># if v is in a register</span> -<span id="L15975" class="LineNr">15975 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L15976" class="LineNr">15976 </span> { -<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 id="L15979" class="LineNr">15979 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: -<span id="L15980" class="LineNr">15980 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L15981" class="LineNr">15981 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15982" class="LineNr">15982 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15983" class="LineNr">15983 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: -<span id="L15984" class="LineNr">15984 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L15985" class="LineNr">15985 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L15986" class="LineNr">15986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15987" class="LineNr">15987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L15988" class="LineNr">15988 </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="L15989" class="LineNr">15989 </span> } -<span id="L15990" class="LineNr">15990 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 -<span id="L15991" class="LineNr">15991 </span> } -<span id="L15992" class="LineNr">15992 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L15993" class="LineNr">15993 </span> { -<span id="L15994" class="LineNr">15994 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15995" class="LineNr">15995 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: -<span id="L15996" class="LineNr">15996 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L15997" class="LineNr">15997 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L15998" class="LineNr">15998 </span> 3d/compare-eax-and 0/imm32 -<span id="L15999" class="LineNr">15999 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16000" class="LineNr">16000 </span> <span class="subxComment">#</span> -<span id="L16001" class="LineNr">16001 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16002" class="LineNr">16002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L16003" class="LineNr">16003 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L16004" class="LineNr">16004 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L16005" class="LineNr">16005 </span> } -<span id="L16006" class="LineNr">16006 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: -<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># curr -= 12</span> -<span id="L16008" class="LineNr">16008 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L16009" class="LineNr">16009 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16010" class="LineNr">16010 </span> } -<span id="L16011" class="LineNr">16011 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: -<span id="L16012" class="LineNr">16012 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16013" class="LineNr">16013 </span> 5b/pop-to-ebx -<span id="L16014" class="LineNr">16014 </span> 5a/pop-to-edx -<span id="L16015" class="LineNr">16015 </span> 59/pop-to-ecx -<span id="L16016" class="LineNr">16016 </span> 58/pop-to-eax -<span id="L16017" class="LineNr">16017 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16018" class="LineNr">16018 </span> 89/<- %esp 5/r32/ebp -<span id="L16019" class="LineNr">16019 </span> 5d/pop-to-ebp -<span id="L16020" class="LineNr">16020 </span> c3/return -<span id="L16021" class="LineNr">16021 </span> -<span id="L16022" class="LineNr">16022 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> -<span id="L16023" class="LineNr">16023 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> -<span id="L16024" class="LineNr">16024 </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="L16025" class="LineNr">16025 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16026" class="LineNr">16026 </span> 55/push-ebp -<span id="L16027" class="LineNr">16027 </span> 89/<- %ebp 4/r32/esp -<span id="L16028" class="LineNr">16028 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16029" class="LineNr">16029 </span> 50/push-eax -<span id="L16030" class="LineNr">16030 </span> 51/push-ecx -<span id="L16031" class="LineNr">16031 </span> 52/push-edx -<span id="L16032" class="LineNr">16032 </span> 53/push-ebx -<span id="L16033" class="LineNr">16033 </span> 56/push-esi -<span id="L16034" class="LineNr">16034 </span> <span class="subxComment"># ecx = vars</span> -<span id="L16035" class="LineNr">16035 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16036" class="LineNr">16036 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L16037" class="LineNr">16037 </span> 8b/-> *ecx 6/r32/esi -<span id="L16038" class="LineNr">16038 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L16039" class="LineNr">16039 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L16040" class="LineNr">16040 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L16041" class="LineNr">16041 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L16042" class="LineNr">16042 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L16043" class="LineNr">16043 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L16044" class="LineNr">16044 </span> { -<span id="L16045" class="LineNr">16045 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: -<span id="L16046" class="LineNr">16046 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L16047" class="LineNr">16047 </span> 39/compare %esi 1/r32/ecx -<span id="L16048" class="LineNr">16048 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L16049" class="LineNr">16049 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L16050" class="LineNr">16050 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L16051" class="LineNr">16051 </span> 89/<- %ebx 0/r32/eax -<span id="L16052" class="LineNr">16052 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L16053" class="LineNr">16053 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L16054" class="LineNr">16054 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L16055" class="LineNr">16055 </span> <span class="subxComment"># if v is in a register</span> -<span id="L16056" class="LineNr">16056 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16057" class="LineNr">16057 </span> { -<span id="L16058" class="LineNr">16058 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16059" class="LineNr">16059 </span> { -<span id="L16060" class="LineNr">16060 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: -<span id="L16061" class="LineNr">16061 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L16062" class="LineNr">16062 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16063" class="LineNr">16063 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16064" class="LineNr">16064 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: -<span id="L16065" class="LineNr">16065 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L16066" class="LineNr">16066 </span> } -<span id="L16067" class="LineNr">16067 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 -<span id="L16068" class="LineNr">16068 </span> } -<span id="L16069" class="LineNr">16069 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L16070" class="LineNr">16070 </span> { -<span id="L16071" class="LineNr">16071 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16072" class="LineNr">16072 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: -<span id="L16073" class="LineNr">16073 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L16074" class="LineNr">16074 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L16075" class="LineNr">16075 </span> } -<span id="L16076" class="LineNr">16076 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: -<span id="L16077" class="LineNr">16077 </span> <span class="subxComment"># curr -= 12</span> -<span id="L16078" class="LineNr">16078 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L16079" class="LineNr">16079 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16080" class="LineNr">16080 </span> } -<span id="L16081" class="LineNr">16081 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: -<span id="L16082" class="LineNr">16082 </span> <span class="subxS1Comment"># . restore registers</span> -<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"># . epilogue</span> -<span id="L16089" class="LineNr">16089 </span> 89/<- %esp 5/r32/ebp -<span id="L16090" class="LineNr">16090 </span> 5d/pop-to-ebp -<span id="L16091" class="LineNr">16091 </span> c3/return -<span id="L16092" class="LineNr">16092 </span> -<span id="L16093" class="LineNr">16093 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> -<span id="L16094" class="LineNr">16094 </span><span class="subxComment"># and register as 'v'.</span> -<span id="L16095" class="LineNr">16095 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> -<span id="L16096" class="LineNr">16096 </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="L16097" class="LineNr">16097 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16098" class="LineNr">16098 </span> 55/push-ebp -<span id="L16099" class="LineNr">16099 </span> 89/<- %ebp 4/r32/esp -<span id="L16100" class="LineNr">16100 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16101" class="LineNr">16101 </span> 51/push-ecx -<span id="L16102" class="LineNr">16102 </span> 52/push-edx -<span id="L16103" class="LineNr">16103 </span> 53/push-ebx -<span id="L16104" class="LineNr">16104 </span> 56/push-esi -<span id="L16105" class="LineNr">16105 </span> 57/push-edi -<span id="L16106" class="LineNr">16106 </span> <span class="subxComment"># ecx = vars</span> -<span id="L16107" class="LineNr">16107 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16108" class="LineNr">16108 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L16109" class="LineNr">16109 </span> 8b/-> *ecx 0/r32/eax -<span id="L16110" class="LineNr">16110 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L16111" class="LineNr">16111 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L16112" class="LineNr">16112 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L16113" class="LineNr">16113 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L16114" class="LineNr">16114 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L16115" class="LineNr">16115 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L16116" class="LineNr">16116 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L16117" class="LineNr">16117 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> -<span id="L16118" class="LineNr">16118 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L16119" class="LineNr">16119 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16120" class="LineNr">16120 </span> 89/<- %esi 0/r32/eax -<span id="L16121" class="LineNr">16121 </span> { -<span id="L16122" class="LineNr">16122 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: -<span id="L16123" class="LineNr">16123 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L16124" class="LineNr">16124 </span> 39/compare %edx 1/r32/ecx -<span id="L16125" class="LineNr">16125 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L16126" class="LineNr">16126 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> -<span id="L16127" class="LineNr">16127 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16128" class="LineNr">16128 </span> 89/<- %edi 0/r32/eax -<span id="L16129" class="LineNr">16129 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> -<span id="L16130" class="LineNr">16130 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L16131" class="LineNr">16131 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L16132" class="LineNr">16132 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> -<span id="L16133" class="LineNr">16133 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16134" class="LineNr">16134 </span> 89/<- %edi 0/r32/eax -<span id="L16135" class="LineNr">16135 </span> <span class="subxComment"># if (cand-reg == null) continue</span> -<span id="L16136" class="LineNr">16136 </span> { -<span id="L16137" class="LineNr">16137 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: -<span id="L16138" class="LineNr">16138 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L16139" class="LineNr">16139 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16140" class="LineNr">16140 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> -<span id="L16141" class="LineNr">16141 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L16142" class="LineNr">16142 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16143" class="LineNr">16143 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16144" class="LineNr">16144 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: -<span id="L16145" class="LineNr">16145 </span> b8/copy-to-eax 0/imm32/false -<span id="L16146" class="LineNr">16146 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 -<span id="L16147" class="LineNr">16147 </span> } -<span id="L16148" class="LineNr">16148 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: -<span id="L16149" class="LineNr">16149 </span> <span class="subxComment"># curr -= 12</span> -<span id="L16150" class="LineNr">16150 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L16151" class="LineNr">16151 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16152" class="LineNr">16152 </span> } -<span id="L16153" class="LineNr">16153 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: -<span id="L16154" class="LineNr">16154 </span> <span class="subxComment"># return true</span> -<span id="L16155" class="LineNr">16155 </span> b8/copy-to-eax 1/imm32/true -<span id="L16156" class="LineNr">16156 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: -<span id="L16157" class="LineNr">16157 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16158" class="LineNr">16158 </span> 5f/pop-to-edi -<span id="L16159" class="LineNr">16159 </span> 5e/pop-to-esi -<span id="L16160" class="LineNr">16160 </span> 5b/pop-to-ebx -<span id="L16161" class="LineNr">16161 </span> 5a/pop-to-edx -<span id="L16162" class="LineNr">16162 </span> 59/pop-to-ecx -<span id="L16163" class="LineNr">16163 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16164" class="LineNr">16164 </span> 89/<- %esp 5/r32/ebp -<span id="L16165" class="LineNr">16165 </span> 5d/pop-to-ebp -<span id="L16166" class="LineNr">16166 </span> c3/return -<span id="L16167" class="LineNr">16167 </span> -<span id="L16168" class="LineNr">16168 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> -<span id="L16169" class="LineNr">16169 </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="L16170" class="LineNr">16170 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16171" class="LineNr">16171 </span> 55/push-ebp -<span id="L16172" class="LineNr">16172 </span> 89/<- %ebp 4/r32/esp -<span id="L16173" class="LineNr">16173 </span> <span class="subxComment"># eax = v</span> -<span id="L16174" class="LineNr">16174 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16175" class="LineNr">16175 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L16176" class="LineNr">16176 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16177" class="LineNr">16177 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> -<span id="L16178" class="LineNr">16178 </span> (<a href='mu.subx.html#L16199'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L16179" class="LineNr">16179 </span> <span class="subxComment"># if (target == 0) return true</span> -<span id="L16180" class="LineNr">16180 </span> { -<span id="L16181" class="LineNr">16181 </span> 3d/compare-eax-and 0/imm32 -<span id="L16182" class="LineNr">16182 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16183" class="LineNr">16183 </span> b8/copy-to-eax 1/imm32/true -<span id="L16184" class="LineNr">16184 </span> eb/jump $will-not-write-some-register?:end/disp8 -<span id="L16185" class="LineNr">16185 </span> } -<span id="L16186" class="LineNr">16186 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> -<span id="L16187" class="LineNr">16187 </span> (<a href='mu.subx.html#L16241'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L16188" class="LineNr">16188 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16189" class="LineNr">16189 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> -<span id="L16190" class="LineNr">16190 </span> 0f 94/set-if-= %al -<span id="L16191" class="LineNr">16191 </span><span class="Constant">$will-not-write-some-register?:end</span>: -<span id="L16192" class="LineNr">16192 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16193" class="LineNr">16193 </span> 89/<- %esp 5/r32/ebp -<span id="L16194" class="LineNr">16194 </span> 5d/pop-to-ebp -<span id="L16195" class="LineNr">16195 </span> c3/return -<span id="L16196" class="LineNr">16196 </span> -<span id="L16197" class="LineNr">16197 </span><span class="subxComment"># return fn output with matching register</span> -<span id="L16198" class="LineNr">16198 </span><span class="subxComment"># always returns false if 'reg' is null</span> -<span id="L16199" class="LineNr">16199 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> -<span id="L16200" class="LineNr">16200 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16201" class="LineNr">16201 </span> 55/push-ebp -<span id="L16202" class="LineNr">16202 </span> 89/<- %ebp 4/r32/esp -<span id="L16203" class="LineNr">16203 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16204" class="LineNr">16204 </span> 51/push-ecx -<span id="L16205" class="LineNr">16205 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L16206" class="LineNr">16206 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16207" class="LineNr">16207 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L16208" class="LineNr">16208 </span> 89/<- %ecx 0/r32/eax -<span id="L16209" class="LineNr">16209 </span> { -<span id="L16210" class="LineNr">16210 </span><span class="Constant">$find-register:loop</span>: -<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L16212" class="LineNr">16212 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16213" class="LineNr">16213 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16214" class="LineNr">16214 </span> <span class="subxComment"># eax = curr->value->register</span> -<span id="L16215" class="LineNr">16215 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16216" class="LineNr">16216 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16217" class="LineNr">16217 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> -<span id="L16218" class="LineNr">16218 </span><span class="Constant">$find-register:compare</span>: -<span id="L16219" class="LineNr">16219 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L16220" class="LineNr">16220 </span> { -<span id="L16221" class="LineNr">16221 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16222" class="LineNr">16222 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16223" class="LineNr">16223 </span><span class="Constant">$find-register:found</span>: -<span id="L16224" class="LineNr">16224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16225" class="LineNr">16225 </span> eb/jump $find-register:end/disp8 -<span id="L16226" class="LineNr">16226 </span> } -<span id="L16227" class="LineNr">16227 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L16228" class="LineNr">16228 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16229" class="LineNr">16229 </span> 89/<- %ecx 0/r32/eax -<span id="L16230" class="LineNr">16230 </span> <span class="subxComment">#</span> -<span id="L16231" class="LineNr">16231 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16232" class="LineNr">16232 </span> } -<span id="L16233" class="LineNr">16233 </span><span class="Constant">$find-register:end</span>: -<span id="L16234" class="LineNr">16234 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16235" class="LineNr">16235 </span> 59/pop-to-ecx -<span id="L16236" class="LineNr">16236 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16237" class="LineNr">16237 </span> 89/<- %esp 5/r32/ebp -<span id="L16238" class="LineNr">16238 </span> 5d/pop-to-ebp -<span id="L16239" class="LineNr">16239 </span> c3/return -<span id="L16240" class="LineNr">16240 </span> -<span id="L16241" class="LineNr">16241 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L16242" class="LineNr">16242 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16243" class="LineNr">16243 </span> 55/push-ebp -<span id="L16244" class="LineNr">16244 </span> 89/<- %ebp 4/r32/esp -<span id="L16245" class="LineNr">16245 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16246" class="LineNr">16246 </span> 51/push-ecx -<span id="L16247" class="LineNr">16247 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> -<span id="L16248" class="LineNr">16248 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16249" class="LineNr">16249 </span> { -<span id="L16250" class="LineNr">16250 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L16251" class="LineNr">16251 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16252" class="LineNr">16252 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16253" class="LineNr">16253 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> -<span id="L16254" class="LineNr">16254 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16255" class="LineNr">16255 </span> (<a href='mu.subx.html#L16272'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16256" class="LineNr">16256 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16257" class="LineNr">16257 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16258" class="LineNr">16258 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L16259" class="LineNr">16259 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16260" class="LineNr">16260 </span> 89/<- %ecx 0/r32/eax -<span id="L16261" class="LineNr">16261 </span> <span class="subxComment">#</span> -<span id="L16262" class="LineNr">16262 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16263" class="LineNr">16263 </span> } -<span id="L16264" class="LineNr">16264 </span><span class="Constant">$assigns-in-stmts?:end</span>: -<span id="L16265" class="LineNr">16265 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16266" class="LineNr">16266 </span> 59/pop-to-ecx -<span id="L16267" class="LineNr">16267 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16268" class="LineNr">16268 </span> 89/<- %esp 5/r32/ebp -<span id="L16269" class="LineNr">16269 </span> 5d/pop-to-ebp -<span id="L16270" class="LineNr">16270 </span> c3/return -<span id="L16271" class="LineNr">16271 </span> -<span id="L16272" class="LineNr">16272 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L16273" class="LineNr">16273 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16274" class="LineNr">16274 </span> 55/push-ebp -<span id="L16275" class="LineNr">16275 </span> 89/<- %ebp 4/r32/esp -<span id="L16276" class="LineNr">16276 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16277" class="LineNr">16277 </span> 51/push-ecx -<span id="L16278" class="LineNr">16278 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L16279" class="LineNr">16279 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> -<span id="L16281" class="LineNr">16281 </span> { -<span id="L16282" class="LineNr">16282 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L16283" class="LineNr">16283 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16284" class="LineNr">16284 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L16285" class="LineNr">16285 </span> (<a href='mu.subx.html#L16306'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16286" class="LineNr">16286 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L16287" class="LineNr">16287 </span> } -<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> -<span id="L16289" class="LineNr">16289 </span> { -<span id="L16290" class="LineNr">16290 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L16291" class="LineNr">16291 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16292" class="LineNr">16292 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L16293" class="LineNr">16293 </span> (<a href='mu.subx.html#L16241'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16294" class="LineNr">16294 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L16295" class="LineNr">16295 </span> } -<span id="L16296" class="LineNr">16296 </span> <span class="subxComment"># otherwise return false</span> -<span id="L16297" class="LineNr">16297 </span> b8/copy 0/imm32/false -<span id="L16298" class="LineNr">16298 </span><span class="Constant">$assigns-in-stmt?:end</span>: -<span id="L16299" class="LineNr">16299 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16300" class="LineNr">16300 </span> 59/pop-to-ecx -<span id="L16301" class="LineNr">16301 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16302" class="LineNr">16302 </span> 89/<- %esp 5/r32/ebp -<span id="L16303" class="LineNr">16303 </span> 5d/pop-to-ebp -<span id="L16304" class="LineNr">16304 </span> c3/return -<span id="L16305" class="LineNr">16305 </span> -<span id="L16306" class="LineNr">16306 </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="L16307" class="LineNr">16307 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16308" class="LineNr">16308 </span> 55/push-ebp -<span id="L16309" class="LineNr">16309 </span> 89/<- %ebp 4/r32/esp -<span id="L16310" class="LineNr">16310 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16311" class="LineNr">16311 </span> 51/push-ecx -<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> -<span id="L16313" class="LineNr">16313 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16314" class="LineNr">16314 </span> { -<span id="L16315" class="LineNr">16315 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L16316" class="LineNr">16316 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16317" class="LineNr">16317 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16318" class="LineNr">16318 </span> <span class="subxComment"># eax = lookup(curr->value)</span> -<span id="L16319" class="LineNr">16319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L16320" class="LineNr">16320 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> -<span id="L16321" class="LineNr">16321 </span> { -<span id="L16322" class="LineNr">16322 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L16323" class="LineNr">16323 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16324" class="LineNr">16324 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L16325" class="LineNr">16325 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16326" class="LineNr">16326 </span> b8/copy-to-eax 1/imm32/true -<span id="L16327" class="LineNr">16327 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 -<span id="L16328" class="LineNr">16328 </span> } -<span id="L16329" class="LineNr">16329 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L16330" class="LineNr">16330 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L16331" class="LineNr">16331 </span> 89/<- %ecx 0/r32/eax -<span id="L16332" class="LineNr">16332 </span> <span class="subxComment">#</span> -<span id="L16333" class="LineNr">16333 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16334" class="LineNr">16334 </span> } -<span id="L16335" class="LineNr">16335 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: -<span id="L16336" class="LineNr">16336 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16337" class="LineNr">16337 </span> 59/pop-to-ecx -<span id="L16338" class="LineNr">16338 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16339" class="LineNr">16339 </span> 89/<- %esp 5/r32/ebp -<span id="L16340" class="LineNr">16340 </span> 5d/pop-to-ebp -<span id="L16341" class="LineNr">16341 </span> c3/return -<span id="L16342" class="LineNr">16342 </span> -<span id="L16343" class="LineNr">16343 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> -<span id="L16344" class="LineNr">16344 </span><span class="subxComment"># v is guaranteed to be within vars</span> -<span id="L16345" class="LineNr">16345 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> -<span id="L16346" class="LineNr">16346 </span><span class="subxComment"># *start == v</span> -<span id="L16347" class="LineNr">16347 </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="L16348" class="LineNr">16348 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16349" class="LineNr">16349 </span> 55/push-ebp -<span id="L16350" class="LineNr">16350 </span> 89/<- %ebp 4/r32/esp -<span id="L16351" class="LineNr">16351 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16352" class="LineNr">16352 </span> 51/push-ecx -<span id="L16353" class="LineNr">16353 </span> 52/push-edx -<span id="L16354" class="LineNr">16354 </span> 53/push-ebx -<span id="L16355" class="LineNr">16355 </span> 56/push-esi -<span id="L16356" class="LineNr">16356 </span> 57/push-edi -<span id="L16357" class="LineNr">16357 </span> <span class="subxComment"># ecx = v</span> -<span id="L16358" class="LineNr">16358 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16359" class="LineNr">16359 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> -<span id="L16360" class="LineNr">16360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16361" class="LineNr">16361 </span> 89/<- %edx 0/r32/eax -<span id="L16362" class="LineNr">16362 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L16363" class="LineNr">16363 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L16364" class="LineNr">16364 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L16365" class="LineNr">16365 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16366" class="LineNr">16366 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L16367" class="LineNr">16367 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> -<span id="L16368" class="LineNr">16368 </span> <span class="subxComment"># TODO: check that *start == v</span> -<span id="L16369" class="LineNr">16369 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> -<span id="L16370" class="LineNr">16370 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L16371" class="LineNr">16371 </span> <span class="subxComment"># curr -= 8</span> -<span id="L16372" class="LineNr">16372 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L16373" class="LineNr">16373 </span> { -<span id="L16374" class="LineNr">16374 </span><span class="Constant">$same-register-spilled-before?:loop</span>: -<span id="L16375" class="LineNr">16375 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L16376" class="LineNr">16376 </span> 39/compare %esi 1/r32/ecx -<span id="L16377" class="LineNr">16377 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L16378" class="LineNr">16378 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> -<span id="L16379" class="LineNr">16379 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L16380" class="LineNr">16380 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> -<span id="L16381" class="LineNr">16381 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L16382" class="LineNr">16382 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L16383" class="LineNr">16383 </span> <span class="subxComment"># if (x->register == 0) continue</span> -<span id="L16384" class="LineNr">16384 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16385" class="LineNr">16385 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 -<span id="L16386" class="LineNr">16386 </span> <span class="subxComment"># if (x->register == reg) return true</span> -<span id="L16387" class="LineNr">16387 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16388" class="LineNr">16388 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> -<span id="L16389" class="LineNr">16389 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16390" class="LineNr">16390 </span> b8/copy-to-eax 1/imm32/true -<span id="L16391" class="LineNr">16391 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 -<span id="L16392" class="LineNr">16392 </span><span class="Constant">$same-register-spilled-before?:continue</span>: -<span id="L16393" class="LineNr">16393 </span> <span class="subxComment"># curr -= 8</span> -<span id="L16394" class="LineNr">16394 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L16395" class="LineNr">16395 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16396" class="LineNr">16396 </span> } -<span id="L16397" class="LineNr">16397 </span><span class="Constant">$same-register-spilled-before?:false</span>: -<span id="L16398" class="LineNr">16398 </span> b8/copy-to-eax 0/imm32/false -<span id="L16399" class="LineNr">16399 </span><span class="Constant">$same-register-spilled-before?:end</span>: -<span id="L16400" class="LineNr">16400 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16401" class="LineNr">16401 </span> 5f/pop-to-edi -<span id="L16402" class="LineNr">16402 </span> 5e/pop-to-esi -<span id="L16403" class="LineNr">16403 </span> 5b/pop-to-ebx -<span id="L16404" class="LineNr">16404 </span> 5a/pop-to-edx -<span id="L16405" class="LineNr">16405 </span> 59/pop-to-ecx -<span id="L16406" class="LineNr">16406 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16407" class="LineNr">16407 </span> 89/<- %esp 5/r32/ebp -<span id="L16408" class="LineNr">16408 </span> 5d/pop-to-ebp -<span id="L16409" class="LineNr">16409 </span> c3/return -<span id="L16410" class="LineNr">16410 </span> -<span id="L16411" class="LineNr">16411 </span><span class="subxComment"># Clean up global state for 'vars' until some block depth (inclusive).</span> -<span id="L16412" class="LineNr">16412 </span><span class="subxComment">#</span> -<span id="L16413" class="LineNr">16413 </span><span class="subxComment"># This would be a simple series of pops, if it wasn't for fn outputs, which</span> -<span id="L16414" class="LineNr">16414 </span><span class="subxComment"># can occur anywhere in the stack.</span> -<span id="L16415" class="LineNr">16415 </span><span class="subxComment"># So we have to _compact_ the entire array underlying the stack.</span> -<span id="L16416" class="LineNr">16416 </span><span class="subxComment">#</span> -<span id="L16417" class="LineNr">16417 </span><span class="subxComment"># We want to allow a fn output register to be written to by locals before the</span> -<span id="L16418" class="LineNr">16418 </span><span class="subxComment"># output is set.</span> -<span id="L16419" class="LineNr">16419 </span><span class="subxComment"># So fn outputs can't just be pushed at the start of the function.</span> -<span id="L16420" class="LineNr">16420 </span><span class="subxComment">#</span> -<span id="L16421" class="LineNr">16421 </span><span class="subxComment"># We want to allow other locals to shadow a fn output register after the</span> -<span id="L16422" class="LineNr">16422 </span><span class="subxComment"># output is set.</span> -<span id="L16423" class="LineNr">16423 </span><span class="subxComment"># So the output can't just always override anything in the stack. Sequence matters.</span> -<span id="L16424" class="LineNr">16424 </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="L16425" class="LineNr">16425 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16426" class="LineNr">16426 </span> <span class="subxComment"># to = vars->top (which points outside the stack)</span> -<span id="L16427" class="LineNr">16427 </span> <span class="subxComment"># while true</span> -<span id="L16428" class="LineNr">16428 </span> <span class="subxComment"># if to <= 0</span> -<span id="L16429" class="LineNr">16429 </span> <span class="subxComment"># break</span> -<span id="L16430" class="LineNr">16430 </span> <span class="subxComment"># var v = vars->data[to-1]</span> -<span id="L16431" class="LineNr">16431 </span> <span class="subxComment"># if v.depth < until and !in-function-outputs?(fn, v)</span> -<span id="L16432" class="LineNr">16432 </span> <span class="subxComment"># break</span> -<span id="L16433" class="LineNr">16433 </span> <span class="subxComment"># --to</span> -<span id="L16434" class="LineNr">16434 </span> <span class="subxComment"># from = to</span> -<span id="L16435" class="LineNr">16435 </span> <span class="subxComment"># while true</span> -<span id="L16436" class="LineNr">16436 </span> <span class="subxComment"># if from >= vars->top</span> -<span id="L16437" class="LineNr">16437 </span> <span class="subxComment"># break</span> -<span id="L16438" class="LineNr">16438 </span> <span class="subxComment"># assert(from >= to)</span> -<span id="L16439" class="LineNr">16439 </span> <span class="subxComment"># v = vars->data[from]</span> -<span id="L16440" class="LineNr">16440 </span> <span class="subxComment"># if in-function-outputs?(fn, v)</span> -<span id="L16441" class="LineNr">16441 </span> <span class="subxComment"># if from > to</span> -<span id="L16442" class="LineNr">16442 </span> <span class="subxComment"># vars->data[to] = vars->data[from]</span> -<span id="L16443" class="LineNr">16443 </span> <span class="subxComment"># ++to</span> -<span id="L16444" class="LineNr">16444 </span> <span class="subxComment"># ++from</span> -<span id="L16445" class="LineNr">16445 </span> <span class="subxComment"># vars->top = to</span> -<span id="L16446" class="LineNr">16446 </span> <span class="subxComment">#</span> +<span id="L15207" class="LineNr">15207 </span> 51/push-ecx +<span id="L15208" class="LineNr">15208 </span> <span class="subxComment"># eax = 0</span> +<span id="L15209" class="LineNr">15209 </span> b8/copy-to-eax 0/imm32 +<span id="L15210" class="LineNr">15210 </span> <span class="subxComment"># ecx = t</span> +<span id="L15211" class="LineNr">15211 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15212" class="LineNr">15212 </span><span class="Constant">$type-tail:check-atom</span>: +<span id="L15213" class="LineNr">15213 </span> <span class="subxComment"># if t->is-atom? return 0</span> +<span id="L15214" class="LineNr">15214 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15215" class="LineNr">15215 </span> 0f 85/jump-if-!= $type-tail:end/disp32 +<span id="L15216" class="LineNr">15216 </span> <span class="subxComment"># var tail = t->right</span> +<span id="L15217" class="LineNr">15217 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15218" class="LineNr">15218 </span> 89/<- %ecx 0/r32/eax +<span id="L15219" class="LineNr">15219 </span><span class="Constant">$type-tail:check-singleton</span>: +<span id="L15220" class="LineNr">15220 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> +<span id="L15221" class="LineNr">15221 </span> { +<span id="L15222" class="LineNr">15222 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L15223" class="LineNr">15223 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15224" class="LineNr">15224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15225" class="LineNr">15225 </span> e9/jump $type-tail:end/disp32 +<span id="L15226" class="LineNr">15226 </span> } +<span id="L15227" class="LineNr">15227 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> +<span id="L15228" class="LineNr">15228 </span> { +<span id="L15229" class="LineNr">15229 </span><span class="Constant">$type-tail:check-array-capacity</span>: +<span id="L15230" class="LineNr">15230 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15231" class="LineNr">15231 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15232" class="LineNr">15232 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15233" class="LineNr">15233 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: +<span id="L15234" class="LineNr">15234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15235" class="LineNr">15235 </span> 3d/compare-eax-and 0/imm32 +<span id="L15236" class="LineNr">15236 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15237" class="LineNr">15237 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: +<span id="L15238" class="LineNr">15238 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> +<span id="L15239" class="LineNr">15239 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15240" class="LineNr">15240 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15241" class="LineNr">15241 </span><span class="Constant">$type-tail:array-capacity</span>: +<span id="L15242" class="LineNr">15242 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15243" class="LineNr">15243 </span> eb/jump $type-tail:end/disp8 +<span id="L15244" class="LineNr">15244 </span> } +<span id="L15245" class="LineNr">15245 </span><span class="Constant">$type-tail:check-compound-left</span>: +<span id="L15246" class="LineNr">15246 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> +<span id="L15247" class="LineNr">15247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15248" class="LineNr">15248 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15249" class="LineNr">15249 </span> 74/jump-if-= $type-tail:end/disp8 +<span id="L15250" class="LineNr">15250 </span><span class="Constant">$type-tail:return-tail</span>: +<span id="L15251" class="LineNr">15251 </span> <span class="subxComment"># return tail</span> +<span id="L15252" class="LineNr">15252 </span> 89/<- %eax 1/r32/ecx +<span id="L15253" class="LineNr">15253 </span><span class="Constant">$type-tail:end</span>: +<span id="L15254" class="LineNr">15254 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15255" class="LineNr">15255 </span> 59/pop-to-ecx +<span id="L15256" class="LineNr">15256 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15257" class="LineNr">15257 </span> 89/<- %esp 5/r32/ebp +<span id="L15258" class="LineNr">15258 </span> 5d/pop-to-ebp +<span id="L15259" class="LineNr">15259 </span> c3/return +<span id="L15260" class="LineNr">15260 </span> +<span id="L15261" class="LineNr">15261 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L15262" class="LineNr">15262 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15263" class="LineNr">15263 </span> 55/push-ebp +<span id="L15264" class="LineNr">15264 </span> 89/<- %ebp 4/r32/esp +<span id="L15265" class="LineNr">15265 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15266" class="LineNr">15266 </span> 51/push-ecx +<span id="L15267" class="LineNr">15267 </span> 52/push-edx +<span id="L15268" class="LineNr">15268 </span> 53/push-ebx +<span id="L15269" class="LineNr">15269 </span> <span class="subxComment"># ecx = a</span> +<span id="L15270" class="LineNr">15270 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15271" class="LineNr">15271 </span> <span class="subxComment"># edx = b</span> +<span id="L15272" class="LineNr">15272 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L15273" class="LineNr">15273 </span><span class="Constant">$type-equal?:compare-addr</span>: +<span id="L15274" class="LineNr">15274 </span> <span class="subxComment"># if (a == b) return true</span> +<span id="L15275" class="LineNr">15275 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L15276" class="LineNr">15276 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L15277" class="LineNr">15277 </span> b8/copy-to-eax 1/imm32/true +<span id="L15278" class="LineNr">15278 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L15279" class="LineNr">15279 </span><span class="Constant">$type-equal?:compare-null-a</span>: +<span id="L15280" class="LineNr">15280 </span> <span class="subxComment"># if (a == 0) return false</span> +<span id="L15281" class="LineNr">15281 </span> b8/copy-to-eax 0/imm32/false +<span id="L15282" class="LineNr">15282 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L15283" class="LineNr">15283 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L15284" class="LineNr">15284 </span><span class="Constant">$type-equal?:compare-null-b</span>: +<span id="L15285" class="LineNr">15285 </span> <span class="subxComment"># if (b == 0) return false</span> +<span id="L15286" class="LineNr">15286 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L15287" class="LineNr">15287 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L15288" class="LineNr">15288 </span><span class="Constant">$type-equal?:compare-atom-state</span>: +<span id="L15289" class="LineNr">15289 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> +<span id="L15290" class="LineNr">15290 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15291" class="LineNr">15291 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15292" class="LineNr">15292 </span> b8/copy-to-eax 0/imm32/false +<span id="L15293" class="LineNr">15293 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 +<span id="L15294" class="LineNr">15294 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> +<span id="L15295" class="LineNr">15295 </span> { +<span id="L15296" class="LineNr">15296 </span><span class="Constant">$type-equal?:check-atom</span>: +<span id="L15297" class="LineNr">15297 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L15298" class="LineNr">15298 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15299" class="LineNr">15299 </span><span class="Constant">$type-equal?:is-atom</span>: +<span id="L15300" class="LineNr">15300 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L15301" class="LineNr">15301 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L15302" class="LineNr">15302 </span> 0f 94/set-if-= %al +<span id="L15303" class="LineNr">15303 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15304" class="LineNr">15304 </span> e9/jump $type-equal?:end/disp32 +<span id="L15305" class="LineNr">15305 </span> } +<span id="L15306" class="LineNr">15306 </span><span class="Constant">$type-equal?:check-left</span>: +<span id="L15307" class="LineNr">15307 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> +<span id="L15308" class="LineNr">15308 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15309" class="LineNr">15309 </span> 89/<- %ebx 0/r32/eax +<span id="L15310" class="LineNr">15310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L15311" class="LineNr">15311 </span> (<a href='mu.subx.html#L15261'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L15312" class="LineNr">15312 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15313" class="LineNr">15313 </span> 74/jump-if-= $type-equal?:end/disp8 +<span id="L15314" class="LineNr">15314 </span><span class="Constant">$type-equal?:check-right</span>: +<span id="L15315" class="LineNr">15315 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> +<span id="L15316" class="LineNr">15316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15317" class="LineNr">15317 </span> 89/<- %ebx 0/r32/eax +<span id="L15318" class="LineNr">15318 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L15319" class="LineNr">15319 </span> (<a href='mu.subx.html#L15261'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L15320" class="LineNr">15320 </span><span class="Constant">$type-equal?:end</span>: +<span id="L15321" class="LineNr">15321 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15322" class="LineNr">15322 </span> 5b/pop-to-ebx +<span id="L15323" class="LineNr">15323 </span> 5a/pop-to-edx +<span id="L15324" class="LineNr">15324 </span> 59/pop-to-ecx +<span id="L15325" class="LineNr">15325 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15326" class="LineNr">15326 </span> 89/<- %esp 5/r32/ebp +<span id="L15327" class="LineNr">15327 </span> 5d/pop-to-ebp +<span id="L15328" class="LineNr">15328 </span> c3/return +<span id="L15329" class="LineNr">15329 </span> +<span id="L15330" class="LineNr">15330 </span><span class="subxComment">#######################################################</span> +<span id="L15331" class="LineNr">15331 </span><span class="subxComment"># Code-generation</span> +<span id="L15332" class="LineNr">15332 </span><span class="subxComment">#######################################################</span> +<span id="L15333" class="LineNr">15333 </span> +<span id="L15334" class="LineNr">15334 </span>== data +<span id="L15335" class="LineNr">15335 </span> +<span id="L15336" class="LineNr">15336 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> +<span id="L15337" class="LineNr">15337 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> +<span id="L15338" class="LineNr">15338 </span> 0/imm32 +<span id="L15339" class="LineNr">15339 </span> +<span id="L15340" class="LineNr">15340 </span>== code +<span id="L15341" class="LineNr">15341 </span> +<span id="L15342" class="LineNr">15342 </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="L15343" class="LineNr">15343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15344" class="LineNr">15344 </span> 55/push-ebp +<span id="L15345" class="LineNr">15345 </span> 89/<- %ebp 4/r32/esp +<span id="L15346" class="LineNr">15346 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15347" class="LineNr">15347 </span> 50/push-eax +<span id="L15348" class="LineNr">15348 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> +<span id="L15349" class="LineNr">15349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L15350" class="LineNr">15350 </span> { +<span id="L15351" class="LineNr">15351 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L15352" class="LineNr">15352 </span> 3d/compare-eax-and 0/imm32 +<span id="L15353" class="LineNr">15353 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15354" class="LineNr">15354 </span> (<a href='mu.subx.html#L15367'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L15355" class="LineNr">15355 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L15356" class="LineNr">15356 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L15357" class="LineNr">15357 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15358" class="LineNr">15358 </span> } +<span id="L15359" class="LineNr">15359 </span><span class="Constant">$emit-subx:end</span>: +<span id="L15360" class="LineNr">15360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15361" class="LineNr">15361 </span> 58/pop-to-eax +<span id="L15362" class="LineNr">15362 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15363" class="LineNr">15363 </span> 89/<- %esp 5/r32/ebp +<span id="L15364" class="LineNr">15364 </span> 5d/pop-to-ebp +<span id="L15365" class="LineNr">15365 </span> c3/return +<span id="L15366" class="LineNr">15366 </span> +<span id="L15367" class="LineNr">15367 </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="L15368" class="LineNr">15368 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15369" class="LineNr">15369 </span> 55/push-ebp +<span id="L15370" class="LineNr">15370 </span> 89/<- %ebp 4/r32/esp +<span id="L15371" class="LineNr">15371 </span> <span class="subxComment"># some preprocessing</span> +<span id="L15372" class="LineNr">15372 </span> (<a href='mu.subx.html#L15412'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) +<span id="L15373" class="LineNr">15373 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15374" class="LineNr">15374 </span> 50/push-eax +<span id="L15375" class="LineNr">15375 </span> 51/push-ecx +<span id="L15376" class="LineNr">15376 </span> 52/push-edx +<span id="L15377" class="LineNr">15377 </span> <span class="subxComment"># initialize some global state</span> +<span id="L15378" class="LineNr">15378 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> +<span id="L15379" class="LineNr">15379 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 0/imm32 +<span id="L15380" class="LineNr">15380 </span> <span class="subxComment"># ecx = f</span> +<span id="L15381" class="LineNr">15381 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15382" class="LineNr">15382 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> +<span id="L15383" class="LineNr">15383 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L15384" class="LineNr">15384 </span> 68/push 0xc00/imm32/size +<span id="L15385" class="LineNr">15385 </span> 68/push 0/imm32/top +<span id="L15386" class="LineNr">15386 </span> 89/<- %edx 4/r32/esp +<span id="L15387" class="LineNr">15387 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> +<span id="L15388" class="LineNr">15388 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15389" class="LineNr">15389 </span> <span class="subxComment">#</span> +<span id="L15390" class="LineNr">15390 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L15391" class="LineNr">15391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) +<span id="L15392" class="LineNr">15392 </span> (<a href='mu.subx.html#L26231'>emit-subx-prologue</a> *(ebp+8)) +<span id="L15393" class="LineNr">15393 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L15394" class="LineNr">15394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L15395" class="LineNr">15395 </span> <span class="subxComment">#</span> +<span id="L15396" class="LineNr">15396 </span> (<a href='mu.subx.html#L18096'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L15397" class="LineNr">15397 </span> (<a href='mu.subx.html#L26245'>emit-subx-epilogue</a> *(ebp+8)) +<span id="L15398" class="LineNr">15398 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> +<span id="L15399" class="LineNr">15399 </span> <span class="subxComment"># been cleaned up</span> +<span id="L15400" class="LineNr">15400 </span><span class="Constant">$emit-subx-function:end</span>: +<span id="L15401" class="LineNr">15401 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15402" class="LineNr">15402 </span> 81 0/subop/add %esp 0xc08/imm32 +<span id="L15403" class="LineNr">15403 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15404" class="LineNr">15404 </span> 5a/pop-to-edx +<span id="L15405" class="LineNr">15405 </span> 59/pop-to-ecx +<span id="L15406" class="LineNr">15406 </span> 58/pop-to-eax +<span id="L15407" class="LineNr">15407 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15408" class="LineNr">15408 </span> 89/<- %esp 5/r32/ebp +<span id="L15409" class="LineNr">15409 </span> 5d/pop-to-ebp +<span id="L15410" class="LineNr">15410 </span> c3/return +<span id="L15411" class="LineNr">15411 </span> +<span id="L15412" class="LineNr">15412 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> +<span id="L15413" class="LineNr">15413 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15414" class="LineNr">15414 </span> 55/push-ebp +<span id="L15415" class="LineNr">15415 </span> 89/<- %ebp 4/r32/esp +<span id="L15416" class="LineNr">15416 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15417" class="LineNr">15417 </span> 50/push-eax +<span id="L15418" class="LineNr">15418 </span> 51/push-ecx +<span id="L15419" class="LineNr">15419 </span> 52/push-edx +<span id="L15420" class="LineNr">15420 </span> 53/push-ebx +<span id="L15421" class="LineNr">15421 </span> 57/push-edi +<span id="L15422" class="LineNr">15422 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> +<span id="L15423" class="LineNr">15423 </span> ba/copy-to-edx 8/imm32 +<span id="L15424" class="LineNr">15424 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> +<span id="L15425" class="LineNr">15425 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15426" class="LineNr">15426 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L15427" class="LineNr">15427 </span> 89/<- %ecx 0/r32/eax +<span id="L15428" class="LineNr">15428 </span> { +<span id="L15429" class="LineNr">15429 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: +<span id="L15430" class="LineNr">15430 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L15431" class="LineNr">15431 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15432" class="LineNr">15432 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> +<span id="L15433" class="LineNr">15433 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15434" class="LineNr">15434 </span> 89/<- %ebx 0/r32/eax +<span id="L15435" class="LineNr">15435 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> +<span id="L15436" class="LineNr">15436 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> +<span id="L15437" class="LineNr">15437 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L15438" class="LineNr">15438 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L15439" class="LineNr">15439 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L15440" class="LineNr">15440 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> +<span id="L15441" class="LineNr">15441 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> +<span id="L15442" class="LineNr">15442 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L15443" class="LineNr">15443 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L15444" class="LineNr">15444 </span> <span class="subxComment"># v->offset = next-offset</span> +<span id="L15445" class="LineNr">15445 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L15446" class="LineNr">15446 </span> <span class="subxComment"># next-offset += size-of(v)</span> +<span id="L15447" class="LineNr">15447 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L15448" class="LineNr">15448 </span> 01/add-to %edx 0/r32/eax +<span id="L15449" class="LineNr">15449 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L15450" class="LineNr">15450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15451" class="LineNr">15451 </span> 89/<- %ecx 0/r32/eax +<span id="L15452" class="LineNr">15452 </span> <span class="subxComment">#</span> +<span id="L15453" class="LineNr">15453 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L15454" class="LineNr">15454 </span> } +<span id="L15455" class="LineNr">15455 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: +<span id="L15456" class="LineNr">15456 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15457" class="LineNr">15457 </span> 5f/pop-to-edi +<span id="L15458" class="LineNr">15458 </span> 5b/pop-to-ebx +<span id="L15459" class="LineNr">15459 </span> 5a/pop-to-edx +<span id="L15460" class="LineNr">15460 </span> 59/pop-to-ecx +<span id="L15461" class="LineNr">15461 </span> 58/pop-to-eax +<span id="L15462" class="LineNr">15462 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15463" class="LineNr">15463 </span> 89/<- %esp 5/r32/ebp +<span id="L15464" class="LineNr">15464 </span> 5d/pop-to-ebp +<span id="L15465" class="LineNr">15465 </span> c3/return +<span id="L15466" class="LineNr">15466 </span> +<span id="L15467" class="LineNr">15467 </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="L15468" class="LineNr">15468 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15469" class="LineNr">15469 </span> 55/push-ebp +<span id="L15470" class="LineNr">15470 </span> 89/<- %ebp 4/r32/esp +<span id="L15471" class="LineNr">15471 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15472" class="LineNr">15472 </span> 50/push-eax +<span id="L15473" class="LineNr">15473 </span> 51/push-ecx +<span id="L15474" class="LineNr">15474 </span> 53/push-ebx +<span id="L15475" class="LineNr">15475 </span> 56/push-esi +<span id="L15476" class="LineNr">15476 </span> <span class="subxComment"># esi = stmts</span> +<span id="L15477" class="LineNr">15477 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L15478" class="LineNr">15478 </span> <span class="subxComment">#</span> +<span id="L15479" class="LineNr">15479 </span> { +<span id="L15480" class="LineNr">15480 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: +<span id="L15481" class="LineNr">15481 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L15482" class="LineNr">15482 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15483" class="LineNr">15483 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> +<span id="L15484" class="LineNr">15484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15485" class="LineNr">15485 </span> 89/<- %ecx 0/r32/eax +<span id="L15486" class="LineNr">15486 </span> { +<span id="L15487" class="LineNr">15487 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: +<span id="L15488" class="LineNr">15488 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L15489" class="LineNr">15489 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15490" class="LineNr">15490 </span><span class="Constant">$emit-subx-stmt-list:block</span>: +<span id="L15491" class="LineNr">15491 </span> (<a href='mu.subx.html#L18096'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L15492" class="LineNr">15492 </span> } +<span id="L15493" class="LineNr">15493 </span> { +<span id="L15494" class="LineNr">15494 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: +<span id="L15495" class="LineNr">15495 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L15496" class="LineNr">15496 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15497" class="LineNr">15497 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: +<span id="L15498" class="LineNr">15498 </span> { +<span id="L15499" class="LineNr">15499 </span> (<a href='mu.subx.html#L15766'>is-mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15500" class="LineNr">15500 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15501" class="LineNr">15501 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15502" class="LineNr">15502 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: +<span id="L15503" class="Folded">15503 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15530" class="Folded">15530 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15546" class="Folded">15546 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15584" class="Folded">15584 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15603" class="LineNr">15603 </span> } +<span id="L15604" class="LineNr">15604 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: +<span id="L15605" class="LineNr">15605 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> *(ebp+0x18) *(ebp+0x1c)) +<span id="L15606" class="LineNr">15606 </span> e9/jump $emit-subx-stmt-list:continue/disp32 +<span id="L15607" class="LineNr">15607 </span> } +<span id="L15608" class="LineNr">15608 </span> { +<span id="L15609" class="LineNr">15609 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: +<span id="L15610" class="LineNr">15610 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> +<span id="L15611" class="LineNr">15611 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15612" class="LineNr">15612 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: +<span id="L15613" class="LineNr">15613 </span> (<a href='mu.subx.html#L16718'>emit-subx-var-def</a> *(ebp+8) %ecx) +<span id="L15614" class="LineNr">15614 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> +<span id="L15615" class="LineNr">15615 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> +<span id="L15616" class="LineNr">15616 </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="L15617" class="LineNr">15617 </span> <span class="subxComment">#</span> +<span id="L15618" class="LineNr">15618 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L15619" class="LineNr">15619 </span> } +<span id="L15620" class="LineNr">15620 </span> { +<span id="L15621" class="LineNr">15621 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: +<span id="L15622" class="LineNr">15622 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L15623" class="LineNr">15623 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15624" class="LineNr">15624 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: +<span id="L15625" class="LineNr">15625 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> +<span id="L15626" class="LineNr">15626 </span> (<a href='mu.subx.html#L15655'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L15627" class="LineNr">15627 </span> <span class="subxComment"># emit the instruction as usual</span> +<span id="L15628" class="LineNr">15628 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> *(ebp+0x18) *(ebp+0x1c)) +<span id="L15629" class="LineNr">15629 </span> <span class="subxComment">#</span> +<span id="L15630" class="LineNr">15630 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L15631" class="LineNr">15631 </span> } +<span id="L15632" class="LineNr">15632 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: +<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L15634" class="LineNr">15634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15635" class="LineNr">15635 </span> 89/<- %esi 0/r32/eax +<span id="L15636" class="LineNr">15636 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15637" class="LineNr">15637 </span> } +<span id="L15638" class="LineNr">15638 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: +<span id="L15639" class="LineNr">15639 </span> (<a href='mu.subx.html#L15924'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15640" class="LineNr">15640 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: +<span id="L15641" class="LineNr">15641 </span> (<a href='mu.subx.html#L16164'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15642" class="LineNr">15642 </span> (<a href='mu.subx.html#L16564'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> *(ebp+0x14)) +<span id="L15643" class="LineNr">15643 </span><span class="Constant">$emit-subx-stmt-list:end</span>: +<span id="L15644" class="LineNr">15644 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15645" class="LineNr">15645 </span> 5e/pop-to-esi +<span id="L15646" class="LineNr">15646 </span> 5b/pop-to-ebx +<span id="L15647" class="LineNr">15647 </span> 59/pop-to-ecx +<span id="L15648" class="LineNr">15648 </span> 58/pop-to-eax +<span id="L15649" class="LineNr">15649 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15650" class="LineNr">15650 </span> 89/<- %esp 5/r32/ebp +<span id="L15651" class="LineNr">15651 </span> 5d/pop-to-ebp +<span id="L15652" class="LineNr">15652 </span> c3/return +<span id="L15653" class="LineNr">15653 </span> +<span id="L15654" class="LineNr">15654 </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="L15655" class="LineNr">15655 </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="L15656" class="LineNr">15656 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15657" class="LineNr">15657 </span> 55/push-ebp +<span id="L15658" class="LineNr">15658 </span> 89/<- %ebp 4/r32/esp +<span id="L15659" class="LineNr">15659 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15660" class="LineNr">15660 </span> 50/push-eax +<span id="L15661" class="LineNr">15661 </span> 51/push-ecx +<span id="L15662" class="LineNr">15662 </span> 52/push-edx +<span id="L15663" class="LineNr">15663 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L15664" class="LineNr">15664 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15665" class="LineNr">15665 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> +<span id="L15666" class="LineNr">15666 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L15667" class="LineNr">15667 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> +<span id="L15668" class="LineNr">15668 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> +<span id="L15669" class="LineNr">15669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L15670" class="LineNr">15670 </span> 89/<- %ecx 0/r32/eax +<span id="L15671" class="LineNr">15671 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L15672" class="LineNr">15672 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/r32/eax +<span id="L15673" class="LineNr">15673 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L15674" class="LineNr">15674 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L15675" class="LineNr">15675 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> +<span id="L15676" class="LineNr">15676 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L15677" class="LineNr">15677 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> +<span id="L15678" class="LineNr">15678 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> +<span id="L15679" class="LineNr">15679 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L15680" class="LineNr">15680 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L15681" class="LineNr">15681 </span> <span class="subxComment"># ensure that v is in a register</span> +<span id="L15682" class="LineNr">15682 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15683" class="LineNr">15683 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 +<span id="L15684" class="LineNr">15684 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> +<span id="L15685" class="LineNr">15685 </span> (<a href='mu.subx.html#L16236'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L15686" class="LineNr">15686 </span> 89/<- %edx 0/r32/eax +<span id="L15687" class="LineNr">15687 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15688" class="LineNr">15688 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 +<span id="L15689" class="LineNr">15689 </span> (<a href='mu.subx.html#L16309'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L15690" class="LineNr">15690 </span> 89/<- %edx 0/r32/eax +<span id="L15691" class="LineNr">15691 </span> <span class="subxComment"># check emit-spill?</span> +<span id="L15692" class="LineNr">15692 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15693" class="LineNr">15693 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 +<span id="L15694" class="LineNr">15694 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> +<span id="L15695" class="LineNr">15695 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> +<span id="L15696" class="LineNr">15696 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L15697" class="LineNr">15697 </span> <span class="subxComment"># emit spill</span> +<span id="L15698" class="LineNr">15698 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L15699" class="LineNr">15699 </span> (<a href='mu.subx.html#L16008'>emit-push-register</a> *(ebp+8) %eax) +<span id="L15700" class="LineNr">15700 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a></span>: +<span id="L15701" class="LineNr">15701 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15702" class="LineNr">15702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L15703" class="LineNr">15703 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> +<span id="L15704" class="LineNr">15704 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> +<span id="L15705" class="LineNr">15705 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> +<span id="L15706" class="LineNr">15706 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) +<span id="L15707" class="LineNr">15707 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: +<span id="L15708" class="LineNr">15708 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15709" class="LineNr">15709 </span> 5a/pop-to-edx +<span id="L15710" class="LineNr">15710 </span> 59/pop-to-ecx +<span id="L15711" class="LineNr">15711 </span> 58/pop-to-eax +<span id="L15712" class="LineNr">15712 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15713" class="LineNr">15713 </span> 89/<- %esp 5/r32/ebp +<span id="L15714" class="LineNr">15714 </span> 5d/pop-to-ebp +<span id="L15715" class="LineNr">15715 </span> c3/return +<span id="L15716" class="LineNr">15716 </span> +<span id="L15717" class="LineNr">15717 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: +<span id="L15718" class="LineNr">15718 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> +<span id="L15719" class="LineNr">15719 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) +<span id="L15720" class="LineNr">15720 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> +<span id="L15721" class="LineNr">15721 </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="L15722" class="LineNr">15722 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) +<span id="L15723" class="LineNr">15723 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) +<span id="L15724" class="LineNr">15724 </span> <span class="subxComment"># never gets here</span> +<span id="L15725" class="LineNr">15725 </span> +<span id="L15726" class="LineNr">15726 </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="L15727" class="LineNr">15727 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15728" class="LineNr">15728 </span> 55/push-ebp +<span id="L15729" class="LineNr">15729 </span> 89/<- %ebp 4/r32/esp +<span id="L15730" class="LineNr">15730 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15731" class="LineNr">15731 </span> 50/push-eax +<span id="L15732" class="LineNr">15732 </span> 51/push-ecx +<span id="L15733" class="LineNr">15733 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L15734" class="LineNr">15734 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15735" class="LineNr">15735 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> +<span id="L15736" class="LineNr">15736 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L15737" class="LineNr">15737 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L15738" class="LineNr">15738 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15739" class="LineNr">15739 </span> <span class="subxComment"># clean up until target block</span> +<span id="L15740" class="LineNr">15740 </span> (<a href='mu.subx.html#L16084'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) +<span id="L15741" class="LineNr">15741 </span> <span class="subxComment"># emit jump to target block</span> +<span id="L15742" class="LineNr">15742 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15743" class="LineNr">15743 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L15744" class="LineNr">15744 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L15745" class="LineNr">15745 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L15746" class="LineNr">15746 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) +<span id="L15747" class="LineNr">15747 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15748" class="LineNr">15748 </span> { +<span id="L15749" class="LineNr">15749 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15750" class="LineNr">15750 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) +<span id="L15751" class="LineNr">15751 </span> } +<span id="L15752" class="LineNr">15752 </span> 3d/compare-eax-and 0/imm32/false <span class="subxComment"># just in case the function call modified flags</span> +<span id="L15753" class="LineNr">15753 </span> { +<span id="L15754" class="LineNr">15754 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15755" class="LineNr">15755 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) +<span id="L15756" class="LineNr">15756 </span> } +<span id="L15757" class="LineNr">15757 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: +<span id="L15758" class="LineNr">15758 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15759" class="LineNr">15759 </span> 59/pop-to-ecx +<span id="L15760" class="LineNr">15760 </span> 58/pop-to-eax +<span id="L15761" class="LineNr">15761 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15762" class="LineNr">15762 </span> 89/<- %esp 5/r32/ebp +<span id="L15763" class="LineNr">15763 </span> 5d/pop-to-ebp +<span id="L15764" class="LineNr">15764 </span> c3/return +<span id="L15765" class="LineNr">15765 </span> +<span id="L15766" class="LineNr">15766 </span><span class="subxFunction">is-mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> +<span id="L15767" class="LineNr">15767 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15768" class="LineNr">15768 </span> 55/push-ebp +<span id="L15769" class="LineNr">15769 </span> 89/<- %ebp 4/r32/esp +<span id="L15770" class="LineNr">15770 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15771" class="LineNr">15771 </span> 51/push-ecx +<span id="L15772" class="LineNr">15772 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L15773" class="LineNr">15773 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L15774" class="LineNr">15774 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L15775" class="LineNr">15775 </span> 89/<- %ecx 0/r32/eax +<span id="L15776" class="LineNr">15776 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> +<span id="L15777" class="LineNr">15777 </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="L15778" class="LineNr">15778 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15779" class="LineNr">15779 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 +<span id="L15780" class="LineNr">15780 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "break")</span> +<span id="L15781" class="LineNr">15781 </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="L15782" class="LineNr">15782 </span><span class="Constant">$is-mu-branch?:end</span>: +<span id="L15783" class="LineNr">15783 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15784" class="LineNr">15784 </span> 59/pop-to-ecx +<span id="L15785" class="LineNr">15785 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15786" class="LineNr">15786 </span> 89/<- %esp 5/r32/ebp +<span id="L15787" class="LineNr">15787 </span> 5d/pop-to-ebp +<span id="L15788" class="LineNr">15788 </span> c3/return +<span id="L15789" class="LineNr">15789 </span> +<span id="L15790" class="LineNr">15790 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> +<span id="L15791" class="LineNr">15791 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15792" class="LineNr">15792 </span> 55/push-ebp +<span id="L15793" class="LineNr">15793 </span> 89/<- %ebp 4/r32/esp +<span id="L15794" class="LineNr">15794 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15795" class="LineNr">15795 </span> 50/push-eax +<span id="L15796" class="LineNr">15796 </span> <span class="subxComment"># eax = stmt</span> +<span id="L15797" class="LineNr">15797 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L15798" class="LineNr">15798 </span> <span class="subxComment">#</span> +<span id="L15799" class="LineNr">15799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L15800" class="LineNr">15800 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L15816'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> +<span id="L15801" class="LineNr">15801 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15802" class="LineNr">15802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L15803" class="LineNr">15803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L15804" class="LineNr">15804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) +<span id="L15805" class="LineNr">15805 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L15806" class="LineNr">15806 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15807" class="LineNr">15807 </span> 58/pop-to-eax +<span id="L15808" class="LineNr">15808 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15809" class="LineNr">15809 </span> 89/<- %esp 5/r32/ebp +<span id="L15810" class="LineNr">15810 </span> 5d/pop-to-ebp +<span id="L15811" class="LineNr">15811 </span> c3/return +<span id="L15812" class="LineNr">15812 </span> +<span id="L15813" class="LineNr">15813 </span>== data +<span id="L15814" class="LineNr">15814 </span> +<span id="L15815" class="LineNr">15815 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> +<span id="L15816" class="LineNr">15816 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> +<span id="L15817" class="LineNr">15817 </span> <span class="subxComment"># a table is a stream</span> +<span id="L15818" class="LineNr">15818 </span> 0x1c0/imm32/write +<span id="L15819" class="LineNr">15819 </span> 0/imm32/read +<span id="L15820" class="LineNr">15820 </span> 0x1c0/imm32/size +<span id="L15821" class="LineNr">15821 </span> <span class="subxComment"># data</span> +<span id="L15822" class="LineNr">15822 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21595'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21942'>_string_0f_85_jump_label</a>/imm32 +<span id="L15823" class="LineNr">15823 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21705'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21942'>_string_0f_85_jump_label</a>/imm32 +<span id="L15824" class="LineNr">15824 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21610'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21927'>_string_0f_84_jump_label</a>/imm32 +<span id="L15825" class="LineNr">15825 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21720'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21927'>_string_0f_84_jump_label</a>/imm32 +<span id="L15826" class="LineNr">15826 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21585'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L22002'>_string_0f_8d_jump_label</a>/imm32 +<span id="L15827" class="LineNr">15827 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21695'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L22002'>_string_0f_8d_jump_label</a>/imm32 +<span id="L15828" class="LineNr">15828 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21600'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L22017'>_string_0f_8e_jump_label</a>/imm32 +<span id="L15829" class="LineNr">15829 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21710'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L22017'>_string_0f_8e_jump_label</a>/imm32 +<span id="L15830" class="LineNr">15830 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21590'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15831" class="LineNr">15831 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21700'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15832" class="LineNr">15832 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21605'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21987'>_string_0f_8c_jump_label</a>/imm32 +<span id="L15833" class="LineNr">15833 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21715'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21987'>_string_0f_8c_jump_label</a>/imm32 +<span id="L15834" class="LineNr">15834 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21615'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32 +<span id="L15835" class="LineNr">15835 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21725'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32 +<span id="L15836" class="LineNr">15836 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21625'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32 +<span id="L15837" class="LineNr">15837 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21735'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32 +<span id="L15838" class="LineNr">15838 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21620'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15839" class="LineNr">15839 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21730'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15840" class="LineNr">15840 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21630'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32 +<span id="L15841" class="LineNr">15841 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21740'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32 +<span id="L15842" class="LineNr">15842 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21635'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32 +<span id="L15843" class="LineNr">15843 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21745'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32 +<span id="L15844" class="LineNr">15844 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21645'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32 +<span id="L15845" class="LineNr">15845 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21755'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32 +<span id="L15846" class="LineNr">15846 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21640'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15847" class="LineNr">15847 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21750'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32 +<span id="L15848" class="LineNr">15848 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21650'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32 +<span id="L15849" class="LineNr">15849 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L21760'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32 +<span id="L15850" class="LineNr">15850 </span> +<span id="L15851" class="LineNr">15851 </span>== code +<span id="L15852" class="LineNr">15852 </span> +<span id="L15853" class="LineNr">15853 </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="L15854" class="LineNr">15854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15855" class="LineNr">15855 </span> 55/push-ebp +<span id="L15856" class="LineNr">15856 </span> 89/<- %ebp 4/r32/esp +<span id="L15857" class="LineNr">15857 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15858" class="LineNr">15858 </span> 50/push-eax +<span id="L15859" class="LineNr">15859 </span> 51/push-ecx +<span id="L15860" class="LineNr">15860 </span> 52/push-edx +<span id="L15861" class="LineNr">15861 </span> 53/push-ebx +<span id="L15862" class="LineNr">15862 </span> 56/push-esi +<span id="L15863" class="LineNr">15863 </span> <span class="subxComment"># ecx = vars</span> +<span id="L15864" class="LineNr">15864 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15865" class="LineNr">15865 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L15866" class="LineNr">15866 </span> 8b/-> *ecx 0/r32/eax +<span id="L15867" class="LineNr">15867 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L15868" class="LineNr">15868 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L15869" class="LineNr">15869 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L15870" class="LineNr">15870 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L15871" class="LineNr">15871 </span> <span class="subxComment"># edx = depth</span> +<span id="L15872" class="LineNr">15872 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L15873" class="LineNr">15873 </span> { +<span id="L15874" class="LineNr">15874 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: +<span id="L15875" class="LineNr">15875 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L15876" class="LineNr">15876 </span> 39/compare %esi 1/r32/ecx +<span id="L15877" class="LineNr">15877 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L15878" class="LineNr">15878 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L15879" class="LineNr">15879 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15880" class="LineNr">15880 </span> 89/<- %ebx 0/r32/eax +<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L15882" class="LineNr">15882 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L15883" class="LineNr">15883 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L15884" class="LineNr">15884 </span> { +<span id="L15885" class="LineNr">15885 </span><span class="Constant">$emit-unconditional-jump-to-depth:check</span>: +<span id="L15886" class="LineNr">15886 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> +<span id="L15887" class="LineNr">15887 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L15888" class="LineNr">15888 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15889" class="LineNr">15889 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: +<span id="L15890" class="LineNr">15890 </span> <span class="subxComment"># if v is not a literal, continue</span> +<span id="L15891" class="LineNr">15891 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L15892" class="LineNr">15892 </span> 3d/compare-eax-and 0/imm32 +<span id="L15893" class="LineNr">15893 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15894" class="LineNr">15894 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: +<span id="L15895" class="LineNr">15895 </span> <span class="subxComment"># emit unconditional jump, then return</span> +<span id="L15896" class="LineNr">15896 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15897" class="LineNr">15897 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L15898" class="LineNr">15898 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15899" class="LineNr">15899 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L15900" class="LineNr">15900 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) +<span id="L15901" class="LineNr">15901 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) +<span id="L15902" class="LineNr">15902 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) +<span id="L15903" class="LineNr">15903 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 +<span id="L15904" class="LineNr">15904 </span> } +<span id="L15905" class="LineNr">15905 </span> <span class="subxComment"># curr -= 12</span> +<span id="L15906" class="LineNr">15906 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L15907" class="LineNr">15907 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15908" class="LineNr">15908 </span> } +<span id="L15909" class="LineNr">15909 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> +<span id="L15910" class="LineNr">15910 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: +<span id="L15911" class="LineNr">15911 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15912" class="LineNr">15912 </span> 5e/pop-to-esi +<span id="L15913" class="LineNr">15913 </span> 5b/pop-to-ebx +<span id="L15914" class="LineNr">15914 </span> 5a/pop-to-edx +<span id="L15915" class="LineNr">15915 </span> 59/pop-to-ecx +<span id="L15916" class="LineNr">15916 </span> 58/pop-to-eax +<span id="L15917" class="LineNr">15917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15918" class="LineNr">15918 </span> 89/<- %esp 5/r32/ebp +<span id="L15919" class="LineNr">15919 </span> 5d/pop-to-ebp +<span id="L15920" class="LineNr">15920 </span> c3/return +<span id="L15921" class="LineNr">15921 </span> +<span id="L15922" class="LineNr">15922 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> +<span id="L15923" class="LineNr">15923 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L15924" class="LineNr">15924 </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="L15925" class="LineNr">15925 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15926" class="LineNr">15926 </span> 55/push-ebp +<span id="L15927" class="LineNr">15927 </span> 89/<- %ebp 4/r32/esp +<span id="L15928" class="LineNr">15928 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15929" class="LineNr">15929 </span> 50/push-eax +<span id="L15930" class="LineNr">15930 </span> 51/push-ecx +<span id="L15931" class="LineNr">15931 </span> 52/push-edx +<span id="L15932" class="LineNr">15932 </span> 53/push-ebx +<span id="L15933" class="LineNr">15933 </span> 56/push-esi +<span id="L15934" class="LineNr">15934 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> +<span id="L15935" class="LineNr">15935 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L15936" class="LineNr">15936 </span> <span class="subxComment"># ecx = vars</span> +<span id="L15937" class="LineNr">15937 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15938" class="LineNr">15938 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L15939" class="LineNr">15939 </span> 8b/-> *ecx 6/r32/esi +<span id="L15940" class="LineNr">15940 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L15941" class="LineNr">15941 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L15942" class="LineNr">15942 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L15943" class="LineNr">15943 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L15944" class="LineNr">15944 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L15945" class="LineNr">15945 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L15946" class="LineNr">15946 </span> { +<span id="L15947" class="LineNr">15947 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: +<span id="L15948" class="LineNr">15948 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L15949" class="LineNr">15949 </span> 39/compare %esi 1/r32/ecx +<span id="L15950" class="LineNr">15950 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L15951" class="LineNr">15951 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L15952" class="LineNr">15952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15953" class="LineNr">15953 </span> 89/<- %ebx 0/r32/eax +<span id="L15954" class="LineNr">15954 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> +<span id="L15955" class="LineNr">15955 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L15956" class="LineNr">15956 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L15957" class="LineNr">15957 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L15958" class="LineNr">15958 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L15959" class="LineNr">15959 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L15960" class="LineNr">15960 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L15961" class="LineNr">15961 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L15962" class="LineNr">15962 </span> <span class="subxComment"># if v is in a register</span> +<span id="L15963" class="LineNr">15963 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15964" class="LineNr">15964 </span> { +<span id="L15965" class="LineNr">15965 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15966" class="LineNr">15966 </span> { +<span id="L15967" class="LineNr">15967 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: +<span id="L15968" class="LineNr">15968 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L15969" class="LineNr">15969 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15970" class="LineNr">15970 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15971" class="LineNr">15971 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: +<span id="L15972" class="LineNr">15972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L15973" class="LineNr">15973 </span> (<a href='mu.subx.html#L16045'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L15974" class="LineNr">15974 </span> } +<span id="L15975" class="LineNr">15975 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 +<span id="L15976" class="LineNr">15976 </span> } +<span id="L15977" class="LineNr">15977 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L15978" class="LineNr">15978 </span> { +<span id="L15979" class="LineNr">15979 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15980" class="LineNr">15980 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: +<span id="L15981" class="LineNr">15981 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L15982" class="LineNr">15982 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L15983" class="LineNr">15983 </span> 3d/compare-eax-and 0/imm32 +<span id="L15984" class="LineNr">15984 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15985" class="LineNr">15985 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: +<span id="L15986" class="LineNr">15986 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L15987" class="LineNr">15987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L15988" class="LineNr">15988 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L15989" class="LineNr">15989 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L15990" class="LineNr">15990 </span> } +<span id="L15991" class="LineNr">15991 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: +<span id="L15992" class="LineNr">15992 </span> <span class="subxComment"># curr -= 12</span> +<span id="L15993" class="LineNr">15993 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L15994" class="LineNr">15994 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15995" class="LineNr">15995 </span> } +<span id="L15996" class="LineNr">15996 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: +<span id="L15997" class="LineNr">15997 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15998" class="LineNr">15998 </span> 5e/pop-to-esi +<span id="L15999" class="LineNr">15999 </span> 5b/pop-to-ebx +<span id="L16000" class="LineNr">16000 </span> 5a/pop-to-edx +<span id="L16001" class="LineNr">16001 </span> 59/pop-to-ecx +<span id="L16002" class="LineNr">16002 </span> 58/pop-to-eax +<span id="L16003" class="LineNr">16003 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16004" class="LineNr">16004 </span> 89/<- %esp 5/r32/ebp +<span id="L16005" class="LineNr">16005 </span> 5d/pop-to-ebp +<span id="L16006" class="LineNr">16006 </span> c3/return +<span id="L16007" class="LineNr">16007 </span> +<span id="L16008" class="LineNr">16008 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L16009" class="LineNr">16009 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16010" class="LineNr">16010 </span> 55/push-ebp +<span id="L16011" class="LineNr">16011 </span> 89/<- %ebp 4/r32/esp +<span id="L16012" class="LineNr">16012 </span> <span class="subxComment"># eax = reg</span> +<span id="L16013" class="LineNr">16013 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L16014" class="LineNr">16014 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L16015" class="LineNr">16015 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L16016" class="LineNr">16016 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16017" class="LineNr">16017 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> +<span id="L16018" class="LineNr">16018 </span> { +<span id="L16019" class="LineNr">16019 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L16020" class="LineNr">16020 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16021" class="LineNr">16021 </span> <span class="subxComment"># TODO validate register</span> +<span id="L16022" class="LineNr">16022 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16023" class="LineNr">16023 </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="L16024" class="LineNr">16024 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16025" class="LineNr">16025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) +<span id="L16026" class="LineNr">16026 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L16027" class="LineNr">16027 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L16028" class="LineNr">16028 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L16029" class="LineNr">16029 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16030" class="LineNr">16030 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L16031" class="LineNr">16031 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L16032" class="LineNr">16032 </span> e9/jump $emit-push-register:end/disp32 +<span id="L16033" class="LineNr">16033 </span> } +<span id="L16034" class="LineNr">16034 </span> <span class="subxComment"># otherwise push gp register</span> +<span id="L16035" class="LineNr">16035 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16036" class="LineNr">16036 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) +<span id="L16037" class="LineNr">16037 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L16038" class="LineNr">16038 </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="L16039" class="LineNr">16039 </span><span class="Constant">$emit-push-register:end</span>: +<span id="L16040" class="LineNr">16040 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16041" class="LineNr">16041 </span> 89/<- %esp 5/r32/ebp +<span id="L16042" class="LineNr">16042 </span> 5d/pop-to-ebp +<span id="L16043" class="LineNr">16043 </span> c3/return +<span id="L16044" class="LineNr">16044 </span> +<span id="L16045" class="LineNr">16045 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L16046" class="LineNr">16046 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16047" class="LineNr">16047 </span> 55/push-ebp +<span id="L16048" class="LineNr">16048 </span> 89/<- %ebp 4/r32/esp +<span id="L16049" class="LineNr">16049 </span> <span class="subxComment"># eax = reg</span> +<span id="L16050" class="LineNr">16050 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L16051" class="LineNr">16051 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L16052" class="LineNr">16052 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L16053" class="LineNr">16053 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16054" class="LineNr">16054 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> +<span id="L16055" class="LineNr">16055 </span> { +<span id="L16056" class="LineNr">16056 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L16057" class="LineNr">16057 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16058" class="LineNr">16058 </span> <span class="subxComment"># TODO validate register</span> +<span id="L16059" class="LineNr">16059 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16060" class="LineNr">16060 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) +<span id="L16061" class="LineNr">16061 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L16062" class="LineNr">16062 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L16063" class="LineNr">16063 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L16064" class="LineNr">16064 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16065" class="LineNr">16065 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L16066" class="LineNr">16066 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L16067" class="LineNr">16067 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16068" class="LineNr">16068 </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="L16069" class="LineNr">16069 </span> e9/jump $emit-push-register:end/disp32 +<span id="L16070" class="LineNr">16070 </span> } +<span id="L16071" class="LineNr">16071 </span> <span class="subxComment"># otherwise pop to gp register</span> +<span id="L16072" class="LineNr">16072 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16073" class="LineNr">16073 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L16074" class="LineNr">16074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L16075" class="LineNr">16075 </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="L16076" class="LineNr">16076 </span><span class="Constant">$emit-pop-register:end</span>: +<span id="L16077" class="LineNr">16077 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16078" class="LineNr">16078 </span> 89/<- %esp 5/r32/ebp +<span id="L16079" class="LineNr">16079 </span> 5d/pop-to-ebp +<span id="L16080" class="LineNr">16080 </span> c3/return +<span id="L16081" class="LineNr">16081 </span> +<span id="L16082" class="LineNr">16082 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> +<span id="L16083" class="LineNr">16083 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L16084" class="LineNr">16084 </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="L16085" class="LineNr">16085 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16086" class="LineNr">16086 </span> 55/push-ebp +<span id="L16087" class="LineNr">16087 </span> 89/<- %ebp 4/r32/esp +<span id="L16088" class="LineNr">16088 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16089" class="LineNr">16089 </span> 50/push-eax +<span id="L16090" class="LineNr">16090 </span> 51/push-ecx +<span id="L16091" class="LineNr">16091 </span> 52/push-edx +<span id="L16092" class="LineNr">16092 </span> 53/push-ebx +<span id="L16093" class="LineNr">16093 </span> <span class="subxComment"># ecx = vars</span> +<span id="L16094" class="LineNr">16094 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16095" class="LineNr">16095 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L16096" class="LineNr">16096 </span> 8b/-> *ecx 0/r32/eax +<span id="L16097" class="LineNr">16097 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L16098" class="LineNr">16098 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L16099" class="LineNr">16099 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L16100" class="LineNr">16100 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L16101" class="LineNr">16101 </span> { +<span id="L16102" class="LineNr">16102 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: +<span id="L16103" class="LineNr">16103 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L16104" class="LineNr">16104 </span> 39/compare %edx 1/r32/ecx +<span id="L16105" class="LineNr">16105 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L16106" class="LineNr">16106 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> +<span id="L16107" class="LineNr">16107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16108" class="LineNr">16108 </span> 89/<- %ebx 0/r32/eax +<span id="L16109" class="LineNr">16109 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> +<span id="L16110" class="LineNr">16110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16111" class="LineNr">16111 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L16112" class="LineNr">16112 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16113" class="LineNr">16113 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16114" class="LineNr">16114 </span> <span class="subxComment"># if v is in a register</span> +<span id="L16115" class="LineNr">16115 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16116" class="LineNr">16116 </span> { +<span id="L16117" class="LineNr">16117 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16118" class="LineNr">16118 </span> { +<span id="L16119" class="LineNr">16119 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: +<span id="L16120" class="LineNr">16120 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L16121" class="LineNr">16121 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16122" class="LineNr">16122 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16123" class="LineNr">16123 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: +<span id="L16124" class="LineNr">16124 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16125" class="LineNr">16125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L16126" class="LineNr">16126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16127" class="LineNr">16127 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L16128" class="LineNr">16128 </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="L16129" class="LineNr">16129 </span> } +<span id="L16130" class="LineNr">16130 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 +<span id="L16131" class="LineNr">16131 </span> } +<span id="L16132" class="LineNr">16132 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L16133" class="LineNr">16133 </span> { +<span id="L16134" class="LineNr">16134 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16135" class="LineNr">16135 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: +<span id="L16136" class="LineNr">16136 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L16137" class="LineNr">16137 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L16138" class="LineNr">16138 </span> 3d/compare-eax-and 0/imm32 +<span id="L16139" class="LineNr">16139 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16140" class="LineNr">16140 </span> <span class="subxComment">#</span> +<span id="L16141" class="LineNr">16141 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16142" class="LineNr">16142 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L16143" class="LineNr">16143 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L16144" class="LineNr">16144 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L16145" class="LineNr">16145 </span> } +<span id="L16146" class="LineNr">16146 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: +<span id="L16147" class="LineNr">16147 </span> <span class="subxComment"># curr -= 12</span> +<span id="L16148" class="LineNr">16148 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L16149" class="LineNr">16149 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16150" class="LineNr">16150 </span> } +<span id="L16151" class="LineNr">16151 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: +<span id="L16152" class="LineNr">16152 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16153" class="LineNr">16153 </span> 5b/pop-to-ebx +<span id="L16154" class="LineNr">16154 </span> 5a/pop-to-edx +<span id="L16155" class="LineNr">16155 </span> 59/pop-to-ecx +<span id="L16156" class="LineNr">16156 </span> 58/pop-to-eax +<span id="L16157" class="LineNr">16157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16158" class="LineNr">16158 </span> 89/<- %esp 5/r32/ebp +<span id="L16159" class="LineNr">16159 </span> 5d/pop-to-ebp +<span id="L16160" class="LineNr">16160 </span> c3/return +<span id="L16161" class="LineNr">16161 </span> +<span id="L16162" class="LineNr">16162 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> +<span id="L16163" class="LineNr">16163 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> +<span id="L16164" class="LineNr">16164 </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="L16165" class="LineNr">16165 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16166" class="LineNr">16166 </span> 55/push-ebp +<span id="L16167" class="LineNr">16167 </span> 89/<- %ebp 4/r32/esp +<span id="L16168" class="LineNr">16168 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16169" class="LineNr">16169 </span> 50/push-eax +<span id="L16170" class="LineNr">16170 </span> 51/push-ecx +<span id="L16171" class="LineNr">16171 </span> 52/push-edx +<span id="L16172" class="LineNr">16172 </span> 53/push-ebx +<span id="L16173" class="LineNr">16173 </span> 56/push-esi +<span id="L16174" class="LineNr">16174 </span> <span class="subxComment"># ecx = vars</span> +<span id="L16175" class="LineNr">16175 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16176" class="LineNr">16176 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L16177" class="LineNr">16177 </span> 8b/-> *ecx 6/r32/esi +<span id="L16178" class="LineNr">16178 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L16179" class="LineNr">16179 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L16180" class="LineNr">16180 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L16181" class="LineNr">16181 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L16182" class="LineNr">16182 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L16183" class="LineNr">16183 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L16184" class="LineNr">16184 </span> { +<span id="L16185" class="LineNr">16185 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: +<span id="L16186" class="LineNr">16186 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L16187" class="LineNr">16187 </span> 39/compare %esi 1/r32/ecx +<span id="L16188" class="LineNr">16188 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L16189" class="LineNr">16189 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L16190" class="LineNr">16190 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L16191" class="LineNr">16191 </span> 89/<- %ebx 0/r32/eax +<span id="L16192" class="LineNr">16192 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L16193" class="LineNr">16193 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L16194" class="LineNr">16194 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L16195" class="LineNr">16195 </span> <span class="subxComment"># if v is in a register</span> +<span id="L16196" class="LineNr">16196 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16197" class="LineNr">16197 </span> { +<span id="L16198" class="LineNr">16198 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16199" class="LineNr">16199 </span> { +<span id="L16200" class="LineNr">16200 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: +<span id="L16201" class="LineNr">16201 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L16202" class="LineNr">16202 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16203" class="LineNr">16203 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16204" class="LineNr">16204 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: +<span id="L16205" class="LineNr">16205 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L16206" class="LineNr">16206 </span> } +<span id="L16207" class="LineNr">16207 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 +<span id="L16208" class="LineNr">16208 </span> } +<span id="L16209" class="LineNr">16209 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L16210" class="LineNr">16210 </span> { +<span id="L16211" class="LineNr">16211 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16212" class="LineNr">16212 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: +<span id="L16213" class="LineNr">16213 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L16214" class="LineNr">16214 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L16215" class="LineNr">16215 </span> } +<span id="L16216" class="LineNr">16216 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: +<span id="L16217" class="LineNr">16217 </span> <span class="subxComment"># curr -= 12</span> +<span id="L16218" class="LineNr">16218 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L16219" class="LineNr">16219 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16220" class="LineNr">16220 </span> } +<span id="L16221" class="LineNr">16221 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: +<span id="L16222" class="LineNr">16222 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16223" class="LineNr">16223 </span> 5e/pop-to-esi +<span id="L16224" class="LineNr">16224 </span> 5b/pop-to-ebx +<span id="L16225" class="LineNr">16225 </span> 5a/pop-to-edx +<span id="L16226" class="LineNr">16226 </span> 59/pop-to-ecx +<span id="L16227" class="LineNr">16227 </span> 58/pop-to-eax +<span id="L16228" class="LineNr">16228 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16229" class="LineNr">16229 </span> 89/<- %esp 5/r32/ebp +<span id="L16230" class="LineNr">16230 </span> 5d/pop-to-ebp +<span id="L16231" class="LineNr">16231 </span> c3/return +<span id="L16232" class="LineNr">16232 </span> +<span id="L16233" class="LineNr">16233 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> +<span id="L16234" class="LineNr">16234 </span><span class="subxComment"># and register as 'v'.</span> +<span id="L16235" class="LineNr">16235 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> +<span id="L16236" class="LineNr">16236 </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="L16237" class="LineNr">16237 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16238" class="LineNr">16238 </span> 55/push-ebp +<span id="L16239" class="LineNr">16239 </span> 89/<- %ebp 4/r32/esp +<span id="L16240" class="LineNr">16240 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16241" class="LineNr">16241 </span> 51/push-ecx +<span id="L16242" class="LineNr">16242 </span> 52/push-edx +<span id="L16243" class="LineNr">16243 </span> 53/push-ebx +<span id="L16244" class="LineNr">16244 </span> 56/push-esi +<span id="L16245" class="LineNr">16245 </span> 57/push-edi +<span id="L16246" class="LineNr">16246 </span> <span class="subxComment"># ecx = vars</span> +<span id="L16247" class="LineNr">16247 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16248" class="LineNr">16248 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L16249" class="LineNr">16249 </span> 8b/-> *ecx 0/r32/eax +<span id="L16250" class="LineNr">16250 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L16251" class="LineNr">16251 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L16252" class="LineNr">16252 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L16253" class="LineNr">16253 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L16254" class="LineNr">16254 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L16255" class="LineNr">16255 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L16256" class="LineNr">16256 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L16257" class="LineNr">16257 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> +<span id="L16258" class="LineNr">16258 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16259" class="LineNr">16259 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16260" class="LineNr">16260 </span> 89/<- %esi 0/r32/eax +<span id="L16261" class="LineNr">16261 </span> { +<span id="L16262" class="LineNr">16262 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: +<span id="L16263" class="LineNr">16263 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L16264" class="LineNr">16264 </span> 39/compare %edx 1/r32/ecx +<span id="L16265" class="LineNr">16265 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L16266" class="LineNr">16266 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> +<span id="L16267" class="LineNr">16267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16268" class="LineNr">16268 </span> 89/<- %edi 0/r32/eax +<span id="L16269" class="LineNr">16269 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> +<span id="L16270" class="LineNr">16270 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L16271" class="LineNr">16271 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L16272" class="LineNr">16272 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> +<span id="L16273" class="LineNr">16273 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16274" class="LineNr">16274 </span> 89/<- %edi 0/r32/eax +<span id="L16275" class="LineNr">16275 </span> <span class="subxComment"># if (cand-reg == null) continue</span> +<span id="L16276" class="LineNr">16276 </span> { +<span id="L16277" class="LineNr">16277 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: +<span id="L16278" class="LineNr">16278 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L16279" class="LineNr">16279 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> +<span id="L16281" class="LineNr">16281 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L16282" class="LineNr">16282 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16283" class="LineNr">16283 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16284" class="LineNr">16284 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: +<span id="L16285" class="LineNr">16285 </span> b8/copy-to-eax 0/imm32/false +<span id="L16286" class="LineNr">16286 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 +<span id="L16287" class="LineNr">16287 </span> } +<span id="L16288" class="LineNr">16288 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: +<span id="L16289" class="LineNr">16289 </span> <span class="subxComment"># curr -= 12</span> +<span id="L16290" class="LineNr">16290 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L16291" class="LineNr">16291 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16292" class="LineNr">16292 </span> } +<span id="L16293" class="LineNr">16293 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: +<span id="L16294" class="LineNr">16294 </span> <span class="subxComment"># return true</span> +<span id="L16295" class="LineNr">16295 </span> b8/copy-to-eax 1/imm32/true +<span id="L16296" class="LineNr">16296 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: +<span id="L16297" class="LineNr">16297 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16298" class="LineNr">16298 </span> 5f/pop-to-edi +<span id="L16299" class="LineNr">16299 </span> 5e/pop-to-esi +<span id="L16300" class="LineNr">16300 </span> 5b/pop-to-ebx +<span id="L16301" class="LineNr">16301 </span> 5a/pop-to-edx +<span id="L16302" class="LineNr">16302 </span> 59/pop-to-ecx +<span id="L16303" class="LineNr">16303 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16304" class="LineNr">16304 </span> 89/<- %esp 5/r32/ebp +<span id="L16305" class="LineNr">16305 </span> 5d/pop-to-ebp +<span id="L16306" class="LineNr">16306 </span> c3/return +<span id="L16307" class="LineNr">16307 </span> +<span id="L16308" class="LineNr">16308 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> +<span id="L16309" class="LineNr">16309 </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="L16310" class="LineNr">16310 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16311" class="LineNr">16311 </span> 55/push-ebp +<span id="L16312" class="LineNr">16312 </span> 89/<- %ebp 4/r32/esp +<span id="L16313" class="LineNr">16313 </span> <span class="subxComment"># eax = v</span> +<span id="L16314" class="LineNr">16314 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16315" class="LineNr">16315 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L16316" class="LineNr">16316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16317" class="LineNr">16317 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> +<span id="L16318" class="LineNr">16318 </span> (<a href='mu.subx.html#L16339'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L16319" class="LineNr">16319 </span> <span class="subxComment"># if (target == 0) return true</span> +<span id="L16320" class="LineNr">16320 </span> { +<span id="L16321" class="LineNr">16321 </span> 3d/compare-eax-and 0/imm32 +<span id="L16322" class="LineNr">16322 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16323" class="LineNr">16323 </span> b8/copy-to-eax 1/imm32/true +<span id="L16324" class="LineNr">16324 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L16325" class="LineNr">16325 </span> } +<span id="L16326" class="LineNr">16326 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> +<span id="L16327" class="LineNr">16327 </span> (<a href='mu.subx.html#L16381'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L16328" class="LineNr">16328 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16329" class="LineNr">16329 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> +<span id="L16330" class="LineNr">16330 </span> 0f 94/set-if-= %al +<span id="L16331" class="LineNr">16331 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L16332" class="LineNr">16332 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16333" class="LineNr">16333 </span> 89/<- %esp 5/r32/ebp +<span id="L16334" class="LineNr">16334 </span> 5d/pop-to-ebp +<span id="L16335" class="LineNr">16335 </span> c3/return +<span id="L16336" class="LineNr">16336 </span> +<span id="L16337" class="LineNr">16337 </span><span class="subxComment"># return fn output with matching register</span> +<span id="L16338" class="LineNr">16338 </span><span class="subxComment"># always returns false if 'reg' is null</span> +<span id="L16339" class="LineNr">16339 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L16340" class="LineNr">16340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16341" class="LineNr">16341 </span> 55/push-ebp +<span id="L16342" class="LineNr">16342 </span> 89/<- %ebp 4/r32/esp +<span id="L16343" class="LineNr">16343 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16344" class="LineNr">16344 </span> 51/push-ecx +<span id="L16345" class="LineNr">16345 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L16346" class="LineNr">16346 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16347" class="LineNr">16347 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L16348" class="LineNr">16348 </span> 89/<- %ecx 0/r32/eax +<span id="L16349" class="LineNr">16349 </span> { +<span id="L16350" class="LineNr">16350 </span><span class="Constant">$find-register:loop</span>: +<span id="L16351" class="LineNr">16351 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L16352" class="LineNr">16352 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16353" class="LineNr">16353 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16354" class="LineNr">16354 </span> <span class="subxComment"># eax = curr->value->register</span> +<span id="L16355" class="LineNr">16355 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16356" class="LineNr">16356 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16357" class="LineNr">16357 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> +<span id="L16358" class="LineNr">16358 </span><span class="Constant">$find-register:compare</span>: +<span id="L16359" class="LineNr">16359 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L16360" class="LineNr">16360 </span> { +<span id="L16361" class="LineNr">16361 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16362" class="LineNr">16362 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16363" class="LineNr">16363 </span><span class="Constant">$find-register:found</span>: +<span id="L16364" class="LineNr">16364 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16365" class="LineNr">16365 </span> eb/jump $find-register:end/disp8 +<span id="L16366" class="LineNr">16366 </span> } +<span id="L16367" class="LineNr">16367 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L16368" class="LineNr">16368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16369" class="LineNr">16369 </span> 89/<- %ecx 0/r32/eax +<span id="L16370" class="LineNr">16370 </span> <span class="subxComment">#</span> +<span id="L16371" class="LineNr">16371 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16372" class="LineNr">16372 </span> } +<span id="L16373" class="LineNr">16373 </span><span class="Constant">$find-register:end</span>: +<span id="L16374" class="LineNr">16374 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16375" class="LineNr">16375 </span> 59/pop-to-ecx +<span id="L16376" class="LineNr">16376 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16377" class="LineNr">16377 </span> 89/<- %esp 5/r32/ebp +<span id="L16378" class="LineNr">16378 </span> 5d/pop-to-ebp +<span id="L16379" class="LineNr">16379 </span> c3/return +<span id="L16380" class="LineNr">16380 </span> +<span id="L16381" class="LineNr">16381 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L16382" class="LineNr">16382 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16383" class="LineNr">16383 </span> 55/push-ebp +<span id="L16384" class="LineNr">16384 </span> 89/<- %ebp 4/r32/esp +<span id="L16385" class="LineNr">16385 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16386" class="LineNr">16386 </span> 51/push-ecx +<span id="L16387" class="LineNr">16387 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> +<span id="L16388" class="LineNr">16388 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16389" class="LineNr">16389 </span> { +<span id="L16390" class="LineNr">16390 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L16391" class="LineNr">16391 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16392" class="LineNr">16392 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16393" class="LineNr">16393 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> +<span id="L16394" class="LineNr">16394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16395" class="LineNr">16395 </span> (<a href='mu.subx.html#L16412'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16396" class="LineNr">16396 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16397" class="LineNr">16397 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16398" class="LineNr">16398 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L16399" class="LineNr">16399 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16400" class="LineNr">16400 </span> 89/<- %ecx 0/r32/eax +<span id="L16401" class="LineNr">16401 </span> <span class="subxComment">#</span> +<span id="L16402" class="LineNr">16402 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16403" class="LineNr">16403 </span> } +<span id="L16404" class="LineNr">16404 </span><span class="Constant">$assigns-in-stmts?:end</span>: +<span id="L16405" class="LineNr">16405 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16406" class="LineNr">16406 </span> 59/pop-to-ecx +<span id="L16407" class="LineNr">16407 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16408" class="LineNr">16408 </span> 89/<- %esp 5/r32/ebp +<span id="L16409" class="LineNr">16409 </span> 5d/pop-to-ebp +<span id="L16410" class="LineNr">16410 </span> c3/return +<span id="L16411" class="LineNr">16411 </span> +<span id="L16412" class="LineNr">16412 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L16413" class="LineNr">16413 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16414" class="LineNr">16414 </span> 55/push-ebp +<span id="L16415" class="LineNr">16415 </span> 89/<- %ebp 4/r32/esp +<span id="L16416" class="LineNr">16416 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16417" class="LineNr">16417 </span> 51/push-ecx +<span id="L16418" class="LineNr">16418 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L16419" class="LineNr">16419 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16420" class="LineNr">16420 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> +<span id="L16421" class="LineNr">16421 </span> { +<span id="L16422" class="LineNr">16422 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L16423" class="LineNr">16423 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16424" class="LineNr">16424 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L16425" class="LineNr">16425 </span> (<a href='mu.subx.html#L16446'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16426" class="LineNr">16426 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L16427" class="LineNr">16427 </span> } +<span id="L16428" class="LineNr">16428 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> +<span id="L16429" class="LineNr">16429 </span> { +<span id="L16430" class="LineNr">16430 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L16431" class="LineNr">16431 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16432" class="LineNr">16432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L16433" class="LineNr">16433 </span> (<a href='mu.subx.html#L16381'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16434" class="LineNr">16434 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L16435" class="LineNr">16435 </span> } +<span id="L16436" class="LineNr">16436 </span> <span class="subxComment"># otherwise return false</span> +<span id="L16437" class="LineNr">16437 </span> b8/copy 0/imm32/false +<span id="L16438" class="LineNr">16438 </span><span class="Constant">$assigns-in-stmt?:end</span>: +<span id="L16439" class="LineNr">16439 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16440" class="LineNr">16440 </span> 59/pop-to-ecx +<span id="L16441" class="LineNr">16441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16442" class="LineNr">16442 </span> 89/<- %esp 5/r32/ebp +<span id="L16443" class="LineNr">16443 </span> 5d/pop-to-ebp +<span id="L16444" class="LineNr">16444 </span> c3/return +<span id="L16445" class="LineNr">16445 </span> +<span id="L16446" class="LineNr">16446 </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="L16447" class="LineNr">16447 </span> <span class="subxS1Comment"># . prologue</span> <span id="L16448" class="LineNr">16448 </span> 55/push-ebp <span id="L16449" class="LineNr">16449 </span> 89/<- %ebp 4/r32/esp <span id="L16450" class="LineNr">16450 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16451" class="LineNr">16451 </span> 50/push-eax -<span id="L16452" class="LineNr">16452 </span> 52/push-edx -<span id="L16453" class="LineNr">16453 </span> 53/push-ebx -<span id="L16454" class="LineNr">16454 </span> 56/push-esi -<span id="L16455" class="LineNr">16455 </span> 57/push-edi -<span id="L16456" class="LineNr">16456 </span> <span class="subxComment"># ebx = vars</span> -<span id="L16457" class="LineNr">16457 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L16458" class="LineNr">16458 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L16459" class="LineNr">16459 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L16460" class="LineNr">16460 </span><span class="Constant">$clean-up-blocks:phase1</span>: -<span id="L16461" class="LineNr">16461 </span> <span class="subxComment"># var to/edi: int = vars->top</span> -<span id="L16462" class="LineNr">16462 </span> 8b/-> *ebx 7/r32/edi -<span id="L16463" class="LineNr">16463 </span> { -<span id="L16464" class="LineNr">16464 </span><span class="Constant">$clean-up-blocks:loop1</span>: -<span id="L16465" class="LineNr">16465 </span> <span class="subxComment"># if (to <= 0) break</span> -<span id="L16466" class="LineNr">16466 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L16467" class="LineNr">16467 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L16468" class="LineNr">16468 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars->data[to-1]->var)</span> -<span id="L16469" class="LineNr">16469 </span> 8d/copy-address *(ebx+edi-4) 0/r32/eax <span class="subxComment"># vars + 8 + to - 12</span> -<span id="L16470" class="LineNr">16470 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L16471" class="LineNr">16471 </span> <span class="subxComment"># if (v->block-depth >= until-block-depth) continue</span> -<span id="L16472" class="LineNr">16472 </span> 39/compare *(eax+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L16473" class="LineNr">16473 </span> { -<span id="L16474" class="LineNr">16474 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L16475" class="LineNr">16475 </span> <span class="subxComment"># if (!in-function-outputs?(fn, v)) break</span> -<span id="L16476" class="LineNr">16476 </span> (<a href='mu.subx.html#L16543'>in-function-outputs?</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L16477" class="LineNr">16477 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16478" class="LineNr">16478 </span> 74/jump-if-= $clean-up-blocks:phase2/disp8 -<span id="L16479" class="LineNr">16479 </span> } -<span id="L16480" class="LineNr">16480 </span><span class="Constant">$clean-up-blocks:loop1-continue</span>: -<span id="L16481" class="LineNr">16481 </span> <span class="subxComment"># --to</span> -<span id="L16482" class="LineNr">16482 </span> 81 5/subop/subtract %edi 0xc/imm32 -<span id="L16483" class="LineNr">16483 </span> <span class="subxComment">#</span> -<span id="L16484" class="LineNr">16484 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16485" class="LineNr">16485 </span> } -<span id="L16486" class="LineNr">16486 </span><span class="Constant">$clean-up-blocks:phase2</span>: -<span id="L16487" class="LineNr">16487 </span> <span class="subxComment"># var from/esi: int = to</span> -<span id="L16488" class="LineNr">16488 </span> 89/<- %esi 7/r32/edi -<span id="L16489" class="LineNr">16489 </span> { -<span id="L16490" class="LineNr">16490 </span><span class="Constant">$clean-up-blocks:loop2</span>: -<span id="L16491" class="LineNr">16491 </span> <span class="subxComment"># if (from >= vars->top) break</span> -<span id="L16492" class="LineNr">16492 </span> 3b/compare 6/r32/esi *ebx -<span id="L16493" class="LineNr">16493 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L16494" class="LineNr">16494 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars->data[from]->var)</span> -<span id="L16495" class="LineNr">16495 </span> 8d/copy-address *(ebx+esi+8) 0/r32/eax -<span id="L16496" class="LineNr">16496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L16497" class="LineNr">16497 </span> <span class="subxComment"># if !in-function-outputs?(fn, v) continue</span> -<span id="L16498" class="LineNr">16498 </span> (<a href='mu.subx.html#L16543'>in-function-outputs?</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L16499" class="LineNr">16499 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16500" class="LineNr">16500 </span> 74/jump-if-= $clean-up-blocks:loop2-continue/disp8 -<span id="L16501" class="LineNr">16501 </span> <span class="subxComment"># invariant: from >= to</span> -<span id="L16502" class="LineNr">16502 </span> <span class="subxComment"># if (from > to) vars->data[to] = vars->data[from]</span> -<span id="L16503" class="LineNr">16503 </span> { -<span id="L16504" class="LineNr">16504 </span> 39/compare %esi 7/r32/edi -<span id="L16505" class="LineNr">16505 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L16506" class="LineNr">16506 </span> 56/push-esi -<span id="L16507" class="LineNr">16507 </span> 57/push-edi -<span id="L16508" class="LineNr">16508 </span> <span class="subxS1Comment"># . var from/esi: (addr byte) = &vars->data[from]</span> -<span id="L16509" class="LineNr">16509 </span> 8d/copy-address *(ebx+esi+8) 6/r32/esi -<span id="L16510" class="LineNr">16510 </span> <span class="subxS1Comment"># . var to/edi: (addr byte) = &vars->data[to]</span> -<span id="L16511" class="LineNr">16511 </span> 8d/copy-address *(ebx+edi+8) 7/r32/edi -<span id="L16512" class="LineNr">16512 </span> <span class="subxS1Comment"># .</span> -<span id="L16513" class="LineNr">16513 </span> 8b/-> *esi 0/r32/eax -<span id="L16514" class="LineNr">16514 </span> 89/<- *edi 0/r32/eax -<span id="L16515" class="LineNr">16515 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L16516" class="LineNr">16516 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L16517" class="LineNr">16517 </span> 8b/-> *(esi+8) 0/r32/eax -<span id="L16518" class="LineNr">16518 </span> 89/<- *(edi+8) 0/r32/eax -<span id="L16519" class="LineNr">16519 </span> 5f/pop-to-edi -<span id="L16520" class="LineNr">16520 </span> 5e/pop-to-esi -<span id="L16521" class="LineNr">16521 </span> } -<span id="L16522" class="LineNr">16522 </span> <span class="subxComment"># ++to</span> -<span id="L16523" class="LineNr">16523 </span> 81 0/subop/add %edi 0xc/imm32 -<span id="L16524" class="LineNr">16524 </span><span class="Constant">$clean-up-blocks:loop2-continue</span>: -<span id="L16525" class="LineNr">16525 </span> <span class="subxComment"># ++from</span> -<span id="L16526" class="LineNr">16526 </span> 81 0/subop/add %esi 0xc/imm32 -<span id="L16527" class="LineNr">16527 </span> <span class="subxComment">#</span> -<span id="L16528" class="LineNr">16528 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16529" class="LineNr">16529 </span> } -<span id="L16530" class="LineNr">16530 </span> 89/<- *ebx 7/r32/edi -<span id="L16531" class="LineNr">16531 </span><span class="Constant">$clean-up-blocks:end</span>: -<span id="L16532" class="LineNr">16532 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16533" class="LineNr">16533 </span> 5f/pop-to-edi -<span id="L16534" class="LineNr">16534 </span> 5e/pop-to-esi -<span id="L16535" class="LineNr">16535 </span> 5b/pop-to-ebx -<span id="L16536" class="LineNr">16536 </span> 5a/pop-to-edx -<span id="L16537" class="LineNr">16537 </span> 58/pop-to-eax -<span id="L16538" class="LineNr">16538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16539" class="LineNr">16539 </span> 89/<- %esp 5/r32/ebp -<span id="L16540" class="LineNr">16540 </span> 5d/pop-to-ebp -<span id="L16541" class="LineNr">16541 </span> c3/return -<span id="L16542" class="LineNr">16542 </span> -<span id="L16543" class="LineNr">16543 </span><span class="subxFunction">in-function-outputs?</span>: <span class="subxComment"># fn: (addr function), target: (addr var) -> result/eax: boolean</span> -<span id="L16544" class="LineNr">16544 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16545" class="LineNr">16545 </span> 55/push-ebp -<span id="L16546" class="LineNr">16546 </span> 89/<- %ebp 4/r32/esp -<span id="L16547" class="LineNr">16547 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16548" class="LineNr">16548 </span> 51/push-ecx -<span id="L16549" class="LineNr">16549 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L16550" class="LineNr">16550 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L16551" class="LineNr">16551 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L16552" class="LineNr">16552 </span> 89/<- %ecx 0/r32/eax -<span id="L16553" class="LineNr">16553 </span> <span class="subxComment"># while curr != null</span> -<span id="L16554" class="LineNr">16554 </span> { -<span id="L16555" class="LineNr">16555 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16556" class="LineNr">16556 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16557" class="LineNr">16557 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L16558" class="LineNr">16558 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16559" class="LineNr">16559 </span> <span class="subxComment"># if (v == target) return true</span> -<span id="L16560" class="LineNr">16560 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L16561" class="LineNr">16561 </span> b8/copy-to-eax 1/imm32/true -<span id="L16562" class="LineNr">16562 </span> 74/jump-if-= $in-function-outputs?:end/disp8 -<span id="L16563" class="LineNr">16563 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16564" class="LineNr">16564 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16565" class="LineNr">16565 </span> 89/<- %ecx 0/r32/eax -<span id="L16566" class="LineNr">16566 </span> <span class="subxComment">#</span> -<span id="L16567" class="LineNr">16567 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16568" class="LineNr">16568 </span> } -<span id="L16569" class="LineNr">16569 </span> b8/copy-to-eax 0/imm32 -<span id="L16570" class="LineNr">16570 </span><span class="Constant">$in-function-outputs?:end</span>: -<span id="L16571" class="LineNr">16571 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16572" class="LineNr">16572 </span> 59/pop-to-ecx -<span id="L16573" class="LineNr">16573 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16574" class="LineNr">16574 </span> 89/<- %esp 5/r32/ebp -<span id="L16575" class="LineNr">16575 </span> 5d/pop-to-ebp -<span id="L16576" class="LineNr">16576 </span> c3/return -<span id="L16577" class="LineNr">16577 </span> -<span id="L16578" class="LineNr">16578 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L16579" class="LineNr">16579 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16580" class="LineNr">16580 </span> 55/push-ebp -<span id="L16581" class="LineNr">16581 </span> 89/<- %ebp 4/r32/esp -<span id="L16582" class="LineNr">16582 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16583" class="LineNr">16583 </span> 50/push-eax -<span id="L16584" class="LineNr">16584 </span> 51/push-ecx -<span id="L16585" class="LineNr">16585 </span> 52/push-edx -<span id="L16586" class="LineNr">16586 </span> <span class="subxComment"># eax = stmt</span> -<span id="L16587" class="LineNr">16587 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L16588" class="LineNr">16588 </span> <span class="subxComment"># var v/ecx: (addr var)</span> -<span id="L16589" class="LineNr">16589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L16590" class="LineNr">16590 </span> 89/<- %ecx 0/r32/eax -<span id="L16591" class="LineNr">16591 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L16592" class="LineNr">16592 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/r32/eax -<span id="L16593" class="LineNr">16593 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L16594" class="LineNr">16594 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> -<span id="L16595" class="LineNr">16595 </span> (<a href='mu.subx.html#L14794'>size-of</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16596" class="LineNr">16596 </span> 89/<- %edx 0/r32/eax -<span id="L16597" class="LineNr">16597 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> -<span id="L16598" class="LineNr">16598 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 2/r32/edx -<span id="L16599" class="LineNr">16599 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> -<span id="L16600" class="LineNr">16600 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15197'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L16601" class="LineNr">16601 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L16602" class="LineNr">16602 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L16451" class="LineNr">16451 </span> 51/push-ecx +<span id="L16452" class="LineNr">16452 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> +<span id="L16453" class="LineNr">16453 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16454" class="LineNr">16454 </span> { +<span id="L16455" class="LineNr">16455 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L16456" class="LineNr">16456 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16457" class="LineNr">16457 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16458" class="LineNr">16458 </span> <span class="subxComment"># eax = lookup(curr->value)</span> +<span id="L16459" class="LineNr">16459 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L16460" class="LineNr">16460 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> +<span id="L16461" class="LineNr">16461 </span> { +<span id="L16462" class="LineNr">16462 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L16463" class="LineNr">16463 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16464" class="LineNr">16464 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L16465" class="LineNr">16465 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16466" class="LineNr">16466 </span> b8/copy-to-eax 1/imm32/true +<span id="L16467" class="LineNr">16467 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 +<span id="L16468" class="LineNr">16468 </span> } +<span id="L16469" class="LineNr">16469 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L16470" class="LineNr">16470 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L16471" class="LineNr">16471 </span> 89/<- %ecx 0/r32/eax +<span id="L16472" class="LineNr">16472 </span> <span class="subxComment">#</span> +<span id="L16473" class="LineNr">16473 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16474" class="LineNr">16474 </span> } +<span id="L16475" class="LineNr">16475 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: +<span id="L16476" class="LineNr">16476 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16477" class="LineNr">16477 </span> 59/pop-to-ecx +<span id="L16478" class="LineNr">16478 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16479" class="LineNr">16479 </span> 89/<- %esp 5/r32/ebp +<span id="L16480" class="LineNr">16480 </span> 5d/pop-to-ebp +<span id="L16481" class="LineNr">16481 </span> c3/return +<span id="L16482" class="LineNr">16482 </span> +<span id="L16483" class="LineNr">16483 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> +<span id="L16484" class="LineNr">16484 </span><span class="subxComment"># v is guaranteed to be within vars</span> +<span id="L16485" class="LineNr">16485 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> +<span id="L16486" class="LineNr">16486 </span><span class="subxComment"># *start == v</span> +<span id="L16487" class="LineNr">16487 </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="L16488" class="LineNr">16488 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16489" class="LineNr">16489 </span> 55/push-ebp +<span id="L16490" class="LineNr">16490 </span> 89/<- %ebp 4/r32/esp +<span id="L16491" class="LineNr">16491 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16492" class="LineNr">16492 </span> 51/push-ecx +<span id="L16493" class="LineNr">16493 </span> 52/push-edx +<span id="L16494" class="LineNr">16494 </span> 53/push-ebx +<span id="L16495" class="LineNr">16495 </span> 56/push-esi +<span id="L16496" class="LineNr">16496 </span> 57/push-edi +<span id="L16497" class="LineNr">16497 </span> <span class="subxComment"># ecx = v</span> +<span id="L16498" class="LineNr">16498 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16499" class="LineNr">16499 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> +<span id="L16500" class="LineNr">16500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16501" class="LineNr">16501 </span> 89/<- %edx 0/r32/eax +<span id="L16502" class="LineNr">16502 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L16503" class="LineNr">16503 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L16504" class="LineNr">16504 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L16505" class="LineNr">16505 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16506" class="LineNr">16506 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L16507" class="LineNr">16507 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> +<span id="L16508" class="LineNr">16508 </span> <span class="subxComment"># TODO: check that *start == v</span> +<span id="L16509" class="LineNr">16509 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> +<span id="L16510" class="LineNr">16510 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L16511" class="LineNr">16511 </span> <span class="subxComment"># curr -= 8</span> +<span id="L16512" class="LineNr">16512 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L16513" class="LineNr">16513 </span> { +<span id="L16514" class="LineNr">16514 </span><span class="Constant">$same-register-spilled-before?:loop</span>: +<span id="L16515" class="LineNr">16515 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L16516" class="LineNr">16516 </span> 39/compare %esi 1/r32/ecx +<span id="L16517" class="LineNr">16517 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L16518" class="LineNr">16518 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> +<span id="L16519" class="LineNr">16519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L16520" class="LineNr">16520 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> +<span id="L16521" class="LineNr">16521 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L16522" class="LineNr">16522 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L16523" class="LineNr">16523 </span> <span class="subxComment"># if (x->register == 0) continue</span> +<span id="L16524" class="LineNr">16524 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16525" class="LineNr">16525 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 +<span id="L16526" class="LineNr">16526 </span> <span class="subxComment"># if (x->register == reg) return true</span> +<span id="L16527" class="LineNr">16527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16528" class="LineNr">16528 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <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> b8/copy-to-eax 1/imm32/true +<span id="L16531" class="LineNr">16531 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 +<span id="L16532" class="LineNr">16532 </span><span class="Constant">$same-register-spilled-before?:continue</span>: +<span id="L16533" class="LineNr">16533 </span> <span class="subxComment"># curr -= 8</span> +<span id="L16534" class="LineNr">16534 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L16535" class="LineNr">16535 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16536" class="LineNr">16536 </span> } +<span id="L16537" class="LineNr">16537 </span><span class="Constant">$same-register-spilled-before?:false</span>: +<span id="L16538" class="LineNr">16538 </span> b8/copy-to-eax 0/imm32/false +<span id="L16539" class="LineNr">16539 </span><span class="Constant">$same-register-spilled-before?:end</span>: +<span id="L16540" class="LineNr">16540 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16541" class="LineNr">16541 </span> 5f/pop-to-edi +<span id="L16542" class="LineNr">16542 </span> 5e/pop-to-esi +<span id="L16543" class="LineNr">16543 </span> 5b/pop-to-ebx +<span id="L16544" class="LineNr">16544 </span> 5a/pop-to-edx +<span id="L16545" class="LineNr">16545 </span> 59/pop-to-ecx +<span id="L16546" class="LineNr">16546 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16547" class="LineNr">16547 </span> 89/<- %esp 5/r32/ebp +<span id="L16548" class="LineNr">16548 </span> 5d/pop-to-ebp +<span id="L16549" class="LineNr">16549 </span> c3/return +<span id="L16550" class="LineNr">16550 </span> +<span id="L16551" class="LineNr">16551 </span><span class="subxComment"># Clean up global state for 'vars' until some block depth (inclusive).</span> +<span id="L16552" class="LineNr">16552 </span><span class="subxComment">#</span> +<span id="L16553" class="LineNr">16553 </span><span class="subxComment"># This would be a simple series of pops, if it wasn't for fn outputs, which</span> +<span id="L16554" class="LineNr">16554 </span><span class="subxComment"># can occur anywhere in the stack.</span> +<span id="L16555" class="LineNr">16555 </span><span class="subxComment"># So we have to _compact_ the entire array underlying the stack.</span> +<span id="L16556" class="LineNr">16556 </span><span class="subxComment">#</span> +<span id="L16557" class="LineNr">16557 </span><span class="subxComment"># We want to allow a fn output register to be written to by locals before the</span> +<span id="L16558" class="LineNr">16558 </span><span class="subxComment"># output is set.</span> +<span id="L16559" class="LineNr">16559 </span><span class="subxComment"># So fn outputs can't just be pushed at the start of the function.</span> +<span id="L16560" class="LineNr">16560 </span><span class="subxComment">#</span> +<span id="L16561" class="LineNr">16561 </span><span class="subxComment"># We want to allow other locals to shadow a fn output register after the</span> +<span id="L16562" class="LineNr">16562 </span><span class="subxComment"># output is set.</span> +<span id="L16563" class="LineNr">16563 </span><span class="subxComment"># So the output can't just always override anything in the stack. Sequence matters.</span> +<span id="L16564" class="LineNr">16564 </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="L16565" class="LineNr">16565 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16566" class="LineNr">16566 </span> <span class="subxComment"># to = vars->top (which points outside the stack)</span> +<span id="L16567" class="LineNr">16567 </span> <span class="subxComment"># while true</span> +<span id="L16568" class="LineNr">16568 </span> <span class="subxComment"># if to <= 0</span> +<span id="L16569" class="LineNr">16569 </span> <span class="subxComment"># break</span> +<span id="L16570" class="LineNr">16570 </span> <span class="subxComment"># var v = vars->data[to-1]</span> +<span id="L16571" class="LineNr">16571 </span> <span class="subxComment"># if v.depth < until and !in-function-outputs?(fn, v)</span> +<span id="L16572" class="LineNr">16572 </span> <span class="subxComment"># break</span> +<span id="L16573" class="LineNr">16573 </span> <span class="subxComment"># --to</span> +<span id="L16574" class="LineNr">16574 </span> <span class="subxComment"># from = to</span> +<span id="L16575" class="LineNr">16575 </span> <span class="subxComment"># while true</span> +<span id="L16576" class="LineNr">16576 </span> <span class="subxComment"># if from >= vars->top</span> +<span id="L16577" class="LineNr">16577 </span> <span class="subxComment"># break</span> +<span id="L16578" class="LineNr">16578 </span> <span class="subxComment"># assert(from >= to)</span> +<span id="L16579" class="LineNr">16579 </span> <span class="subxComment"># v = vars->data[from]</span> +<span id="L16580" class="LineNr">16580 </span> <span class="subxComment"># if in-function-outputs?(fn, v)</span> +<span id="L16581" class="LineNr">16581 </span> <span class="subxComment"># if from > to</span> +<span id="L16582" class="LineNr">16582 </span> <span class="subxComment"># vars->data[to] = vars->data[from]</span> +<span id="L16583" class="LineNr">16583 </span> <span class="subxComment"># ++to</span> +<span id="L16584" class="LineNr">16584 </span> <span class="subxComment"># ++from</span> +<span id="L16585" class="LineNr">16585 </span> <span class="subxComment"># vars->top = to</span> +<span id="L16586" class="LineNr">16586 </span> <span class="subxComment">#</span> +<span id="L16587" class="LineNr">16587 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16588" class="LineNr">16588 </span> 55/push-ebp +<span id="L16589" class="LineNr">16589 </span> 89/<- %ebp 4/r32/esp +<span id="L16590" class="LineNr">16590 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16591" class="LineNr">16591 </span> 50/push-eax +<span id="L16592" class="LineNr">16592 </span> 52/push-edx +<span id="L16593" class="LineNr">16593 </span> 53/push-ebx +<span id="L16594" class="LineNr">16594 </span> 56/push-esi +<span id="L16595" class="LineNr">16595 </span> 57/push-edi +<span id="L16596" class="LineNr">16596 </span> <span class="subxComment"># ebx = vars</span> +<span id="L16597" class="LineNr">16597 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L16598" class="LineNr">16598 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L16599" class="LineNr">16599 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L16600" class="LineNr">16600 </span><span class="Constant">$clean-up-blocks:phase1</span>: +<span id="L16601" class="LineNr">16601 </span> <span class="subxComment"># var to/edi: int = vars->top</span> +<span id="L16602" class="LineNr">16602 </span> 8b/-> *ebx 7/r32/edi <span id="L16603" class="LineNr">16603 </span> { -<span id="L16604" class="LineNr">16604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16605" class="LineNr">16605 </span> (<a href='mu.subx.html#L14891'>is-mu-array?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16606" class="LineNr">16606 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16607" class="LineNr">16607 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16608" class="LineNr">16608 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> -<span id="L16609" class="LineNr">16609 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L16610" class="LineNr">16610 </span> <span class="subxComment">#</span> -<span id="L16611" class="LineNr">16611 </span> (<a href='mu.subx.html#L16653'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L16612" class="LineNr">16612 </span> e9/jump $emit-subx-var-def:end/disp32 -<span id="L16613" class="LineNr">16613 </span> } -<span id="L16614" class="LineNr">16614 </span> <span class="subxComment"># another special-case for initializing streams</span> -<span id="L16615" class="LineNr">16615 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> -<span id="L16616" class="LineNr">16616 </span> { -<span id="L16617" class="LineNr">16617 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16618" class="LineNr">16618 </span> (<a href='mu.subx.html#L14956'>is-mu-stream?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16619" class="LineNr">16619 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16620" class="LineNr">16620 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16621" class="LineNr">16621 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> -<span id="L16622" class="LineNr">16622 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L16623" class="LineNr">16623 </span> (<a href='mu.subx.html#L16653'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L16624" class="LineNr">16624 </span> <span class="subxComment"># emit read and write pointers</span> -<span id="L16625" class="LineNr">16625 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16626" class="LineNr">16626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L16627" class="LineNr">16627 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16628" class="LineNr">16628 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L16629" class="LineNr">16629 </span> <span class="subxComment">#</span> -<span id="L16630" class="LineNr">16630 </span> eb/jump $emit-subx-var-def:end/disp8 -<span id="L16631" class="LineNr">16631 </span> } -<span id="L16632" class="LineNr">16632 </span> <span class="subxComment"># while n > 0</span> -<span id="L16633" class="LineNr">16633 </span> { -<span id="L16634" class="LineNr">16634 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L16635" class="LineNr">16635 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L16636" class="LineNr">16636 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16637" class="LineNr">16637 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L16638" class="LineNr">16638 </span> <span class="subxComment"># n -= 4</span> -<span id="L16639" class="LineNr">16639 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L16640" class="LineNr">16640 </span> <span class="subxComment">#</span> -<span id="L16641" class="LineNr">16641 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16642" class="LineNr">16642 </span> } -<span id="L16643" class="LineNr">16643 </span><span class="Constant">$emit-subx-var-def:end</span>: -<span id="L16644" class="LineNr">16644 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16645" class="LineNr">16645 </span> 5a/pop-to-edx -<span id="L16646" class="LineNr">16646 </span> 59/pop-to-ecx -<span id="L16647" class="LineNr">16647 </span> 58/pop-to-eax -<span id="L16648" class="LineNr">16648 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16649" class="LineNr">16649 </span> 89/<- %esp 5/r32/ebp -<span id="L16650" class="LineNr">16650 </span> 5d/pop-to-ebp -<span id="L16651" class="LineNr">16651 </span> c3/return -<span id="L16652" class="LineNr">16652 </span> -<span id="L16653" class="LineNr">16653 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L16654" class="LineNr">16654 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16655" class="LineNr">16655 </span> 55/push-ebp -<span id="L16656" class="LineNr">16656 </span> 89/<- %ebp 4/r32/esp -<span id="L16657" class="LineNr">16657 </span> <span class="subxComment">#</span> -<span id="L16658" class="LineNr">16658 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16659" class="LineNr">16659 </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="L16660" class="LineNr">16660 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L16661" class="LineNr">16661 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L16662" class="LineNr">16662 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16663" class="LineNr">16663 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L16664" class="LineNr">16664 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L16665" class="LineNr">16665 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L16666" class="LineNr">16666 </span><span class="Constant">$emit-array-data-initialization:end</span>: -<span id="L16667" class="LineNr">16667 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16668" class="LineNr">16668 </span> 89/<- %esp 5/r32/ebp -<span id="L16669" class="LineNr">16669 </span> 5d/pop-to-ebp -<span id="L16670" class="LineNr">16670 </span> c3/return -<span id="L16671" class="LineNr">16671 </span> -<span id="L16672" class="LineNr">16672 </span><span class="subxFunction">emit-subx-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitives: (addr primitive), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L16673" class="LineNr">16673 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16674" class="LineNr">16674 </span> 55/push-ebp -<span id="L16675" class="LineNr">16675 </span> 89/<- %ebp 4/r32/esp -<span id="L16676" class="LineNr">16676 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16677" class="LineNr">16677 </span> 50/push-eax -<span id="L16678" class="LineNr">16678 </span> 51/push-ecx -<span id="L16679" class="LineNr">16679 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> -<span id="L16680" class="LineNr">16680 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L16681" class="LineNr">16681 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16682" class="LineNr">16682 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L16683" class="LineNr">16683 </span> 89/<- %ecx 0/r32/eax -<span id="L16684" class="LineNr">16684 </span> <span class="subxComment"># array size</span> -<span id="L16685" class="LineNr">16685 </span> { -<span id="L16686" class="LineNr">16686 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> -<span id="L16687" class="LineNr">16687 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L16688" class="LineNr">16688 </span> 3d/compare-eax-and 0/imm32 -<span id="L16689" class="LineNr">16689 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16690" class="LineNr">16690 </span> (<a href='mu.subx.html#L16798'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16691" class="LineNr">16691 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16692" class="LineNr">16692 </span> } -<span id="L16693" class="LineNr">16693 </span> <span class="subxComment"># index into array</span> +<span id="L16604" class="LineNr">16604 </span><span class="Constant">$clean-up-blocks:loop1</span>: +<span id="L16605" class="LineNr">16605 </span> <span class="subxComment"># if (to <= 0) break</span> +<span id="L16606" class="LineNr">16606 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L16607" class="LineNr">16607 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L16608" class="LineNr">16608 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars->data[to-1]->var)</span> +<span id="L16609" class="LineNr">16609 </span> 8d/copy-address *(ebx+edi-4) 0/r32/eax <span class="subxComment"># vars + 8 + to - 12</span> +<span id="L16610" class="LineNr">16610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L16611" class="LineNr">16611 </span> <span class="subxComment"># if (v->block-depth >= until-block-depth) continue</span> +<span id="L16612" class="LineNr">16612 </span> 39/compare *(eax+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L16613" class="LineNr">16613 </span> { +<span id="L16614" class="LineNr">16614 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L16615" class="LineNr">16615 </span> <span class="subxComment"># if (!in-function-outputs?(fn, v)) break</span> +<span id="L16616" class="LineNr">16616 </span> (<a href='mu.subx.html#L16683'>in-function-outputs?</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L16617" class="LineNr">16617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16618" class="LineNr">16618 </span> 74/jump-if-= $clean-up-blocks:phase2/disp8 +<span id="L16619" class="LineNr">16619 </span> } +<span id="L16620" class="LineNr">16620 </span><span class="Constant">$clean-up-blocks:loop1-continue</span>: +<span id="L16621" class="LineNr">16621 </span> <span class="subxComment"># --to</span> +<span id="L16622" class="LineNr">16622 </span> 81 5/subop/subtract %edi 0xc/imm32 +<span id="L16623" class="LineNr">16623 </span> <span class="subxComment">#</span> +<span id="L16624" class="LineNr">16624 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16625" class="LineNr">16625 </span> } +<span id="L16626" class="LineNr">16626 </span><span class="Constant">$clean-up-blocks:phase2</span>: +<span id="L16627" class="LineNr">16627 </span> <span class="subxComment"># var from/esi: int = to</span> +<span id="L16628" class="LineNr">16628 </span> 89/<- %esi 7/r32/edi +<span id="L16629" class="LineNr">16629 </span> { +<span id="L16630" class="LineNr">16630 </span><span class="Constant">$clean-up-blocks:loop2</span>: +<span id="L16631" class="LineNr">16631 </span> <span class="subxComment"># if (from >= vars->top) break</span> +<span id="L16632" class="LineNr">16632 </span> 3b/compare 6/r32/esi *ebx +<span id="L16633" class="LineNr">16633 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L16634" class="LineNr">16634 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars->data[from]->var)</span> +<span id="L16635" class="LineNr">16635 </span> 8d/copy-address *(ebx+esi+8) 0/r32/eax +<span id="L16636" class="LineNr">16636 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L16637" class="LineNr">16637 </span> <span class="subxComment"># if !in-function-outputs?(fn, v) continue</span> +<span id="L16638" class="LineNr">16638 </span> (<a href='mu.subx.html#L16683'>in-function-outputs?</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L16639" class="LineNr">16639 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16640" class="LineNr">16640 </span> 74/jump-if-= $clean-up-blocks:loop2-continue/disp8 +<span id="L16641" class="LineNr">16641 </span> <span class="subxComment"># invariant: from >= to</span> +<span id="L16642" class="LineNr">16642 </span> <span class="subxComment"># if (from > to) vars->data[to] = vars->data[from]</span> +<span id="L16643" class="LineNr">16643 </span> { +<span id="L16644" class="LineNr">16644 </span> 39/compare %esi 7/r32/edi +<span id="L16645" class="LineNr">16645 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L16646" class="LineNr">16646 </span> 56/push-esi +<span id="L16647" class="LineNr">16647 </span> 57/push-edi +<span id="L16648" class="LineNr">16648 </span> <span class="subxS1Comment"># . var from/esi: (addr byte) = &vars->data[from]</span> +<span id="L16649" class="LineNr">16649 </span> 8d/copy-address *(ebx+esi+8) 6/r32/esi +<span id="L16650" class="LineNr">16650 </span> <span class="subxS1Comment"># . var to/edi: (addr byte) = &vars->data[to]</span> +<span id="L16651" class="LineNr">16651 </span> 8d/copy-address *(ebx+edi+8) 7/r32/edi +<span id="L16652" class="LineNr">16652 </span> <span class="subxS1Comment"># .</span> +<span id="L16653" class="LineNr">16653 </span> 8b/-> *esi 0/r32/eax +<span id="L16654" class="LineNr">16654 </span> 89/<- *edi 0/r32/eax +<span id="L16655" class="LineNr">16655 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L16656" class="LineNr">16656 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L16657" class="LineNr">16657 </span> 8b/-> *(esi+8) 0/r32/eax +<span id="L16658" class="LineNr">16658 </span> 89/<- *(edi+8) 0/r32/eax +<span id="L16659" class="LineNr">16659 </span> 5f/pop-to-edi +<span id="L16660" class="LineNr">16660 </span> 5e/pop-to-esi +<span id="L16661" class="LineNr">16661 </span> } +<span id="L16662" class="LineNr">16662 </span> <span class="subxComment"># ++to</span> +<span id="L16663" class="LineNr">16663 </span> 81 0/subop/add %edi 0xc/imm32 +<span id="L16664" class="LineNr">16664 </span><span class="Constant">$clean-up-blocks:loop2-continue</span>: +<span id="L16665" class="LineNr">16665 </span> <span class="subxComment"># ++from</span> +<span id="L16666" class="LineNr">16666 </span> 81 0/subop/add %esi 0xc/imm32 +<span id="L16667" class="LineNr">16667 </span> <span class="subxComment">#</span> +<span id="L16668" class="LineNr">16668 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16669" class="LineNr">16669 </span> } +<span id="L16670" class="LineNr">16670 </span> 89/<- *ebx 7/r32/edi +<span id="L16671" class="LineNr">16671 </span><span class="Constant">$clean-up-blocks:end</span>: +<span id="L16672" class="LineNr">16672 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16673" class="LineNr">16673 </span> 5f/pop-to-edi +<span id="L16674" class="LineNr">16674 </span> 5e/pop-to-esi +<span id="L16675" class="LineNr">16675 </span> 5b/pop-to-ebx +<span id="L16676" class="LineNr">16676 </span> 5a/pop-to-edx +<span id="L16677" class="LineNr">16677 </span> 58/pop-to-eax +<span id="L16678" class="LineNr">16678 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16679" class="LineNr">16679 </span> 89/<- %esp 5/r32/ebp +<span id="L16680" class="LineNr">16680 </span> 5d/pop-to-ebp +<span id="L16681" class="LineNr">16681 </span> c3/return +<span id="L16682" class="LineNr">16682 </span> +<span id="L16683" class="LineNr">16683 </span><span class="subxFunction">in-function-outputs?</span>: <span class="subxComment"># fn: (addr function), target: (addr var) -> result/eax: boolean</span> +<span id="L16684" class="LineNr">16684 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16685" class="LineNr">16685 </span> 55/push-ebp +<span id="L16686" class="LineNr">16686 </span> 89/<- %ebp 4/r32/esp +<span id="L16687" class="LineNr">16687 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16688" class="LineNr">16688 </span> 51/push-ecx +<span id="L16689" class="LineNr">16689 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L16690" class="LineNr">16690 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L16691" class="LineNr">16691 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L16692" class="LineNr">16692 </span> 89/<- %ecx 0/r32/eax +<span id="L16693" class="LineNr">16693 </span> <span class="subxComment"># while curr != null</span> <span id="L16694" class="LineNr">16694 </span> { -<span id="L16695" class="LineNr">16695 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> -<span id="L16696" class="LineNr">16696 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L16697" class="LineNr">16697 </span> 3d/compare-eax-and 0/imm32 -<span id="L16698" class="LineNr">16698 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16699" class="LineNr">16699 </span> (<a href='mu.subx.html#L17116'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16700" class="LineNr">16700 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16701" class="LineNr">16701 </span> } -<span id="L16702" class="LineNr">16702 </span> <span class="subxComment"># compute-offset for index into array</span> -<span id="L16703" class="LineNr">16703 </span> { -<span id="L16704" class="LineNr">16704 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> -<span id="L16705" class="LineNr">16705 </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="L16706" class="LineNr">16706 </span> 3d/compare-eax-and 0/imm32 -<span id="L16707" class="LineNr">16707 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16708" class="LineNr">16708 </span> (<a href='mu.subx.html#L17399'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16709" class="LineNr">16709 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16710" class="LineNr">16710 </span> } -<span id="L16711" class="LineNr">16711 </span> <span class="subxComment"># get field from record</span> -<span id="L16712" class="LineNr">16712 </span> { -<span id="L16713" class="LineNr">16713 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> -<span id="L16714" class="LineNr">16714 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L16715" class="LineNr">16715 </span> 3d/compare-eax-and 0/imm32 -<span id="L16716" class="LineNr">16716 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16717" class="LineNr">16717 </span> (<a href='mu.subx.html#L17447'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) -<span id="L16718" class="LineNr">16718 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16719" class="LineNr">16719 </span> } -<span id="L16720" class="LineNr">16720 </span> <span class="subxComment"># allocate scalar</span> -<span id="L16721" class="LineNr">16721 </span> { -<span id="L16722" class="LineNr">16722 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> -<span id="L16723" class="LineNr">16723 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L16724" class="LineNr">16724 </span> 3d/compare-eax-and 0/imm32 -<span id="L16725" class="LineNr">16725 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16726" class="LineNr">16726 </span> (<a href='mu.subx.html#L17537'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16727" class="LineNr">16727 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16728" class="LineNr">16728 </span> } -<span id="L16729" class="LineNr">16729 </span> <span class="subxComment"># copy-object</span> -<span id="L16730" class="LineNr">16730 </span> { -<span id="L16731" class="LineNr">16731 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> -<span id="L16732" class="LineNr">16732 </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="L16733" class="LineNr">16733 </span> 3d/compare-eax-and 0/imm32 -<span id="L16734" class="LineNr">16734 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16735" class="LineNr">16735 </span> (<a href='mu.subx.html#L17509'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16736" class="LineNr">16736 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16737" class="LineNr">16737 </span> } -<span id="L16738" class="LineNr">16738 </span> <span class="subxComment"># allocate array</span> -<span id="L16739" class="LineNr">16739 </span> { -<span id="L16740" class="LineNr">16740 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> -<span id="L16741" class="LineNr">16741 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L16742" class="LineNr">16742 </span> 3d/compare-eax-and 0/imm32 -<span id="L16743" class="LineNr">16743 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16744" class="LineNr">16744 </span> (<a href='mu.subx.html#L17633'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16745" class="LineNr">16745 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16746" class="LineNr">16746 </span> } -<span id="L16747" class="LineNr">16747 </span> <span class="subxComment"># allocate stream</span> -<span id="L16748" class="LineNr">16748 </span> { -<span id="L16749" class="LineNr">16749 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> -<span id="L16750" class="LineNr">16750 </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="L16751" class="LineNr">16751 </span> 3d/compare-eax-and 0/imm32 -<span id="L16752" class="LineNr">16752 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16753" class="LineNr">16753 </span> (<a href='mu.subx.html#L17669'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16754" class="LineNr">16754 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16755" class="LineNr">16755 </span> } -<span id="L16756" class="LineNr">16756 </span> <span class="subxComment"># read from stream</span> -<span id="L16757" class="LineNr">16757 </span> { -<span id="L16758" class="LineNr">16758 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> -<span id="L16759" class="LineNr">16759 </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="L16760" class="LineNr">16760 </span> 3d/compare-eax-and 0/imm32 -<span id="L16761" class="LineNr">16761 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16762" class="LineNr">16762 </span> (<a href='mu.subx.html#L17705'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16763" class="LineNr">16763 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16764" class="LineNr">16764 </span> } -<span id="L16765" class="LineNr">16765 </span> <span class="subxComment"># write to stream</span> -<span id="L16766" class="LineNr">16766 </span> { -<span id="L16767" class="LineNr">16767 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> -<span id="L16768" class="LineNr">16768 </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="L16769" class="LineNr">16769 </span> 3d/compare-eax-and 0/imm32 -<span id="L16770" class="LineNr">16770 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16771" class="LineNr">16771 </span> (<a href='mu.subx.html#L17742'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L16772" class="LineNr">16772 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16773" class="LineNr">16773 </span> } -<span id="L16774" class="LineNr">16774 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> -<span id="L16775" class="LineNr">16775 </span> { -<span id="L16776" class="LineNr">16776 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: -<span id="L16777" class="LineNr">16777 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> -<span id="L16778" class="LineNr">16778 </span> (<a href='mu.subx.html#L23098'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> -<span id="L16779" class="LineNr">16779 </span> 3d/compare-eax-and 0/imm32 -<span id="L16780" class="LineNr">16780 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16781" class="LineNr">16781 </span><span class="Constant">$emit-subx-stmt:primitive</span>: -<span id="L16782" class="LineNr">16782 </span> (<a href='mu.subx.html#L22497'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> -<span id="L16783" class="LineNr">16783 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L16784" class="LineNr">16784 </span> } -<span id="L16785" class="LineNr">16785 </span> <span class="subxH1Comment"># - otherwise emit a call</span> -<span id="L16786" class="LineNr">16786 </span> <span class="subxComment"># TODO: type-checking</span> -<span id="L16787" class="LineNr">16787 </span><span class="Constant">$emit-subx-stmt:call</span>: -<span id="L16788" class="LineNr">16788 </span> (<a href='mu.subx.html#L22786'>emit-call</a> *(ebp+8) *(ebp+0xc)) -<span id="L16789" class="LineNr">16789 </span><span class="Constant">$emit-subx-stmt:end</span>: -<span id="L16790" class="LineNr">16790 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16791" class="LineNr">16791 </span> 59/pop-to-ecx -<span id="L16792" class="LineNr">16792 </span> 58/pop-to-eax -<span id="L16793" class="LineNr">16793 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16794" class="LineNr">16794 </span> 89/<- %esp 5/r32/ebp -<span id="L16795" class="LineNr">16795 </span> 5d/pop-to-ebp -<span id="L16796" class="LineNr">16796 </span> c3/return -<span id="L16797" class="LineNr">16797 </span> -<span id="L16798" class="LineNr">16798 </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="L16799" class="LineNr">16799 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16800" class="LineNr">16800 </span> 55/push-ebp -<span id="L16801" class="LineNr">16801 </span> 89/<- %ebp 4/r32/esp -<span id="L16802" class="LineNr">16802 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16803" class="LineNr">16803 </span> 50/push-eax -<span id="L16804" class="LineNr">16804 </span> 51/push-ecx -<span id="L16805" class="LineNr">16805 </span> 52/push-edx -<span id="L16806" class="LineNr">16806 </span> 53/push-ebx -<span id="L16807" class="LineNr">16807 </span> 56/push-esi -<span id="L16808" class="LineNr">16808 </span> <span class="subxComment"># esi = stmt</span> -<span id="L16809" class="LineNr">16809 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L16810" class="LineNr">16810 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> -<span id="L16811" class="LineNr">16811 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L16812" class="LineNr">16812 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L16813" class="LineNr">16813 </span> 89/<- %ebx 0/r32/eax -<span id="L16814" class="LineNr">16814 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> -<span id="L16815" class="LineNr">16815 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L16816" class="LineNr">16816 </span> 89/<- %ecx 0/r32/eax -<span id="L16817" class="LineNr">16817 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> -<span id="L16818" class="LineNr">16818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L16819" class="LineNr">16819 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L16820" class="LineNr">16820 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16821" class="LineNr">16821 </span> 89/<- %edx 0/r32/eax -<span id="L16822" class="LineNr">16822 </span> <span class="subxComment"># if elemsize == 1</span> -<span id="L16823" class="LineNr">16823 </span> { -<span id="L16824" class="LineNr">16824 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L16825" class="LineNr">16825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16826" class="LineNr">16826 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: -<span id="L16827" class="LineNr">16827 </span> (<a href='mu.subx.html#L17051'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L16828" class="LineNr">16828 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L16829" class="LineNr">16829 </span> } -<span id="L16830" class="LineNr">16830 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> -<span id="L16831" class="LineNr">16831 </span> { -<span id="L16832" class="LineNr">16832 </span> (<a href='mu.subx.html#L17868'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L16833" class="LineNr">16833 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16834" class="LineNr">16834 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16835" class="LineNr">16835 </span> 81 7/subop/compare %ecx 0xff/imm32 -<span id="L16836" class="LineNr">16836 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L16837" class="LineNr">16837 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: -<span id="L16838" class="LineNr">16838 </span> (<a href='mu.subx.html#L17051'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L16839" class="LineNr">16839 </span> (<a href='mu.subx.html#L17094'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) -<span id="L16840" class="LineNr">16840 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L16695" class="LineNr">16695 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16696" class="LineNr">16696 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16697" class="LineNr">16697 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L16698" class="LineNr">16698 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16699" class="LineNr">16699 </span> <span class="subxComment"># if (v == target) return true</span> +<span id="L16700" class="LineNr">16700 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L16701" class="LineNr">16701 </span> b8/copy-to-eax 1/imm32/true +<span id="L16702" class="LineNr">16702 </span> 74/jump-if-= $in-function-outputs?:end/disp8 +<span id="L16703" class="LineNr">16703 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16704" class="LineNr">16704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16705" class="LineNr">16705 </span> 89/<- %ecx 0/r32/eax +<span id="L16706" class="LineNr">16706 </span> <span class="subxComment">#</span> +<span id="L16707" class="LineNr">16707 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16708" class="LineNr">16708 </span> } +<span id="L16709" class="LineNr">16709 </span> b8/copy-to-eax 0/imm32 +<span id="L16710" class="LineNr">16710 </span><span class="Constant">$in-function-outputs?:end</span>: +<span id="L16711" class="LineNr">16711 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16712" class="LineNr">16712 </span> 59/pop-to-ecx +<span id="L16713" class="LineNr">16713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16714" class="LineNr">16714 </span> 89/<- %esp 5/r32/ebp +<span id="L16715" class="LineNr">16715 </span> 5d/pop-to-ebp +<span id="L16716" class="LineNr">16716 </span> c3/return +<span id="L16717" class="LineNr">16717 </span> +<span id="L16718" class="LineNr">16718 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L16719" class="LineNr">16719 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16720" class="LineNr">16720 </span> 55/push-ebp +<span id="L16721" class="LineNr">16721 </span> 89/<- %ebp 4/r32/esp +<span id="L16722" class="LineNr">16722 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16723" class="LineNr">16723 </span> 50/push-eax +<span id="L16724" class="LineNr">16724 </span> 51/push-ecx +<span id="L16725" class="LineNr">16725 </span> 52/push-edx +<span id="L16726" class="LineNr">16726 </span> <span class="subxComment"># eax = stmt</span> +<span id="L16727" class="LineNr">16727 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L16728" class="LineNr">16728 </span> <span class="subxComment"># var v/ecx: (addr var)</span> +<span id="L16729" class="LineNr">16729 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L16730" class="LineNr">16730 </span> 89/<- %ecx 0/r32/eax +<span id="L16731" class="LineNr">16731 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L16732" class="LineNr">16732 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/r32/eax +<span id="L16733" class="LineNr">16733 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L16734" class="LineNr">16734 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> +<span id="L16735" class="LineNr">16735 </span> (<a href='mu.subx.html#L14934'>size-of</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16736" class="LineNr">16736 </span> 89/<- %edx 0/r32/eax +<span id="L16737" class="LineNr">16737 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> +<span id="L16738" class="LineNr">16738 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 2/r32/edx +<span id="L16739" class="LineNr">16739 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> +<span id="L16740" class="LineNr">16740 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15337'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L16741" class="LineNr">16741 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L16742" class="LineNr">16742 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L16743" class="LineNr">16743 </span> { +<span id="L16744" class="LineNr">16744 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16745" class="LineNr">16745 </span> (<a href='mu.subx.html#L15031'>is-mu-array?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16746" class="LineNr">16746 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16747" class="LineNr">16747 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16748" class="LineNr">16748 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> +<span id="L16749" class="LineNr">16749 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L16750" class="LineNr">16750 </span> <span class="subxComment">#</span> +<span id="L16751" class="LineNr">16751 </span> (<a href='mu.subx.html#L16793'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L16752" class="LineNr">16752 </span> e9/jump $emit-subx-var-def:end/disp32 +<span id="L16753" class="LineNr">16753 </span> } +<span id="L16754" class="LineNr">16754 </span> <span class="subxComment"># another special-case for initializing streams</span> +<span id="L16755" class="LineNr">16755 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> +<span id="L16756" class="LineNr">16756 </span> { +<span id="L16757" class="LineNr">16757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16758" class="LineNr">16758 </span> (<a href='mu.subx.html#L15096'>is-mu-stream?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16759" class="LineNr">16759 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16760" class="LineNr">16760 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16761" class="LineNr">16761 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> +<span id="L16762" class="LineNr">16762 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L16763" class="LineNr">16763 </span> (<a href='mu.subx.html#L16793'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L16764" class="LineNr">16764 </span> <span class="subxComment"># emit read and write pointers</span> +<span id="L16765" class="LineNr">16765 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16766" class="LineNr">16766 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L16767" class="LineNr">16767 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16768" class="LineNr">16768 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L16769" class="LineNr">16769 </span> <span class="subxComment">#</span> +<span id="L16770" class="LineNr">16770 </span> eb/jump $emit-subx-var-def:end/disp8 +<span id="L16771" class="LineNr">16771 </span> } +<span id="L16772" class="LineNr">16772 </span> <span class="subxComment"># while n > 0</span> +<span id="L16773" class="LineNr">16773 </span> { +<span id="L16774" class="LineNr">16774 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L16775" class="LineNr">16775 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L16776" class="LineNr">16776 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16777" class="LineNr">16777 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L16778" class="LineNr">16778 </span> <span class="subxComment"># n -= 4</span> +<span id="L16779" class="LineNr">16779 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L16780" class="LineNr">16780 </span> <span class="subxComment">#</span> +<span id="L16781" class="LineNr">16781 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16782" class="LineNr">16782 </span> } +<span id="L16783" class="LineNr">16783 </span><span class="Constant">$emit-subx-var-def:end</span>: +<span id="L16784" class="LineNr">16784 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16785" class="LineNr">16785 </span> 5a/pop-to-edx +<span id="L16786" class="LineNr">16786 </span> 59/pop-to-ecx +<span id="L16787" class="LineNr">16787 </span> 58/pop-to-eax +<span id="L16788" class="LineNr">16788 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16789" class="LineNr">16789 </span> 89/<- %esp 5/r32/ebp +<span id="L16790" class="LineNr">16790 </span> 5d/pop-to-ebp +<span id="L16791" class="LineNr">16791 </span> c3/return +<span id="L16792" class="LineNr">16792 </span> +<span id="L16793" class="LineNr">16793 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L16794" class="LineNr">16794 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16795" class="LineNr">16795 </span> 55/push-ebp +<span id="L16796" class="LineNr">16796 </span> 89/<- %ebp 4/r32/esp +<span id="L16797" class="LineNr">16797 </span> <span class="subxComment">#</span> +<span id="L16798" class="LineNr">16798 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16799" class="LineNr">16799 </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="L16800" class="LineNr">16800 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L16801" class="LineNr">16801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L16802" class="LineNr">16802 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16803" class="LineNr">16803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L16804" class="LineNr">16804 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L16805" class="LineNr">16805 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L16806" class="LineNr">16806 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L16807" class="LineNr">16807 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16808" class="LineNr">16808 </span> 89/<- %esp 5/r32/ebp +<span id="L16809" class="LineNr">16809 </span> 5d/pop-to-ebp +<span id="L16810" class="LineNr">16810 </span> c3/return +<span id="L16811" class="LineNr">16811 </span> +<span id="L16812" class="LineNr">16812 </span><span class="subxFunction">emit-subx-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitives: (addr primitive), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L16813" class="LineNr">16813 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16814" class="LineNr">16814 </span> 55/push-ebp +<span id="L16815" class="LineNr">16815 </span> 89/<- %ebp 4/r32/esp +<span id="L16816" class="LineNr">16816 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16817" class="LineNr">16817 </span> 50/push-eax +<span id="L16818" class="LineNr">16818 </span> 51/push-ecx +<span id="L16819" class="LineNr">16819 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> +<span id="L16820" class="LineNr">16820 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L16821" class="LineNr">16821 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16822" class="LineNr">16822 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L16823" class="LineNr">16823 </span> 89/<- %ecx 0/r32/eax +<span id="L16824" class="LineNr">16824 </span> <span class="subxComment"># array size</span> +<span id="L16825" class="LineNr">16825 </span> { +<span id="L16826" class="LineNr">16826 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> +<span id="L16827" class="LineNr">16827 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L16828" class="LineNr">16828 </span> 3d/compare-eax-and 0/imm32 +<span id="L16829" class="LineNr">16829 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16830" class="LineNr">16830 </span> (<a href='mu.subx.html#L16938'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16831" class="LineNr">16831 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16832" class="LineNr">16832 </span> } +<span id="L16833" class="LineNr">16833 </span> <span class="subxComment"># index into array</span> +<span id="L16834" class="LineNr">16834 </span> { +<span id="L16835" class="LineNr">16835 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> +<span id="L16836" class="LineNr">16836 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L16837" class="LineNr">16837 </span> 3d/compare-eax-and 0/imm32 +<span id="L16838" class="LineNr">16838 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16839" class="LineNr">16839 </span> (<a href='mu.subx.html#L17256'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16840" class="LineNr">16840 </span> e9/jump $emit-subx-stmt:end/disp32 <span id="L16841" class="LineNr">16841 </span> } -<span id="L16842" class="LineNr">16842 </span> <span class="subxComment"># otherwise, the complex case</span> -<span id="L16843" class="LineNr">16843 </span> <span class="subxS1Comment"># . emit register spills</span> -<span id="L16844" class="LineNr">16844 </span> { -<span id="L16845" class="LineNr">16845 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: -<span id="L16846" class="LineNr">16846 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L16847" class="LineNr">16847 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16848" class="LineNr">16848 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16849" class="LineNr">16849 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16850" class="LineNr">16850 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) -<span id="L16851" class="LineNr">16851 </span> } +<span id="L16842" class="LineNr">16842 </span> <span class="subxComment"># compute-offset for index into array</span> +<span id="L16843" class="LineNr">16843 </span> { +<span id="L16844" class="LineNr">16844 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> +<span id="L16845" class="LineNr">16845 </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="L16846" class="LineNr">16846 </span> 3d/compare-eax-and 0/imm32 +<span id="L16847" class="LineNr">16847 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16848" class="LineNr">16848 </span> (<a href='mu.subx.html#L17539'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16849" class="LineNr">16849 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16850" class="LineNr">16850 </span> } +<span id="L16851" class="LineNr">16851 </span> <span class="subxComment"># get field from record</span> <span id="L16852" class="LineNr">16852 </span> { -<span id="L16853" class="LineNr">16853 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L16854" class="LineNr">16854 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16855" class="LineNr">16855 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16856" class="LineNr">16856 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16857" class="LineNr">16857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) -<span id="L16858" class="LineNr">16858 </span> } -<span id="L16859" class="LineNr">16859 </span> { -<span id="L16860" class="LineNr">16860 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L16861" class="LineNr">16861 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16862" class="LineNr">16862 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16863" class="LineNr">16863 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16864" class="LineNr">16864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) -<span id="L16865" class="LineNr">16865 </span> } -<span id="L16866" class="LineNr">16866 </span> <span class="subxS1Comment"># .</span> -<span id="L16867" class="LineNr">16867 </span> (<a href='mu.subx.html#L17051'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) -<span id="L16868" class="LineNr">16868 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16869" class="LineNr">16869 </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="L16870" class="LineNr">16870 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16871" class="LineNr">16871 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) -<span id="L16872" class="LineNr">16872 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L16873" class="LineNr">16873 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L16874" class="LineNr">16874 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16875" class="LineNr">16875 </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="L16876" class="LineNr">16876 </span> { -<span id="L16877" class="LineNr">16877 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L16878" class="LineNr">16878 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16879" class="LineNr">16879 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16880" class="LineNr">16880 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16881" class="LineNr">16881 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) -<span id="L16882" class="LineNr">16882 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) -<span id="L16883" class="LineNr">16883 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) -<span id="L16884" class="LineNr">16884 </span> } -<span id="L16885" class="LineNr">16885 </span> <span class="subxS1Comment"># . emit register restores</span> -<span id="L16886" class="LineNr">16886 </span> { -<span id="L16887" class="LineNr">16887 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L16888" class="LineNr">16888 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16889" class="LineNr">16889 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16890" class="LineNr">16890 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16891" class="LineNr">16891 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) -<span id="L16892" class="LineNr">16892 </span> } -<span id="L16893" class="LineNr">16893 </span> { -<span id="L16894" class="LineNr">16894 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L16895" class="LineNr">16895 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16896" class="LineNr">16896 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16897" class="LineNr">16897 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16898" class="LineNr">16898 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) -<span id="L16899" class="LineNr">16899 </span> } -<span id="L16900" class="LineNr">16900 </span> { -<span id="L16901" class="LineNr">16901 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L16902" class="LineNr">16902 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16903" class="LineNr">16903 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L16904" class="LineNr">16904 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L16905" class="LineNr">16905 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) -<span id="L16906" class="LineNr">16906 </span> } -<span id="L16907" class="LineNr">16907 </span><span class="Constant">$translate-mu-length-stmt:end</span>: -<span id="L16908" class="LineNr">16908 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16909" class="LineNr">16909 </span> 5e/pop-to-esi -<span id="L16910" class="LineNr">16910 </span> 5b/pop-to-ebx -<span id="L16911" class="LineNr">16911 </span> 5a/pop-to-edx -<span id="L16912" class="LineNr">16912 </span> 59/pop-to-ecx -<span id="L16913" class="LineNr">16913 </span> 58/pop-to-eax -<span id="L16914" class="LineNr">16914 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16915" class="LineNr">16915 </span> 89/<- %esp 5/r32/ebp -<span id="L16916" class="LineNr">16916 </span> 5d/pop-to-ebp -<span id="L16917" class="LineNr">16917 </span> c3/return -<span id="L16918" class="LineNr">16918 </span> -<span id="L16919" class="LineNr">16919 </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="L16920" class="LineNr">16920 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16921" class="LineNr">16921 </span> 55/push-ebp -<span id="L16922" class="LineNr">16922 </span> 89/<- %ebp 4/r32/esp -<span id="L16923" class="LineNr">16923 </span> <span class="subxComment">#</span> -<span id="L16924" class="LineNr">16924 </span> (<a href='mu.subx.html#L16932'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L16925" class="LineNr">16925 </span> (<a href='mu.subx.html#L17030'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16926" class="LineNr">16926 </span><span class="Constant">$array-element-size:end</span>: -<span id="L16927" class="LineNr">16927 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16928" class="LineNr">16928 </span> 89/<- %esp 5/r32/ebp -<span id="L16929" class="LineNr">16929 </span> 5d/pop-to-ebp -<span id="L16930" class="LineNr">16930 </span> c3/return -<span id="L16931" class="LineNr">16931 </span> -<span id="L16932" class="LineNr">16932 </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="L16933" class="LineNr">16933 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L16934" class="LineNr">16934 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16935" class="LineNr">16935 </span> 55/push-ebp -<span id="L16936" class="LineNr">16936 </span> 89/<- %ebp 4/r32/esp -<span id="L16937" class="LineNr">16937 </span> <span class="subxComment">#</span> -<span id="L16938" class="LineNr">16938 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16939" class="LineNr">16939 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> -<span id="L16940" class="LineNr">16940 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16941" class="LineNr">16941 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L16942" class="LineNr">16942 </span> 3d/compare-eax-with 0/imm32 -<span id="L16943" class="LineNr">16943 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 -<span id="L16944" class="LineNr">16944 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L16945" class="LineNr">16945 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16946" class="LineNr">16946 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 -<span id="L16947" class="LineNr">16947 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> -<span id="L16948" class="LineNr">16948 </span> { -<span id="L16949" class="LineNr">16949 </span> 50/push-eax -<span id="L16950" class="LineNr">16950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L16951" class="LineNr">16951 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L16952" class="LineNr">16952 </span> 3d/compare-eax-with 0/imm32/false -<span id="L16953" class="LineNr">16953 </span> 58/pop-to-eax -<span id="L16954" class="LineNr">16954 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16955" class="LineNr">16955 </span><span class="Constant">$array-element-type-id:skip-addr</span>: -<span id="L16956" class="LineNr">16956 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16957" class="LineNr">16957 </span> } -<span id="L16958" class="LineNr">16958 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L16959" class="LineNr">16959 </span> 3d/compare-eax-with 0/imm32 -<span id="L16960" class="LineNr">16960 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L16961" class="LineNr">16961 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L16962" class="LineNr">16962 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16963" class="LineNr">16963 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L16964" class="LineNr">16964 </span> <span class="subxComment"># if t->left != array abort</span> -<span id="L16965" class="LineNr">16965 </span> { -<span id="L16966" class="LineNr">16966 </span> 50/push-eax -<span id="L16967" class="LineNr">16967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L16968" class="LineNr">16968 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L16969" class="LineNr">16969 </span> 3d/compare-eax-with 0/imm32/false -<span id="L16970" class="LineNr">16970 </span> 58/pop-to-eax -<span id="L16971" class="LineNr">16971 </span><span class="Constant">$array-element-type-id:no-array</span>: -<span id="L16972" class="LineNr">16972 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L16973" class="LineNr">16973 </span> } -<span id="L16974" class="LineNr">16974 </span><span class="Constant">$array-element-type-id:skip-array</span>: -<span id="L16975" class="LineNr">16975 </span> <span class="subxComment"># t = t->right</span> -<span id="L16976" class="LineNr">16976 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16977" class="LineNr">16977 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L16978" class="LineNr">16978 </span> 3d/compare-eax-with 0/imm32 -<span id="L16979" class="LineNr">16979 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L16980" class="LineNr">16980 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L16981" class="LineNr">16981 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16982" class="LineNr">16982 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L16983" class="LineNr">16983 </span> <span class="subxComment"># return t->left->value</span> -<span id="L16984" class="LineNr">16984 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L16985" class="LineNr">16985 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L16986" class="LineNr">16986 </span><span class="Constant">$array-element-type-id:end</span>: -<span id="L16987" class="LineNr">16987 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16988" class="LineNr">16988 </span> 89/<- %esp 5/r32/ebp -<span id="L16989" class="LineNr">16989 </span> 5d/pop-to-ebp -<span id="L16990" class="LineNr">16990 </span> c3/return -<span id="L16991" class="LineNr">16991 </span> -<span id="L16992" class="LineNr">16992 </span><span class="Constant">$array-element-type-id:error0</span>: -<span id="L16993" class="LineNr">16993 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L16994" class="LineNr">16994 </span> 50/push-eax -<span id="L16995" class="LineNr">16995 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16996" class="LineNr">16996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16997" class="LineNr">16997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L16998" class="LineNr">16998 </span> 58/pop-to-eax -<span id="L16999" class="LineNr">16999 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L17000" class="LineNr">17000 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L17001" class="LineNr">17001 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L17002" class="LineNr">17002 </span> <span class="subxComment"># never gets here</span> -<span id="L17003" class="LineNr">17003 </span> -<span id="L17004" class="LineNr">17004 </span><span class="Constant">$array-element-type-id:error1</span>: -<span id="L17005" class="LineNr">17005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L17006" class="LineNr">17006 </span> 50/push-eax -<span id="L17007" class="LineNr">17007 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17008" class="LineNr">17008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17009" class="LineNr">17009 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L17010" class="LineNr">17010 </span> 58/pop-to-eax -<span id="L17011" class="LineNr">17011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L17012" class="LineNr">17012 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0xc) *(eax+4)) <span class="subxComment"># Type-tree-value</span> -<span id="L17013" class="LineNr">17013 </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="L17014" class="LineNr">17014 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L17015" class="LineNr">17015 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L17016" class="LineNr">17016 </span> <span class="subxComment"># never gets here</span> -<span id="L17017" class="LineNr">17017 </span> -<span id="L17018" class="LineNr">17018 </span><span class="Constant">$array-element-type-id:error2</span>: -<span id="L17019" class="LineNr">17019 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L17020" class="LineNr">17020 </span> 50/push-eax -<span id="L17021" class="LineNr">17021 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17022" class="LineNr">17022 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17023" class="LineNr">17023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L17024" class="LineNr">17024 </span> 58/pop-to-eax -<span id="L17025" class="LineNr">17025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) -<span id="L17026" class="LineNr">17026 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L17027" class="LineNr">17027 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L17028" class="LineNr">17028 </span> <span class="subxComment"># never gets here</span> -<span id="L17029" class="LineNr">17029 </span> -<span id="L17030" class="LineNr">17030 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L17031" class="LineNr">17031 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17032" class="LineNr">17032 </span> 55/push-ebp -<span id="L17033" class="LineNr">17033 </span> 89/<- %ebp 4/r32/esp -<span id="L17034" class="LineNr">17034 </span> <span class="subxComment"># eax = t</span> -<span id="L17035" class="LineNr">17035 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17036" class="LineNr">17036 </span> <span class="subxComment"># if t is 'byte', size is 1</span> -<span id="L17037" class="LineNr">17037 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L17038" class="LineNr">17038 </span> { -<span id="L17039" class="LineNr">17039 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17040" class="LineNr">17040 </span> b8/copy-to-eax 1/imm32 -<span id="L17041" class="LineNr">17041 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 -<span id="L17042" class="LineNr">17042 </span> } -<span id="L17043" class="LineNr">17043 </span> <span class="subxComment"># otherwise proceed as usual</span> -<span id="L17044" class="LineNr">17044 </span> (<a href='mu.subx.html#L15000'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17045" class="LineNr">17045 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: -<span id="L17046" class="LineNr">17046 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17047" class="LineNr">17047 </span> 89/<- %esp 5/r32/ebp -<span id="L17048" class="LineNr">17048 </span> 5d/pop-to-ebp -<span id="L17049" class="LineNr">17049 </span> c3/return -<span id="L17050" class="LineNr">17050 </span> -<span id="L17051" class="LineNr">17051 </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="L17052" class="LineNr">17052 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17053" class="LineNr">17053 </span> 55/push-ebp -<span id="L17054" class="LineNr">17054 </span> 89/<- %ebp 4/r32/esp -<span id="L17055" class="LineNr">17055 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17056" class="LineNr">17056 </span> 50/push-eax -<span id="L17057" class="LineNr">17057 </span> 53/push-ebx -<span id="L17058" class="LineNr">17058 </span> <span class="subxComment"># ebx = base</span> -<span id="L17059" class="LineNr">17059 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L17060" class="LineNr">17060 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17061" class="LineNr">17061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) -<span id="L17062" class="LineNr">17062 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> -<span id="L17063" class="LineNr">17063 </span> { -<span id="L17064" class="LineNr">17064 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17065" class="LineNr">17065 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17066" class="LineNr">17066 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: -<span id="L17067" class="LineNr">17067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17068" class="LineNr">17068 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17069" class="LineNr">17069 </span> eb/jump $emit-save-size-to:emit-output/disp8 -<span id="L17070" class="LineNr">17070 </span> } -<span id="L17071" class="LineNr">17071 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> -<span id="L17072" class="LineNr">17072 </span> { -<span id="L17073" class="LineNr">17073 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L17074" class="LineNr">17074 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17075" class="LineNr">17075 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: -<span id="L17076" class="LineNr">17076 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) -<span id="L17077" class="LineNr">17077 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *(ebx+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L17078" class="LineNr">17078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L17079" class="LineNr">17079 </span> } -<span id="L17080" class="LineNr">17080 </span><span class="Constant">$emit-save-size-to:emit-output</span>: -<span id="L17081" class="LineNr">17081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L17082" class="LineNr">17082 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L17083" class="LineNr">17083 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L17084" class="LineNr">17084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L17085" class="LineNr">17085 </span><span class="Constant">$emit-save-size-to:end</span>: -<span id="L17086" class="LineNr">17086 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17087" class="LineNr">17087 </span> 5b/pop-to-ebx -<span id="L17088" class="LineNr">17088 </span> 58/pop-to-eax -<span id="L17089" class="LineNr">17089 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17090" class="LineNr">17090 </span> 89/<- %esp 5/r32/ebp -<span id="L17091" class="LineNr">17091 </span> 5d/pop-to-ebp -<span id="L17092" class="LineNr">17092 </span> c3/return -<span id="L17093" class="LineNr">17093 </span> -<span id="L17094" class="LineNr">17094 </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="L17095" class="LineNr">17095 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17096" class="LineNr">17096 </span> 55/push-ebp -<span id="L17097" class="LineNr">17097 </span> 89/<- %ebp 4/r32/esp -<span id="L17098" class="LineNr">17098 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17099" class="LineNr">17099 </span> 50/push-eax -<span id="L17100" class="LineNr">17100 </span> <span class="subxComment">#</span> -<span id="L17101" class="LineNr">17101 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17102" class="LineNr">17102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) -<span id="L17103" class="LineNr">17103 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L17104" class="LineNr">17104 </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="L17105" class="LineNr">17105 </span> (<a href='mu.subx.html#L17898'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L17106" class="LineNr">17106 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17107" class="LineNr">17107 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) -<span id="L17108" class="LineNr">17108 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: -<span id="L17109" class="LineNr">17109 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17110" class="LineNr">17110 </span> 58/pop-to-eax -<span id="L17111" class="LineNr">17111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17112" class="LineNr">17112 </span> 89/<- %esp 5/r32/ebp -<span id="L17113" class="LineNr">17113 </span> 5d/pop-to-ebp -<span id="L17114" class="LineNr">17114 </span> c3/return -<span id="L17115" class="LineNr">17115 </span> -<span id="L17116" class="LineNr">17116 </span><span class="subxFunction">translate-mu-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L17117" class="LineNr">17117 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17118" class="LineNr">17118 </span> 55/push-ebp -<span id="L17119" class="LineNr">17119 </span> 89/<- %ebp 4/r32/esp -<span id="L17120" class="LineNr">17120 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17121" class="LineNr">17121 </span> 51/push-ecx -<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L17123" class="LineNr">17123 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L17124" class="LineNr">17124 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts[0]</span> -<span id="L17125" class="LineNr">17125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17126" class="LineNr">17126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17127" class="LineNr">17127 </span> 89/<- %ecx 0/r32/eax -<span id="L17128" class="LineNr">17128 </span> <span class="subxComment"># if (var->register) do one thing</span> -<span id="L17129" class="LineNr">17129 </span> { -<span id="L17130" class="LineNr">17130 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17131" class="LineNr">17131 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17132" class="LineNr">17132 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L17133" class="LineNr">17133 </span> (<a href='mu.subx.html#L17164'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L17134" class="LineNr">17134 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L17135" class="LineNr">17135 </span> } -<span id="L17136" class="LineNr">17136 </span> <span class="subxComment"># if (var->offset) do a different thing</span> -<span id="L17137" class="LineNr">17137 </span> { -<span id="L17138" class="LineNr">17138 </span> 81 7/subop/compare *(ecx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L17139" class="LineNr">17139 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17140" class="LineNr">17140 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L17141" class="LineNr">17141 </span> (<a href='mu.subx.html#L17280'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L17142" class="LineNr">17142 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L17143" class="LineNr">17143 </span> } -<span id="L17144" class="LineNr">17144 </span><span class="Constant">$translate-mu-index-stmt:end</span>: -<span id="L17145" class="LineNr">17145 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17146" class="LineNr">17146 </span> 59/pop-to-ecx -<span id="L17147" class="LineNr">17147 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17148" class="LineNr">17148 </span> 89/<- %esp 5/r32/ebp -<span id="L17149" class="LineNr">17149 </span> 5d/pop-to-ebp -<span id="L17150" class="LineNr">17150 </span> c3/return -<span id="L17151" class="LineNr">17151 </span> -<span id="L17152" class="LineNr">17152 </span><span class="Constant">$translate-mu-index-stmt-with-array:error1</span>: -<span id="L17153" class="LineNr">17153 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <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="L17154" class="LineNr">17154 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L17155" class="LineNr">17155 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16853" class="LineNr">16853 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> +<span id="L16854" class="LineNr">16854 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L16855" class="LineNr">16855 </span> 3d/compare-eax-and 0/imm32 +<span id="L16856" class="LineNr">16856 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16857" class="LineNr">16857 </span> (<a href='mu.subx.html#L17587'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) +<span id="L16858" class="LineNr">16858 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16859" class="LineNr">16859 </span> } +<span id="L16860" class="LineNr">16860 </span> <span class="subxComment"># allocate scalar</span> +<span id="L16861" class="LineNr">16861 </span> { +<span id="L16862" class="LineNr">16862 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> +<span id="L16863" class="LineNr">16863 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L16864" class="LineNr">16864 </span> 3d/compare-eax-and 0/imm32 +<span id="L16865" class="LineNr">16865 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16866" class="LineNr">16866 </span> (<a href='mu.subx.html#L17677'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16867" class="LineNr">16867 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16868" class="LineNr">16868 </span> } +<span id="L16869" class="LineNr">16869 </span> <span class="subxComment"># copy-object</span> +<span id="L16870" class="LineNr">16870 </span> { +<span id="L16871" class="LineNr">16871 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> +<span id="L16872" class="LineNr">16872 </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="L16873" class="LineNr">16873 </span> 3d/compare-eax-and 0/imm32 +<span id="L16874" class="LineNr">16874 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16875" class="LineNr">16875 </span> (<a href='mu.subx.html#L17649'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16876" class="LineNr">16876 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16877" class="LineNr">16877 </span> } +<span id="L16878" class="LineNr">16878 </span> <span class="subxComment"># allocate array</span> +<span id="L16879" class="LineNr">16879 </span> { +<span id="L16880" class="LineNr">16880 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> +<span id="L16881" class="LineNr">16881 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L16882" class="LineNr">16882 </span> 3d/compare-eax-and 0/imm32 +<span id="L16883" class="LineNr">16883 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16884" class="LineNr">16884 </span> (<a href='mu.subx.html#L17773'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16885" class="LineNr">16885 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16886" class="LineNr">16886 </span> } +<span id="L16887" class="LineNr">16887 </span> <span class="subxComment"># allocate stream</span> +<span id="L16888" class="LineNr">16888 </span> { +<span id="L16889" class="LineNr">16889 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> +<span id="L16890" class="LineNr">16890 </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="L16891" class="LineNr">16891 </span> 3d/compare-eax-and 0/imm32 +<span id="L16892" class="LineNr">16892 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16893" class="LineNr">16893 </span> (<a href='mu.subx.html#L17809'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16894" class="LineNr">16894 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16895" class="LineNr">16895 </span> } +<span id="L16896" class="LineNr">16896 </span> <span class="subxComment"># read from stream</span> +<span id="L16897" class="LineNr">16897 </span> { +<span id="L16898" class="LineNr">16898 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> +<span id="L16899" class="LineNr">16899 </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="L16900" class="LineNr">16900 </span> 3d/compare-eax-and 0/imm32 +<span id="L16901" class="LineNr">16901 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16902" class="LineNr">16902 </span> (<a href='mu.subx.html#L17845'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16903" class="LineNr">16903 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16904" class="LineNr">16904 </span> } +<span id="L16905" class="LineNr">16905 </span> <span class="subxComment"># write to stream</span> +<span id="L16906" class="LineNr">16906 </span> { +<span id="L16907" class="LineNr">16907 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> +<span id="L16908" class="LineNr">16908 </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="L16909" class="LineNr">16909 </span> 3d/compare-eax-and 0/imm32 +<span id="L16910" class="LineNr">16910 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16911" class="LineNr">16911 </span> (<a href='mu.subx.html#L17882'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L16912" class="LineNr">16912 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16913" class="LineNr">16913 </span> } +<span id="L16914" class="LineNr">16914 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> +<span id="L16915" class="LineNr">16915 </span> { +<span id="L16916" class="LineNr">16916 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: +<span id="L16917" class="LineNr">16917 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> +<span id="L16918" class="LineNr">16918 </span> (<a href='mu.subx.html#L23273'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> +<span id="L16919" class="LineNr">16919 </span> 3d/compare-eax-and 0/imm32 +<span id="L16920" class="LineNr">16920 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16921" class="LineNr">16921 </span><span class="Constant">$emit-subx-stmt:primitive</span>: +<span id="L16922" class="LineNr">16922 </span> (<a href='mu.subx.html#L22755'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> +<span id="L16923" class="LineNr">16923 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L16924" class="LineNr">16924 </span> } +<span id="L16925" class="LineNr">16925 </span> <span class="subxH1Comment"># - otherwise emit a call</span> +<span id="L16926" class="LineNr">16926 </span> <span class="subxComment"># TODO: type-checking</span> +<span id="L16927" class="LineNr">16927 </span><span class="Constant">$emit-subx-stmt:call</span>: +<span id="L16928" class="LineNr">16928 </span> (<a href='mu.subx.html#L23024'>emit-call</a> *(ebp+8) *(ebp+0xc)) +<span id="L16929" class="LineNr">16929 </span><span class="Constant">$emit-subx-stmt:end</span>: +<span id="L16930" class="LineNr">16930 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16931" class="LineNr">16931 </span> 59/pop-to-ecx +<span id="L16932" class="LineNr">16932 </span> 58/pop-to-eax +<span id="L16933" class="LineNr">16933 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16934" class="LineNr">16934 </span> 89/<- %esp 5/r32/ebp +<span id="L16935" class="LineNr">16935 </span> 5d/pop-to-ebp +<span id="L16936" class="LineNr">16936 </span> c3/return +<span id="L16937" class="LineNr">16937 </span> +<span id="L16938" class="LineNr">16938 </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="L16939" class="LineNr">16939 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16940" class="LineNr">16940 </span> 55/push-ebp +<span id="L16941" class="LineNr">16941 </span> 89/<- %ebp 4/r32/esp +<span id="L16942" class="LineNr">16942 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16943" class="LineNr">16943 </span> 50/push-eax +<span id="L16944" class="LineNr">16944 </span> 51/push-ecx +<span id="L16945" class="LineNr">16945 </span> 52/push-edx +<span id="L16946" class="LineNr">16946 </span> 53/push-ebx +<span id="L16947" class="LineNr">16947 </span> 56/push-esi +<span id="L16948" class="LineNr">16948 </span> <span class="subxComment"># esi = stmt</span> +<span id="L16949" class="LineNr">16949 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L16950" class="LineNr">16950 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> +<span id="L16951" class="LineNr">16951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L16952" class="LineNr">16952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L16953" class="LineNr">16953 </span> 89/<- %ebx 0/r32/eax +<span id="L16954" class="LineNr">16954 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> +<span id="L16955" class="LineNr">16955 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L16956" class="LineNr">16956 </span> 89/<- %ecx 0/r32/eax +<span id="L16957" class="LineNr">16957 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> +<span id="L16958" class="LineNr">16958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L16959" class="LineNr">16959 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L16960" class="LineNr">16960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16961" class="LineNr">16961 </span> 89/<- %edx 0/r32/eax +<span id="L16962" class="LineNr">16962 </span> <span class="subxComment"># if elemsize == 1</span> +<span id="L16963" class="LineNr">16963 </span> { +<span id="L16964" class="LineNr">16964 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L16965" class="LineNr">16965 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16966" class="LineNr">16966 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: +<span id="L16967" class="LineNr">16967 </span> (<a href='mu.subx.html#L17191'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L16968" class="LineNr">16968 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L16969" class="LineNr">16969 </span> } +<span id="L16970" class="LineNr">16970 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> +<span id="L16971" class="LineNr">16971 </span> { +<span id="L16972" class="LineNr">16972 </span> (<a href='mu.subx.html#L18008'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L16973" class="LineNr">16973 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16974" class="LineNr">16974 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16975" class="LineNr">16975 </span> 81 7/subop/compare %ecx 0xff/imm32 +<span id="L16976" class="LineNr">16976 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L16977" class="LineNr">16977 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: +<span id="L16978" class="LineNr">16978 </span> (<a href='mu.subx.html#L17191'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L16979" class="LineNr">16979 </span> (<a href='mu.subx.html#L17234'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) +<span id="L16980" class="LineNr">16980 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L16981" class="LineNr">16981 </span> } +<span id="L16982" class="LineNr">16982 </span> <span class="subxComment"># otherwise, the complex case</span> +<span id="L16983" class="LineNr">16983 </span> <span class="subxS1Comment"># . emit register spills</span> +<span id="L16984" class="LineNr">16984 </span> { +<span id="L16985" class="LineNr">16985 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: +<span id="L16986" class="LineNr">16986 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L16987" class="LineNr">16987 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16988" class="LineNr">16988 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L16989" class="LineNr">16989 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16990" class="LineNr">16990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) +<span id="L16991" class="LineNr">16991 </span> } +<span id="L16992" class="LineNr">16992 </span> { +<span id="L16993" class="LineNr">16993 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L16994" class="LineNr">16994 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16995" class="LineNr">16995 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L16996" class="LineNr">16996 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L16997" class="LineNr">16997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) +<span id="L16998" class="LineNr">16998 </span> } +<span id="L16999" class="LineNr">16999 </span> { +<span id="L17000" class="LineNr">17000 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L17001" class="LineNr">17001 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17002" class="LineNr">17002 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L17003" class="LineNr">17003 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17004" class="LineNr">17004 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) +<span id="L17005" class="LineNr">17005 </span> } +<span id="L17006" class="LineNr">17006 </span> <span class="subxS1Comment"># .</span> +<span id="L17007" class="LineNr">17007 </span> (<a href='mu.subx.html#L17191'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) +<span id="L17008" class="LineNr">17008 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17009" class="LineNr">17009 </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="L17010" class="LineNr">17010 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17011" class="LineNr">17011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) +<span id="L17012" class="LineNr">17012 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L17013" class="LineNr">17013 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L17014" class="LineNr">17014 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17015" class="LineNr">17015 </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="L17016" class="LineNr">17016 </span> { +<span id="L17017" class="LineNr">17017 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L17018" class="LineNr">17018 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17019" class="LineNr">17019 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L17020" class="LineNr">17020 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17021" class="LineNr">17021 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) +<span id="L17022" class="LineNr">17022 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) +<span id="L17023" class="LineNr">17023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) +<span id="L17024" class="LineNr">17024 </span> } +<span id="L17025" class="LineNr">17025 </span> <span class="subxS1Comment"># . emit register restores</span> +<span id="L17026" class="LineNr">17026 </span> { +<span id="L17027" class="LineNr">17027 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L17028" class="LineNr">17028 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17029" class="LineNr">17029 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L17030" class="LineNr">17030 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17031" class="LineNr">17031 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) +<span id="L17032" class="LineNr">17032 </span> } +<span id="L17033" class="LineNr">17033 </span> { +<span id="L17034" class="LineNr">17034 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L17035" class="LineNr">17035 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17036" class="LineNr">17036 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L17037" class="LineNr">17037 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17038" class="LineNr">17038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) +<span id="L17039" class="LineNr">17039 </span> } +<span id="L17040" class="LineNr">17040 </span> { +<span id="L17041" class="LineNr">17041 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L17042" class="LineNr">17042 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17043" class="LineNr">17043 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L17044" class="LineNr">17044 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17045" class="LineNr">17045 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) +<span id="L17046" class="LineNr">17046 </span> } +<span id="L17047" class="LineNr">17047 </span><span class="Constant">$translate-mu-length-stmt:end</span>: +<span id="L17048" class="LineNr">17048 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17049" class="LineNr">17049 </span> 5e/pop-to-esi +<span id="L17050" class="LineNr">17050 </span> 5b/pop-to-ebx +<span id="L17051" class="LineNr">17051 </span> 5a/pop-to-edx +<span id="L17052" class="LineNr">17052 </span> 59/pop-to-ecx +<span id="L17053" class="LineNr">17053 </span> 58/pop-to-eax +<span id="L17054" class="LineNr">17054 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17055" class="LineNr">17055 </span> 89/<- %esp 5/r32/ebp +<span id="L17056" class="LineNr">17056 </span> 5d/pop-to-ebp +<span id="L17057" class="LineNr">17057 </span> c3/return +<span id="L17058" class="LineNr">17058 </span> +<span id="L17059" class="LineNr">17059 </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="L17060" class="LineNr">17060 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17061" class="LineNr">17061 </span> 55/push-ebp +<span id="L17062" class="LineNr">17062 </span> 89/<- %ebp 4/r32/esp +<span id="L17063" class="LineNr">17063 </span> <span class="subxComment">#</span> +<span id="L17064" class="LineNr">17064 </span> (<a href='mu.subx.html#L17072'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L17065" class="LineNr">17065 </span> (<a href='mu.subx.html#L17170'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17066" class="LineNr">17066 </span><span class="Constant">$array-element-size:end</span>: +<span id="L17067" class="LineNr">17067 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17068" class="LineNr">17068 </span> 89/<- %esp 5/r32/ebp +<span id="L17069" class="LineNr">17069 </span> 5d/pop-to-ebp +<span id="L17070" class="LineNr">17070 </span> c3/return +<span id="L17071" class="LineNr">17071 </span> +<span id="L17072" class="LineNr">17072 </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="L17073" class="LineNr">17073 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L17074" class="LineNr">17074 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17075" class="LineNr">17075 </span> 55/push-ebp +<span id="L17076" class="LineNr">17076 </span> 89/<- %ebp 4/r32/esp +<span id="L17077" class="LineNr">17077 </span> <span class="subxComment">#</span> +<span id="L17078" class="LineNr">17078 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17079" class="LineNr">17079 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> +<span id="L17080" class="LineNr">17080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17081" class="LineNr">17081 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L17082" class="LineNr">17082 </span> 3d/compare-eax-with 0/imm32 +<span id="L17083" class="LineNr">17083 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 +<span id="L17084" class="LineNr">17084 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L17085" class="LineNr">17085 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17086" class="LineNr">17086 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 +<span id="L17087" class="LineNr">17087 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> +<span id="L17088" class="LineNr">17088 </span> { +<span id="L17089" class="LineNr">17089 </span> 50/push-eax +<span id="L17090" class="LineNr">17090 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17091" class="LineNr">17091 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L17092" class="LineNr">17092 </span> 3d/compare-eax-with 0/imm32/false +<span id="L17093" class="LineNr">17093 </span> 58/pop-to-eax +<span id="L17094" class="LineNr">17094 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17095" class="LineNr">17095 </span><span class="Constant">$array-element-type-id:skip-addr</span>: +<span id="L17096" class="LineNr">17096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17097" class="LineNr">17097 </span> } +<span id="L17098" class="LineNr">17098 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L17099" class="LineNr">17099 </span> 3d/compare-eax-with 0/imm32 +<span id="L17100" class="LineNr">17100 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L17101" class="LineNr">17101 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L17102" class="LineNr">17102 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17103" class="LineNr">17103 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L17104" class="LineNr">17104 </span> <span class="subxComment"># if t->left != array abort</span> +<span id="L17105" class="LineNr">17105 </span> { +<span id="L17106" class="LineNr">17106 </span> 50/push-eax +<span id="L17107" class="LineNr">17107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17108" class="LineNr">17108 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L17109" class="LineNr">17109 </span> 3d/compare-eax-with 0/imm32/false +<span id="L17110" class="LineNr">17110 </span> 58/pop-to-eax +<span id="L17111" class="LineNr">17111 </span><span class="Constant">$array-element-type-id:no-array</span>: +<span id="L17112" class="LineNr">17112 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L17113" class="LineNr">17113 </span> } +<span id="L17114" class="LineNr">17114 </span><span class="Constant">$array-element-type-id:skip-array</span>: +<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># t = t->right</span> +<span id="L17116" class="LineNr">17116 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17117" class="LineNr">17117 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L17118" class="LineNr">17118 </span> 3d/compare-eax-with 0/imm32 +<span id="L17119" class="LineNr">17119 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L17120" class="LineNr">17120 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L17121" class="LineNr">17121 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17122" class="LineNr">17122 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L17123" class="LineNr">17123 </span> <span class="subxComment"># return t->left->value</span> +<span id="L17124" class="LineNr">17124 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17125" class="LineNr">17125 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L17126" class="LineNr">17126 </span><span class="Constant">$array-element-type-id:end</span>: +<span id="L17127" class="LineNr">17127 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17128" class="LineNr">17128 </span> 89/<- %esp 5/r32/ebp +<span id="L17129" class="LineNr">17129 </span> 5d/pop-to-ebp +<span id="L17130" class="LineNr">17130 </span> c3/return +<span id="L17131" class="LineNr">17131 </span> +<span id="L17132" class="LineNr">17132 </span><span class="Constant">$array-element-type-id:error0</span>: +<span id="L17133" class="LineNr">17133 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L17134" class="LineNr">17134 </span> 50/push-eax +<span id="L17135" class="LineNr">17135 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17136" class="LineNr">17136 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17137" class="LineNr">17137 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L17138" class="LineNr">17138 </span> 58/pop-to-eax +<span id="L17139" class="LineNr">17139 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L17140" class="LineNr">17140 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L17141" class="LineNr">17141 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L17142" class="LineNr">17142 </span> <span class="subxComment"># never gets here</span> +<span id="L17143" class="LineNr">17143 </span> +<span id="L17144" class="LineNr">17144 </span><span class="Constant">$array-element-type-id:error1</span>: +<span id="L17145" class="LineNr">17145 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L17146" class="LineNr">17146 </span> 50/push-eax +<span id="L17147" class="LineNr">17147 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17148" class="LineNr">17148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17149" class="LineNr">17149 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L17150" class="LineNr">17150 </span> 58/pop-to-eax +<span id="L17151" class="LineNr">17151 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L17152" class="LineNr">17152 </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="L17153" class="LineNr">17153 </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="L17154" class="LineNr">17154 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L17155" class="LineNr">17155 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) <span id="L17156" class="LineNr">17156 </span> <span class="subxComment"># never gets here</span> <span id="L17157" class="LineNr">17157 </span> -<span id="L17158" class="LineNr">17158 </span><span class="Constant">$translate-mu-index-stmt-with-array:error2</span>: -<span id="L17159" class="LineNr">17159 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <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="L17160" class="LineNr">17160 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L17161" class="LineNr">17161 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L17162" class="LineNr">17162 </span> <span class="subxComment"># never gets here</span> -<span id="L17163" class="LineNr">17163 </span> -<span id="L17164" class="LineNr">17164 </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="L17165" class="LineNr">17165 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17166" class="LineNr">17166 </span> 55/push-ebp -<span id="L17167" class="LineNr">17167 </span> 89/<- %ebp 4/r32/esp -<span id="L17168" class="LineNr">17168 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17169" class="LineNr">17169 </span> 50/push-eax -<span id="L17170" class="LineNr">17170 </span> 51/push-ecx -<span id="L17171" class="LineNr">17171 </span> 52/push-edx -<span id="L17172" class="LineNr">17172 </span> 53/push-ebx -<span id="L17173" class="LineNr">17173 </span> <span class="subxComment">#</span> -<span id="L17174" class="LineNr">17174 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17175" class="LineNr">17175 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) -<span id="L17176" class="LineNr">17176 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> -<span id="L17177" class="LineNr">17177 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: -<span id="L17178" class="LineNr">17178 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L17179" class="LineNr">17179 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L17180" class="LineNr">17180 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L17181" class="LineNr">17181 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17182" class="LineNr">17182 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17183" class="LineNr">17183 </span> 89/<- %ebx 0/r32/eax -<span id="L17184" class="LineNr">17184 </span> <span class="subxComment"># print base->register " + "</span> -<span id="L17185" class="LineNr">17185 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17186" class="LineNr">17186 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17187" class="LineNr">17187 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L17188" class="LineNr">17188 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L17189" class="LineNr">17189 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17190" class="LineNr">17190 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17191" class="LineNr">17191 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17192" class="LineNr">17192 </span> 89/<- %edx 0/r32/eax -<span id="L17193" class="LineNr">17193 </span> <span class="subxComment"># if index->register</span> -<span id="L17194" class="LineNr">17194 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17195" class="LineNr">17195 </span> { -<span id="L17196" class="LineNr">17196 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17197" class="LineNr">17197 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: -<span id="L17198" class="LineNr">17198 </span> <span class="subxComment"># if index is an int</span> -<span id="L17199" class="LineNr">17199 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17200" class="LineNr">17200 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L17201" class="LineNr">17201 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17202" class="LineNr">17202 </span> { -<span id="L17203" class="LineNr">17203 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17204" class="LineNr">17204 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: -<span id="L17205" class="LineNr">17205 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> -<span id="L17206" class="LineNr">17206 </span> <span class="subxS1Comment"># . index->register "<<"</span> -<span id="L17207" class="LineNr">17207 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17208" class="LineNr">17208 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17209" class="LineNr">17209 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L17210" class="LineNr">17210 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> -<span id="L17211" class="LineNr">17211 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L17212" class="LineNr">17212 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17213" class="LineNr">17213 </span> (<a href='mu.subx.html#L17898'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17214" class="LineNr">17214 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17215" class="LineNr">17215 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 -<span id="L17216" class="LineNr">17216 </span> } -<span id="L17217" class="LineNr">17217 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L17218" class="LineNr">17218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17219" class="LineNr">17219 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17220" class="LineNr">17220 </span> 0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32 -<span id="L17221" class="LineNr">17221 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L17222" class="LineNr">17222 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17223" class="LineNr">17223 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L17224" class="LineNr">17224 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17225" class="LineNr">17225 </span> { -<span id="L17226" class="LineNr">17226 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17227" class="LineNr">17227 </span> <span class="subxComment"># print index->register</span> -<span id="L17228" class="LineNr">17228 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: -<span id="L17229" class="LineNr">17229 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17230" class="LineNr">17230 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17231" class="LineNr">17231 </span> } -<span id="L17232" class="LineNr">17232 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: -<span id="L17233" class="LineNr">17233 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) -<span id="L17234" class="LineNr">17234 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L17235" class="LineNr">17235 </span> } -<span id="L17236" class="LineNr">17236 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L17237" class="LineNr">17237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17238" class="LineNr">17238 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L17239" class="LineNr">17239 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17240" class="LineNr">17240 </span> { -<span id="L17241" class="LineNr">17241 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17242" class="LineNr">17242 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: -<span id="L17243" class="LineNr">17243 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> -<span id="L17244" class="LineNr">17244 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17245" class="LineNr">17245 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17246" class="LineNr">17246 </span> 89/<- %edx 0/r32/eax -<span id="L17247" class="LineNr">17247 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> -<span id="L17248" class="LineNr">17248 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17249" class="LineNr">17249 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L17250" class="LineNr">17250 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L17251" class="LineNr">17251 </span> 05/add-to-eax 4/imm32 -<span id="L17252" class="LineNr">17252 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L17253" class="LineNr">17253 </span> <span class="subxComment"># print offset</span> -<span id="L17254" class="LineNr">17254 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17255" class="LineNr">17255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L17256" class="LineNr">17256 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L17257" class="LineNr">17257 </span> } -<span id="L17258" class="LineNr">17258 </span> <span class="subxComment"># otherwise abort</span> -<span id="L17259" class="LineNr">17259 </span> e9/jump $translate-mu-index-stmt-with-array:error1/disp32 -<span id="L17260" class="LineNr">17260 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: -<span id="L17261" class="LineNr">17261 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L17262" class="LineNr">17262 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L17263" class="LineNr">17263 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L17264" class="LineNr">17264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17265" class="LineNr">17265 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17266" class="LineNr">17266 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L17267" class="LineNr">17267 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L17268" class="LineNr">17268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L17269" class="LineNr">17269 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: -<span id="L17270" class="LineNr">17270 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17271" class="LineNr">17271 </span> 5b/pop-to-ebx -<span id="L17272" class="LineNr">17272 </span> 5a/pop-to-edx -<span id="L17273" class="LineNr">17273 </span> 59/pop-to-ecx -<span id="L17274" class="LineNr">17274 </span> 58/pop-to-eax -<span id="L17275" class="LineNr">17275 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17276" class="LineNr">17276 </span> 89/<- %esp 5/r32/ebp -<span id="L17277" class="LineNr">17277 </span> 5d/pop-to-ebp -<span id="L17278" class="LineNr">17278 </span> c3/return -<span id="L17279" class="LineNr">17279 </span> -<span id="L17280" class="LineNr">17280 </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="L17281" class="LineNr">17281 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17282" class="LineNr">17282 </span> 55/push-ebp -<span id="L17283" class="LineNr">17283 </span> 89/<- %ebp 4/r32/esp -<span id="L17284" class="LineNr">17284 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17285" class="LineNr">17285 </span> 50/push-eax -<span id="L17286" class="LineNr">17286 </span> 51/push-ecx -<span id="L17287" class="LineNr">17287 </span> 52/push-edx -<span id="L17288" class="LineNr">17288 </span> 53/push-ebx -<span id="L17289" class="LineNr">17289 </span> <span class="subxComment">#</span> -<span id="L17290" class="LineNr">17290 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17291" class="LineNr">17291 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) -<span id="L17292" class="LineNr">17292 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L17293" class="LineNr">17293 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L17294" class="LineNr">17294 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17295" class="LineNr">17295 </span> 89/<- %edx 0/r32/eax -<span id="L17296" class="LineNr">17296 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> -<span id="L17297" class="LineNr">17297 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17298" class="LineNr">17298 </span> 89/<- %ecx 0/r32/eax -<span id="L17299" class="LineNr">17299 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> -<span id="L17300" class="LineNr">17300 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17301" class="LineNr">17301 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> -<span id="L17302" class="LineNr">17302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17303" class="LineNr">17303 </span> 89/<- %edx 0/r32/eax -<span id="L17304" class="LineNr">17304 </span> <span class="subxComment"># if index->register</span> -<span id="L17305" class="LineNr">17305 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17306" class="LineNr">17306 </span> { -<span id="L17307" class="LineNr">17307 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17308" class="LineNr">17308 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: -<span id="L17309" class="LineNr">17309 </span> <span class="subxComment"># if index is an int</span> -<span id="L17310" class="LineNr">17310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17311" class="LineNr">17311 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L17312" class="LineNr">17312 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17313" class="LineNr">17313 </span> { -<span id="L17314" class="LineNr">17314 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17315" class="LineNr">17315 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: -<span id="L17316" class="LineNr">17316 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> -<span id="L17317" class="LineNr">17317 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> -<span id="L17318" class="LineNr">17318 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17319" class="LineNr">17319 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17320" class="LineNr">17320 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L17321" class="LineNr">17321 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> -<span id="L17322" class="LineNr">17322 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L17323" class="LineNr">17323 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17324" class="LineNr">17324 </span> (<a href='mu.subx.html#L17898'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17325" class="LineNr">17325 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17326" class="LineNr">17326 </span> <span class="subxComment">#</span> -<span id="L17327" class="LineNr">17327 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L17328" class="LineNr">17328 </span> <span class="subxComment">#</span> -<span id="L17329" class="LineNr">17329 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L17330" class="LineNr">17330 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> -<span id="L17331" class="LineNr">17331 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17332" class="LineNr">17332 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 -<span id="L17333" class="LineNr">17333 </span> } -<span id="L17334" class="LineNr">17334 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L17335" class="LineNr">17335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17336" class="LineNr">17336 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17337" class="LineNr">17337 </span> 0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32 -<span id="L17338" class="LineNr">17338 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L17339" class="LineNr">17339 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17340" class="LineNr">17340 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L17158" class="LineNr">17158 </span><span class="Constant">$array-element-type-id:error2</span>: +<span id="L17159" class="LineNr">17159 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L17160" class="LineNr">17160 </span> 50/push-eax +<span id="L17161" class="LineNr">17161 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17162" class="LineNr">17162 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17163" class="LineNr">17163 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L17164" class="LineNr">17164 </span> 58/pop-to-eax +<span id="L17165" class="LineNr">17165 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) +<span id="L17166" class="LineNr">17166 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L17167" class="LineNr">17167 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L17168" class="LineNr">17168 </span> <span class="subxComment"># never gets here</span> +<span id="L17169" class="LineNr">17169 </span> +<span id="L17170" class="LineNr">17170 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L17171" class="LineNr">17171 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17172" class="LineNr">17172 </span> 55/push-ebp +<span id="L17173" class="LineNr">17173 </span> 89/<- %ebp 4/r32/esp +<span id="L17174" class="LineNr">17174 </span> <span class="subxComment"># eax = t</span> +<span id="L17175" class="LineNr">17175 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17176" class="LineNr">17176 </span> <span class="subxComment"># if t is 'byte', size is 1</span> +<span id="L17177" class="LineNr">17177 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L17178" class="LineNr">17178 </span> { +<span id="L17179" class="LineNr">17179 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17180" class="LineNr">17180 </span> b8/copy-to-eax 1/imm32 +<span id="L17181" class="LineNr">17181 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 +<span id="L17182" class="LineNr">17182 </span> } +<span id="L17183" class="LineNr">17183 </span> <span class="subxComment"># otherwise proceed as usual</span> +<span id="L17184" class="LineNr">17184 </span> (<a href='mu.subx.html#L15140'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17185" class="LineNr">17185 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: +<span id="L17186" class="LineNr">17186 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17187" class="LineNr">17187 </span> 89/<- %esp 5/r32/ebp +<span id="L17188" class="LineNr">17188 </span> 5d/pop-to-ebp +<span id="L17189" class="LineNr">17189 </span> c3/return +<span id="L17190" class="LineNr">17190 </span> +<span id="L17191" class="LineNr">17191 </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="L17192" class="LineNr">17192 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17193" class="LineNr">17193 </span> 55/push-ebp +<span id="L17194" class="LineNr">17194 </span> 89/<- %ebp 4/r32/esp +<span id="L17195" class="LineNr">17195 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17196" class="LineNr">17196 </span> 50/push-eax +<span id="L17197" class="LineNr">17197 </span> 53/push-ebx +<span id="L17198" class="LineNr">17198 </span> <span class="subxComment"># ebx = base</span> +<span id="L17199" class="LineNr">17199 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L17200" class="LineNr">17200 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17201" class="LineNr">17201 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) +<span id="L17202" class="LineNr">17202 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> +<span id="L17203" class="LineNr">17203 </span> { +<span id="L17204" class="LineNr">17204 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17205" class="LineNr">17205 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17206" class="LineNr">17206 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: +<span id="L17207" class="LineNr">17207 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17208" class="LineNr">17208 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17209" class="LineNr">17209 </span> eb/jump $emit-save-size-to:emit-output/disp8 +<span id="L17210" class="LineNr">17210 </span> } +<span id="L17211" class="LineNr">17211 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> +<span id="L17212" class="LineNr">17212 </span> { +<span id="L17213" class="LineNr">17213 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L17214" class="LineNr">17214 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17215" class="LineNr">17215 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: +<span id="L17216" class="LineNr">17216 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) +<span id="L17217" class="LineNr">17217 </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="L17218" class="LineNr">17218 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L17219" class="LineNr">17219 </span> } +<span id="L17220" class="LineNr">17220 </span><span class="Constant">$emit-save-size-to:emit-output</span>: +<span id="L17221" class="LineNr">17221 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L17222" class="LineNr">17222 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L17223" class="LineNr">17223 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L17224" class="LineNr">17224 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L17225" class="LineNr">17225 </span><span class="Constant">$emit-save-size-to:end</span>: +<span id="L17226" class="LineNr">17226 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17227" class="LineNr">17227 </span> 5b/pop-to-ebx +<span id="L17228" class="LineNr">17228 </span> 58/pop-to-eax +<span id="L17229" class="LineNr">17229 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17230" class="LineNr">17230 </span> 89/<- %esp 5/r32/ebp +<span id="L17231" class="LineNr">17231 </span> 5d/pop-to-ebp +<span id="L17232" class="LineNr">17232 </span> c3/return +<span id="L17233" class="LineNr">17233 </span> +<span id="L17234" class="LineNr">17234 </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="L17235" class="LineNr">17235 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17236" class="LineNr">17236 </span> 55/push-ebp +<span id="L17237" class="LineNr">17237 </span> 89/<- %ebp 4/r32/esp +<span id="L17238" class="LineNr">17238 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17239" class="LineNr">17239 </span> 50/push-eax +<span id="L17240" class="LineNr">17240 </span> <span class="subxComment">#</span> +<span id="L17241" class="LineNr">17241 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17242" class="LineNr">17242 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) +<span id="L17243" class="LineNr">17243 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L17244" class="LineNr">17244 </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="L17245" class="LineNr">17245 </span> (<a href='mu.subx.html#L18038'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L17246" class="LineNr">17246 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17247" class="LineNr">17247 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) +<span id="L17248" class="LineNr">17248 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: +<span id="L17249" class="LineNr">17249 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17250" class="LineNr">17250 </span> 58/pop-to-eax +<span id="L17251" class="LineNr">17251 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17252" class="LineNr">17252 </span> 89/<- %esp 5/r32/ebp +<span id="L17253" class="LineNr">17253 </span> 5d/pop-to-ebp +<span id="L17254" class="LineNr">17254 </span> c3/return +<span id="L17255" class="LineNr">17255 </span> +<span id="L17256" class="LineNr">17256 </span><span class="subxFunction">translate-mu-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L17257" class="LineNr">17257 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17258" class="LineNr">17258 </span> 55/push-ebp +<span id="L17259" class="LineNr">17259 </span> 89/<- %ebp 4/r32/esp +<span id="L17260" class="LineNr">17260 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17261" class="LineNr">17261 </span> 51/push-ecx +<span id="L17262" class="LineNr">17262 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L17263" class="LineNr">17263 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L17264" class="LineNr">17264 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts[0]</span> +<span id="L17265" class="LineNr">17265 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17266" class="LineNr">17266 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17267" class="LineNr">17267 </span> 89/<- %ecx 0/r32/eax +<span id="L17268" class="LineNr">17268 </span> <span class="subxComment"># if (var->register) do one thing</span> +<span id="L17269" class="LineNr">17269 </span> { +<span id="L17270" class="LineNr">17270 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17271" class="LineNr">17271 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17272" class="LineNr">17272 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L17273" class="LineNr">17273 </span> (<a href='mu.subx.html#L17304'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L17274" class="LineNr">17274 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L17275" class="LineNr">17275 </span> } +<span id="L17276" class="LineNr">17276 </span> <span class="subxComment"># if (var->offset) do a different thing</span> +<span id="L17277" class="LineNr">17277 </span> { +<span id="L17278" class="LineNr">17278 </span> 81 7/subop/compare *(ecx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L17279" class="LineNr">17279 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17280" class="LineNr">17280 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L17281" class="LineNr">17281 </span> (<a href='mu.subx.html#L17420'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L17282" class="LineNr">17282 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L17283" class="LineNr">17283 </span> } +<span id="L17284" class="LineNr">17284 </span><span class="Constant">$translate-mu-index-stmt:end</span>: +<span id="L17285" class="LineNr">17285 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17286" class="LineNr">17286 </span> 59/pop-to-ecx +<span id="L17287" class="LineNr">17287 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17288" class="LineNr">17288 </span> 89/<- %esp 5/r32/ebp +<span id="L17289" class="LineNr">17289 </span> 5d/pop-to-ebp +<span id="L17290" class="LineNr">17290 </span> c3/return +<span id="L17291" class="LineNr">17291 </span> +<span id="L17292" class="LineNr">17292 </span><span class="Constant">$translate-mu-index-stmt-with-array:error1</span>: +<span id="L17293" class="LineNr">17293 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <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="L17294" class="LineNr">17294 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L17295" class="LineNr">17295 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L17296" class="LineNr">17296 </span> <span class="subxComment"># never gets here</span> +<span id="L17297" class="LineNr">17297 </span> +<span id="L17298" class="LineNr">17298 </span><span class="Constant">$translate-mu-index-stmt-with-array:error2</span>: +<span id="L17299" class="LineNr">17299 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <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="L17300" class="LineNr">17300 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L17301" class="LineNr">17301 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L17302" class="LineNr">17302 </span> <span class="subxComment"># never gets here</span> +<span id="L17303" class="LineNr">17303 </span> +<span id="L17304" class="LineNr">17304 </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="L17305" class="LineNr">17305 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17306" class="LineNr">17306 </span> 55/push-ebp +<span id="L17307" class="LineNr">17307 </span> 89/<- %ebp 4/r32/esp +<span id="L17308" class="LineNr">17308 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17309" class="LineNr">17309 </span> 50/push-eax +<span id="L17310" class="LineNr">17310 </span> 51/push-ecx +<span id="L17311" class="LineNr">17311 </span> 52/push-edx +<span id="L17312" class="LineNr">17312 </span> 53/push-ebx +<span id="L17313" class="LineNr">17313 </span> <span class="subxComment">#</span> +<span id="L17314" class="LineNr">17314 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17315" class="LineNr">17315 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) +<span id="L17316" class="LineNr">17316 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> +<span id="L17317" class="LineNr">17317 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: +<span id="L17318" class="LineNr">17318 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L17319" class="LineNr">17319 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L17320" class="LineNr">17320 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L17321" class="LineNr">17321 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17322" class="LineNr">17322 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17323" class="LineNr">17323 </span> 89/<- %ebx 0/r32/eax +<span id="L17324" class="LineNr">17324 </span> <span class="subxComment"># print base->register " + "</span> +<span id="L17325" class="LineNr">17325 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17326" class="LineNr">17326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17327" class="LineNr">17327 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L17328" class="LineNr">17328 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L17329" class="LineNr">17329 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17330" class="LineNr">17330 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17331" class="LineNr">17331 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17332" class="LineNr">17332 </span> 89/<- %edx 0/r32/eax +<span id="L17333" class="LineNr">17333 </span> <span class="subxComment"># if index->register</span> +<span id="L17334" class="LineNr">17334 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17335" class="LineNr">17335 </span> { +<span id="L17336" class="LineNr">17336 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17337" class="LineNr">17337 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: +<span id="L17338" class="LineNr">17338 </span> <span class="subxComment"># if index is an int</span> +<span id="L17339" class="LineNr">17339 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17340" class="LineNr">17340 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> <span id="L17341" class="LineNr">17341 </span> 3d/compare-eax-and 0/imm32/false <span id="L17342" class="LineNr">17342 </span> { <span id="L17343" class="LineNr">17343 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17344" class="LineNr">17344 </span> <span class="subxComment"># print index->register</span> -<span id="L17345" class="LineNr">17345 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: -<span id="L17346" class="LineNr">17346 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17347" class="LineNr">17347 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17348" class="LineNr">17348 </span> } -<span id="L17349" class="LineNr">17349 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: -<span id="L17350" class="LineNr">17350 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L17351" class="LineNr">17351 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L17352" class="LineNr">17352 </span> } -<span id="L17353" class="LineNr">17353 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L17354" class="LineNr">17354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17355" class="LineNr">17355 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L17356" class="LineNr">17356 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17357" class="LineNr">17357 </span> { -<span id="L17358" class="LineNr">17358 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17359" class="LineNr">17359 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: -<span id="L17360" class="LineNr">17360 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> -<span id="L17361" class="LineNr">17361 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17362" class="LineNr">17362 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> -<span id="L17363" class="LineNr">17363 </span> 89/<- %edx 0/r32/eax -<span id="L17364" class="LineNr">17364 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> -<span id="L17365" class="LineNr">17365 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17366" class="LineNr">17366 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L17367" class="LineNr">17367 </span> <span class="subxComment"># offset += base->offset</span> -<span id="L17368" class="LineNr">17368 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L17369" class="LineNr">17369 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L17370" class="LineNr">17370 </span> 05/add-to-eax 4/imm32 -<span id="L17371" class="LineNr">17371 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L17372" class="LineNr">17372 </span> <span class="subxComment"># print offset</span> -<span id="L17373" class="LineNr">17373 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17374" class="LineNr">17374 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L17375" class="LineNr">17375 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L17376" class="LineNr">17376 </span> } -<span id="L17377" class="LineNr">17377 </span> <span class="subxComment"># otherwise abort</span> -<span id="L17378" class="LineNr">17378 </span> e9/jump $translate-mu-index-stmt-with-array:error1/disp32 -<span id="L17379" class="LineNr">17379 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: -<span id="L17380" class="LineNr">17380 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L17381" class="LineNr">17381 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L17382" class="LineNr">17382 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L17383" class="LineNr">17383 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17384" class="LineNr">17384 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17385" class="LineNr">17385 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L17386" class="LineNr">17386 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L17387" class="LineNr">17387 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L17388" class="LineNr">17388 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: -<span id="L17389" class="LineNr">17389 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17390" class="LineNr">17390 </span> 5b/pop-to-ebx -<span id="L17391" class="LineNr">17391 </span> 5a/pop-to-edx -<span id="L17392" class="LineNr">17392 </span> 59/pop-to-ecx -<span id="L17393" class="LineNr">17393 </span> 58/pop-to-eax -<span id="L17394" class="LineNr">17394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17395" class="LineNr">17395 </span> 89/<- %esp 5/r32/ebp -<span id="L17396" class="LineNr">17396 </span> 5d/pop-to-ebp -<span id="L17397" class="LineNr">17397 </span> c3/return -<span id="L17398" class="LineNr">17398 </span> -<span id="L17399" class="LineNr">17399 </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="L17400" class="LineNr">17400 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17401" class="LineNr">17401 </span> 55/push-ebp -<span id="L17402" class="LineNr">17402 </span> 89/<- %ebp 4/r32/esp -<span id="L17403" class="LineNr">17403 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17404" class="LineNr">17404 </span> 50/push-eax -<span id="L17405" class="LineNr">17405 </span> 51/push-ecx -<span id="L17406" class="LineNr">17406 </span> 52/push-edx -<span id="L17407" class="LineNr">17407 </span> 53/push-ebx -<span id="L17408" class="LineNr">17408 </span> <span class="subxComment">#</span> -<span id="L17409" class="LineNr">17409 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17410" class="LineNr">17410 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) -<span id="L17411" class="LineNr">17411 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L17412" class="LineNr">17412 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L17413" class="LineNr">17413 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17414" class="LineNr">17414 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17415" class="LineNr">17415 </span> 89/<- %ebx 0/r32/eax -<span id="L17416" class="LineNr">17416 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: -<span id="L17417" class="LineNr">17417 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17418" class="LineNr">17418 </span> (<a href='mu.subx.html#L22976'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L17419" class="LineNr">17419 </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="L17420" class="LineNr">17420 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: -<span id="L17421" class="LineNr">17421 </span> <span class="subxComment"># var base/ebx: (addr var)</span> -<span id="L17422" class="LineNr">17422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17423" class="LineNr">17423 </span> 89/<- %ebx 0/r32/eax -<span id="L17424" class="LineNr">17424 </span> <span class="subxComment"># print array-element-size(base)</span> -<span id="L17425" class="LineNr">17425 </span> (<a href='mu.subx.html#L16919'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17426" class="LineNr">17426 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17427" class="LineNr">17427 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) -<span id="L17428" class="LineNr">17428 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: -<span id="L17429" class="LineNr">17429 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L17430" class="LineNr">17430 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L17431" class="LineNr">17431 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17432" class="LineNr">17432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17433" class="LineNr">17433 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L17434" class="LineNr">17434 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L17435" class="LineNr">17435 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L17436" class="LineNr">17436 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: -<span id="L17437" class="LineNr">17437 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17438" class="LineNr">17438 </span> 5b/pop-to-ebx -<span id="L17439" class="LineNr">17439 </span> 5a/pop-to-edx -<span id="L17440" class="LineNr">17440 </span> 59/pop-to-ecx -<span id="L17441" class="LineNr">17441 </span> 58/pop-to-eax -<span id="L17442" class="LineNr">17442 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17443" class="LineNr">17443 </span> 89/<- %esp 5/r32/ebp -<span id="L17444" class="LineNr">17444 </span> 5d/pop-to-ebp -<span id="L17445" class="LineNr">17445 </span> c3/return -<span id="L17446" class="LineNr">17446 </span> -<span id="L17447" class="LineNr">17447 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L17448" class="LineNr">17448 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17449" class="LineNr">17449 </span> 55/push-ebp -<span id="L17450" class="LineNr">17450 </span> 89/<- %ebp 4/r32/esp -<span id="L17451" class="LineNr">17451 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17452" class="LineNr">17452 </span> 50/push-eax -<span id="L17453" class="LineNr">17453 </span> 51/push-ecx -<span id="L17454" class="LineNr">17454 </span> 52/push-edx -<span id="L17455" class="LineNr">17455 </span> <span class="subxComment">#</span> -<span id="L17456" class="LineNr">17456 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17457" class="LineNr">17457 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) -<span id="L17458" class="LineNr">17458 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L17459" class="LineNr">17459 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L17460" class="LineNr">17460 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> -<span id="L17461" class="LineNr">17461 </span> (<a href='mu.subx.html#L17925'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17462" class="LineNr">17462 </span> 89/<- %edx 0/r32/eax -<span id="L17463" class="LineNr">17463 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L17464" class="LineNr">17464 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17465" class="LineNr">17465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17466" class="LineNr">17466 </span> <span class="subxComment"># if base is in a register</span> -<span id="L17467" class="LineNr">17467 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17468" class="LineNr">17468 </span> { -<span id="L17469" class="LineNr">17469 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17470" class="LineNr">17470 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: -<span id="L17471" class="LineNr">17471 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> -<span id="L17472" class="LineNr">17472 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) -<span id="L17473" class="LineNr">17473 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17474" class="LineNr">17474 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17475" class="LineNr">17475 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L17476" class="LineNr">17476 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L17477" class="LineNr">17477 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L17478" class="LineNr">17478 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 -<span id="L17479" class="LineNr">17479 </span> } -<span id="L17480" class="LineNr">17480 </span> <span class="subxComment"># otherwise base is on the stack</span> -<span id="L17481" class="LineNr">17481 </span> { -<span id="L17482" class="LineNr">17482 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: -<span id="L17483" class="LineNr">17483 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> -<span id="L17484" class="LineNr">17484 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L17485" class="LineNr">17485 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L17486" class="LineNr">17486 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L17487" class="LineNr">17487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L17488" class="LineNr">17488 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 -<span id="L17489" class="LineNr">17489 </span> } -<span id="L17490" class="LineNr">17490 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: -<span id="L17491" class="LineNr">17491 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> -<span id="L17492" class="LineNr">17492 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L17493" class="LineNr">17493 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17494" class="LineNr">17494 </span> <span class="subxComment"># emit offset->register "/r32"</span> -<span id="L17495" class="LineNr">17495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17496" class="LineNr">17496 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L17497" class="LineNr">17497 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L17498" class="LineNr">17498 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L17499" class="LineNr">17499 </span><span class="Constant">$translate-mu-get-stmt:end</span>: -<span id="L17500" class="LineNr">17500 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17501" class="LineNr">17501 </span> 5a/pop-to-edx -<span id="L17502" class="LineNr">17502 </span> 59/pop-to-ecx -<span id="L17503" class="LineNr">17503 </span> 58/pop-to-eax -<span id="L17504" class="LineNr">17504 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17505" class="LineNr">17505 </span> 89/<- %esp 5/r32/ebp -<span id="L17506" class="LineNr">17506 </span> 5d/pop-to-ebp -<span id="L17507" class="LineNr">17507 </span> c3/return -<span id="L17508" class="LineNr">17508 </span> -<span id="L17509" class="LineNr">17509 </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="L17510" class="LineNr">17510 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17511" class="LineNr">17511 </span> 55/push-ebp -<span id="L17512" class="LineNr">17512 </span> 89/<- %ebp 4/r32/esp -<span id="L17513" class="LineNr">17513 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17514" class="LineNr">17514 </span> 50/push-eax -<span id="L17515" class="LineNr">17515 </span> <span class="subxComment">#</span> -<span id="L17516" class="LineNr">17516 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17517" class="LineNr">17517 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) -<span id="L17518" class="LineNr">17518 </span> <span class="subxComment"># eax = stmt</span> -<span id="L17519" class="LineNr">17519 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L17520" class="LineNr">17520 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17521" class="LineNr">17521 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17522" class="LineNr">17522 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L17523" class="LineNr">17523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17524" class="LineNr">17524 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L17525" class="LineNr">17525 </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="L17526" class="LineNr">17526 </span> (<a href='mu.subx.html#L17603'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17527" class="LineNr">17527 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17528" class="LineNr">17528 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17529" class="LineNr">17529 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: -<span id="L17530" class="LineNr">17530 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17531" class="LineNr">17531 </span> 58/pop-to-eax -<span id="L17532" class="LineNr">17532 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17533" class="LineNr">17533 </span> 89/<- %esp 5/r32/ebp -<span id="L17534" class="LineNr">17534 </span> 5d/pop-to-ebp -<span id="L17535" class="LineNr">17535 </span> c3/return -<span id="L17536" class="LineNr">17536 </span> -<span id="L17537" class="LineNr">17537 </span><span class="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="L17538" class="LineNr">17538 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17539" class="LineNr">17539 </span> 55/push-ebp -<span id="L17540" class="LineNr">17540 </span> 89/<- %ebp 4/r32/esp -<span id="L17541" class="LineNr">17541 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17542" class="LineNr">17542 </span> 50/push-eax -<span id="L17543" class="LineNr">17543 </span> 56/push-esi -<span id="L17544" class="LineNr">17544 </span> 57/push-edi -<span id="L17545" class="LineNr">17545 </span> <span class="subxComment"># esi = stmt</span> -<span id="L17546" class="LineNr">17546 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17547" class="LineNr">17547 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17548" class="LineNr">17548 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17549" class="LineNr">17549 </span> 89/<- %edi 0/r32/eax -<span id="L17550" class="LineNr">17550 </span> <span class="subxComment">#</span> -<span id="L17551" class="LineNr">17551 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17552" class="LineNr">17552 </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="L17553" class="LineNr">17553 </span> (<a href='mu.subx.html#L17567'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17554" class="LineNr">17554 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17555" class="LineNr">17555 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L17556" class="LineNr">17556 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17557" class="LineNr">17557 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: -<span id="L17558" class="LineNr">17558 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17559" class="LineNr">17559 </span> 5f/pop-to-edi -<span id="L17560" class="LineNr">17560 </span> 5e/pop-to-esi -<span id="L17561" class="LineNr">17561 </span> 58/pop-to-eax -<span id="L17562" class="LineNr">17562 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17563" class="LineNr">17563 </span> 89/<- %esp 5/r32/ebp -<span id="L17564" class="LineNr">17564 </span> 5d/pop-to-ebp -<span id="L17565" class="LineNr">17565 </span> c3/return -<span id="L17566" class="LineNr">17566 </span> -<span id="L17567" class="LineNr">17567 </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="L17568" class="LineNr">17568 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17569" class="LineNr">17569 </span> 55/push-ebp -<span id="L17570" class="LineNr">17570 </span> 89/<- %ebp 4/r32/esp -<span id="L17571" class="LineNr">17571 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L17572" class="LineNr">17572 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17573" class="LineNr">17573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17574" class="LineNr">17574 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17575" class="LineNr">17575 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17576" class="LineNr">17576 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17577" class="LineNr">17577 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L17578" class="LineNr">17578 </span> <span class="subxComment"># t = t->right</span> -<span id="L17579" class="LineNr">17579 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: -<span id="L17580" class="LineNr">17580 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17581" class="LineNr">17581 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17582" class="LineNr">17582 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17583" class="LineNr">17583 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L17584" class="LineNr">17584 </span> <span class="subxComment"># t = t->right</span> -<span id="L17585" class="LineNr">17585 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: -<span id="L17586" class="LineNr">17586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17587" class="LineNr">17587 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17588" class="LineNr">17588 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L17589" class="LineNr">17589 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L17590" class="LineNr">17590 </span> { -<span id="L17591" class="LineNr">17591 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17592" class="LineNr">17592 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17593" class="LineNr">17593 </span> } -<span id="L17594" class="LineNr">17594 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L17595" class="LineNr">17595 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L17596" class="LineNr">17596 </span> (<a href='mu.subx.html#L15000'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L17597" class="LineNr">17597 </span><span class="Constant">$addr-handle-payload-size:end</span>: -<span id="L17598" class="LineNr">17598 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17599" class="LineNr">17599 </span> 89/<- %esp 5/r32/ebp -<span id="L17600" class="LineNr">17600 </span> 5d/pop-to-ebp -<span id="L17601" class="LineNr">17601 </span> c3/return -<span id="L17602" class="LineNr">17602 </span> -<span id="L17603" class="LineNr">17603 </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="L17604" class="LineNr">17604 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17605" class="LineNr">17605 </span> 55/push-ebp -<span id="L17606" class="LineNr">17606 </span> 89/<- %ebp 4/r32/esp -<span id="L17607" class="LineNr">17607 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L17608" class="LineNr">17608 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17609" class="LineNr">17609 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17610" class="LineNr">17610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17611" class="LineNr">17611 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17612" class="LineNr">17612 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17613" class="LineNr">17613 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L17614" class="LineNr">17614 </span> <span class="subxComment"># t = t->right</span> -<span id="L17615" class="LineNr">17615 </span><span class="Constant">$addr-payload-size:skip-addr</span>: -<span id="L17616" class="LineNr">17616 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17617" class="LineNr">17617 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17618" class="LineNr">17618 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L17619" class="LineNr">17619 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L17620" class="LineNr">17620 </span> { -<span id="L17621" class="LineNr">17621 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17622" class="LineNr">17622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17623" class="LineNr">17623 </span> } -<span id="L17624" class="LineNr">17624 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L17625" class="LineNr">17625 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L17626" class="LineNr">17626 </span> (<a href='mu.subx.html#L15000'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L17627" class="LineNr">17627 </span><span class="Constant">$addr-payload-size:end</span>: -<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">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="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="subxS1Comment"># . save registers</span> -<span id="L17638" class="LineNr">17638 </span> 50/push-eax -<span id="L17639" class="LineNr">17639 </span> 51/push-ecx -<span id="L17640" class="LineNr">17640 </span> 56/push-esi -<span id="L17641" class="LineNr">17641 </span> 57/push-edi -<span id="L17642" class="LineNr">17642 </span> <span class="subxComment"># esi = stmt</span> -<span id="L17643" class="LineNr">17643 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17644" class="LineNr">17644 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17645" class="LineNr">17645 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17646" class="LineNr">17646 </span> 89/<- %edi 0/r32/eax -<span id="L17647" class="LineNr">17647 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L17648" class="LineNr">17648 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17649" class="LineNr">17649 </span> 89/<- %ecx 0/r32/eax -<span id="L17650" class="LineNr">17650 </span> <span class="subxComment">#</span> -<span id="L17651" class="LineNr">17651 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17652" class="LineNr">17652 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../308allocate-array.subx.html#L5'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> "</span>) -<span id="L17653" class="LineNr">17653 </span> (<a href='mu.subx.html#L17782'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17654" class="LineNr">17654 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17655" class="LineNr">17655 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L17656" class="LineNr">17656 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L17657" class="LineNr">17657 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17658" class="LineNr">17658 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: -<span id="L17659" class="LineNr">17659 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17660" class="LineNr">17660 </span> 5f/pop-to-edi -<span id="L17661" class="LineNr">17661 </span> 5e/pop-to-esi -<span id="L17662" class="LineNr">17662 </span> 59/pop-to-ecx -<span id="L17663" class="LineNr">17663 </span> 58/pop-to-eax -<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="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="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="subxS1Comment"># . save registers</span> -<span id="L17674" class="LineNr">17674 </span> 50/push-eax -<span id="L17675" class="LineNr">17675 </span> 51/push-ecx -<span id="L17676" class="LineNr">17676 </span> 56/push-esi -<span id="L17677" class="LineNr">17677 </span> 57/push-edi -<span id="L17678" class="LineNr">17678 </span> <span class="subxComment"># esi = stmt</span> -<span id="L17679" class="LineNr">17679 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17680" class="LineNr">17680 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17681" class="LineNr">17681 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17682" class="LineNr">17682 </span> 89/<- %edi 0/r32/eax -<span id="L17683" class="LineNr">17683 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L17684" class="LineNr">17684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17685" class="LineNr">17685 </span> 89/<- %ecx 0/r32/eax -<span id="L17686" class="LineNr">17686 </span> <span class="subxComment">#</span> -<span id="L17687" class="LineNr">17687 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17688" class="LineNr">17688 </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="L17689" class="LineNr">17689 </span> (<a href='mu.subx.html#L17825'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17690" class="LineNr">17690 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17691" class="LineNr">17691 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L17692" class="LineNr">17692 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L17693" class="LineNr">17693 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17694" class="LineNr">17694 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: -<span id="L17695" class="LineNr">17695 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17696" class="LineNr">17696 </span> 5f/pop-to-edi -<span id="L17697" class="LineNr">17697 </span> 5e/pop-to-esi -<span id="L17698" class="LineNr">17698 </span> 59/pop-to-ecx -<span id="L17699" class="LineNr">17699 </span> 58/pop-to-eax -<span id="L17700" class="LineNr">17700 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17701" class="LineNr">17701 </span> 89/<- %esp 5/r32/ebp -<span id="L17702" class="LineNr">17702 </span> 5d/pop-to-ebp -<span id="L17703" class="LineNr">17703 </span> c3/return -<span id="L17704" class="LineNr">17704 </span> -<span id="L17705" class="LineNr">17705 </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="L17706" class="LineNr">17706 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17707" class="LineNr">17707 </span> 55/push-ebp -<span id="L17708" class="LineNr">17708 </span> 89/<- %ebp 4/r32/esp -<span id="L17709" class="LineNr">17709 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17710" class="LineNr">17710 </span> 50/push-eax -<span id="L17711" class="LineNr">17711 </span> 51/push-ecx -<span id="L17712" class="LineNr">17712 </span> 56/push-esi -<span id="L17713" class="LineNr">17713 </span> 57/push-edi -<span id="L17714" class="LineNr">17714 </span> <span class="subxComment"># esi = stmt</span> -<span id="L17715" class="LineNr">17715 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17716" class="LineNr">17716 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17717" class="LineNr">17717 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17718" class="LineNr">17718 </span> 89/<- %ecx 0/r32/eax -<span id="L17719" class="LineNr">17719 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L17720" class="LineNr">17720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17721" class="LineNr">17721 </span> 89/<- %edi 0/r32/eax -<span id="L17722" class="LineNr">17722 </span> <span class="subxComment">#</span> -<span id="L17723" class="LineNr">17723 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17724" class="LineNr">17724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) -<span id="L17725" class="LineNr">17725 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L17726" class="LineNr">17726 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L17727" class="LineNr">17727 </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="L17728" class="LineNr">17728 </span> (<a href='mu.subx.html#L17603'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17729" class="LineNr">17729 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17730" class="LineNr">17730 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17731" class="LineNr">17731 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: -<span id="L17732" class="LineNr">17732 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17733" class="LineNr">17733 </span> 5f/pop-to-edi -<span id="L17734" class="LineNr">17734 </span> 5e/pop-to-esi -<span id="L17735" class="LineNr">17735 </span> 59/pop-to-ecx -<span id="L17736" class="LineNr">17736 </span> 58/pop-to-eax -<span id="L17737" class="LineNr">17737 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17738" class="LineNr">17738 </span> 89/<- %esp 5/r32/ebp -<span id="L17739" class="LineNr">17739 </span> 5d/pop-to-ebp -<span id="L17740" class="LineNr">17740 </span> c3/return -<span id="L17741" class="LineNr">17741 </span> -<span id="L17742" class="LineNr">17742 </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="L17743" class="LineNr">17743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17744" class="LineNr">17744 </span> 55/push-ebp -<span id="L17745" class="LineNr">17745 </span> 89/<- %ebp 4/r32/esp -<span id="L17746" class="LineNr">17746 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17747" class="LineNr">17747 </span> 50/push-eax -<span id="L17748" class="LineNr">17748 </span> 51/push-ecx -<span id="L17749" class="LineNr">17749 </span> 56/push-esi -<span id="L17750" class="LineNr">17750 </span> 57/push-edi -<span id="L17751" class="LineNr">17751 </span> <span class="subxComment"># esi = stmt</span> -<span id="L17752" class="LineNr">17752 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17753" class="LineNr">17753 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L17754" class="LineNr">17754 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17755" class="LineNr">17755 </span> 89/<- %ecx 0/r32/eax -<span id="L17756" class="LineNr">17756 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L17757" class="LineNr">17757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17758" class="LineNr">17758 </span> 89/<- %edi 0/r32/eax -<span id="L17759" class="LineNr">17759 </span> <span class="subxComment">#</span> -<span id="L17760" class="LineNr">17760 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17761" class="LineNr">17761 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) -<span id="L17762" class="LineNr">17762 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L17763" class="LineNr">17763 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L17764" class="LineNr">17764 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L17765" class="LineNr">17765 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L17766" class="LineNr">17766 </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="L17767" class="LineNr">17767 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L17768" class="LineNr">17768 </span> (<a href='mu.subx.html#L17603'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L17769" class="LineNr">17769 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L17770" class="LineNr">17770 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L17771" class="LineNr">17771 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: -<span id="L17772" class="LineNr">17772 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17773" class="LineNr">17773 </span> 5f/pop-to-edi -<span id="L17774" class="LineNr">17774 </span> 5e/pop-to-esi -<span id="L17775" class="LineNr">17775 </span> 59/pop-to-ecx -<span id="L17776" class="LineNr">17776 </span> 58/pop-to-eax -<span id="L17777" class="LineNr">17777 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17778" class="LineNr">17778 </span> 89/<- %esp 5/r32/ebp -<span id="L17779" class="LineNr">17779 </span> 5d/pop-to-ebp -<span id="L17780" class="LineNr">17780 </span> c3/return -<span id="L17781" class="LineNr">17781 </span> -<span id="L17782" class="LineNr">17782 </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="L17783" class="LineNr">17783 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17784" class="LineNr">17784 </span> 55/push-ebp -<span id="L17785" class="LineNr">17785 </span> 89/<- %ebp 4/r32/esp -<span id="L17786" class="LineNr">17786 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L17787" class="LineNr">17787 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17788" class="LineNr">17788 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17789" class="LineNr">17789 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17790" class="LineNr">17790 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17791" class="LineNr">17791 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17792" class="LineNr">17792 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L17793" class="LineNr">17793 </span> <span class="subxComment"># t = t->right</span> -<span id="L17794" class="LineNr">17794 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: -<span id="L17795" class="LineNr">17795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17796" class="LineNr">17796 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17797" class="LineNr">17797 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17798" class="LineNr">17798 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L17799" class="LineNr">17799 </span> <span class="subxComment"># t = t->right</span> -<span id="L17800" class="LineNr">17800 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: -<span id="L17801" class="LineNr">17801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17802" class="LineNr">17802 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17803" class="LineNr">17803 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17804" class="LineNr">17804 </span> <span class="subxComment"># TODO: check t->left == array</span> -<span id="L17805" class="LineNr">17805 </span> <span class="subxComment"># t = t->right</span> -<span id="L17806" class="LineNr">17806 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: -<span id="L17807" class="LineNr">17807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17808" class="LineNr">17808 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17809" class="LineNr">17809 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L17810" class="LineNr">17810 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L17811" class="LineNr">17811 </span> { -<span id="L17812" class="LineNr">17812 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17813" class="LineNr">17813 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17814" class="LineNr">17814 </span> } -<span id="L17815" class="LineNr">17815 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: -<span id="L17816" class="LineNr">17816 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L17817" class="LineNr">17817 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L17818" class="LineNr">17818 </span> (<a href='mu.subx.html#L17030'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L17819" class="LineNr">17819 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: -<span id="L17820" class="LineNr">17820 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17821" class="LineNr">17821 </span> 89/<- %esp 5/r32/ebp -<span id="L17822" class="LineNr">17822 </span> 5d/pop-to-ebp -<span id="L17823" class="LineNr">17823 </span> c3/return -<span id="L17824" class="LineNr">17824 </span> -<span id="L17825" class="LineNr">17825 </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="L17826" class="LineNr">17826 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17827" class="LineNr">17827 </span> 55/push-ebp -<span id="L17828" class="LineNr">17828 </span> 89/<- %ebp 4/r32/esp -<span id="L17829" class="LineNr">17829 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L17830" class="LineNr">17830 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17831" class="LineNr">17831 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17832" class="LineNr">17832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17833" class="LineNr">17833 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17834" class="LineNr">17834 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17835" class="LineNr">17835 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L17836" class="LineNr">17836 </span> <span class="subxComment"># t = t->right</span> -<span id="L17837" class="LineNr">17837 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: -<span id="L17838" class="LineNr">17838 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17839" class="LineNr">17839 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17840" class="LineNr">17840 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17841" class="LineNr">17841 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L17842" class="LineNr">17842 </span> <span class="subxComment"># t = t->right</span> -<span id="L17843" class="LineNr">17843 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: -<span id="L17844" class="LineNr">17844 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17845" class="LineNr">17845 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17846" class="LineNr">17846 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L17847" class="LineNr">17847 </span> <span class="subxComment"># TODO: check t->left == stream</span> -<span id="L17848" class="LineNr">17848 </span> <span class="subxComment"># t = t->right</span> -<span id="L17849" class="LineNr">17849 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: -<span id="L17850" class="LineNr">17850 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17851" class="LineNr">17851 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L17852" class="LineNr">17852 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L17853" class="LineNr">17853 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L17854" class="LineNr">17854 </span> { -<span id="L17855" class="LineNr">17855 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17856" class="LineNr">17856 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17857" class="LineNr">17857 </span> } -<span id="L17858" class="LineNr">17858 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: -<span id="L17859" class="LineNr">17859 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L17860" class="LineNr">17860 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L17861" class="LineNr">17861 </span> (<a href='mu.subx.html#L17030'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L17862" class="LineNr">17862 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: -<span id="L17863" class="LineNr">17863 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17864" class="LineNr">17864 </span> 89/<- %esp 5/r32/ebp -<span id="L17865" class="LineNr">17865 </span> 5d/pop-to-ebp -<span id="L17866" class="LineNr">17866 </span> c3/return -<span id="L17867" class="LineNr">17867 </span> -<span id="L17868" class="LineNr">17868 </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="L17869" class="LineNr">17869 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L17870" class="LineNr">17870 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17871" class="LineNr">17871 </span> 55/push-ebp -<span id="L17872" class="LineNr">17872 </span> 89/<- %ebp 4/r32/esp -<span id="L17873" class="LineNr">17873 </span> <span class="subxComment"># eax = n</span> -<span id="L17874" class="LineNr">17874 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17875" class="LineNr">17875 </span> <span class="subxComment"># if (n < 0) abort</span> -<span id="L17876" class="LineNr">17876 </span> 3d/compare-eax-with 0/imm32 -<span id="L17877" class="LineNr">17877 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 -<span id="L17878" class="LineNr">17878 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> -<span id="L17879" class="LineNr">17879 </span> 48/decrement-eax -<span id="L17880" class="LineNr">17880 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> -<span id="L17881" class="LineNr">17881 </span> 23/and-> *(ebp+8) 0/r32/eax -<span id="L17882" class="LineNr">17882 </span> <span class="subxComment"># return (tmp2 == 0)</span> -<span id="L17883" class="LineNr">17883 </span> 3d/compare-eax-and 0/imm32 -<span id="L17884" class="LineNr">17884 </span> 0f 94/set-byte-if-= %al -<span id="L17885" class="LineNr">17885 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17886" class="LineNr">17886 </span><span class="Constant">$power-of-2?:end</span>: -<span id="L17887" class="LineNr">17887 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17888" class="LineNr">17888 </span> 89/<- %esp 5/r32/ebp -<span id="L17889" class="LineNr">17889 </span> 5d/pop-to-ebp -<span id="L17890" class="LineNr">17890 </span> c3/return -<span id="L17891" class="LineNr">17891 </span> -<span id="L17892" class="LineNr">17892 </span><span class="Constant">$power-of-2?:abort</span>: -<span id="L17893" class="LineNr">17893 </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="L17894" class="LineNr">17894 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L17895" class="LineNr">17895 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L17896" class="LineNr">17896 </span> <span class="subxComment"># never gets here</span> -<span id="L17897" class="LineNr">17897 </span> -<span id="L17898" class="LineNr">17898 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> -<span id="L17899" class="LineNr">17899 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> -<span id="L17900" class="LineNr">17900 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17901" class="LineNr">17901 </span> 55/push-ebp -<span id="L17902" class="LineNr">17902 </span> 89/<- %ebp 4/r32/esp -<span id="L17903" class="LineNr">17903 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17904" class="LineNr">17904 </span> 51/push-ecx -<span id="L17905" class="LineNr">17905 </span> <span class="subxComment"># var curr/ecx: int = n</span> -<span id="L17906" class="LineNr">17906 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L17907" class="LineNr">17907 </span> <span class="subxComment"># result = 0</span> -<span id="L17908" class="LineNr">17908 </span> b8/copy-to-eax 0/imm32 -<span id="L17909" class="LineNr">17909 </span> { -<span id="L17910" class="LineNr">17910 </span> <span class="subxComment"># if (curr <= 1) break</span> -<span id="L17911" class="LineNr">17911 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L17912" class="LineNr">17912 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L17913" class="LineNr">17913 </span> 40/increment-eax -<span id="L17914" class="LineNr">17914 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 -<span id="L17915" class="LineNr">17915 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L17916" class="LineNr">17916 </span> } -<span id="L17917" class="LineNr">17917 </span><span class="Constant">$num-shift-rights:end</span>: -<span id="L17918" class="LineNr">17918 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17919" class="LineNr">17919 </span> 59/pop-to-ecx -<span id="L17920" class="LineNr">17920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17921" class="LineNr">17921 </span> 89/<- %esp 5/r32/ebp -<span id="L17922" class="LineNr">17922 </span> 5d/pop-to-ebp -<span id="L17923" class="LineNr">17923 </span> c3/return -<span id="L17924" class="LineNr">17924 </span> -<span id="L17925" class="LineNr">17925 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> -<span id="L17926" class="LineNr">17926 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17927" class="LineNr">17927 </span> 55/push-ebp -<span id="L17928" class="LineNr">17928 </span> 89/<- %ebp 4/r32/esp -<span id="L17929" class="LineNr">17929 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> -<span id="L17930" class="LineNr">17930 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17931" class="LineNr">17931 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17932" class="LineNr">17932 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L17933" class="LineNr">17933 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> -<span id="L17934" class="LineNr">17934 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L17935" class="LineNr">17935 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> -<span id="L17936" class="LineNr">17936 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17937" class="LineNr">17937 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> -<span id="L17938" class="LineNr">17938 </span><span class="CommentedCode">#? 50/push-eax</span> -<span id="L17939" class="LineNr">17939 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L17940" class="LineNr">17940 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L17941" class="LineNr">17941 </span><span class="CommentedCode">#? 58/pop-to-eax</span> -<span id="L17942" class="LineNr">17942 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L17943" class="LineNr">17943 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17944" class="LineNr">17944 </span> <span class="subxComment"># return output-var->stack-offset</span> -<span id="L17945" class="LineNr">17945 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L17946" class="LineNr">17946 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L17947" class="LineNr">17947 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17948" class="LineNr">17948 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L17949" class="LineNr">17949 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17950" class="LineNr">17950 </span><span class="Constant">$emit-get-offset:end</span>: -<span id="L17951" class="LineNr">17951 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17952" class="LineNr">17952 </span> 89/<- %esp 5/r32/ebp -<span id="L17953" class="LineNr">17953 </span> 5d/pop-to-ebp -<span id="L17954" class="LineNr">17954 </span> c3/return -<span id="L17955" class="LineNr">17955 </span> -<span id="L17956" class="LineNr">17956 </span><span class="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="L17957" class="LineNr">17957 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17958" class="LineNr">17958 </span> 55/push-ebp -<span id="L17959" class="LineNr">17959 </span> 89/<- %ebp 4/r32/esp -<span id="L17960" class="LineNr">17960 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17961" class="LineNr">17961 </span> 50/push-eax -<span id="L17962" class="LineNr">17962 </span> 51/push-ecx -<span id="L17963" class="LineNr">17963 </span> 56/push-esi -<span id="L17964" class="LineNr">17964 </span> <span class="subxComment"># esi = block</span> -<span id="L17965" class="LineNr">17965 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17966" class="LineNr">17966 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> -<span id="L17967" class="LineNr">17967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L17968" class="LineNr">17968 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 1/r32/ecx -<span id="L17969" class="LineNr">17969 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L17970" class="LineNr">17970 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L17971" class="LineNr">17971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L17972" class="LineNr">17972 </span> <span class="subxComment">#</span> -<span id="L17973" class="LineNr">17973 </span> { -<span id="L17974" class="LineNr">17974 </span><span class="Constant">$emit-subx-block:check-empty</span>: -<span id="L17975" class="LineNr">17975 </span> 3d/compare-eax-and 0/imm32 -<span id="L17976" class="LineNr">17976 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17977" class="LineNr">17977 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17978" class="LineNr">17978 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) -<span id="L17979" class="LineNr">17979 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> -<span id="L17980" class="LineNr">17980 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L17981" class="LineNr">17981 </span> 89/<- %ecx 0/r32/eax -<span id="L17982" class="LineNr">17982 </span> <span class="subxComment">#</span> -<span id="L17983" class="LineNr">17983 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17984" class="LineNr">17984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L17985" class="LineNr">17985 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) -<span id="L17986" class="LineNr">17986 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> -<span id="L17987" class="LineNr">17987 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L17988" class="LineNr">17988 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L17989" class="LineNr">17989 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L17990" class="LineNr">17990 </span> <span class="subxComment"># emit block->statements</span> -<span id="L17991" class="LineNr">17991 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L17992" class="LineNr">17992 </span> (<a href='mu.subx.html#L15327'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17993" class="LineNr">17993 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L17994" class="LineNr">17994 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L17995" class="LineNr">17995 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L17996" class="LineNr">17996 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> -<span id="L17997" class="LineNr">17997 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L17998" class="LineNr">17998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) -<span id="L17999" class="LineNr">17999 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18000" class="LineNr">18000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L18001" class="LineNr">18001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) -<span id="L18002" class="LineNr">18002 </span> } -<span id="L18003" class="LineNr">18003 </span><span class="Constant">$emit-subx-block:end</span>: -<span id="L18004" class="LineNr">18004 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18005" class="LineNr">18005 </span> 5e/pop-to-esi -<span id="L18006" class="LineNr">18006 </span> 59/pop-to-ecx -<span id="L18007" class="LineNr">18007 </span> 58/pop-to-eax -<span id="L18008" class="LineNr">18008 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18009" class="LineNr">18009 </span> 89/<- %esp 5/r32/ebp -<span id="L18010" class="LineNr">18010 </span> 5d/pop-to-ebp -<span id="L18011" class="LineNr">18011 </span> c3/return -<span id="L18012" class="LineNr">18012 </span> -<span id="L18013" class="LineNr">18013 </span><span class="subxComment"># Primitives supported</span> -<span id="L18014" class="LineNr">18014 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> -<span id="L18015" class="LineNr">18015 </span><span class="subxComment">#</span> -<span id="L18016" class="LineNr">18016 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> -<span id="L18017" class="LineNr">18017 </span><span class="subxComment">#</span> -<span id="L18018" class="LineNr">18018 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> -<span id="L18019" class="LineNr">18019 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> -<span id="L18020" class="LineNr">18020 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> -<span id="L18021" class="LineNr">18021 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> -<span id="L18022" class="LineNr">18022 </span><span class="subxComment">#</span> -<span id="L18023" class="LineNr">18023 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> -<span id="L18024" class="LineNr">18024 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> -<span id="L18025" class="LineNr">18025 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> -<span id="L18026" class="LineNr">18026 </span><span class="subxComment">#</span> -<span id="L18027" class="LineNr">18027 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> -<span id="L18028" class="LineNr">18028 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> -<span id="L18029" class="LineNr">18029 </span><span class="subxComment">#</span> -<span id="L18030" class="LineNr">18030 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> -<span id="L18031" class="LineNr">18031 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> -<span id="L18032" class="LineNr">18032 </span><span class="subxComment"># as usual.</span> -<span id="L18033" class="LineNr">18033 </span><span class="subxComment">#</span> -<span id="L18034" class="LineNr">18034 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> -<span id="L18035" class="LineNr">18035 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> -<span id="L18036" class="LineNr">18036 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> -<span id="L18037" class="LineNr">18037 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> -<span id="L18038" class="LineNr">18038 </span><span class="subxComment"># 0 0 # inouts</span> -<span id="L18039" class="LineNr">18039 </span><span class="subxComment"># 0x11 @(0x11/payload</span> -<span id="L18040" class="LineNr">18040 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> -<span id="L18041" class="LineNr">18041 </span><span class="subxComment"># 0 0 # Var-name</span> -<span id="L18042" class="LineNr">18042 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> -<span id="L18043" class="LineNr">18043 </span><span class="subxComment"># 1/is-atom</span> -<span id="L18044" class="LineNr">18044 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> -<span id="L18045" class="LineNr">18045 </span><span class="subxComment"># 0 0 # Type-tree-right</span> -<span id="L18046" class="LineNr">18046 </span><span class="subxComment"># )</span> -<span id="L18047" class="LineNr">18047 </span><span class="subxComment"># 1 # block-depth</span> -<span id="L18048" class="LineNr">18048 </span><span class="subxComment"># 0 # stack-offset</span> -<span id="L18049" class="LineNr">18049 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> -<span id="L18050" class="LineNr">18050 </span><span class="subxComment"># )</span> -<span id="L18051" class="LineNr">18051 </span><span class="subxComment"># 0 0) # List-next</span> -<span id="L18052" class="LineNr">18052 </span><span class="subxComment"># ...</span> -<span id="L18053" class="LineNr">18053 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> -<span id="L18054" class="LineNr">18054 </span><span class="subxComment"># ...</span> -<span id="L18055" class="LineNr">18055 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> -<span id="L18056" class="LineNr">18056 </span><span class="subxComment"># to learn here, so may be worth trying.</span> -<span id="L18057" class="LineNr">18057 </span><span class="subxComment">#</span> -<span id="L18058" class="LineNr">18058 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> -<span id="L18059" class="LineNr">18059 </span><span class="subxComment">#</span> -<span id="L18060" class="LineNr">18060 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> -<span id="L18061" class="LineNr">18061 </span><span class="subxComment"># to date.</span> -<span id="L18062" class="LineNr">18062 </span>== data -<span id="L18063" class="LineNr">18063 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L18064" class="LineNr">18064 </span><span class="subxH1Comment"># - increment/decrement</span> -<span id="L18065" class="LineNr">18065 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L18066" class="LineNr">18066 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> -<span id="L18067" class="LineNr">18067 </span> 0x11/imm32/alloc-id:fake -<span id="L18068" class="LineNr">18068 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18069" class="LineNr">18069 </span> 0/imm32/no-inouts -<span id="L18070" class="LineNr">18070 </span> 0/imm32/no-inouts -<span id="L18071" class="LineNr">18071 </span> 0x11/imm32/alloc-id:fake -<span id="L18072" class="LineNr">18072 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18073" class="LineNr">18073 </span> 0x11/imm32/alloc-id:fake -<span id="L18074" class="LineNr">18074 </span> <a href='mu.subx.html#L21929'>_string_40_increment_eax</a>/imm32/subx-name -<span id="L18075" class="LineNr">18075 </span> 0/imm32/no-rm32 -<span id="L18076" class="LineNr">18076 </span> 0/imm32/no-r32 -<span id="L18077" class="LineNr">18077 </span> 0/imm32/no-imm32 -<span id="L18078" class="LineNr">18078 </span> 0/imm32/no-imm8 -<span id="L18079" class="LineNr">18079 </span> 0/imm32/no-disp32 -<span id="L18080" class="LineNr">18080 </span> 0/imm32/no-xm32 -<span id="L18081" class="LineNr">18081 </span> 0/imm32/no-x32 -<span id="L18082" class="LineNr">18082 </span> 0x11/imm32/alloc-id:fake -<span id="L18083" class="LineNr">18083 </span> <a href='mu.subx.html#L18084'>_Primitive-increment-ecx</a>/imm32/next -<span id="L18084" class="LineNr">18084 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18085" class="LineNr">18085 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18086" class="LineNr">18086 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> -<span id="L18087" class="LineNr">18087 </span> 0x11/imm32/alloc-id:fake -<span id="L18088" class="LineNr">18088 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18089" class="LineNr">18089 </span> 0/imm32/no-inouts -<span id="L18090" class="LineNr">18090 </span> 0/imm32/no-inouts -<span id="L18091" class="LineNr">18091 </span> 0x11/imm32/alloc-id:fake -<span id="L18092" class="LineNr">18092 </span> <span class="SpecialChar"><a href='mu.subx.html#L22312'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L18093" class="LineNr">18093 </span> 0x11/imm32/alloc-id:fake -<span id="L18094" class="LineNr">18094 </span> <a href='mu.subx.html#L21934'>_string_41_increment_ecx</a>/imm32/subx-name -<span id="L18095" class="LineNr">18095 </span> 0/imm32/no-rm32 -<span id="L18096" class="LineNr">18096 </span> 0/imm32/no-r32 -<span id="L18097" class="LineNr">18097 </span> 0/imm32/no-imm32 -<span id="L18098" class="LineNr">18098 </span> 0/imm32/no-imm8 -<span id="L18099" class="LineNr">18099 </span> 0/imm32/no-disp32 -<span id="L18100" class="LineNr">18100 </span> 0/imm32/no-xm32 -<span id="L18101" class="LineNr">18101 </span> 0/imm32/no-x32 -<span id="L18102" class="LineNr">18102 </span> 0x11/imm32/alloc-id:fake -<span id="L18103" class="LineNr">18103 </span> <a href='mu.subx.html#L18104'>_Primitive-increment-edx</a>/imm32/next -<span id="L18104" class="LineNr">18104 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18105" class="LineNr">18105 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18106" class="LineNr">18106 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> -<span id="L18107" class="LineNr">18107 </span> 0x11/imm32/alloc-id:fake -<span id="L18108" class="LineNr">18108 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18109" class="LineNr">18109 </span> 0/imm32/no-inouts -<span id="L18110" class="LineNr">18110 </span> 0/imm32/no-inouts -<span id="L18111" class="LineNr">18111 </span> 0x11/imm32/alloc-id:fake -<span id="L18112" class="LineNr">18112 </span> <span class="SpecialChar"><a href='mu.subx.html#L22330'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L18113" class="LineNr">18113 </span> 0x11/imm32/alloc-id:fake -<span id="L18114" class="LineNr">18114 </span> <a href='mu.subx.html#L21939'>_string_42_increment_edx</a>/imm32/subx-name -<span id="L18115" class="LineNr">18115 </span> 0/imm32/no-rm32 -<span id="L18116" class="LineNr">18116 </span> 0/imm32/no-r32 -<span id="L18117" class="LineNr">18117 </span> 0/imm32/no-imm32 -<span id="L18118" class="LineNr">18118 </span> 0/imm32/no-imm8 -<span id="L18119" class="LineNr">18119 </span> 0/imm32/no-disp32 -<span id="L18120" class="LineNr">18120 </span> 0/imm32/no-xm32 -<span id="L18121" class="LineNr">18121 </span> 0/imm32/no-x32 -<span id="L18122" class="LineNr">18122 </span> 0x11/imm32/alloc-id:fake -<span id="L18123" class="LineNr">18123 </span> <a href='mu.subx.html#L18124'>_Primitive-increment-ebx</a>/imm32/next -<span id="L18124" class="LineNr">18124 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18125" class="LineNr">18125 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18126" class="LineNr">18126 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> -<span id="L18127" class="LineNr">18127 </span> 0x11/imm32/alloc-id:fake -<span id="L18128" class="LineNr">18128 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18129" class="LineNr">18129 </span> 0/imm32/no-inouts -<span id="L18130" class="LineNr">18130 </span> 0/imm32/no-inouts -<span id="L18131" class="LineNr">18131 </span> 0x11/imm32/alloc-id:fake -<span id="L18132" class="LineNr">18132 </span> <span class="SpecialChar"><a href='mu.subx.html#L22348'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L18133" class="LineNr">18133 </span> 0x11/imm32/alloc-id:fake -<span id="L18134" class="LineNr">18134 </span> <a href='mu.subx.html#L21944'>_string_43_increment_ebx</a>/imm32/subx-name -<span id="L18135" class="LineNr">18135 </span> 0/imm32/no-rm32 -<span id="L18136" class="LineNr">18136 </span> 0/imm32/no-r32 -<span id="L18137" class="LineNr">18137 </span> 0/imm32/no-imm32 -<span id="L18138" class="LineNr">18138 </span> 0/imm32/no-imm8 -<span id="L18139" class="LineNr">18139 </span> 0/imm32/no-disp32 -<span id="L18140" class="LineNr">18140 </span> 0/imm32/no-xm32 -<span id="L18141" class="LineNr">18141 </span> 0/imm32/no-x32 -<span id="L18142" class="LineNr">18142 </span> 0x11/imm32/alloc-id:fake -<span id="L18143" class="LineNr">18143 </span> <a href='mu.subx.html#L18144'>_Primitive-increment-esi</a>/imm32/next -<span id="L18144" class="LineNr">18144 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18145" class="LineNr">18145 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18146" class="LineNr">18146 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> -<span id="L18147" class="LineNr">18147 </span> 0x11/imm32/alloc-id:fake -<span id="L18148" class="LineNr">18148 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18149" class="LineNr">18149 </span> 0/imm32/no-inouts -<span id="L18150" class="LineNr">18150 </span> 0/imm32/no-inouts -<span id="L18151" class="LineNr">18151 </span> 0x11/imm32/alloc-id:fake -<span id="L18152" class="LineNr">18152 </span> <span class="SpecialChar"><a href='mu.subx.html#L22366'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L18153" class="LineNr">18153 </span> 0x11/imm32/alloc-id:fake -<span id="L18154" class="LineNr">18154 </span> <a href='mu.subx.html#L21949'>_string_46_increment_esi</a>/imm32/subx-name -<span id="L18155" class="LineNr">18155 </span> 0/imm32/no-rm32 -<span id="L18156" class="LineNr">18156 </span> 0/imm32/no-r32 -<span id="L18157" class="LineNr">18157 </span> 0/imm32/no-imm32 -<span id="L18158" class="LineNr">18158 </span> 0/imm32/no-imm8 -<span id="L18159" class="LineNr">18159 </span> 0/imm32/no-disp32 -<span id="L18160" class="LineNr">18160 </span> 0/imm32/no-xm32 -<span id="L18161" class="LineNr">18161 </span> 0/imm32/no-x32 -<span id="L18162" class="LineNr">18162 </span> 0x11/imm32/alloc-id:fake -<span id="L18163" class="LineNr">18163 </span> <a href='mu.subx.html#L18164'>_Primitive-increment-edi</a>/imm32/next -<span id="L18164" class="LineNr">18164 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18165" class="LineNr">18165 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18166" class="LineNr">18166 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> -<span id="L18167" class="LineNr">18167 </span> 0x11/imm32/alloc-id:fake -<span id="L18168" class="LineNr">18168 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18169" class="LineNr">18169 </span> 0/imm32/no-inouts -<span id="L18170" class="LineNr">18170 </span> 0/imm32/no-inouts -<span id="L18171" class="LineNr">18171 </span> 0x11/imm32/alloc-id:fake -<span id="L18172" class="LineNr">18172 </span> <span class="SpecialChar"><a href='mu.subx.html#L22384'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L18173" class="LineNr">18173 </span> 0x11/imm32/alloc-id:fake -<span id="L18174" class="LineNr">18174 </span> <a href='mu.subx.html#L21954'>_string_47_increment_edi</a>/imm32/subx-name -<span id="L18175" class="LineNr">18175 </span> 0/imm32/no-rm32 -<span id="L18176" class="LineNr">18176 </span> 0/imm32/no-r32 -<span id="L18177" class="LineNr">18177 </span> 0/imm32/no-imm32 -<span id="L18178" class="LineNr">18178 </span> 0/imm32/no-imm8 -<span id="L18179" class="LineNr">18179 </span> 0/imm32/no-disp32 -<span id="L18180" class="LineNr">18180 </span> 0/imm32/no-xm32 -<span id="L18181" class="LineNr">18181 </span> 0/imm32/no-x32 -<span id="L18182" class="LineNr">18182 </span> 0x11/imm32/alloc-id:fake -<span id="L18183" class="LineNr">18183 </span> <a href='mu.subx.html#L18184'>_Primitive-decrement-eax</a>/imm32/next -<span id="L18184" class="LineNr">18184 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18185" class="LineNr">18185 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18186" class="LineNr">18186 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> -<span id="L18187" class="LineNr">18187 </span> 0x11/imm32/alloc-id:fake -<span id="L18188" class="LineNr">18188 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name -<span id="L18189" class="LineNr">18189 </span> 0/imm32/no-inouts -<span id="L18190" class="LineNr">18190 </span> 0/imm32/no-inouts -<span id="L18191" class="LineNr">18191 </span> 0x11/imm32/alloc-id:fake -<span id="L18192" class="LineNr">18192 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18193" class="LineNr">18193 </span> 0x11/imm32/alloc-id:fake -<span id="L18194" class="LineNr">18194 </span> <a href='mu.subx.html#L21959'>_string_48_decrement_eax</a>/imm32/subx-name -<span id="L18195" class="LineNr">18195 </span> 0/imm32/no-rm32 -<span id="L18196" class="LineNr">18196 </span> 0/imm32/no-r32 -<span id="L18197" class="LineNr">18197 </span> 0/imm32/no-imm32 -<span id="L18198" class="LineNr">18198 </span> 0/imm32/no-imm8 -<span id="L18199" class="LineNr">18199 </span> 0/imm32/no-disp32 -<span id="L18200" class="LineNr">18200 </span> 0/imm32/no-xm32 -<span id="L18201" class="LineNr">18201 </span> 0/imm32/no-x32 -<span id="L18202" class="LineNr">18202 </span> 0x11/imm32/alloc-id:fake -<span id="L18203" class="LineNr">18203 </span> <a href='mu.subx.html#L18204'>_Primitive-decrement-ecx</a>/imm32/next -<span id="L18204" class="LineNr">18204 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18205" class="LineNr">18205 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18206" class="LineNr">18206 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L17344" class="LineNr">17344 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: +<span id="L17345" class="LineNr">17345 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> +<span id="L17346" class="LineNr">17346 </span> <span class="subxS1Comment"># . index->register "<<"</span> +<span id="L17347" class="LineNr">17347 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17348" class="LineNr">17348 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17349" class="LineNr">17349 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L17350" class="LineNr">17350 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> +<span id="L17351" class="LineNr">17351 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L17352" class="LineNr">17352 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17353" class="LineNr">17353 </span> (<a href='mu.subx.html#L18038'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17354" class="LineNr">17354 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17355" class="LineNr">17355 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 +<span id="L17356" class="LineNr">17356 </span> } +<span id="L17357" class="LineNr">17357 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L17358" class="LineNr">17358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17359" class="LineNr">17359 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17360" class="LineNr">17360 </span> 0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32 +<span id="L17361" class="LineNr">17361 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L17362" class="LineNr">17362 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17363" class="LineNr">17363 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L17364" class="LineNr">17364 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17365" class="LineNr">17365 </span> { +<span id="L17366" class="LineNr">17366 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17367" class="LineNr">17367 </span> <span class="subxComment"># print index->register</span> +<span id="L17368" class="LineNr">17368 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: +<span id="L17369" class="LineNr">17369 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17370" class="LineNr">17370 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17371" class="LineNr">17371 </span> } +<span id="L17372" class="LineNr">17372 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: +<span id="L17373" class="LineNr">17373 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) +<span id="L17374" class="LineNr">17374 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L17375" class="LineNr">17375 </span> } +<span id="L17376" class="LineNr">17376 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L17377" class="LineNr">17377 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17378" class="LineNr">17378 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L17379" class="LineNr">17379 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17380" class="LineNr">17380 </span> { +<span id="L17381" class="LineNr">17381 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17382" class="LineNr">17382 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: +<span id="L17383" class="LineNr">17383 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> +<span id="L17384" class="LineNr">17384 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17385" class="LineNr">17385 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17386" class="LineNr">17386 </span> 89/<- %edx 0/r32/eax +<span id="L17387" class="LineNr">17387 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> +<span id="L17388" class="LineNr">17388 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17389" class="LineNr">17389 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L17390" class="LineNr">17390 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L17391" class="LineNr">17391 </span> 05/add-to-eax 4/imm32 +<span id="L17392" class="LineNr">17392 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L17393" class="LineNr">17393 </span> <span class="subxComment"># print offset</span> +<span id="L17394" class="LineNr">17394 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17395" class="LineNr">17395 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L17396" class="LineNr">17396 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L17397" class="LineNr">17397 </span> } +<span id="L17398" class="LineNr">17398 </span> <span class="subxComment"># otherwise abort</span> +<span id="L17399" class="LineNr">17399 </span> e9/jump $translate-mu-index-stmt-with-array:error1/disp32 +<span id="L17400" class="LineNr">17400 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: +<span id="L17401" class="LineNr">17401 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L17402" class="LineNr">17402 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L17403" class="LineNr">17403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L17404" class="LineNr">17404 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17405" class="LineNr">17405 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17406" class="LineNr">17406 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L17407" class="LineNr">17407 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L17408" class="LineNr">17408 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L17409" class="LineNr">17409 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: +<span id="L17410" class="LineNr">17410 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17411" class="LineNr">17411 </span> 5b/pop-to-ebx +<span id="L17412" class="LineNr">17412 </span> 5a/pop-to-edx +<span id="L17413" class="LineNr">17413 </span> 59/pop-to-ecx +<span id="L17414" class="LineNr">17414 </span> 58/pop-to-eax +<span id="L17415" class="LineNr">17415 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17416" class="LineNr">17416 </span> 89/<- %esp 5/r32/ebp +<span id="L17417" class="LineNr">17417 </span> 5d/pop-to-ebp +<span id="L17418" class="LineNr">17418 </span> c3/return +<span id="L17419" class="LineNr">17419 </span> +<span id="L17420" class="LineNr">17420 </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="L17421" class="LineNr">17421 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17422" class="LineNr">17422 </span> 55/push-ebp +<span id="L17423" class="LineNr">17423 </span> 89/<- %ebp 4/r32/esp +<span id="L17424" class="LineNr">17424 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17425" class="LineNr">17425 </span> 50/push-eax +<span id="L17426" class="LineNr">17426 </span> 51/push-ecx +<span id="L17427" class="LineNr">17427 </span> 52/push-edx +<span id="L17428" class="LineNr">17428 </span> 53/push-ebx +<span id="L17429" class="LineNr">17429 </span> <span class="subxComment">#</span> +<span id="L17430" class="LineNr">17430 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17431" class="LineNr">17431 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) +<span id="L17432" class="LineNr">17432 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L17433" class="LineNr">17433 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L17434" class="LineNr">17434 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17435" class="LineNr">17435 </span> 89/<- %edx 0/r32/eax +<span id="L17436" class="LineNr">17436 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> +<span id="L17437" class="LineNr">17437 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17438" class="LineNr">17438 </span> 89/<- %ecx 0/r32/eax +<span id="L17439" class="LineNr">17439 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> +<span id="L17440" class="LineNr">17440 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17441" class="LineNr">17441 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L17442" class="LineNr">17442 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17443" class="LineNr">17443 </span> 89/<- %edx 0/r32/eax +<span id="L17444" class="LineNr">17444 </span> <span class="subxComment"># if index->register</span> +<span id="L17445" class="LineNr">17445 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17446" class="LineNr">17446 </span> { +<span id="L17447" class="LineNr">17447 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17448" class="LineNr">17448 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: +<span id="L17449" class="LineNr">17449 </span> <span class="subxComment"># if index is an int</span> +<span id="L17450" class="LineNr">17450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17451" class="LineNr">17451 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L17452" class="LineNr">17452 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17453" class="LineNr">17453 </span> { +<span id="L17454" class="LineNr">17454 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17455" class="LineNr">17455 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: +<span id="L17456" class="LineNr">17456 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> +<span id="L17457" class="LineNr">17457 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> +<span id="L17458" class="LineNr">17458 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17459" class="LineNr">17459 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17460" class="LineNr">17460 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L17461" class="LineNr">17461 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> +<span id="L17462" class="LineNr">17462 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L17463" class="LineNr">17463 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17464" class="LineNr">17464 </span> (<a href='mu.subx.html#L18038'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17465" class="LineNr">17465 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17466" class="LineNr">17466 </span> <span class="subxComment">#</span> +<span id="L17467" class="LineNr">17467 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L17468" class="LineNr">17468 </span> <span class="subxComment">#</span> +<span id="L17469" class="LineNr">17469 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L17470" class="LineNr">17470 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> +<span id="L17471" class="LineNr">17471 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17472" class="LineNr">17472 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 +<span id="L17473" class="LineNr">17473 </span> } +<span id="L17474" class="LineNr">17474 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L17475" class="LineNr">17475 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17476" class="LineNr">17476 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17477" class="LineNr">17477 </span> 0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32 +<span id="L17478" class="LineNr">17478 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L17479" class="LineNr">17479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17480" class="LineNr">17480 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L17481" class="LineNr">17481 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17482" class="LineNr">17482 </span> { +<span id="L17483" class="LineNr">17483 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17484" class="LineNr">17484 </span> <span class="subxComment"># print index->register</span> +<span id="L17485" class="LineNr">17485 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: +<span id="L17486" class="LineNr">17486 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17487" class="LineNr">17487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17488" class="LineNr">17488 </span> } +<span id="L17489" class="LineNr">17489 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: +<span id="L17490" class="LineNr">17490 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L17491" class="LineNr">17491 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L17492" class="LineNr">17492 </span> } +<span id="L17493" class="LineNr">17493 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L17494" class="LineNr">17494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17495" class="LineNr">17495 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L17496" class="LineNr">17496 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17497" class="LineNr">17497 </span> { +<span id="L17498" class="LineNr">17498 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17499" class="LineNr">17499 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: +<span id="L17500" class="LineNr">17500 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> +<span id="L17501" class="LineNr">17501 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17502" class="LineNr">17502 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> +<span id="L17503" class="LineNr">17503 </span> 89/<- %edx 0/r32/eax +<span id="L17504" class="LineNr">17504 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> +<span id="L17505" class="LineNr">17505 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17506" class="LineNr">17506 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L17507" class="LineNr">17507 </span> <span class="subxComment"># offset += base->offset</span> +<span id="L17508" class="LineNr">17508 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L17509" class="LineNr">17509 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L17510" class="LineNr">17510 </span> 05/add-to-eax 4/imm32 +<span id="L17511" class="LineNr">17511 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L17512" class="LineNr">17512 </span> <span class="subxComment"># print offset</span> +<span id="L17513" class="LineNr">17513 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17514" class="LineNr">17514 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L17515" class="LineNr">17515 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L17516" class="LineNr">17516 </span> } +<span id="L17517" class="LineNr">17517 </span> <span class="subxComment"># otherwise abort</span> +<span id="L17518" class="LineNr">17518 </span> e9/jump $translate-mu-index-stmt-with-array:error1/disp32 +<span id="L17519" class="LineNr">17519 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: +<span id="L17520" class="LineNr">17520 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L17521" class="LineNr">17521 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L17522" class="LineNr">17522 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L17523" class="LineNr">17523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17524" class="LineNr">17524 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17525" class="LineNr">17525 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L17526" class="LineNr">17526 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L17527" class="LineNr">17527 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L17528" class="LineNr">17528 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: +<span id="L17529" class="LineNr">17529 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17530" class="LineNr">17530 </span> 5b/pop-to-ebx +<span id="L17531" class="LineNr">17531 </span> 5a/pop-to-edx +<span id="L17532" class="LineNr">17532 </span> 59/pop-to-ecx +<span id="L17533" class="LineNr">17533 </span> 58/pop-to-eax +<span id="L17534" class="LineNr">17534 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17535" class="LineNr">17535 </span> 89/<- %esp 5/r32/ebp +<span id="L17536" class="LineNr">17536 </span> 5d/pop-to-ebp +<span id="L17537" class="LineNr">17537 </span> c3/return +<span id="L17538" class="LineNr">17538 </span> +<span id="L17539" class="LineNr">17539 </span><span class="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="L17540" class="LineNr">17540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17541" class="LineNr">17541 </span> 55/push-ebp +<span id="L17542" class="LineNr">17542 </span> 89/<- %ebp 4/r32/esp +<span id="L17543" class="LineNr">17543 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17544" class="LineNr">17544 </span> 50/push-eax +<span id="L17545" class="LineNr">17545 </span> 51/push-ecx +<span id="L17546" class="LineNr">17546 </span> 52/push-edx +<span id="L17547" class="LineNr">17547 </span> 53/push-ebx +<span id="L17548" class="LineNr">17548 </span> <span class="subxComment">#</span> +<span id="L17549" class="LineNr">17549 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17550" class="LineNr">17550 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) +<span id="L17551" class="LineNr">17551 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L17552" class="LineNr">17552 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L17553" class="LineNr">17553 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17554" class="LineNr">17554 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17555" class="LineNr">17555 </span> 89/<- %ebx 0/r32/eax +<span id="L17556" class="LineNr">17556 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: +<span id="L17557" class="LineNr">17557 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17558" class="LineNr">17558 </span> (<a href='mu.subx.html#L23214'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L17559" class="LineNr">17559 </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="L17560" class="LineNr">17560 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: +<span id="L17561" class="LineNr">17561 </span> <span class="subxComment"># var base/ebx: (addr var)</span> +<span id="L17562" class="LineNr">17562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17563" class="LineNr">17563 </span> 89/<- %ebx 0/r32/eax +<span id="L17564" class="LineNr">17564 </span> <span class="subxComment"># print array-element-size(base)</span> +<span id="L17565" class="LineNr">17565 </span> (<a href='mu.subx.html#L17059'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17566" class="LineNr">17566 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17567" class="LineNr">17567 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) +<span id="L17568" class="LineNr">17568 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: +<span id="L17569" class="LineNr">17569 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L17570" class="LineNr">17570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L17571" class="LineNr">17571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17572" class="LineNr">17572 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17573" class="LineNr">17573 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L17574" class="LineNr">17574 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L17575" class="LineNr">17575 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L17576" class="LineNr">17576 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: +<span id="L17577" class="LineNr">17577 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17578" class="LineNr">17578 </span> 5b/pop-to-ebx +<span id="L17579" class="LineNr">17579 </span> 5a/pop-to-edx +<span id="L17580" class="LineNr">17580 </span> 59/pop-to-ecx +<span id="L17581" class="LineNr">17581 </span> 58/pop-to-eax +<span id="L17582" class="LineNr">17582 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17583" class="LineNr">17583 </span> 89/<- %esp 5/r32/ebp +<span id="L17584" class="LineNr">17584 </span> 5d/pop-to-ebp +<span id="L17585" class="LineNr">17585 </span> c3/return +<span id="L17586" class="LineNr">17586 </span> +<span id="L17587" class="LineNr">17587 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L17588" class="LineNr">17588 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17589" class="LineNr">17589 </span> 55/push-ebp +<span id="L17590" class="LineNr">17590 </span> 89/<- %ebp 4/r32/esp +<span id="L17591" class="LineNr">17591 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17592" class="LineNr">17592 </span> 50/push-eax +<span id="L17593" class="LineNr">17593 </span> 51/push-ecx +<span id="L17594" class="LineNr">17594 </span> 52/push-edx +<span id="L17595" class="LineNr">17595 </span> <span class="subxComment">#</span> +<span id="L17596" class="LineNr">17596 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17597" class="LineNr">17597 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) +<span id="L17598" class="LineNr">17598 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L17599" class="LineNr">17599 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L17600" class="LineNr">17600 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> +<span id="L17601" class="LineNr">17601 </span> (<a href='mu.subx.html#L18065'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17602" class="LineNr">17602 </span> 89/<- %edx 0/r32/eax +<span id="L17603" class="LineNr">17603 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L17604" class="LineNr">17604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17605" class="LineNr">17605 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17606" class="LineNr">17606 </span> <span class="subxComment"># if base is in a register</span> +<span id="L17607" class="LineNr">17607 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17608" class="LineNr">17608 </span> { +<span id="L17609" class="LineNr">17609 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17610" class="LineNr">17610 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: +<span id="L17611" class="LineNr">17611 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> +<span id="L17612" class="LineNr">17612 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) +<span id="L17613" class="LineNr">17613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17614" class="LineNr">17614 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L17615" class="LineNr">17615 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L17616" class="LineNr">17616 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L17617" class="LineNr">17617 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L17618" class="LineNr">17618 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 +<span id="L17619" class="LineNr">17619 </span> } +<span id="L17620" class="LineNr">17620 </span> <span class="subxComment"># otherwise base is on the stack</span> +<span id="L17621" class="LineNr">17621 </span> { +<span id="L17622" class="LineNr">17622 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: +<span id="L17623" class="LineNr">17623 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> +<span id="L17624" class="LineNr">17624 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L17625" class="LineNr">17625 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L17626" class="LineNr">17626 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L17627" class="LineNr">17627 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L17628" class="LineNr">17628 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 +<span id="L17629" class="LineNr">17629 </span> } +<span id="L17630" class="LineNr">17630 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: +<span id="L17631" class="LineNr">17631 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> +<span id="L17632" class="LineNr">17632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L17633" class="LineNr">17633 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17634" class="LineNr">17634 </span> <span class="subxComment"># emit offset->register "/r32"</span> +<span id="L17635" class="LineNr">17635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17636" class="LineNr">17636 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L17637" class="LineNr">17637 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L17638" class="LineNr">17638 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L17639" class="LineNr">17639 </span><span class="Constant">$translate-mu-get-stmt:end</span>: +<span id="L17640" class="LineNr">17640 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17641" class="LineNr">17641 </span> 5a/pop-to-edx +<span id="L17642" class="LineNr">17642 </span> 59/pop-to-ecx +<span id="L17643" class="LineNr">17643 </span> 58/pop-to-eax +<span id="L17644" class="LineNr">17644 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17645" class="LineNr">17645 </span> 89/<- %esp 5/r32/ebp +<span id="L17646" class="LineNr">17646 </span> 5d/pop-to-ebp +<span id="L17647" class="LineNr">17647 </span> c3/return +<span id="L17648" class="LineNr">17648 </span> +<span id="L17649" class="LineNr">17649 </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="L17650" class="LineNr">17650 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17651" class="LineNr">17651 </span> 55/push-ebp +<span id="L17652" class="LineNr">17652 </span> 89/<- %ebp 4/r32/esp +<span id="L17653" class="LineNr">17653 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17654" class="LineNr">17654 </span> 50/push-eax +<span id="L17655" class="LineNr">17655 </span> <span class="subxComment">#</span> +<span id="L17656" class="LineNr">17656 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17657" class="LineNr">17657 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) +<span id="L17658" class="LineNr">17658 </span> <span class="subxComment"># eax = stmt</span> +<span id="L17659" class="LineNr">17659 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L17660" class="LineNr">17660 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17661" class="LineNr">17661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17662" class="LineNr">17662 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L17663" class="LineNr">17663 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17664" class="LineNr">17664 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L17665" class="LineNr">17665 </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="L17666" class="LineNr">17666 </span> (<a href='mu.subx.html#L17743'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17667" class="LineNr">17667 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17668" class="LineNr">17668 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17669" class="LineNr">17669 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: +<span id="L17670" class="LineNr">17670 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17671" class="LineNr">17671 </span> 58/pop-to-eax +<span id="L17672" class="LineNr">17672 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17673" class="LineNr">17673 </span> 89/<- %esp 5/r32/ebp +<span id="L17674" class="LineNr">17674 </span> 5d/pop-to-ebp +<span id="L17675" class="LineNr">17675 </span> c3/return +<span id="L17676" class="LineNr">17676 </span> +<span id="L17677" class="LineNr">17677 </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="L17678" class="LineNr">17678 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17679" class="LineNr">17679 </span> 55/push-ebp +<span id="L17680" class="LineNr">17680 </span> 89/<- %ebp 4/r32/esp +<span id="L17681" class="LineNr">17681 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17682" class="LineNr">17682 </span> 50/push-eax +<span id="L17683" class="LineNr">17683 </span> 56/push-esi +<span id="L17684" class="LineNr">17684 </span> 57/push-edi +<span id="L17685" class="LineNr">17685 </span> <span class="subxComment"># esi = stmt</span> +<span id="L17686" class="LineNr">17686 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L17687" class="LineNr">17687 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17688" class="LineNr">17688 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17689" class="LineNr">17689 </span> 89/<- %edi 0/r32/eax +<span id="L17690" class="LineNr">17690 </span> <span class="subxComment">#</span> +<span id="L17691" class="LineNr">17691 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17692" class="LineNr">17692 </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="L17693" class="LineNr">17693 </span> (<a href='mu.subx.html#L17707'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17694" class="LineNr">17694 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17695" class="LineNr">17695 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L17696" class="LineNr">17696 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17697" class="LineNr">17697 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: +<span id="L17698" class="LineNr">17698 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17699" class="LineNr">17699 </span> 5f/pop-to-edi +<span id="L17700" class="LineNr">17700 </span> 5e/pop-to-esi +<span id="L17701" class="LineNr">17701 </span> 58/pop-to-eax +<span id="L17702" class="LineNr">17702 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17703" class="LineNr">17703 </span> 89/<- %esp 5/r32/ebp +<span id="L17704" class="LineNr">17704 </span> 5d/pop-to-ebp +<span id="L17705" class="LineNr">17705 </span> c3/return +<span id="L17706" class="LineNr">17706 </span> +<span id="L17707" class="LineNr">17707 </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="L17708" class="LineNr">17708 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17709" class="LineNr">17709 </span> 55/push-ebp +<span id="L17710" class="LineNr">17710 </span> 89/<- %ebp 4/r32/esp +<span id="L17711" class="LineNr">17711 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L17712" class="LineNr">17712 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17713" class="LineNr">17713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17714" class="LineNr">17714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17715" class="LineNr">17715 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17716" class="LineNr">17716 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17717" class="LineNr">17717 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L17718" class="LineNr">17718 </span> <span class="subxComment"># t = t->right</span> +<span id="L17719" class="LineNr">17719 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: +<span id="L17720" class="LineNr">17720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17721" class="LineNr">17721 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17722" class="LineNr">17722 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17723" class="LineNr">17723 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L17724" class="LineNr">17724 </span> <span class="subxComment"># t = t->right</span> +<span id="L17725" class="LineNr">17725 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: +<span id="L17726" class="LineNr">17726 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17727" class="LineNr">17727 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17728" class="LineNr">17728 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L17729" class="LineNr">17729 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L17730" class="LineNr">17730 </span> { +<span id="L17731" class="LineNr">17731 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17732" class="LineNr">17732 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17733" class="LineNr">17733 </span> } +<span id="L17734" class="LineNr">17734 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L17735" class="LineNr">17735 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L17736" class="LineNr">17736 </span> (<a href='mu.subx.html#L15140'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L17737" class="LineNr">17737 </span><span class="Constant">$addr-handle-payload-size:end</span>: +<span id="L17738" class="LineNr">17738 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17739" class="LineNr">17739 </span> 89/<- %esp 5/r32/ebp +<span id="L17740" class="LineNr">17740 </span> 5d/pop-to-ebp +<span id="L17741" class="LineNr">17741 </span> c3/return +<span id="L17742" class="LineNr">17742 </span> +<span id="L17743" class="LineNr">17743 </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="L17744" class="LineNr">17744 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17745" class="LineNr">17745 </span> 55/push-ebp +<span id="L17746" class="LineNr">17746 </span> 89/<- %ebp 4/r32/esp +<span id="L17747" class="LineNr">17747 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L17748" class="LineNr">17748 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17749" class="LineNr">17749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17750" class="LineNr">17750 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17751" class="LineNr">17751 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17752" class="LineNr">17752 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17753" class="LineNr">17753 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L17754" class="LineNr">17754 </span> <span class="subxComment"># t = t->right</span> +<span id="L17755" class="LineNr">17755 </span><span class="Constant">$addr-payload-size:skip-addr</span>: +<span id="L17756" class="LineNr">17756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17757" class="LineNr">17757 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17758" class="LineNr">17758 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L17759" class="LineNr">17759 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L17760" class="LineNr">17760 </span> { +<span id="L17761" class="LineNr">17761 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17762" class="LineNr">17762 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17763" class="LineNr">17763 </span> } +<span id="L17764" class="LineNr">17764 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L17765" class="LineNr">17765 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L17766" class="LineNr">17766 </span> (<a href='mu.subx.html#L15140'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L17767" class="LineNr">17767 </span><span class="Constant">$addr-payload-size:end</span>: +<span id="L17768" class="LineNr">17768 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17769" class="LineNr">17769 </span> 89/<- %esp 5/r32/ebp +<span id="L17770" class="LineNr">17770 </span> 5d/pop-to-ebp +<span id="L17771" class="LineNr">17771 </span> c3/return +<span id="L17772" class="LineNr">17772 </span> +<span id="L17773" class="LineNr">17773 </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="L17774" class="LineNr">17774 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17775" class="LineNr">17775 </span> 55/push-ebp +<span id="L17776" class="LineNr">17776 </span> 89/<- %ebp 4/r32/esp +<span id="L17777" class="LineNr">17777 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17778" class="LineNr">17778 </span> 50/push-eax +<span id="L17779" class="LineNr">17779 </span> 51/push-ecx +<span id="L17780" class="LineNr">17780 </span> 56/push-esi +<span id="L17781" class="LineNr">17781 </span> 57/push-edi +<span id="L17782" class="LineNr">17782 </span> <span class="subxComment"># esi = stmt</span> +<span id="L17783" class="LineNr">17783 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L17784" class="LineNr">17784 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17785" class="LineNr">17785 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17786" class="LineNr">17786 </span> 89/<- %edi 0/r32/eax +<span id="L17787" class="LineNr">17787 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L17788" class="LineNr">17788 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17789" class="LineNr">17789 </span> 89/<- %ecx 0/r32/eax +<span id="L17790" class="LineNr">17790 </span> <span class="subxComment">#</span> +<span id="L17791" class="LineNr">17791 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17792" class="LineNr">17792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../308allocate-array.subx.html#L5'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> "</span>) +<span id="L17793" class="LineNr">17793 </span> (<a href='mu.subx.html#L17922'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17794" class="LineNr">17794 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17795" class="LineNr">17795 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L17796" class="LineNr">17796 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L17797" class="LineNr">17797 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17798" class="LineNr">17798 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: +<span id="L17799" class="LineNr">17799 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17800" class="LineNr">17800 </span> 5f/pop-to-edi +<span id="L17801" class="LineNr">17801 </span> 5e/pop-to-esi +<span id="L17802" class="LineNr">17802 </span> 59/pop-to-ecx +<span id="L17803" class="LineNr">17803 </span> 58/pop-to-eax +<span id="L17804" class="LineNr">17804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17805" class="LineNr">17805 </span> 89/<- %esp 5/r32/ebp +<span id="L17806" class="LineNr">17806 </span> 5d/pop-to-ebp +<span id="L17807" class="LineNr">17807 </span> c3/return +<span id="L17808" class="LineNr">17808 </span> +<span id="L17809" class="LineNr">17809 </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="L17810" class="LineNr">17810 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17811" class="LineNr">17811 </span> 55/push-ebp +<span id="L17812" class="LineNr">17812 </span> 89/<- %ebp 4/r32/esp +<span id="L17813" class="LineNr">17813 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17814" class="LineNr">17814 </span> 50/push-eax +<span id="L17815" class="LineNr">17815 </span> 51/push-ecx +<span id="L17816" class="LineNr">17816 </span> 56/push-esi +<span id="L17817" class="LineNr">17817 </span> 57/push-edi +<span id="L17818" class="LineNr">17818 </span> <span class="subxComment"># esi = stmt</span> +<span id="L17819" class="LineNr">17819 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L17820" class="LineNr">17820 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17821" class="LineNr">17821 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17822" class="LineNr">17822 </span> 89/<- %edi 0/r32/eax +<span id="L17823" class="LineNr">17823 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L17824" class="LineNr">17824 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17825" class="LineNr">17825 </span> 89/<- %ecx 0/r32/eax +<span id="L17826" class="LineNr">17826 </span> <span class="subxComment">#</span> +<span id="L17827" class="LineNr">17827 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17828" class="LineNr">17828 </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="L17829" class="LineNr">17829 </span> (<a href='mu.subx.html#L17965'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17830" class="LineNr">17830 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17831" class="LineNr">17831 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L17832" class="LineNr">17832 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L17833" class="LineNr">17833 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17834" class="LineNr">17834 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: +<span id="L17835" class="LineNr">17835 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17836" class="LineNr">17836 </span> 5f/pop-to-edi +<span id="L17837" class="LineNr">17837 </span> 5e/pop-to-esi +<span id="L17838" class="LineNr">17838 </span> 59/pop-to-ecx +<span id="L17839" class="LineNr">17839 </span> 58/pop-to-eax +<span id="L17840" class="LineNr">17840 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17841" class="LineNr">17841 </span> 89/<- %esp 5/r32/ebp +<span id="L17842" class="LineNr">17842 </span> 5d/pop-to-ebp +<span id="L17843" class="LineNr">17843 </span> c3/return +<span id="L17844" class="LineNr">17844 </span> +<span id="L17845" class="LineNr">17845 </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="L17846" class="LineNr">17846 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17847" class="LineNr">17847 </span> 55/push-ebp +<span id="L17848" class="LineNr">17848 </span> 89/<- %ebp 4/r32/esp +<span id="L17849" class="LineNr">17849 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17850" class="LineNr">17850 </span> 50/push-eax +<span id="L17851" class="LineNr">17851 </span> 51/push-ecx +<span id="L17852" class="LineNr">17852 </span> 56/push-esi +<span id="L17853" class="LineNr">17853 </span> 57/push-edi +<span id="L17854" class="LineNr">17854 </span> <span class="subxComment"># esi = stmt</span> +<span id="L17855" class="LineNr">17855 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L17856" class="LineNr">17856 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17857" class="LineNr">17857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17858" class="LineNr">17858 </span> 89/<- %ecx 0/r32/eax +<span id="L17859" class="LineNr">17859 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L17860" class="LineNr">17860 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17861" class="LineNr">17861 </span> 89/<- %edi 0/r32/eax +<span id="L17862" class="LineNr">17862 </span> <span class="subxComment">#</span> +<span id="L17863" class="LineNr">17863 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17864" class="LineNr">17864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) +<span id="L17865" class="LineNr">17865 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L17866" class="LineNr">17866 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L17867" class="LineNr">17867 </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="L17868" class="LineNr">17868 </span> (<a href='mu.subx.html#L17743'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17869" class="LineNr">17869 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17870" class="LineNr">17870 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17871" class="LineNr">17871 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: +<span id="L17872" class="LineNr">17872 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17873" class="LineNr">17873 </span> 5f/pop-to-edi +<span id="L17874" class="LineNr">17874 </span> 5e/pop-to-esi +<span id="L17875" class="LineNr">17875 </span> 59/pop-to-ecx +<span id="L17876" class="LineNr">17876 </span> 58/pop-to-eax +<span id="L17877" class="LineNr">17877 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17878" class="LineNr">17878 </span> 89/<- %esp 5/r32/ebp +<span id="L17879" class="LineNr">17879 </span> 5d/pop-to-ebp +<span id="L17880" class="LineNr">17880 </span> c3/return +<span id="L17881" class="LineNr">17881 </span> +<span id="L17882" class="LineNr">17882 </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="L17883" class="LineNr">17883 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17884" class="LineNr">17884 </span> 55/push-ebp +<span id="L17885" class="LineNr">17885 </span> 89/<- %ebp 4/r32/esp +<span id="L17886" class="LineNr">17886 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17887" class="LineNr">17887 </span> 50/push-eax +<span id="L17888" class="LineNr">17888 </span> 51/push-ecx +<span id="L17889" class="LineNr">17889 </span> 56/push-esi +<span id="L17890" class="LineNr">17890 </span> 57/push-edi +<span id="L17891" class="LineNr">17891 </span> <span class="subxComment"># esi = stmt</span> +<span id="L17892" class="LineNr">17892 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L17893" class="LineNr">17893 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L17894" class="LineNr">17894 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17895" class="LineNr">17895 </span> 89/<- %ecx 0/r32/eax +<span id="L17896" class="LineNr">17896 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L17897" class="LineNr">17897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L17898" class="LineNr">17898 </span> 89/<- %edi 0/r32/eax +<span id="L17899" class="LineNr">17899 </span> <span class="subxComment">#</span> +<span id="L17900" class="LineNr">17900 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L17901" class="LineNr">17901 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) +<span id="L17902" class="LineNr">17902 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L17903" class="LineNr">17903 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L17904" class="LineNr">17904 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L17905" class="LineNr">17905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L17906" class="LineNr">17906 </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="L17907" class="LineNr">17907 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L17908" class="LineNr">17908 </span> (<a href='mu.subx.html#L17743'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L17909" class="LineNr">17909 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L17910" class="LineNr">17910 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L17911" class="LineNr">17911 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: +<span id="L17912" class="LineNr">17912 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17913" class="LineNr">17913 </span> 5f/pop-to-edi +<span id="L17914" class="LineNr">17914 </span> 5e/pop-to-esi +<span id="L17915" class="LineNr">17915 </span> 59/pop-to-ecx +<span id="L17916" class="LineNr">17916 </span> 58/pop-to-eax +<span id="L17917" class="LineNr">17917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17918" class="LineNr">17918 </span> 89/<- %esp 5/r32/ebp +<span id="L17919" class="LineNr">17919 </span> 5d/pop-to-ebp +<span id="L17920" class="LineNr">17920 </span> c3/return +<span id="L17921" class="LineNr">17921 </span> +<span id="L17922" class="LineNr">17922 </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="L17923" class="LineNr">17923 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17924" class="LineNr">17924 </span> 55/push-ebp +<span id="L17925" class="LineNr">17925 </span> 89/<- %ebp 4/r32/esp +<span id="L17926" class="LineNr">17926 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L17927" class="LineNr">17927 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17928" class="LineNr">17928 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17929" class="LineNr">17929 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17930" class="LineNr">17930 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17931" class="LineNr">17931 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17932" class="LineNr">17932 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L17933" class="LineNr">17933 </span> <span class="subxComment"># t = t->right</span> +<span id="L17934" class="LineNr">17934 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: +<span id="L17935" class="LineNr">17935 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17936" class="LineNr">17936 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17937" class="LineNr">17937 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17938" class="LineNr">17938 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L17939" class="LineNr">17939 </span> <span class="subxComment"># t = t->right</span> +<span id="L17940" class="LineNr">17940 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: +<span id="L17941" class="LineNr">17941 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17942" class="LineNr">17942 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17943" class="LineNr">17943 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17944" class="LineNr">17944 </span> <span class="subxComment"># TODO: check t->left == array</span> +<span id="L17945" class="LineNr">17945 </span> <span class="subxComment"># t = t->right</span> +<span id="L17946" class="LineNr">17946 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: +<span id="L17947" class="LineNr">17947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17948" class="LineNr">17948 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17949" class="LineNr">17949 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L17950" class="LineNr">17950 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L17951" class="LineNr">17951 </span> { +<span id="L17952" class="LineNr">17952 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17953" class="LineNr">17953 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17954" class="LineNr">17954 </span> } +<span id="L17955" class="LineNr">17955 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: +<span id="L17956" class="LineNr">17956 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L17957" class="LineNr">17957 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L17958" class="LineNr">17958 </span> (<a href='mu.subx.html#L17170'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L17959" class="LineNr">17959 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: +<span id="L17960" class="LineNr">17960 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17961" class="LineNr">17961 </span> 89/<- %esp 5/r32/ebp +<span id="L17962" class="LineNr">17962 </span> 5d/pop-to-ebp +<span id="L17963" class="LineNr">17963 </span> c3/return +<span id="L17964" class="LineNr">17964 </span> +<span id="L17965" class="LineNr">17965 </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="L17966" class="LineNr">17966 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17967" class="LineNr">17967 </span> 55/push-ebp +<span id="L17968" class="LineNr">17968 </span> 89/<- %ebp 4/r32/esp +<span id="L17969" class="LineNr">17969 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L17970" class="LineNr">17970 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17971" class="LineNr">17971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L17972" class="LineNr">17972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17973" class="LineNr">17973 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17974" class="LineNr">17974 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17975" class="LineNr">17975 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L17976" class="LineNr">17976 </span> <span class="subxComment"># t = t->right</span> +<span id="L17977" class="LineNr">17977 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: +<span id="L17978" class="LineNr">17978 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17979" class="LineNr">17979 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17980" class="LineNr">17980 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17981" class="LineNr">17981 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L17982" class="LineNr">17982 </span> <span class="subxComment"># t = t->right</span> +<span id="L17983" class="LineNr">17983 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: +<span id="L17984" class="LineNr">17984 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17985" class="LineNr">17985 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17986" class="LineNr">17986 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L17987" class="LineNr">17987 </span> <span class="subxComment"># TODO: check t->left == stream</span> +<span id="L17988" class="LineNr">17988 </span> <span class="subxComment"># t = t->right</span> +<span id="L17989" class="LineNr">17989 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: +<span id="L17990" class="LineNr">17990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17991" class="LineNr">17991 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L17992" class="LineNr">17992 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L17993" class="LineNr">17993 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L17994" class="LineNr">17994 </span> { +<span id="L17995" class="LineNr">17995 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17996" class="LineNr">17996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17997" class="LineNr">17997 </span> } +<span id="L17998" class="LineNr">17998 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: +<span id="L17999" class="LineNr">17999 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L18000" class="LineNr">18000 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L18001" class="LineNr">18001 </span> (<a href='mu.subx.html#L17170'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L18002" class="LineNr">18002 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: +<span id="L18003" class="LineNr">18003 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18004" class="LineNr">18004 </span> 89/<- %esp 5/r32/ebp +<span id="L18005" class="LineNr">18005 </span> 5d/pop-to-ebp +<span id="L18006" class="LineNr">18006 </span> c3/return +<span id="L18007" class="LineNr">18007 </span> +<span id="L18008" class="LineNr">18008 </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="L18009" class="LineNr">18009 </span> <span class="subxComment"># precondition: n is positive</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 = n</span> +<span id="L18014" class="LineNr">18014 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18015" class="LineNr">18015 </span> <span class="subxComment"># if (n < 0) abort</span> +<span id="L18016" class="LineNr">18016 </span> 3d/compare-eax-with 0/imm32 +<span id="L18017" class="LineNr">18017 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 +<span id="L18018" class="LineNr">18018 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> +<span id="L18019" class="LineNr">18019 </span> 48/decrement-eax +<span id="L18020" class="LineNr">18020 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> +<span id="L18021" class="LineNr">18021 </span> 23/and-> *(ebp+8) 0/r32/eax +<span id="L18022" class="LineNr">18022 </span> <span class="subxComment"># return (tmp2 == 0)</span> +<span id="L18023" class="LineNr">18023 </span> 3d/compare-eax-and 0/imm32 +<span id="L18024" class="LineNr">18024 </span> 0f 94/set-byte-if-= %al +<span id="L18025" class="LineNr">18025 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18026" class="LineNr">18026 </span><span class="Constant">$power-of-2?:end</span>: +<span id="L18027" class="LineNr">18027 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18028" class="LineNr">18028 </span> 89/<- %esp 5/r32/ebp +<span id="L18029" class="LineNr">18029 </span> 5d/pop-to-ebp +<span id="L18030" class="LineNr">18030 </span> c3/return +<span id="L18031" class="LineNr">18031 </span> +<span id="L18032" class="LineNr">18032 </span><span class="Constant">$power-of-2?:abort</span>: +<span id="L18033" class="LineNr">18033 </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="L18034" class="LineNr">18034 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L18035" class="LineNr">18035 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L18036" class="LineNr">18036 </span> <span class="subxComment"># never gets here</span> +<span id="L18037" class="LineNr">18037 </span> +<span id="L18038" class="LineNr">18038 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L18039" class="LineNr">18039 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> +<span id="L18040" class="LineNr">18040 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18041" class="LineNr">18041 </span> 55/push-ebp +<span id="L18042" class="LineNr">18042 </span> 89/<- %ebp 4/r32/esp +<span id="L18043" class="LineNr">18043 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18044" class="LineNr">18044 </span> 51/push-ecx +<span id="L18045" class="LineNr">18045 </span> <span class="subxComment"># var curr/ecx: int = n</span> +<span id="L18046" class="LineNr">18046 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L18047" class="LineNr">18047 </span> <span class="subxComment"># result = 0</span> +<span id="L18048" class="LineNr">18048 </span> b8/copy-to-eax 0/imm32 +<span id="L18049" class="LineNr">18049 </span> { +<span id="L18050" class="LineNr">18050 </span> <span class="subxComment"># if (curr <= 1) break</span> +<span id="L18051" class="LineNr">18051 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L18052" class="LineNr">18052 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L18053" class="LineNr">18053 </span> 40/increment-eax +<span id="L18054" class="LineNr">18054 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 +<span id="L18055" class="LineNr">18055 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L18056" class="LineNr">18056 </span> } +<span id="L18057" class="LineNr">18057 </span><span class="Constant">$num-shift-rights:end</span>: +<span id="L18058" class="LineNr">18058 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18059" class="LineNr">18059 </span> 59/pop-to-ecx +<span id="L18060" class="LineNr">18060 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18061" class="LineNr">18061 </span> 89/<- %esp 5/r32/ebp +<span id="L18062" class="LineNr">18062 </span> 5d/pop-to-ebp +<span id="L18063" class="LineNr">18063 </span> c3/return +<span id="L18064" class="LineNr">18064 </span> +<span id="L18065" class="LineNr">18065 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L18066" class="LineNr">18066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18067" class="LineNr">18067 </span> 55/push-ebp +<span id="L18068" class="LineNr">18068 </span> 89/<- %ebp 4/r32/esp +<span id="L18069" class="LineNr">18069 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L18070" class="LineNr">18070 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18071" class="LineNr">18071 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L18072" class="LineNr">18072 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L18073" class="LineNr">18073 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> +<span id="L18074" class="LineNr">18074 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L18075" class="LineNr">18075 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> +<span id="L18076" class="LineNr">18076 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18077" class="LineNr">18077 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> +<span id="L18078" class="LineNr">18078 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L18079" class="LineNr">18079 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L18080" class="LineNr">18080 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L18081" class="LineNr">18081 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L18082" class="LineNr">18082 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18083" class="LineNr">18083 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18084" class="LineNr">18084 </span> <span class="subxComment"># return output-var->stack-offset</span> +<span id="L18085" class="LineNr">18085 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L18086" class="LineNr">18086 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L18087" class="LineNr">18087 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18088" class="LineNr">18088 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18089" class="LineNr">18089 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18090" class="LineNr">18090 </span><span class="Constant">$emit-get-offset:end</span>: +<span id="L18091" class="LineNr">18091 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18092" class="LineNr">18092 </span> 89/<- %esp 5/r32/ebp +<span id="L18093" class="LineNr">18093 </span> 5d/pop-to-ebp +<span id="L18094" class="LineNr">18094 </span> c3/return +<span id="L18095" class="LineNr">18095 </span> +<span id="L18096" class="LineNr">18096 </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="L18097" class="LineNr">18097 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18098" class="LineNr">18098 </span> 55/push-ebp +<span id="L18099" class="LineNr">18099 </span> 89/<- %ebp 4/r32/esp +<span id="L18100" class="LineNr">18100 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18101" class="LineNr">18101 </span> 50/push-eax +<span id="L18102" class="LineNr">18102 </span> 51/push-ecx +<span id="L18103" class="LineNr">18103 </span> 56/push-esi +<span id="L18104" class="LineNr">18104 </span> <span class="subxComment"># esi = block</span> +<span id="L18105" class="LineNr">18105 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L18106" class="LineNr">18106 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> +<span id="L18107" class="LineNr">18107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L18108" class="LineNr">18108 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 1/r32/ecx +<span id="L18109" class="LineNr">18109 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L18110" class="LineNr">18110 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L18111" class="LineNr">18111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L18112" class="LineNr">18112 </span> <span class="subxComment">#</span> +<span id="L18113" class="LineNr">18113 </span> { +<span id="L18114" class="LineNr">18114 </span><span class="Constant">$emit-subx-block:check-empty</span>: +<span id="L18115" class="LineNr">18115 </span> 3d/compare-eax-and 0/imm32 +<span id="L18116" class="LineNr">18116 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18117" class="LineNr">18117 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L18118" class="LineNr">18118 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) +<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> +<span id="L18120" class="LineNr">18120 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L18121" class="LineNr">18121 </span> 89/<- %ecx 0/r32/eax +<span id="L18122" class="LineNr">18122 </span> <span class="subxComment">#</span> +<span id="L18123" class="LineNr">18123 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18124" class="LineNr">18124 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L18125" class="LineNr">18125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) +<span id="L18126" class="LineNr">18126 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> +<span id="L18127" class="LineNr">18127 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L18128" class="LineNr">18128 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L18129" class="LineNr">18129 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L18130" class="LineNr">18130 </span> <span class="subxComment"># emit block->statements</span> +<span id="L18131" class="LineNr">18131 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L18132" class="LineNr">18132 </span> (<a href='mu.subx.html#L15467'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18133" class="LineNr">18133 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18134" class="LineNr">18134 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18135" class="LineNr">18135 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18136" class="LineNr">18136 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> +<span id="L18137" class="LineNr">18137 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L18138" class="LineNr">18138 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) +<span id="L18139" class="LineNr">18139 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18140" class="LineNr">18140 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L18141" class="LineNr">18141 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) +<span id="L18142" class="LineNr">18142 </span> } +<span id="L18143" class="LineNr">18143 </span><span class="Constant">$emit-subx-block:end</span>: +<span id="L18144" class="LineNr">18144 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18145" class="LineNr">18145 </span> 5e/pop-to-esi +<span id="L18146" class="LineNr">18146 </span> 59/pop-to-ecx +<span id="L18147" class="LineNr">18147 </span> 58/pop-to-eax +<span id="L18148" class="LineNr">18148 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18149" class="LineNr">18149 </span> 89/<- %esp 5/r32/ebp +<span id="L18150" class="LineNr">18150 </span> 5d/pop-to-ebp +<span id="L18151" class="LineNr">18151 </span> c3/return +<span id="L18152" class="LineNr">18152 </span> +<span id="L18153" class="LineNr">18153 </span><span class="subxComment"># Primitives supported</span> +<span id="L18154" class="LineNr">18154 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> +<span id="L18155" class="LineNr">18155 </span><span class="subxComment">#</span> +<span id="L18156" class="LineNr">18156 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> +<span id="L18157" class="LineNr">18157 </span><span class="subxComment">#</span> +<span id="L18158" class="LineNr">18158 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> +<span id="L18159" class="LineNr">18159 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> +<span id="L18160" class="LineNr">18160 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> +<span id="L18161" class="LineNr">18161 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> +<span id="L18162" class="LineNr">18162 </span><span class="subxComment">#</span> +<span id="L18163" class="LineNr">18163 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> +<span id="L18164" class="LineNr">18164 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> +<span id="L18165" class="LineNr">18165 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> +<span id="L18166" class="LineNr">18166 </span><span class="subxComment">#</span> +<span id="L18167" class="LineNr">18167 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> +<span id="L18168" class="LineNr">18168 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> +<span id="L18169" class="LineNr">18169 </span><span class="subxComment">#</span> +<span id="L18170" class="LineNr">18170 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> +<span id="L18171" class="LineNr">18171 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> +<span id="L18172" class="LineNr">18172 </span><span class="subxComment"># as usual.</span> +<span id="L18173" class="LineNr">18173 </span><span class="subxComment">#</span> +<span id="L18174" class="LineNr">18174 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> +<span id="L18175" class="LineNr">18175 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> +<span id="L18176" class="LineNr">18176 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> +<span id="L18177" class="LineNr">18177 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> +<span id="L18178" class="LineNr">18178 </span><span class="subxComment"># 0 0 # inouts</span> +<span id="L18179" class="LineNr">18179 </span><span class="subxComment"># 0x11 @(0x11/payload</span> +<span id="L18180" class="LineNr">18180 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> +<span id="L18181" class="LineNr">18181 </span><span class="subxComment"># 0 0 # Var-name</span> +<span id="L18182" class="LineNr">18182 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> +<span id="L18183" class="LineNr">18183 </span><span class="subxComment"># 1/is-atom</span> +<span id="L18184" class="LineNr">18184 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> +<span id="L18185" class="LineNr">18185 </span><span class="subxComment"># 0 0 # Type-tree-right</span> +<span id="L18186" class="LineNr">18186 </span><span class="subxComment"># )</span> +<span id="L18187" class="LineNr">18187 </span><span class="subxComment"># 1 # block-depth</span> +<span id="L18188" class="LineNr">18188 </span><span class="subxComment"># 0 # stack-offset</span> +<span id="L18189" class="LineNr">18189 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> +<span id="L18190" class="LineNr">18190 </span><span class="subxComment"># )</span> +<span id="L18191" class="LineNr">18191 </span><span class="subxComment"># 0 0) # List-next</span> +<span id="L18192" class="LineNr">18192 </span><span class="subxComment"># ...</span> +<span id="L18193" class="LineNr">18193 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> +<span id="L18194" class="LineNr">18194 </span><span class="subxComment"># ...</span> +<span id="L18195" class="LineNr">18195 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> +<span id="L18196" class="LineNr">18196 </span><span class="subxComment"># to learn here, so may be worth trying.</span> +<span id="L18197" class="LineNr">18197 </span><span class="subxComment">#</span> +<span id="L18198" class="LineNr">18198 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> +<span id="L18199" class="LineNr">18199 </span><span class="subxComment">#</span> +<span id="L18200" class="LineNr">18200 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> +<span id="L18201" class="LineNr">18201 </span><span class="subxComment"># to date.</span> +<span id="L18202" class="LineNr">18202 </span>== data +<span id="L18203" class="LineNr">18203 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L18204" class="LineNr">18204 </span><span class="subxH1Comment"># - increment/decrement</span> +<span id="L18205" class="LineNr">18205 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L18206" class="LineNr">18206 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> <span id="L18207" class="LineNr">18207 </span> 0x11/imm32/alloc-id:fake -<span id="L18208" class="LineNr">18208 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18208" class="LineNr">18208 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name <span id="L18209" class="LineNr">18209 </span> 0/imm32/no-inouts <span id="L18210" class="LineNr">18210 </span> 0/imm32/no-inouts <span id="L18211" class="LineNr">18211 </span> 0x11/imm32/alloc-id:fake -<span id="L18212" class="LineNr">18212 </span> <span class="SpecialChar"><a href='mu.subx.html#L22312'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L18212" class="LineNr">18212 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L18213" class="LineNr">18213 </span> 0x11/imm32/alloc-id:fake -<span id="L18214" class="LineNr">18214 </span> <a href='mu.subx.html#L21964'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L18214" class="LineNr">18214 </span> <a href='mu.subx.html#L22187'>_string_40_increment_eax</a>/imm32/subx-name <span id="L18215" class="LineNr">18215 </span> 0/imm32/no-rm32 <span id="L18216" class="LineNr">18216 </span> 0/imm32/no-r32 <span id="L18217" class="LineNr">18217 </span> 0/imm32/no-imm32 @@ -17439,18 +17429,18 @@ if ('onhashchange' in window) { <span id="L18220" class="LineNr">18220 </span> 0/imm32/no-xm32 <span id="L18221" class="LineNr">18221 </span> 0/imm32/no-x32 <span id="L18222" class="LineNr">18222 </span> 0x11/imm32/alloc-id:fake -<span id="L18223" class="LineNr">18223 </span> <a href='mu.subx.html#L18224'>_Primitive-decrement-edx</a>/imm32/next -<span id="L18224" class="LineNr">18224 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18223" class="LineNr">18223 </span> <a href='mu.subx.html#L18224'>_Primitive-increment-ecx</a>/imm32/next +<span id="L18224" class="LineNr">18224 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18225" class="LineNr">18225 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18226" class="LineNr">18226 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L18226" class="LineNr">18226 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> <span id="L18227" class="LineNr">18227 </span> 0x11/imm32/alloc-id:fake -<span id="L18228" class="LineNr">18228 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18228" class="LineNr">18228 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name <span id="L18229" class="LineNr">18229 </span> 0/imm32/no-inouts <span id="L18230" class="LineNr">18230 </span> 0/imm32/no-inouts <span id="L18231" class="LineNr">18231 </span> 0x11/imm32/alloc-id:fake -<span id="L18232" class="LineNr">18232 </span> <span class="SpecialChar"><a href='mu.subx.html#L22330'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L18232" class="LineNr">18232 </span> <span class="SpecialChar"><a href='mu.subx.html#L22570'>Single-int-var-in-ecx</a></span>/imm32/outputs <span id="L18233" class="LineNr">18233 </span> 0x11/imm32/alloc-id:fake -<span id="L18234" class="LineNr">18234 </span> <a href='mu.subx.html#L21969'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L18234" class="LineNr">18234 </span> <a href='mu.subx.html#L22192'>_string_41_increment_ecx</a>/imm32/subx-name <span id="L18235" class="LineNr">18235 </span> 0/imm32/no-rm32 <span id="L18236" class="LineNr">18236 </span> 0/imm32/no-r32 <span id="L18237" class="LineNr">18237 </span> 0/imm32/no-imm32 @@ -17459,18 +17449,18 @@ if ('onhashchange' in window) { <span id="L18240" class="LineNr">18240 </span> 0/imm32/no-xm32 <span id="L18241" class="LineNr">18241 </span> 0/imm32/no-x32 <span id="L18242" class="LineNr">18242 </span> 0x11/imm32/alloc-id:fake -<span id="L18243" class="LineNr">18243 </span> <a href='mu.subx.html#L18244'>_Primitive-decrement-ebx</a>/imm32/next -<span id="L18244" class="LineNr">18244 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18243" class="LineNr">18243 </span> <a href='mu.subx.html#L18244'>_Primitive-increment-edx</a>/imm32/next +<span id="L18244" class="LineNr">18244 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18245" class="LineNr">18245 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18246" class="LineNr">18246 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L18246" class="LineNr">18246 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> <span id="L18247" class="LineNr">18247 </span> 0x11/imm32/alloc-id:fake -<span id="L18248" class="LineNr">18248 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18248" class="LineNr">18248 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name <span id="L18249" class="LineNr">18249 </span> 0/imm32/no-inouts <span id="L18250" class="LineNr">18250 </span> 0/imm32/no-inouts <span id="L18251" class="LineNr">18251 </span> 0x11/imm32/alloc-id:fake -<span id="L18252" class="LineNr">18252 </span> <span class="SpecialChar"><a href='mu.subx.html#L22348'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L18252" class="LineNr">18252 </span> <span class="SpecialChar"><a href='mu.subx.html#L22588'>Single-int-var-in-edx</a></span>/imm32/outputs <span id="L18253" class="LineNr">18253 </span> 0x11/imm32/alloc-id:fake -<span id="L18254" class="LineNr">18254 </span> <a href='mu.subx.html#L21974'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L18254" class="LineNr">18254 </span> <a href='mu.subx.html#L22197'>_string_42_increment_edx</a>/imm32/subx-name <span id="L18255" class="LineNr">18255 </span> 0/imm32/no-rm32 <span id="L18256" class="LineNr">18256 </span> 0/imm32/no-r32 <span id="L18257" class="LineNr">18257 </span> 0/imm32/no-imm32 @@ -17479,18 +17469,18 @@ if ('onhashchange' in window) { <span id="L18260" class="LineNr">18260 </span> 0/imm32/no-xm32 <span id="L18261" class="LineNr">18261 </span> 0/imm32/no-x32 <span id="L18262" class="LineNr">18262 </span> 0x11/imm32/alloc-id:fake -<span id="L18263" class="LineNr">18263 </span> <a href='mu.subx.html#L18264'>_Primitive-decrement-esi</a>/imm32/next -<span id="L18264" class="LineNr">18264 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18263" class="LineNr">18263 </span> <a href='mu.subx.html#L18264'>_Primitive-increment-ebx</a>/imm32/next +<span id="L18264" class="LineNr">18264 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18265" class="LineNr">18265 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18266" class="LineNr">18266 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L18266" class="LineNr">18266 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> <span id="L18267" class="LineNr">18267 </span> 0x11/imm32/alloc-id:fake -<span id="L18268" class="LineNr">18268 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18268" class="LineNr">18268 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name <span id="L18269" class="LineNr">18269 </span> 0/imm32/no-inouts <span id="L18270" class="LineNr">18270 </span> 0/imm32/no-inouts <span id="L18271" class="LineNr">18271 </span> 0x11/imm32/alloc-id:fake -<span id="L18272" class="LineNr">18272 </span> <span class="SpecialChar"><a href='mu.subx.html#L22366'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L18272" class="LineNr">18272 </span> <span class="SpecialChar"><a href='mu.subx.html#L22606'>Single-int-var-in-ebx</a></span>/imm32/outputs <span id="L18273" class="LineNr">18273 </span> 0x11/imm32/alloc-id:fake -<span id="L18274" class="LineNr">18274 </span> <a href='mu.subx.html#L21979'>_string_4e_decrement_esi</a>/imm32/subx-name +<span id="L18274" class="LineNr">18274 </span> <a href='mu.subx.html#L22202'>_string_43_increment_ebx</a>/imm32/subx-name <span id="L18275" class="LineNr">18275 </span> 0/imm32/no-rm32 <span id="L18276" class="LineNr">18276 </span> 0/imm32/no-r32 <span id="L18277" class="LineNr">18277 </span> 0/imm32/no-imm32 @@ -17499,18 +17489,18 @@ if ('onhashchange' in window) { <span id="L18280" class="LineNr">18280 </span> 0/imm32/no-xm32 <span id="L18281" class="LineNr">18281 </span> 0/imm32/no-x32 <span id="L18282" class="LineNr">18282 </span> 0x11/imm32/alloc-id:fake -<span id="L18283" class="LineNr">18283 </span> <a href='mu.subx.html#L18284'>_Primitive-decrement-edi</a>/imm32/next -<span id="L18284" class="LineNr">18284 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18283" class="LineNr">18283 </span> <a href='mu.subx.html#L18284'>_Primitive-increment-esi</a>/imm32/next +<span id="L18284" class="LineNr">18284 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18285" class="LineNr">18285 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18286" class="LineNr">18286 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L18286" class="LineNr">18286 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> <span id="L18287" class="LineNr">18287 </span> 0x11/imm32/alloc-id:fake -<span id="L18288" class="LineNr">18288 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18288" class="LineNr">18288 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name <span id="L18289" class="LineNr">18289 </span> 0/imm32/no-inouts <span id="L18290" class="LineNr">18290 </span> 0/imm32/no-inouts <span id="L18291" class="LineNr">18291 </span> 0x11/imm32/alloc-id:fake -<span id="L18292" class="LineNr">18292 </span> <span class="SpecialChar"><a href='mu.subx.html#L22384'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L18292" class="LineNr">18292 </span> <span class="SpecialChar"><a href='mu.subx.html#L22624'>Single-int-var-in-esi</a></span>/imm32/outputs <span id="L18293" class="LineNr">18293 </span> 0x11/imm32/alloc-id:fake -<span id="L18294" class="LineNr">18294 </span> <a href='mu.subx.html#L21984'>_string_4f_decrement_edi</a>/imm32/subx-name +<span id="L18294" class="LineNr">18294 </span> <a href='mu.subx.html#L22207'>_string_46_increment_esi</a>/imm32/subx-name <span id="L18295" class="LineNr">18295 </span> 0/imm32/no-rm32 <span id="L18296" class="LineNr">18296 </span> 0/imm32/no-r32 <span id="L18297" class="LineNr">18297 </span> 0/imm32/no-imm32 @@ -17519,19 +17509,19 @@ if ('onhashchange' in window) { <span id="L18300" class="LineNr">18300 </span> 0/imm32/no-xm32 <span id="L18301" class="LineNr">18301 </span> 0/imm32/no-x32 <span id="L18302" class="LineNr">18302 </span> 0x11/imm32/alloc-id:fake -<span id="L18303" class="LineNr">18303 </span> <a href='mu.subx.html#L18304'>_Primitive-increment-mem</a>/imm32/next -<span id="L18304" class="LineNr">18304 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18303" class="LineNr">18303 </span> <a href='mu.subx.html#L18304'>_Primitive-increment-edi</a>/imm32/next +<span id="L18304" class="LineNr">18304 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18305" class="LineNr">18305 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> <span id="L18307" class="LineNr">18307 </span> 0x11/imm32/alloc-id:fake -<span id="L18308" class="LineNr">18308 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name -<span id="L18309" class="LineNr">18309 </span> 0x11/imm32/alloc-id:fake -<span id="L18310" class="LineNr">18310 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18311" class="LineNr">18311 </span> 0/imm32/no-outputs -<span id="L18312" class="LineNr">18312 </span> 0/imm32/no-outputs +<span id="L18308" class="LineNr">18308 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name +<span id="L18309" class="LineNr">18309 </span> 0/imm32/no-inouts +<span id="L18310" class="LineNr">18310 </span> 0/imm32/no-inouts +<span id="L18311" class="LineNr">18311 </span> 0x11/imm32/alloc-id:fake +<span id="L18312" class="LineNr">18312 </span> <span class="SpecialChar"><a href='mu.subx.html#L22642'>Single-int-var-in-edi</a></span>/imm32/outputs <span id="L18313" class="LineNr">18313 </span> 0x11/imm32/alloc-id:fake -<span id="L18314" class="LineNr">18314 </span> <a href='mu.subx.html#L22099'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L18315" class="LineNr">18315 </span> 1/imm32/rm32-is-first-inout +<span id="L18314" class="LineNr">18314 </span> <a href='mu.subx.html#L22212'>_string_47_increment_edi</a>/imm32/subx-name +<span id="L18315" class="LineNr">18315 </span> 0/imm32/no-rm32 <span id="L18316" class="LineNr">18316 </span> 0/imm32/no-r32 <span id="L18317" class="LineNr">18317 </span> 0/imm32/no-imm32 <span id="L18318" class="LineNr">18318 </span> 0/imm32/no-imm8 @@ -17539,19 +17529,19 @@ if ('onhashchange' in window) { <span id="L18320" class="LineNr">18320 </span> 0/imm32/no-xm32 <span id="L18321" class="LineNr">18321 </span> 0/imm32/no-x32 <span id="L18322" class="LineNr">18322 </span> 0x11/imm32/alloc-id:fake -<span id="L18323" class="LineNr">18323 </span> <a href='mu.subx.html#L18324'>_Primitive-increment-reg</a>/imm32/next -<span id="L18324" class="LineNr">18324 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18323" class="LineNr">18323 </span> <a href='mu.subx.html#L18324'>_Primitive-decrement-eax</a>/imm32/next +<span id="L18324" class="LineNr">18324 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18325" class="LineNr">18325 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18326" class="LineNr">18326 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L18326" class="LineNr">18326 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> <span id="L18327" class="LineNr">18327 </span> 0x11/imm32/alloc-id:fake -<span id="L18328" class="LineNr">18328 </span> <a href='mu.subx.html#L21442'>_string-increment</a>/imm32/name +<span id="L18328" class="LineNr">18328 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name <span id="L18329" class="LineNr">18329 </span> 0/imm32/no-inouts <span id="L18330" class="LineNr">18330 </span> 0/imm32/no-inouts <span id="L18331" class="LineNr">18331 </span> 0x11/imm32/alloc-id:fake -<span id="L18332" class="LineNr">18332 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18332" class="LineNr">18332 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L18333" class="LineNr">18333 </span> 0x11/imm32/alloc-id:fake -<span id="L18334" class="LineNr">18334 </span> <a href='mu.subx.html#L22099'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L18335" class="LineNr">18335 </span> 3/imm32/rm32-is-first-output +<span id="L18334" class="LineNr">18334 </span> <a href='mu.subx.html#L22217'>_string_48_decrement_eax</a>/imm32/subx-name +<span id="L18335" class="LineNr">18335 </span> 0/imm32/no-rm32 <span id="L18336" class="LineNr">18336 </span> 0/imm32/no-r32 <span id="L18337" class="LineNr">18337 </span> 0/imm32/no-imm32 <span id="L18338" class="LineNr">18338 </span> 0/imm32/no-imm8 @@ -17559,19 +17549,19 @@ if ('onhashchange' in window) { <span id="L18340" class="LineNr">18340 </span> 0/imm32/no-xm32 <span id="L18341" class="LineNr">18341 </span> 0/imm32/no-x32 <span id="L18342" class="LineNr">18342 </span> 0x11/imm32/alloc-id:fake -<span id="L18343" class="LineNr">18343 </span> <a href='mu.subx.html#L18344'>_Primitive-decrement-mem</a>/imm32/next -<span id="L18344" class="LineNr">18344 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18343" class="LineNr">18343 </span> <a href='mu.subx.html#L18344'>_Primitive-decrement-ecx</a>/imm32/next +<span id="L18344" class="LineNr">18344 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18345" class="LineNr">18345 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18346" class="LineNr">18346 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L18346" class="LineNr">18346 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> <span id="L18347" class="LineNr">18347 </span> 0x11/imm32/alloc-id:fake -<span id="L18348" class="LineNr">18348 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name -<span id="L18349" class="LineNr">18349 </span> 0x11/imm32/alloc-id:fake -<span id="L18350" class="LineNr">18350 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18351" class="LineNr">18351 </span> 0/imm32/no-outputs -<span id="L18352" class="LineNr">18352 </span> 0/imm32/no-outputs +<span id="L18348" class="LineNr">18348 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18349" class="LineNr">18349 </span> 0/imm32/no-inouts +<span id="L18350" class="LineNr">18350 </span> 0/imm32/no-inouts +<span id="L18351" class="LineNr">18351 </span> 0x11/imm32/alloc-id:fake +<span id="L18352" class="LineNr">18352 </span> <span class="SpecialChar"><a href='mu.subx.html#L22570'>Single-int-var-in-ecx</a></span>/imm32/outputs <span id="L18353" class="LineNr">18353 </span> 0x11/imm32/alloc-id:fake -<span id="L18354" class="LineNr">18354 </span> <a href='mu.subx.html#L22104'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L18355" class="LineNr">18355 </span> 1/imm32/rm32-is-first-inout +<span id="L18354" class="LineNr">18354 </span> <a href='mu.subx.html#L22222'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L18355" class="LineNr">18355 </span> 0/imm32/no-rm32 <span id="L18356" class="LineNr">18356 </span> 0/imm32/no-r32 <span id="L18357" class="LineNr">18357 </span> 0/imm32/no-imm32 <span id="L18358" class="LineNr">18358 </span> 0/imm32/no-imm8 @@ -17579,19 +17569,19 @@ if ('onhashchange' in window) { <span id="L18360" class="LineNr">18360 </span> 0/imm32/no-xm32 <span id="L18361" class="LineNr">18361 </span> 0/imm32/no-x32 <span id="L18362" class="LineNr">18362 </span> 0x11/imm32/alloc-id:fake -<span id="L18363" class="LineNr">18363 </span> <a href='mu.subx.html#L18364'>_Primitive-decrement-reg</a>/imm32/next -<span id="L18364" class="LineNr">18364 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18363" class="LineNr">18363 </span> <a href='mu.subx.html#L18364'>_Primitive-decrement-edx</a>/imm32/next +<span id="L18364" class="LineNr">18364 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L18365" class="LineNr">18365 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18366" class="LineNr">18366 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> +<span id="L18366" class="LineNr">18366 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> <span id="L18367" class="LineNr">18367 </span> 0x11/imm32/alloc-id:fake -<span id="L18368" class="LineNr">18368 </span> <a href='mu.subx.html#L21437'>_string-decrement</a>/imm32/name +<span id="L18368" class="LineNr">18368 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name <span id="L18369" class="LineNr">18369 </span> 0/imm32/no-inouts <span id="L18370" class="LineNr">18370 </span> 0/imm32/no-inouts <span id="L18371" class="LineNr">18371 </span> 0x11/imm32/alloc-id:fake -<span id="L18372" class="LineNr">18372 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18372" class="LineNr">18372 </span> <span class="SpecialChar"><a href='mu.subx.html#L22588'>Single-int-var-in-edx</a></span>/imm32/outputs <span id="L18373" class="LineNr">18373 </span> 0x11/imm32/alloc-id:fake -<span id="L18374" class="LineNr">18374 </span> <a href='mu.subx.html#L22104'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L18375" class="LineNr">18375 </span> 3/imm32/rm32-is-first-output +<span id="L18374" class="LineNr">18374 </span> <a href='mu.subx.html#L22227'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L18375" class="LineNr">18375 </span> 0/imm32/no-rm32 <span id="L18376" class="LineNr">18376 </span> 0/imm32/no-r32 <span id="L18377" class="LineNr">18377 </span> 0/imm32/no-imm32 <span id="L18378" class="LineNr">18378 </span> 0/imm32/no-imm8 @@ -17599,925 +17589,925 @@ if ('onhashchange' in window) { <span id="L18380" class="LineNr">18380 </span> 0/imm32/no-xm32 <span id="L18381" class="LineNr">18381 </span> 0/imm32/no-x32 <span id="L18382" class="LineNr">18382 </span> 0x11/imm32/alloc-id:fake -<span id="L18383" class="LineNr">18383 </span> <a href='mu.subx.html#L18385'>_Primitive-add-to-eax</a>/imm32/next -<span id="L18384" class="LineNr">18384 </span><span class="subxH1Comment"># - add</span> -<span id="L18385" class="LineNr">18385 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18386" class="LineNr">18386 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18387" class="LineNr">18387 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> -<span id="L18388" class="LineNr">18388 </span> 0x11/imm32/alloc-id:fake -<span id="L18389" class="LineNr">18389 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name -<span id="L18390" class="LineNr">18390 </span> 0x11/imm32/alloc-id:fake -<span id="L18391" class="LineNr">18391 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18392" class="LineNr">18392 </span> 0x11/imm32/alloc-id:fake -<span id="L18393" class="LineNr">18393 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18394" class="LineNr">18394 </span> 0x11/imm32/alloc-id:fake -<span id="L18395" class="LineNr">18395 </span> <a href='mu.subx.html#L21624'>_string_05_add_to_eax</a>/imm32/subx-name -<span id="L18396" class="LineNr">18396 </span> 0/imm32/no-rm32 -<span id="L18397" class="LineNr">18397 </span> 0/imm32/no-r32 -<span id="L18398" class="LineNr">18398 </span> 1/imm32/imm32-is-first-inout -<span id="L18399" class="LineNr">18399 </span> 0/imm32/no-imm8 -<span id="L18400" class="LineNr">18400 </span> 0/imm32/no-disp32 -<span id="L18401" class="LineNr">18401 </span> 0/imm32/no-xm32 -<span id="L18402" class="LineNr">18402 </span> 0/imm32/no-x32 -<span id="L18403" class="LineNr">18403 </span> 0x11/imm32/alloc-id:fake -<span id="L18404" class="LineNr">18404 </span> <a href='mu.subx.html#L18405'>_Primitive-add-reg-to-reg</a>/imm32/next -<span id="L18405" class="LineNr">18405 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18406" class="LineNr">18406 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18407" class="LineNr">18407 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> -<span id="L18408" class="LineNr">18408 </span> 0x11/imm32/alloc-id:fake -<span id="L18409" class="LineNr">18409 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name -<span id="L18410" class="LineNr">18410 </span> 0x11/imm32/alloc-id:fake -<span id="L18411" class="LineNr">18411 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L18412" class="LineNr">18412 </span> 0x11/imm32/alloc-id:fake -<span id="L18413" class="LineNr">18413 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18414" class="LineNr">18414 </span> 0x11/imm32/alloc-id:fake -<span id="L18415" class="LineNr">18415 </span> <a href='mu.subx.html#L21614'>_string_01_add_to</a>/imm32/subx-name -<span id="L18416" class="LineNr">18416 </span> 3/imm32/rm32-is-first-output -<span id="L18417" class="LineNr">18417 </span> 1/imm32/r32-is-first-inout -<span id="L18418" class="LineNr">18418 </span> 0/imm32/no-imm32 -<span id="L18419" class="LineNr">18419 </span> 0/imm32/no-imm8 -<span id="L18420" class="LineNr">18420 </span> 0/imm32/no-disp32 -<span id="L18421" class="LineNr">18421 </span> 0/imm32/no-xm32 -<span id="L18422" class="LineNr">18422 </span> 0/imm32/no-x32 -<span id="L18423" class="LineNr">18423 </span> 0x11/imm32/alloc-id:fake -<span id="L18424" class="LineNr">18424 </span> <a href='mu.subx.html#L18425'>_Primitive-add-reg-to-mem</a>/imm32/next -<span id="L18425" class="LineNr">18425 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18426" class="LineNr">18426 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18427" class="LineNr">18427 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> -<span id="L18428" class="LineNr">18428 </span> 0x11/imm32/alloc-id:fake -<span id="L18429" class="LineNr">18429 </span> <a href='mu.subx.html#L21322'>_string-add-to</a>/imm32/name -<span id="L18430" class="LineNr">18430 </span> 0x11/imm32/alloc-id:fake -<span id="L18431" class="LineNr">18431 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L18432" class="LineNr">18432 </span> 0/imm32/no-outputs -<span id="L18433" class="LineNr">18433 </span> 0/imm32/no-outputs -<span id="L18434" class="LineNr">18434 </span> 0x11/imm32/alloc-id:fake -<span id="L18435" class="LineNr">18435 </span> <a href='mu.subx.html#L21614'>_string_01_add_to</a>/imm32/subx-name -<span id="L18436" class="LineNr">18436 </span> 1/imm32/rm32-is-first-inout -<span id="L18437" class="LineNr">18437 </span> 2/imm32/r32-is-second-inout -<span id="L18438" class="LineNr">18438 </span> 0/imm32/no-imm32 -<span id="L18439" class="LineNr">18439 </span> 0/imm32/no-imm8 -<span id="L18440" class="LineNr">18440 </span> 0/imm32/no-disp32 -<span id="L18441" class="LineNr">18441 </span> 0/imm32/no-xm32 -<span id="L18442" class="LineNr">18442 </span> 0/imm32/no-x32 -<span id="L18443" class="LineNr">18443 </span> 0x11/imm32/alloc-id:fake -<span id="L18444" class="LineNr">18444 </span> <a href='mu.subx.html#L18445'>_Primitive-add-mem-to-reg</a>/imm32/next -<span id="L18445" class="LineNr">18445 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18446" class="LineNr">18446 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18447" class="LineNr">18447 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> -<span id="L18448" class="LineNr">18448 </span> 0x11/imm32/alloc-id:fake -<span id="L18449" class="LineNr">18449 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name -<span id="L18450" class="LineNr">18450 </span> 0x11/imm32/alloc-id:fake -<span id="L18451" class="LineNr">18451 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18452" class="LineNr">18452 </span> 0x11/imm32/alloc-id:fake -<span id="L18453" class="LineNr">18453 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18454" class="LineNr">18454 </span> 0x11/imm32/alloc-id:fake -<span id="L18455" class="LineNr">18455 </span> <a href='mu.subx.html#L21619'>_string_03_add</a>/imm32/subx-name -<span id="L18456" class="LineNr">18456 </span> 1/imm32/rm32-is-first-inout -<span id="L18457" class="LineNr">18457 </span> 3/imm32/r32-is-first-output -<span id="L18458" class="LineNr">18458 </span> 0/imm32/no-imm32 -<span id="L18459" class="LineNr">18459 </span> 0/imm32/no-imm8 -<span id="L18460" class="LineNr">18460 </span> 0/imm32/no-disp32 -<span id="L18461" class="LineNr">18461 </span> 0/imm32/no-xm32 -<span id="L18462" class="LineNr">18462 </span> 0/imm32/no-x32 -<span id="L18463" class="LineNr">18463 </span> 0x11/imm32/alloc-id:fake -<span id="L18464" class="LineNr">18464 </span> <a href='mu.subx.html#L18465'>_Primitive-add-lit-to-reg</a>/imm32/next -<span id="L18465" class="LineNr">18465 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18466" class="LineNr">18466 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18467" class="LineNr">18467 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L18468" class="LineNr">18468 </span> 0x11/imm32/alloc-id:fake -<span id="L18469" class="LineNr">18469 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name -<span id="L18470" class="LineNr">18470 </span> 0x11/imm32/alloc-id:fake -<span id="L18471" class="LineNr">18471 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18472" class="LineNr">18472 </span> 0x11/imm32/alloc-id:fake -<span id="L18473" class="LineNr">18473 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18474" class="LineNr">18474 </span> 0x11/imm32/alloc-id:fake -<span id="L18475" class="LineNr">18475 </span> <a href='mu.subx.html#L21989'>_string_81_subop_add</a>/imm32/subx-name -<span id="L18476" class="LineNr">18476 </span> 3/imm32/rm32-is-first-output -<span id="L18477" class="LineNr">18477 </span> 0/imm32/no-r32 -<span id="L18478" class="LineNr">18478 </span> 1/imm32/imm32-is-first-inout -<span id="L18479" class="LineNr">18479 </span> 0/imm32/no-imm8 -<span id="L18480" class="LineNr">18480 </span> 0/imm32/no-disp32 -<span id="L18481" class="LineNr">18481 </span> 0/imm32/no-xm32 -<span id="L18482" class="LineNr">18482 </span> 0/imm32/no-x32 -<span id="L18483" class="LineNr">18483 </span> 0x11/imm32/alloc-id:fake -<span id="L18484" class="LineNr">18484 </span> <a href='mu.subx.html#L18485'>_Primitive-add-lit-to-mem</a>/imm32/next -<span id="L18485" class="LineNr">18485 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18486" class="LineNr">18486 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18487" class="LineNr">18487 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L18488" class="LineNr">18488 </span> 0x11/imm32/alloc-id:fake -<span id="L18489" class="LineNr">18489 </span> <a href='mu.subx.html#L21322'>_string-add-to</a>/imm32/name -<span id="L18490" class="LineNr">18490 </span> 0x11/imm32/alloc-id:fake -<span id="L18491" class="LineNr">18491 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L18383" class="LineNr">18383 </span> <a href='mu.subx.html#L18384'>_Primitive-decrement-ebx</a>/imm32/next +<span id="L18384" class="LineNr">18384 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18385" class="LineNr">18385 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18386" class="LineNr">18386 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L18387" class="LineNr">18387 </span> 0x11/imm32/alloc-id:fake +<span id="L18388" class="LineNr">18388 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18389" class="LineNr">18389 </span> 0/imm32/no-inouts +<span id="L18390" class="LineNr">18390 </span> 0/imm32/no-inouts +<span id="L18391" class="LineNr">18391 </span> 0x11/imm32/alloc-id:fake +<span id="L18392" class="LineNr">18392 </span> <span class="SpecialChar"><a href='mu.subx.html#L22606'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L18393" class="LineNr">18393 </span> 0x11/imm32/alloc-id:fake +<span id="L18394" class="LineNr">18394 </span> <a href='mu.subx.html#L22232'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L18395" class="LineNr">18395 </span> 0/imm32/no-rm32 +<span id="L18396" class="LineNr">18396 </span> 0/imm32/no-r32 +<span id="L18397" class="LineNr">18397 </span> 0/imm32/no-imm32 +<span id="L18398" class="LineNr">18398 </span> 0/imm32/no-imm8 +<span id="L18399" class="LineNr">18399 </span> 0/imm32/no-disp32 +<span id="L18400" class="LineNr">18400 </span> 0/imm32/no-xm32 +<span id="L18401" class="LineNr">18401 </span> 0/imm32/no-x32 +<span id="L18402" class="LineNr">18402 </span> 0x11/imm32/alloc-id:fake +<span id="L18403" class="LineNr">18403 </span> <a href='mu.subx.html#L18404'>_Primitive-decrement-esi</a>/imm32/next +<span id="L18404" class="LineNr">18404 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18405" class="LineNr">18405 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18406" class="LineNr">18406 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L18407" class="LineNr">18407 </span> 0x11/imm32/alloc-id:fake +<span id="L18408" class="LineNr">18408 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18409" class="LineNr">18409 </span> 0/imm32/no-inouts +<span id="L18410" class="LineNr">18410 </span> 0/imm32/no-inouts +<span id="L18411" class="LineNr">18411 </span> 0x11/imm32/alloc-id:fake +<span id="L18412" class="LineNr">18412 </span> <span class="SpecialChar"><a href='mu.subx.html#L22624'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L18413" class="LineNr">18413 </span> 0x11/imm32/alloc-id:fake +<span id="L18414" class="LineNr">18414 </span> <a href='mu.subx.html#L22237'>_string_4e_decrement_esi</a>/imm32/subx-name +<span id="L18415" class="LineNr">18415 </span> 0/imm32/no-rm32 +<span id="L18416" class="LineNr">18416 </span> 0/imm32/no-r32 +<span id="L18417" class="LineNr">18417 </span> 0/imm32/no-imm32 +<span id="L18418" class="LineNr">18418 </span> 0/imm32/no-imm8 +<span id="L18419" class="LineNr">18419 </span> 0/imm32/no-disp32 +<span id="L18420" class="LineNr">18420 </span> 0/imm32/no-xm32 +<span id="L18421" class="LineNr">18421 </span> 0/imm32/no-x32 +<span id="L18422" class="LineNr">18422 </span> 0x11/imm32/alloc-id:fake +<span id="L18423" class="LineNr">18423 </span> <a href='mu.subx.html#L18424'>_Primitive-decrement-edi</a>/imm32/next +<span id="L18424" class="LineNr">18424 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18425" class="LineNr">18425 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18426" class="LineNr">18426 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L18427" class="LineNr">18427 </span> 0x11/imm32/alloc-id:fake +<span id="L18428" class="LineNr">18428 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18429" class="LineNr">18429 </span> 0/imm32/no-inouts +<span id="L18430" class="LineNr">18430 </span> 0/imm32/no-inouts +<span id="L18431" class="LineNr">18431 </span> 0x11/imm32/alloc-id:fake +<span id="L18432" class="LineNr">18432 </span> <span class="SpecialChar"><a href='mu.subx.html#L22642'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L18433" class="LineNr">18433 </span> 0x11/imm32/alloc-id:fake +<span id="L18434" class="LineNr">18434 </span> <a href='mu.subx.html#L22242'>_string_4f_decrement_edi</a>/imm32/subx-name +<span id="L18435" class="LineNr">18435 </span> 0/imm32/no-rm32 +<span id="L18436" class="LineNr">18436 </span> 0/imm32/no-r32 +<span id="L18437" class="LineNr">18437 </span> 0/imm32/no-imm32 +<span id="L18438" class="LineNr">18438 </span> 0/imm32/no-imm8 +<span id="L18439" class="LineNr">18439 </span> 0/imm32/no-disp32 +<span id="L18440" class="LineNr">18440 </span> 0/imm32/no-xm32 +<span id="L18441" class="LineNr">18441 </span> 0/imm32/no-x32 +<span id="L18442" class="LineNr">18442 </span> 0x11/imm32/alloc-id:fake +<span id="L18443" class="LineNr">18443 </span> <a href='mu.subx.html#L18444'>_Primitive-increment-mem</a>/imm32/next +<span id="L18444" class="LineNr">18444 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18445" class="LineNr">18445 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18446" class="LineNr">18446 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L18447" class="LineNr">18447 </span> 0x11/imm32/alloc-id:fake +<span id="L18448" class="LineNr">18448 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name +<span id="L18449" class="LineNr">18449 </span> 0x11/imm32/alloc-id:fake +<span id="L18450" class="LineNr">18450 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18451" class="LineNr">18451 </span> 0/imm32/no-outputs +<span id="L18452" class="LineNr">18452 </span> 0/imm32/no-outputs +<span id="L18453" class="LineNr">18453 </span> 0x11/imm32/alloc-id:fake +<span id="L18454" class="LineNr">18454 </span> <a href='mu.subx.html#L22357'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L18455" class="LineNr">18455 </span> 1/imm32/rm32-is-first-inout +<span id="L18456" class="LineNr">18456 </span> 0/imm32/no-r32 +<span id="L18457" class="LineNr">18457 </span> 0/imm32/no-imm32 +<span id="L18458" class="LineNr">18458 </span> 0/imm32/no-imm8 +<span id="L18459" class="LineNr">18459 </span> 0/imm32/no-disp32 +<span id="L18460" class="LineNr">18460 </span> 0/imm32/no-xm32 +<span id="L18461" class="LineNr">18461 </span> 0/imm32/no-x32 +<span id="L18462" class="LineNr">18462 </span> 0x11/imm32/alloc-id:fake +<span id="L18463" class="LineNr">18463 </span> <a href='mu.subx.html#L18464'>_Primitive-increment-reg</a>/imm32/next +<span id="L18464" class="LineNr">18464 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18465" class="LineNr">18465 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18466" class="LineNr">18466 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L18467" class="LineNr">18467 </span> 0x11/imm32/alloc-id:fake +<span id="L18468" class="LineNr">18468 </span> <a href='mu.subx.html#L21685'>_string-increment</a>/imm32/name +<span id="L18469" class="LineNr">18469 </span> 0/imm32/no-inouts +<span id="L18470" class="LineNr">18470 </span> 0/imm32/no-inouts +<span id="L18471" class="LineNr">18471 </span> 0x11/imm32/alloc-id:fake +<span id="L18472" class="LineNr">18472 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18473" class="LineNr">18473 </span> 0x11/imm32/alloc-id:fake +<span id="L18474" class="LineNr">18474 </span> <a href='mu.subx.html#L22357'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L18475" class="LineNr">18475 </span> 3/imm32/rm32-is-first-output +<span id="L18476" class="LineNr">18476 </span> 0/imm32/no-r32 +<span id="L18477" class="LineNr">18477 </span> 0/imm32/no-imm32 +<span id="L18478" class="LineNr">18478 </span> 0/imm32/no-imm8 +<span id="L18479" class="LineNr">18479 </span> 0/imm32/no-disp32 +<span id="L18480" class="LineNr">18480 </span> 0/imm32/no-xm32 +<span id="L18481" class="LineNr">18481 </span> 0/imm32/no-x32 +<span id="L18482" class="LineNr">18482 </span> 0x11/imm32/alloc-id:fake +<span id="L18483" class="LineNr">18483 </span> <a href='mu.subx.html#L18484'>_Primitive-decrement-mem</a>/imm32/next +<span id="L18484" class="LineNr">18484 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18485" class="LineNr">18485 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18486" class="LineNr">18486 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L18487" class="LineNr">18487 </span> 0x11/imm32/alloc-id:fake +<span id="L18488" class="LineNr">18488 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18489" class="LineNr">18489 </span> 0x11/imm32/alloc-id:fake +<span id="L18490" class="LineNr">18490 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18491" class="LineNr">18491 </span> 0/imm32/no-outputs <span id="L18492" class="LineNr">18492 </span> 0/imm32/no-outputs -<span id="L18493" class="LineNr">18493 </span> 0/imm32/no-outputs -<span id="L18494" class="LineNr">18494 </span> 0x11/imm32/alloc-id:fake -<span id="L18495" class="LineNr">18495 </span> <a href='mu.subx.html#L21989'>_string_81_subop_add</a>/imm32/subx-name -<span id="L18496" class="LineNr">18496 </span> 1/imm32/rm32-is-first-inout -<span id="L18497" class="LineNr">18497 </span> 0/imm32/no-r32 -<span id="L18498" class="LineNr">18498 </span> 2/imm32/imm32-is-second-inout -<span id="L18499" class="LineNr">18499 </span> 0/imm32/no-imm8 -<span id="L18500" class="LineNr">18500 </span> 0/imm32/no-disp32 -<span id="L18501" class="LineNr">18501 </span> 0/imm32/no-xm32 -<span id="L18502" class="LineNr">18502 </span> 0/imm32/no-x32 -<span id="L18503" class="LineNr">18503 </span> 0x11/imm32/alloc-id:fake -<span id="L18504" class="LineNr">18504 </span> <a href='mu.subx.html#L18506'>_Primitive-subtract-from-eax</a>/imm32/next -<span id="L18505" class="LineNr">18505 </span><span class="subxH1Comment"># - subtract</span> -<span id="L18506" class="LineNr">18506 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18507" class="LineNr">18507 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18508" class="LineNr">18508 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> -<span id="L18509" class="LineNr">18509 </span> 0x11/imm32/alloc-id:fake -<span id="L18510" class="LineNr">18510 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name +<span id="L18493" class="LineNr">18493 </span> 0x11/imm32/alloc-id:fake +<span id="L18494" class="LineNr">18494 </span> <a href='mu.subx.html#L22362'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L18495" class="LineNr">18495 </span> 1/imm32/rm32-is-first-inout +<span id="L18496" class="LineNr">18496 </span> 0/imm32/no-r32 +<span id="L18497" class="LineNr">18497 </span> 0/imm32/no-imm32 +<span id="L18498" class="LineNr">18498 </span> 0/imm32/no-imm8 +<span id="L18499" class="LineNr">18499 </span> 0/imm32/no-disp32 +<span id="L18500" class="LineNr">18500 </span> 0/imm32/no-xm32 +<span id="L18501" class="LineNr">18501 </span> 0/imm32/no-x32 +<span id="L18502" class="LineNr">18502 </span> 0x11/imm32/alloc-id:fake +<span id="L18503" class="LineNr">18503 </span> <a href='mu.subx.html#L18504'>_Primitive-decrement-reg</a>/imm32/next +<span id="L18504" class="LineNr">18504 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18505" class="LineNr">18505 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18506" class="LineNr">18506 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> +<span id="L18507" class="LineNr">18507 </span> 0x11/imm32/alloc-id:fake +<span id="L18508" class="LineNr">18508 </span> <a href='mu.subx.html#L21680'>_string-decrement</a>/imm32/name +<span id="L18509" class="LineNr">18509 </span> 0/imm32/no-inouts +<span id="L18510" class="LineNr">18510 </span> 0/imm32/no-inouts <span id="L18511" class="LineNr">18511 </span> 0x11/imm32/alloc-id:fake -<span id="L18512" class="LineNr">18512 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L18512" class="LineNr">18512 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L18513" class="LineNr">18513 </span> 0x11/imm32/alloc-id:fake -<span id="L18514" class="LineNr">18514 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18515" class="LineNr">18515 </span> 0x11/imm32/alloc-id:fake -<span id="L18516" class="LineNr">18516 </span> <a href='mu.subx.html#L21894'>_string_2d_subtract_from_eax</a>/imm32/subx-name -<span id="L18517" class="LineNr">18517 </span> 0/imm32/no-rm32 -<span id="L18518" class="LineNr">18518 </span> 0/imm32/no-r32 -<span id="L18519" class="LineNr">18519 </span> 1/imm32/imm32-is-first-inout -<span id="L18520" class="LineNr">18520 </span> 0/imm32/no-imm8 -<span id="L18521" class="LineNr">18521 </span> 0/imm32/no-disp32 -<span id="L18522" class="LineNr">18522 </span> 0/imm32/no-xm32 -<span id="L18523" class="LineNr">18523 </span> 0/imm32/no-x32 -<span id="L18524" class="LineNr">18524 </span> 0x11/imm32/alloc-id:fake -<span id="L18525" class="LineNr">18525 </span> <a href='mu.subx.html#L18526'>_Primitive-subtract-reg-from-reg</a>/imm32/next -<span id="L18526" class="LineNr">18526 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18527" class="LineNr">18527 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18528" class="LineNr">18528 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> -<span id="L18529" class="LineNr">18529 </span> 0x11/imm32/alloc-id:fake -<span id="L18530" class="LineNr">18530 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name -<span id="L18531" class="LineNr">18531 </span> 0x11/imm32/alloc-id:fake -<span id="L18532" class="LineNr">18532 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L18533" class="LineNr">18533 </span> 0x11/imm32/alloc-id:fake -<span id="L18534" class="LineNr">18534 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18535" class="LineNr">18535 </span> 0x11/imm32/alloc-id:fake -<span id="L18536" class="LineNr">18536 </span> <a href='mu.subx.html#L21884'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L18537" class="LineNr">18537 </span> 3/imm32/rm32-is-first-output -<span id="L18538" class="LineNr">18538 </span> 1/imm32/r32-is-first-inout -<span id="L18539" class="LineNr">18539 </span> 0/imm32/no-imm32 -<span id="L18540" class="LineNr">18540 </span> 0/imm32/no-imm8 -<span id="L18541" class="LineNr">18541 </span> 0/imm32/no-disp32 -<span id="L18542" class="LineNr">18542 </span> 0/imm32/no-xm32 -<span id="L18543" class="LineNr">18543 </span> 0/imm32/no-x32 -<span id="L18544" class="LineNr">18544 </span> 0x11/imm32/alloc-id:fake -<span id="L18545" class="LineNr">18545 </span> <a href='mu.subx.html#L18546'>_Primitive-subtract-reg-from-mem</a>/imm32/next -<span id="L18546" class="LineNr">18546 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18547" class="LineNr">18547 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18548" class="LineNr">18548 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> -<span id="L18549" class="LineNr">18549 </span> 0x11/imm32/alloc-id:fake -<span id="L18550" class="LineNr">18550 </span> <a href='mu.subx.html#L21582'>_string-subtract-from</a>/imm32/name -<span id="L18551" class="LineNr">18551 </span> 0x11/imm32/alloc-id:fake -<span id="L18552" class="LineNr">18552 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L18553" class="LineNr">18553 </span> 0/imm32/no-outputs -<span id="L18554" class="LineNr">18554 </span> 0/imm32/no-outputs -<span id="L18555" class="LineNr">18555 </span> 0x11/imm32/alloc-id:fake -<span id="L18556" class="LineNr">18556 </span> <a href='mu.subx.html#L21884'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L18557" class="LineNr">18557 </span> 1/imm32/rm32-is-first-inout -<span id="L18558" class="LineNr">18558 </span> 2/imm32/r32-is-second-inout -<span id="L18559" class="LineNr">18559 </span> 0/imm32/no-imm32 -<span id="L18560" class="LineNr">18560 </span> 0/imm32/no-imm8 -<span id="L18561" class="LineNr">18561 </span> 0/imm32/no-disp32 -<span id="L18562" class="LineNr">18562 </span> 0/imm32/no-xm32 -<span id="L18563" class="LineNr">18563 </span> 0/imm32/no-x32 -<span id="L18564" class="LineNr">18564 </span> 0x11/imm32/alloc-id:fake -<span id="L18565" class="LineNr">18565 </span> <a href='mu.subx.html#L18566'>_Primitive-subtract-mem-from-reg</a>/imm32/next -<span id="L18566" class="LineNr">18566 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18567" class="LineNr">18567 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18568" class="LineNr">18568 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> -<span id="L18569" class="LineNr">18569 </span> 0x11/imm32/alloc-id:fake -<span id="L18570" class="LineNr">18570 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name -<span id="L18571" class="LineNr">18571 </span> 0x11/imm32/alloc-id:fake -<span id="L18572" class="LineNr">18572 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18573" class="LineNr">18573 </span> 0x11/imm32/alloc-id:fake -<span id="L18574" class="LineNr">18574 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18575" class="LineNr">18575 </span> 0x11/imm32/alloc-id:fake -<span id="L18576" class="LineNr">18576 </span> <a href='mu.subx.html#L21889'>_string_2b_subtract</a>/imm32/subx-name -<span id="L18577" class="LineNr">18577 </span> 1/imm32/rm32-is-first-inout -<span id="L18578" class="LineNr">18578 </span> 3/imm32/r32-is-first-output -<span id="L18579" class="LineNr">18579 </span> 0/imm32/no-imm32 -<span id="L18580" class="LineNr">18580 </span> 0/imm32/no-imm8 -<span id="L18581" class="LineNr">18581 </span> 0/imm32/no-disp32 -<span id="L18582" class="LineNr">18582 </span> 0/imm32/no-xm32 -<span id="L18583" class="LineNr">18583 </span> 0/imm32/no-x32 -<span id="L18584" class="LineNr">18584 </span> 0x11/imm32/alloc-id:fake -<span id="L18585" class="LineNr">18585 </span> <a href='mu.subx.html#L18586'>_Primitive-subtract-lit-from-reg</a>/imm32/next -<span id="L18586" class="LineNr">18586 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18587" class="LineNr">18587 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18588" class="LineNr">18588 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L18589" class="LineNr">18589 </span> 0x11/imm32/alloc-id:fake -<span id="L18590" class="LineNr">18590 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name -<span id="L18591" class="LineNr">18591 </span> 0x11/imm32/alloc-id:fake -<span id="L18592" class="LineNr">18592 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18593" class="LineNr">18593 </span> 0x11/imm32/alloc-id:fake -<span id="L18594" class="LineNr">18594 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18595" class="LineNr">18595 </span> 0x11/imm32/alloc-id:fake -<span id="L18596" class="LineNr">18596 </span> <a href='mu.subx.html#L22004'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L18597" class="LineNr">18597 </span> 3/imm32/rm32-is-first-output -<span id="L18598" class="LineNr">18598 </span> 0/imm32/no-r32 -<span id="L18599" class="LineNr">18599 </span> 1/imm32/imm32-is-first-inout -<span id="L18600" class="LineNr">18600 </span> 0/imm32/no-imm8 -<span id="L18601" class="LineNr">18601 </span> 0/imm32/no-disp32 -<span id="L18602" class="LineNr">18602 </span> 0/imm32/no-xm32 -<span id="L18603" class="LineNr">18603 </span> 0/imm32/no-x32 -<span id="L18604" class="LineNr">18604 </span> 0x11/imm32/alloc-id:fake -<span id="L18605" class="LineNr">18605 </span> <a href='mu.subx.html#L18606'>_Primitive-subtract-lit-from-mem</a>/imm32/next -<span id="L18606" class="LineNr">18606 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18607" class="LineNr">18607 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18608" class="LineNr">18608 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L18609" class="LineNr">18609 </span> 0x11/imm32/alloc-id:fake -<span id="L18610" class="LineNr">18610 </span> <a href='mu.subx.html#L21582'>_string-subtract-from</a>/imm32/name -<span id="L18611" class="LineNr">18611 </span> 0x11/imm32/alloc-id:fake -<span id="L18612" class="LineNr">18612 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L18613" class="LineNr">18613 </span> 0/imm32/no-outputs -<span id="L18614" class="LineNr">18614 </span> 0/imm32/no-outputs -<span id="L18615" class="LineNr">18615 </span> 0x11/imm32/alloc-id:fake -<span id="L18616" class="LineNr">18616 </span> <a href='mu.subx.html#L22004'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L18617" class="LineNr">18617 </span> 1/imm32/rm32-is-first-inout -<span id="L18618" class="LineNr">18618 </span> 0/imm32/no-r32 -<span id="L18619" class="LineNr">18619 </span> 2/imm32/imm32-is-second-inout -<span id="L18620" class="LineNr">18620 </span> 0/imm32/no-imm8 -<span id="L18621" class="LineNr">18621 </span> 0/imm32/no-disp32 -<span id="L18622" class="LineNr">18622 </span> 0/imm32/no-xm32 -<span id="L18623" class="LineNr">18623 </span> 0/imm32/no-x32 -<span id="L18624" class="LineNr">18624 </span> 0x11/imm32/alloc-id:fake -<span id="L18625" class="LineNr">18625 </span> <a href='mu.subx.html#L18627'>_Primitive-and-with-eax</a>/imm32/next -<span id="L18626" class="LineNr">18626 </span><span class="subxH1Comment"># - and</span> -<span id="L18627" class="LineNr">18627 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18628" class="LineNr">18628 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18629" class="LineNr">18629 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L18514" class="LineNr">18514 </span> <a href='mu.subx.html#L22362'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L18515" class="LineNr">18515 </span> 3/imm32/rm32-is-first-output +<span id="L18516" class="LineNr">18516 </span> 0/imm32/no-r32 +<span id="L18517" class="LineNr">18517 </span> 0/imm32/no-imm32 +<span id="L18518" class="LineNr">18518 </span> 0/imm32/no-imm8 +<span id="L18519" class="LineNr">18519 </span> 0/imm32/no-disp32 +<span id="L18520" class="LineNr">18520 </span> 0/imm32/no-xm32 +<span id="L18521" class="LineNr">18521 </span> 0/imm32/no-x32 +<span id="L18522" class="LineNr">18522 </span> 0x11/imm32/alloc-id:fake +<span id="L18523" class="LineNr">18523 </span> <a href='mu.subx.html#L18525'>_Primitive-add-to-eax</a>/imm32/next +<span id="L18524" class="LineNr">18524 </span><span class="subxH1Comment"># - add</span> +<span id="L18525" class="LineNr">18525 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18526" class="LineNr">18526 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18527" class="LineNr">18527 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> +<span id="L18528" class="LineNr">18528 </span> 0x11/imm32/alloc-id:fake +<span id="L18529" class="LineNr">18529 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L18530" class="LineNr">18530 </span> 0x11/imm32/alloc-id:fake +<span id="L18531" class="LineNr">18531 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18532" class="LineNr">18532 </span> 0x11/imm32/alloc-id:fake +<span id="L18533" class="LineNr">18533 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L18534" class="LineNr">18534 </span> 0x11/imm32/alloc-id:fake +<span id="L18535" class="LineNr">18535 </span> <a href='mu.subx.html#L21877'>_string_05_add_to_eax</a>/imm32/subx-name +<span id="L18536" class="LineNr">18536 </span> 0/imm32/no-rm32 +<span id="L18537" class="LineNr">18537 </span> 0/imm32/no-r32 +<span id="L18538" class="LineNr">18538 </span> 1/imm32/imm32-is-first-inout +<span id="L18539" class="LineNr">18539 </span> 0/imm32/no-imm8 +<span id="L18540" class="LineNr">18540 </span> 0/imm32/no-disp32 +<span id="L18541" class="LineNr">18541 </span> 0/imm32/no-xm32 +<span id="L18542" class="LineNr">18542 </span> 0/imm32/no-x32 +<span id="L18543" class="LineNr">18543 </span> 0x11/imm32/alloc-id:fake +<span id="L18544" class="LineNr">18544 </span> <a href='mu.subx.html#L18545'>_Primitive-add-reg-to-reg</a>/imm32/next +<span id="L18545" class="LineNr">18545 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18546" class="LineNr">18546 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18547" class="LineNr">18547 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> +<span id="L18548" class="LineNr">18548 </span> 0x11/imm32/alloc-id:fake +<span id="L18549" class="LineNr">18549 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L18550" class="LineNr">18550 </span> 0x11/imm32/alloc-id:fake +<span id="L18551" class="LineNr">18551 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L18552" class="LineNr">18552 </span> 0x11/imm32/alloc-id:fake +<span id="L18553" class="LineNr">18553 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18554" class="LineNr">18554 </span> 0x11/imm32/alloc-id:fake +<span id="L18555" class="LineNr">18555 </span> <a href='mu.subx.html#L21867'>_string_01_add_to</a>/imm32/subx-name +<span id="L18556" class="LineNr">18556 </span> 3/imm32/rm32-is-first-output +<span id="L18557" class="LineNr">18557 </span> 1/imm32/r32-is-first-inout +<span id="L18558" class="LineNr">18558 </span> 0/imm32/no-imm32 +<span id="L18559" class="LineNr">18559 </span> 0/imm32/no-imm8 +<span id="L18560" class="LineNr">18560 </span> 0/imm32/no-disp32 +<span id="L18561" class="LineNr">18561 </span> 0/imm32/no-xm32 +<span id="L18562" class="LineNr">18562 </span> 0/imm32/no-x32 +<span id="L18563" class="LineNr">18563 </span> 0x11/imm32/alloc-id:fake +<span id="L18564" class="LineNr">18564 </span> <a href='mu.subx.html#L18565'>_Primitive-add-reg-to-mem</a>/imm32/next +<span id="L18565" class="LineNr">18565 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18566" class="LineNr">18566 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18567" class="LineNr">18567 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> +<span id="L18568" class="LineNr">18568 </span> 0x11/imm32/alloc-id:fake +<span id="L18569" class="LineNr">18569 </span> <a href='mu.subx.html#L21565'>_string-add-to</a>/imm32/name +<span id="L18570" class="LineNr">18570 </span> 0x11/imm32/alloc-id:fake +<span id="L18571" class="LineNr">18571 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L18572" class="LineNr">18572 </span> 0/imm32/no-outputs +<span id="L18573" class="LineNr">18573 </span> 0/imm32/no-outputs +<span id="L18574" class="LineNr">18574 </span> 0x11/imm32/alloc-id:fake +<span id="L18575" class="LineNr">18575 </span> <a href='mu.subx.html#L21867'>_string_01_add_to</a>/imm32/subx-name +<span id="L18576" class="LineNr">18576 </span> 1/imm32/rm32-is-first-inout +<span id="L18577" class="LineNr">18577 </span> 2/imm32/r32-is-second-inout +<span id="L18578" class="LineNr">18578 </span> 0/imm32/no-imm32 +<span id="L18579" class="LineNr">18579 </span> 0/imm32/no-imm8 +<span id="L18580" class="LineNr">18580 </span> 0/imm32/no-disp32 +<span id="L18581" class="LineNr">18581 </span> 0/imm32/no-xm32 +<span id="L18582" class="LineNr">18582 </span> 0/imm32/no-x32 +<span id="L18583" class="LineNr">18583 </span> 0x11/imm32/alloc-id:fake +<span id="L18584" class="LineNr">18584 </span> <a href='mu.subx.html#L18585'>_Primitive-add-mem-to-reg</a>/imm32/next +<span id="L18585" class="LineNr">18585 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18586" class="LineNr">18586 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18587" class="LineNr">18587 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L18588" class="LineNr">18588 </span> 0x11/imm32/alloc-id:fake +<span id="L18589" class="LineNr">18589 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L18590" class="LineNr">18590 </span> 0x11/imm32/alloc-id:fake +<span id="L18591" class="LineNr">18591 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18592" class="LineNr">18592 </span> 0x11/imm32/alloc-id:fake +<span id="L18593" class="LineNr">18593 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18594" class="LineNr">18594 </span> 0x11/imm32/alloc-id:fake +<span id="L18595" class="LineNr">18595 </span> <a href='mu.subx.html#L21872'>_string_03_add</a>/imm32/subx-name +<span id="L18596" class="LineNr">18596 </span> 1/imm32/rm32-is-first-inout +<span id="L18597" class="LineNr">18597 </span> 3/imm32/r32-is-first-output +<span id="L18598" class="LineNr">18598 </span> 0/imm32/no-imm32 +<span id="L18599" class="LineNr">18599 </span> 0/imm32/no-imm8 +<span id="L18600" class="LineNr">18600 </span> 0/imm32/no-disp32 +<span id="L18601" class="LineNr">18601 </span> 0/imm32/no-xm32 +<span id="L18602" class="LineNr">18602 </span> 0/imm32/no-x32 +<span id="L18603" class="LineNr">18603 </span> 0x11/imm32/alloc-id:fake +<span id="L18604" class="LineNr">18604 </span> <a href='mu.subx.html#L18605'>_Primitive-add-lit-to-reg</a>/imm32/next +<span id="L18605" class="LineNr">18605 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18606" class="LineNr">18606 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18607" class="LineNr">18607 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L18608" class="LineNr">18608 </span> 0x11/imm32/alloc-id:fake +<span id="L18609" class="LineNr">18609 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L18610" class="LineNr">18610 </span> 0x11/imm32/alloc-id:fake +<span id="L18611" class="LineNr">18611 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18612" class="LineNr">18612 </span> 0x11/imm32/alloc-id:fake +<span id="L18613" class="LineNr">18613 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18614" class="LineNr">18614 </span> 0x11/imm32/alloc-id:fake +<span id="L18615" class="LineNr">18615 </span> <a href='mu.subx.html#L22247'>_string_81_subop_add</a>/imm32/subx-name +<span id="L18616" class="LineNr">18616 </span> 3/imm32/rm32-is-first-output +<span id="L18617" class="LineNr">18617 </span> 0/imm32/no-r32 +<span id="L18618" class="LineNr">18618 </span> 1/imm32/imm32-is-first-inout +<span id="L18619" class="LineNr">18619 </span> 0/imm32/no-imm8 +<span id="L18620" class="LineNr">18620 </span> 0/imm32/no-disp32 +<span id="L18621" class="LineNr">18621 </span> 0/imm32/no-xm32 +<span id="L18622" class="LineNr">18622 </span> 0/imm32/no-x32 +<span id="L18623" class="LineNr">18623 </span> 0x11/imm32/alloc-id:fake +<span id="L18624" class="LineNr">18624 </span> <a href='mu.subx.html#L18625'>_Primitive-add-lit-to-mem</a>/imm32/next +<span id="L18625" class="LineNr">18625 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18626" class="LineNr">18626 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18627" class="LineNr">18627 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L18628" class="LineNr">18628 </span> 0x11/imm32/alloc-id:fake +<span id="L18629" class="LineNr">18629 </span> <a href='mu.subx.html#L21565'>_string-add-to</a>/imm32/name <span id="L18630" class="LineNr">18630 </span> 0x11/imm32/alloc-id:fake -<span id="L18631" class="LineNr">18631 </span> <a href='mu.subx.html#L21327'>_string-and</a>/imm32/name -<span id="L18632" class="LineNr">18632 </span> 0x11/imm32/alloc-id:fake -<span id="L18633" class="LineNr">18633 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L18631" class="LineNr">18631 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L18632" class="LineNr">18632 </span> 0/imm32/no-outputs +<span id="L18633" class="LineNr">18633 </span> 0/imm32/no-outputs <span id="L18634" class="LineNr">18634 </span> 0x11/imm32/alloc-id:fake -<span id="L18635" class="LineNr">18635 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18636" class="LineNr">18636 </span> 0x11/imm32/alloc-id:fake -<span id="L18637" class="LineNr">18637 </span> <a href='mu.subx.html#L21879'>_string_25_and_with_eax</a>/imm32/subx-name -<span id="L18638" class="LineNr">18638 </span> 0/imm32/no-rm32 -<span id="L18639" class="LineNr">18639 </span> 0/imm32/no-r32 -<span id="L18640" class="LineNr">18640 </span> 1/imm32/imm32-is-first-inout -<span id="L18641" class="LineNr">18641 </span> 0/imm32/no-imm8 -<span id="L18642" class="LineNr">18642 </span> 0/imm32/no-disp32 -<span id="L18643" class="LineNr">18643 </span> 0/imm32/no-xm32 -<span id="L18644" class="LineNr">18644 </span> 0/imm32/no-x32 -<span id="L18645" class="LineNr">18645 </span> 0x11/imm32/alloc-id:fake -<span id="L18646" class="LineNr">18646 </span> <a href='mu.subx.html#L18647'>_Primitive-and-reg-with-reg</a>/imm32/next -<span id="L18647" class="LineNr">18647 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18648" class="LineNr">18648 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18649" class="LineNr">18649 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> -<span id="L18650" class="LineNr">18650 </span> 0x11/imm32/alloc-id:fake -<span id="L18651" class="LineNr">18651 </span> <a href='mu.subx.html#L21327'>_string-and</a>/imm32/name -<span id="L18652" class="LineNr">18652 </span> 0x11/imm32/alloc-id:fake -<span id="L18653" class="LineNr">18653 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L18654" class="LineNr">18654 </span> 0x11/imm32/alloc-id:fake -<span id="L18655" class="LineNr">18655 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18656" class="LineNr">18656 </span> 0x11/imm32/alloc-id:fake -<span id="L18657" class="LineNr">18657 </span> <a href='mu.subx.html#L21869'>_string_21_and_with</a>/imm32/subx-name -<span id="L18658" class="LineNr">18658 </span> 3/imm32/rm32-is-first-output -<span id="L18659" class="LineNr">18659 </span> 1/imm32/r32-is-first-inout -<span id="L18660" class="LineNr">18660 </span> 0/imm32/no-imm32 -<span id="L18661" class="LineNr">18661 </span> 0/imm32/no-imm8 -<span id="L18662" class="LineNr">18662 </span> 0/imm32/no-disp32 -<span id="L18663" class="LineNr">18663 </span> 0/imm32/no-xm32 -<span id="L18664" class="LineNr">18664 </span> 0/imm32/no-x32 -<span id="L18665" class="LineNr">18665 </span> 0x11/imm32/alloc-id:fake -<span id="L18666" class="LineNr">18666 </span> <a href='mu.subx.html#L18667'>_Primitive-and-reg-with-mem</a>/imm32/next -<span id="L18667" class="LineNr">18667 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18668" class="LineNr">18668 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18669" class="LineNr">18669 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> -<span id="L18670" class="LineNr">18670 </span> 0x11/imm32/alloc-id:fake -<span id="L18671" class="LineNr">18671 </span> <a href='mu.subx.html#L21332'>_string-and-with</a>/imm32/name -<span id="L18672" class="LineNr">18672 </span> 0x11/imm32/alloc-id:fake -<span id="L18673" class="LineNr">18673 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L18674" class="LineNr">18674 </span> 0/imm32/no-outputs -<span id="L18675" class="LineNr">18675 </span> 0/imm32/no-outputs -<span id="L18676" class="LineNr">18676 </span> 0x11/imm32/alloc-id:fake -<span id="L18677" class="LineNr">18677 </span> <a href='mu.subx.html#L21869'>_string_21_and_with</a>/imm32/subx-name -<span id="L18678" class="LineNr">18678 </span> 1/imm32/rm32-is-first-inout -<span id="L18679" class="LineNr">18679 </span> 2/imm32/r32-is-second-inout -<span id="L18680" class="LineNr">18680 </span> 0/imm32/no-imm32 -<span id="L18681" class="LineNr">18681 </span> 0/imm32/no-imm8 -<span id="L18682" class="LineNr">18682 </span> 0/imm32/no-disp32 -<span id="L18683" class="LineNr">18683 </span> 0/imm32/no-xm32 -<span id="L18684" class="LineNr">18684 </span> 0/imm32/no-x32 -<span id="L18685" class="LineNr">18685 </span> 0x11/imm32/alloc-id:fake -<span id="L18686" class="LineNr">18686 </span> <a href='mu.subx.html#L18687'>_Primitive-and-mem-with-reg</a>/imm32/next -<span id="L18687" class="LineNr">18687 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18688" class="LineNr">18688 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18689" class="LineNr">18689 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> -<span id="L18690" class="LineNr">18690 </span> 0x11/imm32/alloc-id:fake -<span id="L18691" class="LineNr">18691 </span> <a href='mu.subx.html#L21327'>_string-and</a>/imm32/name -<span id="L18692" class="LineNr">18692 </span> 0x11/imm32/alloc-id:fake -<span id="L18693" class="LineNr">18693 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18694" class="LineNr">18694 </span> 0x11/imm32/alloc-id:fake -<span id="L18695" class="LineNr">18695 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18696" class="LineNr">18696 </span> 0x11/imm32/alloc-id:fake -<span id="L18697" class="LineNr">18697 </span> <a href='mu.subx.html#L21874'>_string_23_and</a>/imm32/subx-name -<span id="L18698" class="LineNr">18698 </span> 1/imm32/rm32-is-first-inout -<span id="L18699" class="LineNr">18699 </span> 3/imm32/r32-is-first-output -<span id="L18700" class="LineNr">18700 </span> 0/imm32/no-imm32 -<span id="L18701" class="LineNr">18701 </span> 0/imm32/no-imm8 -<span id="L18702" class="LineNr">18702 </span> 0/imm32/no-disp32 -<span id="L18703" class="LineNr">18703 </span> 0/imm32/no-xm32 -<span id="L18704" class="LineNr">18704 </span> 0/imm32/no-x32 -<span id="L18705" class="LineNr">18705 </span> 0x11/imm32/alloc-id:fake -<span id="L18706" class="LineNr">18706 </span> <a href='mu.subx.html#L18707'>_Primitive-and-lit-with-reg</a>/imm32/next -<span id="L18707" class="LineNr">18707 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18708" class="LineNr">18708 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18709" class="LineNr">18709 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L18710" class="LineNr">18710 </span> 0x11/imm32/alloc-id:fake -<span id="L18711" class="LineNr">18711 </span> <a href='mu.subx.html#L21327'>_string-and</a>/imm32/name -<span id="L18712" class="LineNr">18712 </span> 0x11/imm32/alloc-id:fake -<span id="L18713" class="LineNr">18713 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18714" class="LineNr">18714 </span> 0x11/imm32/alloc-id:fake -<span id="L18715" class="LineNr">18715 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18716" class="LineNr">18716 </span> 0x11/imm32/alloc-id:fake -<span id="L18717" class="LineNr">18717 </span> <a href='mu.subx.html#L21999'>_string_81_subop_and</a>/imm32/subx-name -<span id="L18718" class="LineNr">18718 </span> 3/imm32/rm32-is-first-output -<span id="L18719" class="LineNr">18719 </span> 0/imm32/no-r32 -<span id="L18720" class="LineNr">18720 </span> 1/imm32/imm32-is-first-inout -<span id="L18721" class="LineNr">18721 </span> 0/imm32/no-imm8 -<span id="L18722" class="LineNr">18722 </span> 0/imm32/no-disp32 -<span id="L18723" class="LineNr">18723 </span> 0/imm32/no-xm32 -<span id="L18724" class="LineNr">18724 </span> 0/imm32/no-x32 -<span id="L18725" class="LineNr">18725 </span> 0x11/imm32/alloc-id:fake -<span id="L18726" class="LineNr">18726 </span> <a href='mu.subx.html#L18727'>_Primitive-and-lit-with-mem</a>/imm32/next -<span id="L18727" class="LineNr">18727 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18728" class="LineNr">18728 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18729" class="LineNr">18729 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L18730" class="LineNr">18730 </span> 0x11/imm32/alloc-id:fake -<span id="L18731" class="LineNr">18731 </span> <a href='mu.subx.html#L21332'>_string-and-with</a>/imm32/name -<span id="L18732" class="LineNr">18732 </span> 0x11/imm32/alloc-id:fake -<span id="L18733" class="LineNr">18733 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L18734" class="LineNr">18734 </span> 0/imm32/no-outputs -<span id="L18735" class="LineNr">18735 </span> 0/imm32/no-outputs -<span id="L18736" class="LineNr">18736 </span> 0x11/imm32/alloc-id:fake -<span id="L18737" class="LineNr">18737 </span> <a href='mu.subx.html#L21999'>_string_81_subop_and</a>/imm32/subx-name -<span id="L18738" class="LineNr">18738 </span> 1/imm32/rm32-is-first-inout -<span id="L18739" class="LineNr">18739 </span> 0/imm32/no-r32 -<span id="L18740" class="LineNr">18740 </span> 2/imm32/imm32-is-second-inout -<span id="L18741" class="LineNr">18741 </span> 0/imm32/no-imm8 -<span id="L18742" class="LineNr">18742 </span> 0/imm32/no-disp32 -<span id="L18743" class="LineNr">18743 </span> 0/imm32/no-xm32 -<span id="L18744" class="LineNr">18744 </span> 0/imm32/no-x32 -<span id="L18745" class="LineNr">18745 </span> 0x11/imm32/alloc-id:fake -<span id="L18746" class="LineNr">18746 </span> <a href='mu.subx.html#L18748'>_Primitive-or-with-eax</a>/imm32/next -<span id="L18747" class="LineNr">18747 </span><span class="subxH1Comment"># - or</span> -<span id="L18748" class="LineNr">18748 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18749" class="LineNr">18749 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18750" class="LineNr">18750 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L18635" class="LineNr">18635 </span> <a href='mu.subx.html#L22247'>_string_81_subop_add</a>/imm32/subx-name +<span id="L18636" class="LineNr">18636 </span> 1/imm32/rm32-is-first-inout +<span id="L18637" class="LineNr">18637 </span> 0/imm32/no-r32 +<span id="L18638" class="LineNr">18638 </span> 2/imm32/imm32-is-second-inout +<span id="L18639" class="LineNr">18639 </span> 0/imm32/no-imm8 +<span id="L18640" class="LineNr">18640 </span> 0/imm32/no-disp32 +<span id="L18641" class="LineNr">18641 </span> 0/imm32/no-xm32 +<span id="L18642" class="LineNr">18642 </span> 0/imm32/no-x32 +<span id="L18643" class="LineNr">18643 </span> 0x11/imm32/alloc-id:fake +<span id="L18644" class="LineNr">18644 </span> <a href='mu.subx.html#L18646'>_Primitive-subtract-from-eax</a>/imm32/next +<span id="L18645" class="LineNr">18645 </span><span class="subxH1Comment"># - subtract</span> +<span id="L18646" class="LineNr">18646 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18647" class="LineNr">18647 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18648" class="LineNr">18648 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> +<span id="L18649" class="LineNr">18649 </span> 0x11/imm32/alloc-id:fake +<span id="L18650" class="LineNr">18650 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L18651" class="LineNr">18651 </span> 0x11/imm32/alloc-id:fake +<span id="L18652" class="LineNr">18652 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18653" class="LineNr">18653 </span> 0x11/imm32/alloc-id:fake +<span id="L18654" class="LineNr">18654 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L18655" class="LineNr">18655 </span> 0x11/imm32/alloc-id:fake +<span id="L18656" class="LineNr">18656 </span> <a href='mu.subx.html#L22152'>_string_2d_subtract_from_eax</a>/imm32/subx-name +<span id="L18657" class="LineNr">18657 </span> 0/imm32/no-rm32 +<span id="L18658" class="LineNr">18658 </span> 0/imm32/no-r32 +<span id="L18659" class="LineNr">18659 </span> 1/imm32/imm32-is-first-inout +<span id="L18660" class="LineNr">18660 </span> 0/imm32/no-imm8 +<span id="L18661" class="LineNr">18661 </span> 0/imm32/no-disp32 +<span id="L18662" class="LineNr">18662 </span> 0/imm32/no-xm32 +<span id="L18663" class="LineNr">18663 </span> 0/imm32/no-x32 +<span id="L18664" class="LineNr">18664 </span> 0x11/imm32/alloc-id:fake +<span id="L18665" class="LineNr">18665 </span> <a href='mu.subx.html#L18666'>_Primitive-subtract-reg-from-reg</a>/imm32/next +<span id="L18666" class="LineNr">18666 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18667" class="LineNr">18667 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18668" class="LineNr">18668 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> +<span id="L18669" class="LineNr">18669 </span> 0x11/imm32/alloc-id:fake +<span id="L18670" class="LineNr">18670 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L18671" class="LineNr">18671 </span> 0x11/imm32/alloc-id:fake +<span id="L18672" class="LineNr">18672 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L18673" class="LineNr">18673 </span> 0x11/imm32/alloc-id:fake +<span id="L18674" class="LineNr">18674 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18675" class="LineNr">18675 </span> 0x11/imm32/alloc-id:fake +<span id="L18676" class="LineNr">18676 </span> <a href='mu.subx.html#L22142'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L18677" class="LineNr">18677 </span> 3/imm32/rm32-is-first-output +<span id="L18678" class="LineNr">18678 </span> 1/imm32/r32-is-first-inout +<span id="L18679" class="LineNr">18679 </span> 0/imm32/no-imm32 +<span id="L18680" class="LineNr">18680 </span> 0/imm32/no-imm8 +<span id="L18681" class="LineNr">18681 </span> 0/imm32/no-disp32 +<span id="L18682" class="LineNr">18682 </span> 0/imm32/no-xm32 +<span id="L18683" class="LineNr">18683 </span> 0/imm32/no-x32 +<span id="L18684" class="LineNr">18684 </span> 0x11/imm32/alloc-id:fake +<span id="L18685" class="LineNr">18685 </span> <a href='mu.subx.html#L18686'>_Primitive-subtract-reg-from-mem</a>/imm32/next +<span id="L18686" class="LineNr">18686 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18687" class="LineNr">18687 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18688" class="LineNr">18688 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> +<span id="L18689" class="LineNr">18689 </span> 0x11/imm32/alloc-id:fake +<span id="L18690" class="LineNr">18690 </span> <a href='mu.subx.html#L21835'>_string-subtract-from</a>/imm32/name +<span id="L18691" class="LineNr">18691 </span> 0x11/imm32/alloc-id:fake +<span id="L18692" class="LineNr">18692 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L18693" class="LineNr">18693 </span> 0/imm32/no-outputs +<span id="L18694" class="LineNr">18694 </span> 0/imm32/no-outputs +<span id="L18695" class="LineNr">18695 </span> 0x11/imm32/alloc-id:fake +<span id="L18696" class="LineNr">18696 </span> <a href='mu.subx.html#L22142'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L18697" class="LineNr">18697 </span> 1/imm32/rm32-is-first-inout +<span id="L18698" class="LineNr">18698 </span> 2/imm32/r32-is-second-inout +<span id="L18699" class="LineNr">18699 </span> 0/imm32/no-imm32 +<span id="L18700" class="LineNr">18700 </span> 0/imm32/no-imm8 +<span id="L18701" class="LineNr">18701 </span> 0/imm32/no-disp32 +<span id="L18702" class="LineNr">18702 </span> 0/imm32/no-xm32 +<span id="L18703" class="LineNr">18703 </span> 0/imm32/no-x32 +<span id="L18704" class="LineNr">18704 </span> 0x11/imm32/alloc-id:fake +<span id="L18705" class="LineNr">18705 </span> <a href='mu.subx.html#L18706'>_Primitive-subtract-mem-from-reg</a>/imm32/next +<span id="L18706" class="LineNr">18706 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18707" class="LineNr">18707 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18708" class="LineNr">18708 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L18709" class="LineNr">18709 </span> 0x11/imm32/alloc-id:fake +<span id="L18710" class="LineNr">18710 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L18711" class="LineNr">18711 </span> 0x11/imm32/alloc-id:fake +<span id="L18712" class="LineNr">18712 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18713" class="LineNr">18713 </span> 0x11/imm32/alloc-id:fake +<span id="L18714" class="LineNr">18714 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18715" class="LineNr">18715 </span> 0x11/imm32/alloc-id:fake +<span id="L18716" class="LineNr">18716 </span> <a href='mu.subx.html#L22147'>_string_2b_subtract</a>/imm32/subx-name +<span id="L18717" class="LineNr">18717 </span> 1/imm32/rm32-is-first-inout +<span id="L18718" class="LineNr">18718 </span> 3/imm32/r32-is-first-output +<span id="L18719" class="LineNr">18719 </span> 0/imm32/no-imm32 +<span id="L18720" class="LineNr">18720 </span> 0/imm32/no-imm8 +<span id="L18721" class="LineNr">18721 </span> 0/imm32/no-disp32 +<span id="L18722" class="LineNr">18722 </span> 0/imm32/no-xm32 +<span id="L18723" class="LineNr">18723 </span> 0/imm32/no-x32 +<span id="L18724" class="LineNr">18724 </span> 0x11/imm32/alloc-id:fake +<span id="L18725" class="LineNr">18725 </span> <a href='mu.subx.html#L18726'>_Primitive-subtract-lit-from-reg</a>/imm32/next +<span id="L18726" class="LineNr">18726 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18727" class="LineNr">18727 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18728" class="LineNr">18728 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L18729" class="LineNr">18729 </span> 0x11/imm32/alloc-id:fake +<span id="L18730" class="LineNr">18730 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L18731" class="LineNr">18731 </span> 0x11/imm32/alloc-id:fake +<span id="L18732" class="LineNr">18732 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18733" class="LineNr">18733 </span> 0x11/imm32/alloc-id:fake +<span id="L18734" class="LineNr">18734 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18735" class="LineNr">18735 </span> 0x11/imm32/alloc-id:fake +<span id="L18736" class="LineNr">18736 </span> <a href='mu.subx.html#L22262'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L18737" class="LineNr">18737 </span> 3/imm32/rm32-is-first-output +<span id="L18738" class="LineNr">18738 </span> 0/imm32/no-r32 +<span id="L18739" class="LineNr">18739 </span> 1/imm32/imm32-is-first-inout +<span id="L18740" class="LineNr">18740 </span> 0/imm32/no-imm8 +<span id="L18741" class="LineNr">18741 </span> 0/imm32/no-disp32 +<span id="L18742" class="LineNr">18742 </span> 0/imm32/no-xm32 +<span id="L18743" class="LineNr">18743 </span> 0/imm32/no-x32 +<span id="L18744" class="LineNr">18744 </span> 0x11/imm32/alloc-id:fake +<span id="L18745" class="LineNr">18745 </span> <a href='mu.subx.html#L18746'>_Primitive-subtract-lit-from-mem</a>/imm32/next +<span id="L18746" class="LineNr">18746 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18747" class="LineNr">18747 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18748" class="LineNr">18748 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L18749" class="LineNr">18749 </span> 0x11/imm32/alloc-id:fake +<span id="L18750" class="LineNr">18750 </span> <a href='mu.subx.html#L21835'>_string-subtract-from</a>/imm32/name <span id="L18751" class="LineNr">18751 </span> 0x11/imm32/alloc-id:fake -<span id="L18752" class="LineNr">18752 </span> <a href='mu.subx.html#L21567'>_string-or</a>/imm32/name -<span id="L18753" class="LineNr">18753 </span> 0x11/imm32/alloc-id:fake -<span id="L18754" class="LineNr">18754 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L18752" class="LineNr">18752 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L18753" class="LineNr">18753 </span> 0/imm32/no-outputs +<span id="L18754" class="LineNr">18754 </span> 0/imm32/no-outputs <span id="L18755" class="LineNr">18755 </span> 0x11/imm32/alloc-id:fake -<span id="L18756" class="LineNr">18756 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18757" class="LineNr">18757 </span> 0x11/imm32/alloc-id:fake -<span id="L18758" class="LineNr">18758 </span> <a href='mu.subx.html#L21639'>_string_0d_or_with_eax</a>/imm32/subx-name -<span id="L18759" class="LineNr">18759 </span> 0/imm32/no-rm32 -<span id="L18760" class="LineNr">18760 </span> 0/imm32/no-r32 -<span id="L18761" class="LineNr">18761 </span> 1/imm32/imm32-is-first-inout -<span id="L18762" class="LineNr">18762 </span> 0/imm32/no-imm8 -<span id="L18763" class="LineNr">18763 </span> 0/imm32/no-disp32 -<span id="L18764" class="LineNr">18764 </span> 0/imm32/no-xm32 -<span id="L18765" class="LineNr">18765 </span> 0/imm32/no-x32 -<span id="L18766" class="LineNr">18766 </span> 0x11/imm32/alloc-id:fake -<span id="L18767" class="LineNr">18767 </span> <a href='mu.subx.html#L18768'>_Primitive-or-reg-with-reg</a>/imm32/next -<span id="L18768" class="LineNr">18768 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18769" class="LineNr">18769 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18770" class="LineNr">18770 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> -<span id="L18771" class="LineNr">18771 </span> 0x11/imm32/alloc-id:fake -<span id="L18772" class="LineNr">18772 </span> <a href='mu.subx.html#L21567'>_string-or</a>/imm32/name -<span id="L18773" class="LineNr">18773 </span> 0x11/imm32/alloc-id:fake -<span id="L18774" class="LineNr">18774 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L18775" class="LineNr">18775 </span> 0x11/imm32/alloc-id:fake -<span id="L18776" class="LineNr">18776 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18777" class="LineNr">18777 </span> 0x11/imm32/alloc-id:fake -<span id="L18778" class="LineNr">18778 </span> <a href='mu.subx.html#L21629'>_string_09_or_with</a>/imm32/subx-name -<span id="L18779" class="LineNr">18779 </span> 3/imm32/rm32-is-first-output -<span id="L18780" class="LineNr">18780 </span> 1/imm32/r32-is-first-inout -<span id="L18781" class="LineNr">18781 </span> 0/imm32/no-imm32 -<span id="L18782" class="LineNr">18782 </span> 0/imm32/no-imm8 -<span id="L18783" class="LineNr">18783 </span> 0/imm32/no-disp32 -<span id="L18784" class="LineNr">18784 </span> 0/imm32/no-xm32 -<span id="L18785" class="LineNr">18785 </span> 0/imm32/no-x32 -<span id="L18786" class="LineNr">18786 </span> 0x11/imm32/alloc-id:fake -<span id="L18787" class="LineNr">18787 </span> <a href='mu.subx.html#L18788'>_Primitive-or-reg-with-mem</a>/imm32/next -<span id="L18788" class="LineNr">18788 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18789" class="LineNr">18789 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18790" class="LineNr">18790 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> -<span id="L18791" class="LineNr">18791 </span> 0x11/imm32/alloc-id:fake -<span id="L18792" class="LineNr">18792 </span> <a href='mu.subx.html#L21572'>_string-or-with</a>/imm32/name -<span id="L18793" class="LineNr">18793 </span> 0x11/imm32/alloc-id:fake -<span id="L18794" class="LineNr">18794 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L18795" class="LineNr">18795 </span> 0/imm32/no-outputs -<span id="L18796" class="LineNr">18796 </span> 0/imm32/no-outputs -<span id="L18797" class="LineNr">18797 </span> 0x11/imm32/alloc-id:fake -<span id="L18798" class="LineNr">18798 </span> <a href='mu.subx.html#L21629'>_string_09_or_with</a>/imm32/subx-name -<span id="L18799" class="LineNr">18799 </span> 1/imm32/rm32-is-first-inout -<span id="L18800" class="LineNr">18800 </span> 2/imm32/r32-is-second-inout -<span id="L18801" class="LineNr">18801 </span> 0/imm32/no-imm32 -<span id="L18802" class="LineNr">18802 </span> 0/imm32/no-imm8 -<span id="L18803" class="LineNr">18803 </span> 0/imm32/no-disp32 -<span id="L18804" class="LineNr">18804 </span> 0/imm32/no-xm32 -<span id="L18805" class="LineNr">18805 </span> 0/imm32/no-x32 -<span id="L18806" class="LineNr">18806 </span> 0x11/imm32/alloc-id:fake -<span id="L18807" class="LineNr">18807 </span> <a href='mu.subx.html#L18808'>_Primitive-or-mem-with-reg</a>/imm32/next -<span id="L18808" class="LineNr">18808 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18809" class="LineNr">18809 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18810" class="LineNr">18810 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> -<span id="L18811" class="LineNr">18811 </span> 0x11/imm32/alloc-id:fake -<span id="L18812" class="LineNr">18812 </span> <a href='mu.subx.html#L21567'>_string-or</a>/imm32/name -<span id="L18813" class="LineNr">18813 </span> 0x11/imm32/alloc-id:fake -<span id="L18814" class="LineNr">18814 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18815" class="LineNr">18815 </span> 0x11/imm32/alloc-id:fake -<span id="L18816" class="LineNr">18816 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18817" class="LineNr">18817 </span> 0x11/imm32/alloc-id:fake -<span id="L18818" class="LineNr">18818 </span> <a href='mu.subx.html#L21634'>_string_0b_or</a>/imm32/subx-name -<span id="L18819" class="LineNr">18819 </span> 1/imm32/rm32-is-first-inout -<span id="L18820" class="LineNr">18820 </span> 3/imm32/r32-is-first-output -<span id="L18821" class="LineNr">18821 </span> 0/imm32/no-imm32 -<span id="L18822" class="LineNr">18822 </span> 0/imm32/no-imm8 -<span id="L18823" class="LineNr">18823 </span> 0/imm32/no-disp32 -<span id="L18824" class="LineNr">18824 </span> 0/imm32/no-xm32 -<span id="L18825" class="LineNr">18825 </span> 0/imm32/no-x32 -<span id="L18826" class="LineNr">18826 </span> 0x11/imm32/alloc-id:fake -<span id="L18827" class="LineNr">18827 </span> <a href='mu.subx.html#L18828'>_Primitive-or-lit-with-reg</a>/imm32/next -<span id="L18828" class="LineNr">18828 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18829" class="LineNr">18829 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18830" class="LineNr">18830 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L18831" class="LineNr">18831 </span> 0x11/imm32/alloc-id:fake -<span id="L18832" class="LineNr">18832 </span> <a href='mu.subx.html#L21567'>_string-or</a>/imm32/name -<span id="L18833" class="LineNr">18833 </span> 0x11/imm32/alloc-id:fake -<span id="L18834" class="LineNr">18834 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18835" class="LineNr">18835 </span> 0x11/imm32/alloc-id:fake -<span id="L18836" class="LineNr">18836 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18837" class="LineNr">18837 </span> 0x11/imm32/alloc-id:fake -<span id="L18838" class="LineNr">18838 </span> <a href='mu.subx.html#L21994'>_string_81_subop_or</a>/imm32/subx-name -<span id="L18839" class="LineNr">18839 </span> 3/imm32/rm32-is-first-output -<span id="L18840" class="LineNr">18840 </span> 0/imm32/no-r32 -<span id="L18841" class="LineNr">18841 </span> 1/imm32/imm32-is-first-inout -<span id="L18842" class="LineNr">18842 </span> 0/imm32/no-imm8 -<span id="L18843" class="LineNr">18843 </span> 0/imm32/no-disp32 -<span id="L18844" class="LineNr">18844 </span> 0/imm32/no-xm32 -<span id="L18845" class="LineNr">18845 </span> 0/imm32/no-x32 -<span id="L18846" class="LineNr">18846 </span> 0x11/imm32/alloc-id:fake -<span id="L18847" class="LineNr">18847 </span> <a href='mu.subx.html#L18848'>_Primitive-or-lit-with-mem</a>/imm32/next -<span id="L18848" class="LineNr">18848 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18849" class="LineNr">18849 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18850" class="LineNr">18850 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L18851" class="LineNr">18851 </span> 0x11/imm32/alloc-id:fake -<span id="L18852" class="LineNr">18852 </span> <a href='mu.subx.html#L21572'>_string-or-with</a>/imm32/name -<span id="L18853" class="LineNr">18853 </span> 0x11/imm32/alloc-id:fake -<span id="L18854" class="LineNr">18854 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L18855" class="LineNr">18855 </span> 0/imm32/no-outputs -<span id="L18856" class="LineNr">18856 </span> 0/imm32/no-outputs -<span id="L18857" class="LineNr">18857 </span> 0x11/imm32/alloc-id:fake -<span id="L18858" class="LineNr">18858 </span> <a href='mu.subx.html#L21994'>_string_81_subop_or</a>/imm32/subx-name -<span id="L18859" class="LineNr">18859 </span> 1/imm32/rm32-is-first-inout -<span id="L18860" class="LineNr">18860 </span> 0/imm32/no-r32 -<span id="L18861" class="LineNr">18861 </span> 2/imm32/imm32-is-second-inout -<span id="L18862" class="LineNr">18862 </span> 0/imm32/no-imm8 -<span id="L18863" class="LineNr">18863 </span> 0/imm32/no-disp32 -<span id="L18864" class="LineNr">18864 </span> 0/imm32/no-xm32 -<span id="L18865" class="LineNr">18865 </span> 0/imm32/no-x32 -<span id="L18866" class="LineNr">18866 </span> 0x11/imm32/alloc-id:fake -<span id="L18867" class="LineNr">18867 </span> <a href='mu.subx.html#L18869'>_Primitive-xor-with-eax</a>/imm32/next -<span id="L18868" class="LineNr">18868 </span><span class="subxH1Comment"># - xor</span> -<span id="L18869" class="LineNr">18869 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18870" class="LineNr">18870 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18871" class="LineNr">18871 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> +<span id="L18756" class="LineNr">18756 </span> <a href='mu.subx.html#L22262'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L18757" class="LineNr">18757 </span> 1/imm32/rm32-is-first-inout +<span id="L18758" class="LineNr">18758 </span> 0/imm32/no-r32 +<span id="L18759" class="LineNr">18759 </span> 2/imm32/imm32-is-second-inout +<span id="L18760" class="LineNr">18760 </span> 0/imm32/no-imm8 +<span id="L18761" class="LineNr">18761 </span> 0/imm32/no-disp32 +<span id="L18762" class="LineNr">18762 </span> 0/imm32/no-xm32 +<span id="L18763" class="LineNr">18763 </span> 0/imm32/no-x32 +<span id="L18764" class="LineNr">18764 </span> 0x11/imm32/alloc-id:fake +<span id="L18765" class="LineNr">18765 </span> <a href='mu.subx.html#L18767'>_Primitive-and-with-eax</a>/imm32/next +<span id="L18766" class="LineNr">18766 </span><span class="subxH1Comment"># - and</span> +<span id="L18767" class="LineNr">18767 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18768" class="LineNr">18768 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18769" class="LineNr">18769 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L18770" class="LineNr">18770 </span> 0x11/imm32/alloc-id:fake +<span id="L18771" class="LineNr">18771 </span> <a href='mu.subx.html#L21570'>_string-and</a>/imm32/name +<span id="L18772" class="LineNr">18772 </span> 0x11/imm32/alloc-id:fake +<span id="L18773" class="LineNr">18773 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18774" class="LineNr">18774 </span> 0x11/imm32/alloc-id:fake +<span id="L18775" class="LineNr">18775 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L18776" class="LineNr">18776 </span> 0x11/imm32/alloc-id:fake +<span id="L18777" class="LineNr">18777 </span> <a href='mu.subx.html#L22137'>_string_25_and_with_eax</a>/imm32/subx-name +<span id="L18778" class="LineNr">18778 </span> 0/imm32/no-rm32 +<span id="L18779" class="LineNr">18779 </span> 0/imm32/no-r32 +<span id="L18780" class="LineNr">18780 </span> 1/imm32/imm32-is-first-inout +<span id="L18781" class="LineNr">18781 </span> 0/imm32/no-imm8 +<span id="L18782" class="LineNr">18782 </span> 0/imm32/no-disp32 +<span id="L18783" class="LineNr">18783 </span> 0/imm32/no-xm32 +<span id="L18784" class="LineNr">18784 </span> 0/imm32/no-x32 +<span id="L18785" class="LineNr">18785 </span> 0x11/imm32/alloc-id:fake +<span id="L18786" class="LineNr">18786 </span> <a href='mu.subx.html#L18787'>_Primitive-and-reg-with-reg</a>/imm32/next +<span id="L18787" class="LineNr">18787 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18788" class="LineNr">18788 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18789" class="LineNr">18789 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> +<span id="L18790" class="LineNr">18790 </span> 0x11/imm32/alloc-id:fake +<span id="L18791" class="LineNr">18791 </span> <a href='mu.subx.html#L21570'>_string-and</a>/imm32/name +<span id="L18792" class="LineNr">18792 </span> 0x11/imm32/alloc-id:fake +<span id="L18793" class="LineNr">18793 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L18794" class="LineNr">18794 </span> 0x11/imm32/alloc-id:fake +<span id="L18795" class="LineNr">18795 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18796" class="LineNr">18796 </span> 0x11/imm32/alloc-id:fake +<span id="L18797" class="LineNr">18797 </span> <a href='mu.subx.html#L22127'>_string_21_and_with</a>/imm32/subx-name +<span id="L18798" class="LineNr">18798 </span> 3/imm32/rm32-is-first-output +<span id="L18799" class="LineNr">18799 </span> 1/imm32/r32-is-first-inout +<span id="L18800" class="LineNr">18800 </span> 0/imm32/no-imm32 +<span id="L18801" class="LineNr">18801 </span> 0/imm32/no-imm8 +<span id="L18802" class="LineNr">18802 </span> 0/imm32/no-disp32 +<span id="L18803" class="LineNr">18803 </span> 0/imm32/no-xm32 +<span id="L18804" class="LineNr">18804 </span> 0/imm32/no-x32 +<span id="L18805" class="LineNr">18805 </span> 0x11/imm32/alloc-id:fake +<span id="L18806" class="LineNr">18806 </span> <a href='mu.subx.html#L18807'>_Primitive-and-reg-with-mem</a>/imm32/next +<span id="L18807" class="LineNr">18807 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18808" class="LineNr">18808 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18809" class="LineNr">18809 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> +<span id="L18810" class="LineNr">18810 </span> 0x11/imm32/alloc-id:fake +<span id="L18811" class="LineNr">18811 </span> <a href='mu.subx.html#L21575'>_string-and-with</a>/imm32/name +<span id="L18812" class="LineNr">18812 </span> 0x11/imm32/alloc-id:fake +<span id="L18813" class="LineNr">18813 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L18814" class="LineNr">18814 </span> 0/imm32/no-outputs +<span id="L18815" class="LineNr">18815 </span> 0/imm32/no-outputs +<span id="L18816" class="LineNr">18816 </span> 0x11/imm32/alloc-id:fake +<span id="L18817" class="LineNr">18817 </span> <a href='mu.subx.html#L22127'>_string_21_and_with</a>/imm32/subx-name +<span id="L18818" class="LineNr">18818 </span> 1/imm32/rm32-is-first-inout +<span id="L18819" class="LineNr">18819 </span> 2/imm32/r32-is-second-inout +<span id="L18820" class="LineNr">18820 </span> 0/imm32/no-imm32 +<span id="L18821" class="LineNr">18821 </span> 0/imm32/no-imm8 +<span id="L18822" class="LineNr">18822 </span> 0/imm32/no-disp32 +<span id="L18823" class="LineNr">18823 </span> 0/imm32/no-xm32 +<span id="L18824" class="LineNr">18824 </span> 0/imm32/no-x32 +<span id="L18825" class="LineNr">18825 </span> 0x11/imm32/alloc-id:fake +<span id="L18826" class="LineNr">18826 </span> <a href='mu.subx.html#L18827'>_Primitive-and-mem-with-reg</a>/imm32/next +<span id="L18827" class="LineNr">18827 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18828" class="LineNr">18828 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18829" class="LineNr">18829 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L18830" class="LineNr">18830 </span> 0x11/imm32/alloc-id:fake +<span id="L18831" class="LineNr">18831 </span> <a href='mu.subx.html#L21570'>_string-and</a>/imm32/name +<span id="L18832" class="LineNr">18832 </span> 0x11/imm32/alloc-id:fake +<span id="L18833" class="LineNr">18833 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18834" class="LineNr">18834 </span> 0x11/imm32/alloc-id:fake +<span id="L18835" class="LineNr">18835 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18836" class="LineNr">18836 </span> 0x11/imm32/alloc-id:fake +<span id="L18837" class="LineNr">18837 </span> <a href='mu.subx.html#L22132'>_string_23_and</a>/imm32/subx-name +<span id="L18838" class="LineNr">18838 </span> 1/imm32/rm32-is-first-inout +<span id="L18839" class="LineNr">18839 </span> 3/imm32/r32-is-first-output +<span id="L18840" class="LineNr">18840 </span> 0/imm32/no-imm32 +<span id="L18841" class="LineNr">18841 </span> 0/imm32/no-imm8 +<span id="L18842" class="LineNr">18842 </span> 0/imm32/no-disp32 +<span id="L18843" class="LineNr">18843 </span> 0/imm32/no-xm32 +<span id="L18844" class="LineNr">18844 </span> 0/imm32/no-x32 +<span id="L18845" class="LineNr">18845 </span> 0x11/imm32/alloc-id:fake +<span id="L18846" class="LineNr">18846 </span> <a href='mu.subx.html#L18847'>_Primitive-and-lit-with-reg</a>/imm32/next +<span id="L18847" class="LineNr">18847 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18848" class="LineNr">18848 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18849" class="LineNr">18849 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L18850" class="LineNr">18850 </span> 0x11/imm32/alloc-id:fake +<span id="L18851" class="LineNr">18851 </span> <a href='mu.subx.html#L21570'>_string-and</a>/imm32/name +<span id="L18852" class="LineNr">18852 </span> 0x11/imm32/alloc-id:fake +<span id="L18853" class="LineNr">18853 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18854" class="LineNr">18854 </span> 0x11/imm32/alloc-id:fake +<span id="L18855" class="LineNr">18855 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18856" class="LineNr">18856 </span> 0x11/imm32/alloc-id:fake +<span id="L18857" class="LineNr">18857 </span> <a href='mu.subx.html#L22257'>_string_81_subop_and</a>/imm32/subx-name +<span id="L18858" class="LineNr">18858 </span> 3/imm32/rm32-is-first-output +<span id="L18859" class="LineNr">18859 </span> 0/imm32/no-r32 +<span id="L18860" class="LineNr">18860 </span> 1/imm32/imm32-is-first-inout +<span id="L18861" class="LineNr">18861 </span> 0/imm32/no-imm8 +<span id="L18862" class="LineNr">18862 </span> 0/imm32/no-disp32 +<span id="L18863" class="LineNr">18863 </span> 0/imm32/no-xm32 +<span id="L18864" class="LineNr">18864 </span> 0/imm32/no-x32 +<span id="L18865" class="LineNr">18865 </span> 0x11/imm32/alloc-id:fake +<span id="L18866" class="LineNr">18866 </span> <a href='mu.subx.html#L18867'>_Primitive-and-lit-with-mem</a>/imm32/next +<span id="L18867" class="LineNr">18867 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18868" class="LineNr">18868 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18869" class="LineNr">18869 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L18870" class="LineNr">18870 </span> 0x11/imm32/alloc-id:fake +<span id="L18871" class="LineNr">18871 </span> <a href='mu.subx.html#L21575'>_string-and-with</a>/imm32/name <span id="L18872" class="LineNr">18872 </span> 0x11/imm32/alloc-id:fake -<span id="L18873" class="LineNr">18873 </span> <a href='mu.subx.html#L21587'>_string-xor</a>/imm32/name -<span id="L18874" class="LineNr">18874 </span> 0x11/imm32/alloc-id:fake -<span id="L18875" class="LineNr">18875 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L18873" class="LineNr">18873 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L18874" class="LineNr">18874 </span> 0/imm32/no-outputs +<span id="L18875" class="LineNr">18875 </span> 0/imm32/no-outputs <span id="L18876" class="LineNr">18876 </span> 0x11/imm32/alloc-id:fake -<span id="L18877" class="LineNr">18877 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L18878" class="LineNr">18878 </span> 0x11/imm32/alloc-id:fake -<span id="L18879" class="LineNr">18879 </span> <a href='mu.subx.html#L21909'>_string_35_xor_with_eax</a>/imm32/subx-name -<span id="L18880" class="LineNr">18880 </span> 0/imm32/no-rm32 -<span id="L18881" class="LineNr">18881 </span> 0/imm32/no-r32 -<span id="L18882" class="LineNr">18882 </span> 1/imm32/imm32-is-first-inout -<span id="L18883" class="LineNr">18883 </span> 0/imm32/no-imm8 -<span id="L18884" class="LineNr">18884 </span> 0/imm32/no-disp32 -<span id="L18885" class="LineNr">18885 </span> 0/imm32/no-xm32 -<span id="L18886" class="LineNr">18886 </span> 0/imm32/no-x32 -<span id="L18887" class="LineNr">18887 </span> 0x11/imm32/alloc-id:fake -<span id="L18888" class="LineNr">18888 </span> <a href='mu.subx.html#L18889'>_Primitive-xor-reg-with-reg</a>/imm32/next -<span id="L18889" class="LineNr">18889 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18890" class="LineNr">18890 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18891" class="LineNr">18891 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> -<span id="L18892" class="LineNr">18892 </span> 0x11/imm32/alloc-id:fake -<span id="L18893" class="LineNr">18893 </span> <a href='mu.subx.html#L21587'>_string-xor</a>/imm32/name -<span id="L18894" class="LineNr">18894 </span> 0x11/imm32/alloc-id:fake -<span id="L18895" class="LineNr">18895 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L18896" class="LineNr">18896 </span> 0x11/imm32/alloc-id:fake -<span id="L18897" class="LineNr">18897 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18898" class="LineNr">18898 </span> 0x11/imm32/alloc-id:fake -<span id="L18899" class="LineNr">18899 </span> <a href='mu.subx.html#L21899'>_string_31_xor_with</a>/imm32/subx-name -<span id="L18900" class="LineNr">18900 </span> 3/imm32/rm32-is-first-output -<span id="L18901" class="LineNr">18901 </span> 1/imm32/r32-is-first-inout -<span id="L18902" class="LineNr">18902 </span> 0/imm32/no-imm32 -<span id="L18903" class="LineNr">18903 </span> 0/imm32/no-imm8 -<span id="L18904" class="LineNr">18904 </span> 0/imm32/no-disp32 -<span id="L18905" class="LineNr">18905 </span> 0/imm32/no-xm32 -<span id="L18906" class="LineNr">18906 </span> 0/imm32/no-x32 -<span id="L18907" class="LineNr">18907 </span> 0x11/imm32/alloc-id:fake -<span id="L18908" class="LineNr">18908 </span> <a href='mu.subx.html#L18909'>_Primitive-xor-reg-with-mem</a>/imm32/next -<span id="L18909" class="LineNr">18909 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18910" class="LineNr">18910 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18911" class="LineNr">18911 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> -<span id="L18912" class="LineNr">18912 </span> 0x11/imm32/alloc-id:fake -<span id="L18913" class="LineNr">18913 </span> <a href='mu.subx.html#L21592'>_string-xor-with</a>/imm32/name -<span id="L18914" class="LineNr">18914 </span> 0x11/imm32/alloc-id:fake -<span id="L18915" class="LineNr">18915 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L18916" class="LineNr">18916 </span> 0/imm32/no-outputs -<span id="L18917" class="LineNr">18917 </span> 0/imm32/no-outputs -<span id="L18918" class="LineNr">18918 </span> 0x11/imm32/alloc-id:fake -<span id="L18919" class="LineNr">18919 </span> <a href='mu.subx.html#L21899'>_string_31_xor_with</a>/imm32/subx-name -<span id="L18920" class="LineNr">18920 </span> 1/imm32/rm32-is-first-inout -<span id="L18921" class="LineNr">18921 </span> 2/imm32/r32-is-second-inout -<span id="L18922" class="LineNr">18922 </span> 0/imm32/no-imm32 -<span id="L18923" class="LineNr">18923 </span> 0/imm32/no-imm8 -<span id="L18924" class="LineNr">18924 </span> 0/imm32/no-disp32 -<span id="L18925" class="LineNr">18925 </span> 0/imm32/no-xm32 -<span id="L18926" class="LineNr">18926 </span> 0/imm32/no-x32 -<span id="L18927" class="LineNr">18927 </span> 0x11/imm32/alloc-id:fake -<span id="L18928" class="LineNr">18928 </span> <a href='mu.subx.html#L18929'>_Primitive-xor-mem-with-reg</a>/imm32/next -<span id="L18929" class="LineNr">18929 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18930" class="LineNr">18930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18931" class="LineNr">18931 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> -<span id="L18932" class="LineNr">18932 </span> 0x11/imm32/alloc-id:fake -<span id="L18933" class="LineNr">18933 </span> <a href='mu.subx.html#L21587'>_string-xor</a>/imm32/name -<span id="L18934" class="LineNr">18934 </span> 0x11/imm32/alloc-id:fake -<span id="L18935" class="LineNr">18935 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L18936" class="LineNr">18936 </span> 0x11/imm32/alloc-id:fake -<span id="L18937" class="LineNr">18937 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18938" class="LineNr">18938 </span> 0x11/imm32/alloc-id:fake -<span id="L18939" class="LineNr">18939 </span> <a href='mu.subx.html#L21904'>_string_33_xor</a>/imm32/subx-name -<span id="L18940" class="LineNr">18940 </span> 1/imm32/rm32-is-first-inout -<span id="L18941" class="LineNr">18941 </span> 3/imm32/r32-is-first-output -<span id="L18942" class="LineNr">18942 </span> 0/imm32/no-imm32 -<span id="L18943" class="LineNr">18943 </span> 0/imm32/no-imm8 -<span id="L18944" class="LineNr">18944 </span> 0/imm32/no-disp32 -<span id="L18945" class="LineNr">18945 </span> 0/imm32/no-xm32 -<span id="L18946" class="LineNr">18946 </span> 0/imm32/no-x32 -<span id="L18947" class="LineNr">18947 </span> 0x11/imm32/alloc-id:fake -<span id="L18948" class="LineNr">18948 </span> <a href='mu.subx.html#L18949'>_Primitive-xor-lit-with-reg</a>/imm32/next -<span id="L18949" class="LineNr">18949 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18950" class="LineNr">18950 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18951" class="LineNr">18951 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L18952" class="LineNr">18952 </span> 0x11/imm32/alloc-id:fake -<span id="L18953" class="LineNr">18953 </span> <a href='mu.subx.html#L21587'>_string-xor</a>/imm32/name -<span id="L18954" class="LineNr">18954 </span> 0x11/imm32/alloc-id:fake -<span id="L18955" class="LineNr">18955 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18956" class="LineNr">18956 </span> 0x11/imm32/alloc-id:fake -<span id="L18957" class="LineNr">18957 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18958" class="LineNr">18958 </span> 0x11/imm32/alloc-id:fake -<span id="L18959" class="LineNr">18959 </span> <a href='mu.subx.html#L22009'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L18960" class="LineNr">18960 </span> 3/imm32/rm32-is-first-output -<span id="L18961" class="LineNr">18961 </span> 0/imm32/no-r32 -<span id="L18962" class="LineNr">18962 </span> 1/imm32/imm32-is-first-inout -<span id="L18963" class="LineNr">18963 </span> 0/imm32/no-imm8 -<span id="L18964" class="LineNr">18964 </span> 0/imm32/no-disp32 -<span id="L18965" class="LineNr">18965 </span> 0/imm32/no-xm32 -<span id="L18966" class="LineNr">18966 </span> 0/imm32/no-x32 -<span id="L18967" class="LineNr">18967 </span> 0x11/imm32/alloc-id:fake -<span id="L18968" class="LineNr">18968 </span> <a href='mu.subx.html#L18969'>_Primitive-xor-lit-with-mem</a>/imm32/next -<span id="L18969" class="LineNr">18969 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18970" class="LineNr">18970 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18971" class="LineNr">18971 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L18972" class="LineNr">18972 </span> 0x11/imm32/alloc-id:fake -<span id="L18973" class="LineNr">18973 </span> <a href='mu.subx.html#L21592'>_string-xor-with</a>/imm32/name -<span id="L18974" class="LineNr">18974 </span> 0x11/imm32/alloc-id:fake -<span id="L18975" class="LineNr">18975 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L18976" class="LineNr">18976 </span> 0/imm32/no-outputs -<span id="L18977" class="LineNr">18977 </span> 0/imm32/no-outputs -<span id="L18978" class="LineNr">18978 </span> 0x11/imm32/alloc-id:fake -<span id="L18979" class="LineNr">18979 </span> <a href='mu.subx.html#L22009'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L18980" class="LineNr">18980 </span> 1/imm32/rm32-is-first-inout -<span id="L18981" class="LineNr">18981 </span> 0/imm32/no-r32 -<span id="L18982" class="LineNr">18982 </span> 2/imm32/imm32-is-second-inout -<span id="L18983" class="LineNr">18983 </span> 0/imm32/no-imm8 -<span id="L18984" class="LineNr">18984 </span> 0/imm32/no-disp32 -<span id="L18985" class="LineNr">18985 </span> 0/imm32/no-xm32 -<span id="L18986" class="LineNr">18986 </span> 0/imm32/no-x32 -<span id="L18987" class="LineNr">18987 </span> 0x11/imm32/alloc-id:fake -<span id="L18988" class="LineNr">18988 </span> <a href='mu.subx.html#L18989'>_Primitive-shift-reg-left-by-lit</a>/imm32/next -<span id="L18989" class="LineNr">18989 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L18990" class="LineNr">18990 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L18991" class="LineNr">18991 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L18992" class="LineNr">18992 </span> 0x11/imm32/alloc-id:fake -<span id="L18993" class="LineNr">18993 </span> <a href='mu.subx.html#L21597'>_string-shift-left</a>/imm32/name -<span id="L18994" class="LineNr">18994 </span> 0x11/imm32/alloc-id:fake -<span id="L18995" class="LineNr">18995 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L18996" class="LineNr">18996 </span> 0x11/imm32/alloc-id:fake -<span id="L18997" class="LineNr">18997 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L18998" class="LineNr">18998 </span> 0x11/imm32/alloc-id:fake -<span id="L18999" class="LineNr">18999 </span> <a href='mu.subx.html#L22109'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L19000" class="LineNr">19000 </span> 3/imm32/rm32-is-first-output -<span id="L19001" class="LineNr">19001 </span> 0/imm32/no-r32 -<span id="L19002" class="LineNr">19002 </span> 0/imm32/no-imm32 -<span id="L19003" class="LineNr">19003 </span> 1/imm32/imm8-is-first-inout -<span id="L19004" class="LineNr">19004 </span> 0/imm32/no-disp32 -<span id="L19005" class="LineNr">19005 </span> 0/imm32/no-xm32 -<span id="L19006" class="LineNr">19006 </span> 0/imm32/no-x32 -<span id="L19007" class="LineNr">19007 </span> 0x11/imm32/alloc-id:fake -<span id="L19008" class="LineNr">19008 </span> <a href='mu.subx.html#L19009'>_Primitive-shift-reg-right-by-lit</a>/imm32/next -<span id="L19009" class="LineNr">19009 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18877" class="LineNr">18877 </span> <a href='mu.subx.html#L22257'>_string_81_subop_and</a>/imm32/subx-name +<span id="L18878" class="LineNr">18878 </span> 1/imm32/rm32-is-first-inout +<span id="L18879" class="LineNr">18879 </span> 0/imm32/no-r32 +<span id="L18880" class="LineNr">18880 </span> 2/imm32/imm32-is-second-inout +<span id="L18881" class="LineNr">18881 </span> 0/imm32/no-imm8 +<span id="L18882" class="LineNr">18882 </span> 0/imm32/no-disp32 +<span id="L18883" class="LineNr">18883 </span> 0/imm32/no-xm32 +<span id="L18884" class="LineNr">18884 </span> 0/imm32/no-x32 +<span id="L18885" class="LineNr">18885 </span> 0x11/imm32/alloc-id:fake +<span id="L18886" class="LineNr">18886 </span> <a href='mu.subx.html#L18888'>_Primitive-or-with-eax</a>/imm32/next +<span id="L18887" class="LineNr">18887 </span><span class="subxH1Comment"># - or</span> +<span id="L18888" class="LineNr">18888 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18889" class="LineNr">18889 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18890" class="LineNr">18890 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L18891" class="LineNr">18891 </span> 0x11/imm32/alloc-id:fake +<span id="L18892" class="LineNr">18892 </span> <a href='mu.subx.html#L21820'>_string-or</a>/imm32/name +<span id="L18893" class="LineNr">18893 </span> 0x11/imm32/alloc-id:fake +<span id="L18894" class="LineNr">18894 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18895" class="LineNr">18895 </span> 0x11/imm32/alloc-id:fake +<span id="L18896" class="LineNr">18896 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L18897" class="LineNr">18897 </span> 0x11/imm32/alloc-id:fake +<span id="L18898" class="LineNr">18898 </span> <a href='mu.subx.html#L21892'>_string_0d_or_with_eax</a>/imm32/subx-name +<span id="L18899" class="LineNr">18899 </span> 0/imm32/no-rm32 +<span id="L18900" class="LineNr">18900 </span> 0/imm32/no-r32 +<span id="L18901" class="LineNr">18901 </span> 1/imm32/imm32-is-first-inout +<span id="L18902" class="LineNr">18902 </span> 0/imm32/no-imm8 +<span id="L18903" class="LineNr">18903 </span> 0/imm32/no-disp32 +<span id="L18904" class="LineNr">18904 </span> 0/imm32/no-xm32 +<span id="L18905" class="LineNr">18905 </span> 0/imm32/no-x32 +<span id="L18906" class="LineNr">18906 </span> 0x11/imm32/alloc-id:fake +<span id="L18907" class="LineNr">18907 </span> <a href='mu.subx.html#L18908'>_Primitive-or-reg-with-reg</a>/imm32/next +<span id="L18908" class="LineNr">18908 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18909" class="LineNr">18909 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18910" class="LineNr">18910 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> +<span id="L18911" class="LineNr">18911 </span> 0x11/imm32/alloc-id:fake +<span id="L18912" class="LineNr">18912 </span> <a href='mu.subx.html#L21820'>_string-or</a>/imm32/name +<span id="L18913" class="LineNr">18913 </span> 0x11/imm32/alloc-id:fake +<span id="L18914" class="LineNr">18914 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L18915" class="LineNr">18915 </span> 0x11/imm32/alloc-id:fake +<span id="L18916" class="LineNr">18916 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18917" class="LineNr">18917 </span> 0x11/imm32/alloc-id:fake +<span id="L18918" class="LineNr">18918 </span> <a href='mu.subx.html#L21882'>_string_09_or_with</a>/imm32/subx-name +<span id="L18919" class="LineNr">18919 </span> 3/imm32/rm32-is-first-output +<span id="L18920" class="LineNr">18920 </span> 1/imm32/r32-is-first-inout +<span id="L18921" class="LineNr">18921 </span> 0/imm32/no-imm32 +<span id="L18922" class="LineNr">18922 </span> 0/imm32/no-imm8 +<span id="L18923" class="LineNr">18923 </span> 0/imm32/no-disp32 +<span id="L18924" class="LineNr">18924 </span> 0/imm32/no-xm32 +<span id="L18925" class="LineNr">18925 </span> 0/imm32/no-x32 +<span id="L18926" class="LineNr">18926 </span> 0x11/imm32/alloc-id:fake +<span id="L18927" class="LineNr">18927 </span> <a href='mu.subx.html#L18928'>_Primitive-or-reg-with-mem</a>/imm32/next +<span id="L18928" class="LineNr">18928 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18929" class="LineNr">18929 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18930" class="LineNr">18930 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> +<span id="L18931" class="LineNr">18931 </span> 0x11/imm32/alloc-id:fake +<span id="L18932" class="LineNr">18932 </span> <a href='mu.subx.html#L21825'>_string-or-with</a>/imm32/name +<span id="L18933" class="LineNr">18933 </span> 0x11/imm32/alloc-id:fake +<span id="L18934" class="LineNr">18934 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L18935" class="LineNr">18935 </span> 0/imm32/no-outputs +<span id="L18936" class="LineNr">18936 </span> 0/imm32/no-outputs +<span id="L18937" class="LineNr">18937 </span> 0x11/imm32/alloc-id:fake +<span id="L18938" class="LineNr">18938 </span> <a href='mu.subx.html#L21882'>_string_09_or_with</a>/imm32/subx-name +<span id="L18939" class="LineNr">18939 </span> 1/imm32/rm32-is-first-inout +<span id="L18940" class="LineNr">18940 </span> 2/imm32/r32-is-second-inout +<span id="L18941" class="LineNr">18941 </span> 0/imm32/no-imm32 +<span id="L18942" class="LineNr">18942 </span> 0/imm32/no-imm8 +<span id="L18943" class="LineNr">18943 </span> 0/imm32/no-disp32 +<span id="L18944" class="LineNr">18944 </span> 0/imm32/no-xm32 +<span id="L18945" class="LineNr">18945 </span> 0/imm32/no-x32 +<span id="L18946" class="LineNr">18946 </span> 0x11/imm32/alloc-id:fake +<span id="L18947" class="LineNr">18947 </span> <a href='mu.subx.html#L18948'>_Primitive-or-mem-with-reg</a>/imm32/next +<span id="L18948" class="LineNr">18948 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18949" class="LineNr">18949 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18950" class="LineNr">18950 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L18951" class="LineNr">18951 </span> 0x11/imm32/alloc-id:fake +<span id="L18952" class="LineNr">18952 </span> <a href='mu.subx.html#L21820'>_string-or</a>/imm32/name +<span id="L18953" class="LineNr">18953 </span> 0x11/imm32/alloc-id:fake +<span id="L18954" class="LineNr">18954 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L18955" class="LineNr">18955 </span> 0x11/imm32/alloc-id:fake +<span id="L18956" class="LineNr">18956 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18957" class="LineNr">18957 </span> 0x11/imm32/alloc-id:fake +<span id="L18958" class="LineNr">18958 </span> <a href='mu.subx.html#L21887'>_string_0b_or</a>/imm32/subx-name +<span id="L18959" class="LineNr">18959 </span> 1/imm32/rm32-is-first-inout +<span id="L18960" class="LineNr">18960 </span> 3/imm32/r32-is-first-output +<span id="L18961" class="LineNr">18961 </span> 0/imm32/no-imm32 +<span id="L18962" class="LineNr">18962 </span> 0/imm32/no-imm8 +<span id="L18963" class="LineNr">18963 </span> 0/imm32/no-disp32 +<span id="L18964" class="LineNr">18964 </span> 0/imm32/no-xm32 +<span id="L18965" class="LineNr">18965 </span> 0/imm32/no-x32 +<span id="L18966" class="LineNr">18966 </span> 0x11/imm32/alloc-id:fake +<span id="L18967" class="LineNr">18967 </span> <a href='mu.subx.html#L18968'>_Primitive-or-lit-with-reg</a>/imm32/next +<span id="L18968" class="LineNr">18968 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18969" class="LineNr">18969 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18970" class="LineNr">18970 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L18971" class="LineNr">18971 </span> 0x11/imm32/alloc-id:fake +<span id="L18972" class="LineNr">18972 </span> <a href='mu.subx.html#L21820'>_string-or</a>/imm32/name +<span id="L18973" class="LineNr">18973 </span> 0x11/imm32/alloc-id:fake +<span id="L18974" class="LineNr">18974 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L18975" class="LineNr">18975 </span> 0x11/imm32/alloc-id:fake +<span id="L18976" class="LineNr">18976 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L18977" class="LineNr">18977 </span> 0x11/imm32/alloc-id:fake +<span id="L18978" class="LineNr">18978 </span> <a href='mu.subx.html#L22252'>_string_81_subop_or</a>/imm32/subx-name +<span id="L18979" class="LineNr">18979 </span> 3/imm32/rm32-is-first-output +<span id="L18980" class="LineNr">18980 </span> 0/imm32/no-r32 +<span id="L18981" class="LineNr">18981 </span> 1/imm32/imm32-is-first-inout +<span id="L18982" class="LineNr">18982 </span> 0/imm32/no-imm8 +<span id="L18983" class="LineNr">18983 </span> 0/imm32/no-disp32 +<span id="L18984" class="LineNr">18984 </span> 0/imm32/no-xm32 +<span id="L18985" class="LineNr">18985 </span> 0/imm32/no-x32 +<span id="L18986" class="LineNr">18986 </span> 0x11/imm32/alloc-id:fake +<span id="L18987" class="LineNr">18987 </span> <a href='mu.subx.html#L18988'>_Primitive-or-lit-with-mem</a>/imm32/next +<span id="L18988" class="LineNr">18988 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L18989" class="LineNr">18989 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18990" class="LineNr">18990 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L18991" class="LineNr">18991 </span> 0x11/imm32/alloc-id:fake +<span id="L18992" class="LineNr">18992 </span> <a href='mu.subx.html#L21825'>_string-or-with</a>/imm32/name +<span id="L18993" class="LineNr">18993 </span> 0x11/imm32/alloc-id:fake +<span id="L18994" class="LineNr">18994 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L18995" class="LineNr">18995 </span> 0/imm32/no-outputs +<span id="L18996" class="LineNr">18996 </span> 0/imm32/no-outputs +<span id="L18997" class="LineNr">18997 </span> 0x11/imm32/alloc-id:fake +<span id="L18998" class="LineNr">18998 </span> <a href='mu.subx.html#L22252'>_string_81_subop_or</a>/imm32/subx-name +<span id="L18999" class="LineNr">18999 </span> 1/imm32/rm32-is-first-inout +<span id="L19000" class="LineNr">19000 </span> 0/imm32/no-r32 +<span id="L19001" class="LineNr">19001 </span> 2/imm32/imm32-is-second-inout +<span id="L19002" class="LineNr">19002 </span> 0/imm32/no-imm8 +<span id="L19003" class="LineNr">19003 </span> 0/imm32/no-disp32 +<span id="L19004" class="LineNr">19004 </span> 0/imm32/no-xm32 +<span id="L19005" class="LineNr">19005 </span> 0/imm32/no-x32 +<span id="L19006" class="LineNr">19006 </span> 0x11/imm32/alloc-id:fake +<span id="L19007" class="LineNr">19007 </span> <a href='mu.subx.html#L19009'>_Primitive-xor-with-eax</a>/imm32/next +<span id="L19008" class="LineNr">19008 </span><span class="subxH1Comment"># - xor</span> +<span id="L19009" class="LineNr">19009 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19010" class="LineNr">19010 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19011" class="LineNr">19011 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L19011" class="LineNr">19011 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> <span id="L19012" class="LineNr">19012 </span> 0x11/imm32/alloc-id:fake -<span id="L19013" class="LineNr">19013 </span> <a href='mu.subx.html#L21602'>_string-shift-right</a>/imm32/name +<span id="L19013" class="LineNr">19013 </span> <a href='mu.subx.html#L21840'>_string-xor</a>/imm32/name <span id="L19014" class="LineNr">19014 </span> 0x11/imm32/alloc-id:fake -<span id="L19015" class="LineNr">19015 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L19015" class="LineNr">19015 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts <span id="L19016" class="LineNr">19016 </span> 0x11/imm32/alloc-id:fake -<span id="L19017" class="LineNr">19017 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19017" class="LineNr">19017 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L19018" class="LineNr">19018 </span> 0x11/imm32/alloc-id:fake -<span id="L19019" class="LineNr">19019 </span> <a href='mu.subx.html#L22114'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L19020" class="LineNr">19020 </span> 3/imm32/rm32-is-first-output +<span id="L19019" class="LineNr">19019 </span> <a href='mu.subx.html#L22167'>_string_35_xor_with_eax</a>/imm32/subx-name +<span id="L19020" class="LineNr">19020 </span> 0/imm32/no-rm32 <span id="L19021" class="LineNr">19021 </span> 0/imm32/no-r32 -<span id="L19022" class="LineNr">19022 </span> 0/imm32/no-imm32 -<span id="L19023" class="LineNr">19023 </span> 1/imm32/imm8-is-first-inout +<span id="L19022" class="LineNr">19022 </span> 1/imm32/imm32-is-first-inout +<span id="L19023" class="LineNr">19023 </span> 0/imm32/no-imm8 <span id="L19024" class="LineNr">19024 </span> 0/imm32/no-disp32 <span id="L19025" class="LineNr">19025 </span> 0/imm32/no-xm32 <span id="L19026" class="LineNr">19026 </span> 0/imm32/no-x32 <span id="L19027" class="LineNr">19027 </span> 0x11/imm32/alloc-id:fake -<span id="L19028" class="LineNr">19028 </span> <a href='mu.subx.html#L19029'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next -<span id="L19029" class="LineNr">19029 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19028" class="LineNr">19028 </span> <a href='mu.subx.html#L19029'>_Primitive-xor-reg-with-reg</a>/imm32/next +<span id="L19029" class="LineNr">19029 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19030" class="LineNr">19030 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19031" class="LineNr">19031 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L19031" class="LineNr">19031 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> <span id="L19032" class="LineNr">19032 </span> 0x11/imm32/alloc-id:fake -<span id="L19033" class="LineNr">19033 </span> <a href='mu.subx.html#L21607'>_string-shift-right-signed</a>/imm32/name +<span id="L19033" class="LineNr">19033 </span> <a href='mu.subx.html#L21840'>_string-xor</a>/imm32/name <span id="L19034" class="LineNr">19034 </span> 0x11/imm32/alloc-id:fake -<span id="L19035" class="LineNr">19035 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L19035" class="LineNr">19035 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L19036" class="LineNr">19036 </span> 0x11/imm32/alloc-id:fake -<span id="L19037" class="LineNr">19037 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19037" class="LineNr">19037 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19038" class="LineNr">19038 </span> 0x11/imm32/alloc-id:fake -<span id="L19039" class="LineNr">19039 </span> <a href='mu.subx.html#L22119'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L19039" class="LineNr">19039 </span> <a href='mu.subx.html#L22157'>_string_31_xor_with</a>/imm32/subx-name <span id="L19040" class="LineNr">19040 </span> 3/imm32/rm32-is-first-output -<span id="L19041" class="LineNr">19041 </span> 0/imm32/no-r32 +<span id="L19041" class="LineNr">19041 </span> 1/imm32/r32-is-first-inout <span id="L19042" class="LineNr">19042 </span> 0/imm32/no-imm32 -<span id="L19043" class="LineNr">19043 </span> 1/imm32/imm8-is-first-inout +<span id="L19043" class="LineNr">19043 </span> 0/imm32/no-imm8 <span id="L19044" class="LineNr">19044 </span> 0/imm32/no-disp32 <span id="L19045" class="LineNr">19045 </span> 0/imm32/no-xm32 <span id="L19046" class="LineNr">19046 </span> 0/imm32/no-x32 <span id="L19047" class="LineNr">19047 </span> 0x11/imm32/alloc-id:fake -<span id="L19048" class="LineNr">19048 </span> <a href='mu.subx.html#L19049'>_Primitive-shift-mem-left-by-lit</a>/imm32/next -<span id="L19049" class="LineNr">19049 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19048" class="LineNr">19048 </span> <a href='mu.subx.html#L19049'>_Primitive-xor-reg-with-mem</a>/imm32/next +<span id="L19049" class="LineNr">19049 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19050" class="LineNr">19050 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19051" class="LineNr">19051 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L19051" class="LineNr">19051 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> <span id="L19052" class="LineNr">19052 </span> 0x11/imm32/alloc-id:fake -<span id="L19053" class="LineNr">19053 </span> <a href='mu.subx.html#L21597'>_string-shift-left</a>/imm32/name +<span id="L19053" class="LineNr">19053 </span> <a href='mu.subx.html#L21845'>_string-xor-with</a>/imm32/name <span id="L19054" class="LineNr">19054 </span> 0x11/imm32/alloc-id:fake -<span id="L19055" class="LineNr">19055 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19055" class="LineNr">19055 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts <span id="L19056" class="LineNr">19056 </span> 0/imm32/no-outputs <span id="L19057" class="LineNr">19057 </span> 0/imm32/no-outputs <span id="L19058" class="LineNr">19058 </span> 0x11/imm32/alloc-id:fake -<span id="L19059" class="LineNr">19059 </span> <a href='mu.subx.html#L22109'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L19059" class="LineNr">19059 </span> <a href='mu.subx.html#L22157'>_string_31_xor_with</a>/imm32/subx-name <span id="L19060" class="LineNr">19060 </span> 1/imm32/rm32-is-first-inout -<span id="L19061" class="LineNr">19061 </span> 0/imm32/no-r32 +<span id="L19061" class="LineNr">19061 </span> 2/imm32/r32-is-second-inout <span id="L19062" class="LineNr">19062 </span> 0/imm32/no-imm32 -<span id="L19063" class="LineNr">19063 </span> 2/imm32/imm8-is-second-inout +<span id="L19063" class="LineNr">19063 </span> 0/imm32/no-imm8 <span id="L19064" class="LineNr">19064 </span> 0/imm32/no-disp32 <span id="L19065" class="LineNr">19065 </span> 0/imm32/no-xm32 <span id="L19066" class="LineNr">19066 </span> 0/imm32/no-x32 <span id="L19067" class="LineNr">19067 </span> 0x11/imm32/alloc-id:fake -<span id="L19068" class="LineNr">19068 </span> <a href='mu.subx.html#L19069'>_Primitive-shift-mem-right-by-lit</a>/imm32/next -<span id="L19069" class="LineNr">19069 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19068" class="LineNr">19068 </span> <a href='mu.subx.html#L19069'>_Primitive-xor-mem-with-reg</a>/imm32/next +<span id="L19069" class="LineNr">19069 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19070" class="LineNr">19070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19071" class="LineNr">19071 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L19071" class="LineNr">19071 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> <span id="L19072" class="LineNr">19072 </span> 0x11/imm32/alloc-id:fake -<span id="L19073" class="LineNr">19073 </span> <a href='mu.subx.html#L21602'>_string-shift-right</a>/imm32/name +<span id="L19073" class="LineNr">19073 </span> <a href='mu.subx.html#L21840'>_string-xor</a>/imm32/name <span id="L19074" class="LineNr">19074 </span> 0x11/imm32/alloc-id:fake -<span id="L19075" class="LineNr">19075 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L19076" class="LineNr">19076 </span> 0/imm32/no-outputs -<span id="L19077" class="LineNr">19077 </span> 0/imm32/no-outputs +<span id="L19075" class="LineNr">19075 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19076" class="LineNr">19076 </span> 0x11/imm32/alloc-id:fake +<span id="L19077" class="LineNr">19077 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19078" class="LineNr">19078 </span> 0x11/imm32/alloc-id:fake -<span id="L19079" class="LineNr">19079 </span> <a href='mu.subx.html#L22114'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L19079" class="LineNr">19079 </span> <a href='mu.subx.html#L22162'>_string_33_xor</a>/imm32/subx-name <span id="L19080" class="LineNr">19080 </span> 1/imm32/rm32-is-first-inout -<span id="L19081" class="LineNr">19081 </span> 0/imm32/no-r32 +<span id="L19081" class="LineNr">19081 </span> 3/imm32/r32-is-first-output <span id="L19082" class="LineNr">19082 </span> 0/imm32/no-imm32 -<span id="L19083" class="LineNr">19083 </span> 2/imm32/imm8-is-second-inout +<span id="L19083" class="LineNr">19083 </span> 0/imm32/no-imm8 <span id="L19084" class="LineNr">19084 </span> 0/imm32/no-disp32 <span id="L19085" class="LineNr">19085 </span> 0/imm32/no-xm32 <span id="L19086" class="LineNr">19086 </span> 0/imm32/no-x32 <span id="L19087" class="LineNr">19087 </span> 0x11/imm32/alloc-id:fake -<span id="L19088" class="LineNr">19088 </span> <a href='mu.subx.html#L19089'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next -<span id="L19089" class="LineNr">19089 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19088" class="LineNr">19088 </span> <a href='mu.subx.html#L19089'>_Primitive-xor-lit-with-reg</a>/imm32/next +<span id="L19089" class="LineNr">19089 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19090" class="LineNr">19090 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19091" class="LineNr">19091 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L19091" class="LineNr">19091 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> <span id="L19092" class="LineNr">19092 </span> 0x11/imm32/alloc-id:fake -<span id="L19093" class="LineNr">19093 </span> <a href='mu.subx.html#L21607'>_string-shift-right-signed</a>/imm32/name +<span id="L19093" class="LineNr">19093 </span> <a href='mu.subx.html#L21840'>_string-xor</a>/imm32/name <span id="L19094" class="LineNr">19094 </span> 0x11/imm32/alloc-id:fake -<span id="L19095" class="LineNr">19095 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L19096" class="LineNr">19096 </span> 0/imm32/no-outputs -<span id="L19097" class="LineNr">19097 </span> 0/imm32/no-outputs +<span id="L19095" class="LineNr">19095 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19096" class="LineNr">19096 </span> 0x11/imm32/alloc-id:fake +<span id="L19097" class="LineNr">19097 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19098" class="LineNr">19098 </span> 0x11/imm32/alloc-id:fake -<span id="L19099" class="LineNr">19099 </span> <a href='mu.subx.html#L22119'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L19100" class="LineNr">19100 </span> 1/imm32/rm32-is-first-inout +<span id="L19099" class="LineNr">19099 </span> <a href='mu.subx.html#L22267'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L19100" class="LineNr">19100 </span> 3/imm32/rm32-is-first-output <span id="L19101" class="LineNr">19101 </span> 0/imm32/no-r32 -<span id="L19102" class="LineNr">19102 </span> 0/imm32/no-imm32 -<span id="L19103" class="LineNr">19103 </span> 2/imm32/imm8-is-second-inout +<span id="L19102" class="LineNr">19102 </span> 1/imm32/imm32-is-first-inout +<span id="L19103" class="LineNr">19103 </span> 0/imm32/no-imm8 <span id="L19104" class="LineNr">19104 </span> 0/imm32/no-disp32 <span id="L19105" class="LineNr">19105 </span> 0/imm32/no-xm32 <span id="L19106" class="LineNr">19106 </span> 0/imm32/no-x32 <span id="L19107" class="LineNr">19107 </span> 0x11/imm32/alloc-id:fake -<span id="L19108" class="LineNr">19108 </span> <a href='mu.subx.html#L19110'>_Primitive-copy-to-eax</a>/imm32/next -<span id="L19109" class="LineNr">19109 </span><span class="subxH1Comment"># - copy</span> -<span id="L19110" class="LineNr">19110 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19111" class="LineNr">19111 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19112" class="LineNr">19112 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> -<span id="L19113" class="LineNr">19113 </span> 0x11/imm32/alloc-id:fake -<span id="L19114" class="LineNr">19114 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19115" class="LineNr">19115 </span> 0x11/imm32/alloc-id:fake -<span id="L19116" class="LineNr">19116 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19117" class="LineNr">19117 </span> 0x11/imm32/alloc-id:fake -<span id="L19118" class="LineNr">19118 </span> <span class="SpecialChar"><a href='mu.subx.html#L22294'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L19119" class="LineNr">19119 </span> 0x11/imm32/alloc-id:fake -<span id="L19120" class="LineNr">19120 </span> <a href='mu.subx.html#L22044'>_string_b8_copy_to_eax</a>/imm32/subx-name -<span id="L19121" class="LineNr">19121 </span> 0/imm32/no-rm32 -<span id="L19122" class="LineNr">19122 </span> 0/imm32/no-r32 -<span id="L19123" class="LineNr">19123 </span> 1/imm32/imm32-is-first-inout -<span id="L19124" class="LineNr">19124 </span> 0/imm32/no-imm8 -<span id="L19125" class="LineNr">19125 </span> 0/imm32/no-disp32 -<span id="L19126" class="LineNr">19126 </span> 0/imm32/no-xm32 -<span id="L19127" class="LineNr">19127 </span> 0/imm32/no-x32 -<span id="L19128" class="LineNr">19128 </span> 0x11/imm32/alloc-id:fake -<span id="L19129" class="LineNr">19129 </span> <a href='mu.subx.html#L19130'>_Primitive-copy-to-ecx</a>/imm32/next -<span id="L19130" class="LineNr">19130 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19131" class="LineNr">19131 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19132" class="LineNr">19132 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> -<span id="L19133" class="LineNr">19133 </span> 0x11/imm32/alloc-id:fake -<span id="L19134" class="LineNr">19134 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19135" class="LineNr">19135 </span> 0x11/imm32/alloc-id:fake -<span id="L19136" class="LineNr">19136 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19137" class="LineNr">19137 </span> 0x11/imm32/alloc-id:fake -<span id="L19138" class="LineNr">19138 </span> <span class="SpecialChar"><a href='mu.subx.html#L22312'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L19139" class="LineNr">19139 </span> 0x11/imm32/alloc-id:fake -<span id="L19140" class="LineNr">19140 </span> <a href='mu.subx.html#L22049'>_string_b9_copy_to_ecx</a>/imm32/subx-name -<span id="L19141" class="LineNr">19141 </span> 0/imm32/no-rm32 -<span id="L19142" class="LineNr">19142 </span> 0/imm32/no-r32 -<span id="L19143" class="LineNr">19143 </span> 1/imm32/imm32-is-first-inout -<span id="L19144" class="LineNr">19144 </span> 0/imm32/no-imm8 -<span id="L19145" class="LineNr">19145 </span> 0/imm32/no-disp32 -<span id="L19146" class="LineNr">19146 </span> 0/imm32/no-xm32 -<span id="L19147" class="LineNr">19147 </span> 0/imm32/no-x32 -<span id="L19148" class="LineNr">19148 </span> 0x11/imm32/alloc-id:fake -<span id="L19149" class="LineNr">19149 </span> <a href='mu.subx.html#L19150'>_Primitive-copy-to-edx</a>/imm32/next -<span id="L19150" class="LineNr">19150 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19151" class="LineNr">19151 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19152" class="LineNr">19152 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> -<span id="L19153" class="LineNr">19153 </span> 0x11/imm32/alloc-id:fake -<span id="L19154" class="LineNr">19154 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19155" class="LineNr">19155 </span> 0x11/imm32/alloc-id:fake -<span id="L19156" class="LineNr">19156 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19157" class="LineNr">19157 </span> 0x11/imm32/alloc-id:fake -<span id="L19158" class="LineNr">19158 </span> <span class="SpecialChar"><a href='mu.subx.html#L22330'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L19159" class="LineNr">19159 </span> 0x11/imm32/alloc-id:fake -<span id="L19160" class="LineNr">19160 </span> <a href='mu.subx.html#L22054'>_string_ba_copy_to_edx</a>/imm32/subx-name -<span id="L19161" class="LineNr">19161 </span> 0/imm32/no-rm32 -<span id="L19162" class="LineNr">19162 </span> 0/imm32/no-r32 -<span id="L19163" class="LineNr">19163 </span> 1/imm32/imm32-is-first-inout -<span id="L19164" class="LineNr">19164 </span> 0/imm32/no-imm8 -<span id="L19165" class="LineNr">19165 </span> 0/imm32/no-disp32 -<span id="L19166" class="LineNr">19166 </span> 0/imm32/no-xm32 -<span id="L19167" class="LineNr">19167 </span> 0/imm32/no-x32 -<span id="L19168" class="LineNr">19168 </span> 0x11/imm32/alloc-id:fake -<span id="L19169" class="LineNr">19169 </span> <a href='mu.subx.html#L19170'>_Primitive-copy-to-ebx</a>/imm32/next -<span id="L19170" class="LineNr">19170 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19171" class="LineNr">19171 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19172" class="LineNr">19172 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> -<span id="L19173" class="LineNr">19173 </span> 0x11/imm32/alloc-id:fake -<span id="L19174" class="LineNr">19174 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19175" class="LineNr">19175 </span> 0x11/imm32/alloc-id:fake -<span id="L19176" class="LineNr">19176 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19177" class="LineNr">19177 </span> 0x11/imm32/alloc-id:fake -<span id="L19178" class="LineNr">19178 </span> <span class="SpecialChar"><a href='mu.subx.html#L22348'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L19179" class="LineNr">19179 </span> 0x11/imm32/alloc-id:fake -<span id="L19180" class="LineNr">19180 </span> <a href='mu.subx.html#L22059'>_string_bb_copy_to_ebx</a>/imm32/subx-name -<span id="L19181" class="LineNr">19181 </span> 0/imm32/no-rm32 -<span id="L19182" class="LineNr">19182 </span> 0/imm32/no-r32 -<span id="L19183" class="LineNr">19183 </span> 1/imm32/imm32-is-first-inout -<span id="L19184" class="LineNr">19184 </span> 0/imm32/no-imm8 -<span id="L19185" class="LineNr">19185 </span> 0/imm32/no-disp32 -<span id="L19186" class="LineNr">19186 </span> 0/imm32/no-xm32 -<span id="L19187" class="LineNr">19187 </span> 0/imm32/no-x32 -<span id="L19188" class="LineNr">19188 </span> 0x11/imm32/alloc-id:fake -<span id="L19189" class="LineNr">19189 </span> <a href='mu.subx.html#L19190'>_Primitive-copy-to-esi</a>/imm32/next -<span id="L19190" class="LineNr">19190 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19191" class="LineNr">19191 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19192" class="LineNr">19192 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> -<span id="L19193" class="LineNr">19193 </span> 0x11/imm32/alloc-id:fake -<span id="L19194" class="LineNr">19194 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19195" class="LineNr">19195 </span> 0x11/imm32/alloc-id:fake -<span id="L19196" class="LineNr">19196 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19197" class="LineNr">19197 </span> 0x11/imm32/alloc-id:fake -<span id="L19198" class="LineNr">19198 </span> <span class="SpecialChar"><a href='mu.subx.html#L22366'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L19199" class="LineNr">19199 </span> 0x11/imm32/alloc-id:fake -<span id="L19200" class="LineNr">19200 </span> <a href='mu.subx.html#L22064'>_string_be_copy_to_esi</a>/imm32/subx-name -<span id="L19201" class="LineNr">19201 </span> 0/imm32/no-rm32 -<span id="L19202" class="LineNr">19202 </span> 0/imm32/no-r32 -<span id="L19203" class="LineNr">19203 </span> 1/imm32/imm32-is-first-inout -<span id="L19204" class="LineNr">19204 </span> 0/imm32/no-imm8 -<span id="L19205" class="LineNr">19205 </span> 0/imm32/no-disp32 -<span id="L19206" class="LineNr">19206 </span> 0/imm32/no-xm32 -<span id="L19207" class="LineNr">19207 </span> 0/imm32/no-x32 -<span id="L19208" class="LineNr">19208 </span> 0x11/imm32/alloc-id:fake -<span id="L19209" class="LineNr">19209 </span> <a href='mu.subx.html#L19210'>_Primitive-copy-to-edi</a>/imm32/next -<span id="L19210" class="LineNr">19210 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19211" class="LineNr">19211 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19212" class="LineNr">19212 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> -<span id="L19213" class="LineNr">19213 </span> 0x11/imm32/alloc-id:fake -<span id="L19214" class="LineNr">19214 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19215" class="LineNr">19215 </span> 0x11/imm32/alloc-id:fake -<span id="L19216" class="LineNr">19216 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L19217" class="LineNr">19217 </span> 0x11/imm32/alloc-id:fake -<span id="L19218" class="LineNr">19218 </span> <span class="SpecialChar"><a href='mu.subx.html#L22384'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L19219" class="LineNr">19219 </span> 0x11/imm32/alloc-id:fake -<span id="L19220" class="LineNr">19220 </span> <a href='mu.subx.html#L22069'>_string_bf_copy_to_edi</a>/imm32/subx-name -<span id="L19221" class="LineNr">19221 </span> 0/imm32/no-rm32 -<span id="L19222" class="LineNr">19222 </span> 0/imm32/no-r32 -<span id="L19223" class="LineNr">19223 </span> 1/imm32/imm32-is-first-inout -<span id="L19224" class="LineNr">19224 </span> 0/imm32/no-imm8 -<span id="L19225" class="LineNr">19225 </span> 0/imm32/no-disp32 -<span id="L19226" class="LineNr">19226 </span> 0/imm32/no-xm32 -<span id="L19227" class="LineNr">19227 </span> 0/imm32/no-x32 -<span id="L19228" class="LineNr">19228 </span> 0x11/imm32/alloc-id:fake -<span id="L19229" class="LineNr">19229 </span> <a href='mu.subx.html#L19230'>_Primitive-copy-reg-to-reg</a>/imm32/next -<span id="L19230" class="LineNr">19230 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19231" class="LineNr">19231 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19232" class="LineNr">19232 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> -<span id="L19233" class="LineNr">19233 </span> 0x11/imm32/alloc-id:fake -<span id="L19234" class="LineNr">19234 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19235" class="LineNr">19235 </span> 0x11/imm32/alloc-id:fake -<span id="L19236" class="LineNr">19236 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L19237" class="LineNr">19237 </span> 0x11/imm32/alloc-id:fake -<span id="L19238" class="LineNr">19238 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19239" class="LineNr">19239 </span> 0x11/imm32/alloc-id:fake -<span id="L19240" class="LineNr">19240 </span> <a href='mu.subx.html#L22019'>_string_89_<-</a>/imm32/subx-name -<span id="L19241" class="LineNr">19241 </span> 3/imm32/rm32-is-first-output -<span id="L19242" class="LineNr">19242 </span> 1/imm32/r32-is-first-inout -<span id="L19243" class="LineNr">19243 </span> 0/imm32/no-imm32 -<span id="L19244" class="LineNr">19244 </span> 0/imm32/no-imm8 -<span id="L19245" class="LineNr">19245 </span> 0/imm32/no-disp32 -<span id="L19246" class="LineNr">19246 </span> 0/imm32/no-xm32 -<span id="L19247" class="LineNr">19247 </span> 0/imm32/no-x32 -<span id="L19248" class="LineNr">19248 </span> 0x11/imm32/alloc-id:fake -<span id="L19249" class="LineNr">19249 </span> <a href='mu.subx.html#L19250'>_Primitive-copy-reg-to-mem</a>/imm32/next -<span id="L19250" class="LineNr">19250 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19108" class="LineNr">19108 </span> <a href='mu.subx.html#L19109'>_Primitive-xor-lit-with-mem</a>/imm32/next +<span id="L19109" class="LineNr">19109 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19110" class="LineNr">19110 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19111" class="LineNr">19111 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L19112" class="LineNr">19112 </span> 0x11/imm32/alloc-id:fake +<span id="L19113" class="LineNr">19113 </span> <a href='mu.subx.html#L21845'>_string-xor-with</a>/imm32/name +<span id="L19114" class="LineNr">19114 </span> 0x11/imm32/alloc-id:fake +<span id="L19115" class="LineNr">19115 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19116" class="LineNr">19116 </span> 0/imm32/no-outputs +<span id="L19117" class="LineNr">19117 </span> 0/imm32/no-outputs +<span id="L19118" class="LineNr">19118 </span> 0x11/imm32/alloc-id:fake +<span id="L19119" class="LineNr">19119 </span> <a href='mu.subx.html#L22267'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L19120" class="LineNr">19120 </span> 1/imm32/rm32-is-first-inout +<span id="L19121" class="LineNr">19121 </span> 0/imm32/no-r32 +<span id="L19122" class="LineNr">19122 </span> 2/imm32/imm32-is-second-inout +<span id="L19123" class="LineNr">19123 </span> 0/imm32/no-imm8 +<span id="L19124" class="LineNr">19124 </span> 0/imm32/no-disp32 +<span id="L19125" class="LineNr">19125 </span> 0/imm32/no-xm32 +<span id="L19126" class="LineNr">19126 </span> 0/imm32/no-x32 +<span id="L19127" class="LineNr">19127 </span> 0x11/imm32/alloc-id:fake +<span id="L19128" class="LineNr">19128 </span> <a href='mu.subx.html#L19129'>_Primitive-shift-reg-left-by-lit</a>/imm32/next +<span id="L19129" class="LineNr">19129 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19130" class="LineNr">19130 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19131" class="LineNr">19131 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L19132" class="LineNr">19132 </span> 0x11/imm32/alloc-id:fake +<span id="L19133" class="LineNr">19133 </span> <a href='mu.subx.html#L21850'>_string-shift-left</a>/imm32/name +<span id="L19134" class="LineNr">19134 </span> 0x11/imm32/alloc-id:fake +<span id="L19135" class="LineNr">19135 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19136" class="LineNr">19136 </span> 0x11/imm32/alloc-id:fake +<span id="L19137" class="LineNr">19137 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19138" class="LineNr">19138 </span> 0x11/imm32/alloc-id:fake +<span id="L19139" class="LineNr">19139 </span> <a href='mu.subx.html#L22367'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L19140" class="LineNr">19140 </span> 3/imm32/rm32-is-first-output +<span id="L19141" class="LineNr">19141 </span> 0/imm32/no-r32 +<span id="L19142" class="LineNr">19142 </span> 0/imm32/no-imm32 +<span id="L19143" class="LineNr">19143 </span> 1/imm32/imm8-is-first-inout +<span id="L19144" class="LineNr">19144 </span> 0/imm32/no-disp32 +<span id="L19145" class="LineNr">19145 </span> 0/imm32/no-xm32 +<span id="L19146" class="LineNr">19146 </span> 0/imm32/no-x32 +<span id="L19147" class="LineNr">19147 </span> 0x11/imm32/alloc-id:fake +<span id="L19148" class="LineNr">19148 </span> <a href='mu.subx.html#L19149'>_Primitive-shift-reg-right-by-lit</a>/imm32/next +<span id="L19149" class="LineNr">19149 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19150" class="LineNr">19150 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19151" class="LineNr">19151 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L19152" class="LineNr">19152 </span> 0x11/imm32/alloc-id:fake +<span id="L19153" class="LineNr">19153 </span> <a href='mu.subx.html#L21855'>_string-shift-right</a>/imm32/name +<span id="L19154" class="LineNr">19154 </span> 0x11/imm32/alloc-id:fake +<span id="L19155" class="LineNr">19155 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19156" class="LineNr">19156 </span> 0x11/imm32/alloc-id:fake +<span id="L19157" class="LineNr">19157 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19158" class="LineNr">19158 </span> 0x11/imm32/alloc-id:fake +<span id="L19159" class="LineNr">19159 </span> <a href='mu.subx.html#L22372'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L19160" class="LineNr">19160 </span> 3/imm32/rm32-is-first-output +<span id="L19161" class="LineNr">19161 </span> 0/imm32/no-r32 +<span id="L19162" class="LineNr">19162 </span> 0/imm32/no-imm32 +<span id="L19163" class="LineNr">19163 </span> 1/imm32/imm8-is-first-inout +<span id="L19164" class="LineNr">19164 </span> 0/imm32/no-disp32 +<span id="L19165" class="LineNr">19165 </span> 0/imm32/no-xm32 +<span id="L19166" class="LineNr">19166 </span> 0/imm32/no-x32 +<span id="L19167" class="LineNr">19167 </span> 0x11/imm32/alloc-id:fake +<span id="L19168" class="LineNr">19168 </span> <a href='mu.subx.html#L19169'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next +<span id="L19169" class="LineNr">19169 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19170" class="LineNr">19170 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19171" class="LineNr">19171 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L19172" class="LineNr">19172 </span> 0x11/imm32/alloc-id:fake +<span id="L19173" class="LineNr">19173 </span> <a href='mu.subx.html#L21860'>_string-shift-right-signed</a>/imm32/name +<span id="L19174" class="LineNr">19174 </span> 0x11/imm32/alloc-id:fake +<span id="L19175" class="LineNr">19175 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19176" class="LineNr">19176 </span> 0x11/imm32/alloc-id:fake +<span id="L19177" class="LineNr">19177 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19178" class="LineNr">19178 </span> 0x11/imm32/alloc-id:fake +<span id="L19179" class="LineNr">19179 </span> <a href='mu.subx.html#L22377'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L19180" class="LineNr">19180 </span> 3/imm32/rm32-is-first-output +<span id="L19181" class="LineNr">19181 </span> 0/imm32/no-r32 +<span id="L19182" class="LineNr">19182 </span> 0/imm32/no-imm32 +<span id="L19183" class="LineNr">19183 </span> 1/imm32/imm8-is-first-inout +<span id="L19184" class="LineNr">19184 </span> 0/imm32/no-disp32 +<span id="L19185" class="LineNr">19185 </span> 0/imm32/no-xm32 +<span id="L19186" class="LineNr">19186 </span> 0/imm32/no-x32 +<span id="L19187" class="LineNr">19187 </span> 0x11/imm32/alloc-id:fake +<span id="L19188" class="LineNr">19188 </span> <a href='mu.subx.html#L19189'>_Primitive-shift-mem-left-by-lit</a>/imm32/next +<span id="L19189" class="LineNr">19189 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19190" class="LineNr">19190 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19191" class="LineNr">19191 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L19192" class="LineNr">19192 </span> 0x11/imm32/alloc-id:fake +<span id="L19193" class="LineNr">19193 </span> <a href='mu.subx.html#L21850'>_string-shift-left</a>/imm32/name +<span id="L19194" class="LineNr">19194 </span> 0x11/imm32/alloc-id:fake +<span id="L19195" class="LineNr">19195 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19196" class="LineNr">19196 </span> 0/imm32/no-outputs +<span id="L19197" class="LineNr">19197 </span> 0/imm32/no-outputs +<span id="L19198" class="LineNr">19198 </span> 0x11/imm32/alloc-id:fake +<span id="L19199" class="LineNr">19199 </span> <a href='mu.subx.html#L22367'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L19200" class="LineNr">19200 </span> 1/imm32/rm32-is-first-inout +<span id="L19201" class="LineNr">19201 </span> 0/imm32/no-r32 +<span id="L19202" class="LineNr">19202 </span> 0/imm32/no-imm32 +<span id="L19203" class="LineNr">19203 </span> 2/imm32/imm8-is-second-inout +<span id="L19204" class="LineNr">19204 </span> 0/imm32/no-disp32 +<span id="L19205" class="LineNr">19205 </span> 0/imm32/no-xm32 +<span id="L19206" class="LineNr">19206 </span> 0/imm32/no-x32 +<span id="L19207" class="LineNr">19207 </span> 0x11/imm32/alloc-id:fake +<span id="L19208" class="LineNr">19208 </span> <a href='mu.subx.html#L19209'>_Primitive-shift-mem-right-by-lit</a>/imm32/next +<span id="L19209" class="LineNr">19209 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19210" class="LineNr">19210 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19211" class="LineNr">19211 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L19212" class="LineNr">19212 </span> 0x11/imm32/alloc-id:fake +<span id="L19213" class="LineNr">19213 </span> <a href='mu.subx.html#L21855'>_string-shift-right</a>/imm32/name +<span id="L19214" class="LineNr">19214 </span> 0x11/imm32/alloc-id:fake +<span id="L19215" class="LineNr">19215 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19216" class="LineNr">19216 </span> 0/imm32/no-outputs +<span id="L19217" class="LineNr">19217 </span> 0/imm32/no-outputs +<span id="L19218" class="LineNr">19218 </span> 0x11/imm32/alloc-id:fake +<span id="L19219" class="LineNr">19219 </span> <a href='mu.subx.html#L22372'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L19220" class="LineNr">19220 </span> 1/imm32/rm32-is-first-inout +<span id="L19221" class="LineNr">19221 </span> 0/imm32/no-r32 +<span id="L19222" class="LineNr">19222 </span> 0/imm32/no-imm32 +<span id="L19223" class="LineNr">19223 </span> 2/imm32/imm8-is-second-inout +<span id="L19224" class="LineNr">19224 </span> 0/imm32/no-disp32 +<span id="L19225" class="LineNr">19225 </span> 0/imm32/no-xm32 +<span id="L19226" class="LineNr">19226 </span> 0/imm32/no-x32 +<span id="L19227" class="LineNr">19227 </span> 0x11/imm32/alloc-id:fake +<span id="L19228" class="LineNr">19228 </span> <a href='mu.subx.html#L19229'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next +<span id="L19229" class="LineNr">19229 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19230" class="LineNr">19230 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19231" class="LineNr">19231 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L19232" class="LineNr">19232 </span> 0x11/imm32/alloc-id:fake +<span id="L19233" class="LineNr">19233 </span> <a href='mu.subx.html#L21860'>_string-shift-right-signed</a>/imm32/name +<span id="L19234" class="LineNr">19234 </span> 0x11/imm32/alloc-id:fake +<span id="L19235" class="LineNr">19235 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19236" class="LineNr">19236 </span> 0/imm32/no-outputs +<span id="L19237" class="LineNr">19237 </span> 0/imm32/no-outputs +<span id="L19238" class="LineNr">19238 </span> 0x11/imm32/alloc-id:fake +<span id="L19239" class="LineNr">19239 </span> <a href='mu.subx.html#L22377'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L19240" class="LineNr">19240 </span> 1/imm32/rm32-is-first-inout +<span id="L19241" class="LineNr">19241 </span> 0/imm32/no-r32 +<span id="L19242" class="LineNr">19242 </span> 0/imm32/no-imm32 +<span id="L19243" class="LineNr">19243 </span> 2/imm32/imm8-is-second-inout +<span id="L19244" class="LineNr">19244 </span> 0/imm32/no-disp32 +<span id="L19245" class="LineNr">19245 </span> 0/imm32/no-xm32 +<span id="L19246" class="LineNr">19246 </span> 0/imm32/no-x32 +<span id="L19247" class="LineNr">19247 </span> 0x11/imm32/alloc-id:fake +<span id="L19248" class="LineNr">19248 </span> <a href='mu.subx.html#L19250'>_Primitive-copy-to-eax</a>/imm32/next +<span id="L19249" class="LineNr">19249 </span><span class="subxH1Comment"># - copy</span> +<span id="L19250" class="LineNr">19250 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19251" class="LineNr">19251 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19252" class="LineNr">19252 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> +<span id="L19252" class="LineNr">19252 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> <span id="L19253" class="LineNr">19253 </span> 0x11/imm32/alloc-id:fake -<span id="L19254" class="LineNr">19254 </span> <a href='mu.subx.html#L21422'>_string-copy-to</a>/imm32/name +<span id="L19254" class="LineNr">19254 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name <span id="L19255" class="LineNr">19255 </span> 0x11/imm32/alloc-id:fake -<span id="L19256" class="LineNr">19256 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L19257" class="LineNr">19257 </span> 0/imm32/no-outputs -<span id="L19258" class="LineNr">19258 </span> 0/imm32/no-outputs +<span id="L19256" class="LineNr">19256 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19257" class="LineNr">19257 </span> 0x11/imm32/alloc-id:fake +<span id="L19258" class="LineNr">19258 </span> <span class="SpecialChar"><a href='mu.subx.html#L22552'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L19259" class="LineNr">19259 </span> 0x11/imm32/alloc-id:fake -<span id="L19260" class="LineNr">19260 </span> <a href='mu.subx.html#L22019'>_string_89_<-</a>/imm32/subx-name -<span id="L19261" class="LineNr">19261 </span> 1/imm32/rm32-is-first-inout -<span id="L19262" class="LineNr">19262 </span> 2/imm32/r32-is-second-inout -<span id="L19263" class="LineNr">19263 </span> 0/imm32/no-imm32 +<span id="L19260" class="LineNr">19260 </span> <a href='mu.subx.html#L22302'>_string_b8_copy_to_eax</a>/imm32/subx-name +<span id="L19261" class="LineNr">19261 </span> 0/imm32/no-rm32 +<span id="L19262" class="LineNr">19262 </span> 0/imm32/no-r32 +<span id="L19263" class="LineNr">19263 </span> 1/imm32/imm32-is-first-inout <span id="L19264" class="LineNr">19264 </span> 0/imm32/no-imm8 <span id="L19265" class="LineNr">19265 </span> 0/imm32/no-disp32 <span id="L19266" class="LineNr">19266 </span> 0/imm32/no-xm32 <span id="L19267" class="LineNr">19267 </span> 0/imm32/no-x32 <span id="L19268" class="LineNr">19268 </span> 0x11/imm32/alloc-id:fake -<span id="L19269" class="LineNr">19269 </span> <a href='mu.subx.html#L19270'>_Primitive-copy-mem-to-reg</a>/imm32/next -<span id="L19270" class="LineNr">19270 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19269" class="LineNr">19269 </span> <a href='mu.subx.html#L19270'>_Primitive-copy-to-ecx</a>/imm32/next +<span id="L19270" class="LineNr">19270 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19271" class="LineNr">19271 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19272" class="LineNr">19272 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L19272" class="LineNr">19272 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> <span id="L19273" class="LineNr">19273 </span> 0x11/imm32/alloc-id:fake -<span id="L19274" class="LineNr">19274 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name +<span id="L19274" class="LineNr">19274 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name <span id="L19275" class="LineNr">19275 </span> 0x11/imm32/alloc-id:fake -<span id="L19276" class="LineNr">19276 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19276" class="LineNr">19276 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts <span id="L19277" class="LineNr">19277 </span> 0x11/imm32/alloc-id:fake -<span id="L19278" class="LineNr">19278 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19278" class="LineNr">19278 </span> <span class="SpecialChar"><a href='mu.subx.html#L22570'>Single-int-var-in-ecx</a></span>/imm32/outputs <span id="L19279" class="LineNr">19279 </span> 0x11/imm32/alloc-id:fake -<span id="L19280" class="LineNr">19280 </span> <a href='mu.subx.html#L22024'>_string_8b_-></a>/imm32/subx-name -<span id="L19281" class="LineNr">19281 </span> 1/imm32/rm32-is-first-inout -<span id="L19282" class="LineNr">19282 </span> 3/imm32/r32-is-first-output -<span id="L19283" class="LineNr">19283 </span> 0/imm32/no-imm32 +<span id="L19280" class="LineNr">19280 </span> <a href='mu.subx.html#L22307'>_string_b9_copy_to_ecx</a>/imm32/subx-name +<span id="L19281" class="LineNr">19281 </span> 0/imm32/no-rm32 +<span id="L19282" class="LineNr">19282 </span> 0/imm32/no-r32 +<span id="L19283" class="LineNr">19283 </span> 1/imm32/imm32-is-first-inout <span id="L19284" class="LineNr">19284 </span> 0/imm32/no-imm8 <span id="L19285" class="LineNr">19285 </span> 0/imm32/no-disp32 <span id="L19286" class="LineNr">19286 </span> 0/imm32/no-xm32 <span id="L19287" class="LineNr">19287 </span> 0/imm32/no-x32 <span id="L19288" class="LineNr">19288 </span> 0x11/imm32/alloc-id:fake -<span id="L19289" class="LineNr">19289 </span> <a href='mu.subx.html#L19290'>_Primitive-copy-lit-to-reg</a>/imm32/next -<span id="L19290" class="LineNr">19290 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19289" class="LineNr">19289 </span> <a href='mu.subx.html#L19290'>_Primitive-copy-to-edx</a>/imm32/next +<span id="L19290" class="LineNr">19290 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19291" class="LineNr">19291 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19292" class="LineNr">19292 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L19292" class="LineNr">19292 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> <span id="L19293" class="LineNr">19293 </span> 0x11/imm32/alloc-id:fake -<span id="L19294" class="LineNr">19294 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name +<span id="L19294" class="LineNr">19294 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name <span id="L19295" class="LineNr">19295 </span> 0x11/imm32/alloc-id:fake -<span id="L19296" class="LineNr">19296 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts +<span id="L19296" class="LineNr">19296 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts <span id="L19297" class="LineNr">19297 </span> 0x11/imm32/alloc-id:fake -<span id="L19298" class="LineNr">19298 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19298" class="LineNr">19298 </span> <span class="SpecialChar"><a href='mu.subx.html#L22588'>Single-int-var-in-edx</a></span>/imm32/outputs <span id="L19299" class="LineNr">19299 </span> 0x11/imm32/alloc-id:fake -<span id="L19300" class="LineNr">19300 </span> <a href='mu.subx.html#L22074'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L19301" class="LineNr">19301 </span> 3/imm32/rm32-is-first-output +<span id="L19300" class="LineNr">19300 </span> <a href='mu.subx.html#L22312'>_string_ba_copy_to_edx</a>/imm32/subx-name +<span id="L19301" class="LineNr">19301 </span> 0/imm32/no-rm32 <span id="L19302" class="LineNr">19302 </span> 0/imm32/no-r32 <span id="L19303" class="LineNr">19303 </span> 1/imm32/imm32-is-first-inout <span id="L19304" class="LineNr">19304 </span> 0/imm32/no-imm8 @@ -18525,5076 +18515,5086 @@ if ('onhashchange' in window) { <span id="L19306" class="LineNr">19306 </span> 0/imm32/no-xm32 <span id="L19307" class="LineNr">19307 </span> 0/imm32/no-x32 <span id="L19308" class="LineNr">19308 </span> 0x11/imm32/alloc-id:fake -<span id="L19309" class="LineNr">19309 </span> <a href='mu.subx.html#L19310'>_Primitive-copy-lit-to-mem</a>/imm32/next -<span id="L19310" class="LineNr">19310 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19309" class="LineNr">19309 </span> <a href='mu.subx.html#L19310'>_Primitive-copy-to-ebx</a>/imm32/next +<span id="L19310" class="LineNr">19310 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> <span id="L19311" class="LineNr">19311 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19312" class="LineNr">19312 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L19312" class="LineNr">19312 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> <span id="L19313" class="LineNr">19313 </span> 0x11/imm32/alloc-id:fake -<span id="L19314" class="LineNr">19314 </span> <a href='mu.subx.html#L21422'>_string-copy-to</a>/imm32/name +<span id="L19314" class="LineNr">19314 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name <span id="L19315" class="LineNr">19315 </span> 0x11/imm32/alloc-id:fake -<span id="L19316" class="LineNr">19316 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L19317" class="LineNr">19317 </span> 0/imm32/no-outputs -<span id="L19318" class="LineNr">19318 </span> 0/imm32/no-outputs +<span id="L19316" class="LineNr">19316 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19317" class="LineNr">19317 </span> 0x11/imm32/alloc-id:fake +<span id="L19318" class="LineNr">19318 </span> <span class="SpecialChar"><a href='mu.subx.html#L22606'>Single-int-var-in-ebx</a></span>/imm32/outputs <span id="L19319" class="LineNr">19319 </span> 0x11/imm32/alloc-id:fake -<span id="L19320" class="LineNr">19320 </span> <a href='mu.subx.html#L22074'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L19321" class="LineNr">19321 </span> 1/imm32/rm32-is-first-inout +<span id="L19320" class="LineNr">19320 </span> <a href='mu.subx.html#L22317'>_string_bb_copy_to_ebx</a>/imm32/subx-name +<span id="L19321" class="LineNr">19321 </span> 0/imm32/no-rm32 <span id="L19322" class="LineNr">19322 </span> 0/imm32/no-r32 -<span id="L19323" class="LineNr">19323 </span> 2/imm32/imm32-is-second-inout +<span id="L19323" class="LineNr">19323 </span> 1/imm32/imm32-is-first-inout <span id="L19324" class="LineNr">19324 </span> 0/imm32/no-imm8 <span id="L19325" class="LineNr">19325 </span> 0/imm32/no-disp32 <span id="L19326" class="LineNr">19326 </span> 0/imm32/no-xm32 <span id="L19327" class="LineNr">19327 </span> 0/imm32/no-x32 <span id="L19328" class="LineNr">19328 </span> 0x11/imm32/alloc-id:fake -<span id="L19329" class="LineNr">19329 </span> <a href='mu.subx.html#L19331'>_Primitive-copy-byte-from-reg</a>/imm32/next -<span id="L19330" class="LineNr">19330 </span><span class="subxH1Comment"># - copy byte</span> -<span id="L19331" class="LineNr">19331 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: -<span id="L19332" class="LineNr">19332 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19333" class="LineNr">19333 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> -<span id="L19334" class="LineNr">19334 </span> 0x11/imm32/alloc-id:fake -<span id="L19335" class="LineNr">19335 </span> <a href='mu.subx.html#L21427'>_string-copy-byte</a>/imm32/name -<span id="L19336" class="LineNr">19336 </span> 0x11/imm32/alloc-id:fake -<span id="L19337" class="LineNr">19337 </span> <span class="SpecialChar"><a href='mu.subx.html#L22248'>Single-byte-var-in-some-register</a></span>/imm32/inouts -<span id="L19338" class="LineNr">19338 </span> 0x11/imm32/alloc-id:fake -<span id="L19339" class="LineNr">19339 </span> <span class="SpecialChar"><a href='mu.subx.html#L22248'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L19340" class="LineNr">19340 </span> 0x11/imm32/alloc-id:fake -<span id="L19341" class="LineNr">19341 </span> <a href='mu.subx.html#L22029'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L19342" class="LineNr">19342 </span> 1/imm32/rm32-is-first-inout -<span id="L19343" class="LineNr">19343 </span> 3/imm32/r32-is-first-output -<span id="L19344" class="LineNr">19344 </span> 0/imm32/no-imm32 -<span id="L19345" class="LineNr">19345 </span> 0/imm32/no-imm8 -<span id="L19346" class="LineNr">19346 </span> 0/imm32/no-disp32 -<span id="L19347" class="LineNr">19347 </span> 0/imm32/no-xm32 -<span id="L19348" class="LineNr">19348 </span> 0/imm32/no-x32 -<span id="L19349" class="LineNr">19349 </span> 0x11/imm32/alloc-id:fake -<span id="L19350" class="LineNr">19350 </span> <a href='mu.subx.html#L19351'>_Primitive-copy-byte-from-mem</a>/imm32/next -<span id="L19351" class="LineNr">19351 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: -<span id="L19352" class="LineNr">19352 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19353" class="LineNr">19353 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> -<span id="L19354" class="LineNr">19354 </span> 0x11/imm32/alloc-id:fake -<span id="L19355" class="LineNr">19355 </span> <a href='mu.subx.html#L21427'>_string-copy-byte</a>/imm32/name -<span id="L19356" class="LineNr">19356 </span> 0x11/imm32/alloc-id:fake -<span id="L19357" class="LineNr">19357 </span> <span class="SpecialChar"><a href='mu.subx.html#L22144'>Single-byte-var-in-mem</a></span>/imm32/inouts -<span id="L19358" class="LineNr">19358 </span> 0x11/imm32/alloc-id:fake -<span id="L19359" class="LineNr">19359 </span> <span class="SpecialChar"><a href='mu.subx.html#L22248'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L19360" class="LineNr">19360 </span> 0x11/imm32/alloc-id:fake -<span id="L19361" class="LineNr">19361 </span> <a href='mu.subx.html#L22029'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L19362" class="LineNr">19362 </span> 1/imm32/rm32-is-first-inout -<span id="L19363" class="LineNr">19363 </span> 3/imm32/r32-is-first-output -<span id="L19364" class="LineNr">19364 </span> 0/imm32/no-imm32 -<span id="L19365" class="LineNr">19365 </span> 0/imm32/no-imm8 -<span id="L19366" class="LineNr">19366 </span> 0/imm32/no-disp32 -<span id="L19367" class="LineNr">19367 </span> 0/imm32/no-xm32 -<span id="L19368" class="LineNr">19368 </span> 0/imm32/no-x32 -<span id="L19369" class="LineNr">19369 </span> 0x11/imm32/alloc-id:fake -<span id="L19370" class="LineNr">19370 </span> <a href='mu.subx.html#L19371'>_Primitive-copy-byte-to-mem</a>/imm32/next -<span id="L19371" class="LineNr">19371 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: -<span id="L19372" class="LineNr">19372 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19373" class="LineNr">19373 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> -<span id="L19374" class="LineNr">19374 </span> 0x11/imm32/alloc-id:fake -<span id="L19375" class="LineNr">19375 </span> <a href='mu.subx.html#L21432'>_string-copy-byte-to</a>/imm32/name -<span id="L19376" class="LineNr">19376 </span> 0x11/imm32/alloc-id:fake -<span id="L19377" class="LineNr">19377 </span> <span class="SpecialChar"><a href='mu.subx.html#L22178'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts -<span id="L19378" class="LineNr">19378 </span> 0/imm32/no-outputs -<span id="L19379" class="LineNr">19379 </span> 0/imm32/no-outputs -<span id="L19380" class="LineNr">19380 </span> 0x11/imm32/alloc-id:fake -<span id="L19381" class="LineNr">19381 </span> <a href='mu.subx.html#L22034'>_string_88_copy_byte</a>/imm32/subx-name -<span id="L19382" class="LineNr">19382 </span> 1/imm32/rm32-is-first-inout -<span id="L19383" class="LineNr">19383 </span> 2/imm32/r32-is-second-inout -<span id="L19384" class="LineNr">19384 </span> 0/imm32/no-imm32 -<span id="L19385" class="LineNr">19385 </span> 0/imm32/no-imm8 -<span id="L19386" class="LineNr">19386 </span> 0/imm32/no-disp32 -<span id="L19387" class="LineNr">19387 </span> 0/imm32/no-xm32 -<span id="L19388" class="LineNr">19388 </span> 0/imm32/no-x32 -<span id="L19389" class="LineNr">19389 </span> 0x11/imm32/alloc-id:fake -<span id="L19390" class="LineNr">19390 </span> <a href='mu.subx.html#L19392'>_Primitive-address</a>/imm32/next -<span id="L19391" class="LineNr">19391 </span><span class="subxH1Comment"># - address</span> -<span id="L19392" class="LineNr">19392 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19393" class="LineNr">19393 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19394" class="LineNr">19394 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L19329" class="LineNr">19329 </span> <a href='mu.subx.html#L19330'>_Primitive-copy-to-esi</a>/imm32/next +<span id="L19330" class="LineNr">19330 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19331" class="LineNr">19331 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19332" class="LineNr">19332 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> +<span id="L19333" class="LineNr">19333 </span> 0x11/imm32/alloc-id:fake +<span id="L19334" class="LineNr">19334 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19335" class="LineNr">19335 </span> 0x11/imm32/alloc-id:fake +<span id="L19336" class="LineNr">19336 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19337" class="LineNr">19337 </span> 0x11/imm32/alloc-id:fake +<span id="L19338" class="LineNr">19338 </span> <span class="SpecialChar"><a href='mu.subx.html#L22624'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L19339" class="LineNr">19339 </span> 0x11/imm32/alloc-id:fake +<span id="L19340" class="LineNr">19340 </span> <a href='mu.subx.html#L22322'>_string_be_copy_to_esi</a>/imm32/subx-name +<span id="L19341" class="LineNr">19341 </span> 0/imm32/no-rm32 +<span id="L19342" class="LineNr">19342 </span> 0/imm32/no-r32 +<span id="L19343" class="LineNr">19343 </span> 1/imm32/imm32-is-first-inout +<span id="L19344" class="LineNr">19344 </span> 0/imm32/no-imm8 +<span id="L19345" class="LineNr">19345 </span> 0/imm32/no-disp32 +<span id="L19346" class="LineNr">19346 </span> 0/imm32/no-xm32 +<span id="L19347" class="LineNr">19347 </span> 0/imm32/no-x32 +<span id="L19348" class="LineNr">19348 </span> 0x11/imm32/alloc-id:fake +<span id="L19349" class="LineNr">19349 </span> <a href='mu.subx.html#L19350'>_Primitive-copy-to-edi</a>/imm32/next +<span id="L19350" class="LineNr">19350 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19351" class="LineNr">19351 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19352" class="LineNr">19352 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> +<span id="L19353" class="LineNr">19353 </span> 0x11/imm32/alloc-id:fake +<span id="L19354" class="LineNr">19354 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19355" class="LineNr">19355 </span> 0x11/imm32/alloc-id:fake +<span id="L19356" class="LineNr">19356 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19357" class="LineNr">19357 </span> 0x11/imm32/alloc-id:fake +<span id="L19358" class="LineNr">19358 </span> <span class="SpecialChar"><a href='mu.subx.html#L22642'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L19359" class="LineNr">19359 </span> 0x11/imm32/alloc-id:fake +<span id="L19360" class="LineNr">19360 </span> <a href='mu.subx.html#L22327'>_string_bf_copy_to_edi</a>/imm32/subx-name +<span id="L19361" class="LineNr">19361 </span> 0/imm32/no-rm32 +<span id="L19362" class="LineNr">19362 </span> 0/imm32/no-r32 +<span id="L19363" class="LineNr">19363 </span> 1/imm32/imm32-is-first-inout +<span id="L19364" class="LineNr">19364 </span> 0/imm32/no-imm8 +<span id="L19365" class="LineNr">19365 </span> 0/imm32/no-disp32 +<span id="L19366" class="LineNr">19366 </span> 0/imm32/no-xm32 +<span id="L19367" class="LineNr">19367 </span> 0/imm32/no-x32 +<span id="L19368" class="LineNr">19368 </span> 0x11/imm32/alloc-id:fake +<span id="L19369" class="LineNr">19369 </span> <a href='mu.subx.html#L19370'>_Primitive-copy-reg-to-reg</a>/imm32/next +<span id="L19370" class="LineNr">19370 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19371" class="LineNr">19371 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19372" class="LineNr">19372 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> +<span id="L19373" class="LineNr">19373 </span> 0x11/imm32/alloc-id:fake +<span id="L19374" class="LineNr">19374 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19375" class="LineNr">19375 </span> 0x11/imm32/alloc-id:fake +<span id="L19376" class="LineNr">19376 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L19377" class="LineNr">19377 </span> 0x11/imm32/alloc-id:fake +<span id="L19378" class="LineNr">19378 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19379" class="LineNr">19379 </span> 0x11/imm32/alloc-id:fake +<span id="L19380" class="LineNr">19380 </span> <a href='mu.subx.html#L22277'>_string_89_<-</a>/imm32/subx-name +<span id="L19381" class="LineNr">19381 </span> 3/imm32/rm32-is-first-output +<span id="L19382" class="LineNr">19382 </span> 1/imm32/r32-is-first-inout +<span id="L19383" class="LineNr">19383 </span> 0/imm32/no-imm32 +<span id="L19384" class="LineNr">19384 </span> 0/imm32/no-imm8 +<span id="L19385" class="LineNr">19385 </span> 0/imm32/no-disp32 +<span id="L19386" class="LineNr">19386 </span> 0/imm32/no-xm32 +<span id="L19387" class="LineNr">19387 </span> 0/imm32/no-x32 +<span id="L19388" class="LineNr">19388 </span> 0x11/imm32/alloc-id:fake +<span id="L19389" class="LineNr">19389 </span> <a href='mu.subx.html#L19390'>_Primitive-copy-reg-to-mem</a>/imm32/next +<span id="L19390" class="LineNr">19390 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19391" class="LineNr">19391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19392" class="LineNr">19392 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> +<span id="L19393" class="LineNr">19393 </span> 0x11/imm32/alloc-id:fake +<span id="L19394" class="LineNr">19394 </span> <a href='mu.subx.html#L21665'>_string-copy-to</a>/imm32/name <span id="L19395" class="LineNr">19395 </span> 0x11/imm32/alloc-id:fake -<span id="L19396" class="LineNr">19396 </span> <a href='mu.subx.html#L21317'>_string-address</a>/imm32/name -<span id="L19397" class="LineNr">19397 </span> 0x11/imm32/alloc-id:fake -<span id="L19398" class="LineNr">19398 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19396" class="LineNr">19396 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L19397" class="LineNr">19397 </span> 0/imm32/no-outputs +<span id="L19398" class="LineNr">19398 </span> 0/imm32/no-outputs <span id="L19399" class="LineNr">19399 </span> 0x11/imm32/alloc-id:fake -<span id="L19400" class="LineNr">19400 </span> <span class="SpecialChar"><a href='mu.subx.html#L22241'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L19401" class="LineNr">19401 </span> 0x11/imm32/alloc-id:fake -<span id="L19402" class="LineNr">19402 </span> <a href='mu.subx.html#L22039'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L19403" class="LineNr">19403 </span> 1/imm32/rm32-is-first-inout -<span id="L19404" class="LineNr">19404 </span> 3/imm32/r32-is-first-output -<span id="L19405" class="LineNr">19405 </span> 0/imm32/no-imm32 -<span id="L19406" class="LineNr">19406 </span> 0/imm32/no-imm8 -<span id="L19407" class="LineNr">19407 </span> 0/imm32/no-disp32 -<span id="L19408" class="LineNr">19408 </span> 0/imm32/no-xm32 -<span id="L19409" class="LineNr">19409 </span> 0/imm32/no-x32 -<span id="L19410" class="LineNr">19410 </span> 0x11/imm32/alloc-id:fake -<span id="L19411" class="LineNr">19411 </span> <a href='mu.subx.html#L19413'>_Primitive-compare-reg-with-reg</a>/imm32/next -<span id="L19412" class="LineNr">19412 </span><span class="subxH1Comment"># - compare</span> -<span id="L19413" class="LineNr">19413 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19414" class="LineNr">19414 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19415" class="LineNr">19415 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> -<span id="L19416" class="LineNr">19416 </span> 0x11/imm32/alloc-id:fake -<span id="L19417" class="LineNr">19417 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L19418" class="LineNr">19418 </span> 0x11/imm32/alloc-id:fake -<span id="L19419" class="LineNr">19419 </span> <span class="SpecialChar"><a href='mu.subx.html#L22170'>Two-int-args-in-regs</a></span>/imm32/inouts -<span id="L19420" class="LineNr">19420 </span> 0/imm32/no-outputs -<span id="L19421" class="LineNr">19421 </span> 0/imm32/no-outputs -<span id="L19422" class="LineNr">19422 </span> 0x11/imm32/alloc-id:fake -<span id="L19423" class="LineNr">19423 </span> <a href='mu.subx.html#L21914'>_string_39_compare-></a>/imm32/subx-name -<span id="L19424" class="LineNr">19424 </span> 1/imm32/rm32-is-first-inout -<span id="L19425" class="LineNr">19425 </span> 2/imm32/r32-is-second-inout -<span id="L19426" class="LineNr">19426 </span> 0/imm32/no-imm32 -<span id="L19427" class="LineNr">19427 </span> 0/imm32/no-imm8 -<span id="L19428" class="LineNr">19428 </span> 0/imm32/no-disp32 -<span id="L19429" class="LineNr">19429 </span> 0/imm32/no-xm32 -<span id="L19430" class="LineNr">19430 </span> 0/imm32/no-x32 -<span id="L19431" class="LineNr">19431 </span> 0x11/imm32/alloc-id:fake -<span id="L19432" class="LineNr">19432 </span> <a href='mu.subx.html#L19433'>_Primitive-compare-mem-with-reg</a>/imm32/next -<span id="L19433" class="LineNr">19433 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19434" class="LineNr">19434 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19435" class="LineNr">19435 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> -<span id="L19436" class="LineNr">19436 </span> 0x11/imm32/alloc-id:fake -<span id="L19437" class="LineNr">19437 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L19438" class="LineNr">19438 </span> 0x11/imm32/alloc-id:fake -<span id="L19439" class="LineNr">19439 </span> <span class="SpecialChar"><a href='mu.subx.html#L22163'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L19440" class="LineNr">19440 </span> 0/imm32/no-outputs -<span id="L19441" class="LineNr">19441 </span> 0/imm32/no-outputs -<span id="L19442" class="LineNr">19442 </span> 0x11/imm32/alloc-id:fake -<span id="L19443" class="LineNr">19443 </span> <a href='mu.subx.html#L21914'>_string_39_compare-></a>/imm32/subx-name -<span id="L19444" class="LineNr">19444 </span> 1/imm32/rm32-is-first-inout -<span id="L19445" class="LineNr">19445 </span> 2/imm32/r32-is-second-inout -<span id="L19446" class="LineNr">19446 </span> 0/imm32/no-imm32 -<span id="L19447" class="LineNr">19447 </span> 0/imm32/no-imm8 -<span id="L19448" class="LineNr">19448 </span> 0/imm32/no-disp32 -<span id="L19449" class="LineNr">19449 </span> 0/imm32/no-xm32 -<span id="L19450" class="LineNr">19450 </span> 0/imm32/no-x32 -<span id="L19451" class="LineNr">19451 </span> 0x11/imm32/alloc-id:fake -<span id="L19452" class="LineNr">19452 </span> <a href='mu.subx.html#L19453'>_Primitive-compare-reg-with-mem</a>/imm32/next -<span id="L19453" class="LineNr">19453 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19454" class="LineNr">19454 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19455" class="LineNr">19455 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> -<span id="L19456" class="LineNr">19456 </span> 0x11/imm32/alloc-id:fake -<span id="L19457" class="LineNr">19457 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L19458" class="LineNr">19458 </span> 0x11/imm32/alloc-id:fake -<span id="L19459" class="LineNr">19459 </span> <span class="SpecialChar"><a href='mu.subx.html#L22185'>Two-args-int-reg-int-stack</a></span>/imm32/inouts -<span id="L19460" class="LineNr">19460 </span> 0/imm32/no-outputs -<span id="L19461" class="LineNr">19461 </span> 0/imm32/no-outputs -<span id="L19462" class="LineNr">19462 </span> 0x11/imm32/alloc-id:fake -<span id="L19463" class="LineNr">19463 </span> <a href='mu.subx.html#L21919'>_string_3b_compare<-</a>/imm32/subx-name -<span id="L19464" class="LineNr">19464 </span> 2/imm32/rm32-is-second-inout -<span id="L19465" class="LineNr">19465 </span> 1/imm32/r32-is-first-inout -<span id="L19466" class="LineNr">19466 </span> 0/imm32/no-imm32 -<span id="L19467" class="LineNr">19467 </span> 0/imm32/no-imm8 -<span id="L19468" class="LineNr">19468 </span> 0/imm32/no-disp32 -<span id="L19469" class="LineNr">19469 </span> 0/imm32/no-xm32 -<span id="L19470" class="LineNr">19470 </span> 0/imm32/no-x32 -<span id="L19471" class="LineNr">19471 </span> 0x11/imm32/alloc-id:fake -<span id="L19472" class="LineNr">19472 </span> <a href='mu.subx.html#L19473'>_Primitive-compare-eax-with-literal</a>/imm32/next -<span id="L19473" class="LineNr">19473 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19474" class="LineNr">19474 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19475" class="LineNr">19475 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L19400" class="LineNr">19400 </span> <a href='mu.subx.html#L22277'>_string_89_<-</a>/imm32/subx-name +<span id="L19401" class="LineNr">19401 </span> 1/imm32/rm32-is-first-inout +<span id="L19402" class="LineNr">19402 </span> 2/imm32/r32-is-second-inout +<span id="L19403" class="LineNr">19403 </span> 0/imm32/no-imm32 +<span id="L19404" class="LineNr">19404 </span> 0/imm32/no-imm8 +<span id="L19405" class="LineNr">19405 </span> 0/imm32/no-disp32 +<span id="L19406" class="LineNr">19406 </span> 0/imm32/no-xm32 +<span id="L19407" class="LineNr">19407 </span> 0/imm32/no-x32 +<span id="L19408" class="LineNr">19408 </span> 0x11/imm32/alloc-id:fake +<span id="L19409" class="LineNr">19409 </span> <a href='mu.subx.html#L19410'>_Primitive-copy-mem-to-reg</a>/imm32/next +<span id="L19410" class="LineNr">19410 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19411" class="LineNr">19411 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19412" class="LineNr">19412 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L19413" class="LineNr">19413 </span> 0x11/imm32/alloc-id:fake +<span id="L19414" class="LineNr">19414 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19415" class="LineNr">19415 </span> 0x11/imm32/alloc-id:fake +<span id="L19416" class="LineNr">19416 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19417" class="LineNr">19417 </span> 0x11/imm32/alloc-id:fake +<span id="L19418" class="LineNr">19418 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19419" class="LineNr">19419 </span> 0x11/imm32/alloc-id:fake +<span id="L19420" class="LineNr">19420 </span> <a href='mu.subx.html#L22282'>_string_8b_-></a>/imm32/subx-name +<span id="L19421" class="LineNr">19421 </span> 1/imm32/rm32-is-first-inout +<span id="L19422" class="LineNr">19422 </span> 3/imm32/r32-is-first-output +<span id="L19423" class="LineNr">19423 </span> 0/imm32/no-imm32 +<span id="L19424" class="LineNr">19424 </span> 0/imm32/no-imm8 +<span id="L19425" class="LineNr">19425 </span> 0/imm32/no-disp32 +<span id="L19426" class="LineNr">19426 </span> 0/imm32/no-xm32 +<span id="L19427" class="LineNr">19427 </span> 0/imm32/no-x32 +<span id="L19428" class="LineNr">19428 </span> 0x11/imm32/alloc-id:fake +<span id="L19429" class="LineNr">19429 </span> <a href='mu.subx.html#L19430'>_Primitive-copy-lit-to-reg</a>/imm32/next +<span id="L19430" class="LineNr">19430 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19431" class="LineNr">19431 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19432" class="LineNr">19432 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L19433" class="LineNr">19433 </span> 0x11/imm32/alloc-id:fake +<span id="L19434" class="LineNr">19434 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19435" class="LineNr">19435 </span> 0x11/imm32/alloc-id:fake +<span id="L19436" class="LineNr">19436 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L19437" class="LineNr">19437 </span> 0x11/imm32/alloc-id:fake +<span id="L19438" class="LineNr">19438 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19439" class="LineNr">19439 </span> 0x11/imm32/alloc-id:fake +<span id="L19440" class="LineNr">19440 </span> <a href='mu.subx.html#L22332'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L19441" class="LineNr">19441 </span> 3/imm32/rm32-is-first-output +<span id="L19442" class="LineNr">19442 </span> 0/imm32/no-r32 +<span id="L19443" class="LineNr">19443 </span> 1/imm32/imm32-is-first-inout +<span id="L19444" class="LineNr">19444 </span> 0/imm32/no-imm8 +<span id="L19445" class="LineNr">19445 </span> 0/imm32/no-disp32 +<span id="L19446" class="LineNr">19446 </span> 0/imm32/no-xm32 +<span id="L19447" class="LineNr">19447 </span> 0/imm32/no-x32 +<span id="L19448" class="LineNr">19448 </span> 0x11/imm32/alloc-id:fake +<span id="L19449" class="LineNr">19449 </span> <a href='mu.subx.html#L19450'>_Primitive-copy-lit-to-mem</a>/imm32/next +<span id="L19450" class="LineNr">19450 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19451" class="LineNr">19451 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19452" class="LineNr">19452 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L19453" class="LineNr">19453 </span> 0x11/imm32/alloc-id:fake +<span id="L19454" class="LineNr">19454 </span> <a href='mu.subx.html#L21665'>_string-copy-to</a>/imm32/name +<span id="L19455" class="LineNr">19455 </span> 0x11/imm32/alloc-id:fake +<span id="L19456" class="LineNr">19456 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19457" class="LineNr">19457 </span> 0/imm32/no-outputs +<span id="L19458" class="LineNr">19458 </span> 0/imm32/no-outputs +<span id="L19459" class="LineNr">19459 </span> 0x11/imm32/alloc-id:fake +<span id="L19460" class="LineNr">19460 </span> <a href='mu.subx.html#L22332'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L19461" class="LineNr">19461 </span> 1/imm32/rm32-is-first-inout +<span id="L19462" class="LineNr">19462 </span> 0/imm32/no-r32 +<span id="L19463" class="LineNr">19463 </span> 2/imm32/imm32-is-second-inout +<span id="L19464" class="LineNr">19464 </span> 0/imm32/no-imm8 +<span id="L19465" class="LineNr">19465 </span> 0/imm32/no-disp32 +<span id="L19466" class="LineNr">19466 </span> 0/imm32/no-xm32 +<span id="L19467" class="LineNr">19467 </span> 0/imm32/no-x32 +<span id="L19468" class="LineNr">19468 </span> 0x11/imm32/alloc-id:fake +<span id="L19469" class="LineNr">19469 </span> <a href='mu.subx.html#L19471'>_Primitive-copy-byte-from-reg</a>/imm32/next +<span id="L19470" class="LineNr">19470 </span><span class="subxH1Comment"># - copy byte</span> +<span id="L19471" class="LineNr">19471 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: +<span id="L19472" class="LineNr">19472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19473" class="LineNr">19473 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> +<span id="L19474" class="LineNr">19474 </span> 0x11/imm32/alloc-id:fake +<span id="L19475" class="LineNr">19475 </span> <a href='mu.subx.html#L21670'>_string-copy-byte</a>/imm32/name <span id="L19476" class="LineNr">19476 </span> 0x11/imm32/alloc-id:fake -<span id="L19477" class="LineNr">19477 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name +<span id="L19477" class="LineNr">19477 </span> <span class="SpecialChar"><a href='mu.subx.html#L22506'>Single-byte-var-in-some-register</a></span>/imm32/inouts <span id="L19478" class="LineNr">19478 </span> 0x11/imm32/alloc-id:fake -<span id="L19479" class="LineNr">19479 </span> <span class="SpecialChar"><a href='mu.subx.html#L22192'>Two-args-int-eax-int-literal</a></span>/imm32/inouts -<span id="L19480" class="LineNr">19480 </span> 0/imm32/no-outputs -<span id="L19481" class="LineNr">19481 </span> 0/imm32/no-outputs -<span id="L19482" class="LineNr">19482 </span> 0x11/imm32/alloc-id:fake -<span id="L19483" class="LineNr">19483 </span> <a href='mu.subx.html#L21924'>_string_3d_compare_eax_with</a>/imm32/subx-name -<span id="L19484" class="LineNr">19484 </span> 0/imm32/no-rm32 -<span id="L19485" class="LineNr">19485 </span> 0/imm32/no-r32 -<span id="L19486" class="LineNr">19486 </span> 2/imm32/imm32-is-second-inout -<span id="L19487" class="LineNr">19487 </span> 0/imm32/no-imm8 -<span id="L19488" class="LineNr">19488 </span> 0/imm32/no-disp32 -<span id="L19489" class="LineNr">19489 </span> 0/imm32/no-xm32 -<span id="L19490" class="LineNr">19490 </span> 0/imm32/no-x32 -<span id="L19491" class="LineNr">19491 </span> 0x11/imm32/alloc-id:fake -<span id="L19492" class="LineNr">19492 </span> <a href='mu.subx.html#L19493'>_Primitive-compare-reg-with-literal</a>/imm32/next -<span id="L19493" class="LineNr">19493 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19494" class="LineNr">19494 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19495" class="LineNr">19495 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L19479" class="LineNr">19479 </span> <span class="SpecialChar"><a href='mu.subx.html#L22506'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L19480" class="LineNr">19480 </span> 0x11/imm32/alloc-id:fake +<span id="L19481" class="LineNr">19481 </span> <a href='mu.subx.html#L22287'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L19482" class="LineNr">19482 </span> 1/imm32/rm32-is-first-inout +<span id="L19483" class="LineNr">19483 </span> 3/imm32/r32-is-first-output +<span id="L19484" class="LineNr">19484 </span> 0/imm32/no-imm32 +<span id="L19485" class="LineNr">19485 </span> 0/imm32/no-imm8 +<span id="L19486" class="LineNr">19486 </span> 0/imm32/no-disp32 +<span id="L19487" class="LineNr">19487 </span> 0/imm32/no-xm32 +<span id="L19488" class="LineNr">19488 </span> 0/imm32/no-x32 +<span id="L19489" class="LineNr">19489 </span> 0x11/imm32/alloc-id:fake +<span id="L19490" class="LineNr">19490 </span> <a href='mu.subx.html#L19491'>_Primitive-copy-byte-from-mem</a>/imm32/next +<span id="L19491" class="LineNr">19491 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: +<span id="L19492" class="LineNr">19492 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19493" class="LineNr">19493 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> +<span id="L19494" class="LineNr">19494 </span> 0x11/imm32/alloc-id:fake +<span id="L19495" class="LineNr">19495 </span> <a href='mu.subx.html#L21670'>_string-copy-byte</a>/imm32/name <span id="L19496" class="LineNr">19496 </span> 0x11/imm32/alloc-id:fake -<span id="L19497" class="LineNr">19497 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name +<span id="L19497" class="LineNr">19497 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-byte-var-in-mem</a></span>/imm32/inouts <span id="L19498" class="LineNr">19498 </span> 0x11/imm32/alloc-id:fake -<span id="L19499" class="LineNr">19499 </span> <span class="SpecialChar"><a href='mu.subx.html#L22206'>Int-var-in-register-and-literal</a></span>/imm32/inouts -<span id="L19500" class="LineNr">19500 </span> 0/imm32/no-outputs -<span id="L19501" class="LineNr">19501 </span> 0/imm32/no-outputs -<span id="L19502" class="LineNr">19502 </span> 0x11/imm32/alloc-id:fake -<span id="L19503" class="LineNr">19503 </span> <a href='mu.subx.html#L22014'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L19504" class="LineNr">19504 </span> 1/imm32/rm32-is-first-inout -<span id="L19505" class="LineNr">19505 </span> 0/imm32/no-r32 -<span id="L19506" class="LineNr">19506 </span> 2/imm32/imm32-is-second-inout -<span id="L19507" class="LineNr">19507 </span> 0/imm32/no-imm8 -<span id="L19508" class="LineNr">19508 </span> 0/imm32/no-disp32 -<span id="L19509" class="LineNr">19509 </span> 0/imm32/no-xm32 -<span id="L19510" class="LineNr">19510 </span> 0/imm32/no-x32 -<span id="L19511" class="LineNr">19511 </span> 0x11/imm32/alloc-id:fake -<span id="L19512" class="LineNr">19512 </span> <a href='mu.subx.html#L19513'>_Primitive-compare-mem-with-literal</a>/imm32/next -<span id="L19513" class="LineNr">19513 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19514" class="LineNr">19514 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19515" class="LineNr">19515 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> +<span id="L19499" class="LineNr">19499 </span> <span class="SpecialChar"><a href='mu.subx.html#L22506'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L19500" class="LineNr">19500 </span> 0x11/imm32/alloc-id:fake +<span id="L19501" class="LineNr">19501 </span> <a href='mu.subx.html#L22287'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L19502" class="LineNr">19502 </span> 1/imm32/rm32-is-first-inout +<span id="L19503" class="LineNr">19503 </span> 3/imm32/r32-is-first-output +<span id="L19504" class="LineNr">19504 </span> 0/imm32/no-imm32 +<span id="L19505" class="LineNr">19505 </span> 0/imm32/no-imm8 +<span id="L19506" class="LineNr">19506 </span> 0/imm32/no-disp32 +<span id="L19507" class="LineNr">19507 </span> 0/imm32/no-xm32 +<span id="L19508" class="LineNr">19508 </span> 0/imm32/no-x32 +<span id="L19509" class="LineNr">19509 </span> 0x11/imm32/alloc-id:fake +<span id="L19510" class="LineNr">19510 </span> <a href='mu.subx.html#L19511'>_Primitive-copy-byte-to-mem</a>/imm32/next +<span id="L19511" class="LineNr">19511 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: +<span id="L19512" class="LineNr">19512 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19513" class="LineNr">19513 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> +<span id="L19514" class="LineNr">19514 </span> 0x11/imm32/alloc-id:fake +<span id="L19515" class="LineNr">19515 </span> <a href='mu.subx.html#L21675'>_string-copy-byte-to</a>/imm32/name <span id="L19516" class="LineNr">19516 </span> 0x11/imm32/alloc-id:fake -<span id="L19517" class="LineNr">19517 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L19518" class="LineNr">19518 </span> 0x11/imm32/alloc-id:fake -<span id="L19519" class="LineNr">19519 </span> <span class="SpecialChar"><a href='mu.subx.html#L22199'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L19520" class="LineNr">19520 </span> 0/imm32/no-outputs -<span id="L19521" class="LineNr">19521 </span> 0/imm32/no-outputs -<span id="L19522" class="LineNr">19522 </span> 0x11/imm32/alloc-id:fake -<span id="L19523" class="LineNr">19523 </span> <a href='mu.subx.html#L22014'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L19524" class="LineNr">19524 </span> 1/imm32/rm32-is-first-inout -<span id="L19525" class="LineNr">19525 </span> 0/imm32/no-r32 -<span id="L19526" class="LineNr">19526 </span> 2/imm32/imm32-is-second-inout -<span id="L19527" class="LineNr">19527 </span> 0/imm32/no-imm8 -<span id="L19528" class="LineNr">19528 </span> 0/imm32/no-disp32 -<span id="L19529" class="LineNr">19529 </span> 0/imm32/no-xm32 -<span id="L19530" class="LineNr">19530 </span> 0/imm32/no-x32 -<span id="L19531" class="LineNr">19531 </span> 0x11/imm32/alloc-id:fake -<span id="L19532" class="LineNr">19532 </span> <a href='mu.subx.html#L19534'>_Primitive-negate-reg</a>/imm32/next -<span id="L19533" class="LineNr">19533 </span><span class="subxH1Comment"># - negate</span> -<span id="L19534" class="LineNr">19534 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19535" class="LineNr">19535 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19536" class="LineNr">19536 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> +<span id="L19517" class="LineNr">19517 </span> <span class="SpecialChar"><a href='mu.subx.html#L22436'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts +<span id="L19518" class="LineNr">19518 </span> 0/imm32/no-outputs +<span id="L19519" class="LineNr">19519 </span> 0/imm32/no-outputs +<span id="L19520" class="LineNr">19520 </span> 0x11/imm32/alloc-id:fake +<span id="L19521" class="LineNr">19521 </span> <a href='mu.subx.html#L22292'>_string_88_copy_byte</a>/imm32/subx-name +<span id="L19522" class="LineNr">19522 </span> 1/imm32/rm32-is-first-inout +<span id="L19523" class="LineNr">19523 </span> 2/imm32/r32-is-second-inout +<span id="L19524" class="LineNr">19524 </span> 0/imm32/no-imm32 +<span id="L19525" class="LineNr">19525 </span> 0/imm32/no-imm8 +<span id="L19526" class="LineNr">19526 </span> 0/imm32/no-disp32 +<span id="L19527" class="LineNr">19527 </span> 0/imm32/no-xm32 +<span id="L19528" class="LineNr">19528 </span> 0/imm32/no-x32 +<span id="L19529" class="LineNr">19529 </span> 0x11/imm32/alloc-id:fake +<span id="L19530" class="LineNr">19530 </span> <a href='mu.subx.html#L19532'>_Primitive-address</a>/imm32/next +<span id="L19531" class="LineNr">19531 </span><span class="subxH1Comment"># - address</span> +<span id="L19532" class="LineNr">19532 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19533" class="LineNr">19533 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19534" class="LineNr">19534 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L19535" class="LineNr">19535 </span> 0x11/imm32/alloc-id:fake +<span id="L19536" class="LineNr">19536 </span> <a href='mu.subx.html#L21560'>_string-address</a>/imm32/name <span id="L19537" class="LineNr">19537 </span> 0x11/imm32/alloc-id:fake -<span id="L19538" class="LineNr">19538 </span> <a href='mu.subx.html#L21562'>_string-negate</a>/imm32/name -<span id="L19539" class="LineNr">19539 </span> 0/imm32/no-inouts -<span id="L19540" class="LineNr">19540 </span> 0/imm32/no-inouts +<span id="L19538" class="LineNr">19538 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19539" class="LineNr">19539 </span> 0x11/imm32/alloc-id:fake +<span id="L19540" class="LineNr">19540 </span> <span class="SpecialChar"><a href='mu.subx.html#L22499'>Single-addr-var-in-some-register</a></span>/imm32/outputs <span id="L19541" class="LineNr">19541 </span> 0x11/imm32/alloc-id:fake -<span id="L19542" class="LineNr">19542 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19543" class="LineNr">19543 </span> 0x11/imm32/alloc-id:fake -<span id="L19544" class="LineNr">19544 </span> <a href='mu.subx.html#L22094'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L19545" class="LineNr">19545 </span> 3/imm32/rm32-is-first-output -<span id="L19546" class="LineNr">19546 </span> 0/imm32/no-r32 -<span id="L19547" class="LineNr">19547 </span> 0/imm32/no-imm32 -<span id="L19548" class="LineNr">19548 </span> 0/imm32/no-imm8 -<span id="L19549" class="LineNr">19549 </span> 0/imm32/no-disp32 -<span id="L19550" class="LineNr">19550 </span> 0/imm32/no-xm32 -<span id="L19551" class="LineNr">19551 </span> 0/imm32/no-x32 -<span id="L19552" class="LineNr">19552 </span> 0x11/imm32/alloc-id:fake -<span id="L19553" class="LineNr">19553 </span> <a href='mu.subx.html#L19554'>_Primitive-negate-mem</a>/imm32/next -<span id="L19554" class="LineNr">19554 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19555" class="LineNr">19555 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19556" class="LineNr">19556 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> -<span id="L19557" class="LineNr">19557 </span> 0x11/imm32/alloc-id:fake -<span id="L19558" class="LineNr">19558 </span> <a href='mu.subx.html#L21562'>_string-negate</a>/imm32/name -<span id="L19559" class="LineNr">19559 </span> 0x11/imm32/alloc-id:fake -<span id="L19560" class="LineNr">19560 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19542" class="LineNr">19542 </span> <a href='mu.subx.html#L22297'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L19543" class="LineNr">19543 </span> 1/imm32/rm32-is-first-inout +<span id="L19544" class="LineNr">19544 </span> 3/imm32/r32-is-first-output +<span id="L19545" class="LineNr">19545 </span> 0/imm32/no-imm32 +<span id="L19546" class="LineNr">19546 </span> 0/imm32/no-imm8 +<span id="L19547" class="LineNr">19547 </span> 0/imm32/no-disp32 +<span id="L19548" class="LineNr">19548 </span> 0/imm32/no-xm32 +<span id="L19549" class="LineNr">19549 </span> 0/imm32/no-x32 +<span id="L19550" class="LineNr">19550 </span> 0x11/imm32/alloc-id:fake +<span id="L19551" class="LineNr">19551 </span> <a href='mu.subx.html#L19553'>_Primitive-compare-reg-with-reg</a>/imm32/next +<span id="L19552" class="LineNr">19552 </span><span class="subxH1Comment"># - compare</span> +<span id="L19553" class="LineNr">19553 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19554" class="LineNr">19554 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19555" class="LineNr">19555 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L19556" class="LineNr">19556 </span> 0x11/imm32/alloc-id:fake +<span id="L19557" class="LineNr">19557 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name +<span id="L19558" class="LineNr">19558 </span> 0x11/imm32/alloc-id:fake +<span id="L19559" class="LineNr">19559 </span> <span class="SpecialChar"><a href='mu.subx.html#L22428'>Two-int-args-in-regs</a></span>/imm32/inouts +<span id="L19560" class="LineNr">19560 </span> 0/imm32/no-outputs <span id="L19561" class="LineNr">19561 </span> 0/imm32/no-outputs -<span id="L19562" class="LineNr">19562 </span> 0/imm32/no-outputs -<span id="L19563" class="LineNr">19563 </span> 0x11/imm32/alloc-id:fake -<span id="L19564" class="LineNr">19564 </span> <a href='mu.subx.html#L22094'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L19565" class="LineNr">19565 </span> 1/imm32/rm32-is-first-inout -<span id="L19566" class="LineNr">19566 </span> 0/imm32/no-r32 -<span id="L19567" class="LineNr">19567 </span> 0/imm32/no-imm32 -<span id="L19568" class="LineNr">19568 </span> 0/imm32/no-imm8 -<span id="L19569" class="LineNr">19569 </span> 0/imm32/no-disp32 -<span id="L19570" class="LineNr">19570 </span> 0/imm32/no-xm32 -<span id="L19571" class="LineNr">19571 </span> 0/imm32/no-x32 -<span id="L19572" class="LineNr">19572 </span> 0x11/imm32/alloc-id:fake -<span id="L19573" class="LineNr">19573 </span> <a href='mu.subx.html#L19575'>_Primitive-multiply-reg-by-reg</a>/imm32/next -<span id="L19574" class="LineNr">19574 </span><span class="subxH1Comment"># - multiply</span> -<span id="L19575" class="LineNr">19575 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19576" class="LineNr">19576 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19577" class="LineNr">19577 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L19562" class="LineNr">19562 </span> 0x11/imm32/alloc-id:fake +<span id="L19563" class="LineNr">19563 </span> <a href='mu.subx.html#L22172'>_string_39_compare-></a>/imm32/subx-name +<span id="L19564" class="LineNr">19564 </span> 1/imm32/rm32-is-first-inout +<span id="L19565" class="LineNr">19565 </span> 2/imm32/r32-is-second-inout +<span id="L19566" class="LineNr">19566 </span> 0/imm32/no-imm32 +<span id="L19567" class="LineNr">19567 </span> 0/imm32/no-imm8 +<span id="L19568" class="LineNr">19568 </span> 0/imm32/no-disp32 +<span id="L19569" class="LineNr">19569 </span> 0/imm32/no-xm32 +<span id="L19570" class="LineNr">19570 </span> 0/imm32/no-x32 +<span id="L19571" class="LineNr">19571 </span> 0x11/imm32/alloc-id:fake +<span id="L19572" class="LineNr">19572 </span> <a href='mu.subx.html#L19573'>_Primitive-compare-mem-with-reg</a>/imm32/next +<span id="L19573" class="LineNr">19573 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19574" class="LineNr">19574 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19575" class="LineNr">19575 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> +<span id="L19576" class="LineNr">19576 </span> 0x11/imm32/alloc-id:fake +<span id="L19577" class="LineNr">19577 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name <span id="L19578" class="LineNr">19578 </span> 0x11/imm32/alloc-id:fake -<span id="L19579" class="LineNr">19579 </span> <a href='mu.subx.html#L21522'>_string-multiply</a>/imm32/name -<span id="L19580" class="LineNr">19580 </span> 0x11/imm32/alloc-id:fake -<span id="L19581" class="LineNr">19581 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L19579" class="LineNr">19579 </span> <span class="SpecialChar"><a href='mu.subx.html#L22421'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L19580" class="LineNr">19580 </span> 0/imm32/no-outputs +<span id="L19581" class="LineNr">19581 </span> 0/imm32/no-outputs <span id="L19582" class="LineNr">19582 </span> 0x11/imm32/alloc-id:fake -<span id="L19583" class="LineNr">19583 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19584" class="LineNr">19584 </span> 0x11/imm32/alloc-id:fake -<span id="L19585" class="LineNr">19585 </span> <a href='mu.subx.html#L21794'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L19586" class="LineNr">19586 </span> 1/imm32/rm32-is-first-inout -<span id="L19587" class="LineNr">19587 </span> 3/imm32/r32-is-first-output -<span id="L19588" class="LineNr">19588 </span> 0/imm32/no-imm32 -<span id="L19589" class="LineNr">19589 </span> 0/imm32/no-imm8 -<span id="L19590" class="LineNr">19590 </span> 0/imm32/no-disp32 -<span id="L19591" class="LineNr">19591 </span> 0/imm32/no-xm32 -<span id="L19592" class="LineNr">19592 </span> 0/imm32/no-x32 -<span id="L19593" class="LineNr">19593 </span> 0x11/imm32/alloc-id:fake -<span id="L19594" class="LineNr">19594 </span> <a href='mu.subx.html#L19595'>_Primitive-multiply-reg-by-mem</a>/imm32/next -<span id="L19595" class="LineNr">19595 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19596" class="LineNr">19596 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19597" class="LineNr">19597 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L19583" class="LineNr">19583 </span> <a href='mu.subx.html#L22172'>_string_39_compare-></a>/imm32/subx-name +<span id="L19584" class="LineNr">19584 </span> 1/imm32/rm32-is-first-inout +<span id="L19585" class="LineNr">19585 </span> 2/imm32/r32-is-second-inout +<span id="L19586" class="LineNr">19586 </span> 0/imm32/no-imm32 +<span id="L19587" class="LineNr">19587 </span> 0/imm32/no-imm8 +<span id="L19588" class="LineNr">19588 </span> 0/imm32/no-disp32 +<span id="L19589" class="LineNr">19589 </span> 0/imm32/no-xm32 +<span id="L19590" class="LineNr">19590 </span> 0/imm32/no-x32 +<span id="L19591" class="LineNr">19591 </span> 0x11/imm32/alloc-id:fake +<span id="L19592" class="LineNr">19592 </span> <a href='mu.subx.html#L19593'>_Primitive-compare-reg-with-mem</a>/imm32/next +<span id="L19593" class="LineNr">19593 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19594" class="LineNr">19594 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19595" class="LineNr">19595 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> +<span id="L19596" class="LineNr">19596 </span> 0x11/imm32/alloc-id:fake +<span id="L19597" class="LineNr">19597 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name <span id="L19598" class="LineNr">19598 </span> 0x11/imm32/alloc-id:fake -<span id="L19599" class="LineNr">19599 </span> <a href='mu.subx.html#L21522'>_string-multiply</a>/imm32/name -<span id="L19600" class="LineNr">19600 </span> 0x11/imm32/alloc-id:fake -<span id="L19601" class="LineNr">19601 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19599" class="LineNr">19599 </span> <span class="SpecialChar"><a href='mu.subx.html#L22443'>Two-args-int-reg-int-stack</a></span>/imm32/inouts +<span id="L19600" class="LineNr">19600 </span> 0/imm32/no-outputs +<span id="L19601" class="LineNr">19601 </span> 0/imm32/no-outputs <span id="L19602" class="LineNr">19602 </span> 0x11/imm32/alloc-id:fake -<span id="L19603" class="LineNr">19603 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19604" class="LineNr">19604 </span> 0x11/imm32/alloc-id:fake -<span id="L19605" class="LineNr">19605 </span> <a href='mu.subx.html#L21794'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L19606" class="LineNr">19606 </span> 1/imm32/rm32-is-first-inout -<span id="L19607" class="LineNr">19607 </span> 3/imm32/r32-is-first-output -<span id="L19608" class="LineNr">19608 </span> 0/imm32/no-imm32 -<span id="L19609" class="LineNr">19609 </span> 0/imm32/no-imm8 -<span id="L19610" class="LineNr">19610 </span> 0/imm32/no-disp32 -<span id="L19611" class="LineNr">19611 </span> 0/imm32/no-xm32 -<span id="L19612" class="LineNr">19612 </span> 0/imm32/no-x32 -<span id="L19613" class="LineNr">19613 </span> 0x11/imm32/alloc-id:fake -<span id="L19614" class="LineNr">19614 </span> <a href='mu.subx.html#L19616'>_Primitive-convert-mem-to-xreg</a>/imm32/next -<span id="L19615" class="LineNr">19615 </span><span class="subxH1Comment"># - convert int to floating point</span> -<span id="L19616" class="LineNr">19616 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19617" class="LineNr">19617 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19618" class="LineNr">19618 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L19619" class="LineNr">19619 </span> 0x11/imm32/alloc-id:fake -<span id="L19620" class="LineNr">19620 </span> <a href='mu.subx.html#L21527'>_string-convert</a>/imm32/name -<span id="L19621" class="LineNr">19621 </span> 0x11/imm32/alloc-id:fake -<span id="L19622" class="LineNr">19622 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L19623" class="LineNr">19623 </span> 0x11/imm32/alloc-id:fake -<span id="L19624" class="LineNr">19624 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19625" class="LineNr">19625 </span> 0x11/imm32/alloc-id:fake -<span id="L19626" class="LineNr">19626 </span> <a href='mu.subx.html#L21799'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L19627" class="LineNr">19627 </span> 1/imm32/rm32-is-first-inout -<span id="L19628" class="LineNr">19628 </span> 0/imm32/no-r32 -<span id="L19629" class="LineNr">19629 </span> 0/imm32/no-imm32 -<span id="L19630" class="LineNr">19630 </span> 0/imm32/no-imm8 -<span id="L19631" class="LineNr">19631 </span> 0/imm32/no-disp32 -<span id="L19632" class="LineNr">19632 </span> 0/imm32/no-xm32 -<span id="L19633" class="LineNr">19633 </span> 3/imm32/x32-is-first-output -<span id="L19634" class="LineNr">19634 </span> 0x11/imm32/alloc-id:fake -<span id="L19635" class="LineNr">19635 </span> <a href='mu.subx.html#L19636'>_Primitive-convert-reg-to-xreg</a>/imm32/next -<span id="L19636" class="LineNr">19636 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19637" class="LineNr">19637 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19638" class="LineNr">19638 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L19639" class="LineNr">19639 </span> 0x11/imm32/alloc-id:fake -<span id="L19640" class="LineNr">19640 </span> <a href='mu.subx.html#L21527'>_string-convert</a>/imm32/name -<span id="L19641" class="LineNr">19641 </span> 0x11/imm32/alloc-id:fake -<span id="L19642" class="LineNr">19642 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L19643" class="LineNr">19643 </span> 0x11/imm32/alloc-id:fake -<span id="L19644" class="LineNr">19644 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19645" class="LineNr">19645 </span> 0x11/imm32/alloc-id:fake -<span id="L19646" class="LineNr">19646 </span> <a href='mu.subx.html#L21799'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L19647" class="LineNr">19647 </span> 1/imm32/rm32-is-first-inout -<span id="L19648" class="LineNr">19648 </span> 0/imm32/no-r32 -<span id="L19649" class="LineNr">19649 </span> 0/imm32/no-imm32 -<span id="L19650" class="LineNr">19650 </span> 0/imm32/no-imm8 -<span id="L19651" class="LineNr">19651 </span> 0/imm32/no-disp32 -<span id="L19652" class="LineNr">19652 </span> 0/imm32/no-xm32 -<span id="L19653" class="LineNr">19653 </span> 3/imm32/x32-is-first-output -<span id="L19654" class="LineNr">19654 </span> 0x11/imm32/alloc-id:fake -<span id="L19655" class="LineNr">19655 </span> <a href='mu.subx.html#L19657'>_Primitive-convert-xmem-to-reg</a>/imm32/next -<span id="L19656" class="LineNr">19656 </span><span class="subxH1Comment"># - convert floating point to int</span> -<span id="L19657" class="LineNr">19657 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19658" class="LineNr">19658 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19659" class="LineNr">19659 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L19660" class="LineNr">19660 </span> 0x11/imm32/alloc-id:fake -<span id="L19661" class="LineNr">19661 </span> <a href='mu.subx.html#L21527'>_string-convert</a>/imm32/name +<span id="L19603" class="LineNr">19603 </span> <a href='mu.subx.html#L22177'>_string_3b_compare<-</a>/imm32/subx-name +<span id="L19604" class="LineNr">19604 </span> 2/imm32/rm32-is-second-inout +<span id="L19605" class="LineNr">19605 </span> 1/imm32/r32-is-first-inout +<span id="L19606" class="LineNr">19606 </span> 0/imm32/no-imm32 +<span id="L19607" class="LineNr">19607 </span> 0/imm32/no-imm8 +<span id="L19608" class="LineNr">19608 </span> 0/imm32/no-disp32 +<span id="L19609" class="LineNr">19609 </span> 0/imm32/no-xm32 +<span id="L19610" class="LineNr">19610 </span> 0/imm32/no-x32 +<span id="L19611" class="LineNr">19611 </span> 0x11/imm32/alloc-id:fake +<span id="L19612" class="LineNr">19612 </span> <a href='mu.subx.html#L19613'>_Primitive-compare-eax-with-literal</a>/imm32/next +<span id="L19613" class="LineNr">19613 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19614" class="LineNr">19614 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19615" class="LineNr">19615 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L19616" class="LineNr">19616 </span> 0x11/imm32/alloc-id:fake +<span id="L19617" class="LineNr">19617 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name +<span id="L19618" class="LineNr">19618 </span> 0x11/imm32/alloc-id:fake +<span id="L19619" class="LineNr">19619 </span> <span class="SpecialChar"><a href='mu.subx.html#L22450'>Two-args-int-eax-int-literal</a></span>/imm32/inouts +<span id="L19620" class="LineNr">19620 </span> 0/imm32/no-outputs +<span id="L19621" class="LineNr">19621 </span> 0/imm32/no-outputs +<span id="L19622" class="LineNr">19622 </span> 0x11/imm32/alloc-id:fake +<span id="L19623" class="LineNr">19623 </span> <a href='mu.subx.html#L22182'>_string_3d_compare_eax_with</a>/imm32/subx-name +<span id="L19624" class="LineNr">19624 </span> 0/imm32/no-rm32 +<span id="L19625" class="LineNr">19625 </span> 0/imm32/no-r32 +<span id="L19626" class="LineNr">19626 </span> 2/imm32/imm32-is-second-inout +<span id="L19627" class="LineNr">19627 </span> 0/imm32/no-imm8 +<span id="L19628" class="LineNr">19628 </span> 0/imm32/no-disp32 +<span id="L19629" class="LineNr">19629 </span> 0/imm32/no-xm32 +<span id="L19630" class="LineNr">19630 </span> 0/imm32/no-x32 +<span id="L19631" class="LineNr">19631 </span> 0x11/imm32/alloc-id:fake +<span id="L19632" class="LineNr">19632 </span> <a href='mu.subx.html#L19633'>_Primitive-compare-reg-with-literal</a>/imm32/next +<span id="L19633" class="LineNr">19633 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19634" class="LineNr">19634 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19635" class="LineNr">19635 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L19636" class="LineNr">19636 </span> 0x11/imm32/alloc-id:fake +<span id="L19637" class="LineNr">19637 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name +<span id="L19638" class="LineNr">19638 </span> 0x11/imm32/alloc-id:fake +<span id="L19639" class="LineNr">19639 </span> <span class="SpecialChar"><a href='mu.subx.html#L22464'>Int-var-in-register-and-literal</a></span>/imm32/inouts +<span id="L19640" class="LineNr">19640 </span> 0/imm32/no-outputs +<span id="L19641" class="LineNr">19641 </span> 0/imm32/no-outputs +<span id="L19642" class="LineNr">19642 </span> 0x11/imm32/alloc-id:fake +<span id="L19643" class="LineNr">19643 </span> <a href='mu.subx.html#L22272'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L19644" class="LineNr">19644 </span> 1/imm32/rm32-is-first-inout +<span id="L19645" class="LineNr">19645 </span> 0/imm32/no-r32 +<span id="L19646" class="LineNr">19646 </span> 2/imm32/imm32-is-second-inout +<span id="L19647" class="LineNr">19647 </span> 0/imm32/no-imm8 +<span id="L19648" class="LineNr">19648 </span> 0/imm32/no-disp32 +<span id="L19649" class="LineNr">19649 </span> 0/imm32/no-xm32 +<span id="L19650" class="LineNr">19650 </span> 0/imm32/no-x32 +<span id="L19651" class="LineNr">19651 </span> 0x11/imm32/alloc-id:fake +<span id="L19652" class="LineNr">19652 </span> <a href='mu.subx.html#L19653'>_Primitive-compare-mem-with-literal</a>/imm32/next +<span id="L19653" class="LineNr">19653 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19654" class="LineNr">19654 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19655" class="LineNr">19655 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> +<span id="L19656" class="LineNr">19656 </span> 0x11/imm32/alloc-id:fake +<span id="L19657" class="LineNr">19657 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name +<span id="L19658" class="LineNr">19658 </span> 0x11/imm32/alloc-id:fake +<span id="L19659" class="LineNr">19659 </span> <span class="SpecialChar"><a href='mu.subx.html#L22457'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L19660" class="LineNr">19660 </span> 0/imm32/no-outputs +<span id="L19661" class="LineNr">19661 </span> 0/imm32/no-outputs <span id="L19662" class="LineNr">19662 </span> 0x11/imm32/alloc-id:fake -<span id="L19663" class="LineNr">19663 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L19664" class="LineNr">19664 </span> 0x11/imm32/alloc-id:fake -<span id="L19665" class="LineNr">19665 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19666" class="LineNr">19666 </span> 0x11/imm32/alloc-id:fake -<span id="L19667" class="LineNr">19667 </span> <a href='mu.subx.html#L21804'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L19668" class="LineNr">19668 </span> 0/imm32/no-rm32 -<span id="L19669" class="LineNr">19669 </span> 3/imm32/r32-is-first-output -<span id="L19670" class="LineNr">19670 </span> 0/imm32/no-imm32 -<span id="L19671" class="LineNr">19671 </span> 0/imm32/no-imm8 -<span id="L19672" class="LineNr">19672 </span> 0/imm32/no-disp32 -<span id="L19673" class="LineNr">19673 </span> 1/imm32/xm32-is-first-inout -<span id="L19674" class="LineNr">19674 </span> 0/imm32/no-x32 -<span id="L19675" class="LineNr">19675 </span> 0x11/imm32/alloc-id:fake -<span id="L19676" class="LineNr">19676 </span> <a href='mu.subx.html#L19677'>_Primitive-convert-xreg-to-reg</a>/imm32/next -<span id="L19677" class="LineNr">19677 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19678" class="LineNr">19678 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19679" class="LineNr">19679 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L19680" class="LineNr">19680 </span> 0x11/imm32/alloc-id:fake -<span id="L19681" class="LineNr">19681 </span> <a href='mu.subx.html#L21527'>_string-convert</a>/imm32/name -<span id="L19682" class="LineNr">19682 </span> 0x11/imm32/alloc-id:fake -<span id="L19683" class="LineNr">19683 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19684" class="LineNr">19684 </span> 0x11/imm32/alloc-id:fake -<span id="L19685" class="LineNr">19685 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L19686" class="LineNr">19686 </span> 0x11/imm32/alloc-id:fake -<span id="L19687" class="LineNr">19687 </span> <a href='mu.subx.html#L21804'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L19688" class="LineNr">19688 </span> 0/imm32/no-rm32 -<span id="L19689" class="LineNr">19689 </span> 3/imm32/r32-is-first-output -<span id="L19690" class="LineNr">19690 </span> 0/imm32/no-imm32 -<span id="L19691" class="LineNr">19691 </span> 0/imm32/no-imm8 -<span id="L19692" class="LineNr">19692 </span> 0/imm32/no-disp32 -<span id="L19693" class="LineNr">19693 </span> 1/imm32/xm32-is-first-inout -<span id="L19694" class="LineNr">19694 </span> 0/imm32/no-x32 -<span id="L19695" class="LineNr">19695 </span> 0x11/imm32/alloc-id:fake -<span id="L19696" class="LineNr">19696 </span> <a href='mu.subx.html#L19697'>_Primitive-copy-xreg-to-xreg</a>/imm32/next -<span id="L19697" class="LineNr">19697 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19698" class="LineNr">19698 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19699" class="LineNr">19699 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> -<span id="L19700" class="LineNr">19700 </span> 0x11/imm32/alloc-id:fake -<span id="L19701" class="LineNr">19701 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name -<span id="L19702" class="LineNr">19702 </span> 0x11/imm32/alloc-id:fake -<span id="L19703" class="LineNr">19703 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19704" class="LineNr">19704 </span> 0x11/imm32/alloc-id:fake -<span id="L19705" class="LineNr">19705 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19706" class="LineNr">19706 </span> 0x11/imm32/alloc-id:fake -<span id="L19707" class="LineNr">19707 </span> <a href='mu.subx.html#L21859'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L19708" class="LineNr">19708 </span> 0/imm32/no-rm32 -<span id="L19709" class="LineNr">19709 </span> 0/imm32/no-r32 -<span id="L19710" class="LineNr">19710 </span> 0/imm32/no-imm32 -<span id="L19711" class="LineNr">19711 </span> 0/imm32/no-imm8 -<span id="L19712" class="LineNr">19712 </span> 0/imm32/no-disp32 -<span id="L19713" class="LineNr">19713 </span> 3/imm32/xm32-is-first-output -<span id="L19714" class="LineNr">19714 </span> 1/imm32/x32-is-first-inout -<span id="L19715" class="LineNr">19715 </span> 0x11/imm32/alloc-id:fake -<span id="L19716" class="LineNr">19716 </span> <a href='mu.subx.html#L19717'>_Primitive-copy-xreg-to-mem</a>/imm32/next -<span id="L19717" class="LineNr">19717 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19718" class="LineNr">19718 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19719" class="LineNr">19719 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> +<span id="L19663" class="LineNr">19663 </span> <a href='mu.subx.html#L22272'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L19664" class="LineNr">19664 </span> 1/imm32/rm32-is-first-inout +<span id="L19665" class="LineNr">19665 </span> 0/imm32/no-r32 +<span id="L19666" class="LineNr">19666 </span> 2/imm32/imm32-is-second-inout +<span id="L19667" class="LineNr">19667 </span> 0/imm32/no-imm8 +<span id="L19668" class="LineNr">19668 </span> 0/imm32/no-disp32 +<span id="L19669" class="LineNr">19669 </span> 0/imm32/no-xm32 +<span id="L19670" class="LineNr">19670 </span> 0/imm32/no-x32 +<span id="L19671" class="LineNr">19671 </span> 0x11/imm32/alloc-id:fake +<span id="L19672" class="LineNr">19672 </span> <a href='mu.subx.html#L19674'>_Primitive-negate-reg</a>/imm32/next +<span id="L19673" class="LineNr">19673 </span><span class="subxH1Comment"># - negate</span> +<span id="L19674" class="LineNr">19674 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19675" class="LineNr">19675 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19676" class="LineNr">19676 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> +<span id="L19677" class="LineNr">19677 </span> 0x11/imm32/alloc-id:fake +<span id="L19678" class="LineNr">19678 </span> <a href='mu.subx.html#L21815'>_string-negate</a>/imm32/name +<span id="L19679" class="LineNr">19679 </span> 0/imm32/no-inouts +<span id="L19680" class="LineNr">19680 </span> 0/imm32/no-inouts +<span id="L19681" class="LineNr">19681 </span> 0x11/imm32/alloc-id:fake +<span id="L19682" class="LineNr">19682 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19683" class="LineNr">19683 </span> 0x11/imm32/alloc-id:fake +<span id="L19684" class="LineNr">19684 </span> <a href='mu.subx.html#L22352'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L19685" class="LineNr">19685 </span> 3/imm32/rm32-is-first-output +<span id="L19686" class="LineNr">19686 </span> 0/imm32/no-r32 +<span id="L19687" class="LineNr">19687 </span> 0/imm32/no-imm32 +<span id="L19688" class="LineNr">19688 </span> 0/imm32/no-imm8 +<span id="L19689" class="LineNr">19689 </span> 0/imm32/no-disp32 +<span id="L19690" class="LineNr">19690 </span> 0/imm32/no-xm32 +<span id="L19691" class="LineNr">19691 </span> 0/imm32/no-x32 +<span id="L19692" class="LineNr">19692 </span> 0x11/imm32/alloc-id:fake +<span id="L19693" class="LineNr">19693 </span> <a href='mu.subx.html#L19694'>_Primitive-negate-mem</a>/imm32/next +<span id="L19694" class="LineNr">19694 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19695" class="LineNr">19695 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19696" class="LineNr">19696 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> +<span id="L19697" class="LineNr">19697 </span> 0x11/imm32/alloc-id:fake +<span id="L19698" class="LineNr">19698 </span> <a href='mu.subx.html#L21815'>_string-negate</a>/imm32/name +<span id="L19699" class="LineNr">19699 </span> 0x11/imm32/alloc-id:fake +<span id="L19700" class="LineNr">19700 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19701" class="LineNr">19701 </span> 0/imm32/no-outputs +<span id="L19702" class="LineNr">19702 </span> 0/imm32/no-outputs +<span id="L19703" class="LineNr">19703 </span> 0x11/imm32/alloc-id:fake +<span id="L19704" class="LineNr">19704 </span> <a href='mu.subx.html#L22352'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L19705" class="LineNr">19705 </span> 1/imm32/rm32-is-first-inout +<span id="L19706" class="LineNr">19706 </span> 0/imm32/no-r32 +<span id="L19707" class="LineNr">19707 </span> 0/imm32/no-imm32 +<span id="L19708" class="LineNr">19708 </span> 0/imm32/no-imm8 +<span id="L19709" class="LineNr">19709 </span> 0/imm32/no-disp32 +<span id="L19710" class="LineNr">19710 </span> 0/imm32/no-xm32 +<span id="L19711" class="LineNr">19711 </span> 0/imm32/no-x32 +<span id="L19712" class="LineNr">19712 </span> 0x11/imm32/alloc-id:fake +<span id="L19713" class="LineNr">19713 </span> <a href='mu.subx.html#L19715'>_Primitive-multiply-reg-by-reg</a>/imm32/next +<span id="L19714" class="LineNr">19714 </span><span class="subxH1Comment"># - multiply</span> +<span id="L19715" class="LineNr">19715 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19716" class="LineNr">19716 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19717" class="LineNr">19717 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L19718" class="LineNr">19718 </span> 0x11/imm32/alloc-id:fake +<span id="L19719" class="LineNr">19719 </span> <a href='mu.subx.html#L21765'>_string-multiply</a>/imm32/name <span id="L19720" class="LineNr">19720 </span> 0x11/imm32/alloc-id:fake -<span id="L19721" class="LineNr">19721 </span> <a href='mu.subx.html#L21422'>_string-copy-to</a>/imm32/name +<span id="L19721" class="LineNr">19721 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L19722" class="LineNr">19722 </span> 0x11/imm32/alloc-id:fake -<span id="L19723" class="LineNr">19723 </span> <span class="SpecialChar"><a href='mu.subx.html#L22227'>Two-args-float-stack-float-reg</a></span>/imm32/inouts -<span id="L19724" class="LineNr">19724 </span> 0/imm32/no-outputs -<span id="L19725" class="LineNr">19725 </span> 0/imm32/no-outputs -<span id="L19726" class="LineNr">19726 </span> 0x11/imm32/alloc-id:fake -<span id="L19727" class="LineNr">19727 </span> <a href='mu.subx.html#L21859'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L19728" class="LineNr">19728 </span> 0/imm32/no-rm32 -<span id="L19729" class="LineNr">19729 </span> 0/imm32/no-r32 -<span id="L19730" class="LineNr">19730 </span> 0/imm32/no-imm32 -<span id="L19731" class="LineNr">19731 </span> 0/imm32/no-imm8 -<span id="L19732" class="LineNr">19732 </span> 0/imm32/no-disp32 -<span id="L19733" class="LineNr">19733 </span> 1/imm32/xm32-is-first-inout -<span id="L19734" class="LineNr">19734 </span> 2/imm32/x32-is-second-inout -<span id="L19735" class="LineNr">19735 </span> 0x11/imm32/alloc-id:fake -<span id="L19736" class="LineNr">19736 </span> <a href='mu.subx.html#L19737'>_Primitive-copy-mem-to-xreg</a>/imm32/next -<span id="L19737" class="LineNr">19737 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19738" class="LineNr">19738 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19739" class="LineNr">19739 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L19723" class="LineNr">19723 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19724" class="LineNr">19724 </span> 0x11/imm32/alloc-id:fake +<span id="L19725" class="LineNr">19725 </span> <a href='mu.subx.html#L22047'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L19726" class="LineNr">19726 </span> 1/imm32/rm32-is-first-inout +<span id="L19727" class="LineNr">19727 </span> 3/imm32/r32-is-first-output +<span id="L19728" class="LineNr">19728 </span> 0/imm32/no-imm32 +<span id="L19729" class="LineNr">19729 </span> 0/imm32/no-imm8 +<span id="L19730" class="LineNr">19730 </span> 0/imm32/no-disp32 +<span id="L19731" class="LineNr">19731 </span> 0/imm32/no-xm32 +<span id="L19732" class="LineNr">19732 </span> 0/imm32/no-x32 +<span id="L19733" class="LineNr">19733 </span> 0x11/imm32/alloc-id:fake +<span id="L19734" class="LineNr">19734 </span> <a href='mu.subx.html#L19735'>_Primitive-multiply-reg-by-mem</a>/imm32/next +<span id="L19735" class="LineNr">19735 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19736" class="LineNr">19736 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19737" class="LineNr">19737 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L19738" class="LineNr">19738 </span> 0x11/imm32/alloc-id:fake +<span id="L19739" class="LineNr">19739 </span> <a href='mu.subx.html#L21765'>_string-multiply</a>/imm32/name <span id="L19740" class="LineNr">19740 </span> 0x11/imm32/alloc-id:fake -<span id="L19741" class="LineNr">19741 </span> <a href='mu.subx.html#L21417'>_string-copy</a>/imm32/name +<span id="L19741" class="LineNr">19741 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L19742" class="LineNr">19742 </span> 0x11/imm32/alloc-id:fake -<span id="L19743" class="LineNr">19743 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19743" class="LineNr">19743 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19744" class="LineNr">19744 </span> 0x11/imm32/alloc-id:fake -<span id="L19745" class="LineNr">19745 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19746" class="LineNr">19746 </span> 0x11/imm32/alloc-id:fake -<span id="L19747" class="LineNr">19747 </span> <a href='mu.subx.html#L21854'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L19748" class="LineNr">19748 </span> 0/imm32/no-rm32 -<span id="L19749" class="LineNr">19749 </span> 0/imm32/no-r32 -<span id="L19750" class="LineNr">19750 </span> 0/imm32/no-imm32 -<span id="L19751" class="LineNr">19751 </span> 0/imm32/no-imm8 -<span id="L19752" class="LineNr">19752 </span> 0/imm32/no-disp32 -<span id="L19753" class="LineNr">19753 </span> 1/imm32/xm32-is-first-inout -<span id="L19754" class="LineNr">19754 </span> 3/imm32/x32-is-first-output -<span id="L19755" class="LineNr">19755 </span> 0x11/imm32/alloc-id:fake -<span id="L19756" class="LineNr">19756 </span> <a href='mu.subx.html#L19758'>_Primitive-add-xreg-to-xreg</a>/imm32/next -<span id="L19757" class="LineNr">19757 </span><span class="subxComment"># add floats</span> -<span id="L19758" class="LineNr">19758 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19759" class="LineNr">19759 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19760" class="LineNr">19760 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> +<span id="L19745" class="LineNr">19745 </span> <a href='mu.subx.html#L22047'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L19746" class="LineNr">19746 </span> 1/imm32/rm32-is-first-inout +<span id="L19747" class="LineNr">19747 </span> 3/imm32/r32-is-first-output +<span id="L19748" class="LineNr">19748 </span> 0/imm32/no-imm32 +<span id="L19749" class="LineNr">19749 </span> 0/imm32/no-imm8 +<span id="L19750" class="LineNr">19750 </span> 0/imm32/no-disp32 +<span id="L19751" class="LineNr">19751 </span> 0/imm32/no-xm32 +<span id="L19752" class="LineNr">19752 </span> 0/imm32/no-x32 +<span id="L19753" class="LineNr">19753 </span> 0x11/imm32/alloc-id:fake +<span id="L19754" class="LineNr">19754 </span> <a href='mu.subx.html#L19756'>_Primitive-convert-mem-to-xreg</a>/imm32/next +<span id="L19755" class="LineNr">19755 </span><span class="subxH1Comment"># - convert int to floating point</span> +<span id="L19756" class="LineNr">19756 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19757" class="LineNr">19757 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19758" class="LineNr">19758 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L19759" class="LineNr">19759 </span> 0x11/imm32/alloc-id:fake +<span id="L19760" class="LineNr">19760 </span> <a href='mu.subx.html#L21770'>_string-convert</a>/imm32/name <span id="L19761" class="LineNr">19761 </span> 0x11/imm32/alloc-id:fake -<span id="L19762" class="LineNr">19762 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name +<span id="L19762" class="LineNr">19762 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L19763" class="LineNr">19763 </span> 0x11/imm32/alloc-id:fake -<span id="L19764" class="LineNr">19764 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L19764" class="LineNr">19764 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L19765" class="LineNr">19765 </span> 0x11/imm32/alloc-id:fake -<span id="L19766" class="LineNr">19766 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19767" class="LineNr">19767 </span> 0x11/imm32/alloc-id:fake -<span id="L19768" class="LineNr">19768 </span> <a href='mu.subx.html#L21809'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L19769" class="LineNr">19769 </span> 0/imm32/no-rm32 -<span id="L19770" class="LineNr">19770 </span> 0/imm32/no-r32 -<span id="L19771" class="LineNr">19771 </span> 0/imm32/no-imm32 -<span id="L19772" class="LineNr">19772 </span> 0/imm32/no-imm8 -<span id="L19773" class="LineNr">19773 </span> 0/imm32/no-disp32 -<span id="L19774" class="LineNr">19774 </span> 1/imm32/xm32-is-first-inout -<span id="L19775" class="LineNr">19775 </span> 3/imm32/x32-is-first-output -<span id="L19776" class="LineNr">19776 </span> 0x11/imm32/alloc-id:fake -<span id="L19777" class="LineNr">19777 </span> <a href='mu.subx.html#L19778'>_Primitive-add-mem-to-xreg</a>/imm32/next -<span id="L19778" class="LineNr">19778 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19779" class="LineNr">19779 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19780" class="LineNr">19780 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> +<span id="L19766" class="LineNr">19766 </span> <a href='mu.subx.html#L22052'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L19767" class="LineNr">19767 </span> 1/imm32/rm32-is-first-inout +<span id="L19768" class="LineNr">19768 </span> 0/imm32/no-r32 +<span id="L19769" class="LineNr">19769 </span> 0/imm32/no-imm32 +<span id="L19770" class="LineNr">19770 </span> 0/imm32/no-imm8 +<span id="L19771" class="LineNr">19771 </span> 0/imm32/no-disp32 +<span id="L19772" class="LineNr">19772 </span> 0/imm32/no-xm32 +<span id="L19773" class="LineNr">19773 </span> 3/imm32/x32-is-first-output +<span id="L19774" class="LineNr">19774 </span> 0x11/imm32/alloc-id:fake +<span id="L19775" class="LineNr">19775 </span> <a href='mu.subx.html#L19776'>_Primitive-convert-reg-to-xreg</a>/imm32/next +<span id="L19776" class="LineNr">19776 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19777" class="LineNr">19777 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19778" class="LineNr">19778 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L19779" class="LineNr">19779 </span> 0x11/imm32/alloc-id:fake +<span id="L19780" class="LineNr">19780 </span> <a href='mu.subx.html#L21770'>_string-convert</a>/imm32/name <span id="L19781" class="LineNr">19781 </span> 0x11/imm32/alloc-id:fake -<span id="L19782" class="LineNr">19782 </span> <a href='mu.subx.html#L21312'>_string-add</a>/imm32/name +<span id="L19782" class="LineNr">19782 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L19783" class="LineNr">19783 </span> 0x11/imm32/alloc-id:fake -<span id="L19784" class="LineNr">19784 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19784" class="LineNr">19784 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L19785" class="LineNr">19785 </span> 0x11/imm32/alloc-id:fake -<span id="L19786" class="LineNr">19786 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19787" class="LineNr">19787 </span> 0x11/imm32/alloc-id:fake -<span id="L19788" class="LineNr">19788 </span> <a href='mu.subx.html#L21809'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L19789" class="LineNr">19789 </span> 0/imm32/no-rm32 -<span id="L19790" class="LineNr">19790 </span> 0/imm32/no-r32 -<span id="L19791" class="LineNr">19791 </span> 0/imm32/no-imm32 -<span id="L19792" class="LineNr">19792 </span> 0/imm32/no-imm8 -<span id="L19793" class="LineNr">19793 </span> 0/imm32/no-disp32 -<span id="L19794" class="LineNr">19794 </span> 1/imm32/xm32-is-first-inout -<span id="L19795" class="LineNr">19795 </span> 3/imm32/x32-is-first-output -<span id="L19796" class="LineNr">19796 </span> 0x11/imm32/alloc-id:fake -<span id="L19797" class="LineNr">19797 </span> <a href='mu.subx.html#L19799'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next -<span id="L19798" class="LineNr">19798 </span><span class="subxComment"># subtract floats</span> -<span id="L19799" class="LineNr">19799 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19800" class="LineNr">19800 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19801" class="LineNr">19801 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L19786" class="LineNr">19786 </span> <a href='mu.subx.html#L22052'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L19787" class="LineNr">19787 </span> 1/imm32/rm32-is-first-inout +<span id="L19788" class="LineNr">19788 </span> 0/imm32/no-r32 +<span id="L19789" class="LineNr">19789 </span> 0/imm32/no-imm32 +<span id="L19790" class="LineNr">19790 </span> 0/imm32/no-imm8 +<span id="L19791" class="LineNr">19791 </span> 0/imm32/no-disp32 +<span id="L19792" class="LineNr">19792 </span> 0/imm32/no-xm32 +<span id="L19793" class="LineNr">19793 </span> 3/imm32/x32-is-first-output +<span id="L19794" class="LineNr">19794 </span> 0x11/imm32/alloc-id:fake +<span id="L19795" class="LineNr">19795 </span> <a href='mu.subx.html#L19797'>_Primitive-convert-xmem-to-reg</a>/imm32/next +<span id="L19796" class="LineNr">19796 </span><span class="subxH1Comment"># - convert floating point to int</span> +<span id="L19797" class="LineNr">19797 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19798" class="LineNr">19798 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19799" class="LineNr">19799 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L19800" class="LineNr">19800 </span> 0x11/imm32/alloc-id:fake +<span id="L19801" class="LineNr">19801 </span> <a href='mu.subx.html#L21770'>_string-convert</a>/imm32/name <span id="L19802" class="LineNr">19802 </span> 0x11/imm32/alloc-id:fake -<span id="L19803" class="LineNr">19803 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name +<span id="L19803" class="LineNr">19803 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L19804" class="LineNr">19804 </span> 0x11/imm32/alloc-id:fake -<span id="L19805" class="LineNr">19805 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L19805" class="LineNr">19805 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19806" class="LineNr">19806 </span> 0x11/imm32/alloc-id:fake -<span id="L19807" class="LineNr">19807 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19808" class="LineNr">19808 </span> 0x11/imm32/alloc-id:fake -<span id="L19809" class="LineNr">19809 </span> <a href='mu.subx.html#L21814'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L19810" class="LineNr">19810 </span> 0/imm32/no-rm32 -<span id="L19811" class="LineNr">19811 </span> 0/imm32/no-r32 -<span id="L19812" class="LineNr">19812 </span> 0/imm32/no-imm32 -<span id="L19813" class="LineNr">19813 </span> 0/imm32/no-imm8 -<span id="L19814" class="LineNr">19814 </span> 0/imm32/no-disp32 -<span id="L19815" class="LineNr">19815 </span> 1/imm32/xm32-is-first-inout -<span id="L19816" class="LineNr">19816 </span> 3/imm32/x32-is-first-output -<span id="L19817" class="LineNr">19817 </span> 0x11/imm32/alloc-id:fake -<span id="L19818" class="LineNr">19818 </span> <a href='mu.subx.html#L19819'>_Primitive-subtract-mem-from-xreg</a>/imm32/next -<span id="L19819" class="LineNr">19819 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19820" class="LineNr">19820 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19821" class="LineNr">19821 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L19807" class="LineNr">19807 </span> <a href='mu.subx.html#L22057'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L19808" class="LineNr">19808 </span> 0/imm32/no-rm32 +<span id="L19809" class="LineNr">19809 </span> 3/imm32/r32-is-first-output +<span id="L19810" class="LineNr">19810 </span> 0/imm32/no-imm32 +<span id="L19811" class="LineNr">19811 </span> 0/imm32/no-imm8 +<span id="L19812" class="LineNr">19812 </span> 0/imm32/no-disp32 +<span id="L19813" class="LineNr">19813 </span> 1/imm32/xm32-is-first-inout +<span id="L19814" class="LineNr">19814 </span> 0/imm32/no-x32 +<span id="L19815" class="LineNr">19815 </span> 0x11/imm32/alloc-id:fake +<span id="L19816" class="LineNr">19816 </span> <a href='mu.subx.html#L19817'>_Primitive-convert-xreg-to-reg</a>/imm32/next +<span id="L19817" class="LineNr">19817 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19818" class="LineNr">19818 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19819" class="LineNr">19819 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L19820" class="LineNr">19820 </span> 0x11/imm32/alloc-id:fake +<span id="L19821" class="LineNr">19821 </span> <a href='mu.subx.html#L21770'>_string-convert</a>/imm32/name <span id="L19822" class="LineNr">19822 </span> 0x11/imm32/alloc-id:fake -<span id="L19823" class="LineNr">19823 </span> <a href='mu.subx.html#L21577'>_string-subtract</a>/imm32/name +<span id="L19823" class="LineNr">19823 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts <span id="L19824" class="LineNr">19824 </span> 0x11/imm32/alloc-id:fake -<span id="L19825" class="LineNr">19825 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19825" class="LineNr">19825 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L19826" class="LineNr">19826 </span> 0x11/imm32/alloc-id:fake -<span id="L19827" class="LineNr">19827 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19828" class="LineNr">19828 </span> 0x11/imm32/alloc-id:fake -<span id="L19829" class="LineNr">19829 </span> <a href='mu.subx.html#L21814'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L19830" class="LineNr">19830 </span> 0/imm32/no-rm32 -<span id="L19831" class="LineNr">19831 </span> 0/imm32/no-r32 -<span id="L19832" class="LineNr">19832 </span> 0/imm32/no-imm32 -<span id="L19833" class="LineNr">19833 </span> 0/imm32/no-imm8 -<span id="L19834" class="LineNr">19834 </span> 0/imm32/no-disp32 -<span id="L19835" class="LineNr">19835 </span> 1/imm32/xm32-is-first-inout -<span id="L19836" class="LineNr">19836 </span> 3/imm32/x32-is-first-output -<span id="L19837" class="LineNr">19837 </span> 0x11/imm32/alloc-id:fake -<span id="L19838" class="LineNr">19838 </span> <a href='mu.subx.html#L19840'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next -<span id="L19839" class="LineNr">19839 </span><span class="subxH1Comment"># - multiply</span> -<span id="L19840" class="LineNr">19840 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19841" class="LineNr">19841 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19842" class="LineNr">19842 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L19843" class="LineNr">19843 </span> 0x11/imm32/alloc-id:fake -<span id="L19844" class="LineNr">19844 </span> <a href='mu.subx.html#L21522'>_string-multiply</a>/imm32/name -<span id="L19845" class="LineNr">19845 </span> 0x11/imm32/alloc-id:fake -<span id="L19846" class="LineNr">19846 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19847" class="LineNr">19847 </span> 0x11/imm32/alloc-id:fake -<span id="L19848" class="LineNr">19848 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19849" class="LineNr">19849 </span> 0x11/imm32/alloc-id:fake -<span id="L19850" class="LineNr">19850 </span> <a href='mu.subx.html#L21819'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L19851" class="LineNr">19851 </span> 0/imm32/no-rm32 -<span id="L19852" class="LineNr">19852 </span> 0/imm32/no-r32 -<span id="L19853" class="LineNr">19853 </span> 0/imm32/no-imm32 -<span id="L19854" class="LineNr">19854 </span> 0/imm32/no-imm8 -<span id="L19855" class="LineNr">19855 </span> 0/imm32/no-disp32 -<span id="L19856" class="LineNr">19856 </span> 1/imm32/xm32-is-first-inout -<span id="L19857" class="LineNr">19857 </span> 3/imm32/x32-is-first-output -<span id="L19858" class="LineNr">19858 </span> 0x11/imm32/alloc-id:fake -<span id="L19859" class="LineNr">19859 </span> <a href='mu.subx.html#L19860'>_Primitive-multiply-xreg-by-mem</a>/imm32/next -<span id="L19860" class="LineNr">19860 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19861" class="LineNr">19861 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19862" class="LineNr">19862 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L19863" class="LineNr">19863 </span> 0x11/imm32/alloc-id:fake -<span id="L19864" class="LineNr">19864 </span> <a href='mu.subx.html#L21522'>_string-multiply</a>/imm32/name -<span id="L19865" class="LineNr">19865 </span> 0x11/imm32/alloc-id:fake -<span id="L19866" class="LineNr">19866 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L19867" class="LineNr">19867 </span> 0x11/imm32/alloc-id:fake -<span id="L19868" class="LineNr">19868 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19869" class="LineNr">19869 </span> 0x11/imm32/alloc-id:fake -<span id="L19870" class="LineNr">19870 </span> <a href='mu.subx.html#L21819'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L19871" class="LineNr">19871 </span> 0/imm32/no-rm32 -<span id="L19872" class="LineNr">19872 </span> 0/imm32/no-r32 -<span id="L19873" class="LineNr">19873 </span> 0/imm32/no-imm32 -<span id="L19874" class="LineNr">19874 </span> 0/imm32/no-imm8 -<span id="L19875" class="LineNr">19875 </span> 0/imm32/no-disp32 -<span id="L19876" class="LineNr">19876 </span> 1/imm32/xm32-is-first-inout -<span id="L19877" class="LineNr">19877 </span> 3/imm32/x32-is-first-output -<span id="L19878" class="LineNr">19878 </span> 0x11/imm32/alloc-id:fake -<span id="L19879" class="LineNr">19879 </span> <a href='mu.subx.html#L19881'>_Primitive-divide-xreg-by-xreg</a>/imm32/next -<span id="L19880" class="LineNr">19880 </span><span class="subxH1Comment"># - divide</span> -<span id="L19881" class="LineNr">19881 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19882" class="LineNr">19882 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19883" class="LineNr">19883 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L19884" class="LineNr">19884 </span> 0x11/imm32/alloc-id:fake -<span id="L19885" class="LineNr">19885 </span> <a href='mu.subx.html#L21532'>_string-divide</a>/imm32/name -<span id="L19886" class="LineNr">19886 </span> 0x11/imm32/alloc-id:fake -<span id="L19887" class="LineNr">19887 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19888" class="LineNr">19888 </span> 0x11/imm32/alloc-id:fake -<span id="L19889" class="LineNr">19889 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19890" class="LineNr">19890 </span> 0x11/imm32/alloc-id:fake -<span id="L19891" class="LineNr">19891 </span> <a href='mu.subx.html#L21824'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L19892" class="LineNr">19892 </span> 0/imm32/no-rm32 -<span id="L19893" class="LineNr">19893 </span> 0/imm32/no-r32 -<span id="L19894" class="LineNr">19894 </span> 0/imm32/no-imm32 -<span id="L19895" class="LineNr">19895 </span> 0/imm32/no-imm8 -<span id="L19896" class="LineNr">19896 </span> 0/imm32/no-disp32 -<span id="L19897" class="LineNr">19897 </span> 1/imm32/xm32-is-first-inout -<span id="L19898" class="LineNr">19898 </span> 3/imm32/x32-is-first-output -<span id="L19899" class="LineNr">19899 </span> 0x11/imm32/alloc-id:fake -<span id="L19900" class="LineNr">19900 </span> <a href='mu.subx.html#L19901'>_Primitive-divide-xreg-by-mem</a>/imm32/next -<span id="L19901" class="LineNr">19901 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19902" class="LineNr">19902 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19903" class="LineNr">19903 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L19904" class="LineNr">19904 </span> 0x11/imm32/alloc-id:fake -<span id="L19905" class="LineNr">19905 </span> <a href='mu.subx.html#L21532'>_string-divide</a>/imm32/name -<span id="L19906" class="LineNr">19906 </span> 0x11/imm32/alloc-id:fake -<span id="L19907" class="LineNr">19907 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L19908" class="LineNr">19908 </span> 0x11/imm32/alloc-id:fake -<span id="L19909" class="LineNr">19909 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19910" class="LineNr">19910 </span> 0x11/imm32/alloc-id:fake -<span id="L19911" class="LineNr">19911 </span> <a href='mu.subx.html#L21824'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L19912" class="LineNr">19912 </span> 0/imm32/no-rm32 -<span id="L19913" class="LineNr">19913 </span> 0/imm32/no-r32 -<span id="L19914" class="LineNr">19914 </span> 0/imm32/no-imm32 -<span id="L19915" class="LineNr">19915 </span> 0/imm32/no-imm8 -<span id="L19916" class="LineNr">19916 </span> 0/imm32/no-disp32 -<span id="L19917" class="LineNr">19917 </span> 1/imm32/xm32-is-first-inout -<span id="L19918" class="LineNr">19918 </span> 3/imm32/x32-is-first-output -<span id="L19919" class="LineNr">19919 </span> 0x11/imm32/alloc-id:fake -<span id="L19920" class="LineNr">19920 </span> <a href='mu.subx.html#L19922'>_Primitive-max-xreg-with-xreg</a>/imm32/next -<span id="L19921" class="LineNr">19921 </span><span class="subxH1Comment"># - maximum</span> -<span id="L19922" class="LineNr">19922 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19923" class="LineNr">19923 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19924" class="LineNr">19924 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L19925" class="LineNr">19925 </span> 0x11/imm32/alloc-id:fake -<span id="L19926" class="LineNr">19926 </span> <a href='mu.subx.html#L21537'>_string-max</a>/imm32/name -<span id="L19927" class="LineNr">19927 </span> 0x11/imm32/alloc-id:fake -<span id="L19928" class="LineNr">19928 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19929" class="LineNr">19929 </span> 0x11/imm32/alloc-id:fake -<span id="L19930" class="LineNr">19930 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19931" class="LineNr">19931 </span> 0x11/imm32/alloc-id:fake -<span id="L19932" class="LineNr">19932 </span> <a href='mu.subx.html#L21849'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L19933" class="LineNr">19933 </span> 0/imm32/no-rm32 -<span id="L19934" class="LineNr">19934 </span> 0/imm32/no-r32 -<span id="L19935" class="LineNr">19935 </span> 0/imm32/no-imm32 -<span id="L19936" class="LineNr">19936 </span> 0/imm32/no-imm8 -<span id="L19937" class="LineNr">19937 </span> 0/imm32/no-disp32 -<span id="L19938" class="LineNr">19938 </span> 1/imm32/xm32-is-first-inout -<span id="L19939" class="LineNr">19939 </span> 3/imm32/x32-is-first-output -<span id="L19940" class="LineNr">19940 </span> 0x11/imm32/alloc-id:fake -<span id="L19941" class="LineNr">19941 </span> <a href='mu.subx.html#L19942'>_Primitive-max-xreg-with-mem</a>/imm32/next -<span id="L19942" class="LineNr">19942 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19943" class="LineNr">19943 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19944" class="LineNr">19944 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L19945" class="LineNr">19945 </span> 0x11/imm32/alloc-id:fake -<span id="L19946" class="LineNr">19946 </span> <a href='mu.subx.html#L21537'>_string-max</a>/imm32/name -<span id="L19947" class="LineNr">19947 </span> 0x11/imm32/alloc-id:fake -<span id="L19948" class="LineNr">19948 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L19949" class="LineNr">19949 </span> 0x11/imm32/alloc-id:fake -<span id="L19950" class="LineNr">19950 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19951" class="LineNr">19951 </span> 0x11/imm32/alloc-id:fake -<span id="L19952" class="LineNr">19952 </span> <a href='mu.subx.html#L21849'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L19953" class="LineNr">19953 </span> 0/imm32/no-rm32 -<span id="L19954" class="LineNr">19954 </span> 0/imm32/no-r32 -<span id="L19955" class="LineNr">19955 </span> 0/imm32/no-imm32 -<span id="L19956" class="LineNr">19956 </span> 0/imm32/no-imm8 -<span id="L19957" class="LineNr">19957 </span> 0/imm32/no-disp32 -<span id="L19958" class="LineNr">19958 </span> 1/imm32/xm32-is-first-inout -<span id="L19959" class="LineNr">19959 </span> 3/imm32/x32-is-first-output -<span id="L19960" class="LineNr">19960 </span> 0x11/imm32/alloc-id:fake -<span id="L19961" class="LineNr">19961 </span> <a href='mu.subx.html#L19963'>_Primitive-min-xreg-with-xreg</a>/imm32/next -<span id="L19962" class="LineNr">19962 </span><span class="subxH1Comment"># - minimum</span> -<span id="L19963" class="LineNr">19963 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19964" class="LineNr">19964 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19965" class="LineNr">19965 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L19827" class="LineNr">19827 </span> <a href='mu.subx.html#L22057'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L19828" class="LineNr">19828 </span> 0/imm32/no-rm32 +<span id="L19829" class="LineNr">19829 </span> 3/imm32/r32-is-first-output +<span id="L19830" class="LineNr">19830 </span> 0/imm32/no-imm32 +<span id="L19831" class="LineNr">19831 </span> 0/imm32/no-imm8 +<span id="L19832" class="LineNr">19832 </span> 0/imm32/no-disp32 +<span id="L19833" class="LineNr">19833 </span> 1/imm32/xm32-is-first-inout +<span id="L19834" class="LineNr">19834 </span> 0/imm32/no-x32 +<span id="L19835" class="LineNr">19835 </span> 0x11/imm32/alloc-id:fake +<span id="L19836" class="LineNr">19836 </span> <a href='mu.subx.html#L19837'>_Primitive-truncate-xmem-to-reg</a>/imm32/next +<span id="L19837" class="LineNr">19837 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19838" class="LineNr">19838 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19839" class="LineNr">19839 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L19840" class="LineNr">19840 </span> 0x11/imm32/alloc-id:fake +<span id="L19841" class="LineNr">19841 </span> <a href='mu.subx.html#L21775'>_string-truncate</a>/imm32/name +<span id="L19842" class="LineNr">19842 </span> 0x11/imm32/alloc-id:fake +<span id="L19843" class="LineNr">19843 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19844" class="LineNr">19844 </span> 0x11/imm32/alloc-id:fake +<span id="L19845" class="LineNr">19845 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19846" class="LineNr">19846 </span> 0x11/imm32/alloc-id:fake +<span id="L19847" class="LineNr">19847 </span> <a href='mu.subx.html#L22062'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L19848" class="LineNr">19848 </span> 0/imm32/no-rm32 +<span id="L19849" class="LineNr">19849 </span> 3/imm32/r32-is-first-output +<span id="L19850" class="LineNr">19850 </span> 0/imm32/no-imm32 +<span id="L19851" class="LineNr">19851 </span> 0/imm32/no-imm8 +<span id="L19852" class="LineNr">19852 </span> 0/imm32/no-disp32 +<span id="L19853" class="LineNr">19853 </span> 1/imm32/xm32-is-first-inout +<span id="L19854" class="LineNr">19854 </span> 0/imm32/no-x32 +<span id="L19855" class="LineNr">19855 </span> 0x11/imm32/alloc-id:fake +<span id="L19856" class="LineNr">19856 </span> <a href='mu.subx.html#L19857'>_Primitive-truncate-xreg-to-reg</a>/imm32/next +<span id="L19857" class="LineNr">19857 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19858" class="LineNr">19858 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19859" class="LineNr">19859 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L19860" class="LineNr">19860 </span> 0x11/imm32/alloc-id:fake +<span id="L19861" class="LineNr">19861 </span> <a href='mu.subx.html#L21775'>_string-truncate</a>/imm32/name +<span id="L19862" class="LineNr">19862 </span> 0x11/imm32/alloc-id:fake +<span id="L19863" class="LineNr">19863 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L19864" class="LineNr">19864 </span> 0x11/imm32/alloc-id:fake +<span id="L19865" class="LineNr">19865 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19866" class="LineNr">19866 </span> 0x11/imm32/alloc-id:fake +<span id="L19867" class="LineNr">19867 </span> <a href='mu.subx.html#L22062'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L19868" class="LineNr">19868 </span> 0/imm32/no-rm32 +<span id="L19869" class="LineNr">19869 </span> 3/imm32/r32-is-first-output +<span id="L19870" class="LineNr">19870 </span> 0/imm32/no-imm32 +<span id="L19871" class="LineNr">19871 </span> 0/imm32/no-imm8 +<span id="L19872" class="LineNr">19872 </span> 0/imm32/no-disp32 +<span id="L19873" class="LineNr">19873 </span> 1/imm32/xm32-is-first-inout +<span id="L19874" class="LineNr">19874 </span> 0/imm32/no-x32 +<span id="L19875" class="LineNr">19875 </span> 0x11/imm32/alloc-id:fake +<span id="L19876" class="LineNr">19876 </span> <a href='mu.subx.html#L19878'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next +<span id="L19877" class="LineNr">19877 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> +<span id="L19878" class="LineNr">19878 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19879" class="LineNr">19879 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19880" class="LineNr">19880 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> +<span id="L19881" class="LineNr">19881 </span> 0x11/imm32/alloc-id:fake +<span id="L19882" class="LineNr">19882 </span> <a href='mu.subx.html#L21780'>_string-reinterpret</a>/imm32/name +<span id="L19883" class="LineNr">19883 </span> 0x11/imm32/alloc-id:fake +<span id="L19884" class="LineNr">19884 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19885" class="LineNr">19885 </span> 0x11/imm32/alloc-id:fake +<span id="L19886" class="LineNr">19886 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L19887" class="LineNr">19887 </span> 0x11/imm32/alloc-id:fake +<span id="L19888" class="LineNr">19888 </span> <a href='mu.subx.html#L22282'>_string_8b_-></a>/imm32/subx-name +<span id="L19889" class="LineNr">19889 </span> 0/imm32/no-rm32 +<span id="L19890" class="LineNr">19890 </span> 3/imm32/r32-is-first-output +<span id="L19891" class="LineNr">19891 </span> 0/imm32/no-imm32 +<span id="L19892" class="LineNr">19892 </span> 0/imm32/no-imm8 +<span id="L19893" class="LineNr">19893 </span> 0/imm32/no-disp32 +<span id="L19894" class="LineNr">19894 </span> 1/imm32/xm32-is-first-inout +<span id="L19895" class="LineNr">19895 </span> 0/imm32/no-x32 +<span id="L19896" class="LineNr">19896 </span> 0x11/imm32/alloc-id:fake +<span id="L19897" class="LineNr">19897 </span> <a href='mu.subx.html#L19898'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next +<span id="L19898" class="LineNr">19898 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19899" class="LineNr">19899 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19900" class="LineNr">19900 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L19901" class="LineNr">19901 </span> 0x11/imm32/alloc-id:fake +<span id="L19902" class="LineNr">19902 </span> <a href='mu.subx.html#L21780'>_string-reinterpret</a>/imm32/name +<span id="L19903" class="LineNr">19903 </span> 0x11/imm32/alloc-id:fake +<span id="L19904" class="LineNr">19904 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L19905" class="LineNr">19905 </span> 0x11/imm32/alloc-id:fake +<span id="L19906" class="LineNr">19906 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L19907" class="LineNr">19907 </span> 0x11/imm32/alloc-id:fake +<span id="L19908" class="LineNr">19908 </span> <a href='mu.subx.html#L22112'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L19909" class="LineNr">19909 </span> 1/imm32/rm32-is-first-inout +<span id="L19910" class="LineNr">19910 </span> 0/imm32/no-r32 +<span id="L19911" class="LineNr">19911 </span> 0/imm32/no-imm32 +<span id="L19912" class="LineNr">19912 </span> 0/imm32/no-imm8 +<span id="L19913" class="LineNr">19913 </span> 0/imm32/no-disp32 +<span id="L19914" class="LineNr">19914 </span> 0/imm32/no-xm32 +<span id="L19915" class="LineNr">19915 </span> 3/imm32/x32-is-first-output +<span id="L19916" class="LineNr">19916 </span> 0x11/imm32/alloc-id:fake +<span id="L19917" class="LineNr">19917 </span> <a href='mu.subx.html#L19919'>_Primitive-copy-xreg-to-xreg</a>/imm32/next +<span id="L19918" class="LineNr">19918 </span><span class="subxH1Comment"># - floating-point copy</span> +<span id="L19919" class="LineNr">19919 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19920" class="LineNr">19920 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19921" class="LineNr">19921 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> +<span id="L19922" class="LineNr">19922 </span> 0x11/imm32/alloc-id:fake +<span id="L19923" class="LineNr">19923 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19924" class="LineNr">19924 </span> 0x11/imm32/alloc-id:fake +<span id="L19925" class="LineNr">19925 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L19926" class="LineNr">19926 </span> 0x11/imm32/alloc-id:fake +<span id="L19927" class="LineNr">19927 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L19928" class="LineNr">19928 </span> 0x11/imm32/alloc-id:fake +<span id="L19929" class="LineNr">19929 </span> <a href='mu.subx.html#L22117'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L19930" class="LineNr">19930 </span> 0/imm32/no-rm32 +<span id="L19931" class="LineNr">19931 </span> 0/imm32/no-r32 +<span id="L19932" class="LineNr">19932 </span> 0/imm32/no-imm32 +<span id="L19933" class="LineNr">19933 </span> 0/imm32/no-imm8 +<span id="L19934" class="LineNr">19934 </span> 0/imm32/no-disp32 +<span id="L19935" class="LineNr">19935 </span> 3/imm32/xm32-is-first-output +<span id="L19936" class="LineNr">19936 </span> 1/imm32/x32-is-first-inout +<span id="L19937" class="LineNr">19937 </span> 0x11/imm32/alloc-id:fake +<span id="L19938" class="LineNr">19938 </span> <a href='mu.subx.html#L19939'>_Primitive-copy-xreg-to-mem</a>/imm32/next +<span id="L19939" class="LineNr">19939 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19940" class="LineNr">19940 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19941" class="LineNr">19941 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> +<span id="L19942" class="LineNr">19942 </span> 0x11/imm32/alloc-id:fake +<span id="L19943" class="LineNr">19943 </span> <a href='mu.subx.html#L21665'>_string-copy-to</a>/imm32/name +<span id="L19944" class="LineNr">19944 </span> 0x11/imm32/alloc-id:fake +<span id="L19945" class="LineNr">19945 </span> <span class="SpecialChar"><a href='mu.subx.html#L22485'>Two-args-float-stack-float-reg</a></span>/imm32/inouts +<span id="L19946" class="LineNr">19946 </span> 0/imm32/no-outputs +<span id="L19947" class="LineNr">19947 </span> 0/imm32/no-outputs +<span id="L19948" class="LineNr">19948 </span> 0x11/imm32/alloc-id:fake +<span id="L19949" class="LineNr">19949 </span> <a href='mu.subx.html#L22117'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L19950" class="LineNr">19950 </span> 0/imm32/no-rm32 +<span id="L19951" class="LineNr">19951 </span> 0/imm32/no-r32 +<span id="L19952" class="LineNr">19952 </span> 0/imm32/no-imm32 +<span id="L19953" class="LineNr">19953 </span> 0/imm32/no-imm8 +<span id="L19954" class="LineNr">19954 </span> 0/imm32/no-disp32 +<span id="L19955" class="LineNr">19955 </span> 1/imm32/xm32-is-first-inout +<span id="L19956" class="LineNr">19956 </span> 2/imm32/x32-is-second-inout +<span id="L19957" class="LineNr">19957 </span> 0x11/imm32/alloc-id:fake +<span id="L19958" class="LineNr">19958 </span> <a href='mu.subx.html#L19959'>_Primitive-copy-mem-to-xreg</a>/imm32/next +<span id="L19959" class="LineNr">19959 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19960" class="LineNr">19960 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19961" class="LineNr">19961 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L19962" class="LineNr">19962 </span> 0x11/imm32/alloc-id:fake +<span id="L19963" class="LineNr">19963 </span> <a href='mu.subx.html#L21660'>_string-copy</a>/imm32/name +<span id="L19964" class="LineNr">19964 </span> 0x11/imm32/alloc-id:fake +<span id="L19965" class="LineNr">19965 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L19966" class="LineNr">19966 </span> 0x11/imm32/alloc-id:fake -<span id="L19967" class="LineNr">19967 </span> <a href='mu.subx.html#L21542'>_string-min</a>/imm32/name +<span id="L19967" class="LineNr">19967 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L19968" class="LineNr">19968 </span> 0x11/imm32/alloc-id:fake -<span id="L19969" class="LineNr">19969 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L19970" class="LineNr">19970 </span> 0x11/imm32/alloc-id:fake -<span id="L19971" class="LineNr">19971 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19972" class="LineNr">19972 </span> 0x11/imm32/alloc-id:fake -<span id="L19973" class="LineNr">19973 </span> <a href='mu.subx.html#L21844'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L19974" class="LineNr">19974 </span> 0/imm32/no-rm32 -<span id="L19975" class="LineNr">19975 </span> 0/imm32/no-r32 -<span id="L19976" class="LineNr">19976 </span> 0/imm32/no-imm32 -<span id="L19977" class="LineNr">19977 </span> 0/imm32/no-imm8 -<span id="L19978" class="LineNr">19978 </span> 0/imm32/no-disp32 -<span id="L19979" class="LineNr">19979 </span> 1/imm32/xm32-is-first-inout -<span id="L19980" class="LineNr">19980 </span> 3/imm32/x32-is-first-output -<span id="L19981" class="LineNr">19981 </span> 0x11/imm32/alloc-id:fake -<span id="L19982" class="LineNr">19982 </span> <a href='mu.subx.html#L19983'>_Primitive-min-xreg-with-mem</a>/imm32/next -<span id="L19983" class="LineNr">19983 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L19984" class="LineNr">19984 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19985" class="LineNr">19985 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L19986" class="LineNr">19986 </span> 0x11/imm32/alloc-id:fake -<span id="L19987" class="LineNr">19987 </span> <a href='mu.subx.html#L21542'>_string-min</a>/imm32/name -<span id="L19988" class="LineNr">19988 </span> 0x11/imm32/alloc-id:fake -<span id="L19989" class="LineNr">19989 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L19990" class="LineNr">19990 </span> 0x11/imm32/alloc-id:fake -<span id="L19991" class="LineNr">19991 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L19992" class="LineNr">19992 </span> 0x11/imm32/alloc-id:fake -<span id="L19993" class="LineNr">19993 </span> <a href='mu.subx.html#L21844'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L19994" class="LineNr">19994 </span> 0/imm32/no-rm32 -<span id="L19995" class="LineNr">19995 </span> 0/imm32/no-r32 -<span id="L19996" class="LineNr">19996 </span> 0/imm32/no-imm32 -<span id="L19997" class="LineNr">19997 </span> 0/imm32/no-imm8 -<span id="L19998" class="LineNr">19998 </span> 0/imm32/no-disp32 -<span id="L19999" class="LineNr">19999 </span> 1/imm32/xm32-is-first-inout -<span id="L20000" class="LineNr">20000 </span> 3/imm32/x32-is-first-output -<span id="L20001" class="LineNr">20001 </span> 0x11/imm32/alloc-id:fake -<span id="L20002" class="LineNr">20002 </span> <a href='mu.subx.html#L20004'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next -<span id="L20003" class="LineNr">20003 </span><span class="subxH1Comment"># - reciprocal</span> -<span id="L20004" class="LineNr">20004 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20005" class="LineNr">20005 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20006" class="LineNr">20006 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L20007" class="LineNr">20007 </span> 0x11/imm32/alloc-id:fake -<span id="L20008" class="LineNr">20008 </span> <a href='mu.subx.html#L21547'>_string-reciprocal</a>/imm32/name -<span id="L20009" class="LineNr">20009 </span> 0x11/imm32/alloc-id:fake -<span id="L20010" class="LineNr">20010 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L20011" class="LineNr">20011 </span> 0x11/imm32/alloc-id:fake -<span id="L20012" class="LineNr">20012 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20013" class="LineNr">20013 </span> 0x11/imm32/alloc-id:fake -<span id="L20014" class="LineNr">20014 </span> <a href='mu.subx.html#L21829'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L20015" class="LineNr">20015 </span> 0/imm32/no-rm32 -<span id="L20016" class="LineNr">20016 </span> 0/imm32/no-r32 -<span id="L20017" class="LineNr">20017 </span> 0/imm32/no-imm32 -<span id="L20018" class="LineNr">20018 </span> 0/imm32/no-imm8 -<span id="L20019" class="LineNr">20019 </span> 0/imm32/no-disp32 -<span id="L20020" class="LineNr">20020 </span> 1/imm32/xm32-is-first-inout -<span id="L20021" class="LineNr">20021 </span> 3/imm32/x32-is-first-output -<span id="L20022" class="LineNr">20022 </span> 0x11/imm32/alloc-id:fake -<span id="L20023" class="LineNr">20023 </span> <a href='mu.subx.html#L20024'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next -<span id="L20024" class="LineNr">20024 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20025" class="LineNr">20025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20026" class="LineNr">20026 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L20027" class="LineNr">20027 </span> 0x11/imm32/alloc-id:fake -<span id="L20028" class="LineNr">20028 </span> <a href='mu.subx.html#L21547'>_string-reciprocal</a>/imm32/name -<span id="L20029" class="LineNr">20029 </span> 0x11/imm32/alloc-id:fake -<span id="L20030" class="LineNr">20030 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L20031" class="LineNr">20031 </span> 0x11/imm32/alloc-id:fake -<span id="L20032" class="LineNr">20032 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20033" class="LineNr">20033 </span> 0x11/imm32/alloc-id:fake -<span id="L20034" class="LineNr">20034 </span> <a href='mu.subx.html#L21829'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L20035" class="LineNr">20035 </span> 0/imm32/no-rm32 -<span id="L20036" class="LineNr">20036 </span> 0/imm32/no-r32 -<span id="L20037" class="LineNr">20037 </span> 0/imm32/no-imm32 -<span id="L20038" class="LineNr">20038 </span> 0/imm32/no-imm8 -<span id="L20039" class="LineNr">20039 </span> 0/imm32/no-disp32 -<span id="L20040" class="LineNr">20040 </span> 1/imm32/xm32-is-first-inout -<span id="L20041" class="LineNr">20041 </span> 3/imm32/x32-is-first-output -<span id="L20042" class="LineNr">20042 </span> 0x11/imm32/alloc-id:fake -<span id="L20043" class="LineNr">20043 </span> <a href='mu.subx.html#L20045'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next -<span id="L20044" class="LineNr">20044 </span><span class="subxH1Comment"># - square root</span> -<span id="L20045" class="LineNr">20045 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20046" class="LineNr">20046 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20047" class="LineNr">20047 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L20048" class="LineNr">20048 </span> 0x11/imm32/alloc-id:fake -<span id="L20049" class="LineNr">20049 </span> <a href='mu.subx.html#L21552'>_string-square-root</a>/imm32/name -<span id="L20050" class="LineNr">20050 </span> 0x11/imm32/alloc-id:fake -<span id="L20051" class="LineNr">20051 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L20052" class="LineNr">20052 </span> 0x11/imm32/alloc-id:fake -<span id="L20053" class="LineNr">20053 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20054" class="LineNr">20054 </span> 0x11/imm32/alloc-id:fake -<span id="L20055" class="LineNr">20055 </span> <a href='mu.subx.html#L21834'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L20056" class="LineNr">20056 </span> 0/imm32/no-rm32 -<span id="L20057" class="LineNr">20057 </span> 0/imm32/no-r32 -<span id="L20058" class="LineNr">20058 </span> 0/imm32/no-imm32 -<span id="L20059" class="LineNr">20059 </span> 0/imm32/no-imm8 -<span id="L20060" class="LineNr">20060 </span> 0/imm32/no-disp32 -<span id="L20061" class="LineNr">20061 </span> 1/imm32/xm32-is-first-inout -<span id="L20062" class="LineNr">20062 </span> 3/imm32/x32-is-first-output -<span id="L20063" class="LineNr">20063 </span> 0x11/imm32/alloc-id:fake -<span id="L20064" class="LineNr">20064 </span> <a href='mu.subx.html#L20065'>_Primitive-square-root-mem-to-xreg</a>/imm32/next -<span id="L20065" class="LineNr">20065 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20066" class="LineNr">20066 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20067" class="LineNr">20067 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L20068" class="LineNr">20068 </span> 0x11/imm32/alloc-id:fake -<span id="L20069" class="LineNr">20069 </span> <a href='mu.subx.html#L21552'>_string-square-root</a>/imm32/name -<span id="L20070" class="LineNr">20070 </span> 0x11/imm32/alloc-id:fake -<span id="L20071" class="LineNr">20071 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L20072" class="LineNr">20072 </span> 0x11/imm32/alloc-id:fake -<span id="L20073" class="LineNr">20073 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20074" class="LineNr">20074 </span> 0x11/imm32/alloc-id:fake -<span id="L20075" class="LineNr">20075 </span> <a href='mu.subx.html#L21834'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L20076" class="LineNr">20076 </span> 0/imm32/no-rm32 -<span id="L20077" class="LineNr">20077 </span> 0/imm32/no-r32 -<span id="L20078" class="LineNr">20078 </span> 0/imm32/no-imm32 -<span id="L20079" class="LineNr">20079 </span> 0/imm32/no-imm8 -<span id="L20080" class="LineNr">20080 </span> 0/imm32/no-disp32 -<span id="L20081" class="LineNr">20081 </span> 1/imm32/xm32-is-first-inout -<span id="L20082" class="LineNr">20082 </span> 3/imm32/x32-is-first-output -<span id="L20083" class="LineNr">20083 </span> 0x11/imm32/alloc-id:fake -<span id="L20084" class="LineNr">20084 </span> <a href='mu.subx.html#L20086'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next -<span id="L20085" class="LineNr">20085 </span><span class="subxH1Comment"># - inverse square root 1/sqrt(x)</span> -<span id="L20086" class="LineNr">20086 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20087" class="LineNr">20087 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20088" class="LineNr">20088 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L20089" class="LineNr">20089 </span> 0x11/imm32/alloc-id:fake -<span id="L20090" class="LineNr">20090 </span> <a href='mu.subx.html#L21557'>_string-inverse-square-root</a>/imm32/name -<span id="L20091" class="LineNr">20091 </span> 0x11/imm32/alloc-id:fake -<span id="L20092" class="LineNr">20092 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L20093" class="LineNr">20093 </span> 0x11/imm32/alloc-id:fake -<span id="L20094" class="LineNr">20094 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20095" class="LineNr">20095 </span> 0x11/imm32/alloc-id:fake -<span id="L20096" class="LineNr">20096 </span> <a href='mu.subx.html#L21839'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L20097" class="LineNr">20097 </span> 0/imm32/no-rm32 -<span id="L20098" class="LineNr">20098 </span> 0/imm32/no-r32 -<span id="L20099" class="LineNr">20099 </span> 0/imm32/no-imm32 -<span id="L20100" class="LineNr">20100 </span> 0/imm32/no-imm8 -<span id="L20101" class="LineNr">20101 </span> 0/imm32/no-disp32 -<span id="L20102" class="LineNr">20102 </span> 1/imm32/xm32-is-first-inout -<span id="L20103" class="LineNr">20103 </span> 3/imm32/x32-is-first-output -<span id="L20104" class="LineNr">20104 </span> 0x11/imm32/alloc-id:fake -<span id="L20105" class="LineNr">20105 </span> <a href='mu.subx.html#L20106'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next -<span id="L20106" class="LineNr">20106 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20107" class="LineNr">20107 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20108" class="LineNr">20108 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L20109" class="LineNr">20109 </span> 0x11/imm32/alloc-id:fake -<span id="L20110" class="LineNr">20110 </span> <a href='mu.subx.html#L21557'>_string-inverse-square-root</a>/imm32/name -<span id="L20111" class="LineNr">20111 </span> 0x11/imm32/alloc-id:fake -<span id="L20112" class="LineNr">20112 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L20113" class="LineNr">20113 </span> 0x11/imm32/alloc-id:fake -<span id="L20114" class="LineNr">20114 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L20115" class="LineNr">20115 </span> 0x11/imm32/alloc-id:fake -<span id="L20116" class="LineNr">20116 </span> <a href='mu.subx.html#L21839'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L20117" class="LineNr">20117 </span> 0/imm32/no-rm32 -<span id="L20118" class="LineNr">20118 </span> 0/imm32/no-r32 -<span id="L20119" class="LineNr">20119 </span> 0/imm32/no-imm32 -<span id="L20120" class="LineNr">20120 </span> 0/imm32/no-imm8 -<span id="L20121" class="LineNr">20121 </span> 0/imm32/no-disp32 -<span id="L20122" class="LineNr">20122 </span> 1/imm32/xm32-is-first-inout -<span id="L20123" class="LineNr">20123 </span> 3/imm32/x32-is-first-output -<span id="L20124" class="LineNr">20124 </span> 0x11/imm32/alloc-id:fake -<span id="L20125" class="LineNr">20125 </span> <a href='mu.subx.html#L20127'>_Primitive-compare-xreg-with-xreg</a>/imm32/next -<span id="L20126" class="LineNr">20126 </span><span class="subxH1Comment"># - compare</span> -<span id="L20127" class="LineNr">20127 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20128" class="LineNr">20128 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20129" class="LineNr">20129 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> -<span id="L20130" class="LineNr">20130 </span> 0x11/imm32/alloc-id:fake -<span id="L20131" class="LineNr">20131 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L20132" class="LineNr">20132 </span> 0x11/imm32/alloc-id:fake -<span id="L20133" class="LineNr">20133 </span> <span class="SpecialChar"><a href='mu.subx.html#L22213'>Two-float-args-in-regs</a></span>/imm32/inouts -<span id="L20134" class="LineNr">20134 </span> 0/imm32/no-outputs -<span id="L20135" class="LineNr">20135 </span> 0/imm32/no-outputs -<span id="L20136" class="LineNr">20136 </span> 0x11/imm32/alloc-id:fake -<span id="L20137" class="LineNr">20137 </span> <a href='mu.subx.html#L21864'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L20138" class="LineNr">20138 </span> 0/imm32/no-rm32 -<span id="L20139" class="LineNr">20139 </span> 0/imm32/no-r32 -<span id="L20140" class="LineNr">20140 </span> 0/imm32/no-imm32 -<span id="L20141" class="LineNr">20141 </span> 0/imm32/no-imm8 -<span id="L20142" class="LineNr">20142 </span> 0/imm32/no-disp32 -<span id="L20143" class="LineNr">20143 </span> 1/imm32/xm32-is-first-inout -<span id="L20144" class="LineNr">20144 </span> 2/imm32/x32-is-second-inout -<span id="L20145" class="LineNr">20145 </span> 0x11/imm32/alloc-id:fake -<span id="L20146" class="LineNr">20146 </span> <a href='mu.subx.html#L20147'>_Primitive-compare-xreg-with-mem</a>/imm32/next -<span id="L20147" class="LineNr">20147 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20148" class="LineNr">20148 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20149" class="LineNr">20149 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> -<span id="L20150" class="LineNr">20150 </span> 0x11/imm32/alloc-id:fake -<span id="L20151" class="LineNr">20151 </span> <a href='mu.subx.html#L21412'>_string-compare</a>/imm32/name -<span id="L20152" class="LineNr">20152 </span> 0x11/imm32/alloc-id:fake -<span id="L20153" class="LineNr">20153 </span> <span class="SpecialChar"><a href='mu.subx.html#L22220'>Two-args-float-reg-float-stack</a></span>/imm32/inouts -<span id="L20154" class="LineNr">20154 </span> 0/imm32/no-outputs -<span id="L20155" class="LineNr">20155 </span> 0/imm32/no-outputs -<span id="L20156" class="LineNr">20156 </span> 0x11/imm32/alloc-id:fake -<span id="L20157" class="LineNr">20157 </span> <a href='mu.subx.html#L21864'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L20158" class="LineNr">20158 </span> 0/imm32/no-rm32 -<span id="L20159" class="LineNr">20159 </span> 0/imm32/no-r32 -<span id="L20160" class="LineNr">20160 </span> 0/imm32/no-imm32 -<span id="L20161" class="LineNr">20161 </span> 0/imm32/no-imm8 -<span id="L20162" class="LineNr">20162 </span> 0/imm32/no-disp32 -<span id="L20163" class="LineNr">20163 </span> 2/imm32/xm32-is-second-inout -<span id="L20164" class="LineNr">20164 </span> 1/imm32/x32-is-first-inout -<span id="L20165" class="LineNr">20165 </span> 0x11/imm32/alloc-id:fake -<span id="L20166" class="LineNr">20166 </span> <a href='mu.subx.html#L20168'>_Primitive-break-if-addr<</a>/imm32/next -<span id="L20167" class="LineNr">20167 </span><span class="subxH1Comment"># - branches</span> -<span id="L20168" class="LineNr">20168 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20169" class="LineNr">20169 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19969" class="LineNr">19969 </span> <a href='mu.subx.html#L22112'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L19970" class="LineNr">19970 </span> 0/imm32/no-rm32 +<span id="L19971" class="LineNr">19971 </span> 0/imm32/no-r32 +<span id="L19972" class="LineNr">19972 </span> 0/imm32/no-imm32 +<span id="L19973" class="LineNr">19973 </span> 0/imm32/no-imm8 +<span id="L19974" class="LineNr">19974 </span> 0/imm32/no-disp32 +<span id="L19975" class="LineNr">19975 </span> 1/imm32/xm32-is-first-inout +<span id="L19976" class="LineNr">19976 </span> 3/imm32/x32-is-first-output +<span id="L19977" class="LineNr">19977 </span> 0x11/imm32/alloc-id:fake +<span id="L19978" class="LineNr">19978 </span> <a href='mu.subx.html#L19980'>_Primitive-address-of-xmem</a>/imm32/next +<span id="L19979" class="LineNr">19979 </span><span class="subxH1Comment"># - floating-point-address</span> +<span id="L19980" class="LineNr">19980 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L19981" class="LineNr">19981 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19982" class="LineNr">19982 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L19983" class="LineNr">19983 </span> 0x11/imm32/alloc-id:fake +<span id="L19984" class="LineNr">19984 </span> <a href='mu.subx.html#L21560'>_string-address</a>/imm32/name +<span id="L19985" class="LineNr">19985 </span> 0x11/imm32/alloc-id:fake +<span id="L19986" class="LineNr">19986 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L19987" class="LineNr">19987 </span> 0x11/imm32/alloc-id:fake +<span id="L19988" class="LineNr">19988 </span> <span class="SpecialChar"><a href='mu.subx.html#L22499'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L19989" class="LineNr">19989 </span> 0x11/imm32/alloc-id:fake +<span id="L19990" class="LineNr">19990 </span> <a href='mu.subx.html#L22297'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L19991" class="LineNr">19991 </span> 1/imm32/rm32-is-first-inout +<span id="L19992" class="LineNr">19992 </span> 3/imm32/r32-is-first-output +<span id="L19993" class="LineNr">19993 </span> 0/imm32/no-imm32 +<span id="L19994" class="LineNr">19994 </span> 0/imm32/no-imm8 +<span id="L19995" class="LineNr">19995 </span> 0/imm32/no-disp32 +<span id="L19996" class="LineNr">19996 </span> 0/imm32/no-xm32 +<span id="L19997" class="LineNr">19997 </span> 0/imm32/no-x32 +<span id="L19998" class="LineNr">19998 </span> 0x11/imm32/alloc-id:fake +<span id="L19999" class="LineNr">19999 </span> <a href='mu.subx.html#L20001'>_Primitive-add-xreg-to-xreg</a>/imm32/next +<span id="L20000" class="LineNr">20000 </span><span class="subxH1Comment"># - floating-point add</span> +<span id="L20001" class="LineNr">20001 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20002" class="LineNr">20002 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20003" class="LineNr">20003 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> +<span id="L20004" class="LineNr">20004 </span> 0x11/imm32/alloc-id:fake +<span id="L20005" class="LineNr">20005 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L20006" class="LineNr">20006 </span> 0x11/imm32/alloc-id:fake +<span id="L20007" class="LineNr">20007 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20008" class="LineNr">20008 </span> 0x11/imm32/alloc-id:fake +<span id="L20009" class="LineNr">20009 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20010" class="LineNr">20010 </span> 0x11/imm32/alloc-id:fake +<span id="L20011" class="LineNr">20011 </span> <a href='mu.subx.html#L22067'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L20012" class="LineNr">20012 </span> 0/imm32/no-rm32 +<span id="L20013" class="LineNr">20013 </span> 0/imm32/no-r32 +<span id="L20014" class="LineNr">20014 </span> 0/imm32/no-imm32 +<span id="L20015" class="LineNr">20015 </span> 0/imm32/no-imm8 +<span id="L20016" class="LineNr">20016 </span> 0/imm32/no-disp32 +<span id="L20017" class="LineNr">20017 </span> 1/imm32/xm32-is-first-inout +<span id="L20018" class="LineNr">20018 </span> 3/imm32/x32-is-first-output +<span id="L20019" class="LineNr">20019 </span> 0x11/imm32/alloc-id:fake +<span id="L20020" class="LineNr">20020 </span> <a href='mu.subx.html#L20021'>_Primitive-add-mem-to-xreg</a>/imm32/next +<span id="L20021" class="LineNr">20021 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20022" class="LineNr">20022 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20023" class="LineNr">20023 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> +<span id="L20024" class="LineNr">20024 </span> 0x11/imm32/alloc-id:fake +<span id="L20025" class="LineNr">20025 </span> <a href='mu.subx.html#L21555'>_string-add</a>/imm32/name +<span id="L20026" class="LineNr">20026 </span> 0x11/imm32/alloc-id:fake +<span id="L20027" class="LineNr">20027 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20028" class="LineNr">20028 </span> 0x11/imm32/alloc-id:fake +<span id="L20029" class="LineNr">20029 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20030" class="LineNr">20030 </span> 0x11/imm32/alloc-id:fake +<span id="L20031" class="LineNr">20031 </span> <a href='mu.subx.html#L22067'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L20032" class="LineNr">20032 </span> 0/imm32/no-rm32 +<span id="L20033" class="LineNr">20033 </span> 0/imm32/no-r32 +<span id="L20034" class="LineNr">20034 </span> 0/imm32/no-imm32 +<span id="L20035" class="LineNr">20035 </span> 0/imm32/no-imm8 +<span id="L20036" class="LineNr">20036 </span> 0/imm32/no-disp32 +<span id="L20037" class="LineNr">20037 </span> 1/imm32/xm32-is-first-inout +<span id="L20038" class="LineNr">20038 </span> 3/imm32/x32-is-first-output +<span id="L20039" class="LineNr">20039 </span> 0x11/imm32/alloc-id:fake +<span id="L20040" class="LineNr">20040 </span> <a href='mu.subx.html#L20042'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next +<span id="L20041" class="LineNr">20041 </span><span class="subxH1Comment"># - floating-point subtract</span> +<span id="L20042" class="LineNr">20042 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20043" class="LineNr">20043 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20044" class="LineNr">20044 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L20045" class="LineNr">20045 </span> 0x11/imm32/alloc-id:fake +<span id="L20046" class="LineNr">20046 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L20047" class="LineNr">20047 </span> 0x11/imm32/alloc-id:fake +<span id="L20048" class="LineNr">20048 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20049" class="LineNr">20049 </span> 0x11/imm32/alloc-id:fake +<span id="L20050" class="LineNr">20050 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20051" class="LineNr">20051 </span> 0x11/imm32/alloc-id:fake +<span id="L20052" class="LineNr">20052 </span> <a href='mu.subx.html#L22072'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L20053" class="LineNr">20053 </span> 0/imm32/no-rm32 +<span id="L20054" class="LineNr">20054 </span> 0/imm32/no-r32 +<span id="L20055" class="LineNr">20055 </span> 0/imm32/no-imm32 +<span id="L20056" class="LineNr">20056 </span> 0/imm32/no-imm8 +<span id="L20057" class="LineNr">20057 </span> 0/imm32/no-disp32 +<span id="L20058" class="LineNr">20058 </span> 1/imm32/xm32-is-first-inout +<span id="L20059" class="LineNr">20059 </span> 3/imm32/x32-is-first-output +<span id="L20060" class="LineNr">20060 </span> 0x11/imm32/alloc-id:fake +<span id="L20061" class="LineNr">20061 </span> <a href='mu.subx.html#L20062'>_Primitive-subtract-mem-from-xreg</a>/imm32/next +<span id="L20062" class="LineNr">20062 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20063" class="LineNr">20063 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20064" class="LineNr">20064 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L20065" class="LineNr">20065 </span> 0x11/imm32/alloc-id:fake +<span id="L20066" class="LineNr">20066 </span> <a href='mu.subx.html#L21830'>_string-subtract</a>/imm32/name +<span id="L20067" class="LineNr">20067 </span> 0x11/imm32/alloc-id:fake +<span id="L20068" class="LineNr">20068 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20069" class="LineNr">20069 </span> 0x11/imm32/alloc-id:fake +<span id="L20070" class="LineNr">20070 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20071" class="LineNr">20071 </span> 0x11/imm32/alloc-id:fake +<span id="L20072" class="LineNr">20072 </span> <a href='mu.subx.html#L22072'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L20073" class="LineNr">20073 </span> 0/imm32/no-rm32 +<span id="L20074" class="LineNr">20074 </span> 0/imm32/no-r32 +<span id="L20075" class="LineNr">20075 </span> 0/imm32/no-imm32 +<span id="L20076" class="LineNr">20076 </span> 0/imm32/no-imm8 +<span id="L20077" class="LineNr">20077 </span> 0/imm32/no-disp32 +<span id="L20078" class="LineNr">20078 </span> 1/imm32/xm32-is-first-inout +<span id="L20079" class="LineNr">20079 </span> 3/imm32/x32-is-first-output +<span id="L20080" class="LineNr">20080 </span> 0x11/imm32/alloc-id:fake +<span id="L20081" class="LineNr">20081 </span> <a href='mu.subx.html#L20083'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next +<span id="L20082" class="LineNr">20082 </span><span class="subxH1Comment"># - floating-point multiply</span> +<span id="L20083" class="LineNr">20083 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20084" class="LineNr">20084 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20085" class="LineNr">20085 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L20086" class="LineNr">20086 </span> 0x11/imm32/alloc-id:fake +<span id="L20087" class="LineNr">20087 </span> <a href='mu.subx.html#L21765'>_string-multiply</a>/imm32/name +<span id="L20088" class="LineNr">20088 </span> 0x11/imm32/alloc-id:fake +<span id="L20089" class="LineNr">20089 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20090" class="LineNr">20090 </span> 0x11/imm32/alloc-id:fake +<span id="L20091" class="LineNr">20091 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20092" class="LineNr">20092 </span> 0x11/imm32/alloc-id:fake +<span id="L20093" class="LineNr">20093 </span> <a href='mu.subx.html#L22077'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L20094" class="LineNr">20094 </span> 0/imm32/no-rm32 +<span id="L20095" class="LineNr">20095 </span> 0/imm32/no-r32 +<span id="L20096" class="LineNr">20096 </span> 0/imm32/no-imm32 +<span id="L20097" class="LineNr">20097 </span> 0/imm32/no-imm8 +<span id="L20098" class="LineNr">20098 </span> 0/imm32/no-disp32 +<span id="L20099" class="LineNr">20099 </span> 1/imm32/xm32-is-first-inout +<span id="L20100" class="LineNr">20100 </span> 3/imm32/x32-is-first-output +<span id="L20101" class="LineNr">20101 </span> 0x11/imm32/alloc-id:fake +<span id="L20102" class="LineNr">20102 </span> <a href='mu.subx.html#L20103'>_Primitive-multiply-xreg-by-mem</a>/imm32/next +<span id="L20103" class="LineNr">20103 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20104" class="LineNr">20104 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20105" class="LineNr">20105 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L20106" class="LineNr">20106 </span> 0x11/imm32/alloc-id:fake +<span id="L20107" class="LineNr">20107 </span> <a href='mu.subx.html#L21765'>_string-multiply</a>/imm32/name +<span id="L20108" class="LineNr">20108 </span> 0x11/imm32/alloc-id:fake +<span id="L20109" class="LineNr">20109 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20110" class="LineNr">20110 </span> 0x11/imm32/alloc-id:fake +<span id="L20111" class="LineNr">20111 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20112" class="LineNr">20112 </span> 0x11/imm32/alloc-id:fake +<span id="L20113" class="LineNr">20113 </span> <a href='mu.subx.html#L22077'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L20114" class="LineNr">20114 </span> 0/imm32/no-rm32 +<span id="L20115" class="LineNr">20115 </span> 0/imm32/no-r32 +<span id="L20116" class="LineNr">20116 </span> 0/imm32/no-imm32 +<span id="L20117" class="LineNr">20117 </span> 0/imm32/no-imm8 +<span id="L20118" class="LineNr">20118 </span> 0/imm32/no-disp32 +<span id="L20119" class="LineNr">20119 </span> 1/imm32/xm32-is-first-inout +<span id="L20120" class="LineNr">20120 </span> 3/imm32/x32-is-first-output +<span id="L20121" class="LineNr">20121 </span> 0x11/imm32/alloc-id:fake +<span id="L20122" class="LineNr">20122 </span> <a href='mu.subx.html#L20124'>_Primitive-divide-xreg-by-xreg</a>/imm32/next +<span id="L20123" class="LineNr">20123 </span><span class="subxH1Comment"># - floating-point divide</span> +<span id="L20124" class="LineNr">20124 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20125" class="LineNr">20125 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20126" class="LineNr">20126 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L20127" class="LineNr">20127 </span> 0x11/imm32/alloc-id:fake +<span id="L20128" class="LineNr">20128 </span> <a href='mu.subx.html#L21785'>_string-divide</a>/imm32/name +<span id="L20129" class="LineNr">20129 </span> 0x11/imm32/alloc-id:fake +<span id="L20130" class="LineNr">20130 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20131" class="LineNr">20131 </span> 0x11/imm32/alloc-id:fake +<span id="L20132" class="LineNr">20132 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20133" class="LineNr">20133 </span> 0x11/imm32/alloc-id:fake +<span id="L20134" class="LineNr">20134 </span> <a href='mu.subx.html#L22082'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L20135" class="LineNr">20135 </span> 0/imm32/no-rm32 +<span id="L20136" class="LineNr">20136 </span> 0/imm32/no-r32 +<span id="L20137" class="LineNr">20137 </span> 0/imm32/no-imm32 +<span id="L20138" class="LineNr">20138 </span> 0/imm32/no-imm8 +<span id="L20139" class="LineNr">20139 </span> 0/imm32/no-disp32 +<span id="L20140" class="LineNr">20140 </span> 1/imm32/xm32-is-first-inout +<span id="L20141" class="LineNr">20141 </span> 3/imm32/x32-is-first-output +<span id="L20142" class="LineNr">20142 </span> 0x11/imm32/alloc-id:fake +<span id="L20143" class="LineNr">20143 </span> <a href='mu.subx.html#L20144'>_Primitive-divide-xreg-by-mem</a>/imm32/next +<span id="L20144" class="LineNr">20144 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20145" class="LineNr">20145 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20146" class="LineNr">20146 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L20147" class="LineNr">20147 </span> 0x11/imm32/alloc-id:fake +<span id="L20148" class="LineNr">20148 </span> <a href='mu.subx.html#L21785'>_string-divide</a>/imm32/name +<span id="L20149" class="LineNr">20149 </span> 0x11/imm32/alloc-id:fake +<span id="L20150" class="LineNr">20150 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20151" class="LineNr">20151 </span> 0x11/imm32/alloc-id:fake +<span id="L20152" class="LineNr">20152 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20153" class="LineNr">20153 </span> 0x11/imm32/alloc-id:fake +<span id="L20154" class="LineNr">20154 </span> <a href='mu.subx.html#L22082'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L20155" class="LineNr">20155 </span> 0/imm32/no-rm32 +<span id="L20156" class="LineNr">20156 </span> 0/imm32/no-r32 +<span id="L20157" class="LineNr">20157 </span> 0/imm32/no-imm32 +<span id="L20158" class="LineNr">20158 </span> 0/imm32/no-imm8 +<span id="L20159" class="LineNr">20159 </span> 0/imm32/no-disp32 +<span id="L20160" class="LineNr">20160 </span> 1/imm32/xm32-is-first-inout +<span id="L20161" class="LineNr">20161 </span> 3/imm32/x32-is-first-output +<span id="L20162" class="LineNr">20162 </span> 0x11/imm32/alloc-id:fake +<span id="L20163" class="LineNr">20163 </span> <a href='mu.subx.html#L20165'>_Primitive-max-xreg-with-xreg</a>/imm32/next +<span id="L20164" class="LineNr">20164 </span><span class="subxH1Comment"># - floating-point maximum</span> +<span id="L20165" class="LineNr">20165 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20166" class="LineNr">20166 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20167" class="LineNr">20167 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L20168" class="LineNr">20168 </span> 0x11/imm32/alloc-id:fake +<span id="L20169" class="LineNr">20169 </span> <a href='mu.subx.html#L21790'>_string-max</a>/imm32/name <span id="L20170" class="LineNr">20170 </span> 0x11/imm32/alloc-id:fake -<span id="L20171" class="LineNr">20171 </span> <a href='mu.subx.html#L21372'>_string-break-if-addr<</a>/imm32/name -<span id="L20172" class="LineNr">20172 </span> 0/imm32/no-inouts -<span id="L20173" class="LineNr">20173 </span> 0/imm32/no-inouts -<span id="L20174" class="LineNr">20174 </span> 0/imm32/no-outputs -<span id="L20175" class="LineNr">20175 </span> 0/imm32/no-outputs -<span id="L20176" class="LineNr">20176 </span> 0x11/imm32/alloc-id:fake -<span id="L20177" class="LineNr">20177 </span> <a href='mu.subx.html#L21649'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L20178" class="LineNr">20178 </span> 0/imm32/no-rm32 -<span id="L20179" class="LineNr">20179 </span> 0/imm32/no-r32 -<span id="L20180" class="LineNr">20180 </span> 0/imm32/no-imm32 -<span id="L20181" class="LineNr">20181 </span> 0/imm32/no-imm8 -<span id="L20182" class="LineNr">20182 </span> 0/imm32/no-disp32 -<span id="L20183" class="LineNr">20183 </span> 0/imm32/no-xm32 -<span id="L20184" class="LineNr">20184 </span> 0/imm32/no-x32 -<span id="L20185" class="LineNr">20185 </span> 0x11/imm32/alloc-id:fake -<span id="L20186" class="LineNr">20186 </span> <a href='mu.subx.html#L20187'>_Primitive-break-if-addr>=</a>/imm32/next -<span id="L20187" class="LineNr">20187 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20188" class="LineNr">20188 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20189" class="LineNr">20189 </span> 0x11/imm32/alloc-id:fake -<span id="L20190" class="LineNr">20190 </span> <a href='mu.subx.html#L21387'>_string-break-if-addr>=</a>/imm32/name -<span id="L20191" class="LineNr">20191 </span> 0/imm32/no-inouts -<span id="L20192" class="LineNr">20192 </span> 0/imm32/no-inouts -<span id="L20193" class="LineNr">20193 </span> 0/imm32/no-outputs -<span id="L20194" class="LineNr">20194 </span> 0/imm32/no-outputs -<span id="L20195" class="LineNr">20195 </span> 0x11/imm32/alloc-id:fake -<span id="L20196" class="LineNr">20196 </span> <a href='mu.subx.html#L21664'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L20197" class="LineNr">20197 </span> 0/imm32/no-rm32 -<span id="L20198" class="LineNr">20198 </span> 0/imm32/no-r32 -<span id="L20199" class="LineNr">20199 </span> 0/imm32/no-imm32 -<span id="L20200" class="LineNr">20200 </span> 0/imm32/no-imm8 -<span id="L20201" class="LineNr">20201 </span> 0/imm32/no-disp32 -<span id="L20202" class="LineNr">20202 </span> 0/imm32/no-xm32 -<span id="L20203" class="LineNr">20203 </span> 0/imm32/no-x32 -<span id="L20204" class="LineNr">20204 </span> 0x11/imm32/alloc-id:fake -<span id="L20205" class="LineNr">20205 </span> <a href='mu.subx.html#L20206'>_Primitive-break-if-=</a>/imm32/next -<span id="L20206" class="LineNr">20206 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20171" class="LineNr">20171 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20172" class="LineNr">20172 </span> 0x11/imm32/alloc-id:fake +<span id="L20173" class="LineNr">20173 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20174" class="LineNr">20174 </span> 0x11/imm32/alloc-id:fake +<span id="L20175" class="LineNr">20175 </span> <a href='mu.subx.html#L22107'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L20176" class="LineNr">20176 </span> 0/imm32/no-rm32 +<span id="L20177" class="LineNr">20177 </span> 0/imm32/no-r32 +<span id="L20178" class="LineNr">20178 </span> 0/imm32/no-imm32 +<span id="L20179" class="LineNr">20179 </span> 0/imm32/no-imm8 +<span id="L20180" class="LineNr">20180 </span> 0/imm32/no-disp32 +<span id="L20181" class="LineNr">20181 </span> 1/imm32/xm32-is-first-inout +<span id="L20182" class="LineNr">20182 </span> 3/imm32/x32-is-first-output +<span id="L20183" class="LineNr">20183 </span> 0x11/imm32/alloc-id:fake +<span id="L20184" class="LineNr">20184 </span> <a href='mu.subx.html#L20185'>_Primitive-max-xreg-with-mem</a>/imm32/next +<span id="L20185" class="LineNr">20185 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20186" class="LineNr">20186 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20187" class="LineNr">20187 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L20188" class="LineNr">20188 </span> 0x11/imm32/alloc-id:fake +<span id="L20189" class="LineNr">20189 </span> <a href='mu.subx.html#L21790'>_string-max</a>/imm32/name +<span id="L20190" class="LineNr">20190 </span> 0x11/imm32/alloc-id:fake +<span id="L20191" class="LineNr">20191 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20192" class="LineNr">20192 </span> 0x11/imm32/alloc-id:fake +<span id="L20193" class="LineNr">20193 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20194" class="LineNr">20194 </span> 0x11/imm32/alloc-id:fake +<span id="L20195" class="LineNr">20195 </span> <a href='mu.subx.html#L22107'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L20196" class="LineNr">20196 </span> 0/imm32/no-rm32 +<span id="L20197" class="LineNr">20197 </span> 0/imm32/no-r32 +<span id="L20198" class="LineNr">20198 </span> 0/imm32/no-imm32 +<span id="L20199" class="LineNr">20199 </span> 0/imm32/no-imm8 +<span id="L20200" class="LineNr">20200 </span> 0/imm32/no-disp32 +<span id="L20201" class="LineNr">20201 </span> 1/imm32/xm32-is-first-inout +<span id="L20202" class="LineNr">20202 </span> 3/imm32/x32-is-first-output +<span id="L20203" class="LineNr">20203 </span> 0x11/imm32/alloc-id:fake +<span id="L20204" class="LineNr">20204 </span> <a href='mu.subx.html#L20206'>_Primitive-min-xreg-with-xreg</a>/imm32/next +<span id="L20205" class="LineNr">20205 </span><span class="subxH1Comment"># - floating-point minimum</span> +<span id="L20206" class="LineNr">20206 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L20207" class="LineNr">20207 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20208" class="LineNr">20208 </span> 0x11/imm32/alloc-id:fake -<span id="L20209" class="LineNr">20209 </span> <a href='mu.subx.html#L21352'>_string-break-if-=</a>/imm32/name -<span id="L20210" class="LineNr">20210 </span> 0/imm32/no-inouts -<span id="L20211" class="LineNr">20211 </span> 0/imm32/no-inouts -<span id="L20212" class="LineNr">20212 </span> 0/imm32/no-outputs -<span id="L20213" class="LineNr">20213 </span> 0/imm32/no-outputs -<span id="L20214" class="LineNr">20214 </span> 0x11/imm32/alloc-id:fake -<span id="L20215" class="LineNr">20215 </span> <a href='mu.subx.html#L21679'>_string_0f_84_jump_break</a>/imm32/subx-name -<span id="L20216" class="LineNr">20216 </span> 0/imm32/no-rm32 -<span id="L20217" class="LineNr">20217 </span> 0/imm32/no-r32 -<span id="L20218" class="LineNr">20218 </span> 0/imm32/no-imm32 -<span id="L20219" class="LineNr">20219 </span> 0/imm32/no-imm8 -<span id="L20220" class="LineNr">20220 </span> 0/imm32/no-disp32 -<span id="L20221" class="LineNr">20221 </span> 0/imm32/no-xm32 -<span id="L20222" class="LineNr">20222 </span> 0/imm32/no-x32 -<span id="L20223" class="LineNr">20223 </span> 0x11/imm32/alloc-id:fake -<span id="L20224" class="LineNr">20224 </span> <a href='mu.subx.html#L20225'>_Primitive-break-if-!=</a>/imm32/next -<span id="L20225" class="LineNr">20225 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20226" class="LineNr">20226 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20227" class="LineNr">20227 </span> 0x11/imm32/alloc-id:fake -<span id="L20228" class="LineNr">20228 </span> <a href='mu.subx.html#L21367'>_string-break-if-!=</a>/imm32/name -<span id="L20229" class="LineNr">20229 </span> 0/imm32/no-inouts -<span id="L20230" class="LineNr">20230 </span> 0/imm32/no-inouts -<span id="L20231" class="LineNr">20231 </span> 0/imm32/no-outputs -<span id="L20232" class="LineNr">20232 </span> 0/imm32/no-outputs +<span id="L20208" class="LineNr">20208 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L20209" class="LineNr">20209 </span> 0x11/imm32/alloc-id:fake +<span id="L20210" class="LineNr">20210 </span> <a href='mu.subx.html#L21795'>_string-min</a>/imm32/name +<span id="L20211" class="LineNr">20211 </span> 0x11/imm32/alloc-id:fake +<span id="L20212" class="LineNr">20212 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20213" class="LineNr">20213 </span> 0x11/imm32/alloc-id:fake +<span id="L20214" class="LineNr">20214 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20215" class="LineNr">20215 </span> 0x11/imm32/alloc-id:fake +<span id="L20216" class="LineNr">20216 </span> <a href='mu.subx.html#L22102'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L20217" class="LineNr">20217 </span> 0/imm32/no-rm32 +<span id="L20218" class="LineNr">20218 </span> 0/imm32/no-r32 +<span id="L20219" class="LineNr">20219 </span> 0/imm32/no-imm32 +<span id="L20220" class="LineNr">20220 </span> 0/imm32/no-imm8 +<span id="L20221" class="LineNr">20221 </span> 0/imm32/no-disp32 +<span id="L20222" class="LineNr">20222 </span> 1/imm32/xm32-is-first-inout +<span id="L20223" class="LineNr">20223 </span> 3/imm32/x32-is-first-output +<span id="L20224" class="LineNr">20224 </span> 0x11/imm32/alloc-id:fake +<span id="L20225" class="LineNr">20225 </span> <a href='mu.subx.html#L20226'>_Primitive-min-xreg-with-mem</a>/imm32/next +<span id="L20226" class="LineNr">20226 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20227" class="LineNr">20227 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20228" class="LineNr">20228 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L20229" class="LineNr">20229 </span> 0x11/imm32/alloc-id:fake +<span id="L20230" class="LineNr">20230 </span> <a href='mu.subx.html#L21795'>_string-min</a>/imm32/name +<span id="L20231" class="LineNr">20231 </span> 0x11/imm32/alloc-id:fake +<span id="L20232" class="LineNr">20232 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L20233" class="LineNr">20233 </span> 0x11/imm32/alloc-id:fake -<span id="L20234" class="LineNr">20234 </span> <a href='mu.subx.html#L21694'>_string_0f_85_jump_break</a>/imm32/subx-name -<span id="L20235" class="LineNr">20235 </span> 0/imm32/no-rm32 -<span id="L20236" class="LineNr">20236 </span> 0/imm32/no-r32 -<span id="L20237" class="LineNr">20237 </span> 0/imm32/no-imm32 -<span id="L20238" class="LineNr">20238 </span> 0/imm32/no-imm8 -<span id="L20239" class="LineNr">20239 </span> 0/imm32/no-disp32 -<span id="L20240" class="LineNr">20240 </span> 0/imm32/no-xm32 -<span id="L20241" class="LineNr">20241 </span> 0/imm32/no-x32 -<span id="L20242" class="LineNr">20242 </span> 0x11/imm32/alloc-id:fake -<span id="L20243" class="LineNr">20243 </span> <a href='mu.subx.html#L20244'>_Primitive-break-if-addr<=</a>/imm32/next -<span id="L20244" class="LineNr">20244 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20245" class="LineNr">20245 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20246" class="LineNr">20246 </span> 0x11/imm32/alloc-id:fake -<span id="L20247" class="LineNr">20247 </span> <a href='mu.subx.html#L21377'>_string-break-if-addr<=</a>/imm32/name -<span id="L20248" class="LineNr">20248 </span> 0/imm32/no-inouts -<span id="L20249" class="LineNr">20249 </span> 0/imm32/no-inouts -<span id="L20250" class="LineNr">20250 </span> 0/imm32/no-outputs -<span id="L20251" class="LineNr">20251 </span> 0/imm32/no-outputs +<span id="L20234" class="LineNr">20234 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20235" class="LineNr">20235 </span> 0x11/imm32/alloc-id:fake +<span id="L20236" class="LineNr">20236 </span> <a href='mu.subx.html#L22102'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L20237" class="LineNr">20237 </span> 0/imm32/no-rm32 +<span id="L20238" class="LineNr">20238 </span> 0/imm32/no-r32 +<span id="L20239" class="LineNr">20239 </span> 0/imm32/no-imm32 +<span id="L20240" class="LineNr">20240 </span> 0/imm32/no-imm8 +<span id="L20241" class="LineNr">20241 </span> 0/imm32/no-disp32 +<span id="L20242" class="LineNr">20242 </span> 1/imm32/xm32-is-first-inout +<span id="L20243" class="LineNr">20243 </span> 3/imm32/x32-is-first-output +<span id="L20244" class="LineNr">20244 </span> 0x11/imm32/alloc-id:fake +<span id="L20245" class="LineNr">20245 </span> <a href='mu.subx.html#L20247'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next +<span id="L20246" class="LineNr">20246 </span><span class="subxH1Comment"># - floating-point reciprocal</span> +<span id="L20247" class="LineNr">20247 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20248" class="LineNr">20248 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20249" class="LineNr">20249 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L20250" class="LineNr">20250 </span> 0x11/imm32/alloc-id:fake +<span id="L20251" class="LineNr">20251 </span> <a href='mu.subx.html#L21800'>_string-reciprocal</a>/imm32/name <span id="L20252" class="LineNr">20252 </span> 0x11/imm32/alloc-id:fake -<span id="L20253" class="LineNr">20253 </span> <a href='mu.subx.html#L21709'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L20254" class="LineNr">20254 </span> 0/imm32/no-rm32 -<span id="L20255" class="LineNr">20255 </span> 0/imm32/no-r32 -<span id="L20256" class="LineNr">20256 </span> 0/imm32/no-imm32 -<span id="L20257" class="LineNr">20257 </span> 0/imm32/no-imm8 -<span id="L20258" class="LineNr">20258 </span> 0/imm32/no-disp32 -<span id="L20259" class="LineNr">20259 </span> 0/imm32/no-xm32 -<span id="L20260" class="LineNr">20260 </span> 0/imm32/no-x32 -<span id="L20261" class="LineNr">20261 </span> 0x11/imm32/alloc-id:fake -<span id="L20262" class="LineNr">20262 </span> <a href='mu.subx.html#L20263'>_Primitive-break-if-addr></a>/imm32/next -<span id="L20263" class="LineNr">20263 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20264" class="LineNr">20264 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20253" class="LineNr">20253 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20254" class="LineNr">20254 </span> 0x11/imm32/alloc-id:fake +<span id="L20255" class="LineNr">20255 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20256" class="LineNr">20256 </span> 0x11/imm32/alloc-id:fake +<span id="L20257" class="LineNr">20257 </span> <a href='mu.subx.html#L22087'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L20258" class="LineNr">20258 </span> 0/imm32/no-rm32 +<span id="L20259" class="LineNr">20259 </span> 0/imm32/no-r32 +<span id="L20260" class="LineNr">20260 </span> 0/imm32/no-imm32 +<span id="L20261" class="LineNr">20261 </span> 0/imm32/no-imm8 +<span id="L20262" class="LineNr">20262 </span> 0/imm32/no-disp32 +<span id="L20263" class="LineNr">20263 </span> 1/imm32/xm32-is-first-inout +<span id="L20264" class="LineNr">20264 </span> 3/imm32/x32-is-first-output <span id="L20265" class="LineNr">20265 </span> 0x11/imm32/alloc-id:fake -<span id="L20266" class="LineNr">20266 </span> <a href='mu.subx.html#L21382'>_string-break-if-addr></a>/imm32/name -<span id="L20267" class="LineNr">20267 </span> 0/imm32/no-inouts -<span id="L20268" class="LineNr">20268 </span> 0/imm32/no-inouts -<span id="L20269" class="LineNr">20269 </span> 0/imm32/no-outputs -<span id="L20270" class="LineNr">20270 </span> 0/imm32/no-outputs -<span id="L20271" class="LineNr">20271 </span> 0x11/imm32/alloc-id:fake -<span id="L20272" class="LineNr">20272 </span> <a href='mu.subx.html#L21724'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L20273" class="LineNr">20273 </span> 0/imm32/no-rm32 -<span id="L20274" class="LineNr">20274 </span> 0/imm32/no-r32 -<span id="L20275" class="LineNr">20275 </span> 0/imm32/no-imm32 -<span id="L20276" class="LineNr">20276 </span> 0/imm32/no-imm8 -<span id="L20277" class="LineNr">20277 </span> 0/imm32/no-disp32 -<span id="L20278" class="LineNr">20278 </span> 0/imm32/no-xm32 -<span id="L20279" class="LineNr">20279 </span> 0/imm32/no-x32 -<span id="L20280" class="LineNr">20280 </span> 0x11/imm32/alloc-id:fake -<span id="L20281" class="LineNr">20281 </span> <a href='mu.subx.html#L20282'>_Primitive-break-if-<</a>/imm32/next -<span id="L20282" class="LineNr">20282 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20283" class="LineNr">20283 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20284" class="LineNr">20284 </span> 0x11/imm32/alloc-id:fake -<span id="L20285" class="LineNr">20285 </span> <a href='mu.subx.html#L21342'>_string-break-if-<</a>/imm32/name -<span id="L20286" class="LineNr">20286 </span> 0/imm32/no-inouts -<span id="L20287" class="LineNr">20287 </span> 0/imm32/no-inouts -<span id="L20288" class="LineNr">20288 </span> 0/imm32/no-outputs -<span id="L20289" class="LineNr">20289 </span> 0/imm32/no-outputs -<span id="L20290" class="LineNr">20290 </span> 0x11/imm32/alloc-id:fake -<span id="L20291" class="LineNr">20291 </span> <a href='mu.subx.html#L21739'>_string_0f_8c_jump_break</a>/imm32/subx-name -<span id="L20292" class="LineNr">20292 </span> 0/imm32/no-rm32 -<span id="L20293" class="LineNr">20293 </span> 0/imm32/no-r32 -<span id="L20294" class="LineNr">20294 </span> 0/imm32/no-imm32 -<span id="L20295" class="LineNr">20295 </span> 0/imm32/no-imm8 -<span id="L20296" class="LineNr">20296 </span> 0/imm32/no-disp32 -<span id="L20297" class="LineNr">20297 </span> 0/imm32/no-xm32 -<span id="L20298" class="LineNr">20298 </span> 0/imm32/no-x32 -<span id="L20299" class="LineNr">20299 </span> 0x11/imm32/alloc-id:fake -<span id="L20300" class="LineNr">20300 </span> <a href='mu.subx.html#L20301'>_Primitive-break-if->=</a>/imm32/next -<span id="L20301" class="LineNr">20301 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20302" class="LineNr">20302 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20303" class="LineNr">20303 </span> 0x11/imm32/alloc-id:fake -<span id="L20304" class="LineNr">20304 </span> <a href='mu.subx.html#L21362'>_string-break-if->=</a>/imm32/name -<span id="L20305" class="LineNr">20305 </span> 0/imm32/no-inouts -<span id="L20306" class="LineNr">20306 </span> 0/imm32/no-inouts -<span id="L20307" class="LineNr">20307 </span> 0/imm32/no-outputs -<span id="L20308" class="LineNr">20308 </span> 0/imm32/no-outputs -<span id="L20309" class="LineNr">20309 </span> 0x11/imm32/alloc-id:fake -<span id="L20310" class="LineNr">20310 </span> <a href='mu.subx.html#L21754'>_string_0f_8d_jump_break</a>/imm32/subx-name -<span id="L20311" class="LineNr">20311 </span> 0/imm32/no-rm32 -<span id="L20312" class="LineNr">20312 </span> 0/imm32/no-r32 -<span id="L20313" class="LineNr">20313 </span> 0/imm32/no-imm32 -<span id="L20314" class="LineNr">20314 </span> 0/imm32/no-imm8 -<span id="L20315" class="LineNr">20315 </span> 0/imm32/no-disp32 -<span id="L20316" class="LineNr">20316 </span> 0/imm32/no-xm32 -<span id="L20317" class="LineNr">20317 </span> 0/imm32/no-x32 -<span id="L20318" class="LineNr">20318 </span> 0x11/imm32/alloc-id:fake -<span id="L20319" class="LineNr">20319 </span> <a href='mu.subx.html#L20320'>_Primitive-break-if-<=</a>/imm32/next -<span id="L20320" class="LineNr">20320 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20321" class="LineNr">20321 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20322" class="LineNr">20322 </span> 0x11/imm32/alloc-id:fake -<span id="L20323" class="LineNr">20323 </span> <a href='mu.subx.html#L21347'>_string-break-if-<=</a>/imm32/name -<span id="L20324" class="LineNr">20324 </span> 0/imm32/no-inouts -<span id="L20325" class="LineNr">20325 </span> 0/imm32/no-inouts -<span id="L20326" class="LineNr">20326 </span> 0/imm32/no-outputs -<span id="L20327" class="LineNr">20327 </span> 0/imm32/no-outputs -<span id="L20328" class="LineNr">20328 </span> 0x11/imm32/alloc-id:fake -<span id="L20329" class="LineNr">20329 </span> <a href='mu.subx.html#L21769'>_string_0f_8e_jump_break</a>/imm32/subx-name -<span id="L20330" class="LineNr">20330 </span> 0/imm32/no-rm32 -<span id="L20331" class="LineNr">20331 </span> 0/imm32/no-r32 -<span id="L20332" class="LineNr">20332 </span> 0/imm32/no-imm32 -<span id="L20333" class="LineNr">20333 </span> 0/imm32/no-imm8 -<span id="L20334" class="LineNr">20334 </span> 0/imm32/no-disp32 -<span id="L20335" class="LineNr">20335 </span> 0/imm32/no-xm32 -<span id="L20336" class="LineNr">20336 </span> 0/imm32/no-x32 -<span id="L20337" class="LineNr">20337 </span> 0x11/imm32/alloc-id:fake -<span id="L20338" class="LineNr">20338 </span> <a href='mu.subx.html#L20339'>_Primitive-break-if-></a>/imm32/next -<span id="L20339" class="LineNr">20339 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20340" class="LineNr">20340 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20341" class="LineNr">20341 </span> 0x11/imm32/alloc-id:fake -<span id="L20342" class="LineNr">20342 </span> <a href='mu.subx.html#L21357'>_string-break-if-></a>/imm32/name -<span id="L20343" class="LineNr">20343 </span> 0/imm32/no-inouts -<span id="L20344" class="LineNr">20344 </span> 0/imm32/no-inouts -<span id="L20345" class="LineNr">20345 </span> 0/imm32/no-outputs -<span id="L20346" class="LineNr">20346 </span> 0/imm32/no-outputs +<span id="L20266" class="LineNr">20266 </span> <a href='mu.subx.html#L20267'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next +<span id="L20267" class="LineNr">20267 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20268" class="LineNr">20268 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20269" class="LineNr">20269 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L20270" class="LineNr">20270 </span> 0x11/imm32/alloc-id:fake +<span id="L20271" class="LineNr">20271 </span> <a href='mu.subx.html#L21800'>_string-reciprocal</a>/imm32/name +<span id="L20272" class="LineNr">20272 </span> 0x11/imm32/alloc-id:fake +<span id="L20273" class="LineNr">20273 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20274" class="LineNr">20274 </span> 0x11/imm32/alloc-id:fake +<span id="L20275" class="LineNr">20275 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20276" class="LineNr">20276 </span> 0x11/imm32/alloc-id:fake +<span id="L20277" class="LineNr">20277 </span> <a href='mu.subx.html#L22087'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L20278" class="LineNr">20278 </span> 0/imm32/no-rm32 +<span id="L20279" class="LineNr">20279 </span> 0/imm32/no-r32 +<span id="L20280" class="LineNr">20280 </span> 0/imm32/no-imm32 +<span id="L20281" class="LineNr">20281 </span> 0/imm32/no-imm8 +<span id="L20282" class="LineNr">20282 </span> 0/imm32/no-disp32 +<span id="L20283" class="LineNr">20283 </span> 1/imm32/xm32-is-first-inout +<span id="L20284" class="LineNr">20284 </span> 3/imm32/x32-is-first-output +<span id="L20285" class="LineNr">20285 </span> 0x11/imm32/alloc-id:fake +<span id="L20286" class="LineNr">20286 </span> <a href='mu.subx.html#L20288'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next +<span id="L20287" class="LineNr">20287 </span><span class="subxH1Comment"># - floating-point square root</span> +<span id="L20288" class="LineNr">20288 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20289" class="LineNr">20289 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20290" class="LineNr">20290 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L20291" class="LineNr">20291 </span> 0x11/imm32/alloc-id:fake +<span id="L20292" class="LineNr">20292 </span> <a href='mu.subx.html#L21805'>_string-square-root</a>/imm32/name +<span id="L20293" class="LineNr">20293 </span> 0x11/imm32/alloc-id:fake +<span id="L20294" class="LineNr">20294 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20295" class="LineNr">20295 </span> 0x11/imm32/alloc-id:fake +<span id="L20296" class="LineNr">20296 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20297" class="LineNr">20297 </span> 0x11/imm32/alloc-id:fake +<span id="L20298" class="LineNr">20298 </span> <a href='mu.subx.html#L22092'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L20299" class="LineNr">20299 </span> 0/imm32/no-rm32 +<span id="L20300" class="LineNr">20300 </span> 0/imm32/no-r32 +<span id="L20301" class="LineNr">20301 </span> 0/imm32/no-imm32 +<span id="L20302" class="LineNr">20302 </span> 0/imm32/no-imm8 +<span id="L20303" class="LineNr">20303 </span> 0/imm32/no-disp32 +<span id="L20304" class="LineNr">20304 </span> 1/imm32/xm32-is-first-inout +<span id="L20305" class="LineNr">20305 </span> 3/imm32/x32-is-first-output +<span id="L20306" class="LineNr">20306 </span> 0x11/imm32/alloc-id:fake +<span id="L20307" class="LineNr">20307 </span> <a href='mu.subx.html#L20308'>_Primitive-square-root-mem-to-xreg</a>/imm32/next +<span id="L20308" class="LineNr">20308 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20309" class="LineNr">20309 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20310" class="LineNr">20310 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L20311" class="LineNr">20311 </span> 0x11/imm32/alloc-id:fake +<span id="L20312" class="LineNr">20312 </span> <a href='mu.subx.html#L21805'>_string-square-root</a>/imm32/name +<span id="L20313" class="LineNr">20313 </span> 0x11/imm32/alloc-id:fake +<span id="L20314" class="LineNr">20314 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L20315" class="LineNr">20315 </span> 0x11/imm32/alloc-id:fake +<span id="L20316" class="LineNr">20316 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20317" class="LineNr">20317 </span> 0x11/imm32/alloc-id:fake +<span id="L20318" class="LineNr">20318 </span> <a href='mu.subx.html#L22092'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L20319" class="LineNr">20319 </span> 0/imm32/no-rm32 +<span id="L20320" class="LineNr">20320 </span> 0/imm32/no-r32 +<span id="L20321" class="LineNr">20321 </span> 0/imm32/no-imm32 +<span id="L20322" class="LineNr">20322 </span> 0/imm32/no-imm8 +<span id="L20323" class="LineNr">20323 </span> 0/imm32/no-disp32 +<span id="L20324" class="LineNr">20324 </span> 1/imm32/xm32-is-first-inout +<span id="L20325" class="LineNr">20325 </span> 3/imm32/x32-is-first-output +<span id="L20326" class="LineNr">20326 </span> 0x11/imm32/alloc-id:fake +<span id="L20327" class="LineNr">20327 </span> <a href='mu.subx.html#L20329'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next +<span id="L20328" class="LineNr">20328 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> +<span id="L20329" class="LineNr">20329 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20330" class="LineNr">20330 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20331" class="LineNr">20331 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L20332" class="LineNr">20332 </span> 0x11/imm32/alloc-id:fake +<span id="L20333" class="LineNr">20333 </span> <a href='mu.subx.html#L21810'>_string-inverse-square-root</a>/imm32/name +<span id="L20334" class="LineNr">20334 </span> 0x11/imm32/alloc-id:fake +<span id="L20335" class="LineNr">20335 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L20336" class="LineNr">20336 </span> 0x11/imm32/alloc-id:fake +<span id="L20337" class="LineNr">20337 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20338" class="LineNr">20338 </span> 0x11/imm32/alloc-id:fake +<span id="L20339" class="LineNr">20339 </span> <a href='mu.subx.html#L22097'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L20340" class="LineNr">20340 </span> 0/imm32/no-rm32 +<span id="L20341" class="LineNr">20341 </span> 0/imm32/no-r32 +<span id="L20342" class="LineNr">20342 </span> 0/imm32/no-imm32 +<span id="L20343" class="LineNr">20343 </span> 0/imm32/no-imm8 +<span id="L20344" class="LineNr">20344 </span> 0/imm32/no-disp32 +<span id="L20345" class="LineNr">20345 </span> 1/imm32/xm32-is-first-inout +<span id="L20346" class="LineNr">20346 </span> 3/imm32/x32-is-first-output <span id="L20347" class="LineNr">20347 </span> 0x11/imm32/alloc-id:fake -<span id="L20348" class="LineNr">20348 </span> <a href='mu.subx.html#L21784'>_string_0f_8f_jump_break</a>/imm32/subx-name -<span id="L20349" class="LineNr">20349 </span> 0/imm32/no-rm32 -<span id="L20350" class="LineNr">20350 </span> 0/imm32/no-r32 -<span id="L20351" class="LineNr">20351 </span> 0/imm32/no-imm32 -<span id="L20352" class="LineNr">20352 </span> 0/imm32/no-imm8 -<span id="L20353" class="LineNr">20353 </span> 0/imm32/no-disp32 -<span id="L20354" class="LineNr">20354 </span> 0/imm32/no-xm32 -<span id="L20355" class="LineNr">20355 </span> 0/imm32/no-x32 +<span id="L20348" class="LineNr">20348 </span> <a href='mu.subx.html#L20349'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next +<span id="L20349" class="LineNr">20349 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20350" class="LineNr">20350 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20351" class="LineNr">20351 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L20352" class="LineNr">20352 </span> 0x11/imm32/alloc-id:fake +<span id="L20353" class="LineNr">20353 </span> <a href='mu.subx.html#L21810'>_string-inverse-square-root</a>/imm32/name +<span id="L20354" class="LineNr">20354 </span> 0x11/imm32/alloc-id:fake +<span id="L20355" class="LineNr">20355 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L20356" class="LineNr">20356 </span> 0x11/imm32/alloc-id:fake -<span id="L20357" class="LineNr">20357 </span> <a href='mu.subx.html#L20358'>_Primitive-break</a>/imm32/next -<span id="L20358" class="LineNr">20358 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20359" class="LineNr">20359 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20360" class="LineNr">20360 </span> 0x11/imm32/alloc-id:fake -<span id="L20361" class="LineNr">20361 </span> <a href='mu.subx.html#L21337'>_string-break</a>/imm32/name -<span id="L20362" class="LineNr">20362 </span> 0/imm32/no-inouts -<span id="L20363" class="LineNr">20363 </span> 0/imm32/no-inouts -<span id="L20364" class="LineNr">20364 </span> 0/imm32/no-outputs -<span id="L20365" class="LineNr">20365 </span> 0/imm32/no-outputs -<span id="L20366" class="LineNr">20366 </span> 0x11/imm32/alloc-id:fake -<span id="L20367" class="LineNr">20367 </span> <a href='mu.subx.html#L22084'>_string_e9_jump_break</a>/imm32/subx-name -<span id="L20368" class="LineNr">20368 </span> 0/imm32/no-rm32 -<span id="L20369" class="LineNr">20369 </span> 0/imm32/no-r32 -<span id="L20370" class="LineNr">20370 </span> 0/imm32/no-imm32 -<span id="L20371" class="LineNr">20371 </span> 0/imm32/no-imm8 -<span id="L20372" class="LineNr">20372 </span> 0/imm32/no-disp32 -<span id="L20373" class="LineNr">20373 </span> 0/imm32/no-xm32 -<span id="L20374" class="LineNr">20374 </span> 0/imm32/no-x32 +<span id="L20357" class="LineNr">20357 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L20358" class="LineNr">20358 </span> 0x11/imm32/alloc-id:fake +<span id="L20359" class="LineNr">20359 </span> <a href='mu.subx.html#L22097'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L20360" class="LineNr">20360 </span> 0/imm32/no-rm32 +<span id="L20361" class="LineNr">20361 </span> 0/imm32/no-r32 +<span id="L20362" class="LineNr">20362 </span> 0/imm32/no-imm32 +<span id="L20363" class="LineNr">20363 </span> 0/imm32/no-imm8 +<span id="L20364" class="LineNr">20364 </span> 0/imm32/no-disp32 +<span id="L20365" class="LineNr">20365 </span> 1/imm32/xm32-is-first-inout +<span id="L20366" class="LineNr">20366 </span> 3/imm32/x32-is-first-output +<span id="L20367" class="LineNr">20367 </span> 0x11/imm32/alloc-id:fake +<span id="L20368" class="LineNr">20368 </span> <a href='mu.subx.html#L20370'>_Primitive-compare-xreg-with-xreg</a>/imm32/next +<span id="L20369" class="LineNr">20369 </span><span class="subxH1Comment"># - floating-point compare</span> +<span id="L20370" class="LineNr">20370 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20371" class="LineNr">20371 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20372" class="LineNr">20372 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> +<span id="L20373" class="LineNr">20373 </span> 0x11/imm32/alloc-id:fake +<span id="L20374" class="LineNr">20374 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name <span id="L20375" class="LineNr">20375 </span> 0x11/imm32/alloc-id:fake -<span id="L20376" class="LineNr">20376 </span> <a href='mu.subx.html#L20377'>_Primitive-loop-if-addr<</a>/imm32/next -<span id="L20377" class="LineNr">20377 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20378" class="LineNr">20378 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20376" class="LineNr">20376 </span> <span class="SpecialChar"><a href='mu.subx.html#L22471'>Two-float-args-in-regs</a></span>/imm32/inouts +<span id="L20377" class="LineNr">20377 </span> 0/imm32/no-outputs +<span id="L20378" class="LineNr">20378 </span> 0/imm32/no-outputs <span id="L20379" class="LineNr">20379 </span> 0x11/imm32/alloc-id:fake -<span id="L20380" class="LineNr">20380 </span> <a href='mu.subx.html#L21482'>_string-loop-if-addr<</a>/imm32/name -<span id="L20381" class="LineNr">20381 </span> 0/imm32/no-inouts -<span id="L20382" class="LineNr">20382 </span> 0/imm32/no-inouts -<span id="L20383" class="LineNr">20383 </span> 0/imm32/no-outputs -<span id="L20384" class="LineNr">20384 </span> 0/imm32/no-outputs -<span id="L20385" class="LineNr">20385 </span> 0x11/imm32/alloc-id:fake -<span id="L20386" class="LineNr">20386 </span> <a href='mu.subx.html#L21654'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L20387" class="LineNr">20387 </span> 0/imm32/no-rm32 -<span id="L20388" class="LineNr">20388 </span> 0/imm32/no-r32 -<span id="L20389" class="LineNr">20389 </span> 0/imm32/no-imm32 -<span id="L20390" class="LineNr">20390 </span> 0/imm32/no-imm8 -<span id="L20391" class="LineNr">20391 </span> 0/imm32/no-disp32 -<span id="L20392" class="LineNr">20392 </span> 0/imm32/no-xm32 -<span id="L20393" class="LineNr">20393 </span> 0/imm32/no-x32 -<span id="L20394" class="LineNr">20394 </span> 0x11/imm32/alloc-id:fake -<span id="L20395" class="LineNr">20395 </span> <a href='mu.subx.html#L20396'>_Primitive-loop-if-addr>=</a>/imm32/next -<span id="L20396" class="LineNr">20396 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20397" class="LineNr">20397 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20398" class="LineNr">20398 </span> 0x11/imm32/alloc-id:fake -<span id="L20399" class="LineNr">20399 </span> <a href='mu.subx.html#L21497'>_string-loop-if-addr>=</a>/imm32/name -<span id="L20400" class="LineNr">20400 </span> 0/imm32/no-inouts -<span id="L20401" class="LineNr">20401 </span> 0/imm32/no-inouts -<span id="L20402" class="LineNr">20402 </span> 0/imm32/no-outputs -<span id="L20403" class="LineNr">20403 </span> 0/imm32/no-outputs -<span id="L20404" class="LineNr">20404 </span> 0x11/imm32/alloc-id:fake -<span id="L20405" class="LineNr">20405 </span> <a href='mu.subx.html#L21669'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L20406" class="LineNr">20406 </span> 0/imm32/no-rm32 -<span id="L20407" class="LineNr">20407 </span> 0/imm32/no-r32 -<span id="L20408" class="LineNr">20408 </span> 0/imm32/no-imm32 -<span id="L20409" class="LineNr">20409 </span> 0/imm32/no-imm8 -<span id="L20410" class="LineNr">20410 </span> 0/imm32/no-disp32 -<span id="L20411" class="LineNr">20411 </span> 0/imm32/no-xm32 -<span id="L20412" class="LineNr">20412 </span> 0/imm32/no-x32 +<span id="L20380" class="LineNr">20380 </span> <a href='mu.subx.html#L22122'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L20381" class="LineNr">20381 </span> 0/imm32/no-rm32 +<span id="L20382" class="LineNr">20382 </span> 0/imm32/no-r32 +<span id="L20383" class="LineNr">20383 </span> 0/imm32/no-imm32 +<span id="L20384" class="LineNr">20384 </span> 0/imm32/no-imm8 +<span id="L20385" class="LineNr">20385 </span> 0/imm32/no-disp32 +<span id="L20386" class="LineNr">20386 </span> 1/imm32/xm32-is-first-inout +<span id="L20387" class="LineNr">20387 </span> 2/imm32/x32-is-second-inout +<span id="L20388" class="LineNr">20388 </span> 0x11/imm32/alloc-id:fake +<span id="L20389" class="LineNr">20389 </span> <a href='mu.subx.html#L20390'>_Primitive-compare-xreg-with-mem</a>/imm32/next +<span id="L20390" class="LineNr">20390 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20391" class="LineNr">20391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20392" class="LineNr">20392 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> +<span id="L20393" class="LineNr">20393 </span> 0x11/imm32/alloc-id:fake +<span id="L20394" class="LineNr">20394 </span> <a href='mu.subx.html#L21655'>_string-compare</a>/imm32/name +<span id="L20395" class="LineNr">20395 </span> 0x11/imm32/alloc-id:fake +<span id="L20396" class="LineNr">20396 </span> <span class="SpecialChar"><a href='mu.subx.html#L22478'>Two-args-float-reg-float-stack</a></span>/imm32/inouts +<span id="L20397" class="LineNr">20397 </span> 0/imm32/no-outputs +<span id="L20398" class="LineNr">20398 </span> 0/imm32/no-outputs +<span id="L20399" class="LineNr">20399 </span> 0x11/imm32/alloc-id:fake +<span id="L20400" class="LineNr">20400 </span> <a href='mu.subx.html#L22122'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L20401" class="LineNr">20401 </span> 0/imm32/no-rm32 +<span id="L20402" class="LineNr">20402 </span> 0/imm32/no-r32 +<span id="L20403" class="LineNr">20403 </span> 0/imm32/no-imm32 +<span id="L20404" class="LineNr">20404 </span> 0/imm32/no-imm8 +<span id="L20405" class="LineNr">20405 </span> 0/imm32/no-disp32 +<span id="L20406" class="LineNr">20406 </span> 2/imm32/xm32-is-second-inout +<span id="L20407" class="LineNr">20407 </span> 1/imm32/x32-is-first-inout +<span id="L20408" class="LineNr">20408 </span> 0x11/imm32/alloc-id:fake +<span id="L20409" class="LineNr">20409 </span> <a href='mu.subx.html#L20411'>_Primitive-break-if-addr<</a>/imm32/next +<span id="L20410" class="LineNr">20410 </span><span class="subxH1Comment"># - branches</span> +<span id="L20411" class="LineNr">20411 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20412" class="LineNr">20412 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20413" class="LineNr">20413 </span> 0x11/imm32/alloc-id:fake -<span id="L20414" class="LineNr">20414 </span> <a href='mu.subx.html#L20415'>_Primitive-loop-if-=</a>/imm32/next -<span id="L20415" class="LineNr">20415 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20416" class="LineNr">20416 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20417" class="LineNr">20417 </span> 0x11/imm32/alloc-id:fake -<span id="L20418" class="LineNr">20418 </span> <a href='mu.subx.html#L21462'>_string-loop-if-=</a>/imm32/name -<span id="L20419" class="LineNr">20419 </span> 0/imm32/no-inouts -<span id="L20420" class="LineNr">20420 </span> 0/imm32/no-inouts -<span id="L20421" class="LineNr">20421 </span> 0/imm32/no-outputs -<span id="L20422" class="LineNr">20422 </span> 0/imm32/no-outputs -<span id="L20423" class="LineNr">20423 </span> 0x11/imm32/alloc-id:fake -<span id="L20424" class="LineNr">20424 </span> <a href='mu.subx.html#L21684'>_string_0f_84_jump_loop</a>/imm32/subx-name -<span id="L20425" class="LineNr">20425 </span> 0/imm32/no-rm32 -<span id="L20426" class="LineNr">20426 </span> 0/imm32/no-r32 -<span id="L20427" class="LineNr">20427 </span> 0/imm32/no-imm32 -<span id="L20428" class="LineNr">20428 </span> 0/imm32/no-imm8 -<span id="L20429" class="LineNr">20429 </span> 0/imm32/no-disp32 -<span id="L20430" class="LineNr">20430 </span> 0/imm32/no-xm32 -<span id="L20431" class="LineNr">20431 </span> 0/imm32/no-x32 +<span id="L20414" class="LineNr">20414 </span> <a href='mu.subx.html#L21615'>_string-break-if-addr<</a>/imm32/name +<span id="L20415" class="LineNr">20415 </span> 0/imm32/no-inouts +<span id="L20416" class="LineNr">20416 </span> 0/imm32/no-inouts +<span id="L20417" class="LineNr">20417 </span> 0/imm32/no-outputs +<span id="L20418" class="LineNr">20418 </span> 0/imm32/no-outputs +<span id="L20419" class="LineNr">20419 </span> 0x11/imm32/alloc-id:fake +<span id="L20420" class="LineNr">20420 </span> <a href='mu.subx.html#L21902'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L20421" class="LineNr">20421 </span> 0/imm32/no-rm32 +<span id="L20422" class="LineNr">20422 </span> 0/imm32/no-r32 +<span id="L20423" class="LineNr">20423 </span> 0/imm32/no-imm32 +<span id="L20424" class="LineNr">20424 </span> 0/imm32/no-imm8 +<span id="L20425" class="LineNr">20425 </span> 0/imm32/no-disp32 +<span id="L20426" class="LineNr">20426 </span> 0/imm32/no-xm32 +<span id="L20427" class="LineNr">20427 </span> 0/imm32/no-x32 +<span id="L20428" class="LineNr">20428 </span> 0x11/imm32/alloc-id:fake +<span id="L20429" class="LineNr">20429 </span> <a href='mu.subx.html#L20430'>_Primitive-break-if-addr>=</a>/imm32/next +<span id="L20430" class="LineNr">20430 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20431" class="LineNr">20431 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20432" class="LineNr">20432 </span> 0x11/imm32/alloc-id:fake -<span id="L20433" class="LineNr">20433 </span> <a href='mu.subx.html#L20434'>_Primitive-loop-if-!=</a>/imm32/next -<span id="L20434" class="LineNr">20434 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20435" class="LineNr">20435 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20436" class="LineNr">20436 </span> 0x11/imm32/alloc-id:fake -<span id="L20437" class="LineNr">20437 </span> <a href='mu.subx.html#L21477'>_string-loop-if-!=</a>/imm32/name -<span id="L20438" class="LineNr">20438 </span> 0/imm32/no-inouts -<span id="L20439" class="LineNr">20439 </span> 0/imm32/no-inouts -<span id="L20440" class="LineNr">20440 </span> 0/imm32/no-outputs -<span id="L20441" class="LineNr">20441 </span> 0/imm32/no-outputs -<span id="L20442" class="LineNr">20442 </span> 0x11/imm32/alloc-id:fake -<span id="L20443" class="LineNr">20443 </span> <a href='mu.subx.html#L21699'>_string_0f_85_jump_loop</a>/imm32/subx-name -<span id="L20444" class="LineNr">20444 </span> 0/imm32/no-rm32 -<span id="L20445" class="LineNr">20445 </span> 0/imm32/no-r32 -<span id="L20446" class="LineNr">20446 </span> 0/imm32/no-imm32 -<span id="L20447" class="LineNr">20447 </span> 0/imm32/no-imm8 -<span id="L20448" class="LineNr">20448 </span> 0/imm32/no-disp32 -<span id="L20449" class="LineNr">20449 </span> 0/imm32/no-xm32 -<span id="L20450" class="LineNr">20450 </span> 0/imm32/no-x32 +<span id="L20433" class="LineNr">20433 </span> <a href='mu.subx.html#L21630'>_string-break-if-addr>=</a>/imm32/name +<span id="L20434" class="LineNr">20434 </span> 0/imm32/no-inouts +<span id="L20435" class="LineNr">20435 </span> 0/imm32/no-inouts +<span id="L20436" class="LineNr">20436 </span> 0/imm32/no-outputs +<span id="L20437" class="LineNr">20437 </span> 0/imm32/no-outputs +<span id="L20438" class="LineNr">20438 </span> 0x11/imm32/alloc-id:fake +<span id="L20439" class="LineNr">20439 </span> <a href='mu.subx.html#L21917'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L20440" class="LineNr">20440 </span> 0/imm32/no-rm32 +<span id="L20441" class="LineNr">20441 </span> 0/imm32/no-r32 +<span id="L20442" class="LineNr">20442 </span> 0/imm32/no-imm32 +<span id="L20443" class="LineNr">20443 </span> 0/imm32/no-imm8 +<span id="L20444" class="LineNr">20444 </span> 0/imm32/no-disp32 +<span id="L20445" class="LineNr">20445 </span> 0/imm32/no-xm32 +<span id="L20446" class="LineNr">20446 </span> 0/imm32/no-x32 +<span id="L20447" class="LineNr">20447 </span> 0x11/imm32/alloc-id:fake +<span id="L20448" class="LineNr">20448 </span> <a href='mu.subx.html#L20449'>_Primitive-break-if-=</a>/imm32/next +<span id="L20449" class="LineNr">20449 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20450" class="LineNr">20450 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20451" class="LineNr">20451 </span> 0x11/imm32/alloc-id:fake -<span id="L20452" class="LineNr">20452 </span> <a href='mu.subx.html#L20453'>_Primitive-loop-if-addr<=</a>/imm32/next -<span id="L20453" class="LineNr">20453 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20454" class="LineNr">20454 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20455" class="LineNr">20455 </span> 0x11/imm32/alloc-id:fake -<span id="L20456" class="LineNr">20456 </span> <a href='mu.subx.html#L21487'>_string-loop-if-addr<=</a>/imm32/name -<span id="L20457" class="LineNr">20457 </span> 0/imm32/no-inouts -<span id="L20458" class="LineNr">20458 </span> 0/imm32/no-inouts -<span id="L20459" class="LineNr">20459 </span> 0/imm32/no-outputs -<span id="L20460" class="LineNr">20460 </span> 0/imm32/no-outputs -<span id="L20461" class="LineNr">20461 </span> 0x11/imm32/alloc-id:fake -<span id="L20462" class="LineNr">20462 </span> <a href='mu.subx.html#L21714'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L20463" class="LineNr">20463 </span> 0/imm32/no-rm32 -<span id="L20464" class="LineNr">20464 </span> 0/imm32/no-r32 -<span id="L20465" class="LineNr">20465 </span> 0/imm32/no-imm32 -<span id="L20466" class="LineNr">20466 </span> 0/imm32/no-imm8 -<span id="L20467" class="LineNr">20467 </span> 0/imm32/no-disp32 -<span id="L20468" class="LineNr">20468 </span> 0/imm32/no-xm32 -<span id="L20469" class="LineNr">20469 </span> 0/imm32/no-x32 +<span id="L20452" class="LineNr">20452 </span> <a href='mu.subx.html#L21595'>_string-break-if-=</a>/imm32/name +<span id="L20453" class="LineNr">20453 </span> 0/imm32/no-inouts +<span id="L20454" class="LineNr">20454 </span> 0/imm32/no-inouts +<span id="L20455" class="LineNr">20455 </span> 0/imm32/no-outputs +<span id="L20456" class="LineNr">20456 </span> 0/imm32/no-outputs +<span id="L20457" class="LineNr">20457 </span> 0x11/imm32/alloc-id:fake +<span id="L20458" class="LineNr">20458 </span> <a href='mu.subx.html#L21932'>_string_0f_84_jump_break</a>/imm32/subx-name +<span id="L20459" class="LineNr">20459 </span> 0/imm32/no-rm32 +<span id="L20460" class="LineNr">20460 </span> 0/imm32/no-r32 +<span id="L20461" class="LineNr">20461 </span> 0/imm32/no-imm32 +<span id="L20462" class="LineNr">20462 </span> 0/imm32/no-imm8 +<span id="L20463" class="LineNr">20463 </span> 0/imm32/no-disp32 +<span id="L20464" class="LineNr">20464 </span> 0/imm32/no-xm32 +<span id="L20465" class="LineNr">20465 </span> 0/imm32/no-x32 +<span id="L20466" class="LineNr">20466 </span> 0x11/imm32/alloc-id:fake +<span id="L20467" class="LineNr">20467 </span> <a href='mu.subx.html#L20468'>_Primitive-break-if-!=</a>/imm32/next +<span id="L20468" class="LineNr">20468 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20469" class="LineNr">20469 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20470" class="LineNr">20470 </span> 0x11/imm32/alloc-id:fake -<span id="L20471" class="LineNr">20471 </span> <a href='mu.subx.html#L20472'>_Primitive-loop-if-addr></a>/imm32/next -<span id="L20472" class="LineNr">20472 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20473" class="LineNr">20473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20474" class="LineNr">20474 </span> 0x11/imm32/alloc-id:fake -<span id="L20475" class="LineNr">20475 </span> <a href='mu.subx.html#L21492'>_string-loop-if-addr></a>/imm32/name -<span id="L20476" class="LineNr">20476 </span> 0/imm32/no-inouts -<span id="L20477" class="LineNr">20477 </span> 0/imm32/no-inouts -<span id="L20478" class="LineNr">20478 </span> 0/imm32/no-outputs -<span id="L20479" class="LineNr">20479 </span> 0/imm32/no-outputs -<span id="L20480" class="LineNr">20480 </span> 0x11/imm32/alloc-id:fake -<span id="L20481" class="LineNr">20481 </span> <a href='mu.subx.html#L21729'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L20482" class="LineNr">20482 </span> 0/imm32/no-rm32 -<span id="L20483" class="LineNr">20483 </span> 0/imm32/no-r32 -<span id="L20484" class="LineNr">20484 </span> 0/imm32/no-imm32 -<span id="L20485" class="LineNr">20485 </span> 0/imm32/no-imm8 -<span id="L20486" class="LineNr">20486 </span> 0/imm32/no-disp32 -<span id="L20487" class="LineNr">20487 </span> 0/imm32/no-xm32 -<span id="L20488" class="LineNr">20488 </span> 0/imm32/no-x32 +<span id="L20471" class="LineNr">20471 </span> <a href='mu.subx.html#L21610'>_string-break-if-!=</a>/imm32/name +<span id="L20472" class="LineNr">20472 </span> 0/imm32/no-inouts +<span id="L20473" class="LineNr">20473 </span> 0/imm32/no-inouts +<span id="L20474" class="LineNr">20474 </span> 0/imm32/no-outputs +<span id="L20475" class="LineNr">20475 </span> 0/imm32/no-outputs +<span id="L20476" class="LineNr">20476 </span> 0x11/imm32/alloc-id:fake +<span id="L20477" class="LineNr">20477 </span> <a href='mu.subx.html#L21947'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L20478" class="LineNr">20478 </span> 0/imm32/no-rm32 +<span id="L20479" class="LineNr">20479 </span> 0/imm32/no-r32 +<span id="L20480" class="LineNr">20480 </span> 0/imm32/no-imm32 +<span id="L20481" class="LineNr">20481 </span> 0/imm32/no-imm8 +<span id="L20482" class="LineNr">20482 </span> 0/imm32/no-disp32 +<span id="L20483" class="LineNr">20483 </span> 0/imm32/no-xm32 +<span id="L20484" class="LineNr">20484 </span> 0/imm32/no-x32 +<span id="L20485" class="LineNr">20485 </span> 0x11/imm32/alloc-id:fake +<span id="L20486" class="LineNr">20486 </span> <a href='mu.subx.html#L20487'>_Primitive-break-if-addr<=</a>/imm32/next +<span id="L20487" class="LineNr">20487 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20488" class="LineNr">20488 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20489" class="LineNr">20489 </span> 0x11/imm32/alloc-id:fake -<span id="L20490" class="LineNr">20490 </span> <a href='mu.subx.html#L20491'>_Primitive-loop-if-<</a>/imm32/next -<span id="L20491" class="LineNr">20491 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20492" class="LineNr">20492 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20493" class="LineNr">20493 </span> 0x11/imm32/alloc-id:fake -<span id="L20494" class="LineNr">20494 </span> <a href='mu.subx.html#L21452'>_string-loop-if-<</a>/imm32/name -<span id="L20495" class="LineNr">20495 </span> 0/imm32/no-inouts -<span id="L20496" class="LineNr">20496 </span> 0/imm32/no-inouts -<span id="L20497" class="LineNr">20497 </span> 0/imm32/no-outputs -<span id="L20498" class="LineNr">20498 </span> 0/imm32/no-outputs -<span id="L20499" class="LineNr">20499 </span> 0x11/imm32/alloc-id:fake -<span id="L20500" class="LineNr">20500 </span> <a href='mu.subx.html#L21744'>_string_0f_8c_jump_loop</a>/imm32/subx-name -<span id="L20501" class="LineNr">20501 </span> 0/imm32/no-rm32 -<span id="L20502" class="LineNr">20502 </span> 0/imm32/no-r32 -<span id="L20503" class="LineNr">20503 </span> 0/imm32/no-imm32 -<span id="L20504" class="LineNr">20504 </span> 0/imm32/no-imm8 -<span id="L20505" class="LineNr">20505 </span> 0/imm32/no-disp32 -<span id="L20506" class="LineNr">20506 </span> 0/imm32/no-xm32 -<span id="L20507" class="LineNr">20507 </span> 0/imm32/no-x32 +<span id="L20490" class="LineNr">20490 </span> <a href='mu.subx.html#L21620'>_string-break-if-addr<=</a>/imm32/name +<span id="L20491" class="LineNr">20491 </span> 0/imm32/no-inouts +<span id="L20492" class="LineNr">20492 </span> 0/imm32/no-inouts +<span id="L20493" class="LineNr">20493 </span> 0/imm32/no-outputs +<span id="L20494" class="LineNr">20494 </span> 0/imm32/no-outputs +<span id="L20495" class="LineNr">20495 </span> 0x11/imm32/alloc-id:fake +<span id="L20496" class="LineNr">20496 </span> <a href='mu.subx.html#L21962'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L20497" class="LineNr">20497 </span> 0/imm32/no-rm32 +<span id="L20498" class="LineNr">20498 </span> 0/imm32/no-r32 +<span id="L20499" class="LineNr">20499 </span> 0/imm32/no-imm32 +<span id="L20500" class="LineNr">20500 </span> 0/imm32/no-imm8 +<span id="L20501" class="LineNr">20501 </span> 0/imm32/no-disp32 +<span id="L20502" class="LineNr">20502 </span> 0/imm32/no-xm32 +<span id="L20503" class="LineNr">20503 </span> 0/imm32/no-x32 +<span id="L20504" class="LineNr">20504 </span> 0x11/imm32/alloc-id:fake +<span id="L20505" class="LineNr">20505 </span> <a href='mu.subx.html#L20506'>_Primitive-break-if-addr></a>/imm32/next +<span id="L20506" class="LineNr">20506 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20507" class="LineNr">20507 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20508" class="LineNr">20508 </span> 0x11/imm32/alloc-id:fake -<span id="L20509" class="LineNr">20509 </span> <a href='mu.subx.html#L20510'>_Primitive-loop-if->=</a>/imm32/next -<span id="L20510" class="LineNr">20510 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20511" class="LineNr">20511 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20512" class="LineNr">20512 </span> 0x11/imm32/alloc-id:fake -<span id="L20513" class="LineNr">20513 </span> <a href='mu.subx.html#L21472'>_string-loop-if->=</a>/imm32/name -<span id="L20514" class="LineNr">20514 </span> 0/imm32/no-inouts -<span id="L20515" class="LineNr">20515 </span> 0/imm32/no-inouts -<span id="L20516" class="LineNr">20516 </span> 0/imm32/no-outputs -<span id="L20517" class="LineNr">20517 </span> 0/imm32/no-outputs -<span id="L20518" class="LineNr">20518 </span> 0x11/imm32/alloc-id:fake -<span id="L20519" class="LineNr">20519 </span> <a href='mu.subx.html#L21759'>_string_0f_8d_jump_loop</a>/imm32/subx-name -<span id="L20520" class="LineNr">20520 </span> 0/imm32/no-rm32 -<span id="L20521" class="LineNr">20521 </span> 0/imm32/no-r32 -<span id="L20522" class="LineNr">20522 </span> 0/imm32/no-imm32 -<span id="L20523" class="LineNr">20523 </span> 0/imm32/no-imm8 -<span id="L20524" class="LineNr">20524 </span> 0/imm32/no-disp32 -<span id="L20525" class="LineNr">20525 </span> 0/imm32/no-xm32 -<span id="L20526" class="LineNr">20526 </span> 0/imm32/no-x32 +<span id="L20509" class="LineNr">20509 </span> <a href='mu.subx.html#L21625'>_string-break-if-addr></a>/imm32/name +<span id="L20510" class="LineNr">20510 </span> 0/imm32/no-inouts +<span id="L20511" class="LineNr">20511 </span> 0/imm32/no-inouts +<span id="L20512" class="LineNr">20512 </span> 0/imm32/no-outputs +<span id="L20513" class="LineNr">20513 </span> 0/imm32/no-outputs +<span id="L20514" class="LineNr">20514 </span> 0x11/imm32/alloc-id:fake +<span id="L20515" class="LineNr">20515 </span> <a href='mu.subx.html#L21977'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L20516" class="LineNr">20516 </span> 0/imm32/no-rm32 +<span id="L20517" class="LineNr">20517 </span> 0/imm32/no-r32 +<span id="L20518" class="LineNr">20518 </span> 0/imm32/no-imm32 +<span id="L20519" class="LineNr">20519 </span> 0/imm32/no-imm8 +<span id="L20520" class="LineNr">20520 </span> 0/imm32/no-disp32 +<span id="L20521" class="LineNr">20521 </span> 0/imm32/no-xm32 +<span id="L20522" class="LineNr">20522 </span> 0/imm32/no-x32 +<span id="L20523" class="LineNr">20523 </span> 0x11/imm32/alloc-id:fake +<span id="L20524" class="LineNr">20524 </span> <a href='mu.subx.html#L20525'>_Primitive-break-if-<</a>/imm32/next +<span id="L20525" class="LineNr">20525 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20526" class="LineNr">20526 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20527" class="LineNr">20527 </span> 0x11/imm32/alloc-id:fake -<span id="L20528" class="LineNr">20528 </span> <a href='mu.subx.html#L20529'>_Primitive-loop-if-<=</a>/imm32/next -<span id="L20529" class="LineNr">20529 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20530" class="LineNr">20530 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20531" class="LineNr">20531 </span> 0x11/imm32/alloc-id:fake -<span id="L20532" class="LineNr">20532 </span> <a href='mu.subx.html#L21457'>_string-loop-if-<=</a>/imm32/name -<span id="L20533" class="LineNr">20533 </span> 0/imm32/no-inouts -<span id="L20534" class="LineNr">20534 </span> 0/imm32/no-inouts -<span id="L20535" class="LineNr">20535 </span> 0/imm32/no-outputs -<span id="L20536" class="LineNr">20536 </span> 0/imm32/no-outputs -<span id="L20537" class="LineNr">20537 </span> 0x11/imm32/alloc-id:fake -<span id="L20538" class="LineNr">20538 </span> <a href='mu.subx.html#L21774'>_string_0f_8e_jump_loop</a>/imm32/subx-name -<span id="L20539" class="LineNr">20539 </span> 0/imm32/no-rm32 -<span id="L20540" class="LineNr">20540 </span> 0/imm32/no-r32 -<span id="L20541" class="LineNr">20541 </span> 0/imm32/no-imm32 -<span id="L20542" class="LineNr">20542 </span> 0/imm32/no-imm8 -<span id="L20543" class="LineNr">20543 </span> 0/imm32/no-disp32 -<span id="L20544" class="LineNr">20544 </span> 0/imm32/no-xm32 -<span id="L20545" class="LineNr">20545 </span> 0/imm32/no-x32 +<span id="L20528" class="LineNr">20528 </span> <a href='mu.subx.html#L21585'>_string-break-if-<</a>/imm32/name +<span id="L20529" class="LineNr">20529 </span> 0/imm32/no-inouts +<span id="L20530" class="LineNr">20530 </span> 0/imm32/no-inouts +<span id="L20531" class="LineNr">20531 </span> 0/imm32/no-outputs +<span id="L20532" class="LineNr">20532 </span> 0/imm32/no-outputs +<span id="L20533" class="LineNr">20533 </span> 0x11/imm32/alloc-id:fake +<span id="L20534" class="LineNr">20534 </span> <a href='mu.subx.html#L21992'>_string_0f_8c_jump_break</a>/imm32/subx-name +<span id="L20535" class="LineNr">20535 </span> 0/imm32/no-rm32 +<span id="L20536" class="LineNr">20536 </span> 0/imm32/no-r32 +<span id="L20537" class="LineNr">20537 </span> 0/imm32/no-imm32 +<span id="L20538" class="LineNr">20538 </span> 0/imm32/no-imm8 +<span id="L20539" class="LineNr">20539 </span> 0/imm32/no-disp32 +<span id="L20540" class="LineNr">20540 </span> 0/imm32/no-xm32 +<span id="L20541" class="LineNr">20541 </span> 0/imm32/no-x32 +<span id="L20542" class="LineNr">20542 </span> 0x11/imm32/alloc-id:fake +<span id="L20543" class="LineNr">20543 </span> <a href='mu.subx.html#L20544'>_Primitive-break-if->=</a>/imm32/next +<span id="L20544" class="LineNr">20544 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20545" class="LineNr">20545 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20546" class="LineNr">20546 </span> 0x11/imm32/alloc-id:fake -<span id="L20547" class="LineNr">20547 </span> <a href='mu.subx.html#L20548'>_Primitive-loop-if-></a>/imm32/next -<span id="L20548" class="LineNr">20548 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20549" class="LineNr">20549 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20550" class="LineNr">20550 </span> 0x11/imm32/alloc-id:fake -<span id="L20551" class="LineNr">20551 </span> <a href='mu.subx.html#L21467'>_string-loop-if-></a>/imm32/name -<span id="L20552" class="LineNr">20552 </span> 0/imm32/no-inouts -<span id="L20553" class="LineNr">20553 </span> 0/imm32/no-inouts -<span id="L20554" class="LineNr">20554 </span> 0/imm32/no-outputs -<span id="L20555" class="LineNr">20555 </span> 0/imm32/no-outputs -<span id="L20556" class="LineNr">20556 </span> 0x11/imm32/alloc-id:fake -<span id="L20557" class="LineNr">20557 </span> <a href='mu.subx.html#L21789'>_string_0f_8f_jump_loop</a>/imm32/subx-name -<span id="L20558" class="LineNr">20558 </span> 0/imm32/no-rm32 -<span id="L20559" class="LineNr">20559 </span> 0/imm32/no-r32 -<span id="L20560" class="LineNr">20560 </span> 0/imm32/no-imm32 -<span id="L20561" class="LineNr">20561 </span> 0/imm32/no-imm8 -<span id="L20562" class="LineNr">20562 </span> 0/imm32/no-disp32 -<span id="L20563" class="LineNr">20563 </span> 0/imm32/no-xm32 -<span id="L20564" class="LineNr">20564 </span> 0/imm32/no-x32 +<span id="L20547" class="LineNr">20547 </span> <a href='mu.subx.html#L21605'>_string-break-if->=</a>/imm32/name +<span id="L20548" class="LineNr">20548 </span> 0/imm32/no-inouts +<span id="L20549" class="LineNr">20549 </span> 0/imm32/no-inouts +<span id="L20550" class="LineNr">20550 </span> 0/imm32/no-outputs +<span id="L20551" class="LineNr">20551 </span> 0/imm32/no-outputs +<span id="L20552" class="LineNr">20552 </span> 0x11/imm32/alloc-id:fake +<span id="L20553" class="LineNr">20553 </span> <a href='mu.subx.html#L22007'>_string_0f_8d_jump_break</a>/imm32/subx-name +<span id="L20554" class="LineNr">20554 </span> 0/imm32/no-rm32 +<span id="L20555" class="LineNr">20555 </span> 0/imm32/no-r32 +<span id="L20556" class="LineNr">20556 </span> 0/imm32/no-imm32 +<span id="L20557" class="LineNr">20557 </span> 0/imm32/no-imm8 +<span id="L20558" class="LineNr">20558 </span> 0/imm32/no-disp32 +<span id="L20559" class="LineNr">20559 </span> 0/imm32/no-xm32 +<span id="L20560" class="LineNr">20560 </span> 0/imm32/no-x32 +<span id="L20561" class="LineNr">20561 </span> 0x11/imm32/alloc-id:fake +<span id="L20562" class="LineNr">20562 </span> <a href='mu.subx.html#L20563'>_Primitive-break-if-<=</a>/imm32/next +<span id="L20563" class="LineNr">20563 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20564" class="LineNr">20564 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20565" class="LineNr">20565 </span> 0x11/imm32/alloc-id:fake -<span id="L20566" class="LineNr">20566 </span> <a href='mu.subx.html#L20567'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L20567" class="LineNr">20567 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20568" class="LineNr">20568 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20569" class="LineNr">20569 </span> 0x11/imm32/alloc-id:fake -<span id="L20570" class="LineNr">20570 </span> <a href='mu.subx.html#L21447'>_string-loop</a>/imm32/name -<span id="L20571" class="LineNr">20571 </span> 0/imm32/no-inouts -<span id="L20572" class="LineNr">20572 </span> 0/imm32/no-inouts -<span id="L20573" class="LineNr">20573 </span> 0/imm32/no-outputs -<span id="L20574" class="LineNr">20574 </span> 0/imm32/no-outputs -<span id="L20575" class="LineNr">20575 </span> 0x11/imm32/alloc-id:fake -<span id="L20576" class="LineNr">20576 </span> <a href='mu.subx.html#L22089'>_string_e9_jump_loop</a>/imm32/subx-name -<span id="L20577" class="LineNr">20577 </span> 0/imm32/no-rm32 -<span id="L20578" class="LineNr">20578 </span> 0/imm32/no-r32 -<span id="L20579" class="LineNr">20579 </span> 0/imm32/no-imm32 -<span id="L20580" class="LineNr">20580 </span> 0/imm32/no-imm8 -<span id="L20581" class="LineNr">20581 </span> 0/imm32/no-disp32 -<span id="L20582" class="LineNr">20582 </span> 0/imm32/no-xm32 -<span id="L20583" class="LineNr">20583 </span> 0/imm32/no-x32 +<span id="L20566" class="LineNr">20566 </span> <a href='mu.subx.html#L21590'>_string-break-if-<=</a>/imm32/name +<span id="L20567" class="LineNr">20567 </span> 0/imm32/no-inouts +<span id="L20568" class="LineNr">20568 </span> 0/imm32/no-inouts +<span id="L20569" class="LineNr">20569 </span> 0/imm32/no-outputs +<span id="L20570" class="LineNr">20570 </span> 0/imm32/no-outputs +<span id="L20571" class="LineNr">20571 </span> 0x11/imm32/alloc-id:fake +<span id="L20572" class="LineNr">20572 </span> <a href='mu.subx.html#L22022'>_string_0f_8e_jump_break</a>/imm32/subx-name +<span id="L20573" class="LineNr">20573 </span> 0/imm32/no-rm32 +<span id="L20574" class="LineNr">20574 </span> 0/imm32/no-r32 +<span id="L20575" class="LineNr">20575 </span> 0/imm32/no-imm32 +<span id="L20576" class="LineNr">20576 </span> 0/imm32/no-imm8 +<span id="L20577" class="LineNr">20577 </span> 0/imm32/no-disp32 +<span id="L20578" class="LineNr">20578 </span> 0/imm32/no-xm32 +<span id="L20579" class="LineNr">20579 </span> 0/imm32/no-x32 +<span id="L20580" class="LineNr">20580 </span> 0x11/imm32/alloc-id:fake +<span id="L20581" class="LineNr">20581 </span> <a href='mu.subx.html#L20582'>_Primitive-break-if-></a>/imm32/next +<span id="L20582" class="LineNr">20582 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20583" class="LineNr">20583 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20584" class="LineNr">20584 </span> 0x11/imm32/alloc-id:fake -<span id="L20585" class="LineNr">20585 </span> <a href='mu.subx.html#L20587'>_Primitive-break-if-addr<-named</a>/imm32/next -<span id="L20586" class="LineNr">20586 </span><span class="subxH1Comment"># - branches to named blocks</span> -<span id="L20587" class="LineNr">20587 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20588" class="LineNr">20588 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20589" class="LineNr">20589 </span> 0x11/imm32/alloc-id:fake -<span id="L20590" class="LineNr">20590 </span> <a href='mu.subx.html#L21372'>_string-break-if-addr<</a>/imm32/name -<span id="L20591" class="LineNr">20591 </span> 0x11/imm32/alloc-id:fake -<span id="L20592" class="LineNr">20592 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20593" class="LineNr">20593 </span> 0/imm32/no-outputs -<span id="L20594" class="LineNr">20594 </span> 0/imm32/no-outputs -<span id="L20595" class="LineNr">20595 </span> 0x11/imm32/alloc-id:fake -<span id="L20596" class="LineNr">20596 </span> <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L20597" class="LineNr">20597 </span> 0/imm32/no-rm32 -<span id="L20598" class="LineNr">20598 </span> 0/imm32/no-r32 -<span id="L20599" class="LineNr">20599 </span> 0/imm32/no-imm32 -<span id="L20600" class="LineNr">20600 </span> 0/imm32/no-imm8 -<span id="L20601" class="LineNr">20601 </span> 1/imm32/disp32-is-first-inout -<span id="L20602" class="LineNr">20602 </span> 0/imm32/no-xm32 -<span id="L20603" class="LineNr">20603 </span> 0/imm32/no-x32 -<span id="L20604" class="LineNr">20604 </span> 0x11/imm32/alloc-id:fake -<span id="L20605" class="LineNr">20605 </span> <a href='mu.subx.html#L20606'>_Primitive-break-if-addr>=-named</a>/imm32/next -<span id="L20606" class="LineNr">20606 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20607" class="LineNr">20607 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20608" class="LineNr">20608 </span> 0x11/imm32/alloc-id:fake -<span id="L20609" class="LineNr">20609 </span> <a href='mu.subx.html#L21387'>_string-break-if-addr>=</a>/imm32/name -<span id="L20610" class="LineNr">20610 </span> 0x11/imm32/alloc-id:fake -<span id="L20611" class="LineNr">20611 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20612" class="LineNr">20612 </span> 0/imm32/no-outputs -<span id="L20613" class="LineNr">20613 </span> 0/imm32/no-outputs -<span id="L20614" class="LineNr">20614 </span> 0x11/imm32/alloc-id:fake -<span id="L20615" class="LineNr">20615 </span> <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L20616" class="LineNr">20616 </span> 0/imm32/no-rm32 -<span id="L20617" class="LineNr">20617 </span> 0/imm32/no-r32 -<span id="L20618" class="LineNr">20618 </span> 0/imm32/no-imm32 -<span id="L20619" class="LineNr">20619 </span> 0/imm32/no-imm8 -<span id="L20620" class="LineNr">20620 </span> 1/imm32/disp32-is-first-inout -<span id="L20621" class="LineNr">20621 </span> 0/imm32/no-xm32 -<span id="L20622" class="LineNr">20622 </span> 0/imm32/no-x32 -<span id="L20623" class="LineNr">20623 </span> 0x11/imm32/alloc-id:fake -<span id="L20624" class="LineNr">20624 </span> <a href='mu.subx.html#L20625'>_Primitive-break-if-=-named</a>/imm32/next -<span id="L20625" class="LineNr">20625 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20626" class="LineNr">20626 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20627" class="LineNr">20627 </span> 0x11/imm32/alloc-id:fake -<span id="L20628" class="LineNr">20628 </span> <a href='mu.subx.html#L21352'>_string-break-if-=</a>/imm32/name -<span id="L20629" class="LineNr">20629 </span> 0x11/imm32/alloc-id:fake -<span id="L20630" class="LineNr">20630 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20631" class="LineNr">20631 </span> 0/imm32/no-outputs -<span id="L20632" class="LineNr">20632 </span> 0/imm32/no-outputs -<span id="L20633" class="LineNr">20633 </span> 0x11/imm32/alloc-id:fake -<span id="L20634" class="LineNr">20634 </span> <a href='mu.subx.html#L21674'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L20635" class="LineNr">20635 </span> 0/imm32/no-rm32 -<span id="L20636" class="LineNr">20636 </span> 0/imm32/no-r32 -<span id="L20637" class="LineNr">20637 </span> 0/imm32/no-imm32 -<span id="L20638" class="LineNr">20638 </span> 0/imm32/no-imm8 -<span id="L20639" class="LineNr">20639 </span> 1/imm32/disp32-is-first-inout -<span id="L20640" class="LineNr">20640 </span> 0/imm32/no-xm32 -<span id="L20641" class="LineNr">20641 </span> 0/imm32/no-x32 -<span id="L20642" class="LineNr">20642 </span> 0x11/imm32/alloc-id:fake -<span id="L20643" class="LineNr">20643 </span> <a href='mu.subx.html#L20644'>_Primitive-break-if-!=-named</a>/imm32/next -<span id="L20644" class="LineNr">20644 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20645" class="LineNr">20645 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20646" class="LineNr">20646 </span> 0x11/imm32/alloc-id:fake -<span id="L20647" class="LineNr">20647 </span> <a href='mu.subx.html#L21367'>_string-break-if-!=</a>/imm32/name -<span id="L20648" class="LineNr">20648 </span> 0x11/imm32/alloc-id:fake -<span id="L20649" class="LineNr">20649 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20650" class="LineNr">20650 </span> 0/imm32/no-outputs -<span id="L20651" class="LineNr">20651 </span> 0/imm32/no-outputs -<span id="L20652" class="LineNr">20652 </span> 0x11/imm32/alloc-id:fake -<span id="L20653" class="LineNr">20653 </span> <a href='mu.subx.html#L21689'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L20654" class="LineNr">20654 </span> 0/imm32/no-rm32 -<span id="L20655" class="LineNr">20655 </span> 0/imm32/no-r32 -<span id="L20656" class="LineNr">20656 </span> 0/imm32/no-imm32 -<span id="L20657" class="LineNr">20657 </span> 0/imm32/no-imm8 -<span id="L20658" class="LineNr">20658 </span> 1/imm32/disp32-is-first-inout -<span id="L20659" class="LineNr">20659 </span> 0/imm32/no-xm32 -<span id="L20660" class="LineNr">20660 </span> 0/imm32/no-x32 -<span id="L20661" class="LineNr">20661 </span> 0x11/imm32/alloc-id:fake -<span id="L20662" class="LineNr">20662 </span> <a href='mu.subx.html#L20663'>_Primitive-break-if-addr<=-named</a>/imm32/next -<span id="L20663" class="LineNr">20663 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20664" class="LineNr">20664 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20665" class="LineNr">20665 </span> 0x11/imm32/alloc-id:fake -<span id="L20666" class="LineNr">20666 </span> <a href='mu.subx.html#L21377'>_string-break-if-addr<=</a>/imm32/name -<span id="L20667" class="LineNr">20667 </span> 0x11/imm32/alloc-id:fake -<span id="L20668" class="LineNr">20668 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20669" class="LineNr">20669 </span> 0/imm32/no-outputs -<span id="L20670" class="LineNr">20670 </span> 0/imm32/no-outputs -<span id="L20671" class="LineNr">20671 </span> 0x11/imm32/alloc-id:fake -<span id="L20672" class="LineNr">20672 </span> <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L20673" class="LineNr">20673 </span> 0/imm32/no-rm32 -<span id="L20674" class="LineNr">20674 </span> 0/imm32/no-r32 -<span id="L20675" class="LineNr">20675 </span> 0/imm32/no-imm32 -<span id="L20676" class="LineNr">20676 </span> 0/imm32/no-imm8 -<span id="L20677" class="LineNr">20677 </span> 1/imm32/disp32-is-first-inout -<span id="L20678" class="LineNr">20678 </span> 0/imm32/no-xm32 -<span id="L20679" class="LineNr">20679 </span> 0/imm32/no-x32 -<span id="L20680" class="LineNr">20680 </span> 0x11/imm32/alloc-id:fake -<span id="L20681" class="LineNr">20681 </span> <a href='mu.subx.html#L20682'>_Primitive-break-if-addr>-named</a>/imm32/next -<span id="L20682" class="LineNr">20682 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20683" class="LineNr">20683 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20684" class="LineNr">20684 </span> 0x11/imm32/alloc-id:fake -<span id="L20685" class="LineNr">20685 </span> <a href='mu.subx.html#L21382'>_string-break-if-addr></a>/imm32/name -<span id="L20686" class="LineNr">20686 </span> 0x11/imm32/alloc-id:fake -<span id="L20687" class="LineNr">20687 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20688" class="LineNr">20688 </span> 0/imm32/no-outputs -<span id="L20689" class="LineNr">20689 </span> 0/imm32/no-outputs -<span id="L20690" class="LineNr">20690 </span> 0x11/imm32/alloc-id:fake -<span id="L20691" class="LineNr">20691 </span> <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L20692" class="LineNr">20692 </span> 0/imm32/no-rm32 -<span id="L20693" class="LineNr">20693 </span> 0/imm32/no-r32 -<span id="L20694" class="LineNr">20694 </span> 0/imm32/no-imm32 -<span id="L20695" class="LineNr">20695 </span> 0/imm32/no-imm8 -<span id="L20696" class="LineNr">20696 </span> 1/imm32/disp32-is-first-inout -<span id="L20697" class="LineNr">20697 </span> 0/imm32/no-xm32 -<span id="L20698" class="LineNr">20698 </span> 0/imm32/no-x32 -<span id="L20699" class="LineNr">20699 </span> 0x11/imm32/alloc-id:fake -<span id="L20700" class="LineNr">20700 </span> <a href='mu.subx.html#L20701'>_Primitive-break-if-<-named</a>/imm32/next -<span id="L20701" class="LineNr">20701 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20702" class="LineNr">20702 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20703" class="LineNr">20703 </span> 0x11/imm32/alloc-id:fake -<span id="L20704" class="LineNr">20704 </span> <a href='mu.subx.html#L21342'>_string-break-if-<</a>/imm32/name -<span id="L20705" class="LineNr">20705 </span> 0x11/imm32/alloc-id:fake -<span id="L20706" class="LineNr">20706 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20707" class="LineNr">20707 </span> 0/imm32/no-outputs -<span id="L20708" class="LineNr">20708 </span> 0/imm32/no-outputs -<span id="L20709" class="LineNr">20709 </span> 0x11/imm32/alloc-id:fake -<span id="L20710" class="LineNr">20710 </span> <a href='mu.subx.html#L21734'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L20711" class="LineNr">20711 </span> 0/imm32/no-rm32 -<span id="L20712" class="LineNr">20712 </span> 0/imm32/no-r32 -<span id="L20713" class="LineNr">20713 </span> 0/imm32/no-imm32 -<span id="L20714" class="LineNr">20714 </span> 0/imm32/no-imm8 -<span id="L20715" class="LineNr">20715 </span> 1/imm32/disp32-is-first-inout -<span id="L20716" class="LineNr">20716 </span> 0/imm32/no-xm32 -<span id="L20717" class="LineNr">20717 </span> 0/imm32/no-x32 -<span id="L20718" class="LineNr">20718 </span> 0x11/imm32/alloc-id:fake -<span id="L20719" class="LineNr">20719 </span> <a href='mu.subx.html#L20720'>_Primitive-break-if->=-named</a>/imm32/next -<span id="L20720" class="LineNr">20720 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20721" class="LineNr">20721 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20722" class="LineNr">20722 </span> 0x11/imm32/alloc-id:fake -<span id="L20723" class="LineNr">20723 </span> <a href='mu.subx.html#L21362'>_string-break-if->=</a>/imm32/name -<span id="L20724" class="LineNr">20724 </span> 0x11/imm32/alloc-id:fake -<span id="L20725" class="LineNr">20725 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20726" class="LineNr">20726 </span> 0/imm32/no-outputs -<span id="L20727" class="LineNr">20727 </span> 0/imm32/no-outputs -<span id="L20728" class="LineNr">20728 </span> 0x11/imm32/alloc-id:fake -<span id="L20729" class="LineNr">20729 </span> <a href='mu.subx.html#L21749'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L20730" class="LineNr">20730 </span> 0/imm32/no-rm32 -<span id="L20731" class="LineNr">20731 </span> 0/imm32/no-r32 -<span id="L20732" class="LineNr">20732 </span> 0/imm32/no-imm32 -<span id="L20733" class="LineNr">20733 </span> 0/imm32/no-imm8 -<span id="L20734" class="LineNr">20734 </span> 1/imm32/disp32-is-first-inout -<span id="L20735" class="LineNr">20735 </span> 0/imm32/no-xm32 -<span id="L20736" class="LineNr">20736 </span> 0/imm32/no-x32 -<span id="L20737" class="LineNr">20737 </span> 0x11/imm32/alloc-id:fake -<span id="L20738" class="LineNr">20738 </span> <a href='mu.subx.html#L20739'>_Primitive-break-if-<=-named</a>/imm32/next -<span id="L20739" class="LineNr">20739 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20740" class="LineNr">20740 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20741" class="LineNr">20741 </span> 0x11/imm32/alloc-id:fake -<span id="L20742" class="LineNr">20742 </span> <a href='mu.subx.html#L21347'>_string-break-if-<=</a>/imm32/name -<span id="L20743" class="LineNr">20743 </span> 0x11/imm32/alloc-id:fake -<span id="L20744" class="LineNr">20744 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20745" class="LineNr">20745 </span> 0/imm32/no-outputs -<span id="L20746" class="LineNr">20746 </span> 0/imm32/no-outputs -<span id="L20747" class="LineNr">20747 </span> 0x11/imm32/alloc-id:fake -<span id="L20748" class="LineNr">20748 </span> <a href='mu.subx.html#L21764'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L20749" class="LineNr">20749 </span> 0/imm32/no-rm32 -<span id="L20750" class="LineNr">20750 </span> 0/imm32/no-r32 -<span id="L20751" class="LineNr">20751 </span> 0/imm32/no-imm32 -<span id="L20752" class="LineNr">20752 </span> 0/imm32/no-imm8 -<span id="L20753" class="LineNr">20753 </span> 1/imm32/disp32-is-first-inout -<span id="L20754" class="LineNr">20754 </span> 0/imm32/no-xm32 -<span id="L20755" class="LineNr">20755 </span> 0/imm32/no-x32 -<span id="L20756" class="LineNr">20756 </span> 0x11/imm32/alloc-id:fake -<span id="L20757" class="LineNr">20757 </span> <a href='mu.subx.html#L20758'>_Primitive-break-if->-named</a>/imm32/next -<span id="L20758" class="LineNr">20758 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20759" class="LineNr">20759 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20760" class="LineNr">20760 </span> 0x11/imm32/alloc-id:fake -<span id="L20761" class="LineNr">20761 </span> <a href='mu.subx.html#L21357'>_string-break-if-></a>/imm32/name -<span id="L20762" class="LineNr">20762 </span> 0x11/imm32/alloc-id:fake -<span id="L20763" class="LineNr">20763 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20764" class="LineNr">20764 </span> 0/imm32/no-outputs -<span id="L20765" class="LineNr">20765 </span> 0/imm32/no-outputs -<span id="L20766" class="LineNr">20766 </span> 0x11/imm32/alloc-id:fake -<span id="L20767" class="LineNr">20767 </span> <a href='mu.subx.html#L21779'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L20768" class="LineNr">20768 </span> 0/imm32/no-rm32 -<span id="L20769" class="LineNr">20769 </span> 0/imm32/no-r32 -<span id="L20770" class="LineNr">20770 </span> 0/imm32/no-imm32 -<span id="L20771" class="LineNr">20771 </span> 0/imm32/no-imm8 -<span id="L20772" class="LineNr">20772 </span> 1/imm32/disp32-is-first-inout -<span id="L20773" class="LineNr">20773 </span> 0/imm32/no-xm32 -<span id="L20774" class="LineNr">20774 </span> 0/imm32/no-x32 -<span id="L20775" class="LineNr">20775 </span> 0x11/imm32/alloc-id:fake -<span id="L20776" class="LineNr">20776 </span> <a href='mu.subx.html#L20777'>_Primitive-break-named</a>/imm32/next -<span id="L20777" class="LineNr">20777 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20778" class="LineNr">20778 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20779" class="LineNr">20779 </span> 0x11/imm32/alloc-id:fake -<span id="L20780" class="LineNr">20780 </span> <a href='mu.subx.html#L21337'>_string-break</a>/imm32/name -<span id="L20781" class="LineNr">20781 </span> 0x11/imm32/alloc-id:fake -<span id="L20782" class="LineNr">20782 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20783" class="LineNr">20783 </span> 0/imm32/no-outputs -<span id="L20784" class="LineNr">20784 </span> 0/imm32/no-outputs -<span id="L20785" class="LineNr">20785 </span> 0x11/imm32/alloc-id:fake -<span id="L20786" class="LineNr">20786 </span> <a href='mu.subx.html#L22079'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L20787" class="LineNr">20787 </span> 0/imm32/no-rm32 -<span id="L20788" class="LineNr">20788 </span> 0/imm32/no-r32 -<span id="L20789" class="LineNr">20789 </span> 0/imm32/no-imm32 -<span id="L20790" class="LineNr">20790 </span> 0/imm32/no-imm8 -<span id="L20791" class="LineNr">20791 </span> 1/imm32/disp32-is-first-inout -<span id="L20792" class="LineNr">20792 </span> 0/imm32/no-xm32 -<span id="L20793" class="LineNr">20793 </span> 0/imm32/no-x32 -<span id="L20794" class="LineNr">20794 </span> 0x11/imm32/alloc-id:fake -<span id="L20795" class="LineNr">20795 </span> <a href='mu.subx.html#L20796'>_Primitive-loop-if-addr<-named</a>/imm32/next -<span id="L20796" class="LineNr">20796 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20797" class="LineNr">20797 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20798" class="LineNr">20798 </span> 0x11/imm32/alloc-id:fake -<span id="L20799" class="LineNr">20799 </span> <a href='mu.subx.html#L21482'>_string-loop-if-addr<</a>/imm32/name -<span id="L20800" class="LineNr">20800 </span> 0x11/imm32/alloc-id:fake -<span id="L20801" class="LineNr">20801 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20802" class="LineNr">20802 </span> 0/imm32/no-outputs -<span id="L20803" class="LineNr">20803 </span> 0/imm32/no-outputs -<span id="L20804" class="LineNr">20804 </span> 0x11/imm32/alloc-id:fake -<span id="L20805" class="LineNr">20805 </span> <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L20806" class="LineNr">20806 </span> 0/imm32/no-rm32 -<span id="L20807" class="LineNr">20807 </span> 0/imm32/no-r32 -<span id="L20808" class="LineNr">20808 </span> 0/imm32/no-imm32 -<span id="L20809" class="LineNr">20809 </span> 0/imm32/no-imm8 -<span id="L20810" class="LineNr">20810 </span> 1/imm32/disp32-is-first-inout -<span id="L20811" class="LineNr">20811 </span> 0/imm32/no-xm32 -<span id="L20812" class="LineNr">20812 </span> 0/imm32/no-x32 -<span id="L20813" class="LineNr">20813 </span> 0x11/imm32/alloc-id:fake -<span id="L20814" class="LineNr">20814 </span> <a href='mu.subx.html#L20815'>_Primitive-loop-if-addr>=-named</a>/imm32/next -<span id="L20815" class="LineNr">20815 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20816" class="LineNr">20816 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20817" class="LineNr">20817 </span> 0x11/imm32/alloc-id:fake -<span id="L20818" class="LineNr">20818 </span> <a href='mu.subx.html#L21497'>_string-loop-if-addr>=</a>/imm32/name -<span id="L20819" class="LineNr">20819 </span> 0x11/imm32/alloc-id:fake -<span id="L20820" class="LineNr">20820 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20821" class="LineNr">20821 </span> 0/imm32/no-outputs -<span id="L20822" class="LineNr">20822 </span> 0/imm32/no-outputs -<span id="L20823" class="LineNr">20823 </span> 0x11/imm32/alloc-id:fake -<span id="L20824" class="LineNr">20824 </span> <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L20825" class="LineNr">20825 </span> 0/imm32/no-rm32 -<span id="L20826" class="LineNr">20826 </span> 0/imm32/no-r32 -<span id="L20827" class="LineNr">20827 </span> 0/imm32/no-imm32 -<span id="L20828" class="LineNr">20828 </span> 0/imm32/no-imm8 -<span id="L20829" class="LineNr">20829 </span> 1/imm32/disp32-is-first-inout -<span id="L20830" class="LineNr">20830 </span> 0/imm32/no-xm32 -<span id="L20831" class="LineNr">20831 </span> 0/imm32/no-x32 +<span id="L20585" class="LineNr">20585 </span> <a href='mu.subx.html#L21600'>_string-break-if-></a>/imm32/name +<span id="L20586" class="LineNr">20586 </span> 0/imm32/no-inouts +<span id="L20587" class="LineNr">20587 </span> 0/imm32/no-inouts +<span id="L20588" class="LineNr">20588 </span> 0/imm32/no-outputs +<span id="L20589" class="LineNr">20589 </span> 0/imm32/no-outputs +<span id="L20590" class="LineNr">20590 </span> 0x11/imm32/alloc-id:fake +<span id="L20591" class="LineNr">20591 </span> <a href='mu.subx.html#L22037'>_string_0f_8f_jump_break</a>/imm32/subx-name +<span id="L20592" class="LineNr">20592 </span> 0/imm32/no-rm32 +<span id="L20593" class="LineNr">20593 </span> 0/imm32/no-r32 +<span id="L20594" class="LineNr">20594 </span> 0/imm32/no-imm32 +<span id="L20595" class="LineNr">20595 </span> 0/imm32/no-imm8 +<span id="L20596" class="LineNr">20596 </span> 0/imm32/no-disp32 +<span id="L20597" class="LineNr">20597 </span> 0/imm32/no-xm32 +<span id="L20598" class="LineNr">20598 </span> 0/imm32/no-x32 +<span id="L20599" class="LineNr">20599 </span> 0x11/imm32/alloc-id:fake +<span id="L20600" class="LineNr">20600 </span> <a href='mu.subx.html#L20601'>_Primitive-break</a>/imm32/next +<span id="L20601" class="LineNr">20601 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20602" class="LineNr">20602 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20603" class="LineNr">20603 </span> 0x11/imm32/alloc-id:fake +<span id="L20604" class="LineNr">20604 </span> <a href='mu.subx.html#L21580'>_string-break</a>/imm32/name +<span id="L20605" class="LineNr">20605 </span> 0/imm32/no-inouts +<span id="L20606" class="LineNr">20606 </span> 0/imm32/no-inouts +<span id="L20607" class="LineNr">20607 </span> 0/imm32/no-outputs +<span id="L20608" class="LineNr">20608 </span> 0/imm32/no-outputs +<span id="L20609" class="LineNr">20609 </span> 0x11/imm32/alloc-id:fake +<span id="L20610" class="LineNr">20610 </span> <a href='mu.subx.html#L22342'>_string_e9_jump_break</a>/imm32/subx-name +<span id="L20611" class="LineNr">20611 </span> 0/imm32/no-rm32 +<span id="L20612" class="LineNr">20612 </span> 0/imm32/no-r32 +<span id="L20613" class="LineNr">20613 </span> 0/imm32/no-imm32 +<span id="L20614" class="LineNr">20614 </span> 0/imm32/no-imm8 +<span id="L20615" class="LineNr">20615 </span> 0/imm32/no-disp32 +<span id="L20616" class="LineNr">20616 </span> 0/imm32/no-xm32 +<span id="L20617" class="LineNr">20617 </span> 0/imm32/no-x32 +<span id="L20618" class="LineNr">20618 </span> 0x11/imm32/alloc-id:fake +<span id="L20619" class="LineNr">20619 </span> <a href='mu.subx.html#L20620'>_Primitive-loop-if-addr<</a>/imm32/next +<span id="L20620" class="LineNr">20620 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20621" class="LineNr">20621 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20622" class="LineNr">20622 </span> 0x11/imm32/alloc-id:fake +<span id="L20623" class="LineNr">20623 </span> <a href='mu.subx.html#L21725'>_string-loop-if-addr<</a>/imm32/name +<span id="L20624" class="LineNr">20624 </span> 0/imm32/no-inouts +<span id="L20625" class="LineNr">20625 </span> 0/imm32/no-inouts +<span id="L20626" class="LineNr">20626 </span> 0/imm32/no-outputs +<span id="L20627" class="LineNr">20627 </span> 0/imm32/no-outputs +<span id="L20628" class="LineNr">20628 </span> 0x11/imm32/alloc-id:fake +<span id="L20629" class="LineNr">20629 </span> <a href='mu.subx.html#L21907'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L20630" class="LineNr">20630 </span> 0/imm32/no-rm32 +<span id="L20631" class="LineNr">20631 </span> 0/imm32/no-r32 +<span id="L20632" class="LineNr">20632 </span> 0/imm32/no-imm32 +<span id="L20633" class="LineNr">20633 </span> 0/imm32/no-imm8 +<span id="L20634" class="LineNr">20634 </span> 0/imm32/no-disp32 +<span id="L20635" class="LineNr">20635 </span> 0/imm32/no-xm32 +<span id="L20636" class="LineNr">20636 </span> 0/imm32/no-x32 +<span id="L20637" class="LineNr">20637 </span> 0x11/imm32/alloc-id:fake +<span id="L20638" class="LineNr">20638 </span> <a href='mu.subx.html#L20639'>_Primitive-loop-if-addr>=</a>/imm32/next +<span id="L20639" class="LineNr">20639 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20640" class="LineNr">20640 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20641" class="LineNr">20641 </span> 0x11/imm32/alloc-id:fake +<span id="L20642" class="LineNr">20642 </span> <a href='mu.subx.html#L21740'>_string-loop-if-addr>=</a>/imm32/name +<span id="L20643" class="LineNr">20643 </span> 0/imm32/no-inouts +<span id="L20644" class="LineNr">20644 </span> 0/imm32/no-inouts +<span id="L20645" class="LineNr">20645 </span> 0/imm32/no-outputs +<span id="L20646" class="LineNr">20646 </span> 0/imm32/no-outputs +<span id="L20647" class="LineNr">20647 </span> 0x11/imm32/alloc-id:fake +<span id="L20648" class="LineNr">20648 </span> <a href='mu.subx.html#L21922'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L20649" class="LineNr">20649 </span> 0/imm32/no-rm32 +<span id="L20650" class="LineNr">20650 </span> 0/imm32/no-r32 +<span id="L20651" class="LineNr">20651 </span> 0/imm32/no-imm32 +<span id="L20652" class="LineNr">20652 </span> 0/imm32/no-imm8 +<span id="L20653" class="LineNr">20653 </span> 0/imm32/no-disp32 +<span id="L20654" class="LineNr">20654 </span> 0/imm32/no-xm32 +<span id="L20655" class="LineNr">20655 </span> 0/imm32/no-x32 +<span id="L20656" class="LineNr">20656 </span> 0x11/imm32/alloc-id:fake +<span id="L20657" class="LineNr">20657 </span> <a href='mu.subx.html#L20658'>_Primitive-loop-if-=</a>/imm32/next +<span id="L20658" class="LineNr">20658 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20659" class="LineNr">20659 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20660" class="LineNr">20660 </span> 0x11/imm32/alloc-id:fake +<span id="L20661" class="LineNr">20661 </span> <a href='mu.subx.html#L21705'>_string-loop-if-=</a>/imm32/name +<span id="L20662" class="LineNr">20662 </span> 0/imm32/no-inouts +<span id="L20663" class="LineNr">20663 </span> 0/imm32/no-inouts +<span id="L20664" class="LineNr">20664 </span> 0/imm32/no-outputs +<span id="L20665" class="LineNr">20665 </span> 0/imm32/no-outputs +<span id="L20666" class="LineNr">20666 </span> 0x11/imm32/alloc-id:fake +<span id="L20667" class="LineNr">20667 </span> <a href='mu.subx.html#L21937'>_string_0f_84_jump_loop</a>/imm32/subx-name +<span id="L20668" class="LineNr">20668 </span> 0/imm32/no-rm32 +<span id="L20669" class="LineNr">20669 </span> 0/imm32/no-r32 +<span id="L20670" class="LineNr">20670 </span> 0/imm32/no-imm32 +<span id="L20671" class="LineNr">20671 </span> 0/imm32/no-imm8 +<span id="L20672" class="LineNr">20672 </span> 0/imm32/no-disp32 +<span id="L20673" class="LineNr">20673 </span> 0/imm32/no-xm32 +<span id="L20674" class="LineNr">20674 </span> 0/imm32/no-x32 +<span id="L20675" class="LineNr">20675 </span> 0x11/imm32/alloc-id:fake +<span id="L20676" class="LineNr">20676 </span> <a href='mu.subx.html#L20677'>_Primitive-loop-if-!=</a>/imm32/next +<span id="L20677" class="LineNr">20677 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20678" class="LineNr">20678 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20679" class="LineNr">20679 </span> 0x11/imm32/alloc-id:fake +<span id="L20680" class="LineNr">20680 </span> <a href='mu.subx.html#L21720'>_string-loop-if-!=</a>/imm32/name +<span id="L20681" class="LineNr">20681 </span> 0/imm32/no-inouts +<span id="L20682" class="LineNr">20682 </span> 0/imm32/no-inouts +<span id="L20683" class="LineNr">20683 </span> 0/imm32/no-outputs +<span id="L20684" class="LineNr">20684 </span> 0/imm32/no-outputs +<span id="L20685" class="LineNr">20685 </span> 0x11/imm32/alloc-id:fake +<span id="L20686" class="LineNr">20686 </span> <a href='mu.subx.html#L21952'>_string_0f_85_jump_loop</a>/imm32/subx-name +<span id="L20687" class="LineNr">20687 </span> 0/imm32/no-rm32 +<span id="L20688" class="LineNr">20688 </span> 0/imm32/no-r32 +<span id="L20689" class="LineNr">20689 </span> 0/imm32/no-imm32 +<span id="L20690" class="LineNr">20690 </span> 0/imm32/no-imm8 +<span id="L20691" class="LineNr">20691 </span> 0/imm32/no-disp32 +<span id="L20692" class="LineNr">20692 </span> 0/imm32/no-xm32 +<span id="L20693" class="LineNr">20693 </span> 0/imm32/no-x32 +<span id="L20694" class="LineNr">20694 </span> 0x11/imm32/alloc-id:fake +<span id="L20695" class="LineNr">20695 </span> <a href='mu.subx.html#L20696'>_Primitive-loop-if-addr<=</a>/imm32/next +<span id="L20696" class="LineNr">20696 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20697" class="LineNr">20697 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20698" class="LineNr">20698 </span> 0x11/imm32/alloc-id:fake +<span id="L20699" class="LineNr">20699 </span> <a href='mu.subx.html#L21730'>_string-loop-if-addr<=</a>/imm32/name +<span id="L20700" class="LineNr">20700 </span> 0/imm32/no-inouts +<span id="L20701" class="LineNr">20701 </span> 0/imm32/no-inouts +<span id="L20702" class="LineNr">20702 </span> 0/imm32/no-outputs +<span id="L20703" class="LineNr">20703 </span> 0/imm32/no-outputs +<span id="L20704" class="LineNr">20704 </span> 0x11/imm32/alloc-id:fake +<span id="L20705" class="LineNr">20705 </span> <a href='mu.subx.html#L21967'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L20706" class="LineNr">20706 </span> 0/imm32/no-rm32 +<span id="L20707" class="LineNr">20707 </span> 0/imm32/no-r32 +<span id="L20708" class="LineNr">20708 </span> 0/imm32/no-imm32 +<span id="L20709" class="LineNr">20709 </span> 0/imm32/no-imm8 +<span id="L20710" class="LineNr">20710 </span> 0/imm32/no-disp32 +<span id="L20711" class="LineNr">20711 </span> 0/imm32/no-xm32 +<span id="L20712" class="LineNr">20712 </span> 0/imm32/no-x32 +<span id="L20713" class="LineNr">20713 </span> 0x11/imm32/alloc-id:fake +<span id="L20714" class="LineNr">20714 </span> <a href='mu.subx.html#L20715'>_Primitive-loop-if-addr></a>/imm32/next +<span id="L20715" class="LineNr">20715 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20716" class="LineNr">20716 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20717" class="LineNr">20717 </span> 0x11/imm32/alloc-id:fake +<span id="L20718" class="LineNr">20718 </span> <a href='mu.subx.html#L21735'>_string-loop-if-addr></a>/imm32/name +<span id="L20719" class="LineNr">20719 </span> 0/imm32/no-inouts +<span id="L20720" class="LineNr">20720 </span> 0/imm32/no-inouts +<span id="L20721" class="LineNr">20721 </span> 0/imm32/no-outputs +<span id="L20722" class="LineNr">20722 </span> 0/imm32/no-outputs +<span id="L20723" class="LineNr">20723 </span> 0x11/imm32/alloc-id:fake +<span id="L20724" class="LineNr">20724 </span> <a href='mu.subx.html#L21982'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L20725" class="LineNr">20725 </span> 0/imm32/no-rm32 +<span id="L20726" class="LineNr">20726 </span> 0/imm32/no-r32 +<span id="L20727" class="LineNr">20727 </span> 0/imm32/no-imm32 +<span id="L20728" class="LineNr">20728 </span> 0/imm32/no-imm8 +<span id="L20729" class="LineNr">20729 </span> 0/imm32/no-disp32 +<span id="L20730" class="LineNr">20730 </span> 0/imm32/no-xm32 +<span id="L20731" class="LineNr">20731 </span> 0/imm32/no-x32 +<span id="L20732" class="LineNr">20732 </span> 0x11/imm32/alloc-id:fake +<span id="L20733" class="LineNr">20733 </span> <a href='mu.subx.html#L20734'>_Primitive-loop-if-<</a>/imm32/next +<span id="L20734" class="LineNr">20734 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20735" class="LineNr">20735 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20736" class="LineNr">20736 </span> 0x11/imm32/alloc-id:fake +<span id="L20737" class="LineNr">20737 </span> <a href='mu.subx.html#L21695'>_string-loop-if-<</a>/imm32/name +<span id="L20738" class="LineNr">20738 </span> 0/imm32/no-inouts +<span id="L20739" class="LineNr">20739 </span> 0/imm32/no-inouts +<span id="L20740" class="LineNr">20740 </span> 0/imm32/no-outputs +<span id="L20741" class="LineNr">20741 </span> 0/imm32/no-outputs +<span id="L20742" class="LineNr">20742 </span> 0x11/imm32/alloc-id:fake +<span id="L20743" class="LineNr">20743 </span> <a href='mu.subx.html#L21997'>_string_0f_8c_jump_loop</a>/imm32/subx-name +<span id="L20744" class="LineNr">20744 </span> 0/imm32/no-rm32 +<span id="L20745" class="LineNr">20745 </span> 0/imm32/no-r32 +<span id="L20746" class="LineNr">20746 </span> 0/imm32/no-imm32 +<span id="L20747" class="LineNr">20747 </span> 0/imm32/no-imm8 +<span id="L20748" class="LineNr">20748 </span> 0/imm32/no-disp32 +<span id="L20749" class="LineNr">20749 </span> 0/imm32/no-xm32 +<span id="L20750" class="LineNr">20750 </span> 0/imm32/no-x32 +<span id="L20751" class="LineNr">20751 </span> 0x11/imm32/alloc-id:fake +<span id="L20752" class="LineNr">20752 </span> <a href='mu.subx.html#L20753'>_Primitive-loop-if->=</a>/imm32/next +<span id="L20753" class="LineNr">20753 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20754" class="LineNr">20754 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20755" class="LineNr">20755 </span> 0x11/imm32/alloc-id:fake +<span id="L20756" class="LineNr">20756 </span> <a href='mu.subx.html#L21715'>_string-loop-if->=</a>/imm32/name +<span id="L20757" class="LineNr">20757 </span> 0/imm32/no-inouts +<span id="L20758" class="LineNr">20758 </span> 0/imm32/no-inouts +<span id="L20759" class="LineNr">20759 </span> 0/imm32/no-outputs +<span id="L20760" class="LineNr">20760 </span> 0/imm32/no-outputs +<span id="L20761" class="LineNr">20761 </span> 0x11/imm32/alloc-id:fake +<span id="L20762" class="LineNr">20762 </span> <a href='mu.subx.html#L22012'>_string_0f_8d_jump_loop</a>/imm32/subx-name +<span id="L20763" class="LineNr">20763 </span> 0/imm32/no-rm32 +<span id="L20764" class="LineNr">20764 </span> 0/imm32/no-r32 +<span id="L20765" class="LineNr">20765 </span> 0/imm32/no-imm32 +<span id="L20766" class="LineNr">20766 </span> 0/imm32/no-imm8 +<span id="L20767" class="LineNr">20767 </span> 0/imm32/no-disp32 +<span id="L20768" class="LineNr">20768 </span> 0/imm32/no-xm32 +<span id="L20769" class="LineNr">20769 </span> 0/imm32/no-x32 +<span id="L20770" class="LineNr">20770 </span> 0x11/imm32/alloc-id:fake +<span id="L20771" class="LineNr">20771 </span> <a href='mu.subx.html#L20772'>_Primitive-loop-if-<=</a>/imm32/next +<span id="L20772" class="LineNr">20772 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20773" class="LineNr">20773 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20774" class="LineNr">20774 </span> 0x11/imm32/alloc-id:fake +<span id="L20775" class="LineNr">20775 </span> <a href='mu.subx.html#L21700'>_string-loop-if-<=</a>/imm32/name +<span id="L20776" class="LineNr">20776 </span> 0/imm32/no-inouts +<span id="L20777" class="LineNr">20777 </span> 0/imm32/no-inouts +<span id="L20778" class="LineNr">20778 </span> 0/imm32/no-outputs +<span id="L20779" class="LineNr">20779 </span> 0/imm32/no-outputs +<span id="L20780" class="LineNr">20780 </span> 0x11/imm32/alloc-id:fake +<span id="L20781" class="LineNr">20781 </span> <a href='mu.subx.html#L22027'>_string_0f_8e_jump_loop</a>/imm32/subx-name +<span id="L20782" class="LineNr">20782 </span> 0/imm32/no-rm32 +<span id="L20783" class="LineNr">20783 </span> 0/imm32/no-r32 +<span id="L20784" class="LineNr">20784 </span> 0/imm32/no-imm32 +<span id="L20785" class="LineNr">20785 </span> 0/imm32/no-imm8 +<span id="L20786" class="LineNr">20786 </span> 0/imm32/no-disp32 +<span id="L20787" class="LineNr">20787 </span> 0/imm32/no-xm32 +<span id="L20788" class="LineNr">20788 </span> 0/imm32/no-x32 +<span id="L20789" class="LineNr">20789 </span> 0x11/imm32/alloc-id:fake +<span id="L20790" class="LineNr">20790 </span> <a href='mu.subx.html#L20791'>_Primitive-loop-if-></a>/imm32/next +<span id="L20791" class="LineNr">20791 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20792" class="LineNr">20792 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20793" class="LineNr">20793 </span> 0x11/imm32/alloc-id:fake +<span id="L20794" class="LineNr">20794 </span> <a href='mu.subx.html#L21710'>_string-loop-if-></a>/imm32/name +<span id="L20795" class="LineNr">20795 </span> 0/imm32/no-inouts +<span id="L20796" class="LineNr">20796 </span> 0/imm32/no-inouts +<span id="L20797" class="LineNr">20797 </span> 0/imm32/no-outputs +<span id="L20798" class="LineNr">20798 </span> 0/imm32/no-outputs +<span id="L20799" class="LineNr">20799 </span> 0x11/imm32/alloc-id:fake +<span id="L20800" class="LineNr">20800 </span> <a href='mu.subx.html#L22042'>_string_0f_8f_jump_loop</a>/imm32/subx-name +<span id="L20801" class="LineNr">20801 </span> 0/imm32/no-rm32 +<span id="L20802" class="LineNr">20802 </span> 0/imm32/no-r32 +<span id="L20803" class="LineNr">20803 </span> 0/imm32/no-imm32 +<span id="L20804" class="LineNr">20804 </span> 0/imm32/no-imm8 +<span id="L20805" class="LineNr">20805 </span> 0/imm32/no-disp32 +<span id="L20806" class="LineNr">20806 </span> 0/imm32/no-xm32 +<span id="L20807" class="LineNr">20807 </span> 0/imm32/no-x32 +<span id="L20808" class="LineNr">20808 </span> 0x11/imm32/alloc-id:fake +<span id="L20809" class="LineNr">20809 </span> <a href='mu.subx.html#L20810'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L20810" class="LineNr">20810 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20811" class="LineNr">20811 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L20812" class="LineNr">20812 </span> 0x11/imm32/alloc-id:fake +<span id="L20813" class="LineNr">20813 </span> <a href='mu.subx.html#L21690'>_string-loop</a>/imm32/name +<span id="L20814" class="LineNr">20814 </span> 0/imm32/no-inouts +<span id="L20815" class="LineNr">20815 </span> 0/imm32/no-inouts +<span id="L20816" class="LineNr">20816 </span> 0/imm32/no-outputs +<span id="L20817" class="LineNr">20817 </span> 0/imm32/no-outputs +<span id="L20818" class="LineNr">20818 </span> 0x11/imm32/alloc-id:fake +<span id="L20819" class="LineNr">20819 </span> <a href='mu.subx.html#L22347'>_string_e9_jump_loop</a>/imm32/subx-name +<span id="L20820" class="LineNr">20820 </span> 0/imm32/no-rm32 +<span id="L20821" class="LineNr">20821 </span> 0/imm32/no-r32 +<span id="L20822" class="LineNr">20822 </span> 0/imm32/no-imm32 +<span id="L20823" class="LineNr">20823 </span> 0/imm32/no-imm8 +<span id="L20824" class="LineNr">20824 </span> 0/imm32/no-disp32 +<span id="L20825" class="LineNr">20825 </span> 0/imm32/no-xm32 +<span id="L20826" class="LineNr">20826 </span> 0/imm32/no-x32 +<span id="L20827" class="LineNr">20827 </span> 0x11/imm32/alloc-id:fake +<span id="L20828" class="LineNr">20828 </span> <a href='mu.subx.html#L20830'>_Primitive-break-if-addr<-named</a>/imm32/next +<span id="L20829" class="LineNr">20829 </span><span class="subxH1Comment"># - branches to named blocks</span> +<span id="L20830" class="LineNr">20830 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20831" class="LineNr">20831 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20832" class="LineNr">20832 </span> 0x11/imm32/alloc-id:fake -<span id="L20833" class="LineNr">20833 </span> <a href='mu.subx.html#L20834'>_Primitive-loop-if-=-named</a>/imm32/next -<span id="L20834" class="LineNr">20834 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20835" class="LineNr">20835 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20836" class="LineNr">20836 </span> 0x11/imm32/alloc-id:fake -<span id="L20837" class="LineNr">20837 </span> <a href='mu.subx.html#L21462'>_string-loop-if-=</a>/imm32/name +<span id="L20833" class="LineNr">20833 </span> <a href='mu.subx.html#L21615'>_string-break-if-addr<</a>/imm32/name +<span id="L20834" class="LineNr">20834 </span> 0x11/imm32/alloc-id:fake +<span id="L20835" class="LineNr">20835 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20836" class="LineNr">20836 </span> 0/imm32/no-outputs +<span id="L20837" class="LineNr">20837 </span> 0/imm32/no-outputs <span id="L20838" class="LineNr">20838 </span> 0x11/imm32/alloc-id:fake -<span id="L20839" class="LineNr">20839 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20840" class="LineNr">20840 </span> 0/imm32/no-outputs -<span id="L20841" class="LineNr">20841 </span> 0/imm32/no-outputs -<span id="L20842" class="LineNr">20842 </span> 0x11/imm32/alloc-id:fake -<span id="L20843" class="LineNr">20843 </span> <a href='mu.subx.html#L21674'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L20844" class="LineNr">20844 </span> 0/imm32/no-rm32 -<span id="L20845" class="LineNr">20845 </span> 0/imm32/no-r32 -<span id="L20846" class="LineNr">20846 </span> 0/imm32/no-imm32 -<span id="L20847" class="LineNr">20847 </span> 0/imm32/no-imm8 -<span id="L20848" class="LineNr">20848 </span> 1/imm32/disp32-is-first-inout -<span id="L20849" class="LineNr">20849 </span> 0/imm32/no-xm32 -<span id="L20850" class="LineNr">20850 </span> 0/imm32/no-x32 +<span id="L20839" class="LineNr">20839 </span> <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L20840" class="LineNr">20840 </span> 0/imm32/no-rm32 +<span id="L20841" class="LineNr">20841 </span> 0/imm32/no-r32 +<span id="L20842" class="LineNr">20842 </span> 0/imm32/no-imm32 +<span id="L20843" class="LineNr">20843 </span> 0/imm32/no-imm8 +<span id="L20844" class="LineNr">20844 </span> 1/imm32/disp32-is-first-inout +<span id="L20845" class="LineNr">20845 </span> 0/imm32/no-xm32 +<span id="L20846" class="LineNr">20846 </span> 0/imm32/no-x32 +<span id="L20847" class="LineNr">20847 </span> 0x11/imm32/alloc-id:fake +<span id="L20848" class="LineNr">20848 </span> <a href='mu.subx.html#L20849'>_Primitive-break-if-addr>=-named</a>/imm32/next +<span id="L20849" class="LineNr">20849 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20850" class="LineNr">20850 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20851" class="LineNr">20851 </span> 0x11/imm32/alloc-id:fake -<span id="L20852" class="LineNr">20852 </span> <a href='mu.subx.html#L20853'>_Primitive-loop-if-!=-named</a>/imm32/next -<span id="L20853" class="LineNr">20853 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20854" class="LineNr">20854 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20855" class="LineNr">20855 </span> 0x11/imm32/alloc-id:fake -<span id="L20856" class="LineNr">20856 </span> <a href='mu.subx.html#L21477'>_string-loop-if-!=</a>/imm32/name +<span id="L20852" class="LineNr">20852 </span> <a href='mu.subx.html#L21630'>_string-break-if-addr>=</a>/imm32/name +<span id="L20853" class="LineNr">20853 </span> 0x11/imm32/alloc-id:fake +<span id="L20854" class="LineNr">20854 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20855" class="LineNr">20855 </span> 0/imm32/no-outputs +<span id="L20856" class="LineNr">20856 </span> 0/imm32/no-outputs <span id="L20857" class="LineNr">20857 </span> 0x11/imm32/alloc-id:fake -<span id="L20858" class="LineNr">20858 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20859" class="LineNr">20859 </span> 0/imm32/no-outputs -<span id="L20860" class="LineNr">20860 </span> 0/imm32/no-outputs -<span id="L20861" class="LineNr">20861 </span> 0x11/imm32/alloc-id:fake -<span id="L20862" class="LineNr">20862 </span> <a href='mu.subx.html#L21689'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L20863" class="LineNr">20863 </span> 0/imm32/no-rm32 -<span id="L20864" class="LineNr">20864 </span> 0/imm32/no-r32 -<span id="L20865" class="LineNr">20865 </span> 0/imm32/no-imm32 -<span id="L20866" class="LineNr">20866 </span> 0/imm32/no-imm8 -<span id="L20867" class="LineNr">20867 </span> 1/imm32/disp32-is-first-inout -<span id="L20868" class="LineNr">20868 </span> 0/imm32/no-xm32 -<span id="L20869" class="LineNr">20869 </span> 0/imm32/no-x32 +<span id="L20858" class="LineNr">20858 </span> <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L20859" class="LineNr">20859 </span> 0/imm32/no-rm32 +<span id="L20860" class="LineNr">20860 </span> 0/imm32/no-r32 +<span id="L20861" class="LineNr">20861 </span> 0/imm32/no-imm32 +<span id="L20862" class="LineNr">20862 </span> 0/imm32/no-imm8 +<span id="L20863" class="LineNr">20863 </span> 1/imm32/disp32-is-first-inout +<span id="L20864" class="LineNr">20864 </span> 0/imm32/no-xm32 +<span id="L20865" class="LineNr">20865 </span> 0/imm32/no-x32 +<span id="L20866" class="LineNr">20866 </span> 0x11/imm32/alloc-id:fake +<span id="L20867" class="LineNr">20867 </span> <a href='mu.subx.html#L20868'>_Primitive-break-if-=-named</a>/imm32/next +<span id="L20868" class="LineNr">20868 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20869" class="LineNr">20869 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20870" class="LineNr">20870 </span> 0x11/imm32/alloc-id:fake -<span id="L20871" class="LineNr">20871 </span> <a href='mu.subx.html#L20872'>_Primitive-loop-if-addr<=-named</a>/imm32/next -<span id="L20872" class="LineNr">20872 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20873" class="LineNr">20873 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20874" class="LineNr">20874 </span> 0x11/imm32/alloc-id:fake -<span id="L20875" class="LineNr">20875 </span> <a href='mu.subx.html#L21487'>_string-loop-if-addr<=</a>/imm32/name +<span id="L20871" class="LineNr">20871 </span> <a href='mu.subx.html#L21595'>_string-break-if-=</a>/imm32/name +<span id="L20872" class="LineNr">20872 </span> 0x11/imm32/alloc-id:fake +<span id="L20873" class="LineNr">20873 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20874" class="LineNr">20874 </span> 0/imm32/no-outputs +<span id="L20875" class="LineNr">20875 </span> 0/imm32/no-outputs <span id="L20876" class="LineNr">20876 </span> 0x11/imm32/alloc-id:fake -<span id="L20877" class="LineNr">20877 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20878" class="LineNr">20878 </span> 0/imm32/no-outputs -<span id="L20879" class="LineNr">20879 </span> 0/imm32/no-outputs -<span id="L20880" class="LineNr">20880 </span> 0x11/imm32/alloc-id:fake -<span id="L20881" class="LineNr">20881 </span> <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L20882" class="LineNr">20882 </span> 0/imm32/no-rm32 -<span id="L20883" class="LineNr">20883 </span> 0/imm32/no-r32 -<span id="L20884" class="LineNr">20884 </span> 0/imm32/no-imm32 -<span id="L20885" class="LineNr">20885 </span> 0/imm32/no-imm8 -<span id="L20886" class="LineNr">20886 </span> 1/imm32/disp32-is-first-inout -<span id="L20887" class="LineNr">20887 </span> 0/imm32/no-xm32 -<span id="L20888" class="LineNr">20888 </span> 0/imm32/no-x32 +<span id="L20877" class="LineNr">20877 </span> <a href='mu.subx.html#L21927'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L20878" class="LineNr">20878 </span> 0/imm32/no-rm32 +<span id="L20879" class="LineNr">20879 </span> 0/imm32/no-r32 +<span id="L20880" class="LineNr">20880 </span> 0/imm32/no-imm32 +<span id="L20881" class="LineNr">20881 </span> 0/imm32/no-imm8 +<span id="L20882" class="LineNr">20882 </span> 1/imm32/disp32-is-first-inout +<span id="L20883" class="LineNr">20883 </span> 0/imm32/no-xm32 +<span id="L20884" class="LineNr">20884 </span> 0/imm32/no-x32 +<span id="L20885" class="LineNr">20885 </span> 0x11/imm32/alloc-id:fake +<span id="L20886" class="LineNr">20886 </span> <a href='mu.subx.html#L20887'>_Primitive-break-if-!=-named</a>/imm32/next +<span id="L20887" class="LineNr">20887 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20888" class="LineNr">20888 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20889" class="LineNr">20889 </span> 0x11/imm32/alloc-id:fake -<span id="L20890" class="LineNr">20890 </span> <a href='mu.subx.html#L20891'>_Primitive-loop-if-addr>-named</a>/imm32/next -<span id="L20891" class="LineNr">20891 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20892" class="LineNr">20892 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20893" class="LineNr">20893 </span> 0x11/imm32/alloc-id:fake -<span id="L20894" class="LineNr">20894 </span> <a href='mu.subx.html#L21492'>_string-loop-if-addr></a>/imm32/name +<span id="L20890" class="LineNr">20890 </span> <a href='mu.subx.html#L21610'>_string-break-if-!=</a>/imm32/name +<span id="L20891" class="LineNr">20891 </span> 0x11/imm32/alloc-id:fake +<span id="L20892" class="LineNr">20892 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20893" class="LineNr">20893 </span> 0/imm32/no-outputs +<span id="L20894" class="LineNr">20894 </span> 0/imm32/no-outputs <span id="L20895" class="LineNr">20895 </span> 0x11/imm32/alloc-id:fake -<span id="L20896" class="LineNr">20896 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20897" class="LineNr">20897 </span> 0/imm32/no-outputs -<span id="L20898" class="LineNr">20898 </span> 0/imm32/no-outputs -<span id="L20899" class="LineNr">20899 </span> 0x11/imm32/alloc-id:fake -<span id="L20900" class="LineNr">20900 </span> <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L20901" class="LineNr">20901 </span> 0/imm32/no-rm32 -<span id="L20902" class="LineNr">20902 </span> 0/imm32/no-r32 -<span id="L20903" class="LineNr">20903 </span> 0/imm32/no-imm32 -<span id="L20904" class="LineNr">20904 </span> 0/imm32/no-imm8 -<span id="L20905" class="LineNr">20905 </span> 1/imm32/disp32-is-first-inout -<span id="L20906" class="LineNr">20906 </span> 0/imm32/no-xm32 -<span id="L20907" class="LineNr">20907 </span> 0/imm32/no-x32 +<span id="L20896" class="LineNr">20896 </span> <a href='mu.subx.html#L21942'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L20897" class="LineNr">20897 </span> 0/imm32/no-rm32 +<span id="L20898" class="LineNr">20898 </span> 0/imm32/no-r32 +<span id="L20899" class="LineNr">20899 </span> 0/imm32/no-imm32 +<span id="L20900" class="LineNr">20900 </span> 0/imm32/no-imm8 +<span id="L20901" class="LineNr">20901 </span> 1/imm32/disp32-is-first-inout +<span id="L20902" class="LineNr">20902 </span> 0/imm32/no-xm32 +<span id="L20903" class="LineNr">20903 </span> 0/imm32/no-x32 +<span id="L20904" class="LineNr">20904 </span> 0x11/imm32/alloc-id:fake +<span id="L20905" class="LineNr">20905 </span> <a href='mu.subx.html#L20906'>_Primitive-break-if-addr<=-named</a>/imm32/next +<span id="L20906" class="LineNr">20906 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20907" class="LineNr">20907 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20908" class="LineNr">20908 </span> 0x11/imm32/alloc-id:fake -<span id="L20909" class="LineNr">20909 </span> <a href='mu.subx.html#L20910'>_Primitive-loop-if-<-named</a>/imm32/next -<span id="L20910" class="LineNr">20910 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20911" class="LineNr">20911 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20912" class="LineNr">20912 </span> 0x11/imm32/alloc-id:fake -<span id="L20913" class="LineNr">20913 </span> <a href='mu.subx.html#L21452'>_string-loop-if-<</a>/imm32/name +<span id="L20909" class="LineNr">20909 </span> <a href='mu.subx.html#L21620'>_string-break-if-addr<=</a>/imm32/name +<span id="L20910" class="LineNr">20910 </span> 0x11/imm32/alloc-id:fake +<span id="L20911" class="LineNr">20911 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20912" class="LineNr">20912 </span> 0/imm32/no-outputs +<span id="L20913" class="LineNr">20913 </span> 0/imm32/no-outputs <span id="L20914" class="LineNr">20914 </span> 0x11/imm32/alloc-id:fake -<span id="L20915" class="LineNr">20915 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20916" class="LineNr">20916 </span> 0/imm32/no-outputs -<span id="L20917" class="LineNr">20917 </span> 0/imm32/no-outputs -<span id="L20918" class="LineNr">20918 </span> 0x11/imm32/alloc-id:fake -<span id="L20919" class="LineNr">20919 </span> <a href='mu.subx.html#L21734'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L20920" class="LineNr">20920 </span> 0/imm32/no-rm32 -<span id="L20921" class="LineNr">20921 </span> 0/imm32/no-r32 -<span id="L20922" class="LineNr">20922 </span> 0/imm32/no-imm32 -<span id="L20923" class="LineNr">20923 </span> 0/imm32/no-imm8 -<span id="L20924" class="LineNr">20924 </span> 1/imm32/disp32-is-first-inout -<span id="L20925" class="LineNr">20925 </span> 0/imm32/no-xm32 -<span id="L20926" class="LineNr">20926 </span> 0/imm32/no-x32 +<span id="L20915" class="LineNr">20915 </span> <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L20916" class="LineNr">20916 </span> 0/imm32/no-rm32 +<span id="L20917" class="LineNr">20917 </span> 0/imm32/no-r32 +<span id="L20918" class="LineNr">20918 </span> 0/imm32/no-imm32 +<span id="L20919" class="LineNr">20919 </span> 0/imm32/no-imm8 +<span id="L20920" class="LineNr">20920 </span> 1/imm32/disp32-is-first-inout +<span id="L20921" class="LineNr">20921 </span> 0/imm32/no-xm32 +<span id="L20922" class="LineNr">20922 </span> 0/imm32/no-x32 +<span id="L20923" class="LineNr">20923 </span> 0x11/imm32/alloc-id:fake +<span id="L20924" class="LineNr">20924 </span> <a href='mu.subx.html#L20925'>_Primitive-break-if-addr>-named</a>/imm32/next +<span id="L20925" class="LineNr">20925 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20926" class="LineNr">20926 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20927" class="LineNr">20927 </span> 0x11/imm32/alloc-id:fake -<span id="L20928" class="LineNr">20928 </span> <a href='mu.subx.html#L20929'>_Primitive-loop-if->=-named</a>/imm32/next -<span id="L20929" class="LineNr">20929 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20930" class="LineNr">20930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20931" class="LineNr">20931 </span> 0x11/imm32/alloc-id:fake -<span id="L20932" class="LineNr">20932 </span> <a href='mu.subx.html#L21472'>_string-loop-if->=</a>/imm32/name +<span id="L20928" class="LineNr">20928 </span> <a href='mu.subx.html#L21625'>_string-break-if-addr></a>/imm32/name +<span id="L20929" class="LineNr">20929 </span> 0x11/imm32/alloc-id:fake +<span id="L20930" class="LineNr">20930 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20931" class="LineNr">20931 </span> 0/imm32/no-outputs +<span id="L20932" class="LineNr">20932 </span> 0/imm32/no-outputs <span id="L20933" class="LineNr">20933 </span> 0x11/imm32/alloc-id:fake -<span id="L20934" class="LineNr">20934 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20935" class="LineNr">20935 </span> 0/imm32/no-outputs -<span id="L20936" class="LineNr">20936 </span> 0/imm32/no-outputs -<span id="L20937" class="LineNr">20937 </span> 0x11/imm32/alloc-id:fake -<span id="L20938" class="LineNr">20938 </span> <a href='mu.subx.html#L21749'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L20939" class="LineNr">20939 </span> 0/imm32/no-rm32 -<span id="L20940" class="LineNr">20940 </span> 0/imm32/no-r32 -<span id="L20941" class="LineNr">20941 </span> 0/imm32/no-imm32 -<span id="L20942" class="LineNr">20942 </span> 0/imm32/no-imm8 -<span id="L20943" class="LineNr">20943 </span> 1/imm32/disp32-is-first-inout -<span id="L20944" class="LineNr">20944 </span> 0/imm32/no-xm32 -<span id="L20945" class="LineNr">20945 </span> 0/imm32/no-x32 +<span id="L20934" class="LineNr">20934 </span> <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L20935" class="LineNr">20935 </span> 0/imm32/no-rm32 +<span id="L20936" class="LineNr">20936 </span> 0/imm32/no-r32 +<span id="L20937" class="LineNr">20937 </span> 0/imm32/no-imm32 +<span id="L20938" class="LineNr">20938 </span> 0/imm32/no-imm8 +<span id="L20939" class="LineNr">20939 </span> 1/imm32/disp32-is-first-inout +<span id="L20940" class="LineNr">20940 </span> 0/imm32/no-xm32 +<span id="L20941" class="LineNr">20941 </span> 0/imm32/no-x32 +<span id="L20942" class="LineNr">20942 </span> 0x11/imm32/alloc-id:fake +<span id="L20943" class="LineNr">20943 </span> <a href='mu.subx.html#L20944'>_Primitive-break-if-<-named</a>/imm32/next +<span id="L20944" class="LineNr">20944 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20945" class="LineNr">20945 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20946" class="LineNr">20946 </span> 0x11/imm32/alloc-id:fake -<span id="L20947" class="LineNr">20947 </span> <a href='mu.subx.html#L20948'>_Primitive-loop-if-<=-named</a>/imm32/next -<span id="L20948" class="LineNr">20948 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20949" class="LineNr">20949 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20950" class="LineNr">20950 </span> 0x11/imm32/alloc-id:fake -<span id="L20951" class="LineNr">20951 </span> <a href='mu.subx.html#L21457'>_string-loop-if-<=</a>/imm32/name +<span id="L20947" class="LineNr">20947 </span> <a href='mu.subx.html#L21585'>_string-break-if-<</a>/imm32/name +<span id="L20948" class="LineNr">20948 </span> 0x11/imm32/alloc-id:fake +<span id="L20949" class="LineNr">20949 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20950" class="LineNr">20950 </span> 0/imm32/no-outputs +<span id="L20951" class="LineNr">20951 </span> 0/imm32/no-outputs <span id="L20952" class="LineNr">20952 </span> 0x11/imm32/alloc-id:fake -<span id="L20953" class="LineNr">20953 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20954" class="LineNr">20954 </span> 0/imm32/no-outputs -<span id="L20955" class="LineNr">20955 </span> 0/imm32/no-outputs -<span id="L20956" class="LineNr">20956 </span> 0x11/imm32/alloc-id:fake -<span id="L20957" class="LineNr">20957 </span> <a href='mu.subx.html#L21764'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L20958" class="LineNr">20958 </span> 0/imm32/no-rm32 -<span id="L20959" class="LineNr">20959 </span> 0/imm32/no-r32 -<span id="L20960" class="LineNr">20960 </span> 0/imm32/no-imm32 -<span id="L20961" class="LineNr">20961 </span> 0/imm32/no-imm8 -<span id="L20962" class="LineNr">20962 </span> 1/imm32/disp32-is-first-inout -<span id="L20963" class="LineNr">20963 </span> 0/imm32/no-xm32 -<span id="L20964" class="LineNr">20964 </span> 0/imm32/no-x32 +<span id="L20953" class="LineNr">20953 </span> <a href='mu.subx.html#L21987'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L20954" class="LineNr">20954 </span> 0/imm32/no-rm32 +<span id="L20955" class="LineNr">20955 </span> 0/imm32/no-r32 +<span id="L20956" class="LineNr">20956 </span> 0/imm32/no-imm32 +<span id="L20957" class="LineNr">20957 </span> 0/imm32/no-imm8 +<span id="L20958" class="LineNr">20958 </span> 1/imm32/disp32-is-first-inout +<span id="L20959" class="LineNr">20959 </span> 0/imm32/no-xm32 +<span id="L20960" class="LineNr">20960 </span> 0/imm32/no-x32 +<span id="L20961" class="LineNr">20961 </span> 0x11/imm32/alloc-id:fake +<span id="L20962" class="LineNr">20962 </span> <a href='mu.subx.html#L20963'>_Primitive-break-if->=-named</a>/imm32/next +<span id="L20963" class="LineNr">20963 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20964" class="LineNr">20964 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20965" class="LineNr">20965 </span> 0x11/imm32/alloc-id:fake -<span id="L20966" class="LineNr">20966 </span> <a href='mu.subx.html#L20967'>_Primitive-loop-if->-named</a>/imm32/next -<span id="L20967" class="LineNr">20967 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20968" class="LineNr">20968 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20969" class="LineNr">20969 </span> 0x11/imm32/alloc-id:fake -<span id="L20970" class="LineNr">20970 </span> <a href='mu.subx.html#L21467'>_string-loop-if-></a>/imm32/name +<span id="L20966" class="LineNr">20966 </span> <a href='mu.subx.html#L21605'>_string-break-if->=</a>/imm32/name +<span id="L20967" class="LineNr">20967 </span> 0x11/imm32/alloc-id:fake +<span id="L20968" class="LineNr">20968 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20969" class="LineNr">20969 </span> 0/imm32/no-outputs +<span id="L20970" class="LineNr">20970 </span> 0/imm32/no-outputs <span id="L20971" class="LineNr">20971 </span> 0x11/imm32/alloc-id:fake -<span id="L20972" class="LineNr">20972 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20973" class="LineNr">20973 </span> 0/imm32/no-outputs -<span id="L20974" class="LineNr">20974 </span> 0/imm32/no-outputs -<span id="L20975" class="LineNr">20975 </span> 0x11/imm32/alloc-id:fake -<span id="L20976" class="LineNr">20976 </span> <a href='mu.subx.html#L21779'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L20977" class="LineNr">20977 </span> 0/imm32/no-rm32 -<span id="L20978" class="LineNr">20978 </span> 0/imm32/no-r32 -<span id="L20979" class="LineNr">20979 </span> 0/imm32/no-imm32 -<span id="L20980" class="LineNr">20980 </span> 0/imm32/no-imm8 -<span id="L20981" class="LineNr">20981 </span> 1/imm32/disp32-is-first-inout -<span id="L20982" class="LineNr">20982 </span> 0/imm32/no-xm32 -<span id="L20983" class="LineNr">20983 </span> 0/imm32/no-x32 +<span id="L20972" class="LineNr">20972 </span> <a href='mu.subx.html#L22002'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L20973" class="LineNr">20973 </span> 0/imm32/no-rm32 +<span id="L20974" class="LineNr">20974 </span> 0/imm32/no-r32 +<span id="L20975" class="LineNr">20975 </span> 0/imm32/no-imm32 +<span id="L20976" class="LineNr">20976 </span> 0/imm32/no-imm8 +<span id="L20977" class="LineNr">20977 </span> 1/imm32/disp32-is-first-inout +<span id="L20978" class="LineNr">20978 </span> 0/imm32/no-xm32 +<span id="L20979" class="LineNr">20979 </span> 0/imm32/no-x32 +<span id="L20980" class="LineNr">20980 </span> 0x11/imm32/alloc-id:fake +<span id="L20981" class="LineNr">20981 </span> <a href='mu.subx.html#L20982'>_Primitive-break-if-<=-named</a>/imm32/next +<span id="L20982" class="LineNr">20982 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L20983" class="LineNr">20983 </span> 0x11/imm32/alloc-id:fake:payload <span id="L20984" class="LineNr">20984 </span> 0x11/imm32/alloc-id:fake -<span id="L20985" class="LineNr">20985 </span> <a href='mu.subx.html#L20986'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L20986" class="LineNr">20986 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L20987" class="LineNr">20987 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L20988" class="LineNr">20988 </span> 0x11/imm32/alloc-id:fake -<span id="L20989" class="LineNr">20989 </span> <a href='mu.subx.html#L21447'>_string-loop</a>/imm32/name +<span id="L20985" class="LineNr">20985 </span> <a href='mu.subx.html#L21590'>_string-break-if-<=</a>/imm32/name +<span id="L20986" class="LineNr">20986 </span> 0x11/imm32/alloc-id:fake +<span id="L20987" class="LineNr">20987 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L20988" class="LineNr">20988 </span> 0/imm32/no-outputs +<span id="L20989" class="LineNr">20989 </span> 0/imm32/no-outputs <span id="L20990" class="LineNr">20990 </span> 0x11/imm32/alloc-id:fake -<span id="L20991" class="LineNr">20991 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L20992" class="LineNr">20992 </span> 0/imm32/no-outputs -<span id="L20993" class="LineNr">20993 </span> 0/imm32/no-outputs -<span id="L20994" class="LineNr">20994 </span> 0x11/imm32/alloc-id:fake -<span id="L20995" class="LineNr">20995 </span> <a href='mu.subx.html#L22079'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L20996" class="LineNr">20996 </span> 0/imm32/no-rm32 -<span id="L20997" class="LineNr">20997 </span> 0/imm32/no-r32 -<span id="L20998" class="LineNr">20998 </span> 0/imm32/no-imm32 -<span id="L20999" class="LineNr">20999 </span> 0/imm32/no-imm8 -<span id="L21000" class="LineNr">21000 </span> 1/imm32/disp32-is-first-inout -<span id="L21001" class="LineNr">21001 </span> 0/imm32/no-xm32 -<span id="L21002" class="LineNr">21002 </span> 0/imm32/no-x32 +<span id="L20991" class="LineNr">20991 </span> <a href='mu.subx.html#L22017'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L20992" class="LineNr">20992 </span> 0/imm32/no-rm32 +<span id="L20993" class="LineNr">20993 </span> 0/imm32/no-r32 +<span id="L20994" class="LineNr">20994 </span> 0/imm32/no-imm32 +<span id="L20995" class="LineNr">20995 </span> 0/imm32/no-imm8 +<span id="L20996" class="LineNr">20996 </span> 1/imm32/disp32-is-first-inout +<span id="L20997" class="LineNr">20997 </span> 0/imm32/no-xm32 +<span id="L20998" class="LineNr">20998 </span> 0/imm32/no-x32 +<span id="L20999" class="LineNr">20999 </span> 0x11/imm32/alloc-id:fake +<span id="L21000" class="LineNr">21000 </span> <a href='mu.subx.html#L21001'>_Primitive-break-if->-named</a>/imm32/next +<span id="L21001" class="LineNr">21001 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21002" class="LineNr">21002 </span> 0x11/imm32/alloc-id:fake:payload <span id="L21003" class="LineNr">21003 </span> 0x11/imm32/alloc-id:fake -<span id="L21004" class="LineNr">21004 </span> <a href='mu.subx.html#L21006'>_Primitive-break-if-float<</a>/imm32/next -<span id="L21005" class="LineNr">21005 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> -<span id="L21006" class="LineNr">21006 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21007" class="LineNr">21007 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21008" class="LineNr">21008 </span> 0x11/imm32/alloc-id:fake -<span id="L21009" class="LineNr">21009 </span> <a href='mu.subx.html#L21392'>_string-break-if-float<</a>/imm32/name -<span id="L21010" class="LineNr">21010 </span> 0/imm32/no-inouts -<span id="L21011" class="LineNr">21011 </span> 0/imm32/no-inouts -<span id="L21012" class="LineNr">21012 </span> 0/imm32/no-outputs -<span id="L21013" class="LineNr">21013 </span> 0/imm32/no-outputs -<span id="L21014" class="LineNr">21014 </span> 0x11/imm32/alloc-id:fake -<span id="L21015" class="LineNr">21015 </span> <a href='mu.subx.html#L21649'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L21016" class="LineNr">21016 </span> 0/imm32/no-rm32 -<span id="L21017" class="LineNr">21017 </span> 0/imm32/no-r32 -<span id="L21018" class="LineNr">21018 </span> 0/imm32/no-imm32 -<span id="L21019" class="LineNr">21019 </span> 0/imm32/no-imm8 -<span id="L21020" class="LineNr">21020 </span> 0/imm32/no-disp32 -<span id="L21021" class="LineNr">21021 </span> 0/imm32/no-xm32 -<span id="L21022" class="LineNr">21022 </span> 0/imm32/no-x32 -<span id="L21023" class="LineNr">21023 </span> 0x11/imm32/alloc-id:fake -<span id="L21024" class="LineNr">21024 </span> <a href='mu.subx.html#L21025'>_Primitive-break-if-float>=</a>/imm32/next -<span id="L21025" class="LineNr">21025 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21026" class="LineNr">21026 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21027" class="LineNr">21027 </span> 0x11/imm32/alloc-id:fake -<span id="L21028" class="LineNr">21028 </span> <a href='mu.subx.html#L21407'>_string-break-if-float>=</a>/imm32/name -<span id="L21029" class="LineNr">21029 </span> 0/imm32/no-inouts -<span id="L21030" class="LineNr">21030 </span> 0/imm32/no-inouts -<span id="L21031" class="LineNr">21031 </span> 0/imm32/no-outputs -<span id="L21032" class="LineNr">21032 </span> 0/imm32/no-outputs -<span id="L21033" class="LineNr">21033 </span> 0x11/imm32/alloc-id:fake -<span id="L21034" class="LineNr">21034 </span> <a href='mu.subx.html#L21664'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L21035" class="LineNr">21035 </span> 0/imm32/no-rm32 -<span id="L21036" class="LineNr">21036 </span> 0/imm32/no-r32 -<span id="L21037" class="LineNr">21037 </span> 0/imm32/no-imm32 -<span id="L21038" class="LineNr">21038 </span> 0/imm32/no-imm8 -<span id="L21039" class="LineNr">21039 </span> 0/imm32/no-disp32 -<span id="L21040" class="LineNr">21040 </span> 0/imm32/no-xm32 -<span id="L21041" class="LineNr">21041 </span> 0/imm32/no-x32 -<span id="L21042" class="LineNr">21042 </span> 0x11/imm32/alloc-id:fake -<span id="L21043" class="LineNr">21043 </span> <a href='mu.subx.html#L21044'>_Primitive-break-if-float<=</a>/imm32/next -<span id="L21044" class="LineNr">21044 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21045" class="LineNr">21045 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21046" class="LineNr">21046 </span> 0x11/imm32/alloc-id:fake -<span id="L21047" class="LineNr">21047 </span> <a href='mu.subx.html#L21397'>_string-break-if-float<=</a>/imm32/name -<span id="L21048" class="LineNr">21048 </span> 0/imm32/no-inouts -<span id="L21049" class="LineNr">21049 </span> 0/imm32/no-inouts -<span id="L21050" class="LineNr">21050 </span> 0/imm32/no-outputs -<span id="L21051" class="LineNr">21051 </span> 0/imm32/no-outputs -<span id="L21052" class="LineNr">21052 </span> 0x11/imm32/alloc-id:fake -<span id="L21053" class="LineNr">21053 </span> <a href='mu.subx.html#L21709'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L21054" class="LineNr">21054 </span> 0/imm32/no-rm32 -<span id="L21055" class="LineNr">21055 </span> 0/imm32/no-r32 -<span id="L21056" class="LineNr">21056 </span> 0/imm32/no-imm32 -<span id="L21057" class="LineNr">21057 </span> 0/imm32/no-imm8 -<span id="L21058" class="LineNr">21058 </span> 0/imm32/no-disp32 -<span id="L21059" class="LineNr">21059 </span> 0/imm32/no-xm32 -<span id="L21060" class="LineNr">21060 </span> 0/imm32/no-x32 -<span id="L21061" class="LineNr">21061 </span> 0x11/imm32/alloc-id:fake -<span id="L21062" class="LineNr">21062 </span> <a href='mu.subx.html#L21063'>_Primitive-break-if-float></a>/imm32/next -<span id="L21063" class="LineNr">21063 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21064" class="LineNr">21064 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21065" class="LineNr">21065 </span> 0x11/imm32/alloc-id:fake -<span id="L21066" class="LineNr">21066 </span> <a href='mu.subx.html#L21402'>_string-break-if-float></a>/imm32/name -<span id="L21067" class="LineNr">21067 </span> 0/imm32/no-inouts -<span id="L21068" class="LineNr">21068 </span> 0/imm32/no-inouts -<span id="L21069" class="LineNr">21069 </span> 0/imm32/no-outputs -<span id="L21070" class="LineNr">21070 </span> 0/imm32/no-outputs -<span id="L21071" class="LineNr">21071 </span> 0x11/imm32/alloc-id:fake -<span id="L21072" class="LineNr">21072 </span> <a href='mu.subx.html#L21724'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L21073" class="LineNr">21073 </span> 0/imm32/no-rm32 -<span id="L21074" class="LineNr">21074 </span> 0/imm32/no-r32 -<span id="L21075" class="LineNr">21075 </span> 0/imm32/no-imm32 -<span id="L21076" class="LineNr">21076 </span> 0/imm32/no-imm8 -<span id="L21077" class="LineNr">21077 </span> 0/imm32/no-disp32 -<span id="L21078" class="LineNr">21078 </span> 0/imm32/no-xm32 -<span id="L21079" class="LineNr">21079 </span> 0/imm32/no-x32 -<span id="L21080" class="LineNr">21080 </span> 0x11/imm32/alloc-id:fake -<span id="L21081" class="LineNr">21081 </span> <a href='mu.subx.html#L21082'>_Primitive-loop-if-float<</a>/imm32/next -<span id="L21082" class="LineNr">21082 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21083" class="LineNr">21083 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21084" class="LineNr">21084 </span> 0x11/imm32/alloc-id:fake -<span id="L21085" class="LineNr">21085 </span> <a href='mu.subx.html#L21502'>_string-loop-if-float<</a>/imm32/name -<span id="L21086" class="LineNr">21086 </span> 0/imm32/no-inouts -<span id="L21087" class="LineNr">21087 </span> 0/imm32/no-inouts -<span id="L21088" class="LineNr">21088 </span> 0/imm32/no-outputs -<span id="L21089" class="LineNr">21089 </span> 0/imm32/no-outputs -<span id="L21090" class="LineNr">21090 </span> 0x11/imm32/alloc-id:fake -<span id="L21091" class="LineNr">21091 </span> <a href='mu.subx.html#L21654'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L21092" class="LineNr">21092 </span> 0/imm32/no-rm32 -<span id="L21093" class="LineNr">21093 </span> 0/imm32/no-r32 -<span id="L21094" class="LineNr">21094 </span> 0/imm32/no-imm32 -<span id="L21095" class="LineNr">21095 </span> 0/imm32/no-imm8 -<span id="L21096" class="LineNr">21096 </span> 0/imm32/no-disp32 -<span id="L21097" class="LineNr">21097 </span> 0/imm32/no-xm32 -<span id="L21098" class="LineNr">21098 </span> 0/imm32/no-x32 -<span id="L21099" class="LineNr">21099 </span> 0x11/imm32/alloc-id:fake -<span id="L21100" class="LineNr">21100 </span> <a href='mu.subx.html#L21101'>_Primitive-loop-if-float>=</a>/imm32/next -<span id="L21101" class="LineNr">21101 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21102" class="LineNr">21102 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21103" class="LineNr">21103 </span> 0x11/imm32/alloc-id:fake -<span id="L21104" class="LineNr">21104 </span> <a href='mu.subx.html#L21517'>_string-loop-if-float>=</a>/imm32/name -<span id="L21105" class="LineNr">21105 </span> 0/imm32/no-inouts -<span id="L21106" class="LineNr">21106 </span> 0/imm32/no-inouts -<span id="L21107" class="LineNr">21107 </span> 0/imm32/no-outputs -<span id="L21108" class="LineNr">21108 </span> 0/imm32/no-outputs -<span id="L21109" class="LineNr">21109 </span> 0x11/imm32/alloc-id:fake -<span id="L21110" class="LineNr">21110 </span> <a href='mu.subx.html#L21669'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L21111" class="LineNr">21111 </span> 0/imm32/no-rm32 -<span id="L21112" class="LineNr">21112 </span> 0/imm32/no-r32 -<span id="L21113" class="LineNr">21113 </span> 0/imm32/no-imm32 -<span id="L21114" class="LineNr">21114 </span> 0/imm32/no-imm8 -<span id="L21115" class="LineNr">21115 </span> 0/imm32/no-disp32 -<span id="L21116" class="LineNr">21116 </span> 0/imm32/no-xm32 -<span id="L21117" class="LineNr">21117 </span> 0/imm32/no-x32 -<span id="L21118" class="LineNr">21118 </span> 0x11/imm32/alloc-id:fake -<span id="L21119" class="LineNr">21119 </span> <a href='mu.subx.html#L21120'>_Primitive-loop-if-float<=</a>/imm32/next -<span id="L21120" class="LineNr">21120 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21121" class="LineNr">21121 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21122" class="LineNr">21122 </span> 0x11/imm32/alloc-id:fake -<span id="L21123" class="LineNr">21123 </span> <a href='mu.subx.html#L21507'>_string-loop-if-float<=</a>/imm32/name -<span id="L21124" class="LineNr">21124 </span> 0/imm32/no-inouts -<span id="L21125" class="LineNr">21125 </span> 0/imm32/no-inouts -<span id="L21126" class="LineNr">21126 </span> 0/imm32/no-outputs -<span id="L21127" class="LineNr">21127 </span> 0/imm32/no-outputs -<span id="L21128" class="LineNr">21128 </span> 0x11/imm32/alloc-id:fake -<span id="L21129" class="LineNr">21129 </span> <a href='mu.subx.html#L21714'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L21130" class="LineNr">21130 </span> 0/imm32/no-rm32 -<span id="L21131" class="LineNr">21131 </span> 0/imm32/no-r32 -<span id="L21132" class="LineNr">21132 </span> 0/imm32/no-imm32 -<span id="L21133" class="LineNr">21133 </span> 0/imm32/no-imm8 -<span id="L21134" class="LineNr">21134 </span> 0/imm32/no-disp32 -<span id="L21135" class="LineNr">21135 </span> 0/imm32/no-xm32 -<span id="L21136" class="LineNr">21136 </span> 0/imm32/no-x32 -<span id="L21137" class="LineNr">21137 </span> 0x11/imm32/alloc-id:fake -<span id="L21138" class="LineNr">21138 </span> <a href='mu.subx.html#L21139'>_Primitive-loop-if-float></a>/imm32/next -<span id="L21139" class="LineNr">21139 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21140" class="LineNr">21140 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21141" class="LineNr">21141 </span> 0x11/imm32/alloc-id:fake -<span id="L21142" class="LineNr">21142 </span> <a href='mu.subx.html#L21512'>_string-loop-if-float></a>/imm32/name -<span id="L21143" class="LineNr">21143 </span> 0/imm32/no-inouts -<span id="L21144" class="LineNr">21144 </span> 0/imm32/no-inouts -<span id="L21145" class="LineNr">21145 </span> 0/imm32/no-outputs -<span id="L21146" class="LineNr">21146 </span> 0/imm32/no-outputs -<span id="L21147" class="LineNr">21147 </span> 0x11/imm32/alloc-id:fake -<span id="L21148" class="LineNr">21148 </span> <a href='mu.subx.html#L21729'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L21149" class="LineNr">21149 </span> 0/imm32/no-rm32 -<span id="L21150" class="LineNr">21150 </span> 0/imm32/no-r32 -<span id="L21151" class="LineNr">21151 </span> 0/imm32/no-imm32 -<span id="L21152" class="LineNr">21152 </span> 0/imm32/no-imm8 -<span id="L21153" class="LineNr">21153 </span> 0/imm32/no-disp32 -<span id="L21154" class="LineNr">21154 </span> 0/imm32/no-xm32 -<span id="L21155" class="LineNr">21155 </span> 0/imm32/no-x32 -<span id="L21156" class="LineNr">21156 </span> 0x11/imm32/alloc-id:fake -<span id="L21157" class="LineNr">21157 </span> <a href='mu.subx.html#L21158'>_Primitive-break-if-float<-named</a>/imm32/next -<span id="L21158" class="LineNr">21158 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21159" class="LineNr">21159 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21160" class="LineNr">21160 </span> 0x11/imm32/alloc-id:fake -<span id="L21161" class="LineNr">21161 </span> <a href='mu.subx.html#L21392'>_string-break-if-float<</a>/imm32/name -<span id="L21162" class="LineNr">21162 </span> 0x11/imm32/alloc-id:fake -<span id="L21163" class="LineNr">21163 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21164" class="LineNr">21164 </span> 0/imm32/no-outputs -<span id="L21165" class="LineNr">21165 </span> 0/imm32/no-outputs -<span id="L21166" class="LineNr">21166 </span> 0x11/imm32/alloc-id:fake -<span id="L21167" class="LineNr">21167 </span> <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L21168" class="LineNr">21168 </span> 0/imm32/no-rm32 -<span id="L21169" class="LineNr">21169 </span> 0/imm32/no-r32 -<span id="L21170" class="LineNr">21170 </span> 0/imm32/no-imm32 -<span id="L21171" class="LineNr">21171 </span> 0/imm32/no-imm8 -<span id="L21172" class="LineNr">21172 </span> 1/imm32/disp32-is-first-inout -<span id="L21173" class="LineNr">21173 </span> 0/imm32/no-xm32 -<span id="L21174" class="LineNr">21174 </span> 0/imm32/no-x32 -<span id="L21175" class="LineNr">21175 </span> 0x11/imm32/alloc-id:fake -<span id="L21176" class="LineNr">21176 </span> <a href='mu.subx.html#L21177'>_Primitive-break-if-float>=-named</a>/imm32/next -<span id="L21177" class="LineNr">21177 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21178" class="LineNr">21178 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21179" class="LineNr">21179 </span> 0x11/imm32/alloc-id:fake -<span id="L21180" class="LineNr">21180 </span> <a href='mu.subx.html#L21407'>_string-break-if-float>=</a>/imm32/name -<span id="L21181" class="LineNr">21181 </span> 0x11/imm32/alloc-id:fake -<span id="L21182" class="LineNr">21182 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21183" class="LineNr">21183 </span> 0/imm32/no-outputs -<span id="L21184" class="LineNr">21184 </span> 0/imm32/no-outputs -<span id="L21185" class="LineNr">21185 </span> 0x11/imm32/alloc-id:fake -<span id="L21186" class="LineNr">21186 </span> <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L21187" class="LineNr">21187 </span> 0/imm32/no-rm32 -<span id="L21188" class="LineNr">21188 </span> 0/imm32/no-r32 -<span id="L21189" class="LineNr">21189 </span> 0/imm32/no-imm32 -<span id="L21190" class="LineNr">21190 </span> 0/imm32/no-imm8 -<span id="L21191" class="LineNr">21191 </span> 1/imm32/disp32-is-first-inout -<span id="L21192" class="LineNr">21192 </span> 0/imm32/no-xm32 -<span id="L21193" class="LineNr">21193 </span> 0/imm32/no-x32 -<span id="L21194" class="LineNr">21194 </span> 0x11/imm32/alloc-id:fake -<span id="L21195" class="LineNr">21195 </span> <a href='mu.subx.html#L21196'>_Primitive-break-if-float<=-named</a>/imm32/next -<span id="L21196" class="LineNr">21196 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21197" class="LineNr">21197 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21198" class="LineNr">21198 </span> 0x11/imm32/alloc-id:fake -<span id="L21199" class="LineNr">21199 </span> <a href='mu.subx.html#L21397'>_string-break-if-float<=</a>/imm32/name -<span id="L21200" class="LineNr">21200 </span> 0x11/imm32/alloc-id:fake -<span id="L21201" class="LineNr">21201 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21202" class="LineNr">21202 </span> 0/imm32/no-outputs -<span id="L21203" class="LineNr">21203 </span> 0/imm32/no-outputs -<span id="L21204" class="LineNr">21204 </span> 0x11/imm32/alloc-id:fake -<span id="L21205" class="LineNr">21205 </span> <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L21206" class="LineNr">21206 </span> 0/imm32/no-rm32 -<span id="L21207" class="LineNr">21207 </span> 0/imm32/no-r32 -<span id="L21208" class="LineNr">21208 </span> 0/imm32/no-imm32 -<span id="L21209" class="LineNr">21209 </span> 0/imm32/no-imm8 -<span id="L21210" class="LineNr">21210 </span> 1/imm32/disp32-is-first-inout -<span id="L21211" class="LineNr">21211 </span> 0/imm32/no-xm32 -<span id="L21212" class="LineNr">21212 </span> 0/imm32/no-x32 -<span id="L21213" class="LineNr">21213 </span> 0x11/imm32/alloc-id:fake -<span id="L21214" class="LineNr">21214 </span> <a href='mu.subx.html#L21215'>_Primitive-break-if-float>-named</a>/imm32/next -<span id="L21215" class="LineNr">21215 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21216" class="LineNr">21216 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21217" class="LineNr">21217 </span> 0x11/imm32/alloc-id:fake -<span id="L21218" class="LineNr">21218 </span> <a href='mu.subx.html#L21402'>_string-break-if-float></a>/imm32/name -<span id="L21219" class="LineNr">21219 </span> 0x11/imm32/alloc-id:fake -<span id="L21220" class="LineNr">21220 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21221" class="LineNr">21221 </span> 0/imm32/no-outputs -<span id="L21222" class="LineNr">21222 </span> 0/imm32/no-outputs -<span id="L21223" class="LineNr">21223 </span> 0x11/imm32/alloc-id:fake -<span id="L21224" class="LineNr">21224 </span> <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L21225" class="LineNr">21225 </span> 0/imm32/no-rm32 -<span id="L21226" class="LineNr">21226 </span> 0/imm32/no-r32 -<span id="L21227" class="LineNr">21227 </span> 0/imm32/no-imm32 -<span id="L21228" class="LineNr">21228 </span> 0/imm32/no-imm8 -<span id="L21229" class="LineNr">21229 </span> 1/imm32/disp32-is-first-inout -<span id="L21230" class="LineNr">21230 </span> 0/imm32/no-xm32 -<span id="L21231" class="LineNr">21231 </span> 0/imm32/no-x32 -<span id="L21232" class="LineNr">21232 </span> 0x11/imm32/alloc-id:fake -<span id="L21233" class="LineNr">21233 </span> <a href='mu.subx.html#L21234'>_Primitive-loop-if-float<-named</a>/imm32/next -<span id="L21234" class="LineNr">21234 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21235" class="LineNr">21235 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21236" class="LineNr">21236 </span> 0x11/imm32/alloc-id:fake -<span id="L21237" class="LineNr">21237 </span> <a href='mu.subx.html#L21502'>_string-loop-if-float<</a>/imm32/name -<span id="L21238" class="LineNr">21238 </span> 0x11/imm32/alloc-id:fake -<span id="L21239" class="LineNr">21239 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21240" class="LineNr">21240 </span> 0/imm32/no-outputs -<span id="L21241" class="LineNr">21241 </span> 0/imm32/no-outputs -<span id="L21242" class="LineNr">21242 </span> 0x11/imm32/alloc-id:fake -<span id="L21243" class="LineNr">21243 </span> <a href='mu.subx.html#L21644'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L21244" class="LineNr">21244 </span> 0/imm32/no-rm32 -<span id="L21245" class="LineNr">21245 </span> 0/imm32/no-r32 -<span id="L21246" class="LineNr">21246 </span> 0/imm32/no-imm32 -<span id="L21247" class="LineNr">21247 </span> 0/imm32/no-imm8 -<span id="L21248" class="LineNr">21248 </span> 1/imm32/disp32-is-first-inout -<span id="L21249" class="LineNr">21249 </span> 0/imm32/no-xm32 -<span id="L21250" class="LineNr">21250 </span> 0/imm32/no-x32 +<span id="L21004" class="LineNr">21004 </span> <a href='mu.subx.html#L21600'>_string-break-if-></a>/imm32/name +<span id="L21005" class="LineNr">21005 </span> 0x11/imm32/alloc-id:fake +<span id="L21006" class="LineNr">21006 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21007" class="LineNr">21007 </span> 0/imm32/no-outputs +<span id="L21008" class="LineNr">21008 </span> 0/imm32/no-outputs +<span id="L21009" class="LineNr">21009 </span> 0x11/imm32/alloc-id:fake +<span id="L21010" class="LineNr">21010 </span> <a href='mu.subx.html#L22032'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L21011" class="LineNr">21011 </span> 0/imm32/no-rm32 +<span id="L21012" class="LineNr">21012 </span> 0/imm32/no-r32 +<span id="L21013" class="LineNr">21013 </span> 0/imm32/no-imm32 +<span id="L21014" class="LineNr">21014 </span> 0/imm32/no-imm8 +<span id="L21015" class="LineNr">21015 </span> 1/imm32/disp32-is-first-inout +<span id="L21016" class="LineNr">21016 </span> 0/imm32/no-xm32 +<span id="L21017" class="LineNr">21017 </span> 0/imm32/no-x32 +<span id="L21018" class="LineNr">21018 </span> 0x11/imm32/alloc-id:fake +<span id="L21019" class="LineNr">21019 </span> <a href='mu.subx.html#L21020'>_Primitive-break-named</a>/imm32/next +<span id="L21020" class="LineNr">21020 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21021" class="LineNr">21021 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21022" class="LineNr">21022 </span> 0x11/imm32/alloc-id:fake +<span id="L21023" class="LineNr">21023 </span> <a href='mu.subx.html#L21580'>_string-break</a>/imm32/name +<span id="L21024" class="LineNr">21024 </span> 0x11/imm32/alloc-id:fake +<span id="L21025" class="LineNr">21025 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21026" class="LineNr">21026 </span> 0/imm32/no-outputs +<span id="L21027" class="LineNr">21027 </span> 0/imm32/no-outputs +<span id="L21028" class="LineNr">21028 </span> 0x11/imm32/alloc-id:fake +<span id="L21029" class="LineNr">21029 </span> <a href='mu.subx.html#L22337'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L21030" class="LineNr">21030 </span> 0/imm32/no-rm32 +<span id="L21031" class="LineNr">21031 </span> 0/imm32/no-r32 +<span id="L21032" class="LineNr">21032 </span> 0/imm32/no-imm32 +<span id="L21033" class="LineNr">21033 </span> 0/imm32/no-imm8 +<span id="L21034" class="LineNr">21034 </span> 1/imm32/disp32-is-first-inout +<span id="L21035" class="LineNr">21035 </span> 0/imm32/no-xm32 +<span id="L21036" class="LineNr">21036 </span> 0/imm32/no-x32 +<span id="L21037" class="LineNr">21037 </span> 0x11/imm32/alloc-id:fake +<span id="L21038" class="LineNr">21038 </span> <a href='mu.subx.html#L21039'>_Primitive-loop-if-addr<-named</a>/imm32/next +<span id="L21039" class="LineNr">21039 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21040" class="LineNr">21040 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21041" class="LineNr">21041 </span> 0x11/imm32/alloc-id:fake +<span id="L21042" class="LineNr">21042 </span> <a href='mu.subx.html#L21725'>_string-loop-if-addr<</a>/imm32/name +<span id="L21043" class="LineNr">21043 </span> 0x11/imm32/alloc-id:fake +<span id="L21044" class="LineNr">21044 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21045" class="LineNr">21045 </span> 0/imm32/no-outputs +<span id="L21046" class="LineNr">21046 </span> 0/imm32/no-outputs +<span id="L21047" class="LineNr">21047 </span> 0x11/imm32/alloc-id:fake +<span id="L21048" class="LineNr">21048 </span> <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L21049" class="LineNr">21049 </span> 0/imm32/no-rm32 +<span id="L21050" class="LineNr">21050 </span> 0/imm32/no-r32 +<span id="L21051" class="LineNr">21051 </span> 0/imm32/no-imm32 +<span id="L21052" class="LineNr">21052 </span> 0/imm32/no-imm8 +<span id="L21053" class="LineNr">21053 </span> 1/imm32/disp32-is-first-inout +<span id="L21054" class="LineNr">21054 </span> 0/imm32/no-xm32 +<span id="L21055" class="LineNr">21055 </span> 0/imm32/no-x32 +<span id="L21056" class="LineNr">21056 </span> 0x11/imm32/alloc-id:fake +<span id="L21057" class="LineNr">21057 </span> <a href='mu.subx.html#L21058'>_Primitive-loop-if-addr>=-named</a>/imm32/next +<span id="L21058" class="LineNr">21058 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21059" class="LineNr">21059 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21060" class="LineNr">21060 </span> 0x11/imm32/alloc-id:fake +<span id="L21061" class="LineNr">21061 </span> <a href='mu.subx.html#L21740'>_string-loop-if-addr>=</a>/imm32/name +<span id="L21062" class="LineNr">21062 </span> 0x11/imm32/alloc-id:fake +<span id="L21063" class="LineNr">21063 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21064" class="LineNr">21064 </span> 0/imm32/no-outputs +<span id="L21065" class="LineNr">21065 </span> 0/imm32/no-outputs +<span id="L21066" class="LineNr">21066 </span> 0x11/imm32/alloc-id:fake +<span id="L21067" class="LineNr">21067 </span> <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L21068" class="LineNr">21068 </span> 0/imm32/no-rm32 +<span id="L21069" class="LineNr">21069 </span> 0/imm32/no-r32 +<span id="L21070" class="LineNr">21070 </span> 0/imm32/no-imm32 +<span id="L21071" class="LineNr">21071 </span> 0/imm32/no-imm8 +<span id="L21072" class="LineNr">21072 </span> 1/imm32/disp32-is-first-inout +<span id="L21073" class="LineNr">21073 </span> 0/imm32/no-xm32 +<span id="L21074" class="LineNr">21074 </span> 0/imm32/no-x32 +<span id="L21075" class="LineNr">21075 </span> 0x11/imm32/alloc-id:fake +<span id="L21076" class="LineNr">21076 </span> <a href='mu.subx.html#L21077'>_Primitive-loop-if-=-named</a>/imm32/next +<span id="L21077" class="LineNr">21077 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21078" class="LineNr">21078 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21079" class="LineNr">21079 </span> 0x11/imm32/alloc-id:fake +<span id="L21080" class="LineNr">21080 </span> <a href='mu.subx.html#L21705'>_string-loop-if-=</a>/imm32/name +<span id="L21081" class="LineNr">21081 </span> 0x11/imm32/alloc-id:fake +<span id="L21082" class="LineNr">21082 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21083" class="LineNr">21083 </span> 0/imm32/no-outputs +<span id="L21084" class="LineNr">21084 </span> 0/imm32/no-outputs +<span id="L21085" class="LineNr">21085 </span> 0x11/imm32/alloc-id:fake +<span id="L21086" class="LineNr">21086 </span> <a href='mu.subx.html#L21927'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L21087" class="LineNr">21087 </span> 0/imm32/no-rm32 +<span id="L21088" class="LineNr">21088 </span> 0/imm32/no-r32 +<span id="L21089" class="LineNr">21089 </span> 0/imm32/no-imm32 +<span id="L21090" class="LineNr">21090 </span> 0/imm32/no-imm8 +<span id="L21091" class="LineNr">21091 </span> 1/imm32/disp32-is-first-inout +<span id="L21092" class="LineNr">21092 </span> 0/imm32/no-xm32 +<span id="L21093" class="LineNr">21093 </span> 0/imm32/no-x32 +<span id="L21094" class="LineNr">21094 </span> 0x11/imm32/alloc-id:fake +<span id="L21095" class="LineNr">21095 </span> <a href='mu.subx.html#L21096'>_Primitive-loop-if-!=-named</a>/imm32/next +<span id="L21096" class="LineNr">21096 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21097" class="LineNr">21097 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21098" class="LineNr">21098 </span> 0x11/imm32/alloc-id:fake +<span id="L21099" class="LineNr">21099 </span> <a href='mu.subx.html#L21720'>_string-loop-if-!=</a>/imm32/name +<span id="L21100" class="LineNr">21100 </span> 0x11/imm32/alloc-id:fake +<span id="L21101" class="LineNr">21101 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21102" class="LineNr">21102 </span> 0/imm32/no-outputs +<span id="L21103" class="LineNr">21103 </span> 0/imm32/no-outputs +<span id="L21104" class="LineNr">21104 </span> 0x11/imm32/alloc-id:fake +<span id="L21105" class="LineNr">21105 </span> <a href='mu.subx.html#L21942'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L21106" class="LineNr">21106 </span> 0/imm32/no-rm32 +<span id="L21107" class="LineNr">21107 </span> 0/imm32/no-r32 +<span id="L21108" class="LineNr">21108 </span> 0/imm32/no-imm32 +<span id="L21109" class="LineNr">21109 </span> 0/imm32/no-imm8 +<span id="L21110" class="LineNr">21110 </span> 1/imm32/disp32-is-first-inout +<span id="L21111" class="LineNr">21111 </span> 0/imm32/no-xm32 +<span id="L21112" class="LineNr">21112 </span> 0/imm32/no-x32 +<span id="L21113" class="LineNr">21113 </span> 0x11/imm32/alloc-id:fake +<span id="L21114" class="LineNr">21114 </span> <a href='mu.subx.html#L21115'>_Primitive-loop-if-addr<=-named</a>/imm32/next +<span id="L21115" class="LineNr">21115 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21116" class="LineNr">21116 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21117" class="LineNr">21117 </span> 0x11/imm32/alloc-id:fake +<span id="L21118" class="LineNr">21118 </span> <a href='mu.subx.html#L21730'>_string-loop-if-addr<=</a>/imm32/name +<span id="L21119" class="LineNr">21119 </span> 0x11/imm32/alloc-id:fake +<span id="L21120" class="LineNr">21120 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21121" class="LineNr">21121 </span> 0/imm32/no-outputs +<span id="L21122" class="LineNr">21122 </span> 0/imm32/no-outputs +<span id="L21123" class="LineNr">21123 </span> 0x11/imm32/alloc-id:fake +<span id="L21124" class="LineNr">21124 </span> <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L21125" class="LineNr">21125 </span> 0/imm32/no-rm32 +<span id="L21126" class="LineNr">21126 </span> 0/imm32/no-r32 +<span id="L21127" class="LineNr">21127 </span> 0/imm32/no-imm32 +<span id="L21128" class="LineNr">21128 </span> 0/imm32/no-imm8 +<span id="L21129" class="LineNr">21129 </span> 1/imm32/disp32-is-first-inout +<span id="L21130" class="LineNr">21130 </span> 0/imm32/no-xm32 +<span id="L21131" class="LineNr">21131 </span> 0/imm32/no-x32 +<span id="L21132" class="LineNr">21132 </span> 0x11/imm32/alloc-id:fake +<span id="L21133" class="LineNr">21133 </span> <a href='mu.subx.html#L21134'>_Primitive-loop-if-addr>-named</a>/imm32/next +<span id="L21134" class="LineNr">21134 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21135" class="LineNr">21135 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21136" class="LineNr">21136 </span> 0x11/imm32/alloc-id:fake +<span id="L21137" class="LineNr">21137 </span> <a href='mu.subx.html#L21735'>_string-loop-if-addr></a>/imm32/name +<span id="L21138" class="LineNr">21138 </span> 0x11/imm32/alloc-id:fake +<span id="L21139" class="LineNr">21139 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21140" class="LineNr">21140 </span> 0/imm32/no-outputs +<span id="L21141" class="LineNr">21141 </span> 0/imm32/no-outputs +<span id="L21142" class="LineNr">21142 </span> 0x11/imm32/alloc-id:fake +<span id="L21143" class="LineNr">21143 </span> <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L21144" class="LineNr">21144 </span> 0/imm32/no-rm32 +<span id="L21145" class="LineNr">21145 </span> 0/imm32/no-r32 +<span id="L21146" class="LineNr">21146 </span> 0/imm32/no-imm32 +<span id="L21147" class="LineNr">21147 </span> 0/imm32/no-imm8 +<span id="L21148" class="LineNr">21148 </span> 1/imm32/disp32-is-first-inout +<span id="L21149" class="LineNr">21149 </span> 0/imm32/no-xm32 +<span id="L21150" class="LineNr">21150 </span> 0/imm32/no-x32 +<span id="L21151" class="LineNr">21151 </span> 0x11/imm32/alloc-id:fake +<span id="L21152" class="LineNr">21152 </span> <a href='mu.subx.html#L21153'>_Primitive-loop-if-<-named</a>/imm32/next +<span id="L21153" class="LineNr">21153 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21154" class="LineNr">21154 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21155" class="LineNr">21155 </span> 0x11/imm32/alloc-id:fake +<span id="L21156" class="LineNr">21156 </span> <a href='mu.subx.html#L21695'>_string-loop-if-<</a>/imm32/name +<span id="L21157" class="LineNr">21157 </span> 0x11/imm32/alloc-id:fake +<span id="L21158" class="LineNr">21158 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21159" class="LineNr">21159 </span> 0/imm32/no-outputs +<span id="L21160" class="LineNr">21160 </span> 0/imm32/no-outputs +<span id="L21161" class="LineNr">21161 </span> 0x11/imm32/alloc-id:fake +<span id="L21162" class="LineNr">21162 </span> <a href='mu.subx.html#L21987'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L21163" class="LineNr">21163 </span> 0/imm32/no-rm32 +<span id="L21164" class="LineNr">21164 </span> 0/imm32/no-r32 +<span id="L21165" class="LineNr">21165 </span> 0/imm32/no-imm32 +<span id="L21166" class="LineNr">21166 </span> 0/imm32/no-imm8 +<span id="L21167" class="LineNr">21167 </span> 1/imm32/disp32-is-first-inout +<span id="L21168" class="LineNr">21168 </span> 0/imm32/no-xm32 +<span id="L21169" class="LineNr">21169 </span> 0/imm32/no-x32 +<span id="L21170" class="LineNr">21170 </span> 0x11/imm32/alloc-id:fake +<span id="L21171" class="LineNr">21171 </span> <a href='mu.subx.html#L21172'>_Primitive-loop-if->=-named</a>/imm32/next +<span id="L21172" class="LineNr">21172 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21173" class="LineNr">21173 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21174" class="LineNr">21174 </span> 0x11/imm32/alloc-id:fake +<span id="L21175" class="LineNr">21175 </span> <a href='mu.subx.html#L21715'>_string-loop-if->=</a>/imm32/name +<span id="L21176" class="LineNr">21176 </span> 0x11/imm32/alloc-id:fake +<span id="L21177" class="LineNr">21177 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21178" class="LineNr">21178 </span> 0/imm32/no-outputs +<span id="L21179" class="LineNr">21179 </span> 0/imm32/no-outputs +<span id="L21180" class="LineNr">21180 </span> 0x11/imm32/alloc-id:fake +<span id="L21181" class="LineNr">21181 </span> <a href='mu.subx.html#L22002'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L21182" class="LineNr">21182 </span> 0/imm32/no-rm32 +<span id="L21183" class="LineNr">21183 </span> 0/imm32/no-r32 +<span id="L21184" class="LineNr">21184 </span> 0/imm32/no-imm32 +<span id="L21185" class="LineNr">21185 </span> 0/imm32/no-imm8 +<span id="L21186" class="LineNr">21186 </span> 1/imm32/disp32-is-first-inout +<span id="L21187" class="LineNr">21187 </span> 0/imm32/no-xm32 +<span id="L21188" class="LineNr">21188 </span> 0/imm32/no-x32 +<span id="L21189" class="LineNr">21189 </span> 0x11/imm32/alloc-id:fake +<span id="L21190" class="LineNr">21190 </span> <a href='mu.subx.html#L21191'>_Primitive-loop-if-<=-named</a>/imm32/next +<span id="L21191" class="LineNr">21191 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21192" class="LineNr">21192 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21193" class="LineNr">21193 </span> 0x11/imm32/alloc-id:fake +<span id="L21194" class="LineNr">21194 </span> <a href='mu.subx.html#L21700'>_string-loop-if-<=</a>/imm32/name +<span id="L21195" class="LineNr">21195 </span> 0x11/imm32/alloc-id:fake +<span id="L21196" class="LineNr">21196 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21197" class="LineNr">21197 </span> 0/imm32/no-outputs +<span id="L21198" class="LineNr">21198 </span> 0/imm32/no-outputs +<span id="L21199" class="LineNr">21199 </span> 0x11/imm32/alloc-id:fake +<span id="L21200" class="LineNr">21200 </span> <a href='mu.subx.html#L22017'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L21201" class="LineNr">21201 </span> 0/imm32/no-rm32 +<span id="L21202" class="LineNr">21202 </span> 0/imm32/no-r32 +<span id="L21203" class="LineNr">21203 </span> 0/imm32/no-imm32 +<span id="L21204" class="LineNr">21204 </span> 0/imm32/no-imm8 +<span id="L21205" class="LineNr">21205 </span> 1/imm32/disp32-is-first-inout +<span id="L21206" class="LineNr">21206 </span> 0/imm32/no-xm32 +<span id="L21207" class="LineNr">21207 </span> 0/imm32/no-x32 +<span id="L21208" class="LineNr">21208 </span> 0x11/imm32/alloc-id:fake +<span id="L21209" class="LineNr">21209 </span> <a href='mu.subx.html#L21210'>_Primitive-loop-if->-named</a>/imm32/next +<span id="L21210" class="LineNr">21210 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21211" class="LineNr">21211 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21212" class="LineNr">21212 </span> 0x11/imm32/alloc-id:fake +<span id="L21213" class="LineNr">21213 </span> <a href='mu.subx.html#L21710'>_string-loop-if-></a>/imm32/name +<span id="L21214" class="LineNr">21214 </span> 0x11/imm32/alloc-id:fake +<span id="L21215" class="LineNr">21215 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21216" class="LineNr">21216 </span> 0/imm32/no-outputs +<span id="L21217" class="LineNr">21217 </span> 0/imm32/no-outputs +<span id="L21218" class="LineNr">21218 </span> 0x11/imm32/alloc-id:fake +<span id="L21219" class="LineNr">21219 </span> <a href='mu.subx.html#L22032'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L21220" class="LineNr">21220 </span> 0/imm32/no-rm32 +<span id="L21221" class="LineNr">21221 </span> 0/imm32/no-r32 +<span id="L21222" class="LineNr">21222 </span> 0/imm32/no-imm32 +<span id="L21223" class="LineNr">21223 </span> 0/imm32/no-imm8 +<span id="L21224" class="LineNr">21224 </span> 1/imm32/disp32-is-first-inout +<span id="L21225" class="LineNr">21225 </span> 0/imm32/no-xm32 +<span id="L21226" class="LineNr">21226 </span> 0/imm32/no-x32 +<span id="L21227" class="LineNr">21227 </span> 0x11/imm32/alloc-id:fake +<span id="L21228" class="LineNr">21228 </span> <a href='mu.subx.html#L21229'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L21229" class="LineNr">21229 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21230" class="LineNr">21230 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21231" class="LineNr">21231 </span> 0x11/imm32/alloc-id:fake +<span id="L21232" class="LineNr">21232 </span> <a href='mu.subx.html#L21690'>_string-loop</a>/imm32/name +<span id="L21233" class="LineNr">21233 </span> 0x11/imm32/alloc-id:fake +<span id="L21234" class="LineNr">21234 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21235" class="LineNr">21235 </span> 0/imm32/no-outputs +<span id="L21236" class="LineNr">21236 </span> 0/imm32/no-outputs +<span id="L21237" class="LineNr">21237 </span> 0x11/imm32/alloc-id:fake +<span id="L21238" class="LineNr">21238 </span> <a href='mu.subx.html#L22337'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L21239" class="LineNr">21239 </span> 0/imm32/no-rm32 +<span id="L21240" class="LineNr">21240 </span> 0/imm32/no-r32 +<span id="L21241" class="LineNr">21241 </span> 0/imm32/no-imm32 +<span id="L21242" class="LineNr">21242 </span> 0/imm32/no-imm8 +<span id="L21243" class="LineNr">21243 </span> 1/imm32/disp32-is-first-inout +<span id="L21244" class="LineNr">21244 </span> 0/imm32/no-xm32 +<span id="L21245" class="LineNr">21245 </span> 0/imm32/no-x32 +<span id="L21246" class="LineNr">21246 </span> 0x11/imm32/alloc-id:fake +<span id="L21247" class="LineNr">21247 </span> <a href='mu.subx.html#L21249'>_Primitive-break-if-float<</a>/imm32/next +<span id="L21248" class="LineNr">21248 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> +<span id="L21249" class="LineNr">21249 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21250" class="LineNr">21250 </span> 0x11/imm32/alloc-id:fake:payload <span id="L21251" class="LineNr">21251 </span> 0x11/imm32/alloc-id:fake -<span id="L21252" class="LineNr">21252 </span> <a href='mu.subx.html#L21253'>_Primitive-loop-if-float>=-named</a>/imm32/next -<span id="L21253" class="LineNr">21253 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21254" class="LineNr">21254 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21255" class="LineNr">21255 </span> 0x11/imm32/alloc-id:fake -<span id="L21256" class="LineNr">21256 </span> <a href='mu.subx.html#L21517'>_string-loop-if-float>=</a>/imm32/name +<span id="L21252" class="LineNr">21252 </span> <a href='mu.subx.html#L21635'>_string-break-if-float<</a>/imm32/name +<span id="L21253" class="LineNr">21253 </span> 0/imm32/no-inouts +<span id="L21254" class="LineNr">21254 </span> 0/imm32/no-inouts +<span id="L21255" class="LineNr">21255 </span> 0/imm32/no-outputs +<span id="L21256" class="LineNr">21256 </span> 0/imm32/no-outputs <span id="L21257" class="LineNr">21257 </span> 0x11/imm32/alloc-id:fake -<span id="L21258" class="LineNr">21258 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21259" class="LineNr">21259 </span> 0/imm32/no-outputs -<span id="L21260" class="LineNr">21260 </span> 0/imm32/no-outputs -<span id="L21261" class="LineNr">21261 </span> 0x11/imm32/alloc-id:fake -<span id="L21262" class="LineNr">21262 </span> <a href='mu.subx.html#L21659'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L21263" class="LineNr">21263 </span> 0/imm32/no-rm32 -<span id="L21264" class="LineNr">21264 </span> 0/imm32/no-r32 -<span id="L21265" class="LineNr">21265 </span> 0/imm32/no-imm32 -<span id="L21266" class="LineNr">21266 </span> 0/imm32/no-imm8 -<span id="L21267" class="LineNr">21267 </span> 1/imm32/disp32-is-first-inout -<span id="L21268" class="LineNr">21268 </span> 0/imm32/no-xm32 -<span id="L21269" class="LineNr">21269 </span> 0/imm32/no-x32 +<span id="L21258" class="LineNr">21258 </span> <a href='mu.subx.html#L21902'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L21259" class="LineNr">21259 </span> 0/imm32/no-rm32 +<span id="L21260" class="LineNr">21260 </span> 0/imm32/no-r32 +<span id="L21261" class="LineNr">21261 </span> 0/imm32/no-imm32 +<span id="L21262" class="LineNr">21262 </span> 0/imm32/no-imm8 +<span id="L21263" class="LineNr">21263 </span> 0/imm32/no-disp32 +<span id="L21264" class="LineNr">21264 </span> 0/imm32/no-xm32 +<span id="L21265" class="LineNr">21265 </span> 0/imm32/no-x32 +<span id="L21266" class="LineNr">21266 </span> 0x11/imm32/alloc-id:fake +<span id="L21267" class="LineNr">21267 </span> <a href='mu.subx.html#L21268'>_Primitive-break-if-float>=</a>/imm32/next +<span id="L21268" class="LineNr">21268 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21269" class="LineNr">21269 </span> 0x11/imm32/alloc-id:fake:payload <span id="L21270" class="LineNr">21270 </span> 0x11/imm32/alloc-id:fake -<span id="L21271" class="LineNr">21271 </span> <a href='mu.subx.html#L21272'>_Primitive-loop-if-float<=-named</a>/imm32/next -<span id="L21272" class="LineNr">21272 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21273" class="LineNr">21273 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21274" class="LineNr">21274 </span> 0x11/imm32/alloc-id:fake -<span id="L21275" class="LineNr">21275 </span> <a href='mu.subx.html#L21507'>_string-loop-if-float<=</a>/imm32/name +<span id="L21271" class="LineNr">21271 </span> <a href='mu.subx.html#L21650'>_string-break-if-float>=</a>/imm32/name +<span id="L21272" class="LineNr">21272 </span> 0/imm32/no-inouts +<span id="L21273" class="LineNr">21273 </span> 0/imm32/no-inouts +<span id="L21274" class="LineNr">21274 </span> 0/imm32/no-outputs +<span id="L21275" class="LineNr">21275 </span> 0/imm32/no-outputs <span id="L21276" class="LineNr">21276 </span> 0x11/imm32/alloc-id:fake -<span id="L21277" class="LineNr">21277 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21278" class="LineNr">21278 </span> 0/imm32/no-outputs -<span id="L21279" class="LineNr">21279 </span> 0/imm32/no-outputs -<span id="L21280" class="LineNr">21280 </span> 0x11/imm32/alloc-id:fake -<span id="L21281" class="LineNr">21281 </span> <a href='mu.subx.html#L21704'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L21282" class="LineNr">21282 </span> 0/imm32/no-rm32 -<span id="L21283" class="LineNr">21283 </span> 0/imm32/no-r32 -<span id="L21284" class="LineNr">21284 </span> 0/imm32/no-imm32 -<span id="L21285" class="LineNr">21285 </span> 0/imm32/no-imm8 -<span id="L21286" class="LineNr">21286 </span> 1/imm32/disp32-is-first-inout -<span id="L21287" class="LineNr">21287 </span> 0/imm32/no-xm32 -<span id="L21288" class="LineNr">21288 </span> 0/imm32/no-x32 +<span id="L21277" class="LineNr">21277 </span> <a href='mu.subx.html#L21917'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L21278" class="LineNr">21278 </span> 0/imm32/no-rm32 +<span id="L21279" class="LineNr">21279 </span> 0/imm32/no-r32 +<span id="L21280" class="LineNr">21280 </span> 0/imm32/no-imm32 +<span id="L21281" class="LineNr">21281 </span> 0/imm32/no-imm8 +<span id="L21282" class="LineNr">21282 </span> 0/imm32/no-disp32 +<span id="L21283" class="LineNr">21283 </span> 0/imm32/no-xm32 +<span id="L21284" class="LineNr">21284 </span> 0/imm32/no-x32 +<span id="L21285" class="LineNr">21285 </span> 0x11/imm32/alloc-id:fake +<span id="L21286" class="LineNr">21286 </span> <a href='mu.subx.html#L21287'>_Primitive-break-if-float<=</a>/imm32/next +<span id="L21287" class="LineNr">21287 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21288" class="LineNr">21288 </span> 0x11/imm32/alloc-id:fake:payload <span id="L21289" class="LineNr">21289 </span> 0x11/imm32/alloc-id:fake -<span id="L21290" class="LineNr">21290 </span> <a href='mu.subx.html#L21291'>_Primitive-loop-if-float>-named</a>/imm32/next -<span id="L21291" class="LineNr">21291 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L21292" class="LineNr">21292 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21293" class="LineNr">21293 </span> 0x11/imm32/alloc-id:fake -<span id="L21294" class="LineNr">21294 </span> <a href='mu.subx.html#L21512'>_string-loop-if-float></a>/imm32/name +<span id="L21290" class="LineNr">21290 </span> <a href='mu.subx.html#L21640'>_string-break-if-float<=</a>/imm32/name +<span id="L21291" class="LineNr">21291 </span> 0/imm32/no-inouts +<span id="L21292" class="LineNr">21292 </span> 0/imm32/no-inouts +<span id="L21293" class="LineNr">21293 </span> 0/imm32/no-outputs +<span id="L21294" class="LineNr">21294 </span> 0/imm32/no-outputs <span id="L21295" class="LineNr">21295 </span> 0x11/imm32/alloc-id:fake -<span id="L21296" class="LineNr">21296 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/inouts -<span id="L21297" class="LineNr">21297 </span> 0/imm32/no-outputs -<span id="L21298" class="LineNr">21298 </span> 0/imm32/no-outputs -<span id="L21299" class="LineNr">21299 </span> 0x11/imm32/alloc-id:fake -<span id="L21300" class="LineNr">21300 </span> <a href='mu.subx.html#L21719'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L21301" class="LineNr">21301 </span> 0/imm32/no-rm32 -<span id="L21302" class="LineNr">21302 </span> 0/imm32/no-r32 -<span id="L21303" class="LineNr">21303 </span> 0/imm32/no-imm32 -<span id="L21304" class="LineNr">21304 </span> 0/imm32/no-imm8 -<span id="L21305" class="LineNr">21305 </span> 1/imm32/disp32-is-first-inout -<span id="L21306" class="LineNr">21306 </span> 0/imm32/no-xm32 -<span id="L21307" class="LineNr">21307 </span> 0/imm32/no-x32 -<span id="L21308" class="LineNr">21308 </span> 0/imm32/next -<span id="L21309" class="LineNr">21309 </span> 0/imm32/next -<span id="L21310" class="LineNr">21310 </span> -<span id="L21311" class="LineNr">21311 </span><span class="subxComment"># string literals for Mu instructions</span> -<span id="L21312" class="LineNr">21312 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21313" class="LineNr">21313 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21314" class="LineNr">21314 </span> <span class="subxComment"># "add"</span> -<span id="L21315" class="LineNr">21315 </span> 0x3/imm32/size -<span id="L21316" class="LineNr">21316 </span> 0x61/a 0x64/d 0x64/d -<span id="L21317" class="LineNr">21317 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21318" class="LineNr">21318 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21319" class="LineNr">21319 </span> <span class="subxComment"># "address"</span> -<span id="L21320" class="LineNr">21320 </span> 0x7/imm32/size -<span id="L21321" class="LineNr">21321 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L21322" class="LineNr">21322 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21323" class="LineNr">21323 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21324" class="LineNr">21324 </span> <span class="subxComment"># "add-to"</span> -<span id="L21325" class="LineNr">21325 </span> 0x6/imm32/size -<span id="L21326" class="LineNr">21326 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L21327" class="LineNr">21327 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21328" class="LineNr">21328 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21329" class="LineNr">21329 </span> <span class="subxComment"># "and"</span> -<span id="L21330" class="LineNr">21330 </span> 0x3/imm32/size -<span id="L21331" class="LineNr">21331 </span> 0x61/a 0x6e/n 0x64/d -<span id="L21332" class="LineNr">21332 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21333" class="LineNr">21333 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21334" class="LineNr">21334 </span> <span class="subxComment"># "and-with"</span> -<span id="L21335" class="LineNr">21335 </span> 0x8/imm32/size -<span id="L21336" class="LineNr">21336 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L21337" class="LineNr">21337 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21338" class="LineNr">21338 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21339" class="LineNr">21339 </span> <span class="subxComment"># "break"</span> -<span id="L21340" class="LineNr">21340 </span> 0x5/imm32/size -<span id="L21341" class="LineNr">21341 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k -<span id="L21342" class="LineNr">21342 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21343" class="LineNr">21343 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21344" class="LineNr">21344 </span> <span class="subxComment"># "break-if-<"</span> -<span id="L21345" class="LineNr">21345 </span> 0xa/imm32/size -<span id="L21346" class="LineNr">21346 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L21347" class="LineNr">21347 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21348" class="LineNr">21348 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21349" class="LineNr">21349 </span> <span class="subxComment"># "break-if-<="</span> -<span id="L21350" class="LineNr">21350 </span> 0xb/imm32/size -<span id="L21351" class="LineNr">21351 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L21352" class="LineNr">21352 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21353" class="LineNr">21353 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21354" class="LineNr">21354 </span> <span class="subxComment"># "break-if-="</span> -<span id="L21355" class="LineNr">21355 </span> 0xa/imm32/size -<span id="L21356" class="LineNr">21356 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L21357" class="LineNr">21357 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21358" class="LineNr">21358 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21359" class="LineNr">21359 </span> <span class="subxComment"># "break-if->"</span> -<span id="L21360" class="LineNr">21360 </span> 0xa/imm32/size -<span id="L21361" class="LineNr">21361 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L21362" class="LineNr">21362 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21363" class="LineNr">21363 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21364" class="LineNr">21364 </span> <span class="subxComment"># "break-if->="</span> -<span id="L21365" class="LineNr">21365 </span> 0xb/imm32/size -<span id="L21366" class="LineNr">21366 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L21367" class="LineNr">21367 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21368" class="LineNr">21368 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21369" class="LineNr">21369 </span> <span class="subxComment"># "break-if-!="</span> -<span id="L21370" class="LineNr">21370 </span> 0xb/imm32/size -<span id="L21371" class="LineNr">21371 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L21372" class="LineNr">21372 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21373" class="LineNr">21373 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21374" class="LineNr">21374 </span> <span class="subxComment"># "break-if-addr<"</span> -<span id="L21375" class="LineNr">21375 </span> 0xe/imm32/size -<span id="L21376" class="LineNr">21376 </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="L21377" class="LineNr">21377 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21378" class="LineNr">21378 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21379" class="LineNr">21379 </span> <span class="subxComment"># "break-if-addr<="</span> -<span id="L21380" class="LineNr">21380 </span> 0xf/imm32/size -<span id="L21381" class="LineNr">21381 </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="L21382" class="LineNr">21382 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21296" class="LineNr">21296 </span> <a href='mu.subx.html#L21962'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L21297" class="LineNr">21297 </span> 0/imm32/no-rm32 +<span id="L21298" class="LineNr">21298 </span> 0/imm32/no-r32 +<span id="L21299" class="LineNr">21299 </span> 0/imm32/no-imm32 +<span id="L21300" class="LineNr">21300 </span> 0/imm32/no-imm8 +<span id="L21301" class="LineNr">21301 </span> 0/imm32/no-disp32 +<span id="L21302" class="LineNr">21302 </span> 0/imm32/no-xm32 +<span id="L21303" class="LineNr">21303 </span> 0/imm32/no-x32 +<span id="L21304" class="LineNr">21304 </span> 0x11/imm32/alloc-id:fake +<span id="L21305" class="LineNr">21305 </span> <a href='mu.subx.html#L21306'>_Primitive-break-if-float></a>/imm32/next +<span id="L21306" class="LineNr">21306 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21307" class="LineNr">21307 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21308" class="LineNr">21308 </span> 0x11/imm32/alloc-id:fake +<span id="L21309" class="LineNr">21309 </span> <a href='mu.subx.html#L21645'>_string-break-if-float></a>/imm32/name +<span id="L21310" class="LineNr">21310 </span> 0/imm32/no-inouts +<span id="L21311" class="LineNr">21311 </span> 0/imm32/no-inouts +<span id="L21312" class="LineNr">21312 </span> 0/imm32/no-outputs +<span id="L21313" class="LineNr">21313 </span> 0/imm32/no-outputs +<span id="L21314" class="LineNr">21314 </span> 0x11/imm32/alloc-id:fake +<span id="L21315" class="LineNr">21315 </span> <a href='mu.subx.html#L21977'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L21316" class="LineNr">21316 </span> 0/imm32/no-rm32 +<span id="L21317" class="LineNr">21317 </span> 0/imm32/no-r32 +<span id="L21318" class="LineNr">21318 </span> 0/imm32/no-imm32 +<span id="L21319" class="LineNr">21319 </span> 0/imm32/no-imm8 +<span id="L21320" class="LineNr">21320 </span> 0/imm32/no-disp32 +<span id="L21321" class="LineNr">21321 </span> 0/imm32/no-xm32 +<span id="L21322" class="LineNr">21322 </span> 0/imm32/no-x32 +<span id="L21323" class="LineNr">21323 </span> 0x11/imm32/alloc-id:fake +<span id="L21324" class="LineNr">21324 </span> <a href='mu.subx.html#L21325'>_Primitive-loop-if-float<</a>/imm32/next +<span id="L21325" class="LineNr">21325 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21326" class="LineNr">21326 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21327" class="LineNr">21327 </span> 0x11/imm32/alloc-id:fake +<span id="L21328" class="LineNr">21328 </span> <a href='mu.subx.html#L21745'>_string-loop-if-float<</a>/imm32/name +<span id="L21329" class="LineNr">21329 </span> 0/imm32/no-inouts +<span id="L21330" class="LineNr">21330 </span> 0/imm32/no-inouts +<span id="L21331" class="LineNr">21331 </span> 0/imm32/no-outputs +<span id="L21332" class="LineNr">21332 </span> 0/imm32/no-outputs +<span id="L21333" class="LineNr">21333 </span> 0x11/imm32/alloc-id:fake +<span id="L21334" class="LineNr">21334 </span> <a href='mu.subx.html#L21907'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L21335" class="LineNr">21335 </span> 0/imm32/no-rm32 +<span id="L21336" class="LineNr">21336 </span> 0/imm32/no-r32 +<span id="L21337" class="LineNr">21337 </span> 0/imm32/no-imm32 +<span id="L21338" class="LineNr">21338 </span> 0/imm32/no-imm8 +<span id="L21339" class="LineNr">21339 </span> 0/imm32/no-disp32 +<span id="L21340" class="LineNr">21340 </span> 0/imm32/no-xm32 +<span id="L21341" class="LineNr">21341 </span> 0/imm32/no-x32 +<span id="L21342" class="LineNr">21342 </span> 0x11/imm32/alloc-id:fake +<span id="L21343" class="LineNr">21343 </span> <a href='mu.subx.html#L21344'>_Primitive-loop-if-float>=</a>/imm32/next +<span id="L21344" class="LineNr">21344 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21345" class="LineNr">21345 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21346" class="LineNr">21346 </span> 0x11/imm32/alloc-id:fake +<span id="L21347" class="LineNr">21347 </span> <a href='mu.subx.html#L21760'>_string-loop-if-float>=</a>/imm32/name +<span id="L21348" class="LineNr">21348 </span> 0/imm32/no-inouts +<span id="L21349" class="LineNr">21349 </span> 0/imm32/no-inouts +<span id="L21350" class="LineNr">21350 </span> 0/imm32/no-outputs +<span id="L21351" class="LineNr">21351 </span> 0/imm32/no-outputs +<span id="L21352" class="LineNr">21352 </span> 0x11/imm32/alloc-id:fake +<span id="L21353" class="LineNr">21353 </span> <a href='mu.subx.html#L21922'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L21354" class="LineNr">21354 </span> 0/imm32/no-rm32 +<span id="L21355" class="LineNr">21355 </span> 0/imm32/no-r32 +<span id="L21356" class="LineNr">21356 </span> 0/imm32/no-imm32 +<span id="L21357" class="LineNr">21357 </span> 0/imm32/no-imm8 +<span id="L21358" class="LineNr">21358 </span> 0/imm32/no-disp32 +<span id="L21359" class="LineNr">21359 </span> 0/imm32/no-xm32 +<span id="L21360" class="LineNr">21360 </span> 0/imm32/no-x32 +<span id="L21361" class="LineNr">21361 </span> 0x11/imm32/alloc-id:fake +<span id="L21362" class="LineNr">21362 </span> <a href='mu.subx.html#L21363'>_Primitive-loop-if-float<=</a>/imm32/next +<span id="L21363" class="LineNr">21363 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21364" class="LineNr">21364 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21365" class="LineNr">21365 </span> 0x11/imm32/alloc-id:fake +<span id="L21366" class="LineNr">21366 </span> <a href='mu.subx.html#L21750'>_string-loop-if-float<=</a>/imm32/name +<span id="L21367" class="LineNr">21367 </span> 0/imm32/no-inouts +<span id="L21368" class="LineNr">21368 </span> 0/imm32/no-inouts +<span id="L21369" class="LineNr">21369 </span> 0/imm32/no-outputs +<span id="L21370" class="LineNr">21370 </span> 0/imm32/no-outputs +<span id="L21371" class="LineNr">21371 </span> 0x11/imm32/alloc-id:fake +<span id="L21372" class="LineNr">21372 </span> <a href='mu.subx.html#L21967'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L21373" class="LineNr">21373 </span> 0/imm32/no-rm32 +<span id="L21374" class="LineNr">21374 </span> 0/imm32/no-r32 +<span id="L21375" class="LineNr">21375 </span> 0/imm32/no-imm32 +<span id="L21376" class="LineNr">21376 </span> 0/imm32/no-imm8 +<span id="L21377" class="LineNr">21377 </span> 0/imm32/no-disp32 +<span id="L21378" class="LineNr">21378 </span> 0/imm32/no-xm32 +<span id="L21379" class="LineNr">21379 </span> 0/imm32/no-x32 +<span id="L21380" class="LineNr">21380 </span> 0x11/imm32/alloc-id:fake +<span id="L21381" class="LineNr">21381 </span> <a href='mu.subx.html#L21382'>_Primitive-loop-if-float></a>/imm32/next +<span id="L21382" class="LineNr">21382 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> <span id="L21383" class="LineNr">21383 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21384" class="LineNr">21384 </span> <span class="subxComment"># "break-if-addr>"</span> -<span id="L21385" class="LineNr">21385 </span> 0xe/imm32/size -<span id="L21386" class="LineNr">21386 </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="L21387" class="LineNr">21387 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21388" class="LineNr">21388 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21389" class="LineNr">21389 </span> <span class="subxComment"># "break-if-addr>="</span> -<span id="L21390" class="LineNr">21390 </span> 0xf/imm32/size -<span id="L21391" class="LineNr">21391 </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="L21392" class="LineNr">21392 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21393" class="LineNr">21393 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21394" class="LineNr">21394 </span> <span class="subxComment"># "break-if-float<"</span> -<span id="L21395" class="LineNr">21395 </span> 0xf/imm32/size -<span id="L21396" class="LineNr">21396 </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="L21397" class="LineNr">21397 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21398" class="LineNr">21398 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21399" class="LineNr">21399 </span> <span class="subxComment"># "break-if-float<="</span> -<span id="L21400" class="LineNr">21400 </span> 0x10/imm32/size -<span id="L21401" class="LineNr">21401 </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="L21402" class="LineNr">21402 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21403" class="LineNr">21403 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21404" class="LineNr">21404 </span> <span class="subxComment"># "break-if-float>"</span> -<span id="L21405" class="LineNr">21405 </span> 0xf/imm32/size -<span id="L21406" class="LineNr">21406 </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="L21407" class="LineNr">21407 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21408" class="LineNr">21408 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21409" class="LineNr">21409 </span> <span class="subxComment"># "break-if-float>="</span> -<span id="L21410" class="LineNr">21410 </span> 0x10/imm32/size -<span id="L21411" class="LineNr">21411 </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="L21412" class="LineNr">21412 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21413" class="LineNr">21413 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21414" class="LineNr">21414 </span> <span class="subxComment"># "compare"</span> -<span id="L21415" class="LineNr">21415 </span> 0x7/imm32/size -<span id="L21416" class="LineNr">21416 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L21417" class="LineNr">21417 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21418" class="LineNr">21418 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21419" class="LineNr">21419 </span> <span class="subxComment"># "copy"</span> -<span id="L21420" class="LineNr">21420 </span> 0x4/imm32/size -<span id="L21421" class="LineNr">21421 </span> 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L21422" class="LineNr">21422 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21423" class="LineNr">21423 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21424" class="LineNr">21424 </span> <span class="subxComment"># "copy-to"</span> -<span id="L21425" class="LineNr">21425 </span> 0x7/imm32/size -<span id="L21426" class="LineNr">21426 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o -<span id="L21427" class="LineNr">21427 </span><span class="subxMinorFunction">_string-copy-byte</span>: -<span id="L21428" class="LineNr">21428 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21429" class="LineNr">21429 </span> <span class="subxComment"># "copy-byte"</span> -<span id="L21430" class="LineNr">21430 </span> 0x9/imm32/size -<span id="L21431" class="LineNr">21431 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e -<span id="L21432" class="LineNr">21432 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: -<span id="L21433" class="LineNr">21433 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21434" class="LineNr">21434 </span> <span class="subxComment"># "copy-byte-to"</span> -<span id="L21435" class="LineNr">21435 </span> 0xc/imm32/size -<span id="L21436" class="LineNr">21436 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x74/t 0x6f/o -<span id="L21437" class="LineNr">21437 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21438" class="LineNr">21438 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21439" class="LineNr">21439 </span> <span class="subxComment"># "decrement"</span> -<span id="L21440" class="LineNr">21440 </span> 0x9/imm32/size -<span id="L21441" class="LineNr">21441 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L21442" class="LineNr">21442 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21443" class="LineNr">21443 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21444" class="LineNr">21444 </span> <span class="subxComment"># "increment"</span> -<span id="L21445" class="LineNr">21445 </span> 0x9/imm32/size -<span id="L21446" class="LineNr">21446 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L21447" class="LineNr">21447 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21448" class="LineNr">21448 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21449" class="LineNr">21449 </span> <span class="subxComment"># "loop"</span> -<span id="L21450" class="LineNr">21450 </span> 0x4/imm32/size -<span id="L21451" class="LineNr">21451 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p -<span id="L21452" class="LineNr">21452 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21453" class="LineNr">21453 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21454" class="LineNr">21454 </span> <span class="subxComment"># "loop-if-<"</span> -<span id="L21455" class="LineNr">21455 </span> 0x9/imm32/size -<span id="L21456" class="LineNr">21456 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L21457" class="LineNr">21457 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21458" class="LineNr">21458 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21459" class="LineNr">21459 </span> <span class="subxComment"># "loop-if-<="</span> -<span id="L21460" class="LineNr">21460 </span> 0xa/imm32/size -<span id="L21461" class="LineNr">21461 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L21462" class="LineNr">21462 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21463" class="LineNr">21463 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21464" class="LineNr">21464 </span> <span class="subxComment"># "loop-if-="</span> -<span id="L21465" class="LineNr">21465 </span> 0x9/imm32/size -<span id="L21466" class="LineNr">21466 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L21467" class="LineNr">21467 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21468" class="LineNr">21468 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21469" class="LineNr">21469 </span> <span class="subxComment"># "loop-if->"</span> -<span id="L21470" class="LineNr">21470 </span> 0x9/imm32/size -<span id="L21471" class="LineNr">21471 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L21472" class="LineNr">21472 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21473" class="LineNr">21473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21474" class="LineNr">21474 </span> <span class="subxComment"># "loop-if->="</span> -<span id="L21475" class="LineNr">21475 </span> 0xa/imm32/size -<span id="L21476" class="LineNr">21476 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L21477" class="LineNr">21477 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21384" class="LineNr">21384 </span> 0x11/imm32/alloc-id:fake +<span id="L21385" class="LineNr">21385 </span> <a href='mu.subx.html#L21755'>_string-loop-if-float></a>/imm32/name +<span id="L21386" class="LineNr">21386 </span> 0/imm32/no-inouts +<span id="L21387" class="LineNr">21387 </span> 0/imm32/no-inouts +<span id="L21388" class="LineNr">21388 </span> 0/imm32/no-outputs +<span id="L21389" class="LineNr">21389 </span> 0/imm32/no-outputs +<span id="L21390" class="LineNr">21390 </span> 0x11/imm32/alloc-id:fake +<span id="L21391" class="LineNr">21391 </span> <a href='mu.subx.html#L21982'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L21392" class="LineNr">21392 </span> 0/imm32/no-rm32 +<span id="L21393" class="LineNr">21393 </span> 0/imm32/no-r32 +<span id="L21394" class="LineNr">21394 </span> 0/imm32/no-imm32 +<span id="L21395" class="LineNr">21395 </span> 0/imm32/no-imm8 +<span id="L21396" class="LineNr">21396 </span> 0/imm32/no-disp32 +<span id="L21397" class="LineNr">21397 </span> 0/imm32/no-xm32 +<span id="L21398" class="LineNr">21398 </span> 0/imm32/no-x32 +<span id="L21399" class="LineNr">21399 </span> 0x11/imm32/alloc-id:fake +<span id="L21400" class="LineNr">21400 </span> <a href='mu.subx.html#L21401'>_Primitive-break-if-float<-named</a>/imm32/next +<span id="L21401" class="LineNr">21401 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21402" class="LineNr">21402 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21403" class="LineNr">21403 </span> 0x11/imm32/alloc-id:fake +<span id="L21404" class="LineNr">21404 </span> <a href='mu.subx.html#L21635'>_string-break-if-float<</a>/imm32/name +<span id="L21405" class="LineNr">21405 </span> 0x11/imm32/alloc-id:fake +<span id="L21406" class="LineNr">21406 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21407" class="LineNr">21407 </span> 0/imm32/no-outputs +<span id="L21408" class="LineNr">21408 </span> 0/imm32/no-outputs +<span id="L21409" class="LineNr">21409 </span> 0x11/imm32/alloc-id:fake +<span id="L21410" class="LineNr">21410 </span> <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L21411" class="LineNr">21411 </span> 0/imm32/no-rm32 +<span id="L21412" class="LineNr">21412 </span> 0/imm32/no-r32 +<span id="L21413" class="LineNr">21413 </span> 0/imm32/no-imm32 +<span id="L21414" class="LineNr">21414 </span> 0/imm32/no-imm8 +<span id="L21415" class="LineNr">21415 </span> 1/imm32/disp32-is-first-inout +<span id="L21416" class="LineNr">21416 </span> 0/imm32/no-xm32 +<span id="L21417" class="LineNr">21417 </span> 0/imm32/no-x32 +<span id="L21418" class="LineNr">21418 </span> 0x11/imm32/alloc-id:fake +<span id="L21419" class="LineNr">21419 </span> <a href='mu.subx.html#L21420'>_Primitive-break-if-float>=-named</a>/imm32/next +<span id="L21420" class="LineNr">21420 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21421" class="LineNr">21421 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21422" class="LineNr">21422 </span> 0x11/imm32/alloc-id:fake +<span id="L21423" class="LineNr">21423 </span> <a href='mu.subx.html#L21650'>_string-break-if-float>=</a>/imm32/name +<span id="L21424" class="LineNr">21424 </span> 0x11/imm32/alloc-id:fake +<span id="L21425" class="LineNr">21425 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21426" class="LineNr">21426 </span> 0/imm32/no-outputs +<span id="L21427" class="LineNr">21427 </span> 0/imm32/no-outputs +<span id="L21428" class="LineNr">21428 </span> 0x11/imm32/alloc-id:fake +<span id="L21429" class="LineNr">21429 </span> <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L21430" class="LineNr">21430 </span> 0/imm32/no-rm32 +<span id="L21431" class="LineNr">21431 </span> 0/imm32/no-r32 +<span id="L21432" class="LineNr">21432 </span> 0/imm32/no-imm32 +<span id="L21433" class="LineNr">21433 </span> 0/imm32/no-imm8 +<span id="L21434" class="LineNr">21434 </span> 1/imm32/disp32-is-first-inout +<span id="L21435" class="LineNr">21435 </span> 0/imm32/no-xm32 +<span id="L21436" class="LineNr">21436 </span> 0/imm32/no-x32 +<span id="L21437" class="LineNr">21437 </span> 0x11/imm32/alloc-id:fake +<span id="L21438" class="LineNr">21438 </span> <a href='mu.subx.html#L21439'>_Primitive-break-if-float<=-named</a>/imm32/next +<span id="L21439" class="LineNr">21439 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21440" class="LineNr">21440 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21441" class="LineNr">21441 </span> 0x11/imm32/alloc-id:fake +<span id="L21442" class="LineNr">21442 </span> <a href='mu.subx.html#L21640'>_string-break-if-float<=</a>/imm32/name +<span id="L21443" class="LineNr">21443 </span> 0x11/imm32/alloc-id:fake +<span id="L21444" class="LineNr">21444 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21445" class="LineNr">21445 </span> 0/imm32/no-outputs +<span id="L21446" class="LineNr">21446 </span> 0/imm32/no-outputs +<span id="L21447" class="LineNr">21447 </span> 0x11/imm32/alloc-id:fake +<span id="L21448" class="LineNr">21448 </span> <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L21449" class="LineNr">21449 </span> 0/imm32/no-rm32 +<span id="L21450" class="LineNr">21450 </span> 0/imm32/no-r32 +<span id="L21451" class="LineNr">21451 </span> 0/imm32/no-imm32 +<span id="L21452" class="LineNr">21452 </span> 0/imm32/no-imm8 +<span id="L21453" class="LineNr">21453 </span> 1/imm32/disp32-is-first-inout +<span id="L21454" class="LineNr">21454 </span> 0/imm32/no-xm32 +<span id="L21455" class="LineNr">21455 </span> 0/imm32/no-x32 +<span id="L21456" class="LineNr">21456 </span> 0x11/imm32/alloc-id:fake +<span id="L21457" class="LineNr">21457 </span> <a href='mu.subx.html#L21458'>_Primitive-break-if-float>-named</a>/imm32/next +<span id="L21458" class="LineNr">21458 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21459" class="LineNr">21459 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21460" class="LineNr">21460 </span> 0x11/imm32/alloc-id:fake +<span id="L21461" class="LineNr">21461 </span> <a href='mu.subx.html#L21645'>_string-break-if-float></a>/imm32/name +<span id="L21462" class="LineNr">21462 </span> 0x11/imm32/alloc-id:fake +<span id="L21463" class="LineNr">21463 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21464" class="LineNr">21464 </span> 0/imm32/no-outputs +<span id="L21465" class="LineNr">21465 </span> 0/imm32/no-outputs +<span id="L21466" class="LineNr">21466 </span> 0x11/imm32/alloc-id:fake +<span id="L21467" class="LineNr">21467 </span> <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L21468" class="LineNr">21468 </span> 0/imm32/no-rm32 +<span id="L21469" class="LineNr">21469 </span> 0/imm32/no-r32 +<span id="L21470" class="LineNr">21470 </span> 0/imm32/no-imm32 +<span id="L21471" class="LineNr">21471 </span> 0/imm32/no-imm8 +<span id="L21472" class="LineNr">21472 </span> 1/imm32/disp32-is-first-inout +<span id="L21473" class="LineNr">21473 </span> 0/imm32/no-xm32 +<span id="L21474" class="LineNr">21474 </span> 0/imm32/no-x32 +<span id="L21475" class="LineNr">21475 </span> 0x11/imm32/alloc-id:fake +<span id="L21476" class="LineNr">21476 </span> <a href='mu.subx.html#L21477'>_Primitive-loop-if-float<-named</a>/imm32/next +<span id="L21477" class="LineNr">21477 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L21478" class="LineNr">21478 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21479" class="LineNr">21479 </span> <span class="subxComment"># "loop-if-!="</span> -<span id="L21480" class="LineNr">21480 </span> 0xa/imm32/size -<span id="L21481" class="LineNr">21481 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L21482" class="LineNr">21482 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21483" class="LineNr">21483 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21484" class="LineNr">21484 </span> <span class="subxComment"># "loop-if-addr<"</span> -<span id="L21485" class="LineNr">21485 </span> 0xd/imm32/size -<span id="L21486" class="LineNr">21486 </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="L21487" class="LineNr">21487 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21488" class="LineNr">21488 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21489" class="LineNr">21489 </span> <span class="subxComment"># "loop-if-addr<="</span> -<span id="L21490" class="LineNr">21490 </span> 0xe/imm32/size -<span id="L21491" class="LineNr">21491 </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="L21492" class="LineNr">21492 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21493" class="LineNr">21493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21494" class="LineNr">21494 </span> <span class="subxComment"># "loop-if-addr>"</span> -<span id="L21495" class="LineNr">21495 </span> 0xd/imm32/size -<span id="L21496" class="LineNr">21496 </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="L21497" class="LineNr">21497 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21498" class="LineNr">21498 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21499" class="LineNr">21499 </span> <span class="subxComment"># "loop-if-addr>="</span> -<span id="L21500" class="LineNr">21500 </span> 0xe/imm32/size -<span id="L21501" class="LineNr">21501 </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="L21502" class="LineNr">21502 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21503" class="LineNr">21503 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21504" class="LineNr">21504 </span> <span class="subxComment"># "loop-if-float<"</span> -<span id="L21505" class="LineNr">21505 </span> 0xe/imm32/size -<span id="L21506" class="LineNr">21506 </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="L21507" class="LineNr">21507 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21508" class="LineNr">21508 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21509" class="LineNr">21509 </span> <span class="subxComment"># "loop-if-float<="</span> -<span id="L21510" class="LineNr">21510 </span> 0xf/imm32/size -<span id="L21511" class="LineNr">21511 </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="L21512" class="LineNr">21512 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21513" class="LineNr">21513 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21514" class="LineNr">21514 </span> <span class="subxComment"># "loop-if-float>"</span> -<span id="L21515" class="LineNr">21515 </span> 0xe/imm32/size -<span id="L21516" class="LineNr">21516 </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="L21517" class="LineNr">21517 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21518" class="LineNr">21518 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21519" class="LineNr">21519 </span> <span class="subxComment"># "loop-if-float>="</span> -<span id="L21520" class="LineNr">21520 </span> 0xf/imm32/size -<span id="L21521" class="LineNr">21521 </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="L21522" class="LineNr">21522 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21523" class="LineNr">21523 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21524" class="LineNr">21524 </span> <span class="subxComment"># "multiply"</span> -<span id="L21525" class="LineNr">21525 </span> 0x8/imm32/size -<span id="L21526" class="LineNr">21526 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L21527" class="LineNr">21527 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21528" class="LineNr">21528 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21529" class="LineNr">21529 </span> <span class="subxComment"># "convert"</span> -<span id="L21530" class="LineNr">21530 </span> 0x7/imm32/size -<span id="L21531" class="LineNr">21531 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t -<span id="L21532" class="LineNr">21532 </span><span class="subxMinorFunction">_string-divide</span>: -<span id="L21533" class="LineNr">21533 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21534" class="LineNr">21534 </span> <span class="subxComment"># "divide"</span> -<span id="L21535" class="LineNr">21535 </span> 0x6/imm32/size -<span id="L21536" class="LineNr">21536 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L21537" class="LineNr">21537 </span><span class="subxMinorFunction">_string-max</span>: -<span id="L21538" class="LineNr">21538 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21539" class="LineNr">21539 </span> <span class="subxComment"># "max"</span> -<span id="L21540" class="LineNr">21540 </span> 0x3/imm32/size -<span id="L21541" class="LineNr">21541 </span> 0x6d/m 0x61/a 0x78/x -<span id="L21542" class="LineNr">21542 </span><span class="subxMinorFunction">_string-min</span>: -<span id="L21543" class="LineNr">21543 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21544" class="LineNr">21544 </span> <span class="subxComment"># "min"</span> -<span id="L21545" class="LineNr">21545 </span> 0x3/imm32/size -<span id="L21546" class="LineNr">21546 </span> 0x6d/m 0x69/i 0x6e/n -<span id="L21547" class="LineNr">21547 </span><span class="subxMinorFunction">_string-reciprocal</span>: -<span id="L21548" class="LineNr">21548 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21549" class="LineNr">21549 </span> <span class="subxComment"># "reciprocal"</span> -<span id="L21550" class="LineNr">21550 </span> 0xa/imm32/size -<span id="L21551" class="LineNr">21551 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L21552" class="LineNr">21552 </span><span class="subxMinorFunction">_string-square-root</span>: -<span id="L21553" class="LineNr">21553 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21554" class="LineNr">21554 </span> <span class="subxComment"># "square-root"</span> -<span id="L21555" class="LineNr">21555 </span> 0xb/imm32/size -<span id="L21556" class="LineNr">21556 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L21557" class="LineNr">21557 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: -<span id="L21558" class="LineNr">21558 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21559" class="LineNr">21559 </span> <span class="subxComment"># "inverse-square-root"</span> -<span id="L21560" class="LineNr">21560 </span> 0x13/imm32/size -<span id="L21561" class="LineNr">21561 </span> 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/- 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L21562" class="LineNr">21562 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21563" class="LineNr">21563 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21564" class="LineNr">21564 </span> <span class="subxComment"># "negate"</span> -<span id="L21565" class="LineNr">21565 </span> 0x6/imm32/size -<span id="L21566" class="LineNr">21566 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L21567" class="LineNr">21567 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21568" class="LineNr">21568 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21569" class="LineNr">21569 </span> <span class="subxComment"># "or"</span> -<span id="L21570" class="LineNr">21570 </span> 0x2/imm32/size -<span id="L21571" class="LineNr">21571 </span> 0x6f/o 0x72/r -<span id="L21572" class="LineNr">21572 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21573" class="LineNr">21573 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21574" class="LineNr">21574 </span> <span class="subxComment"># "or-with"</span> -<span id="L21575" class="LineNr">21575 </span> 0x7/imm32/size -<span id="L21576" class="LineNr">21576 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L21577" class="LineNr">21577 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21578" class="LineNr">21578 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21579" class="LineNr">21579 </span> <span class="subxComment"># "subtract"</span> -<span id="L21580" class="LineNr">21580 </span> 0x8/imm32/size -<span id="L21581" class="LineNr">21581 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L21582" class="LineNr">21582 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21583" class="LineNr">21583 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21584" class="LineNr">21584 </span> <span class="subxComment"># "subtract-from"</span> -<span id="L21585" class="LineNr">21585 </span> 0xd/imm32/size -<span id="L21586" class="LineNr">21586 </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="L21587" class="LineNr">21587 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21588" class="LineNr">21588 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21589" class="LineNr">21589 </span> <span class="subxComment"># "xor"</span> -<span id="L21590" class="LineNr">21590 </span> 0x3/imm32/size -<span id="L21591" class="LineNr">21591 </span> 0x78/x 0x6f/o 0x72/r -<span id="L21592" class="LineNr">21592 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21593" class="LineNr">21593 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21594" class="LineNr">21594 </span> <span class="subxComment"># "xor-with"</span> -<span id="L21595" class="LineNr">21595 </span> 0x8/imm32/size -<span id="L21596" class="LineNr">21596 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L21597" class="LineNr">21597 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21598" class="LineNr">21598 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21599" class="LineNr">21599 </span> <span class="subxComment"># "shift-left"</span> -<span id="L21600" class="LineNr">21600 </span> 0xa/imm32/size -<span id="L21601" class="LineNr">21601 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L21602" class="LineNr">21602 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21603" class="LineNr">21603 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21604" class="LineNr">21604 </span> <span class="subxComment"># "shift-right"</span> -<span id="L21605" class="LineNr">21605 </span> 0xb/imm32/size -<span id="L21606" class="LineNr">21606 </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="L21607" class="LineNr">21607 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21608" class="LineNr">21608 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21609" class="LineNr">21609 </span> <span class="subxComment"># "shift-right-signed"</span> -<span id="L21610" class="LineNr">21610 </span> 0x12/imm32/size -<span id="L21611" class="LineNr">21611 </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="L21612" class="LineNr">21612 </span> -<span id="L21613" class="LineNr">21613 </span><span class="subxComment"># string literals for SubX instructions</span> -<span id="L21614" class="LineNr">21614 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21615" class="LineNr">21615 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21616" class="LineNr">21616 </span> <span class="subxComment"># "01/add-to"</span> -<span id="L21617" class="LineNr">21617 </span> 0x9/imm32/size -<span id="L21618" class="LineNr">21618 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L21619" class="LineNr">21619 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21620" class="LineNr">21620 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21621" class="LineNr">21621 </span> <span class="subxComment"># "03/add"</span> -<span id="L21622" class="LineNr">21622 </span> 0x6/imm32/size -<span id="L21623" class="LineNr">21623 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L21624" class="LineNr">21624 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21625" class="LineNr">21625 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21626" class="LineNr">21626 </span> <span class="subxComment"># "05/add-to-eax"</span> -<span id="L21627" class="LineNr">21627 </span> 0xd/imm32/size -<span id="L21628" class="LineNr">21628 </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="L21629" class="LineNr">21629 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21630" class="LineNr">21630 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21631" class="LineNr">21631 </span> <span class="subxComment"># "09/or-with"</span> -<span id="L21632" class="LineNr">21632 </span> 0xa/imm32/size -<span id="L21633" class="LineNr">21633 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L21634" class="LineNr">21634 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21635" class="LineNr">21635 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21636" class="LineNr">21636 </span> <span class="subxComment"># "0b/or"</span> -<span id="L21637" class="LineNr">21637 </span> 0x5/imm32/size -<span id="L21638" class="LineNr">21638 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r -<span id="L21639" class="LineNr">21639 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21640" class="LineNr">21640 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21641" class="LineNr">21641 </span> <span class="subxComment"># "0d/or-with-eax"</span> -<span id="L21642" class="LineNr">21642 </span> 0xe/imm32/size -<span id="L21643" class="LineNr">21643 </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="L21644" class="LineNr">21644 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21645" class="LineNr">21645 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21646" class="LineNr">21646 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> -<span id="L21647" class="LineNr">21647 </span> 0x13/imm32/size -<span id="L21648" class="LineNr">21648 </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="L21649" class="LineNr">21649 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21650" class="LineNr">21650 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21651" class="LineNr">21651 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> -<span id="L21652" class="LineNr">21652 </span> 0x20/imm32/size -<span id="L21653" class="LineNr">21653 </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="L21654" class="LineNr">21654 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21655" class="LineNr">21655 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21656" class="LineNr">21656 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> -<span id="L21657" class="LineNr">21657 </span> 0x1f/imm32/size -<span id="L21658" class="LineNr">21658 </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="L21659" class="LineNr">21659 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21660" class="LineNr">21660 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21661" class="LineNr">21661 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> -<span id="L21662" class="LineNr">21662 </span> 0x14/imm32/size -<span id="L21663" class="LineNr">21663 </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="L21664" class="LineNr">21664 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21665" class="LineNr">21665 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21666" class="LineNr">21666 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> -<span id="L21667" class="LineNr">21667 </span> 0x21/imm32/size -<span id="L21668" class="LineNr">21668 </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="L21669" class="LineNr">21669 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21670" class="LineNr">21670 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21671" class="LineNr">21671 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> -<span id="L21672" class="LineNr">21672 </span> 0x20/imm32/size -<span id="L21673" class="LineNr">21673 </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="L21674" class="LineNr">21674 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21675" class="LineNr">21675 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21676" class="LineNr">21676 </span> <span class="subxComment"># "0f 84/jump-if-="</span> -<span id="L21677" class="LineNr">21677 </span> 0xf/imm32/size -<span id="L21678" class="LineNr">21678 </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="L21679" class="LineNr">21679 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21680" class="LineNr">21680 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21681" class="LineNr">21681 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> -<span id="L21682" class="LineNr">21682 </span> 0x1c/imm32/size -<span id="L21683" class="LineNr">21683 </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="L21684" class="LineNr">21684 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21685" class="LineNr">21685 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21686" class="LineNr">21686 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> -<span id="L21687" class="LineNr">21687 </span> 0x1b/imm32/size -<span id="L21688" class="LineNr">21688 </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="L21689" class="LineNr">21689 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21690" class="LineNr">21690 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21691" class="LineNr">21691 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> -<span id="L21692" class="LineNr">21692 </span> 0x10/imm32/size -<span id="L21693" class="LineNr">21693 </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="L21694" class="LineNr">21694 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21695" class="LineNr">21695 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21696" class="LineNr">21696 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> -<span id="L21697" class="LineNr">21697 </span> 0x1d/imm32/size -<span id="L21698" class="LineNr">21698 </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="L21699" class="LineNr">21699 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21700" class="LineNr">21700 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21701" class="LineNr">21701 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> -<span id="L21702" class="LineNr">21702 </span> 0x1c/imm32/size -<span id="L21703" class="LineNr">21703 </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="L21704" class="LineNr">21704 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21705" class="LineNr">21705 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21706" class="LineNr">21706 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> -<span id="L21707" class="LineNr">21707 </span> 0x14/imm32/size -<span id="L21708" class="LineNr">21708 </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="L21709" class="LineNr">21709 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21710" class="LineNr">21710 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21711" class="LineNr">21711 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> -<span id="L21712" class="LineNr">21712 </span> 0x21/imm32/size -<span id="L21713" class="LineNr">21713 </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="L21714" class="LineNr">21714 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21715" class="LineNr">21715 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21716" class="LineNr">21716 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> -<span id="L21717" class="LineNr">21717 </span> 0x20/imm32/size -<span id="L21718" class="LineNr">21718 </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="L21719" class="LineNr">21719 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21720" class="LineNr">21720 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21721" class="LineNr">21721 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> -<span id="L21722" class="LineNr">21722 </span> 0x13/imm32/size -<span id="L21723" class="LineNr">21723 </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="L21724" class="LineNr">21724 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21725" class="LineNr">21725 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21726" class="LineNr">21726 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> -<span id="L21727" class="LineNr">21727 </span> 0x20/imm32/size -<span id="L21728" class="LineNr">21728 </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="L21729" class="LineNr">21729 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21730" class="LineNr">21730 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21731" class="LineNr">21731 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> -<span id="L21732" class="LineNr">21732 </span> 0x1f/imm32/size -<span id="L21733" class="LineNr">21733 </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="L21734" class="LineNr">21734 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21735" class="LineNr">21735 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21736" class="LineNr">21736 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> -<span id="L21737" class="LineNr">21737 </span> 0xf/imm32/size -<span id="L21738" class="LineNr">21738 </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="L21739" class="LineNr">21739 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21740" class="LineNr">21740 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21741" class="LineNr">21741 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> -<span id="L21742" class="LineNr">21742 </span> 0x1c/imm32/size -<span id="L21743" class="LineNr">21743 </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="L21744" class="LineNr">21744 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21745" class="LineNr">21745 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21746" class="LineNr">21746 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> -<span id="L21747" class="LineNr">21747 </span> 0x1b/imm32/size -<span id="L21748" class="LineNr">21748 </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="L21749" class="LineNr">21749 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21750" class="LineNr">21750 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21751" class="LineNr">21751 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> -<span id="L21752" class="LineNr">21752 </span> 0x10/imm32/size -<span id="L21753" class="LineNr">21753 </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="L21754" class="LineNr">21754 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21755" class="LineNr">21755 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21756" class="LineNr">21756 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> -<span id="L21757" class="LineNr">21757 </span> 0x1d/imm32/size -<span id="L21758" class="LineNr">21758 </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="L21759" class="LineNr">21759 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21760" class="LineNr">21760 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21761" class="LineNr">21761 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> -<span id="L21762" class="LineNr">21762 </span> 0x1c/imm32/size -<span id="L21763" class="LineNr">21763 </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="L21764" class="LineNr">21764 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21765" class="LineNr">21765 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21766" class="LineNr">21766 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> -<span id="L21767" class="LineNr">21767 </span> 0x10/imm32/size -<span id="L21768" class="LineNr">21768 </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="L21769" class="LineNr">21769 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21770" class="LineNr">21770 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21771" class="LineNr">21771 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> -<span id="L21772" class="LineNr">21772 </span> 0x1d/imm32/size -<span id="L21773" class="LineNr">21773 </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="L21774" class="LineNr">21774 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21775" class="LineNr">21775 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21776" class="LineNr">21776 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> -<span id="L21777" class="LineNr">21777 </span> 0x1c/imm32/size -<span id="L21778" class="LineNr">21778 </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="L21779" class="LineNr">21779 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21780" class="LineNr">21780 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21781" class="LineNr">21781 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> -<span id="L21782" class="LineNr">21782 </span> 0xf/imm32/size -<span id="L21783" class="LineNr">21783 </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="L21784" class="LineNr">21784 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21785" class="LineNr">21785 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21786" class="LineNr">21786 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> -<span id="L21787" class="LineNr">21787 </span> 0x1c/imm32/size -<span id="L21788" class="LineNr">21788 </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="L21789" class="LineNr">21789 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21790" class="LineNr">21790 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21791" class="LineNr">21791 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> -<span id="L21792" class="LineNr">21792 </span> 0x1b/imm32/size -<span id="L21793" class="LineNr">21793 </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="L21794" class="LineNr">21794 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21795" class="LineNr">21795 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21796" class="LineNr">21796 </span> <span class="subxComment"># "0f af/multiply"</span> -<span id="L21797" class="LineNr">21797 </span> 0xe/imm32/size -<span id="L21798" class="LineNr">21798 </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="L21799" class="LineNr">21799 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: -<span id="L21800" class="LineNr">21800 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21801" class="LineNr">21801 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> -<span id="L21802" class="LineNr">21802 </span> 0x19/imm32/size -<span id="L21803" class="LineNr">21803 </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="L21804" class="LineNr">21804 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: -<span id="L21805" class="LineNr">21805 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21806" class="LineNr">21806 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> -<span id="L21807" class="LineNr">21807 </span> 0x17/imm32/size -<span id="L21808" class="LineNr">21808 </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="L21809" class="LineNr">21809 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: -<span id="L21810" class="LineNr">21810 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21811" class="LineNr">21811 </span> <span class="subxComment"># "f3 0f 58/add"</span> -<span id="L21812" class="LineNr">21812 </span> 0xc/imm32/size -<span id="L21813" class="LineNr">21813 </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="L21814" class="LineNr">21814 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: -<span id="L21815" class="LineNr">21815 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21816" class="LineNr">21816 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> -<span id="L21817" class="LineNr">21817 </span> 0x11/imm32/size -<span id="L21818" class="LineNr">21818 </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="L21819" class="LineNr">21819 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: -<span id="L21820" class="LineNr">21820 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21821" class="LineNr">21821 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> -<span id="L21822" class="LineNr">21822 </span> 0x11/imm32/size -<span id="L21823" class="LineNr">21823 </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="L21824" class="LineNr">21824 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: -<span id="L21825" class="LineNr">21825 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21826" class="LineNr">21826 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> -<span id="L21827" class="LineNr">21827 </span> 0xf/imm32/size -<span id="L21828" class="LineNr">21828 </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="L21829" class="LineNr">21829 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: -<span id="L21830" class="LineNr">21830 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21831" class="LineNr">21831 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> -<span id="L21832" class="LineNr">21832 </span> 0x13/imm32/size -<span id="L21833" class="LineNr">21833 </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="L21834" class="LineNr">21834 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: -<span id="L21835" class="LineNr">21835 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21836" class="LineNr">21836 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> -<span id="L21837" class="LineNr">21837 </span> 0x14/imm32/size -<span id="L21838" class="LineNr">21838 </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="L21839" class="LineNr">21839 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: -<span id="L21840" class="LineNr">21840 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21841" class="LineNr">21841 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> -<span id="L21842" class="LineNr">21842 </span> 0x1c/imm32/size -<span id="L21843" class="LineNr">21843 </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="L21844" class="LineNr">21844 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: -<span id="L21845" class="LineNr">21845 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21846" class="LineNr">21846 </span> <span class="subxComment"># "f3 0f 5d/min"</span> -<span id="L21847" class="LineNr">21847 </span> 0xc/imm32/size -<span id="L21848" class="LineNr">21848 </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="L21849" class="LineNr">21849 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: -<span id="L21850" class="LineNr">21850 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21851" class="LineNr">21851 </span> <span class="subxComment"># "f3 0f 5f/max"</span> -<span id="L21852" class="LineNr">21852 </span> 0xc/imm32/size -<span id="L21853" class="LineNr">21853 </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="L21854" class="LineNr">21854 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: -<span id="L21855" class="LineNr">21855 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21856" class="LineNr">21856 </span> <span class="subxComment"># "f3 0f 10/copy"</span> -<span id="L21857" class="LineNr">21857 </span> 0xd/imm32/size -<span id="L21858" class="LineNr">21858 </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="L21859" class="LineNr">21859 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: -<span id="L21860" class="LineNr">21860 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21861" class="LineNr">21861 </span> <span class="subxComment"># "f3 0f 11/copy"</span> -<span id="L21862" class="LineNr">21862 </span> 0xd/imm32/size -<span id="L21863" class="LineNr">21863 </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="L21864" class="LineNr">21864 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: -<span id="L21865" class="LineNr">21865 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21866" class="LineNr">21866 </span> <span class="subxComment"># "0f 2f/compare"</span> -<span id="L21867" class="LineNr">21867 </span> 0xd/imm32/size -<span id="L21868" class="LineNr">21868 </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="L21869" class="LineNr">21869 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21870" class="LineNr">21870 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21871" class="LineNr">21871 </span> <span class="subxComment"># "21/and-with"</span> -<span id="L21872" class="LineNr">21872 </span> 0xb/imm32/size -<span id="L21873" class="LineNr">21873 </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="L21874" class="LineNr">21874 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21875" class="LineNr">21875 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21876" class="LineNr">21876 </span> <span class="subxComment"># "23/and"</span> -<span id="L21877" class="LineNr">21877 </span> 0x6/imm32/size -<span id="L21878" class="LineNr">21878 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L21879" class="LineNr">21879 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21880" class="LineNr">21880 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21881" class="LineNr">21881 </span> <span class="subxComment"># "25/and-with-eax"</span> -<span id="L21882" class="LineNr">21882 </span> 0xf/imm32/size -<span id="L21883" class="LineNr">21883 </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="L21884" class="LineNr">21884 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21885" class="LineNr">21885 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21886" class="LineNr">21886 </span> <span class="subxComment"># "29/subtract-from"</span> -<span id="L21887" class="LineNr">21887 </span> 0x10/imm32/size -<span id="L21888" class="LineNr">21888 </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="L21889" class="LineNr">21889 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21890" class="LineNr">21890 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21891" class="LineNr">21891 </span> <span class="subxComment"># "2b/subtract"</span> -<span id="L21892" class="LineNr">21892 </span> 0xb/imm32/size -<span id="L21893" class="LineNr">21893 </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="L21894" class="LineNr">21894 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21895" class="LineNr">21895 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21896" class="LineNr">21896 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> -<span id="L21897" class="LineNr">21897 </span> 0x14/imm32/size -<span id="L21898" class="LineNr">21898 </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="L21899" class="LineNr">21899 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21900" class="LineNr">21900 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21901" class="LineNr">21901 </span> <span class="subxComment"># "31/xor-with"</span> -<span id="L21902" class="LineNr">21902 </span> 0xb/imm32/size -<span id="L21903" class="LineNr">21903 </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="L21904" class="LineNr">21904 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21905" class="LineNr">21905 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21906" class="LineNr">21906 </span> <span class="subxComment"># "33/xor"</span> -<span id="L21907" class="LineNr">21907 </span> 0x6/imm32/size -<span id="L21908" class="LineNr">21908 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L21909" class="LineNr">21909 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21910" class="LineNr">21910 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21911" class="LineNr">21911 </span> <span class="subxComment"># "35/xor-with-eax"</span> -<span id="L21912" class="LineNr">21912 </span> 0xf/imm32/size -<span id="L21913" class="LineNr">21913 </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="L21914" class="LineNr">21914 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21915" class="LineNr">21915 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21916" class="LineNr">21916 </span> <span class="subxComment"># "39/compare->"</span> -<span id="L21917" class="LineNr">21917 </span> 0xc/imm32/size -<span id="L21918" class="LineNr">21918 </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="L21919" class="LineNr">21919 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21920" class="LineNr">21920 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21921" class="LineNr">21921 </span> <span class="subxComment"># "3b/compare<-"</span> -<span id="L21922" class="LineNr">21922 </span> 0xc/imm32/size -<span id="L21923" class="LineNr">21923 </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="L21924" class="LineNr">21924 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21925" class="LineNr">21925 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21926" class="LineNr">21926 </span> <span class="subxComment"># "3d/compare-eax-with"</span> -<span id="L21927" class="LineNr">21927 </span> 0x13/imm32/size -<span id="L21928" class="LineNr">21928 </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="L21929" class="LineNr">21929 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21930" class="LineNr">21930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21931" class="LineNr">21931 </span> <span class="subxComment"># "40/increment-eax"</span> -<span id="L21932" class="LineNr">21932 </span> 0x10/imm32/size -<span id="L21933" class="LineNr">21933 </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="L21934" class="LineNr">21934 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21935" class="LineNr">21935 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21936" class="LineNr">21936 </span> <span class="subxComment"># "41/increment-ecx"</span> -<span id="L21937" class="LineNr">21937 </span> 0x10/imm32/size -<span id="L21938" class="LineNr">21938 </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="L21939" class="LineNr">21939 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21940" class="LineNr">21940 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21941" class="LineNr">21941 </span> <span class="subxComment"># "42/increment-edx"</span> -<span id="L21942" class="LineNr">21942 </span> 0x10/imm32/size -<span id="L21943" class="LineNr">21943 </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="L21944" class="LineNr">21944 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21945" class="LineNr">21945 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21946" class="LineNr">21946 </span> <span class="subxComment"># "43/increment-ebx"</span> -<span id="L21947" class="LineNr">21947 </span> 0x10/imm32/size -<span id="L21948" class="LineNr">21948 </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="L21949" class="LineNr">21949 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21950" class="LineNr">21950 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21951" class="LineNr">21951 </span> <span class="subxComment"># "46/increment-esi"</span> -<span id="L21952" class="LineNr">21952 </span> 0x10/imm32/size -<span id="L21953" class="LineNr">21953 </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="L21954" class="LineNr">21954 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21955" class="LineNr">21955 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21956" class="LineNr">21956 </span> <span class="subxComment"># "47/increment-edi"</span> -<span id="L21957" class="LineNr">21957 </span> 0x10/imm32/size -<span id="L21958" class="LineNr">21958 </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="L21959" class="LineNr">21959 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21960" class="LineNr">21960 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21961" class="LineNr">21961 </span> <span class="subxComment"># "48/decrement-eax"</span> -<span id="L21962" class="LineNr">21962 </span> 0x10/imm32/size -<span id="L21963" class="LineNr">21963 </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="L21964" class="LineNr">21964 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21965" class="LineNr">21965 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21966" class="LineNr">21966 </span> <span class="subxComment"># "49/decrement-ecx"</span> -<span id="L21967" class="LineNr">21967 </span> 0x10/imm32/size -<span id="L21968" class="LineNr">21968 </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="L21969" class="LineNr">21969 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21970" class="LineNr">21970 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21971" class="LineNr">21971 </span> <span class="subxComment"># "4a/decrement-edx"</span> -<span id="L21972" class="LineNr">21972 </span> 0x10/imm32/size -<span id="L21973" class="LineNr">21973 </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="L21974" class="LineNr">21974 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21975" class="LineNr">21975 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21976" class="LineNr">21976 </span> <span class="subxComment"># "4b/decrement-ebx"</span> -<span id="L21977" class="LineNr">21977 </span> 0x10/imm32/size -<span id="L21978" class="LineNr">21978 </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="L21979" class="LineNr">21979 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21980" class="LineNr">21980 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21981" class="LineNr">21981 </span> <span class="subxComment"># "4e/decrement-esi"</span> -<span id="L21982" class="LineNr">21982 </span> 0x10/imm32/size -<span id="L21983" class="LineNr">21983 </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="L21984" class="LineNr">21984 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21985" class="LineNr">21985 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21986" class="LineNr">21986 </span> <span class="subxComment"># "4f/decrement-edi"</span> -<span id="L21987" class="LineNr">21987 </span> 0x10/imm32/size -<span id="L21988" class="LineNr">21988 </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="L21989" class="LineNr">21989 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21990" class="LineNr">21990 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21991" class="LineNr">21991 </span> <span class="subxComment"># "81 0/subop/add"</span> -<span id="L21992" class="LineNr">21992 </span> 0xe/imm32/size -<span id="L21993" class="LineNr">21993 </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="L21994" class="LineNr">21994 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L21995" class="LineNr">21995 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L21996" class="LineNr">21996 </span> <span class="subxComment"># "81 1/subop/or"</span> -<span id="L21997" class="LineNr">21997 </span> 0xd/imm32/size -<span id="L21998" class="LineNr">21998 </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="L21999" class="LineNr">21999 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22000" class="LineNr">22000 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22001" class="LineNr">22001 </span> <span class="subxComment"># "81 4/subop/and"</span> -<span id="L22002" class="LineNr">22002 </span> 0xe/imm32/size -<span id="L22003" class="LineNr">22003 </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="L22004" class="LineNr">22004 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22005" class="LineNr">22005 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22006" class="LineNr">22006 </span> <span class="subxComment"># "81 5/subop/subtract"</span> -<span id="L22007" class="LineNr">22007 </span> 0x13/imm32/size -<span id="L22008" class="LineNr">22008 </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="L22009" class="LineNr">22009 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22010" class="LineNr">22010 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22011" class="LineNr">22011 </span> <span class="subxComment"># "81 6/subop/xor"</span> -<span id="L22012" class="LineNr">22012 </span> 0xe/imm32/size -<span id="L22013" class="LineNr">22013 </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="L22014" class="LineNr">22014 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22015" class="LineNr">22015 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22016" class="LineNr">22016 </span> <span class="subxComment"># "81 7/subop/compare"</span> -<span id="L22017" class="LineNr">22017 </span> 0x12/imm32/size -<span id="L22018" class="LineNr">22018 </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="L22019" class="LineNr">22019 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22020" class="LineNr">22020 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22021" class="LineNr">22021 </span> <span class="subxComment"># "89/<-"</span> -<span id="L22022" class="LineNr">22022 </span> 0x5/imm32/size -<span id="L22023" class="LineNr">22023 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash -<span id="L22024" class="LineNr">22024 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22025" class="LineNr">22025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22026" class="LineNr">22026 </span> <span class="subxComment"># "8b/->"</span> -<span id="L22027" class="LineNr">22027 </span> 0x5/imm32/size -<span id="L22028" class="LineNr">22028 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> -<span id="L22029" class="LineNr">22029 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: -<span id="L22030" class="LineNr">22030 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22031" class="LineNr">22031 </span> <span class="subxComment"># "8a/byte->"</span> -<span id="L22032" class="LineNr">22032 </span> 0x9/imm32/size -<span id="L22033" class="LineNr">22033 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> -<span id="L22034" class="LineNr">22034 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: -<span id="L22035" class="LineNr">22035 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22036" class="LineNr">22036 </span> <span class="subxComment"># "88/byte<-"</span> -<span id="L22037" class="LineNr">22037 </span> 0x9/imm32/size -<span id="L22038" class="LineNr">22038 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- -<span id="L22039" class="LineNr">22039 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22040" class="LineNr">22040 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22041" class="LineNr">22041 </span> <span class="subxComment"># "8d/copy-address"</span> -<span id="L22042" class="LineNr">22042 </span> 0xf/imm32/size -<span id="L22043" class="LineNr">22043 </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="L22044" class="LineNr">22044 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22045" class="LineNr">22045 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22046" class="LineNr">22046 </span> <span class="subxComment"># "b8/copy-to-eax"</span> -<span id="L22047" class="LineNr">22047 </span> 0xe/imm32/size -<span id="L22048" class="LineNr">22048 </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="L22049" class="LineNr">22049 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22050" class="LineNr">22050 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22051" class="LineNr">22051 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> -<span id="L22052" class="LineNr">22052 </span> 0xe/imm32/size -<span id="L22053" class="LineNr">22053 </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="L22054" class="LineNr">22054 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22055" class="LineNr">22055 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22056" class="LineNr">22056 </span> <span class="subxComment"># "ba/copy-to-edx"</span> -<span id="L22057" class="LineNr">22057 </span> 0xe/imm32/size -<span id="L22058" class="LineNr">22058 </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="L22059" class="LineNr">22059 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22060" class="LineNr">22060 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22061" class="LineNr">22061 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> -<span id="L22062" class="LineNr">22062 </span> 0xe/imm32/size -<span id="L22063" class="LineNr">22063 </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="L22064" class="LineNr">22064 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22065" class="LineNr">22065 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22066" class="LineNr">22066 </span> <span class="subxComment"># "be/copy-to-esi"</span> -<span id="L22067" class="LineNr">22067 </span> 0xe/imm32/size -<span id="L22068" class="LineNr">22068 </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="L22069" class="LineNr">22069 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22070" class="LineNr">22070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22071" class="LineNr">22071 </span> <span class="subxComment"># "bf/copy-to-edi"</span> -<span id="L22072" class="LineNr">22072 </span> 0xe/imm32/size -<span id="L22073" class="LineNr">22073 </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="L22074" class="LineNr">22074 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22075" class="LineNr">22075 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22076" class="LineNr">22076 </span> <span class="subxComment"># "c7 0/subop/copy"</span> -<span id="L22077" class="LineNr">22077 </span> 0xf/imm32/size -<span id="L22078" class="LineNr">22078 </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="L22079" class="LineNr">22079 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22080" class="LineNr">22080 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22081" class="LineNr">22081 </span> <span class="subxComment"># "e9/jump"</span> -<span id="L22082" class="LineNr">22082 </span> 0x7/imm32/size -<span id="L22083" class="LineNr">22083 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p -<span id="L22084" class="LineNr">22084 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22085" class="LineNr">22085 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22086" class="LineNr">22086 </span> <span class="subxComment"># "e9/jump break/disp32"</span> -<span id="L22087" class="LineNr">22087 </span> 0x14/imm32/size -<span id="L22088" class="LineNr">22088 </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="L22089" class="LineNr">22089 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22090" class="LineNr">22090 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22091" class="LineNr">22091 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> -<span id="L22092" class="LineNr">22092 </span> 0x13/imm32/size -<span id="L22093" class="LineNr">22093 </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="L22094" class="LineNr">22094 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: -<span id="L22095" class="LineNr">22095 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22096" class="LineNr">22096 </span> <span class="subxComment"># "f7 3/subop/negate"</span> -<span id="L22097" class="LineNr">22097 </span> 0x11/imm32/size -<span id="L22098" class="LineNr">22098 </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="L22099" class="LineNr">22099 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22100" class="LineNr">22100 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22101" class="LineNr">22101 </span> <span class="subxComment"># "ff 0/subop/increment"</span> -<span id="L22102" class="LineNr">22102 </span> 0x14/imm32/size -<span id="L22103" class="LineNr">22103 </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="L22104" class="LineNr">22104 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22105" class="LineNr">22105 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22106" class="LineNr">22106 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> -<span id="L22107" class="LineNr">22107 </span> 0x14/imm32/size -<span id="L22108" class="LineNr">22108 </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="L22109" class="LineNr">22109 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22110" class="LineNr">22110 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22111" class="LineNr">22111 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> -<span id="L22112" class="LineNr">22112 </span> 0x15/imm32/size -<span id="L22113" class="LineNr">22113 </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="L22114" class="LineNr">22114 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22115" class="LineNr">22115 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22116" class="LineNr">22116 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> -<span id="L22117" class="LineNr">22117 </span> 0x25/imm32/size -<span id="L22118" class="LineNr">22118 </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="L22119" class="LineNr">22119 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22120" class="LineNr">22120 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22121" class="LineNr">22121 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> -<span id="L22122" class="LineNr">22122 </span> 0x26/imm32/size -<span id="L22123" class="LineNr">22123 </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="L22124" class="LineNr">22124 </span> -<span id="L22125" class="LineNr">22125 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22126" class="LineNr">22126 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22127" class="LineNr">22127 </span> 0x11/imm32/alloc-id:fake -<span id="L22128" class="LineNr">22128 </span> <span class="SpecialChar"><a href='mu.subx.html#L22132'>Int-var-in-mem</a></span>/imm32 -<span id="L22129" class="LineNr">22129 </span> 0/imm32/next -<span id="L22130" class="LineNr">22130 </span> 0/imm32/next -<span id="L22131" class="LineNr">22131 </span> -<span id="L22132" class="LineNr">22132 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L21479" class="LineNr">21479 </span> 0x11/imm32/alloc-id:fake +<span id="L21480" class="LineNr">21480 </span> <a href='mu.subx.html#L21745'>_string-loop-if-float<</a>/imm32/name +<span id="L21481" class="LineNr">21481 </span> 0x11/imm32/alloc-id:fake +<span id="L21482" class="LineNr">21482 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21483" class="LineNr">21483 </span> 0/imm32/no-outputs +<span id="L21484" class="LineNr">21484 </span> 0/imm32/no-outputs +<span id="L21485" class="LineNr">21485 </span> 0x11/imm32/alloc-id:fake +<span id="L21486" class="LineNr">21486 </span> <a href='mu.subx.html#L21897'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L21487" class="LineNr">21487 </span> 0/imm32/no-rm32 +<span id="L21488" class="LineNr">21488 </span> 0/imm32/no-r32 +<span id="L21489" class="LineNr">21489 </span> 0/imm32/no-imm32 +<span id="L21490" class="LineNr">21490 </span> 0/imm32/no-imm8 +<span id="L21491" class="LineNr">21491 </span> 1/imm32/disp32-is-first-inout +<span id="L21492" class="LineNr">21492 </span> 0/imm32/no-xm32 +<span id="L21493" class="LineNr">21493 </span> 0/imm32/no-x32 +<span id="L21494" class="LineNr">21494 </span> 0x11/imm32/alloc-id:fake +<span id="L21495" class="LineNr">21495 </span> <a href='mu.subx.html#L21496'>_Primitive-loop-if-float>=-named</a>/imm32/next +<span id="L21496" class="LineNr">21496 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21497" class="LineNr">21497 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21498" class="LineNr">21498 </span> 0x11/imm32/alloc-id:fake +<span id="L21499" class="LineNr">21499 </span> <a href='mu.subx.html#L21760'>_string-loop-if-float>=</a>/imm32/name +<span id="L21500" class="LineNr">21500 </span> 0x11/imm32/alloc-id:fake +<span id="L21501" class="LineNr">21501 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21502" class="LineNr">21502 </span> 0/imm32/no-outputs +<span id="L21503" class="LineNr">21503 </span> 0/imm32/no-outputs +<span id="L21504" class="LineNr">21504 </span> 0x11/imm32/alloc-id:fake +<span id="L21505" class="LineNr">21505 </span> <a href='mu.subx.html#L21912'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L21506" class="LineNr">21506 </span> 0/imm32/no-rm32 +<span id="L21507" class="LineNr">21507 </span> 0/imm32/no-r32 +<span id="L21508" class="LineNr">21508 </span> 0/imm32/no-imm32 +<span id="L21509" class="LineNr">21509 </span> 0/imm32/no-imm8 +<span id="L21510" class="LineNr">21510 </span> 1/imm32/disp32-is-first-inout +<span id="L21511" class="LineNr">21511 </span> 0/imm32/no-xm32 +<span id="L21512" class="LineNr">21512 </span> 0/imm32/no-x32 +<span id="L21513" class="LineNr">21513 </span> 0x11/imm32/alloc-id:fake +<span id="L21514" class="LineNr">21514 </span> <a href='mu.subx.html#L21515'>_Primitive-loop-if-float<=-named</a>/imm32/next +<span id="L21515" class="LineNr">21515 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21516" class="LineNr">21516 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21517" class="LineNr">21517 </span> 0x11/imm32/alloc-id:fake +<span id="L21518" class="LineNr">21518 </span> <a href='mu.subx.html#L21750'>_string-loop-if-float<=</a>/imm32/name +<span id="L21519" class="LineNr">21519 </span> 0x11/imm32/alloc-id:fake +<span id="L21520" class="LineNr">21520 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21521" class="LineNr">21521 </span> 0/imm32/no-outputs +<span id="L21522" class="LineNr">21522 </span> 0/imm32/no-outputs +<span id="L21523" class="LineNr">21523 </span> 0x11/imm32/alloc-id:fake +<span id="L21524" class="LineNr">21524 </span> <a href='mu.subx.html#L21957'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L21525" class="LineNr">21525 </span> 0/imm32/no-rm32 +<span id="L21526" class="LineNr">21526 </span> 0/imm32/no-r32 +<span id="L21527" class="LineNr">21527 </span> 0/imm32/no-imm32 +<span id="L21528" class="LineNr">21528 </span> 0/imm32/no-imm8 +<span id="L21529" class="LineNr">21529 </span> 1/imm32/disp32-is-first-inout +<span id="L21530" class="LineNr">21530 </span> 0/imm32/no-xm32 +<span id="L21531" class="LineNr">21531 </span> 0/imm32/no-x32 +<span id="L21532" class="LineNr">21532 </span> 0x11/imm32/alloc-id:fake +<span id="L21533" class="LineNr">21533 </span> <a href='mu.subx.html#L21534'>_Primitive-loop-if-float>-named</a>/imm32/next +<span id="L21534" class="LineNr">21534 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L21535" class="LineNr">21535 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21536" class="LineNr">21536 </span> 0x11/imm32/alloc-id:fake +<span id="L21537" class="LineNr">21537 </span> <a href='mu.subx.html#L21755'>_string-loop-if-float></a>/imm32/name +<span id="L21538" class="LineNr">21538 </span> 0x11/imm32/alloc-id:fake +<span id="L21539" class="LineNr">21539 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/inouts +<span id="L21540" class="LineNr">21540 </span> 0/imm32/no-outputs +<span id="L21541" class="LineNr">21541 </span> 0/imm32/no-outputs +<span id="L21542" class="LineNr">21542 </span> 0x11/imm32/alloc-id:fake +<span id="L21543" class="LineNr">21543 </span> <a href='mu.subx.html#L21972'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L21544" class="LineNr">21544 </span> 0/imm32/no-rm32 +<span id="L21545" class="LineNr">21545 </span> 0/imm32/no-r32 +<span id="L21546" class="LineNr">21546 </span> 0/imm32/no-imm32 +<span id="L21547" class="LineNr">21547 </span> 0/imm32/no-imm8 +<span id="L21548" class="LineNr">21548 </span> 1/imm32/disp32-is-first-inout +<span id="L21549" class="LineNr">21549 </span> 0/imm32/no-xm32 +<span id="L21550" class="LineNr">21550 </span> 0/imm32/no-x32 +<span id="L21551" class="LineNr">21551 </span> 0/imm32/next +<span id="L21552" class="LineNr">21552 </span> 0/imm32/next +<span id="L21553" class="LineNr">21553 </span> +<span id="L21554" class="LineNr">21554 </span><span class="subxComment"># string literals for Mu instructions</span> +<span id="L21555" class="LineNr">21555 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21556" class="LineNr">21556 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21557" class="LineNr">21557 </span> <span class="subxComment"># "add"</span> +<span id="L21558" class="LineNr">21558 </span> 0x3/imm32/size +<span id="L21559" class="LineNr">21559 </span> 0x61/a 0x64/d 0x64/d +<span id="L21560" class="LineNr">21560 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21561" class="LineNr">21561 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21562" class="LineNr">21562 </span> <span class="subxComment"># "address"</span> +<span id="L21563" class="LineNr">21563 </span> 0x7/imm32/size +<span id="L21564" class="LineNr">21564 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L21565" class="LineNr">21565 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21566" class="LineNr">21566 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21567" class="LineNr">21567 </span> <span class="subxComment"># "add-to"</span> +<span id="L21568" class="LineNr">21568 </span> 0x6/imm32/size +<span id="L21569" class="LineNr">21569 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L21570" class="LineNr">21570 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21571" class="LineNr">21571 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21572" class="LineNr">21572 </span> <span class="subxComment"># "and"</span> +<span id="L21573" class="LineNr">21573 </span> 0x3/imm32/size +<span id="L21574" class="LineNr">21574 </span> 0x61/a 0x6e/n 0x64/d +<span id="L21575" class="LineNr">21575 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21576" class="LineNr">21576 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21577" class="LineNr">21577 </span> <span class="subxComment"># "and-with"</span> +<span id="L21578" class="LineNr">21578 </span> 0x8/imm32/size +<span id="L21579" class="LineNr">21579 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L21580" class="LineNr">21580 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21581" class="LineNr">21581 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21582" class="LineNr">21582 </span> <span class="subxComment"># "break"</span> +<span id="L21583" class="LineNr">21583 </span> 0x5/imm32/size +<span id="L21584" class="LineNr">21584 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k +<span id="L21585" class="LineNr">21585 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21586" class="LineNr">21586 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21587" class="LineNr">21587 </span> <span class="subxComment"># "break-if-<"</span> +<span id="L21588" class="LineNr">21588 </span> 0xa/imm32/size +<span id="L21589" class="LineNr">21589 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L21590" class="LineNr">21590 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21591" class="LineNr">21591 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21592" class="LineNr">21592 </span> <span class="subxComment"># "break-if-<="</span> +<span id="L21593" class="LineNr">21593 </span> 0xb/imm32/size +<span id="L21594" class="LineNr">21594 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L21595" class="LineNr">21595 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21596" class="LineNr">21596 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21597" class="LineNr">21597 </span> <span class="subxComment"># "break-if-="</span> +<span id="L21598" class="LineNr">21598 </span> 0xa/imm32/size +<span id="L21599" class="LineNr">21599 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L21600" class="LineNr">21600 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21601" class="LineNr">21601 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21602" class="LineNr">21602 </span> <span class="subxComment"># "break-if->"</span> +<span id="L21603" class="LineNr">21603 </span> 0xa/imm32/size +<span id="L21604" class="LineNr">21604 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L21605" class="LineNr">21605 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21606" class="LineNr">21606 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21607" class="LineNr">21607 </span> <span class="subxComment"># "break-if->="</span> +<span id="L21608" class="LineNr">21608 </span> 0xb/imm32/size +<span id="L21609" class="LineNr">21609 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L21610" class="LineNr">21610 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21611" class="LineNr">21611 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21612" class="LineNr">21612 </span> <span class="subxComment"># "break-if-!="</span> +<span id="L21613" class="LineNr">21613 </span> 0xb/imm32/size +<span id="L21614" class="LineNr">21614 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L21615" class="LineNr">21615 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21616" class="LineNr">21616 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21617" class="LineNr">21617 </span> <span class="subxComment"># "break-if-addr<"</span> +<span id="L21618" class="LineNr">21618 </span> 0xe/imm32/size +<span id="L21619" class="LineNr">21619 </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="L21620" class="LineNr">21620 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21621" class="LineNr">21621 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21622" class="LineNr">21622 </span> <span class="subxComment"># "break-if-addr<="</span> +<span id="L21623" class="LineNr">21623 </span> 0xf/imm32/size +<span id="L21624" class="LineNr">21624 </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="L21625" class="LineNr">21625 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21626" class="LineNr">21626 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21627" class="LineNr">21627 </span> <span class="subxComment"># "break-if-addr>"</span> +<span id="L21628" class="LineNr">21628 </span> 0xe/imm32/size +<span id="L21629" class="LineNr">21629 </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="L21630" class="LineNr">21630 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21631" class="LineNr">21631 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21632" class="LineNr">21632 </span> <span class="subxComment"># "break-if-addr>="</span> +<span id="L21633" class="LineNr">21633 </span> 0xf/imm32/size +<span id="L21634" class="LineNr">21634 </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="L21635" class="LineNr">21635 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21636" class="LineNr">21636 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21637" class="LineNr">21637 </span> <span class="subxComment"># "break-if-float<"</span> +<span id="L21638" class="LineNr">21638 </span> 0xf/imm32/size +<span id="L21639" class="LineNr">21639 </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="L21640" class="LineNr">21640 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21641" class="LineNr">21641 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21642" class="LineNr">21642 </span> <span class="subxComment"># "break-if-float<="</span> +<span id="L21643" class="LineNr">21643 </span> 0x10/imm32/size +<span id="L21644" class="LineNr">21644 </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="L21645" class="LineNr">21645 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21646" class="LineNr">21646 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21647" class="LineNr">21647 </span> <span class="subxComment"># "break-if-float>"</span> +<span id="L21648" class="LineNr">21648 </span> 0xf/imm32/size +<span id="L21649" class="LineNr">21649 </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="L21650" class="LineNr">21650 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21651" class="LineNr">21651 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21652" class="LineNr">21652 </span> <span class="subxComment"># "break-if-float>="</span> +<span id="L21653" class="LineNr">21653 </span> 0x10/imm32/size +<span id="L21654" class="LineNr">21654 </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="L21655" class="LineNr">21655 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21656" class="LineNr">21656 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21657" class="LineNr">21657 </span> <span class="subxComment"># "compare"</span> +<span id="L21658" class="LineNr">21658 </span> 0x7/imm32/size +<span id="L21659" class="LineNr">21659 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L21660" class="LineNr">21660 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21661" class="LineNr">21661 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21662" class="LineNr">21662 </span> <span class="subxComment"># "copy"</span> +<span id="L21663" class="LineNr">21663 </span> 0x4/imm32/size +<span id="L21664" class="LineNr">21664 </span> 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L21665" class="LineNr">21665 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21666" class="LineNr">21666 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21667" class="LineNr">21667 </span> <span class="subxComment"># "copy-to"</span> +<span id="L21668" class="LineNr">21668 </span> 0x7/imm32/size +<span id="L21669" class="LineNr">21669 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o +<span id="L21670" class="LineNr">21670 </span><span class="subxMinorFunction">_string-copy-byte</span>: +<span id="L21671" class="LineNr">21671 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21672" class="LineNr">21672 </span> <span class="subxComment"># "copy-byte"</span> +<span id="L21673" class="LineNr">21673 </span> 0x9/imm32/size +<span id="L21674" class="LineNr">21674 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e +<span id="L21675" class="LineNr">21675 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: +<span id="L21676" class="LineNr">21676 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21677" class="LineNr">21677 </span> <span class="subxComment"># "copy-byte-to"</span> +<span id="L21678" class="LineNr">21678 </span> 0xc/imm32/size +<span id="L21679" class="LineNr">21679 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x74/t 0x6f/o +<span id="L21680" class="LineNr">21680 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21681" class="LineNr">21681 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21682" class="LineNr">21682 </span> <span class="subxComment"># "decrement"</span> +<span id="L21683" class="LineNr">21683 </span> 0x9/imm32/size +<span id="L21684" class="LineNr">21684 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L21685" class="LineNr">21685 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21686" class="LineNr">21686 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21687" class="LineNr">21687 </span> <span class="subxComment"># "increment"</span> +<span id="L21688" class="LineNr">21688 </span> 0x9/imm32/size +<span id="L21689" class="LineNr">21689 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L21690" class="LineNr">21690 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21691" class="LineNr">21691 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21692" class="LineNr">21692 </span> <span class="subxComment"># "loop"</span> +<span id="L21693" class="LineNr">21693 </span> 0x4/imm32/size +<span id="L21694" class="LineNr">21694 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p +<span id="L21695" class="LineNr">21695 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21696" class="LineNr">21696 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21697" class="LineNr">21697 </span> <span class="subxComment"># "loop-if-<"</span> +<span id="L21698" class="LineNr">21698 </span> 0x9/imm32/size +<span id="L21699" class="LineNr">21699 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L21700" class="LineNr">21700 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21701" class="LineNr">21701 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21702" class="LineNr">21702 </span> <span class="subxComment"># "loop-if-<="</span> +<span id="L21703" class="LineNr">21703 </span> 0xa/imm32/size +<span id="L21704" class="LineNr">21704 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L21705" class="LineNr">21705 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21706" class="LineNr">21706 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21707" class="LineNr">21707 </span> <span class="subxComment"># "loop-if-="</span> +<span id="L21708" class="LineNr">21708 </span> 0x9/imm32/size +<span id="L21709" class="LineNr">21709 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L21710" class="LineNr">21710 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21711" class="LineNr">21711 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21712" class="LineNr">21712 </span> <span class="subxComment"># "loop-if->"</span> +<span id="L21713" class="LineNr">21713 </span> 0x9/imm32/size +<span id="L21714" class="LineNr">21714 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L21715" class="LineNr">21715 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21716" class="LineNr">21716 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21717" class="LineNr">21717 </span> <span class="subxComment"># "loop-if->="</span> +<span id="L21718" class="LineNr">21718 </span> 0xa/imm32/size +<span id="L21719" class="LineNr">21719 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L21720" class="LineNr">21720 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21721" class="LineNr">21721 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21722" class="LineNr">21722 </span> <span class="subxComment"># "loop-if-!="</span> +<span id="L21723" class="LineNr">21723 </span> 0xa/imm32/size +<span id="L21724" class="LineNr">21724 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L21725" class="LineNr">21725 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21726" class="LineNr">21726 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21727" class="LineNr">21727 </span> <span class="subxComment"># "loop-if-addr<"</span> +<span id="L21728" class="LineNr">21728 </span> 0xd/imm32/size +<span id="L21729" class="LineNr">21729 </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="L21730" class="LineNr">21730 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21731" class="LineNr">21731 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21732" class="LineNr">21732 </span> <span class="subxComment"># "loop-if-addr<="</span> +<span id="L21733" class="LineNr">21733 </span> 0xe/imm32/size +<span id="L21734" class="LineNr">21734 </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="L21735" class="LineNr">21735 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21736" class="LineNr">21736 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21737" class="LineNr">21737 </span> <span class="subxComment"># "loop-if-addr>"</span> +<span id="L21738" class="LineNr">21738 </span> 0xd/imm32/size +<span id="L21739" class="LineNr">21739 </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="L21740" class="LineNr">21740 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21741" class="LineNr">21741 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21742" class="LineNr">21742 </span> <span class="subxComment"># "loop-if-addr>="</span> +<span id="L21743" class="LineNr">21743 </span> 0xe/imm32/size +<span id="L21744" class="LineNr">21744 </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="L21745" class="LineNr">21745 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21746" class="LineNr">21746 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21747" class="LineNr">21747 </span> <span class="subxComment"># "loop-if-float<"</span> +<span id="L21748" class="LineNr">21748 </span> 0xe/imm32/size +<span id="L21749" class="LineNr">21749 </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="L21750" class="LineNr">21750 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21751" class="LineNr">21751 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21752" class="LineNr">21752 </span> <span class="subxComment"># "loop-if-float<="</span> +<span id="L21753" class="LineNr">21753 </span> 0xf/imm32/size +<span id="L21754" class="LineNr">21754 </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="L21755" class="LineNr">21755 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21756" class="LineNr">21756 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21757" class="LineNr">21757 </span> <span class="subxComment"># "loop-if-float>"</span> +<span id="L21758" class="LineNr">21758 </span> 0xe/imm32/size +<span id="L21759" class="LineNr">21759 </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="L21760" class="LineNr">21760 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21761" class="LineNr">21761 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21762" class="LineNr">21762 </span> <span class="subxComment"># "loop-if-float>="</span> +<span id="L21763" class="LineNr">21763 </span> 0xf/imm32/size +<span id="L21764" class="LineNr">21764 </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="L21765" class="LineNr">21765 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21766" class="LineNr">21766 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21767" class="LineNr">21767 </span> <span class="subxComment"># "multiply"</span> +<span id="L21768" class="LineNr">21768 </span> 0x8/imm32/size +<span id="L21769" class="LineNr">21769 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L21770" class="LineNr">21770 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21771" class="LineNr">21771 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21772" class="LineNr">21772 </span> <span class="subxComment"># "convert"</span> +<span id="L21773" class="LineNr">21773 </span> 0x7/imm32/size +<span id="L21774" class="LineNr">21774 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t +<span id="L21775" class="LineNr">21775 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21776" class="LineNr">21776 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21777" class="LineNr">21777 </span> <span class="subxComment"># "truncate"</span> +<span id="L21778" class="LineNr">21778 </span> 0x8/imm32/size +<span id="L21779" class="LineNr">21779 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e +<span id="L21780" class="LineNr">21780 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21781" class="LineNr">21781 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21782" class="LineNr">21782 </span> <span class="subxComment"># "reinterpret"</span> +<span id="L21783" class="LineNr">21783 </span> 0xb/imm32/size +<span id="L21784" class="LineNr">21784 </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="L21785" class="LineNr">21785 </span><span class="subxMinorFunction">_string-divide</span>: +<span id="L21786" class="LineNr">21786 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21787" class="LineNr">21787 </span> <span class="subxComment"># "divide"</span> +<span id="L21788" class="LineNr">21788 </span> 0x6/imm32/size +<span id="L21789" class="LineNr">21789 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L21790" class="LineNr">21790 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L21791" class="LineNr">21791 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21792" class="LineNr">21792 </span> <span class="subxComment"># "max"</span> +<span id="L21793" class="LineNr">21793 </span> 0x3/imm32/size +<span id="L21794" class="LineNr">21794 </span> 0x6d/m 0x61/a 0x78/x +<span id="L21795" class="LineNr">21795 </span><span class="subxMinorFunction">_string-min</span>: +<span id="L21796" class="LineNr">21796 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21797" class="LineNr">21797 </span> <span class="subxComment"># "min"</span> +<span id="L21798" class="LineNr">21798 </span> 0x3/imm32/size +<span id="L21799" class="LineNr">21799 </span> 0x6d/m 0x69/i 0x6e/n +<span id="L21800" class="LineNr">21800 </span><span class="subxMinorFunction">_string-reciprocal</span>: +<span id="L21801" class="LineNr">21801 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21802" class="LineNr">21802 </span> <span class="subxComment"># "reciprocal"</span> +<span id="L21803" class="LineNr">21803 </span> 0xa/imm32/size +<span id="L21804" class="LineNr">21804 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L21805" class="LineNr">21805 </span><span class="subxMinorFunction">_string-square-root</span>: +<span id="L21806" class="LineNr">21806 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21807" class="LineNr">21807 </span> <span class="subxComment"># "square-root"</span> +<span id="L21808" class="LineNr">21808 </span> 0xb/imm32/size +<span id="L21809" class="LineNr">21809 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L21810" class="LineNr">21810 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: +<span id="L21811" class="LineNr">21811 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21812" class="LineNr">21812 </span> <span class="subxComment"># "inverse-square-root"</span> +<span id="L21813" class="LineNr">21813 </span> 0x13/imm32/size +<span id="L21814" class="LineNr">21814 </span> 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/- 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L21815" class="LineNr">21815 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21816" class="LineNr">21816 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21817" class="LineNr">21817 </span> <span class="subxComment"># "negate"</span> +<span id="L21818" class="LineNr">21818 </span> 0x6/imm32/size +<span id="L21819" class="LineNr">21819 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L21820" class="LineNr">21820 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21821" class="LineNr">21821 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21822" class="LineNr">21822 </span> <span class="subxComment"># "or"</span> +<span id="L21823" class="LineNr">21823 </span> 0x2/imm32/size +<span id="L21824" class="LineNr">21824 </span> 0x6f/o 0x72/r +<span id="L21825" class="LineNr">21825 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21826" class="LineNr">21826 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21827" class="LineNr">21827 </span> <span class="subxComment"># "or-with"</span> +<span id="L21828" class="LineNr">21828 </span> 0x7/imm32/size +<span id="L21829" class="LineNr">21829 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L21830" class="LineNr">21830 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21831" class="LineNr">21831 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21832" class="LineNr">21832 </span> <span class="subxComment"># "subtract"</span> +<span id="L21833" class="LineNr">21833 </span> 0x8/imm32/size +<span id="L21834" class="LineNr">21834 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L21835" class="LineNr">21835 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21836" class="LineNr">21836 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21837" class="LineNr">21837 </span> <span class="subxComment"># "subtract-from"</span> +<span id="L21838" class="LineNr">21838 </span> 0xd/imm32/size +<span id="L21839" class="LineNr">21839 </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="L21840" class="LineNr">21840 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21841" class="LineNr">21841 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21842" class="LineNr">21842 </span> <span class="subxComment"># "xor"</span> +<span id="L21843" class="LineNr">21843 </span> 0x3/imm32/size +<span id="L21844" class="LineNr">21844 </span> 0x78/x 0x6f/o 0x72/r +<span id="L21845" class="LineNr">21845 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21846" class="LineNr">21846 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21847" class="LineNr">21847 </span> <span class="subxComment"># "xor-with"</span> +<span id="L21848" class="LineNr">21848 </span> 0x8/imm32/size +<span id="L21849" class="LineNr">21849 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L21850" class="LineNr">21850 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21851" class="LineNr">21851 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21852" class="LineNr">21852 </span> <span class="subxComment"># "shift-left"</span> +<span id="L21853" class="LineNr">21853 </span> 0xa/imm32/size +<span id="L21854" class="LineNr">21854 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L21855" class="LineNr">21855 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21856" class="LineNr">21856 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21857" class="LineNr">21857 </span> <span class="subxComment"># "shift-right"</span> +<span id="L21858" class="LineNr">21858 </span> 0xb/imm32/size +<span id="L21859" class="LineNr">21859 </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="L21860" class="LineNr">21860 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21861" class="LineNr">21861 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21862" class="LineNr">21862 </span> <span class="subxComment"># "shift-right-signed"</span> +<span id="L21863" class="LineNr">21863 </span> 0x12/imm32/size +<span id="L21864" class="LineNr">21864 </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="L21865" class="LineNr">21865 </span> +<span id="L21866" class="LineNr">21866 </span><span class="subxComment"># string literals for SubX instructions</span> +<span id="L21867" class="LineNr">21867 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21868" class="LineNr">21868 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21869" class="LineNr">21869 </span> <span class="subxComment"># "01/add-to"</span> +<span id="L21870" class="LineNr">21870 </span> 0x9/imm32/size +<span id="L21871" class="LineNr">21871 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L21872" class="LineNr">21872 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21873" class="LineNr">21873 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21874" class="LineNr">21874 </span> <span class="subxComment"># "03/add"</span> +<span id="L21875" class="LineNr">21875 </span> 0x6/imm32/size +<span id="L21876" class="LineNr">21876 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L21877" class="LineNr">21877 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21878" class="LineNr">21878 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21879" class="LineNr">21879 </span> <span class="subxComment"># "05/add-to-eax"</span> +<span id="L21880" class="LineNr">21880 </span> 0xd/imm32/size +<span id="L21881" class="LineNr">21881 </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="L21882" class="LineNr">21882 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21883" class="LineNr">21883 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21884" class="LineNr">21884 </span> <span class="subxComment"># "09/or-with"</span> +<span id="L21885" class="LineNr">21885 </span> 0xa/imm32/size +<span id="L21886" class="LineNr">21886 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L21887" class="LineNr">21887 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21888" class="LineNr">21888 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21889" class="LineNr">21889 </span> <span class="subxComment"># "0b/or"</span> +<span id="L21890" class="LineNr">21890 </span> 0x5/imm32/size +<span id="L21891" class="LineNr">21891 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r +<span id="L21892" class="LineNr">21892 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21893" class="LineNr">21893 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21894" class="LineNr">21894 </span> <span class="subxComment"># "0d/or-with-eax"</span> +<span id="L21895" class="LineNr">21895 </span> 0xe/imm32/size +<span id="L21896" class="LineNr">21896 </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="L21897" class="LineNr">21897 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21898" class="LineNr">21898 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21899" class="LineNr">21899 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> +<span id="L21900" class="LineNr">21900 </span> 0x13/imm32/size +<span id="L21901" class="LineNr">21901 </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="L21902" class="LineNr">21902 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21903" class="LineNr">21903 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21904" class="LineNr">21904 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> +<span id="L21905" class="LineNr">21905 </span> 0x20/imm32/size +<span id="L21906" class="LineNr">21906 </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="L21907" class="LineNr">21907 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21908" class="LineNr">21908 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21909" class="LineNr">21909 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> +<span id="L21910" class="LineNr">21910 </span> 0x1f/imm32/size +<span id="L21911" class="LineNr">21911 </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="L21912" class="LineNr">21912 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21913" class="LineNr">21913 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21914" class="LineNr">21914 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> +<span id="L21915" class="LineNr">21915 </span> 0x14/imm32/size +<span id="L21916" class="LineNr">21916 </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="L21917" class="LineNr">21917 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21918" class="LineNr">21918 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21919" class="LineNr">21919 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> +<span id="L21920" class="LineNr">21920 </span> 0x21/imm32/size +<span id="L21921" class="LineNr">21921 </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="L21922" class="LineNr">21922 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21923" class="LineNr">21923 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21924" class="LineNr">21924 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> +<span id="L21925" class="LineNr">21925 </span> 0x20/imm32/size +<span id="L21926" class="LineNr">21926 </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="L21927" class="LineNr">21927 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21928" class="LineNr">21928 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21929" class="LineNr">21929 </span> <span class="subxComment"># "0f 84/jump-if-="</span> +<span id="L21930" class="LineNr">21930 </span> 0xf/imm32/size +<span id="L21931" class="LineNr">21931 </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="L21932" class="LineNr">21932 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21933" class="LineNr">21933 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21934" class="LineNr">21934 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> +<span id="L21935" class="LineNr">21935 </span> 0x1c/imm32/size +<span id="L21936" class="LineNr">21936 </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="L21937" class="LineNr">21937 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21938" class="LineNr">21938 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21939" class="LineNr">21939 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> +<span id="L21940" class="LineNr">21940 </span> 0x1b/imm32/size +<span id="L21941" class="LineNr">21941 </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="L21942" class="LineNr">21942 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21943" class="LineNr">21943 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21944" class="LineNr">21944 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> +<span id="L21945" class="LineNr">21945 </span> 0x10/imm32/size +<span id="L21946" class="LineNr">21946 </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="L21947" class="LineNr">21947 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21948" class="LineNr">21948 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21949" class="LineNr">21949 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> +<span id="L21950" class="LineNr">21950 </span> 0x1d/imm32/size +<span id="L21951" class="LineNr">21951 </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="L21952" class="LineNr">21952 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21953" class="LineNr">21953 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21954" class="LineNr">21954 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> +<span id="L21955" class="LineNr">21955 </span> 0x1c/imm32/size +<span id="L21956" class="LineNr">21956 </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="L21957" class="LineNr">21957 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21958" class="LineNr">21958 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21959" class="LineNr">21959 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> +<span id="L21960" class="LineNr">21960 </span> 0x14/imm32/size +<span id="L21961" class="LineNr">21961 </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="L21962" class="LineNr">21962 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21963" class="LineNr">21963 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21964" class="LineNr">21964 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> +<span id="L21965" class="LineNr">21965 </span> 0x21/imm32/size +<span id="L21966" class="LineNr">21966 </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="L21967" class="LineNr">21967 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21968" class="LineNr">21968 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21969" class="LineNr">21969 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> +<span id="L21970" class="LineNr">21970 </span> 0x20/imm32/size +<span id="L21971" class="LineNr">21971 </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="L21972" class="LineNr">21972 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21973" class="LineNr">21973 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21974" class="LineNr">21974 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> +<span id="L21975" class="LineNr">21975 </span> 0x13/imm32/size +<span id="L21976" class="LineNr">21976 </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="L21977" class="LineNr">21977 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21978" class="LineNr">21978 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21979" class="LineNr">21979 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> +<span id="L21980" class="LineNr">21980 </span> 0x20/imm32/size +<span id="L21981" class="LineNr">21981 </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="L21982" class="LineNr">21982 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21983" class="LineNr">21983 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21984" class="LineNr">21984 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> +<span id="L21985" class="LineNr">21985 </span> 0x1f/imm32/size +<span id="L21986" class="LineNr">21986 </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="L21987" class="LineNr">21987 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21988" class="LineNr">21988 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21989" class="LineNr">21989 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> +<span id="L21990" class="LineNr">21990 </span> 0xf/imm32/size +<span id="L21991" class="LineNr">21991 </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="L21992" class="LineNr">21992 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21993" class="LineNr">21993 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21994" class="LineNr">21994 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> +<span id="L21995" class="LineNr">21995 </span> 0x1c/imm32/size +<span id="L21996" class="LineNr">21996 </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="L21997" class="LineNr">21997 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L21998" class="LineNr">21998 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L21999" class="LineNr">21999 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> +<span id="L22000" class="LineNr">22000 </span> 0x1b/imm32/size +<span id="L22001" class="LineNr">22001 </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="L22002" class="LineNr">22002 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22003" class="LineNr">22003 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22004" class="LineNr">22004 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> +<span id="L22005" class="LineNr">22005 </span> 0x10/imm32/size +<span id="L22006" class="LineNr">22006 </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="L22007" class="LineNr">22007 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22008" class="LineNr">22008 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22009" class="LineNr">22009 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> +<span id="L22010" class="LineNr">22010 </span> 0x1d/imm32/size +<span id="L22011" class="LineNr">22011 </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="L22012" class="LineNr">22012 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22013" class="LineNr">22013 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22014" class="LineNr">22014 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> +<span id="L22015" class="LineNr">22015 </span> 0x1c/imm32/size +<span id="L22016" class="LineNr">22016 </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="L22017" class="LineNr">22017 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22018" class="LineNr">22018 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22019" class="LineNr">22019 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> +<span id="L22020" class="LineNr">22020 </span> 0x10/imm32/size +<span id="L22021" class="LineNr">22021 </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="L22022" class="LineNr">22022 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22023" class="LineNr">22023 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22024" class="LineNr">22024 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> +<span id="L22025" class="LineNr">22025 </span> 0x1d/imm32/size +<span id="L22026" class="LineNr">22026 </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="L22027" class="LineNr">22027 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22028" class="LineNr">22028 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22029" class="LineNr">22029 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> +<span id="L22030" class="LineNr">22030 </span> 0x1c/imm32/size +<span id="L22031" class="LineNr">22031 </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="L22032" class="LineNr">22032 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22033" class="LineNr">22033 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22034" class="LineNr">22034 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> +<span id="L22035" class="LineNr">22035 </span> 0xf/imm32/size +<span id="L22036" class="LineNr">22036 </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="L22037" class="LineNr">22037 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22038" class="LineNr">22038 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22039" class="LineNr">22039 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> +<span id="L22040" class="LineNr">22040 </span> 0x1c/imm32/size +<span id="L22041" class="LineNr">22041 </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="L22042" class="LineNr">22042 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22043" class="LineNr">22043 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22044" class="LineNr">22044 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> +<span id="L22045" class="LineNr">22045 </span> 0x1b/imm32/size +<span id="L22046" class="LineNr">22046 </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="L22047" class="LineNr">22047 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22048" class="LineNr">22048 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22049" class="LineNr">22049 </span> <span class="subxComment"># "0f af/multiply"</span> +<span id="L22050" class="LineNr">22050 </span> 0xe/imm32/size +<span id="L22051" class="LineNr">22051 </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="L22052" class="LineNr">22052 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: +<span id="L22053" class="LineNr">22053 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22054" class="LineNr">22054 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> +<span id="L22055" class="LineNr">22055 </span> 0x19/imm32/size +<span id="L22056" class="LineNr">22056 </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="L22057" class="LineNr">22057 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L22058" class="LineNr">22058 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22059" class="LineNr">22059 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> +<span id="L22060" class="LineNr">22060 </span> 0x17/imm32/size +<span id="L22061" class="LineNr">22061 </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="L22062" class="LineNr">22062 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: +<span id="L22063" class="LineNr">22063 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22064" class="LineNr">22064 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> +<span id="L22065" class="LineNr">22065 </span> 0x18/imm32/size +<span id="L22066" class="LineNr">22066 </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="L22067" class="LineNr">22067 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: +<span id="L22068" class="LineNr">22068 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22069" class="LineNr">22069 </span> <span class="subxComment"># "f3 0f 58/add"</span> +<span id="L22070" class="LineNr">22070 </span> 0xc/imm32/size +<span id="L22071" class="LineNr">22071 </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="L22072" class="LineNr">22072 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: +<span id="L22073" class="LineNr">22073 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22074" class="LineNr">22074 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> +<span id="L22075" class="LineNr">22075 </span> 0x11/imm32/size +<span id="L22076" class="LineNr">22076 </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="L22077" class="LineNr">22077 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: +<span id="L22078" class="LineNr">22078 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22079" class="LineNr">22079 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> +<span id="L22080" class="LineNr">22080 </span> 0x11/imm32/size +<span id="L22081" class="LineNr">22081 </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="L22082" class="LineNr">22082 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: +<span id="L22083" class="LineNr">22083 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22084" class="LineNr">22084 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> +<span id="L22085" class="LineNr">22085 </span> 0xf/imm32/size +<span id="L22086" class="LineNr">22086 </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="L22087" class="LineNr">22087 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: +<span id="L22088" class="LineNr">22088 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22089" class="LineNr">22089 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> +<span id="L22090" class="LineNr">22090 </span> 0x13/imm32/size +<span id="L22091" class="LineNr">22091 </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="L22092" class="LineNr">22092 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: +<span id="L22093" class="LineNr">22093 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22094" class="LineNr">22094 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> +<span id="L22095" class="LineNr">22095 </span> 0x14/imm32/size +<span id="L22096" class="LineNr">22096 </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="L22097" class="LineNr">22097 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: +<span id="L22098" class="LineNr">22098 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22099" class="LineNr">22099 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> +<span id="L22100" class="LineNr">22100 </span> 0x1c/imm32/size +<span id="L22101" class="LineNr">22101 </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="L22102" class="LineNr">22102 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: +<span id="L22103" class="LineNr">22103 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22104" class="LineNr">22104 </span> <span class="subxComment"># "f3 0f 5d/min"</span> +<span id="L22105" class="LineNr">22105 </span> 0xc/imm32/size +<span id="L22106" class="LineNr">22106 </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="L22107" class="LineNr">22107 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: +<span id="L22108" class="LineNr">22108 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22109" class="LineNr">22109 </span> <span class="subxComment"># "f3 0f 5f/max"</span> +<span id="L22110" class="LineNr">22110 </span> 0xc/imm32/size +<span id="L22111" class="LineNr">22111 </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="L22112" class="LineNr">22112 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: +<span id="L22113" class="LineNr">22113 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22114" class="LineNr">22114 </span> <span class="subxComment"># "f3 0f 10/copy"</span> +<span id="L22115" class="LineNr">22115 </span> 0xd/imm32/size +<span id="L22116" class="LineNr">22116 </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="L22117" class="LineNr">22117 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: +<span id="L22118" class="LineNr">22118 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22119" class="LineNr">22119 </span> <span class="subxComment"># "f3 0f 11/copy"</span> +<span id="L22120" class="LineNr">22120 </span> 0xd/imm32/size +<span id="L22121" class="LineNr">22121 </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="L22122" class="LineNr">22122 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: +<span id="L22123" class="LineNr">22123 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22124" class="LineNr">22124 </span> <span class="subxComment"># "0f 2f/compare"</span> +<span id="L22125" class="LineNr">22125 </span> 0xd/imm32/size +<span id="L22126" class="LineNr">22126 </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="L22127" class="LineNr">22127 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22128" class="LineNr">22128 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22129" class="LineNr">22129 </span> <span class="subxComment"># "21/and-with"</span> +<span id="L22130" class="LineNr">22130 </span> 0xb/imm32/size +<span id="L22131" class="LineNr">22131 </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="L22132" class="LineNr">22132 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22133" class="LineNr">22133 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22134" class="LineNr">22134 </span> 0/imm32/name -<span id="L22135" class="LineNr">22135 </span> 0/imm32/name -<span id="L22136" class="LineNr">22136 </span> 0x11/imm32/alloc-id:fake -<span id="L22137" class="LineNr">22137 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22138" class="LineNr">22138 </span> 1/imm32/some-block-depth -<span id="L22139" class="LineNr">22139 </span> 1/imm32/some-stack-offset -<span id="L22140" class="LineNr">22140 </span> 0/imm32/no-register -<span id="L22141" class="LineNr">22141 </span> 0/imm32/no-register -<span id="L22142" class="LineNr">22142 </span> -<span id="L22143" class="LineNr">22143 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L22144" class="LineNr">22144 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22145" class="LineNr">22145 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22146" class="LineNr">22146 </span> 0x11/imm32/alloc-id:fake -<span id="L22147" class="LineNr">22147 </span> <span class="SpecialChar"><a href='mu.subx.html#L22152'>Byte-var-in-mem</a></span>/imm32 -<span id="L22148" class="LineNr">22148 </span> 0/imm32/next -<span id="L22149" class="LineNr">22149 </span> 0/imm32/next -<span id="L22150" class="LineNr">22150 </span> -<span id="L22151" class="LineNr">22151 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L22152" class="LineNr">22152 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L22134" class="LineNr">22134 </span> <span class="subxComment"># "23/and"</span> +<span id="L22135" class="LineNr">22135 </span> 0x6/imm32/size +<span id="L22136" class="LineNr">22136 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L22137" class="LineNr">22137 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22138" class="LineNr">22138 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22139" class="LineNr">22139 </span> <span class="subxComment"># "25/and-with-eax"</span> +<span id="L22140" class="LineNr">22140 </span> 0xf/imm32/size +<span id="L22141" class="LineNr">22141 </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="L22142" class="LineNr">22142 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22143" class="LineNr">22143 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22144" class="LineNr">22144 </span> <span class="subxComment"># "29/subtract-from"</span> +<span id="L22145" class="LineNr">22145 </span> 0x10/imm32/size +<span id="L22146" class="LineNr">22146 </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="L22147" class="LineNr">22147 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22148" class="LineNr">22148 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22149" class="LineNr">22149 </span> <span class="subxComment"># "2b/subtract"</span> +<span id="L22150" class="LineNr">22150 </span> 0xb/imm32/size +<span id="L22151" class="LineNr">22151 </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="L22152" class="LineNr">22152 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22153" class="LineNr">22153 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22154" class="LineNr">22154 </span> 0/imm32/name -<span id="L22155" class="LineNr">22155 </span> 0/imm32/name -<span id="L22156" class="LineNr">22156 </span> 0x11/imm32/alloc-id:fake -<span id="L22157" class="LineNr">22157 </span> <span class="SpecialChar"><a href='mu.subx.html#L22480'>Type-byte</a></span>/imm32 -<span id="L22158" class="LineNr">22158 </span> 1/imm32/some-block-depth -<span id="L22159" class="LineNr">22159 </span> 1/imm32/some-stack-offset -<span id="L22160" class="LineNr">22160 </span> 0/imm32/no-register -<span id="L22161" class="LineNr">22161 </span> 0/imm32/no-register -<span id="L22162" class="LineNr">22162 </span> -<span id="L22163" class="LineNr">22163 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22164" class="LineNr">22164 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22165" class="LineNr">22165 </span> 0x11/imm32/alloc-id:fake -<span id="L22166" class="LineNr">22166 </span> <span class="SpecialChar"><a href='mu.subx.html#L22132'>Int-var-in-mem</a></span>/imm32 -<span id="L22167" class="LineNr">22167 </span> 0x11/imm32/alloc-id:fake -<span id="L22168" class="LineNr">22168 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L22169" class="LineNr">22169 </span> -<span id="L22170" class="LineNr">22170 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22171" class="LineNr">22171 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22172" class="LineNr">22172 </span> 0x11/imm32/alloc-id:fake -<span id="L22173" class="LineNr">22173 </span> <span class="SpecialChar"><a href='mu.subx.html#L22255'>Int-var-in-some-register</a></span>/imm32 -<span id="L22174" class="LineNr">22174 </span> 0x11/imm32/alloc-id:fake -<span id="L22175" class="LineNr">22175 </span> <span class="SpecialChar"><a href='mu.subx.html#L22234'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L22176" class="LineNr">22176 </span> -<span id="L22177" class="LineNr">22177 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L22178" class="LineNr">22178 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22179" class="LineNr">22179 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22180" class="LineNr">22180 </span> 0x11/imm32/alloc-id:fake -<span id="L22181" class="LineNr">22181 </span> <span class="SpecialChar"><a href='mu.subx.html#L22152'>Byte-var-in-mem</a></span>/imm32 -<span id="L22182" class="LineNr">22182 </span> 0x11/imm32/alloc-id:fake -<span id="L22183" class="LineNr">22183 </span> <span class="SpecialChar"><a href='mu.subx.html#L22248'>Single-byte-var-in-some-register</a></span>/imm32/next -<span id="L22184" class="LineNr">22184 </span> -<span id="L22185" class="LineNr">22185 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22186" class="LineNr">22186 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22187" class="LineNr">22187 </span> 0x11/imm32/alloc-id:fake -<span id="L22188" class="LineNr">22188 </span> <span class="SpecialChar"><a href='mu.subx.html#L22255'>Int-var-in-some-register</a></span>/imm32 -<span id="L22189" class="LineNr">22189 </span> 0x11/imm32/alloc-id:fake -<span id="L22190" class="LineNr">22190 </span> <span class="SpecialChar"><a href='mu.subx.html#L22125'>Single-int-var-in-mem</a></span>/imm32/next -<span id="L22191" class="LineNr">22191 </span> -<span id="L22192" class="LineNr">22192 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22154" class="LineNr">22154 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> +<span id="L22155" class="LineNr">22155 </span> 0x14/imm32/size +<span id="L22156" class="LineNr">22156 </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="L22157" class="LineNr">22157 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22158" class="LineNr">22158 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22159" class="LineNr">22159 </span> <span class="subxComment"># "31/xor-with"</span> +<span id="L22160" class="LineNr">22160 </span> 0xb/imm32/size +<span id="L22161" class="LineNr">22161 </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="L22162" class="LineNr">22162 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22163" class="LineNr">22163 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22164" class="LineNr">22164 </span> <span class="subxComment"># "33/xor"</span> +<span id="L22165" class="LineNr">22165 </span> 0x6/imm32/size +<span id="L22166" class="LineNr">22166 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L22167" class="LineNr">22167 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22168" class="LineNr">22168 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22169" class="LineNr">22169 </span> <span class="subxComment"># "35/xor-with-eax"</span> +<span id="L22170" class="LineNr">22170 </span> 0xf/imm32/size +<span id="L22171" class="LineNr">22171 </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="L22172" class="LineNr">22172 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22173" class="LineNr">22173 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22174" class="LineNr">22174 </span> <span class="subxComment"># "39/compare->"</span> +<span id="L22175" class="LineNr">22175 </span> 0xc/imm32/size +<span id="L22176" class="LineNr">22176 </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="L22177" class="LineNr">22177 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22178" class="LineNr">22178 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22179" class="LineNr">22179 </span> <span class="subxComment"># "3b/compare<-"</span> +<span id="L22180" class="LineNr">22180 </span> 0xc/imm32/size +<span id="L22181" class="LineNr">22181 </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="L22182" class="LineNr">22182 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22183" class="LineNr">22183 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22184" class="LineNr">22184 </span> <span class="subxComment"># "3d/compare-eax-with"</span> +<span id="L22185" class="LineNr">22185 </span> 0x13/imm32/size +<span id="L22186" class="LineNr">22186 </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="L22187" class="LineNr">22187 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22188" class="LineNr">22188 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22189" class="LineNr">22189 </span> <span class="subxComment"># "40/increment-eax"</span> +<span id="L22190" class="LineNr">22190 </span> 0x10/imm32/size +<span id="L22191" class="LineNr">22191 </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="L22192" class="LineNr">22192 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22193" class="LineNr">22193 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22194" class="LineNr">22194 </span> 0x11/imm32/alloc-id:fake -<span id="L22195" class="LineNr">22195 </span> <span class="SpecialChar"><a href='mu.subx.html#L22301'>Int-var-in-eax</a></span>/imm32 -<span id="L22196" class="LineNr">22196 </span> 0x11/imm32/alloc-id:fake -<span id="L22197" class="LineNr">22197 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/next -<span id="L22198" class="LineNr">22198 </span> -<span id="L22199" class="LineNr">22199 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22200" class="LineNr">22200 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22201" class="LineNr">22201 </span> 0x11/imm32/alloc-id:fake -<span id="L22202" class="LineNr">22202 </span> <span class="SpecialChar"><a href='mu.subx.html#L22132'>Int-var-in-mem</a></span>/imm32 -<span id="L22203" class="LineNr">22203 </span> 0x11/imm32/alloc-id:fake -<span id="L22204" class="LineNr">22204 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/next -<span id="L22205" class="LineNr">22205 </span> -<span id="L22206" class="LineNr">22206 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22207" class="LineNr">22207 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22208" class="LineNr">22208 </span> 0x11/imm32/alloc-id:fake -<span id="L22209" class="LineNr">22209 </span> <span class="SpecialChar"><a href='mu.subx.html#L22255'>Int-var-in-some-register</a></span>/imm32 -<span id="L22210" class="LineNr">22210 </span> 0x11/imm32/alloc-id:fake -<span id="L22211" class="LineNr">22211 </span> <span class="SpecialChar"><a href='mu.subx.html#L22402'>Single-lit-var</a></span>/imm32/next -<span id="L22212" class="LineNr">22212 </span> -<span id="L22213" class="LineNr">22213 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22214" class="LineNr">22214 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22215" class="LineNr">22215 </span> 0x11/imm32/alloc-id:fake -<span id="L22216" class="LineNr">22216 </span> <span class="SpecialChar"><a href='mu.subx.html#L22445'>Float-var-in-some-register</a></span>/imm32 -<span id="L22217" class="LineNr">22217 </span> 0x11/imm32/alloc-id:fake -<span id="L22218" class="LineNr">22218 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L22219" class="LineNr">22219 </span> -<span id="L22220" class="LineNr">22220 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22221" class="LineNr">22221 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22222" class="LineNr">22222 </span> 0x11/imm32/alloc-id:fake -<span id="L22223" class="LineNr">22223 </span> <span class="SpecialChar"><a href='mu.subx.html#L22445'>Float-var-in-some-register</a></span>/imm32 -<span id="L22224" class="LineNr">22224 </span> 0x11/imm32/alloc-id:fake -<span id="L22225" class="LineNr">22225 </span> <span class="SpecialChar"><a href='mu.subx.html#L22420'>Single-float-var-in-mem</a></span>/imm32/next -<span id="L22226" class="LineNr">22226 </span> -<span id="L22227" class="LineNr">22227 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22194" class="LineNr">22194 </span> <span class="subxComment"># "41/increment-ecx"</span> +<span id="L22195" class="LineNr">22195 </span> 0x10/imm32/size +<span id="L22196" class="LineNr">22196 </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="L22197" class="LineNr">22197 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22198" class="LineNr">22198 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22199" class="LineNr">22199 </span> <span class="subxComment"># "42/increment-edx"</span> +<span id="L22200" class="LineNr">22200 </span> 0x10/imm32/size +<span id="L22201" class="LineNr">22201 </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="L22202" class="LineNr">22202 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22203" class="LineNr">22203 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22204" class="LineNr">22204 </span> <span class="subxComment"># "43/increment-ebx"</span> +<span id="L22205" class="LineNr">22205 </span> 0x10/imm32/size +<span id="L22206" class="LineNr">22206 </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="L22207" class="LineNr">22207 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22208" class="LineNr">22208 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22209" class="LineNr">22209 </span> <span class="subxComment"># "46/increment-esi"</span> +<span id="L22210" class="LineNr">22210 </span> 0x10/imm32/size +<span id="L22211" class="LineNr">22211 </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="L22212" class="LineNr">22212 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22213" class="LineNr">22213 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22214" class="LineNr">22214 </span> <span class="subxComment"># "47/increment-edi"</span> +<span id="L22215" class="LineNr">22215 </span> 0x10/imm32/size +<span id="L22216" class="LineNr">22216 </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="L22217" class="LineNr">22217 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22218" class="LineNr">22218 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22219" class="LineNr">22219 </span> <span class="subxComment"># "48/decrement-eax"</span> +<span id="L22220" class="LineNr">22220 </span> 0x10/imm32/size +<span id="L22221" class="LineNr">22221 </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="L22222" class="LineNr">22222 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22223" class="LineNr">22223 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22224" class="LineNr">22224 </span> <span class="subxComment"># "49/decrement-ecx"</span> +<span id="L22225" class="LineNr">22225 </span> 0x10/imm32/size +<span id="L22226" class="LineNr">22226 </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="L22227" class="LineNr">22227 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22228" class="LineNr">22228 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22229" class="LineNr">22229 </span> 0x11/imm32/alloc-id:fake -<span id="L22230" class="LineNr">22230 </span> <span class="SpecialChar"><a href='mu.subx.html#L22427'>Float-var-in-mem</a></span>/imm32 -<span id="L22231" class="LineNr">22231 </span> 0x11/imm32/alloc-id:fake -<span id="L22232" class="LineNr">22232 </span> <span class="SpecialChar"><a href='mu.subx.html#L22438'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L22233" class="LineNr">22233 </span> -<span id="L22234" class="LineNr">22234 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22235" class="LineNr">22235 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22236" class="LineNr">22236 </span> 0x11/imm32/alloc-id:fake -<span id="L22237" class="LineNr">22237 </span> <span class="SpecialChar"><a href='mu.subx.html#L22255'>Int-var-in-some-register</a></span>/imm32 -<span id="L22238" class="LineNr">22238 </span> 0/imm32/next -<span id="L22239" class="LineNr">22239 </span> 0/imm32/next -<span id="L22240" class="LineNr">22240 </span> -<span id="L22241" class="LineNr">22241 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22242" class="LineNr">22242 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22243" class="LineNr">22243 </span> 0x11/imm32/alloc-id:fake -<span id="L22244" class="LineNr">22244 </span> <span class="SpecialChar"><a href='mu.subx.html#L22272'>Addr-var-in-some-register</a></span>/imm32 -<span id="L22245" class="LineNr">22245 </span> 0/imm32/next -<span id="L22246" class="LineNr">22246 </span> 0/imm32/next -<span id="L22247" class="LineNr">22247 </span> -<span id="L22248" class="LineNr">22248 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22249" class="LineNr">22249 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22250" class="LineNr">22250 </span> 0x11/imm32/alloc-id:fake -<span id="L22251" class="LineNr">22251 </span> <span class="SpecialChar"><a href='mu.subx.html#L22283'>Byte-var-in-some-register</a></span>/imm32 -<span id="L22252" class="LineNr">22252 </span> 0/imm32/next -<span id="L22253" class="LineNr">22253 </span> 0/imm32/next -<span id="L22254" class="LineNr">22254 </span> -<span id="L22255" class="LineNr">22255 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L22256" class="LineNr">22256 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22257" class="LineNr">22257 </span> 0/imm32/name -<span id="L22258" class="LineNr">22258 </span> 0/imm32/name -<span id="L22259" class="LineNr">22259 </span> 0x11/imm32/alloc-id:fake -<span id="L22260" class="LineNr">22260 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22261" class="LineNr">22261 </span> 1/imm32/some-block-depth -<span id="L22262" class="LineNr">22262 </span> 0/imm32/no-stack-offset -<span id="L22263" class="LineNr">22263 </span> 0x11/imm32/alloc-id:fake -<span id="L22264" class="LineNr">22264 </span> <span class="SpecialChar"><a href='mu.subx.html#L22266'>Any-register</a></span>/imm32 -<span id="L22265" class="LineNr">22265 </span> -<span id="L22266" class="LineNr">22266 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L22267" class="LineNr">22267 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22268" class="LineNr">22268 </span> 1/imm32/size -<span id="L22269" class="LineNr">22269 </span> <span class="subxComment"># data</span> -<span id="L22270" class="LineNr">22270 </span> 2a/asterisk -<span id="L22271" class="LineNr">22271 </span> -<span id="L22272" class="LineNr">22272 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L22229" class="LineNr">22229 </span> <span class="subxComment"># "4a/decrement-edx"</span> +<span id="L22230" class="LineNr">22230 </span> 0x10/imm32/size +<span id="L22231" class="LineNr">22231 </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="L22232" class="LineNr">22232 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22233" class="LineNr">22233 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22234" class="LineNr">22234 </span> <span class="subxComment"># "4b/decrement-ebx"</span> +<span id="L22235" class="LineNr">22235 </span> 0x10/imm32/size +<span id="L22236" class="LineNr">22236 </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="L22237" class="LineNr">22237 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22238" class="LineNr">22238 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22239" class="LineNr">22239 </span> <span class="subxComment"># "4e/decrement-esi"</span> +<span id="L22240" class="LineNr">22240 </span> 0x10/imm32/size +<span id="L22241" class="LineNr">22241 </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="L22242" class="LineNr">22242 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22243" class="LineNr">22243 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22244" class="LineNr">22244 </span> <span class="subxComment"># "4f/decrement-edi"</span> +<span id="L22245" class="LineNr">22245 </span> 0x10/imm32/size +<span id="L22246" class="LineNr">22246 </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="L22247" class="LineNr">22247 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22248" class="LineNr">22248 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22249" class="LineNr">22249 </span> <span class="subxComment"># "81 0/subop/add"</span> +<span id="L22250" class="LineNr">22250 </span> 0xe/imm32/size +<span id="L22251" class="LineNr">22251 </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="L22252" class="LineNr">22252 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22253" class="LineNr">22253 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22254" class="LineNr">22254 </span> <span class="subxComment"># "81 1/subop/or"</span> +<span id="L22255" class="LineNr">22255 </span> 0xd/imm32/size +<span id="L22256" class="LineNr">22256 </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="L22257" class="LineNr">22257 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22258" class="LineNr">22258 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22259" class="LineNr">22259 </span> <span class="subxComment"># "81 4/subop/and"</span> +<span id="L22260" class="LineNr">22260 </span> 0xe/imm32/size +<span id="L22261" class="LineNr">22261 </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="L22262" class="LineNr">22262 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22263" class="LineNr">22263 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22264" class="LineNr">22264 </span> <span class="subxComment"># "81 5/subop/subtract"</span> +<span id="L22265" class="LineNr">22265 </span> 0x13/imm32/size +<span id="L22266" class="LineNr">22266 </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="L22267" class="LineNr">22267 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22268" class="LineNr">22268 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22269" class="LineNr">22269 </span> <span class="subxComment"># "81 6/subop/xor"</span> +<span id="L22270" class="LineNr">22270 </span> 0xe/imm32/size +<span id="L22271" class="LineNr">22271 </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="L22272" class="LineNr">22272 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22273" class="LineNr">22273 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22274" class="LineNr">22274 </span> 0/imm32/name -<span id="L22275" class="LineNr">22275 </span> 0/imm32/name -<span id="L22276" class="LineNr">22276 </span> 0x11/imm32/alloc-id:fake -<span id="L22277" class="LineNr">22277 </span> <span class="SpecialChar"><a href='mu.subx.html#L22472'>Type-addr</a></span>/imm32 -<span id="L22278" class="LineNr">22278 </span> 1/imm32/some-block-depth -<span id="L22279" class="LineNr">22279 </span> 0/imm32/no-stack-offset -<span id="L22280" class="LineNr">22280 </span> 0x11/imm32/alloc-id:fake -<span id="L22281" class="LineNr">22281 </span> <span class="SpecialChar"><a href='mu.subx.html#L22266'>Any-register</a></span>/imm32 -<span id="L22282" class="LineNr">22282 </span> -<span id="L22283" class="LineNr">22283 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L22284" class="LineNr">22284 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22285" class="LineNr">22285 </span> 0/imm32/name -<span id="L22286" class="LineNr">22286 </span> 0/imm32/name -<span id="L22287" class="LineNr">22287 </span> 0x11/imm32/alloc-id:fake -<span id="L22288" class="LineNr">22288 </span> <span class="SpecialChar"><a href='mu.subx.html#L22480'>Type-byte</a></span>/imm32 -<span id="L22289" class="LineNr">22289 </span> 1/imm32/some-block-depth -<span id="L22290" class="LineNr">22290 </span> 0/imm32/no-stack-offset -<span id="L22291" class="LineNr">22291 </span> 0x11/imm32/alloc-id:fake -<span id="L22292" class="LineNr">22292 </span> <span class="SpecialChar"><a href='mu.subx.html#L22266'>Any-register</a></span>/imm32 -<span id="L22293" class="LineNr">22293 </span> -<span id="L22294" class="LineNr">22294 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22295" class="LineNr">22295 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22296" class="LineNr">22296 </span> 0x11/imm32/alloc-id:fake -<span id="L22297" class="LineNr">22297 </span> <span class="SpecialChar"><a href='mu.subx.html#L22301'>Int-var-in-eax</a></span>/imm32 -<span id="L22298" class="LineNr">22298 </span> 0/imm32/next -<span id="L22299" class="LineNr">22299 </span> 0/imm32/next -<span id="L22300" class="LineNr">22300 </span> -<span id="L22301" class="LineNr">22301 </span><span class="SpecialChar">Int-var-in-eax</span>: -<span id="L22302" class="LineNr">22302 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22303" class="LineNr">22303 </span> 0/imm32/name -<span id="L22304" class="LineNr">22304 </span> 0/imm32/name -<span id="L22305" class="LineNr">22305 </span> 0x11/imm32/alloc-id:fake -<span id="L22306" class="LineNr">22306 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22307" class="LineNr">22307 </span> 1/imm32/some-block-depth -<span id="L22308" class="LineNr">22308 </span> 0/imm32/no-stack-offset -<span id="L22309" class="LineNr">22309 </span> 0x11/imm32/alloc-id:fake -<span id="L22310" class="LineNr">22310 </span> $Register-eax/imm32 -<span id="L22311" class="LineNr">22311 </span> -<span id="L22312" class="LineNr">22312 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22274" class="LineNr">22274 </span> <span class="subxComment"># "81 7/subop/compare"</span> +<span id="L22275" class="LineNr">22275 </span> 0x12/imm32/size +<span id="L22276" class="LineNr">22276 </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="L22277" class="LineNr">22277 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22278" class="LineNr">22278 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22279" class="LineNr">22279 </span> <span class="subxComment"># "89/<-"</span> +<span id="L22280" class="LineNr">22280 </span> 0x5/imm32/size +<span id="L22281" class="LineNr">22281 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash +<span id="L22282" class="LineNr">22282 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22283" class="LineNr">22283 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22284" class="LineNr">22284 </span> <span class="subxComment"># "8b/->"</span> +<span id="L22285" class="LineNr">22285 </span> 0x5/imm32/size +<span id="L22286" class="LineNr">22286 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> +<span id="L22287" class="LineNr">22287 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L22288" class="LineNr">22288 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22289" class="LineNr">22289 </span> <span class="subxComment"># "8a/byte->"</span> +<span id="L22290" class="LineNr">22290 </span> 0x9/imm32/size +<span id="L22291" class="LineNr">22291 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> +<span id="L22292" class="LineNr">22292 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L22293" class="LineNr">22293 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22294" class="LineNr">22294 </span> <span class="subxComment"># "88/byte<-"</span> +<span id="L22295" class="LineNr">22295 </span> 0x9/imm32/size +<span id="L22296" class="LineNr">22296 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- +<span id="L22297" class="LineNr">22297 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22298" class="LineNr">22298 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22299" class="LineNr">22299 </span> <span class="subxComment"># "8d/copy-address"</span> +<span id="L22300" class="LineNr">22300 </span> 0xf/imm32/size +<span id="L22301" class="LineNr">22301 </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="L22302" class="LineNr">22302 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22303" class="LineNr">22303 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22304" class="LineNr">22304 </span> <span class="subxComment"># "b8/copy-to-eax"</span> +<span id="L22305" class="LineNr">22305 </span> 0xe/imm32/size +<span id="L22306" class="LineNr">22306 </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="L22307" class="LineNr">22307 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22308" class="LineNr">22308 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22309" class="LineNr">22309 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> +<span id="L22310" class="LineNr">22310 </span> 0xe/imm32/size +<span id="L22311" class="LineNr">22311 </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="L22312" class="LineNr">22312 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22313" class="LineNr">22313 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22314" class="LineNr">22314 </span> 0x11/imm32/alloc-id:fake -<span id="L22315" class="LineNr">22315 </span> <span class="SpecialChar"><a href='mu.subx.html#L22319'>Int-var-in-ecx</a></span>/imm32 -<span id="L22316" class="LineNr">22316 </span> 0/imm32/next -<span id="L22317" class="LineNr">22317 </span> 0/imm32/next -<span id="L22318" class="LineNr">22318 </span> -<span id="L22319" class="LineNr">22319 </span><span class="SpecialChar">Int-var-in-ecx</span>: -<span id="L22320" class="LineNr">22320 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22321" class="LineNr">22321 </span> 0/imm32/name -<span id="L22322" class="LineNr">22322 </span> 0/imm32/name -<span id="L22323" class="LineNr">22323 </span> 0x11/imm32/alloc-id:fake -<span id="L22324" class="LineNr">22324 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22325" class="LineNr">22325 </span> 1/imm32/some-block-depth -<span id="L22326" class="LineNr">22326 </span> 0/imm32/no-stack-offset -<span id="L22327" class="LineNr">22327 </span> 0x11/imm32/alloc-id:fake -<span id="L22328" class="LineNr">22328 </span> $Register-ecx/imm32/register -<span id="L22329" class="LineNr">22329 </span> -<span id="L22330" class="LineNr">22330 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22331" class="LineNr">22331 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22332" class="LineNr">22332 </span> 0x11/imm32/alloc-id:fake -<span id="L22333" class="LineNr">22333 </span> <span class="SpecialChar"><a href='mu.subx.html#L22337'>Int-var-in-edx</a></span>/imm32 -<span id="L22334" class="LineNr">22334 </span> 0/imm32/next -<span id="L22335" class="LineNr">22335 </span> 0/imm32/next -<span id="L22336" class="LineNr">22336 </span> -<span id="L22337" class="LineNr">22337 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22314" class="LineNr">22314 </span> <span class="subxComment"># "ba/copy-to-edx"</span> +<span id="L22315" class="LineNr">22315 </span> 0xe/imm32/size +<span id="L22316" class="LineNr">22316 </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="L22317" class="LineNr">22317 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22318" class="LineNr">22318 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22319" class="LineNr">22319 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> +<span id="L22320" class="LineNr">22320 </span> 0xe/imm32/size +<span id="L22321" class="LineNr">22321 </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="L22322" class="LineNr">22322 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22323" class="LineNr">22323 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22324" class="LineNr">22324 </span> <span class="subxComment"># "be/copy-to-esi"</span> +<span id="L22325" class="LineNr">22325 </span> 0xe/imm32/size +<span id="L22326" class="LineNr">22326 </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="L22327" class="LineNr">22327 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22328" class="LineNr">22328 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22329" class="LineNr">22329 </span> <span class="subxComment"># "bf/copy-to-edi"</span> +<span id="L22330" class="LineNr">22330 </span> 0xe/imm32/size +<span id="L22331" class="LineNr">22331 </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="L22332" class="LineNr">22332 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22333" class="LineNr">22333 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22334" class="LineNr">22334 </span> <span class="subxComment"># "c7 0/subop/copy"</span> +<span id="L22335" class="LineNr">22335 </span> 0xf/imm32/size +<span id="L22336" class="LineNr">22336 </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="L22337" class="LineNr">22337 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> <span id="L22338" class="LineNr">22338 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22339" class="LineNr">22339 </span> 0/imm32/name -<span id="L22340" class="LineNr">22340 </span> 0/imm32/name -<span id="L22341" class="LineNr">22341 </span> 0x11/imm32/alloc-id:fake -<span id="L22342" class="LineNr">22342 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22343" class="LineNr">22343 </span> 1/imm32/some-block-depth -<span id="L22344" class="LineNr">22344 </span> 0/imm32/no-stack-offset -<span id="L22345" class="LineNr">22345 </span> 0x11/imm32/alloc-id:fake -<span id="L22346" class="LineNr">22346 </span> $Register-edx/imm32/register -<span id="L22347" class="LineNr">22347 </span> -<span id="L22348" class="LineNr">22348 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22349" class="LineNr">22349 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22350" class="LineNr">22350 </span> 0x11/imm32/alloc-id:fake -<span id="L22351" class="LineNr">22351 </span> <span class="SpecialChar"><a href='mu.subx.html#L22355'>Int-var-in-ebx</a></span>/imm32 -<span id="L22352" class="LineNr">22352 </span> 0/imm32/next -<span id="L22353" class="LineNr">22353 </span> 0/imm32/next -<span id="L22354" class="LineNr">22354 </span> -<span id="L22355" class="LineNr">22355 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22356" class="LineNr">22356 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22357" class="LineNr">22357 </span> 0/imm32/name -<span id="L22358" class="LineNr">22358 </span> 0/imm32/name -<span id="L22359" class="LineNr">22359 </span> 0x11/imm32/alloc-id:fake -<span id="L22360" class="LineNr">22360 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22361" class="LineNr">22361 </span> 1/imm32/some-block-depth -<span id="L22362" class="LineNr">22362 </span> 0/imm32/no-stack-offset -<span id="L22363" class="LineNr">22363 </span> 0x11/imm32/alloc-id:fake -<span id="L22364" class="LineNr">22364 </span> $Register-ebx/imm32/register -<span id="L22365" class="LineNr">22365 </span> -<span id="L22366" class="LineNr">22366 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22367" class="LineNr">22367 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22368" class="LineNr">22368 </span> 0x11/imm32/alloc-id:fake -<span id="L22369" class="LineNr">22369 </span> <span class="SpecialChar"><a href='mu.subx.html#L22373'>Int-var-in-esi</a></span>/imm32 -<span id="L22370" class="LineNr">22370 </span> 0/imm32/next -<span id="L22371" class="LineNr">22371 </span> 0/imm32/next -<span id="L22372" class="LineNr">22372 </span> -<span id="L22373" class="LineNr">22373 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22374" class="LineNr">22374 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22375" class="LineNr">22375 </span> 0/imm32/name -<span id="L22376" class="LineNr">22376 </span> 0/imm32/name -<span id="L22377" class="LineNr">22377 </span> 0x11/imm32/alloc-id:fake -<span id="L22378" class="LineNr">22378 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22379" class="LineNr">22379 </span> 1/imm32/some-block-depth -<span id="L22380" class="LineNr">22380 </span> 0/imm32/no-stack-offset -<span id="L22381" class="LineNr">22381 </span> 0x11/imm32/alloc-id:fake -<span id="L22382" class="LineNr">22382 </span> $Register-esi/imm32/register -<span id="L22383" class="LineNr">22383 </span> -<span id="L22384" class="LineNr">22384 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22385" class="LineNr">22385 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22386" class="LineNr">22386 </span> 0x11/imm32/alloc-id:fake -<span id="L22387" class="LineNr">22387 </span> <span class="SpecialChar"><a href='mu.subx.html#L22391'>Int-var-in-edi</a></span>/imm32 +<span id="L22339" class="LineNr">22339 </span> <span class="subxComment"># "e9/jump"</span> +<span id="L22340" class="LineNr">22340 </span> 0x7/imm32/size +<span id="L22341" class="LineNr">22341 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p +<span id="L22342" class="LineNr">22342 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22343" class="LineNr">22343 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22344" class="LineNr">22344 </span> <span class="subxComment"># "e9/jump break/disp32"</span> +<span id="L22345" class="LineNr">22345 </span> 0x14/imm32/size +<span id="L22346" class="LineNr">22346 </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="L22347" class="LineNr">22347 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22348" class="LineNr">22348 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22349" class="LineNr">22349 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> +<span id="L22350" class="LineNr">22350 </span> 0x13/imm32/size +<span id="L22351" class="LineNr">22351 </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="L22352" class="LineNr">22352 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L22353" class="LineNr">22353 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22354" class="LineNr">22354 </span> <span class="subxComment"># "f7 3/subop/negate"</span> +<span id="L22355" class="LineNr">22355 </span> 0x11/imm32/size +<span id="L22356" class="LineNr">22356 </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="L22357" class="LineNr">22357 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22358" class="LineNr">22358 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22359" class="LineNr">22359 </span> <span class="subxComment"># "ff 0/subop/increment"</span> +<span id="L22360" class="LineNr">22360 </span> 0x14/imm32/size +<span id="L22361" class="LineNr">22361 </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="L22362" class="LineNr">22362 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22363" class="LineNr">22363 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22364" class="LineNr">22364 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> +<span id="L22365" class="LineNr">22365 </span> 0x14/imm32/size +<span id="L22366" class="LineNr">22366 </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="L22367" class="LineNr">22367 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22368" class="LineNr">22368 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22369" class="LineNr">22369 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> +<span id="L22370" class="LineNr">22370 </span> 0x15/imm32/size +<span id="L22371" class="LineNr">22371 </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="L22372" class="LineNr">22372 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22373" class="LineNr">22373 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22374" class="LineNr">22374 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> +<span id="L22375" class="LineNr">22375 </span> 0x25/imm32/size +<span id="L22376" class="LineNr">22376 </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="L22377" class="LineNr">22377 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22378" class="LineNr">22378 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22379" class="LineNr">22379 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> +<span id="L22380" class="LineNr">22380 </span> 0x26/imm32/size +<span id="L22381" class="LineNr">22381 </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="L22382" class="LineNr">22382 </span> +<span id="L22383" class="LineNr">22383 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22384" class="LineNr">22384 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22385" class="LineNr">22385 </span> 0x11/imm32/alloc-id:fake +<span id="L22386" class="LineNr">22386 </span> <span class="SpecialChar"><a href='mu.subx.html#L22390'>Int-var-in-mem</a></span>/imm32 +<span id="L22387" class="LineNr">22387 </span> 0/imm32/next <span id="L22388" class="LineNr">22388 </span> 0/imm32/next -<span id="L22389" class="LineNr">22389 </span> 0/imm32/next -<span id="L22390" class="LineNr">22390 </span> -<span id="L22391" class="LineNr">22391 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22392" class="LineNr">22392 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22389" class="LineNr">22389 </span> +<span id="L22390" class="LineNr">22390 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L22391" class="LineNr">22391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22392" class="LineNr">22392 </span> 0/imm32/name <span id="L22393" class="LineNr">22393 </span> 0/imm32/name -<span id="L22394" class="LineNr">22394 </span> 0/imm32/name -<span id="L22395" class="LineNr">22395 </span> 0x11/imm32/alloc-id:fake -<span id="L22396" class="LineNr">22396 </span> <span class="SpecialChar"><a href='mu.subx.html#L22456'>Type-int</a></span>/imm32 -<span id="L22397" class="LineNr">22397 </span> 1/imm32/some-block-depth -<span id="L22398" class="LineNr">22398 </span> 0/imm32/no-stack-offset -<span id="L22399" class="LineNr">22399 </span> 0x11/imm32/alloc-id:fake -<span id="L22400" class="LineNr">22400 </span> $Register-edi/imm32/register -<span id="L22401" class="LineNr">22401 </span> -<span id="L22402" class="LineNr">22402 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22394" class="LineNr">22394 </span> 0x11/imm32/alloc-id:fake +<span id="L22395" class="LineNr">22395 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22396" class="LineNr">22396 </span> 1/imm32/some-block-depth +<span id="L22397" class="LineNr">22397 </span> 1/imm32/some-stack-offset +<span id="L22398" class="LineNr">22398 </span> 0/imm32/no-register +<span id="L22399" class="LineNr">22399 </span> 0/imm32/no-register +<span id="L22400" class="LineNr">22400 </span> +<span id="L22401" class="LineNr">22401 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L22402" class="LineNr">22402 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> <span id="L22403" class="LineNr">22403 </span> 0x11/imm32/alloc-id:fake:payload <span id="L22404" class="LineNr">22404 </span> 0x11/imm32/alloc-id:fake -<span id="L22405" class="LineNr">22405 </span> <span class="SpecialChar"><a href='mu.subx.html#L22409'>Lit-var</a></span>/imm32 +<span id="L22405" class="LineNr">22405 </span> <span class="SpecialChar"><a href='mu.subx.html#L22410'>Byte-var-in-mem</a></span>/imm32 <span id="L22406" class="LineNr">22406 </span> 0/imm32/next <span id="L22407" class="LineNr">22407 </span> 0/imm32/next <span id="L22408" class="LineNr">22408 </span> -<span id="L22409" class="LineNr">22409 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> -<span id="L22410" class="LineNr">22410 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22411" class="LineNr">22411 </span> 0/imm32/name +<span id="L22409" class="LineNr">22409 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L22410" class="LineNr">22410 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L22411" class="LineNr">22411 </span> 0x11/imm32/alloc-id:fake:payload <span id="L22412" class="LineNr">22412 </span> 0/imm32/name -<span id="L22413" class="LineNr">22413 </span> 0x11/imm32/alloc-id:fake -<span id="L22414" class="LineNr">22414 </span> <span class="SpecialChar"><a href='mu.subx.html#L22464'>Type-literal</a></span>/imm32 -<span id="L22415" class="LineNr">22415 </span> 1/imm32/some-block-depth -<span id="L22416" class="LineNr">22416 </span> 0/imm32/no-stack-offset -<span id="L22417" class="LineNr">22417 </span> 0/imm32/no-register +<span id="L22413" class="LineNr">22413 </span> 0/imm32/name +<span id="L22414" class="LineNr">22414 </span> 0x11/imm32/alloc-id:fake +<span id="L22415" class="LineNr">22415 </span> <span class="SpecialChar"><a href='mu.subx.html#L22738'>Type-byte</a></span>/imm32 +<span id="L22416" class="LineNr">22416 </span> 1/imm32/some-block-depth +<span id="L22417" class="LineNr">22417 </span> 1/imm32/some-stack-offset <span id="L22418" class="LineNr">22418 </span> 0/imm32/no-register -<span id="L22419" class="LineNr">22419 </span> -<span id="L22420" class="LineNr">22420 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22421" class="LineNr">22421 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22422" class="LineNr">22422 </span> 0x11/imm32/alloc-id:fake -<span id="L22423" class="LineNr">22423 </span> <span class="SpecialChar"><a href='mu.subx.html#L22427'>Float-var-in-mem</a></span>/imm32 -<span id="L22424" class="LineNr">22424 </span> 0/imm32/next -<span id="L22425" class="LineNr">22425 </span> 0/imm32/next -<span id="L22426" class="LineNr">22426 </span> -<span id="L22427" class="LineNr">22427 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L22428" class="LineNr">22428 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22429" class="LineNr">22429 </span> 0/imm32/name -<span id="L22430" class="LineNr">22430 </span> 0/imm32/name -<span id="L22431" class="LineNr">22431 </span> 0x11/imm32/alloc-id:fake -<span id="L22432" class="LineNr">22432 </span> <span class="SpecialChar"><a href='mu.subx.html#L22488'>Type-float</a></span>/imm32 -<span id="L22433" class="LineNr">22433 </span> 1/imm32/some-block-depth -<span id="L22434" class="LineNr">22434 </span> 1/imm32/some-stack-offset -<span id="L22435" class="LineNr">22435 </span> 0/imm32/no-register -<span id="L22436" class="LineNr">22436 </span> 0/imm32/no-register -<span id="L22437" class="LineNr">22437 </span> -<span id="L22438" class="LineNr">22438 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L22439" class="LineNr">22439 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22419" class="LineNr">22419 </span> 0/imm32/no-register +<span id="L22420" class="LineNr">22420 </span> +<span id="L22421" class="LineNr">22421 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22422" class="LineNr">22422 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22423" class="LineNr">22423 </span> 0x11/imm32/alloc-id:fake +<span id="L22424" class="LineNr">22424 </span> <span class="SpecialChar"><a href='mu.subx.html#L22390'>Int-var-in-mem</a></span>/imm32 +<span id="L22425" class="LineNr">22425 </span> 0x11/imm32/alloc-id:fake +<span id="L22426" class="LineNr">22426 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L22427" class="LineNr">22427 </span> +<span id="L22428" class="LineNr">22428 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22429" class="LineNr">22429 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22430" class="LineNr">22430 </span> 0x11/imm32/alloc-id:fake +<span id="L22431" class="LineNr">22431 </span> <span class="SpecialChar"><a href='mu.subx.html#L22513'>Int-var-in-some-register</a></span>/imm32 +<span id="L22432" class="LineNr">22432 </span> 0x11/imm32/alloc-id:fake +<span id="L22433" class="LineNr">22433 </span> <span class="SpecialChar"><a href='mu.subx.html#L22492'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L22434" class="LineNr">22434 </span> +<span id="L22435" class="LineNr">22435 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L22436" class="LineNr">22436 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22437" class="LineNr">22437 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22438" class="LineNr">22438 </span> 0x11/imm32/alloc-id:fake +<span id="L22439" class="LineNr">22439 </span> <span class="SpecialChar"><a href='mu.subx.html#L22410'>Byte-var-in-mem</a></span>/imm32 <span id="L22440" class="LineNr">22440 </span> 0x11/imm32/alloc-id:fake -<span id="L22441" class="LineNr">22441 </span> <span class="SpecialChar"><a href='mu.subx.html#L22445'>Float-var-in-some-register</a></span>/imm32 -<span id="L22442" class="LineNr">22442 </span> 0/imm32/next -<span id="L22443" class="LineNr">22443 </span> 0/imm32/next -<span id="L22444" class="LineNr">22444 </span> -<span id="L22445" class="LineNr">22445 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L22446" class="LineNr">22446 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22447" class="LineNr">22447 </span> 0/imm32/name -<span id="L22448" class="LineNr">22448 </span> 0/imm32/name -<span id="L22449" class="LineNr">22449 </span> 0x11/imm32/alloc-id:fake -<span id="L22450" class="LineNr">22450 </span> <span class="SpecialChar"><a href='mu.subx.html#L22488'>Type-float</a></span>/imm32 -<span id="L22451" class="LineNr">22451 </span> 1/imm32/some-block-depth -<span id="L22452" class="LineNr">22452 </span> 0/imm32/no-stack-offset -<span id="L22453" class="LineNr">22453 </span> 0x11/imm32/alloc-id:fake -<span id="L22454" class="LineNr">22454 </span> <span class="SpecialChar"><a href='mu.subx.html#L22266'>Any-register</a></span>/imm32 -<span id="L22455" class="LineNr">22455 </span> -<span id="L22456" class="LineNr">22456 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L22457" class="LineNr">22457 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22458" class="LineNr">22458 </span> 1/imm32/is-atom -<span id="L22459" class="LineNr">22459 </span> 1/imm32/value:int -<span id="L22460" class="LineNr">22460 </span> 0/imm32/left:unused -<span id="L22461" class="LineNr">22461 </span> 0/imm32/right:null -<span id="L22462" class="LineNr">22462 </span> 0/imm32/right:null +<span id="L22441" class="LineNr">22441 </span> <span class="SpecialChar"><a href='mu.subx.html#L22506'>Single-byte-var-in-some-register</a></span>/imm32/next +<span id="L22442" class="LineNr">22442 </span> +<span id="L22443" class="LineNr">22443 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22444" class="LineNr">22444 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22445" class="LineNr">22445 </span> 0x11/imm32/alloc-id:fake +<span id="L22446" class="LineNr">22446 </span> <span class="SpecialChar"><a href='mu.subx.html#L22513'>Int-var-in-some-register</a></span>/imm32 +<span id="L22447" class="LineNr">22447 </span> 0x11/imm32/alloc-id:fake +<span id="L22448" class="LineNr">22448 </span> <span class="SpecialChar"><a href='mu.subx.html#L22383'>Single-int-var-in-mem</a></span>/imm32/next +<span id="L22449" class="LineNr">22449 </span> +<span id="L22450" class="LineNr">22450 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22451" class="LineNr">22451 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22452" class="LineNr">22452 </span> 0x11/imm32/alloc-id:fake +<span id="L22453" class="LineNr">22453 </span> <span class="SpecialChar"><a href='mu.subx.html#L22559'>Int-var-in-eax</a></span>/imm32 +<span id="L22454" class="LineNr">22454 </span> 0x11/imm32/alloc-id:fake +<span id="L22455" class="LineNr">22455 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/next +<span id="L22456" class="LineNr">22456 </span> +<span id="L22457" class="LineNr">22457 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22458" class="LineNr">22458 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22459" class="LineNr">22459 </span> 0x11/imm32/alloc-id:fake +<span id="L22460" class="LineNr">22460 </span> <span class="SpecialChar"><a href='mu.subx.html#L22390'>Int-var-in-mem</a></span>/imm32 +<span id="L22461" class="LineNr">22461 </span> 0x11/imm32/alloc-id:fake +<span id="L22462" class="LineNr">22462 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/next <span id="L22463" class="LineNr">22463 </span> -<span id="L22464" class="LineNr">22464 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22464" class="LineNr">22464 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> <span id="L22465" class="LineNr">22465 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22466" class="LineNr">22466 </span> 1/imm32/is-atom -<span id="L22467" class="LineNr">22467 </span> 0/imm32/value:literal -<span id="L22468" class="LineNr">22468 </span> 0/imm32/left:unused -<span id="L22469" class="LineNr">22469 </span> 0/imm32/right:null -<span id="L22470" class="LineNr">22470 </span> 0/imm32/right:null -<span id="L22471" class="LineNr">22471 </span> -<span id="L22472" class="LineNr">22472 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L22473" class="LineNr">22473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22474" class="LineNr">22474 </span> 1/imm32/is-atom -<span id="L22475" class="LineNr">22475 </span> 2/imm32/value:addr -<span id="L22476" class="LineNr">22476 </span> 0/imm32/left:unused -<span id="L22477" class="LineNr">22477 </span> 0/imm32/right:null -<span id="L22478" class="LineNr">22478 </span> 0/imm32/right:null -<span id="L22479" class="LineNr">22479 </span> -<span id="L22480" class="LineNr">22480 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L22481" class="LineNr">22481 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22482" class="LineNr">22482 </span> 1/imm32/is-atom -<span id="L22483" class="LineNr">22483 </span> 8/imm32/value:byte -<span id="L22484" class="LineNr">22484 </span> 0/imm32/left:unused -<span id="L22485" class="LineNr">22485 </span> 0/imm32/right:null -<span id="L22486" class="LineNr">22486 </span> 0/imm32/right:null -<span id="L22487" class="LineNr">22487 </span> -<span id="L22488" class="LineNr">22488 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L22489" class="LineNr">22489 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L22490" class="LineNr">22490 </span> 1/imm32/is-atom -<span id="L22491" class="LineNr">22491 </span> 0xf/imm32/value:float -<span id="L22492" class="LineNr">22492 </span> 0/imm32/left:unused -<span id="L22493" class="LineNr">22493 </span> 0/imm32/right:null -<span id="L22494" class="LineNr">22494 </span> 0/imm32/right:null -<span id="L22495" class="LineNr">22495 </span> -<span id="L22496" class="LineNr">22496 </span>== code -<span id="L22497" class="LineNr">22497 </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="L22498" class="LineNr">22498 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22499" class="LineNr">22499 </span> 55/push-ebp -<span id="L22500" class="LineNr">22500 </span> 89/<- %ebp 4/r32/esp -<span id="L22501" class="LineNr">22501 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22502" class="LineNr">22502 </span> 50/push-eax -<span id="L22503" class="LineNr">22503 </span> 51/push-ecx -<span id="L22504" class="LineNr">22504 </span> <span class="subxComment"># ecx = primitive</span> -<span id="L22505" class="LineNr">22505 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L22506" class="LineNr">22506 </span> <span class="subxComment"># emit primitive name</span> -<span id="L22507" class="LineNr">22507 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L22508" class="LineNr">22508 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> -<span id="L22509" class="LineNr">22509 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22510" class="LineNr">22510 </span> <span class="subxComment"># emit rm32 if necessary</span> -<span id="L22511" class="LineNr">22511 </span> (<a href='mu.subx.html#L22534'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> -<span id="L22512" class="LineNr">22512 </span> <span class="subxComment"># emit xm32 if necessary</span> -<span id="L22513" class="LineNr">22513 </span> (<a href='mu.subx.html#L22639'>emit-subx-xm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> -<span id="L22514" class="LineNr">22514 </span> <span class="subxComment"># emit r32 if necessary</span> -<span id="L22515" class="LineNr">22515 </span> (<a href='mu.subx.html#L22608'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> -<span id="L22516" class="LineNr">22516 </span> <span class="subxComment"># emit x32 if necessary</span> -<span id="L22517" class="LineNr">22517 </span> (<a href='mu.subx.html#L22659'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> -<span id="L22518" class="LineNr">22518 </span> <span class="subxComment"># emit imm32 if necessary</span> -<span id="L22519" class="LineNr">22519 </span> (<a href='mu.subx.html#L22690'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> -<span id="L22520" class="LineNr">22520 </span> <span class="subxComment"># emit imm8 if necessary</span> -<span id="L22521" class="LineNr">22521 </span> (<a href='mu.subx.html#L22716'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> -<span id="L22522" class="LineNr">22522 </span> <span class="subxComment"># emit disp32 if necessary</span> -<span id="L22523" class="LineNr">22523 </span> (<a href='mu.subx.html#L22742'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> -<span id="L22524" class="LineNr">22524 </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="L22525" class="LineNr">22525 </span><span class="Constant">$emit-subx-primitive:end</span>: -<span id="L22526" class="LineNr">22526 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22527" class="LineNr">22527 </span> 59/pop-to-ecx -<span id="L22528" class="LineNr">22528 </span> 58/pop-to-eax -<span id="L22529" class="LineNr">22529 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22530" class="LineNr">22530 </span> 89/<- %esp 5/r32/ebp -<span id="L22531" class="LineNr">22531 </span> 5d/pop-to-ebp -<span id="L22532" class="LineNr">22532 </span> c3/return -<span id="L22533" class="LineNr">22533 </span> -<span id="L22534" class="LineNr">22534 </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="L22535" class="LineNr">22535 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22536" class="LineNr">22536 </span> 55/push-ebp -<span id="L22537" class="LineNr">22537 </span> 89/<- %ebp 4/r32/esp -<span id="L22538" class="LineNr">22538 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22539" class="LineNr">22539 </span> 50/push-eax -<span id="L22540" class="LineNr">22540 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22541" class="LineNr">22541 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22542" class="LineNr">22542 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 -<span id="L22543" class="LineNr">22543 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L22544" class="LineNr">22544 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L22545" class="LineNr">22545 </span> (<a href='mu.subx.html#L22976'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L22546" class="LineNr">22546 </span><span class="Constant">$emit-subx-rm32:end</span>: -<span id="L22547" class="LineNr">22547 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22548" class="LineNr">22548 </span> 58/pop-to-eax -<span id="L22549" class="LineNr">22549 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22550" class="LineNr">22550 </span> 89/<- %esp 5/r32/ebp -<span id="L22551" class="LineNr">22551 </span> 5d/pop-to-ebp -<span id="L22552" class="LineNr">22552 </span> c3/return -<span id="L22553" class="LineNr">22553 </span> -<span id="L22554" class="LineNr">22554 </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="L22555" class="LineNr">22555 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22556" class="LineNr">22556 </span> 55/push-ebp -<span id="L22557" class="LineNr">22557 </span> 89/<- %ebp 4/r32/esp -<span id="L22558" class="LineNr">22558 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22559" class="LineNr">22559 </span> 51/push-ecx -<span id="L22560" class="LineNr">22560 </span> <span class="subxComment"># eax = l</span> -<span id="L22561" class="LineNr">22561 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22562" class="LineNr">22562 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L22563" class="LineNr">22563 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L22564" class="LineNr">22564 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> -<span id="L22565" class="LineNr">22565 </span> { -<span id="L22566" class="LineNr">22566 </span> 3d/compare-eax-and 1/imm32 -<span id="L22567" class="LineNr">22567 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22568" class="LineNr">22568 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: -<span id="L22569" class="LineNr">22569 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22570" class="LineNr">22570 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L22571" class="LineNr">22571 </span> } -<span id="L22572" class="LineNr">22572 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> -<span id="L22573" class="LineNr">22573 </span> { -<span id="L22574" class="LineNr">22574 </span> 3d/compare-eax-and 2/imm32 -<span id="L22575" class="LineNr">22575 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22576" class="LineNr">22576 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: -<span id="L22577" class="LineNr">22577 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22578" class="LineNr">22578 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22579" class="LineNr">22579 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L22580" class="LineNr">22580 </span> } -<span id="L22581" class="LineNr">22581 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> -<span id="L22582" class="LineNr">22582 </span> { -<span id="L22583" class="LineNr">22583 </span> 3d/compare-eax-and 3/imm32 -<span id="L22584" class="LineNr">22584 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22585" class="LineNr">22585 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: -<span id="L22586" class="LineNr">22586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22587" class="LineNr">22587 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L22588" class="LineNr">22588 </span> } -<span id="L22589" class="LineNr">22589 </span> <span class="subxComment"># abort</span> -<span id="L22590" class="LineNr">22590 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 -<span id="L22591" class="LineNr">22591 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: -<span id="L22592" class="LineNr">22592 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22593" class="LineNr">22593 </span> 59/pop-to-ecx -<span id="L22594" class="LineNr">22594 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22595" class="LineNr">22595 </span> 89/<- %esp 5/r32/ebp -<span id="L22596" class="LineNr">22596 </span> 5d/pop-to-ebp -<span id="L22597" class="LineNr">22597 </span> c3/return -<span id="L22598" class="LineNr">22598 </span> -<span id="L22599" class="LineNr">22599 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: -<span id="L22600" class="LineNr">22600 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> -<span id="L22601" class="LineNr">22601 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) -<span id="L22602" class="LineNr">22602 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) -<span id="L22603" class="LineNr">22603 </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="L22604" class="LineNr">22604 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22605" class="LineNr">22605 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22606" class="LineNr">22606 </span> <span class="subxComment"># never gets here</span> -<span id="L22607" class="LineNr">22607 </span> -<span id="L22608" class="LineNr">22608 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L22609" class="LineNr">22609 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22610" class="LineNr">22610 </span> 55/push-ebp -<span id="L22611" class="LineNr">22611 </span> 89/<- %ebp 4/r32/esp -<span id="L22612" class="LineNr">22612 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22613" class="LineNr">22613 </span> 50/push-eax -<span id="L22614" class="LineNr">22614 </span> 51/push-ecx -<span id="L22615" class="LineNr">22615 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22616" class="LineNr">22616 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22617" class="LineNr">22617 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 -<span id="L22618" class="LineNr">22618 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L22619" class="LineNr">22619 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L22620" class="LineNr">22620 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22621" class="LineNr">22621 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22622" class="LineNr">22622 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L22623" class="LineNr">22623 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L22624" class="LineNr">22624 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L22625" class="LineNr">22625 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L22626" class="LineNr">22626 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L22627" class="LineNr">22627 </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="L22628" class="LineNr">22628 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L22629" class="LineNr">22629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) -<span id="L22630" class="LineNr">22630 </span><span class="Constant">$emit-subx-r32:end</span>: -<span id="L22631" class="LineNr">22631 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22632" class="LineNr">22632 </span> 59/pop-to-ecx -<span id="L22633" class="LineNr">22633 </span> 58/pop-to-eax -<span id="L22634" class="LineNr">22634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22635" class="LineNr">22635 </span> 89/<- %esp 5/r32/ebp -<span id="L22636" class="LineNr">22636 </span> 5d/pop-to-ebp -<span id="L22637" class="LineNr">22637 </span> c3/return -<span id="L22638" class="LineNr">22638 </span> -<span id="L22639" class="LineNr">22639 </span><span class="subxFunction">emit-subx-xm32</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="L22640" class="LineNr">22640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22641" class="LineNr">22641 </span> 55/push-ebp -<span id="L22642" class="LineNr">22642 </span> 89/<- %ebp 4/r32/esp -<span id="L22643" class="LineNr">22643 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22644" class="LineNr">22644 </span> 50/push-eax -<span id="L22645" class="LineNr">22645 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22646" class="LineNr">22646 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22647" class="LineNr">22647 </span> 74/jump-if-= $emit-subx-xm32:end/disp8 -<span id="L22648" class="LineNr">22648 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L22649" class="LineNr">22649 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L22650" class="LineNr">22650 </span> (<a href='mu.subx.html#L23037'>emit-subx-var-as-xm32</a> *(ebp+8) %eax) -<span id="L22651" class="LineNr">22651 </span><span class="Constant">$emit-subx-xm32:end</span>: -<span id="L22652" class="LineNr">22652 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22653" class="LineNr">22653 </span> 58/pop-to-eax -<span id="L22654" class="LineNr">22654 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22655" class="LineNr">22655 </span> 89/<- %esp 5/r32/ebp -<span id="L22656" class="LineNr">22656 </span> 5d/pop-to-ebp -<span id="L22657" class="LineNr">22657 </span> c3/return -<span id="L22658" class="LineNr">22658 </span> -<span id="L22659" class="LineNr">22659 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L22660" class="LineNr">22660 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22661" class="LineNr">22661 </span> 55/push-ebp -<span id="L22662" class="LineNr">22662 </span> 89/<- %ebp 4/r32/esp -<span id="L22663" class="LineNr">22663 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22664" class="LineNr">22664 </span> 50/push-eax -<span id="L22665" class="LineNr">22665 </span> 51/push-ecx -<span id="L22666" class="LineNr">22666 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22667" class="LineNr">22667 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22668" class="LineNr">22668 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 -<span id="L22669" class="LineNr">22669 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L22670" class="LineNr">22670 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L22671" class="LineNr">22671 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22672" class="LineNr">22672 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22673" class="LineNr">22673 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L22674" class="LineNr">22674 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L22675" class="LineNr">22675 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L22676" class="LineNr">22676 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L22677" class="LineNr">22677 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L22678" class="LineNr">22678 </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="L22679" class="LineNr">22679 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L22680" class="LineNr">22680 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) -<span id="L22681" class="LineNr">22681 </span><span class="Constant">$emit-subx-x32:end</span>: -<span id="L22682" class="LineNr">22682 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22683" class="LineNr">22683 </span> 59/pop-to-ecx -<span id="L22684" class="LineNr">22684 </span> 58/pop-to-eax -<span id="L22685" class="LineNr">22685 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22686" class="LineNr">22686 </span> 89/<- %esp 5/r32/ebp -<span id="L22687" class="LineNr">22687 </span> 5d/pop-to-ebp -<span id="L22688" class="LineNr">22688 </span> c3/return -<span id="L22689" class="LineNr">22689 </span> -<span id="L22690" class="LineNr">22690 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L22691" class="LineNr">22691 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22692" class="LineNr">22692 </span> 55/push-ebp -<span id="L22693" class="LineNr">22693 </span> 89/<- %ebp 4/r32/esp -<span id="L22694" class="LineNr">22694 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22695" class="LineNr">22695 </span> 50/push-eax -<span id="L22696" class="LineNr">22696 </span> 51/push-ecx -<span id="L22697" class="LineNr">22697 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22698" class="LineNr">22698 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22699" class="LineNr">22699 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L22700" class="LineNr">22700 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L22701" class="LineNr">22701 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L22702" class="LineNr">22702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22703" class="LineNr">22703 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22704" class="LineNr">22704 </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="L22705" class="LineNr">22705 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22706" class="LineNr">22706 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) -<span id="L22707" class="LineNr">22707 </span><span class="Constant">$emit-subx-imm32:end</span>: -<span id="L22708" class="LineNr">22708 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22709" class="LineNr">22709 </span> 59/pop-to-ecx -<span id="L22710" class="LineNr">22710 </span> 58/pop-to-eax -<span id="L22711" class="LineNr">22711 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22712" class="LineNr">22712 </span> 89/<- %esp 5/r32/ebp -<span id="L22713" class="LineNr">22713 </span> 5d/pop-to-ebp -<span id="L22714" class="LineNr">22714 </span> c3/return -<span id="L22715" class="LineNr">22715 </span> -<span id="L22716" class="LineNr">22716 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L22717" class="LineNr">22717 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22718" class="LineNr">22718 </span> 55/push-ebp -<span id="L22719" class="LineNr">22719 </span> 89/<- %ebp 4/r32/esp -<span id="L22720" class="LineNr">22720 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22721" class="LineNr">22721 </span> 50/push-eax -<span id="L22722" class="LineNr">22722 </span> 51/push-ecx -<span id="L22723" class="LineNr">22723 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L22724" class="LineNr">22724 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22725" class="LineNr">22725 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L22726" class="LineNr">22726 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L22727" class="LineNr">22727 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L22728" class="LineNr">22728 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22729" class="LineNr">22729 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22730" class="LineNr">22730 </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="L22731" class="LineNr">22731 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22732" class="LineNr">22732 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) -<span id="L22733" class="LineNr">22733 </span><span class="Constant">$emit-subx-imm8:end</span>: -<span id="L22734" class="LineNr">22734 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22735" class="LineNr">22735 </span> 59/pop-to-ecx -<span id="L22736" class="LineNr">22736 </span> 58/pop-to-eax -<span id="L22737" class="LineNr">22737 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22738" class="LineNr">22738 </span> 89/<- %esp 5/r32/ebp -<span id="L22739" class="LineNr">22739 </span> 5d/pop-to-ebp -<span id="L22740" class="LineNr">22740 </span> c3/return -<span id="L22741" class="LineNr">22741 </span> -<span id="L22742" class="LineNr">22742 </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="L22743" class="LineNr">22743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22744" class="LineNr">22744 </span> 55/push-ebp -<span id="L22745" class="LineNr">22745 </span> 89/<- %ebp 4/r32/esp -<span id="L22746" class="LineNr">22746 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22747" class="LineNr">22747 </span> 50/push-eax -<span id="L22748" class="LineNr">22748 </span> 51/push-ecx -<span id="L22749" class="LineNr">22749 </span> <span class="subxComment"># if (location == 0) return</span> -<span id="L22750" class="LineNr">22750 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L22751" class="LineNr">22751 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 -<span id="L22752" class="LineNr">22752 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L22753" class="LineNr">22753 </span> (<a href='mu.subx.html#L22554'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L22754" class="LineNr">22754 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22755" class="LineNr">22755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22756" class="LineNr">22756 </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="L22757" class="LineNr">22757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22758" class="LineNr">22758 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> -<span id="L22759" class="LineNr">22759 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L22760" class="LineNr">22760 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L22761" class="LineNr">22761 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L22762" class="LineNr">22762 </span> 89/<- %ecx 0/r32/eax -<span id="L22763" class="LineNr">22763 </span> { -<span id="L22764" class="LineNr">22764 </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="L22765" class="LineNr">22765 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22766" class="LineNr">22766 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22767" class="LineNr">22767 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) -<span id="L22768" class="LineNr">22768 </span> } -<span id="L22769" class="LineNr">22769 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> -<span id="L22770" class="LineNr">22770 </span> { -<span id="L22771" class="LineNr">22771 </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="L22772" class="LineNr">22772 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22773" class="LineNr">22773 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22774" class="LineNr">22774 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) -<span id="L22775" class="LineNr">22775 </span> } -<span id="L22776" class="LineNr">22776 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) -<span id="L22777" class="LineNr">22777 </span><span class="Constant">$emit-subx-disp32:end</span>: -<span id="L22778" class="LineNr">22778 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22779" class="LineNr">22779 </span> 59/pop-to-ecx -<span id="L22780" class="LineNr">22780 </span> 58/pop-to-eax -<span id="L22781" class="LineNr">22781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22782" class="LineNr">22782 </span> 89/<- %esp 5/r32/ebp -<span id="L22783" class="LineNr">22783 </span> 5d/pop-to-ebp -<span id="L22784" class="LineNr">22784 </span> c3/return -<span id="L22785" class="LineNr">22785 </span> -<span id="L22786" class="LineNr">22786 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L22787" class="LineNr">22787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22788" class="LineNr">22788 </span> 55/push-ebp -<span id="L22789" class="LineNr">22789 </span> 89/<- %ebp 4/r32/esp -<span id="L22790" class="LineNr">22790 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22791" class="LineNr">22791 </span> 50/push-eax -<span id="L22792" class="LineNr">22792 </span> 51/push-ecx -<span id="L22793" class="LineNr">22793 </span> <span class="subxComment">#</span> -<span id="L22794" class="LineNr">22794 </span> (<a href='mu.subx.html#L26016'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span>) -<span id="L22795" class="LineNr">22795 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) -<span id="L22796" class="LineNr">22796 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L22797" class="LineNr">22797 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L22798" class="LineNr">22798 </span> <span class="subxH1Comment"># - emit function name</span> -<span id="L22799" class="LineNr">22799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L22800" class="LineNr">22800 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22801" class="LineNr">22801 </span> <span class="subxH1Comment"># - emit arguments</span> -<span id="L22802" class="LineNr">22802 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L22803" class="LineNr">22803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22804" class="LineNr">22804 </span> { -<span id="L22805" class="LineNr">22805 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L22806" class="LineNr">22806 </span> 3d/compare-eax-and 0/imm32 -<span id="L22807" class="LineNr">22807 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22808" class="LineNr">22808 </span> <span class="subxComment">#</span> -<span id="L22809" class="LineNr">22809 </span> (<a href='mu.subx.html#L22825'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L22810" class="LineNr">22810 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L22811" class="LineNr">22811 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22812" class="LineNr">22812 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L22813" class="LineNr">22813 </span> } -<span id="L22814" class="LineNr">22814 </span> <span class="subxComment">#</span> -<span id="L22815" class="LineNr">22815 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L22816" class="LineNr">22816 </span><span class="Constant">$emit-call:end</span>: -<span id="L22817" class="LineNr">22817 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22818" class="LineNr">22818 </span> 59/pop-to-ecx -<span id="L22819" class="LineNr">22819 </span> 58/pop-to-eax -<span id="L22820" class="LineNr">22820 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22821" class="LineNr">22821 </span> 89/<- %esp 5/r32/ebp -<span id="L22822" class="LineNr">22822 </span> 5d/pop-to-ebp -<span id="L22823" class="LineNr">22823 </span> c3/return -<span id="L22824" class="LineNr">22824 </span> -<span id="L22825" class="LineNr">22825 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L22826" class="LineNr">22826 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> -<span id="L22827" class="LineNr">22827 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22828" class="LineNr">22828 </span> 55/push-ebp -<span id="L22829" class="LineNr">22829 </span> 89/<- %ebp 4/r32/esp -<span id="L22830" class="LineNr">22830 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22831" class="LineNr">22831 </span> 50/push-eax -<span id="L22832" class="LineNr">22832 </span> 51/push-ecx -<span id="L22833" class="LineNr">22833 </span> 56/push-esi -<span id="L22834" class="LineNr">22834 </span> <span class="subxComment"># ecx = s</span> -<span id="L22835" class="LineNr">22835 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L22836" class="LineNr">22836 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L22837" class="LineNr">22837 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22838" class="LineNr">22838 </span> 89/<- %esi 0/r32/eax -<span id="L22839" class="LineNr">22839 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L22466" class="LineNr">22466 </span> 0x11/imm32/alloc-id:fake +<span id="L22467" class="LineNr">22467 </span> <span class="SpecialChar"><a href='mu.subx.html#L22513'>Int-var-in-some-register</a></span>/imm32 +<span id="L22468" class="LineNr">22468 </span> 0x11/imm32/alloc-id:fake +<span id="L22469" class="LineNr">22469 </span> <span class="SpecialChar"><a href='mu.subx.html#L22660'>Single-lit-var</a></span>/imm32/next +<span id="L22470" class="LineNr">22470 </span> +<span id="L22471" class="LineNr">22471 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22472" class="LineNr">22472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22473" class="LineNr">22473 </span> 0x11/imm32/alloc-id:fake +<span id="L22474" class="LineNr">22474 </span> <span class="SpecialChar"><a href='mu.subx.html#L22703'>Float-var-in-some-register</a></span>/imm32 +<span id="L22475" class="LineNr">22475 </span> 0x11/imm32/alloc-id:fake +<span id="L22476" class="LineNr">22476 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L22477" class="LineNr">22477 </span> +<span id="L22478" class="LineNr">22478 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22479" class="LineNr">22479 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22480" class="LineNr">22480 </span> 0x11/imm32/alloc-id:fake +<span id="L22481" class="LineNr">22481 </span> <span class="SpecialChar"><a href='mu.subx.html#L22703'>Float-var-in-some-register</a></span>/imm32 +<span id="L22482" class="LineNr">22482 </span> 0x11/imm32/alloc-id:fake +<span id="L22483" class="LineNr">22483 </span> <span class="SpecialChar"><a href='mu.subx.html#L22678'>Single-float-var-in-mem</a></span>/imm32/next +<span id="L22484" class="LineNr">22484 </span> +<span id="L22485" class="LineNr">22485 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22486" class="LineNr">22486 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22487" class="LineNr">22487 </span> 0x11/imm32/alloc-id:fake +<span id="L22488" class="LineNr">22488 </span> <span class="SpecialChar"><a href='mu.subx.html#L22685'>Float-var-in-mem</a></span>/imm32 +<span id="L22489" class="LineNr">22489 </span> 0x11/imm32/alloc-id:fake +<span id="L22490" class="LineNr">22490 </span> <span class="SpecialChar"><a href='mu.subx.html#L22696'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L22491" class="LineNr">22491 </span> +<span id="L22492" class="LineNr">22492 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22493" class="LineNr">22493 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22494" class="LineNr">22494 </span> 0x11/imm32/alloc-id:fake +<span id="L22495" class="LineNr">22495 </span> <span class="SpecialChar"><a href='mu.subx.html#L22513'>Int-var-in-some-register</a></span>/imm32 +<span id="L22496" class="LineNr">22496 </span> 0/imm32/next +<span id="L22497" class="LineNr">22497 </span> 0/imm32/next +<span id="L22498" class="LineNr">22498 </span> +<span id="L22499" class="LineNr">22499 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22500" class="LineNr">22500 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22501" class="LineNr">22501 </span> 0x11/imm32/alloc-id:fake +<span id="L22502" class="LineNr">22502 </span> <span class="SpecialChar"><a href='mu.subx.html#L22530'>Addr-var-in-some-register</a></span>/imm32 +<span id="L22503" class="LineNr">22503 </span> 0/imm32/next +<span id="L22504" class="LineNr">22504 </span> 0/imm32/next +<span id="L22505" class="LineNr">22505 </span> +<span id="L22506" class="LineNr">22506 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22507" class="LineNr">22507 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22508" class="LineNr">22508 </span> 0x11/imm32/alloc-id:fake +<span id="L22509" class="LineNr">22509 </span> <span class="SpecialChar"><a href='mu.subx.html#L22541'>Byte-var-in-some-register</a></span>/imm32 +<span id="L22510" class="LineNr">22510 </span> 0/imm32/next +<span id="L22511" class="LineNr">22511 </span> 0/imm32/next +<span id="L22512" class="LineNr">22512 </span> +<span id="L22513" class="LineNr">22513 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L22514" class="LineNr">22514 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22515" class="LineNr">22515 </span> 0/imm32/name +<span id="L22516" class="LineNr">22516 </span> 0/imm32/name +<span id="L22517" class="LineNr">22517 </span> 0x11/imm32/alloc-id:fake +<span id="L22518" class="LineNr">22518 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22519" class="LineNr">22519 </span> 1/imm32/some-block-depth +<span id="L22520" class="LineNr">22520 </span> 0/imm32/no-stack-offset +<span id="L22521" class="LineNr">22521 </span> 0x11/imm32/alloc-id:fake +<span id="L22522" class="LineNr">22522 </span> <span class="SpecialChar"><a href='mu.subx.html#L22524'>Any-register</a></span>/imm32 +<span id="L22523" class="LineNr">22523 </span> +<span id="L22524" class="LineNr">22524 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L22525" class="LineNr">22525 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22526" class="LineNr">22526 </span> 1/imm32/size +<span id="L22527" class="LineNr">22527 </span> <span class="subxComment"># data</span> +<span id="L22528" class="LineNr">22528 </span> 2a/asterisk +<span id="L22529" class="LineNr">22529 </span> +<span id="L22530" class="LineNr">22530 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L22531" class="LineNr">22531 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22532" class="LineNr">22532 </span> 0/imm32/name +<span id="L22533" class="LineNr">22533 </span> 0/imm32/name +<span id="L22534" class="LineNr">22534 </span> 0x11/imm32/alloc-id:fake +<span id="L22535" class="LineNr">22535 </span> <span class="SpecialChar"><a href='mu.subx.html#L22730'>Type-addr</a></span>/imm32 +<span id="L22536" class="LineNr">22536 </span> 1/imm32/some-block-depth +<span id="L22537" class="LineNr">22537 </span> 0/imm32/no-stack-offset +<span id="L22538" class="LineNr">22538 </span> 0x11/imm32/alloc-id:fake +<span id="L22539" class="LineNr">22539 </span> <span class="SpecialChar"><a href='mu.subx.html#L22524'>Any-register</a></span>/imm32 +<span id="L22540" class="LineNr">22540 </span> +<span id="L22541" class="LineNr">22541 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L22542" class="LineNr">22542 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22543" class="LineNr">22543 </span> 0/imm32/name +<span id="L22544" class="LineNr">22544 </span> 0/imm32/name +<span id="L22545" class="LineNr">22545 </span> 0x11/imm32/alloc-id:fake +<span id="L22546" class="LineNr">22546 </span> <span class="SpecialChar"><a href='mu.subx.html#L22738'>Type-byte</a></span>/imm32 +<span id="L22547" class="LineNr">22547 </span> 1/imm32/some-block-depth +<span id="L22548" class="LineNr">22548 </span> 0/imm32/no-stack-offset +<span id="L22549" class="LineNr">22549 </span> 0x11/imm32/alloc-id:fake +<span id="L22550" class="LineNr">22550 </span> <span class="SpecialChar"><a href='mu.subx.html#L22524'>Any-register</a></span>/imm32 +<span id="L22551" class="LineNr">22551 </span> +<span id="L22552" class="LineNr">22552 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22553" class="LineNr">22553 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22554" class="LineNr">22554 </span> 0x11/imm32/alloc-id:fake +<span id="L22555" class="LineNr">22555 </span> <span class="SpecialChar"><a href='mu.subx.html#L22559'>Int-var-in-eax</a></span>/imm32 +<span id="L22556" class="LineNr">22556 </span> 0/imm32/next +<span id="L22557" class="LineNr">22557 </span> 0/imm32/next +<span id="L22558" class="LineNr">22558 </span> +<span id="L22559" class="LineNr">22559 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L22560" class="LineNr">22560 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22561" class="LineNr">22561 </span> 0/imm32/name +<span id="L22562" class="LineNr">22562 </span> 0/imm32/name +<span id="L22563" class="LineNr">22563 </span> 0x11/imm32/alloc-id:fake +<span id="L22564" class="LineNr">22564 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22565" class="LineNr">22565 </span> 1/imm32/some-block-depth +<span id="L22566" class="LineNr">22566 </span> 0/imm32/no-stack-offset +<span id="L22567" class="LineNr">22567 </span> 0x11/imm32/alloc-id:fake +<span id="L22568" class="LineNr">22568 </span> $Register-eax/imm32 +<span id="L22569" class="LineNr">22569 </span> +<span id="L22570" class="LineNr">22570 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22571" class="LineNr">22571 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22572" class="LineNr">22572 </span> 0x11/imm32/alloc-id:fake +<span id="L22573" class="LineNr">22573 </span> <span class="SpecialChar"><a href='mu.subx.html#L22577'>Int-var-in-ecx</a></span>/imm32 +<span id="L22574" class="LineNr">22574 </span> 0/imm32/next +<span id="L22575" class="LineNr">22575 </span> 0/imm32/next +<span id="L22576" class="LineNr">22576 </span> +<span id="L22577" class="LineNr">22577 </span><span class="SpecialChar">Int-var-in-ecx</span>: +<span id="L22578" class="LineNr">22578 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22579" class="LineNr">22579 </span> 0/imm32/name +<span id="L22580" class="LineNr">22580 </span> 0/imm32/name +<span id="L22581" class="LineNr">22581 </span> 0x11/imm32/alloc-id:fake +<span id="L22582" class="LineNr">22582 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22583" class="LineNr">22583 </span> 1/imm32/some-block-depth +<span id="L22584" class="LineNr">22584 </span> 0/imm32/no-stack-offset +<span id="L22585" class="LineNr">22585 </span> 0x11/imm32/alloc-id:fake +<span id="L22586" class="LineNr">22586 </span> $Register-ecx/imm32/register +<span id="L22587" class="LineNr">22587 </span> +<span id="L22588" class="LineNr">22588 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22589" class="LineNr">22589 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22590" class="LineNr">22590 </span> 0x11/imm32/alloc-id:fake +<span id="L22591" class="LineNr">22591 </span> <span class="SpecialChar"><a href='mu.subx.html#L22595'>Int-var-in-edx</a></span>/imm32 +<span id="L22592" class="LineNr">22592 </span> 0/imm32/next +<span id="L22593" class="LineNr">22593 </span> 0/imm32/next +<span id="L22594" class="LineNr">22594 </span> +<span id="L22595" class="LineNr">22595 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22596" class="LineNr">22596 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22597" class="LineNr">22597 </span> 0/imm32/name +<span id="L22598" class="LineNr">22598 </span> 0/imm32/name +<span id="L22599" class="LineNr">22599 </span> 0x11/imm32/alloc-id:fake +<span id="L22600" class="LineNr">22600 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22601" class="LineNr">22601 </span> 1/imm32/some-block-depth +<span id="L22602" class="LineNr">22602 </span> 0/imm32/no-stack-offset +<span id="L22603" class="LineNr">22603 </span> 0x11/imm32/alloc-id:fake +<span id="L22604" class="LineNr">22604 </span> $Register-edx/imm32/register +<span id="L22605" class="LineNr">22605 </span> +<span id="L22606" class="LineNr">22606 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22607" class="LineNr">22607 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22608" class="LineNr">22608 </span> 0x11/imm32/alloc-id:fake +<span id="L22609" class="LineNr">22609 </span> <span class="SpecialChar"><a href='mu.subx.html#L22613'>Int-var-in-ebx</a></span>/imm32 +<span id="L22610" class="LineNr">22610 </span> 0/imm32/next +<span id="L22611" class="LineNr">22611 </span> 0/imm32/next +<span id="L22612" class="LineNr">22612 </span> +<span id="L22613" class="LineNr">22613 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22614" class="LineNr">22614 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22615" class="LineNr">22615 </span> 0/imm32/name +<span id="L22616" class="LineNr">22616 </span> 0/imm32/name +<span id="L22617" class="LineNr">22617 </span> 0x11/imm32/alloc-id:fake +<span id="L22618" class="LineNr">22618 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22619" class="LineNr">22619 </span> 1/imm32/some-block-depth +<span id="L22620" class="LineNr">22620 </span> 0/imm32/no-stack-offset +<span id="L22621" class="LineNr">22621 </span> 0x11/imm32/alloc-id:fake +<span id="L22622" class="LineNr">22622 </span> $Register-ebx/imm32/register +<span id="L22623" class="LineNr">22623 </span> +<span id="L22624" class="LineNr">22624 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22625" class="LineNr">22625 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22626" class="LineNr">22626 </span> 0x11/imm32/alloc-id:fake +<span id="L22627" class="LineNr">22627 </span> <span class="SpecialChar"><a href='mu.subx.html#L22631'>Int-var-in-esi</a></span>/imm32 +<span id="L22628" class="LineNr">22628 </span> 0/imm32/next +<span id="L22629" class="LineNr">22629 </span> 0/imm32/next +<span id="L22630" class="LineNr">22630 </span> +<span id="L22631" class="LineNr">22631 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22632" class="LineNr">22632 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22633" class="LineNr">22633 </span> 0/imm32/name +<span id="L22634" class="LineNr">22634 </span> 0/imm32/name +<span id="L22635" class="LineNr">22635 </span> 0x11/imm32/alloc-id:fake +<span id="L22636" class="LineNr">22636 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22637" class="LineNr">22637 </span> 1/imm32/some-block-depth +<span id="L22638" class="LineNr">22638 </span> 0/imm32/no-stack-offset +<span id="L22639" class="LineNr">22639 </span> 0x11/imm32/alloc-id:fake +<span id="L22640" class="LineNr">22640 </span> $Register-esi/imm32/register +<span id="L22641" class="LineNr">22641 </span> +<span id="L22642" class="LineNr">22642 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22643" class="LineNr">22643 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22644" class="LineNr">22644 </span> 0x11/imm32/alloc-id:fake +<span id="L22645" class="LineNr">22645 </span> <span class="SpecialChar"><a href='mu.subx.html#L22649'>Int-var-in-edi</a></span>/imm32 +<span id="L22646" class="LineNr">22646 </span> 0/imm32/next +<span id="L22647" class="LineNr">22647 </span> 0/imm32/next +<span id="L22648" class="LineNr">22648 </span> +<span id="L22649" class="LineNr">22649 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22650" class="LineNr">22650 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22651" class="LineNr">22651 </span> 0/imm32/name +<span id="L22652" class="LineNr">22652 </span> 0/imm32/name +<span id="L22653" class="LineNr">22653 </span> 0x11/imm32/alloc-id:fake +<span id="L22654" class="LineNr">22654 </span> <span class="SpecialChar"><a href='mu.subx.html#L22714'>Type-int</a></span>/imm32 +<span id="L22655" class="LineNr">22655 </span> 1/imm32/some-block-depth +<span id="L22656" class="LineNr">22656 </span> 0/imm32/no-stack-offset +<span id="L22657" class="LineNr">22657 </span> 0x11/imm32/alloc-id:fake +<span id="L22658" class="LineNr">22658 </span> $Register-edi/imm32/register +<span id="L22659" class="LineNr">22659 </span> +<span id="L22660" class="LineNr">22660 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22661" class="LineNr">22661 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22662" class="LineNr">22662 </span> 0x11/imm32/alloc-id:fake +<span id="L22663" class="LineNr">22663 </span> <span class="SpecialChar"><a href='mu.subx.html#L22667'>Lit-var</a></span>/imm32 +<span id="L22664" class="LineNr">22664 </span> 0/imm32/next +<span id="L22665" class="LineNr">22665 </span> 0/imm32/next +<span id="L22666" class="LineNr">22666 </span> +<span id="L22667" class="LineNr">22667 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> +<span id="L22668" class="LineNr">22668 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22669" class="LineNr">22669 </span> 0/imm32/name +<span id="L22670" class="LineNr">22670 </span> 0/imm32/name +<span id="L22671" class="LineNr">22671 </span> 0x11/imm32/alloc-id:fake +<span id="L22672" class="LineNr">22672 </span> <span class="SpecialChar"><a href='mu.subx.html#L22722'>Type-literal</a></span>/imm32 +<span id="L22673" class="LineNr">22673 </span> 1/imm32/some-block-depth +<span id="L22674" class="LineNr">22674 </span> 0/imm32/no-stack-offset +<span id="L22675" class="LineNr">22675 </span> 0/imm32/no-register +<span id="L22676" class="LineNr">22676 </span> 0/imm32/no-register +<span id="L22677" class="LineNr">22677 </span> +<span id="L22678" class="LineNr">22678 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22679" class="LineNr">22679 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22680" class="LineNr">22680 </span> 0x11/imm32/alloc-id:fake +<span id="L22681" class="LineNr">22681 </span> <span class="SpecialChar"><a href='mu.subx.html#L22685'>Float-var-in-mem</a></span>/imm32 +<span id="L22682" class="LineNr">22682 </span> 0/imm32/next +<span id="L22683" class="LineNr">22683 </span> 0/imm32/next +<span id="L22684" class="LineNr">22684 </span> +<span id="L22685" class="LineNr">22685 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L22686" class="LineNr">22686 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22687" class="LineNr">22687 </span> 0/imm32/name +<span id="L22688" class="LineNr">22688 </span> 0/imm32/name +<span id="L22689" class="LineNr">22689 </span> 0x11/imm32/alloc-id:fake +<span id="L22690" class="LineNr">22690 </span> <span class="SpecialChar"><a href='mu.subx.html#L22746'>Type-float</a></span>/imm32 +<span id="L22691" class="LineNr">22691 </span> 1/imm32/some-block-depth +<span id="L22692" class="LineNr">22692 </span> 1/imm32/some-stack-offset +<span id="L22693" class="LineNr">22693 </span> 0/imm32/no-register +<span id="L22694" class="LineNr">22694 </span> 0/imm32/no-register +<span id="L22695" class="LineNr">22695 </span> +<span id="L22696" class="LineNr">22696 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L22697" class="LineNr">22697 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22698" class="LineNr">22698 </span> 0x11/imm32/alloc-id:fake +<span id="L22699" class="LineNr">22699 </span> <span class="SpecialChar"><a href='mu.subx.html#L22703'>Float-var-in-some-register</a></span>/imm32 +<span id="L22700" class="LineNr">22700 </span> 0/imm32/next +<span id="L22701" class="LineNr">22701 </span> 0/imm32/next +<span id="L22702" class="LineNr">22702 </span> +<span id="L22703" class="LineNr">22703 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L22704" class="LineNr">22704 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22705" class="LineNr">22705 </span> 0/imm32/name +<span id="L22706" class="LineNr">22706 </span> 0/imm32/name +<span id="L22707" class="LineNr">22707 </span> 0x11/imm32/alloc-id:fake +<span id="L22708" class="LineNr">22708 </span> <span class="SpecialChar"><a href='mu.subx.html#L22746'>Type-float</a></span>/imm32 +<span id="L22709" class="LineNr">22709 </span> 1/imm32/some-block-depth +<span id="L22710" class="LineNr">22710 </span> 0/imm32/no-stack-offset +<span id="L22711" class="LineNr">22711 </span> 0x11/imm32/alloc-id:fake +<span id="L22712" class="LineNr">22712 </span> <span class="SpecialChar"><a href='mu.subx.html#L22524'>Any-register</a></span>/imm32 +<span id="L22713" class="LineNr">22713 </span> +<span id="L22714" class="LineNr">22714 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22715" class="LineNr">22715 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22716" class="LineNr">22716 </span> 1/imm32/is-atom +<span id="L22717" class="LineNr">22717 </span> 1/imm32/value:int +<span id="L22718" class="LineNr">22718 </span> 0/imm32/left:unused +<span id="L22719" class="LineNr">22719 </span> 0/imm32/right:null +<span id="L22720" class="LineNr">22720 </span> 0/imm32/right:null +<span id="L22721" class="LineNr">22721 </span> +<span id="L22722" class="LineNr">22722 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22723" class="LineNr">22723 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22724" class="LineNr">22724 </span> 1/imm32/is-atom +<span id="L22725" class="LineNr">22725 </span> 0/imm32/value:literal +<span id="L22726" class="LineNr">22726 </span> 0/imm32/left:unused +<span id="L22727" class="LineNr">22727 </span> 0/imm32/right:null +<span id="L22728" class="LineNr">22728 </span> 0/imm32/right:null +<span id="L22729" class="LineNr">22729 </span> +<span id="L22730" class="LineNr">22730 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22731" class="LineNr">22731 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22732" class="LineNr">22732 </span> 1/imm32/is-atom +<span id="L22733" class="LineNr">22733 </span> 2/imm32/value:addr +<span id="L22734" class="LineNr">22734 </span> 0/imm32/left:unused +<span id="L22735" class="LineNr">22735 </span> 0/imm32/right:null +<span id="L22736" class="LineNr">22736 </span> 0/imm32/right:null +<span id="L22737" class="LineNr">22737 </span> +<span id="L22738" class="LineNr">22738 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22739" class="LineNr">22739 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22740" class="LineNr">22740 </span> 1/imm32/is-atom +<span id="L22741" class="LineNr">22741 </span> 8/imm32/value:byte +<span id="L22742" class="LineNr">22742 </span> 0/imm32/left:unused +<span id="L22743" class="LineNr">22743 </span> 0/imm32/right:null +<span id="L22744" class="LineNr">22744 </span> 0/imm32/right:null +<span id="L22745" class="LineNr">22745 </span> +<span id="L22746" class="LineNr">22746 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L22747" class="LineNr">22747 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L22748" class="LineNr">22748 </span> 1/imm32/is-atom +<span id="L22749" class="LineNr">22749 </span> 0xf/imm32/value:float +<span id="L22750" class="LineNr">22750 </span> 0/imm32/left:unused +<span id="L22751" class="LineNr">22751 </span> 0/imm32/right:null +<span id="L22752" class="LineNr">22752 </span> 0/imm32/right:null +<span id="L22753" class="LineNr">22753 </span> +<span id="L22754" class="LineNr">22754 </span>== code +<span id="L22755" class="LineNr">22755 </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="L22756" class="LineNr">22756 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22757" class="LineNr">22757 </span> 55/push-ebp +<span id="L22758" class="LineNr">22758 </span> 89/<- %ebp 4/r32/esp +<span id="L22759" class="LineNr">22759 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22760" class="LineNr">22760 </span> 50/push-eax +<span id="L22761" class="LineNr">22761 </span> 51/push-ecx +<span id="L22762" class="LineNr">22762 </span> <span class="subxComment"># ecx = primitive</span> +<span id="L22763" class="LineNr">22763 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L22764" class="LineNr">22764 </span> <span class="subxComment"># emit primitive name</span> +<span id="L22765" class="LineNr">22765 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L22766" class="LineNr">22766 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> +<span id="L22767" class="LineNr">22767 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L22768" class="LineNr">22768 </span> <span class="subxComment"># emit rm32 if necessary</span> +<span id="L22769" class="LineNr">22769 </span> (<a href='mu.subx.html#L22792'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> +<span id="L22770" class="LineNr">22770 </span> <span class="subxComment"># emit xm32 if necessary</span> +<span id="L22771" class="LineNr">22771 </span> (<a href='mu.subx.html#L22792'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> +<span id="L22772" class="LineNr">22772 </span> <span class="subxComment"># emit r32 if necessary</span> +<span id="L22773" class="LineNr">22773 </span> (<a href='mu.subx.html#L22866'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> +<span id="L22774" class="LineNr">22774 </span> <span class="subxComment"># emit x32 if necessary</span> +<span id="L22775" class="LineNr">22775 </span> (<a href='mu.subx.html#L22897'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> +<span id="L22776" class="LineNr">22776 </span> <span class="subxComment"># emit imm32 if necessary</span> +<span id="L22777" class="LineNr">22777 </span> (<a href='mu.subx.html#L22928'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> +<span id="L22778" class="LineNr">22778 </span> <span class="subxComment"># emit imm8 if necessary</span> +<span id="L22779" class="LineNr">22779 </span> (<a href='mu.subx.html#L22954'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> +<span id="L22780" class="LineNr">22780 </span> <span class="subxComment"># emit disp32 if necessary</span> +<span id="L22781" class="LineNr">22781 </span> (<a href='mu.subx.html#L22980'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> +<span id="L22782" class="LineNr">22782 </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="L22783" class="LineNr">22783 </span><span class="Constant">$emit-subx-primitive:end</span>: +<span id="L22784" class="LineNr">22784 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22785" class="LineNr">22785 </span> 59/pop-to-ecx +<span id="L22786" class="LineNr">22786 </span> 58/pop-to-eax +<span id="L22787" class="LineNr">22787 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22788" class="LineNr">22788 </span> 89/<- %esp 5/r32/ebp +<span id="L22789" class="LineNr">22789 </span> 5d/pop-to-ebp +<span id="L22790" class="LineNr">22790 </span> c3/return +<span id="L22791" class="LineNr">22791 </span> +<span id="L22792" class="LineNr">22792 </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="L22793" class="LineNr">22793 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22794" class="LineNr">22794 </span> 55/push-ebp +<span id="L22795" class="LineNr">22795 </span> 89/<- %ebp 4/r32/esp +<span id="L22796" class="LineNr">22796 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22797" class="LineNr">22797 </span> 50/push-eax +<span id="L22798" class="LineNr">22798 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L22799" class="LineNr">22799 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22800" class="LineNr">22800 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 +<span id="L22801" class="LineNr">22801 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L22802" class="LineNr">22802 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L22803" class="LineNr">22803 </span> (<a href='mu.subx.html#L23214'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L22804" class="LineNr">22804 </span><span class="Constant">$emit-subx-rm32:end</span>: +<span id="L22805" class="LineNr">22805 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22806" class="LineNr">22806 </span> 58/pop-to-eax +<span id="L22807" class="LineNr">22807 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22808" class="LineNr">22808 </span> 89/<- %esp 5/r32/ebp +<span id="L22809" class="LineNr">22809 </span> 5d/pop-to-ebp +<span id="L22810" class="LineNr">22810 </span> c3/return +<span id="L22811" class="LineNr">22811 </span> +<span id="L22812" class="LineNr">22812 </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="L22813" class="LineNr">22813 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22814" class="LineNr">22814 </span> 55/push-ebp +<span id="L22815" class="LineNr">22815 </span> 89/<- %ebp 4/r32/esp +<span id="L22816" class="LineNr">22816 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22817" class="LineNr">22817 </span> 51/push-ecx +<span id="L22818" class="LineNr">22818 </span> <span class="subxComment"># eax = l</span> +<span id="L22819" class="LineNr">22819 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22820" class="LineNr">22820 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L22821" class="LineNr">22821 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L22822" class="LineNr">22822 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> +<span id="L22823" class="LineNr">22823 </span> { +<span id="L22824" class="LineNr">22824 </span> 3d/compare-eax-and 1/imm32 +<span id="L22825" class="LineNr">22825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22826" class="LineNr">22826 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: +<span id="L22827" class="LineNr">22827 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22828" class="LineNr">22828 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L22829" class="LineNr">22829 </span> } +<span id="L22830" class="LineNr">22830 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> +<span id="L22831" class="LineNr">22831 </span> { +<span id="L22832" class="LineNr">22832 </span> 3d/compare-eax-and 2/imm32 +<span id="L22833" class="LineNr">22833 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22834" class="LineNr">22834 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: +<span id="L22835" class="LineNr">22835 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22836" class="LineNr">22836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22837" class="LineNr">22837 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L22838" class="LineNr">22838 </span> } +<span id="L22839" class="LineNr">22839 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> <span id="L22840" class="LineNr">22840 </span> { -<span id="L22841" class="LineNr">22841 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: -<span id="L22842" class="LineNr">22842 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22843" class="LineNr">22843 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22844" class="LineNr">22844 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22845" class="LineNr">22845 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22846" class="LineNr">22846 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: -<span id="L22847" class="LineNr">22847 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L22848" class="LineNr">22848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22849" class="LineNr">22849 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22850" class="LineNr">22850 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L22851" class="LineNr">22851 </span> } -<span id="L22852" class="LineNr">22852 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L22853" class="LineNr">22853 </span> { -<span id="L22854" class="LineNr">22854 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: -<span id="L22855" class="LineNr">22855 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22856" class="LineNr">22856 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22857" class="LineNr">22857 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22858" class="LineNr">22858 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22859" class="LineNr">22859 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: -<span id="L22860" class="LineNr">22860 </span> (<a href='mu.subx.html#L22891'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) -<span id="L22861" class="LineNr">22861 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L22862" class="LineNr">22862 </span> } -<span id="L22863" class="LineNr">22863 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L22864" class="LineNr">22864 </span> { -<span id="L22865" class="LineNr">22865 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L22866" class="LineNr">22866 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22867" class="LineNr">22867 </span><span class="Constant">$emit-subx-call-operand:stack</span>: -<span id="L22868" class="LineNr">22868 </span> (<a href='mu.subx.html#L22936'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) -<span id="L22869" class="LineNr">22869 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L22870" class="LineNr">22870 </span> } -<span id="L22871" class="LineNr">22871 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> -<span id="L22872" class="LineNr">22872 </span> { -<span id="L22873" class="LineNr">22873 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22874" class="LineNr">22874 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L22875" class="LineNr">22875 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22876" class="LineNr">22876 </span><span class="Constant">$emit-subx-call-operand:literal</span>: -<span id="L22877" class="LineNr">22877 </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="L22878" class="LineNr">22878 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22879" class="LineNr">22879 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L22880" class="LineNr">22880 </span> } -<span id="L22881" class="LineNr">22881 </span><span class="Constant">$emit-subx-call-operand:end</span>: -<span id="L22882" class="LineNr">22882 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22883" class="LineNr">22883 </span> 5e/pop-to-esi -<span id="L22884" class="LineNr">22884 </span> 59/pop-to-ecx -<span id="L22885" class="LineNr">22885 </span> 58/pop-to-eax -<span id="L22886" class="LineNr">22886 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22887" class="LineNr">22887 </span> 89/<- %esp 5/r32/ebp -<span id="L22888" class="LineNr">22888 </span> 5d/pop-to-ebp -<span id="L22889" class="LineNr">22889 </span> c3/return -<span id="L22890" class="LineNr">22890 </span> -<span id="L22891" class="LineNr">22891 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L22892" class="LineNr">22892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22893" class="LineNr">22893 </span> 55/push-ebp -<span id="L22894" class="LineNr">22894 </span> 89/<- %ebp 4/r32/esp -<span id="L22895" class="LineNr">22895 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22896" class="LineNr">22896 </span> 50/push-eax -<span id="L22897" class="LineNr">22897 </span> 51/push-ecx -<span id="L22898" class="LineNr">22898 </span> 56/push-esi -<span id="L22899" class="LineNr">22899 </span> <span class="subxComment"># esi = v</span> -<span id="L22900" class="LineNr">22900 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L22901" class="LineNr">22901 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> -<span id="L22902" class="LineNr">22902 </span> (<a href='mu.subx.html#L14844'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> -<span id="L22903" class="LineNr">22903 </span> 89/<- %ecx 0/r32/eax -<span id="L22904" class="LineNr">22904 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> -<span id="L22905" class="LineNr">22905 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22906" class="LineNr">22906 </span> 89/<- %esi 0/r32/eax -<span id="L22907" class="LineNr">22907 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L22908" class="LineNr">22908 </span> <span class="subxComment"># var i/eax: int = 0</span> -<span id="L22909" class="LineNr">22909 </span> b8/copy-to-eax 0/imm32 -<span id="L22910" class="LineNr">22910 </span> { -<span id="L22911" class="LineNr">22911 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: -<span id="L22912" class="LineNr">22912 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L22913" class="LineNr">22913 </span> 39/compare %eax 1/r32/ecx -<span id="L22914" class="LineNr">22914 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L22915" class="LineNr">22915 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> -<span id="L22916" class="LineNr">22916 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) -<span id="L22917" class="LineNr">22917 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) -<span id="L22918" class="LineNr">22918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) -<span id="L22919" class="LineNr">22919 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L22920" class="LineNr">22920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L22921" class="LineNr">22921 </span> <span class="subxComment"># i += 4</span> -<span id="L22922" class="LineNr">22922 </span> 05/add-to-eax 4/imm32 -<span id="L22923" class="LineNr">22923 </span> <span class="subxComment">#</span> -<span id="L22924" class="LineNr">22924 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L22925" class="LineNr">22925 </span> } -<span id="L22926" class="LineNr">22926 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: -<span id="L22927" class="LineNr">22927 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22928" class="LineNr">22928 </span> 5e/pop-to-esi -<span id="L22929" class="LineNr">22929 </span> 59/pop-to-ecx -<span id="L22930" class="LineNr">22930 </span> 58/pop-to-eax -<span id="L22931" class="LineNr">22931 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22932" class="LineNr">22932 </span> 89/<- %esp 5/r32/ebp -<span id="L22933" class="LineNr">22933 </span> 5d/pop-to-ebp -<span id="L22934" class="LineNr">22934 </span> c3/return -<span id="L22935" class="LineNr">22935 </span> -<span id="L22936" class="LineNr">22936 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L22937" class="LineNr">22937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22938" class="LineNr">22938 </span> 55/push-ebp -<span id="L22939" class="LineNr">22939 </span> 89/<- %ebp 4/r32/esp -<span id="L22940" class="LineNr">22940 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22941" class="LineNr">22941 </span> 50/push-eax -<span id="L22942" class="LineNr">22942 </span> 51/push-ecx -<span id="L22943" class="LineNr">22943 </span> 56/push-esi -<span id="L22944" class="LineNr">22944 </span> <span class="subxComment"># esi = v</span> -<span id="L22945" class="LineNr">22945 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L22946" class="LineNr">22946 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> -<span id="L22947" class="LineNr">22947 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> -<span id="L22948" class="LineNr">22948 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> -<span id="L22949" class="LineNr">22949 </span> (<a href='mu.subx.html#L14794'>size-of</a> %esi) <span class="subxComment"># => eax</span> -<span id="L22950" class="LineNr">22950 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L22951" class="LineNr">22951 </span> 01/add-to %eax 1/r32/ecx -<span id="L22952" class="LineNr">22952 </span> { -<span id="L22953" class="LineNr">22953 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: -<span id="L22954" class="LineNr">22954 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L22955" class="LineNr">22955 </span> 39/compare %ecx 0/r32/eax -<span id="L22956" class="LineNr">22956 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L22957" class="LineNr">22957 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> -<span id="L22958" class="LineNr">22958 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L22959" class="LineNr">22959 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L22960" class="LineNr">22960 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L22961" class="LineNr">22961 </span> <span class="subxComment"># i += 4</span> -<span id="L22962" class="LineNr">22962 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L22963" class="LineNr">22963 </span> <span class="subxComment">#</span> -<span id="L22964" class="LineNr">22964 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L22965" class="LineNr">22965 </span> } -<span id="L22966" class="LineNr">22966 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: -<span id="L22967" class="LineNr">22967 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22968" class="LineNr">22968 </span> 5e/pop-to-esi -<span id="L22969" class="LineNr">22969 </span> 59/pop-to-ecx -<span id="L22970" class="LineNr">22970 </span> 58/pop-to-eax -<span id="L22971" class="LineNr">22971 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22972" class="LineNr">22972 </span> 89/<- %esp 5/r32/ebp -<span id="L22973" class="LineNr">22973 </span> 5d/pop-to-ebp -<span id="L22974" class="LineNr">22974 </span> c3/return -<span id="L22975" class="LineNr">22975 </span> -<span id="L22976" class="LineNr">22976 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L22977" class="LineNr">22977 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22978" class="LineNr">22978 </span> 55/push-ebp -<span id="L22979" class="LineNr">22979 </span> 89/<- %ebp 4/r32/esp -<span id="L22980" class="LineNr">22980 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22981" class="LineNr">22981 </span> 50/push-eax -<span id="L22982" class="LineNr">22982 </span> 51/push-ecx -<span id="L22983" class="LineNr">22983 </span> 56/push-esi -<span id="L22984" class="LineNr">22984 </span> <span class="subxComment"># ecx = s</span> -<span id="L22985" class="LineNr">22985 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L22986" class="LineNr">22986 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L22987" class="LineNr">22987 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22988" class="LineNr">22988 </span> 89/<- %esi 0/r32/eax -<span id="L22989" class="LineNr">22989 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L22990" class="LineNr">22990 </span> { -<span id="L22991" class="LineNr">22991 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: -<span id="L22992" class="LineNr">22992 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22993" class="LineNr">22993 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22994" class="LineNr">22994 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22995" class="LineNr">22995 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22996" class="LineNr">22996 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: -<span id="L22997" class="LineNr">22997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L22998" class="LineNr">22998 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22999" class="LineNr">22999 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L23000" class="LineNr">23000 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L23001" class="LineNr">23001 </span> } -<span id="L23002" class="LineNr">23002 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L23003" class="LineNr">23003 </span> { -<span id="L23004" class="LineNr">23004 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: -<span id="L23005" class="LineNr">23005 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23006" class="LineNr">23006 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23007" class="LineNr">23007 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23008" class="LineNr">23008 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23009" class="LineNr">23009 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: -<span id="L23010" class="LineNr">23010 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L23011" class="LineNr">23011 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23012" class="LineNr">23012 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L23013" class="LineNr">23013 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L23014" class="LineNr">23014 </span> } -<span id="L23015" class="LineNr">23015 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L23016" class="LineNr">23016 </span> { -<span id="L23017" class="LineNr">23017 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L23018" class="LineNr">23018 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23019" class="LineNr">23019 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: -<span id="L23020" class="LineNr">23020 </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="L23021" class="LineNr">23021 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L23022" class="LineNr">23022 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *(esi+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L23023" class="LineNr">23023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L23024" class="LineNr">23024 </span> } -<span id="L23025" class="LineNr">23025 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: -<span id="L23026" class="LineNr">23026 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23027" class="LineNr">23027 </span> 5e/pop-to-esi -<span id="L23028" class="LineNr">23028 </span> 59/pop-to-ecx -<span id="L23029" class="LineNr">23029 </span> 58/pop-to-eax -<span id="L23030" class="LineNr">23030 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23031" class="LineNr">23031 </span> 89/<- %esp 5/r32/ebp -<span id="L23032" class="LineNr">23032 </span> 5d/pop-to-ebp -<span id="L23033" class="LineNr">23033 </span> c3/return -<span id="L23034" class="LineNr">23034 </span> -<span id="L23035" class="LineNr">23035 </span><span class="subxComment"># xm32 is like rm32, except that direct mode uses floating-point registers.</span> -<span id="L23036" class="LineNr">23036 </span><span class="subxComment"># Indirect mode is the same.</span> -<span id="L23037" class="LineNr">23037 </span><span class="subxFunction">emit-subx-var-as-xm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L23038" class="LineNr">23038 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23039" class="LineNr">23039 </span> 55/push-ebp -<span id="L23040" class="LineNr">23040 </span> 89/<- %ebp 4/r32/esp -<span id="L23041" class="LineNr">23041 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23042" class="LineNr">23042 </span> 50/push-eax -<span id="L23043" class="LineNr">23043 </span> 51/push-ecx -<span id="L23044" class="LineNr">23044 </span> 56/push-esi -<span id="L23045" class="LineNr">23045 </span> <span class="subxComment"># ecx = s</span> -<span id="L23046" class="LineNr">23046 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L23047" class="LineNr">23047 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L23048" class="LineNr">23048 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23049" class="LineNr">23049 </span> 89/<- %esi 0/r32/eax -<span id="L23050" class="LineNr">23050 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L23051" class="LineNr">23051 </span> { -<span id="L23052" class="LineNr">23052 </span><span class="Constant">$emit-subx-var-as-xm32:check-for-register-indirect</span>: -<span id="L23053" class="LineNr">23053 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23054" class="LineNr">23054 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23055" class="LineNr">23055 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23056" class="LineNr">23056 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23057" class="LineNr">23057 </span><span class="Constant">$emit-subx-var-as-xm32:register-indirect</span>: -<span id="L23058" class="LineNr">23058 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L23059" class="LineNr">23059 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23060" class="LineNr">23060 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L23061" class="LineNr">23061 </span> e9/jump $emit-subx-var-as-xm32:end/disp32 -<span id="L23062" class="LineNr">23062 </span> } -<span id="L23063" class="LineNr">23063 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "3/mod __/xm32"</span> -<span id="L23064" class="LineNr">23064 </span> { -<span id="L23065" class="LineNr">23065 </span><span class="Constant">$emit-subx-var-as-xm32:check-for-register-direct</span>: -<span id="L23066" class="LineNr">23066 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23067" class="LineNr">23067 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23068" class="LineNr">23068 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23069" class="LineNr">23069 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23070" class="LineNr">23070 </span><span class="Constant">$emit-subx-var-as-xm32:register-direct</span>: -<span id="L23071" class="LineNr">23071 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 3/mod "</span>) -<span id="L23072" class="LineNr">23072 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23073" class="LineNr">23073 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L11027'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L23074" class="LineNr">23074 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L23075" class="LineNr">23075 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/xm32"</span>) -<span id="L23076" class="LineNr">23076 </span> e9/jump $emit-subx-var-as-xm32:end/disp32 -<span id="L23077" class="LineNr">23077 </span> } -<span id="L23078" class="LineNr">23078 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L23079" class="LineNr">23079 </span> { -<span id="L23080" class="LineNr">23080 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L22841" class="LineNr">22841 </span> 3d/compare-eax-and 3/imm32 +<span id="L22842" class="LineNr">22842 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22843" class="LineNr">22843 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: +<span id="L22844" class="LineNr">22844 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22845" class="LineNr">22845 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L22846" class="LineNr">22846 </span> } +<span id="L22847" class="LineNr">22847 </span> <span class="subxComment"># abort</span> +<span id="L22848" class="LineNr">22848 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 +<span id="L22849" class="LineNr">22849 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: +<span id="L22850" class="LineNr">22850 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22851" class="LineNr">22851 </span> 59/pop-to-ecx +<span id="L22852" class="LineNr">22852 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22853" class="LineNr">22853 </span> 89/<- %esp 5/r32/ebp +<span id="L22854" class="LineNr">22854 </span> 5d/pop-to-ebp +<span id="L22855" class="LineNr">22855 </span> c3/return +<span id="L22856" class="LineNr">22856 </span> +<span id="L22857" class="LineNr">22857 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: +<span id="L22858" class="LineNr">22858 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> +<span id="L22859" class="LineNr">22859 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) +<span id="L22860" class="LineNr">22860 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) +<span id="L22861" class="LineNr">22861 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) +<span id="L22862" class="LineNr">22862 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22863" class="LineNr">22863 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22864" class="LineNr">22864 </span> <span class="subxComment"># never gets here</span> +<span id="L22865" class="LineNr">22865 </span> +<span id="L22866" class="LineNr">22866 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L22867" class="LineNr">22867 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22868" class="LineNr">22868 </span> 55/push-ebp +<span id="L22869" class="LineNr">22869 </span> 89/<- %ebp 4/r32/esp +<span id="L22870" class="LineNr">22870 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22871" class="LineNr">22871 </span> 50/push-eax +<span id="L22872" class="LineNr">22872 </span> 51/push-ecx +<span id="L22873" class="LineNr">22873 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L22874" class="LineNr">22874 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22875" class="LineNr">22875 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 +<span id="L22876" class="LineNr">22876 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L22877" class="LineNr">22877 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L22878" class="LineNr">22878 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22879" class="LineNr">22879 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22880" class="LineNr">22880 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L22881" class="LineNr">22881 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L22882" class="LineNr">22882 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L22883" class="LineNr">22883 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L22884" class="LineNr">22884 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L22885" class="LineNr">22885 </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="L22886" class="LineNr">22886 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L22887" class="LineNr">22887 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) +<span id="L22888" class="LineNr">22888 </span><span class="Constant">$emit-subx-r32:end</span>: +<span id="L22889" class="LineNr">22889 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22890" class="LineNr">22890 </span> 59/pop-to-ecx +<span id="L22891" class="LineNr">22891 </span> 58/pop-to-eax +<span id="L22892" class="LineNr">22892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22893" class="LineNr">22893 </span> 89/<- %esp 5/r32/ebp +<span id="L22894" class="LineNr">22894 </span> 5d/pop-to-ebp +<span id="L22895" class="LineNr">22895 </span> c3/return +<span id="L22896" class="LineNr">22896 </span> +<span id="L22897" class="LineNr">22897 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L22898" class="LineNr">22898 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22899" class="LineNr">22899 </span> 55/push-ebp +<span id="L22900" class="LineNr">22900 </span> 89/<- %ebp 4/r32/esp +<span id="L22901" class="LineNr">22901 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22902" class="LineNr">22902 </span> 50/push-eax +<span id="L22903" class="LineNr">22903 </span> 51/push-ecx +<span id="L22904" class="LineNr">22904 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L22905" class="LineNr">22905 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22906" class="LineNr">22906 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 +<span id="L22907" class="LineNr">22907 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L22908" class="LineNr">22908 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L22909" class="LineNr">22909 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22910" class="LineNr">22910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22911" class="LineNr">22911 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L22912" class="LineNr">22912 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L22913" class="LineNr">22913 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L22914" class="LineNr">22914 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L22915" class="LineNr">22915 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L11131'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L22916" class="LineNr">22916 </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="L22917" class="LineNr">22917 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L22918" class="LineNr">22918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) +<span id="L22919" class="LineNr">22919 </span><span class="Constant">$emit-subx-x32:end</span>: +<span id="L22920" class="LineNr">22920 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22921" class="LineNr">22921 </span> 59/pop-to-ecx +<span id="L22922" class="LineNr">22922 </span> 58/pop-to-eax +<span id="L22923" class="LineNr">22923 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22924" class="LineNr">22924 </span> 89/<- %esp 5/r32/ebp +<span id="L22925" class="LineNr">22925 </span> 5d/pop-to-ebp +<span id="L22926" class="LineNr">22926 </span> c3/return +<span id="L22927" class="LineNr">22927 </span> +<span id="L22928" class="LineNr">22928 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L22929" class="LineNr">22929 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22930" class="LineNr">22930 </span> 55/push-ebp +<span id="L22931" class="LineNr">22931 </span> 89/<- %ebp 4/r32/esp +<span id="L22932" class="LineNr">22932 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22933" class="LineNr">22933 </span> 50/push-eax +<span id="L22934" class="LineNr">22934 </span> 51/push-ecx +<span id="L22935" class="LineNr">22935 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L22936" class="LineNr">22936 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22937" class="LineNr">22937 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L22938" class="LineNr">22938 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L22939" class="LineNr">22939 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L22940" class="LineNr">22940 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22941" class="LineNr">22941 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22942" class="LineNr">22942 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) +<span id="L22943" class="LineNr">22943 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L22944" class="LineNr">22944 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) +<span id="L22945" class="LineNr">22945 </span><span class="Constant">$emit-subx-imm32:end</span>: +<span id="L22946" class="LineNr">22946 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22947" class="LineNr">22947 </span> 59/pop-to-ecx +<span id="L22948" class="LineNr">22948 </span> 58/pop-to-eax +<span id="L22949" class="LineNr">22949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22950" class="LineNr">22950 </span> 89/<- %esp 5/r32/ebp +<span id="L22951" class="LineNr">22951 </span> 5d/pop-to-ebp +<span id="L22952" class="LineNr">22952 </span> c3/return +<span id="L22953" class="LineNr">22953 </span> +<span id="L22954" class="LineNr">22954 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L22955" class="LineNr">22955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22956" class="LineNr">22956 </span> 55/push-ebp +<span id="L22957" class="LineNr">22957 </span> 89/<- %ebp 4/r32/esp +<span id="L22958" class="LineNr">22958 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22959" class="LineNr">22959 </span> 50/push-eax +<span id="L22960" class="LineNr">22960 </span> 51/push-ecx +<span id="L22961" class="LineNr">22961 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L22962" class="LineNr">22962 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22963" class="LineNr">22963 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L22964" class="LineNr">22964 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L22965" class="LineNr">22965 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L22966" class="LineNr">22966 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22967" class="LineNr">22967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22968" class="LineNr">22968 </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="L22969" class="LineNr">22969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L22970" class="LineNr">22970 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) +<span id="L22971" class="LineNr">22971 </span><span class="Constant">$emit-subx-imm8:end</span>: +<span id="L22972" class="LineNr">22972 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22973" class="LineNr">22973 </span> 59/pop-to-ecx +<span id="L22974" class="LineNr">22974 </span> 58/pop-to-eax +<span id="L22975" class="LineNr">22975 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22976" class="LineNr">22976 </span> 89/<- %esp 5/r32/ebp +<span id="L22977" class="LineNr">22977 </span> 5d/pop-to-ebp +<span id="L22978" class="LineNr">22978 </span> c3/return +<span id="L22979" class="LineNr">22979 </span> +<span id="L22980" class="LineNr">22980 </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="L22981" class="LineNr">22981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22982" class="LineNr">22982 </span> 55/push-ebp +<span id="L22983" class="LineNr">22983 </span> 89/<- %ebp 4/r32/esp +<span id="L22984" class="LineNr">22984 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22985" class="LineNr">22985 </span> 50/push-eax +<span id="L22986" class="LineNr">22986 </span> 51/push-ecx +<span id="L22987" class="LineNr">22987 </span> <span class="subxComment"># if (location == 0) return</span> +<span id="L22988" class="LineNr">22988 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L22989" class="LineNr">22989 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 +<span id="L22990" class="LineNr">22990 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L22991" class="LineNr">22991 </span> (<a href='mu.subx.html#L22812'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L22992" class="LineNr">22992 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22993" class="LineNr">22993 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22994" class="LineNr">22994 </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="L22995" class="LineNr">22995 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L22996" class="LineNr">22996 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> +<span id="L22997" class="LineNr">22997 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L22998" class="LineNr">22998 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L22999" class="LineNr">22999 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23000" class="LineNr">23000 </span> 89/<- %ecx 0/r32/eax +<span id="L23001" class="LineNr">23001 </span> { +<span id="L23002" class="LineNr">23002 </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="L23003" class="LineNr">23003 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23004" class="LineNr">23004 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23005" class="LineNr">23005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) +<span id="L23006" class="LineNr">23006 </span> } +<span id="L23007" class="LineNr">23007 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> +<span id="L23008" class="LineNr">23008 </span> { +<span id="L23009" class="LineNr">23009 </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="L23010" class="LineNr">23010 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23011" class="LineNr">23011 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23012" class="LineNr">23012 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) +<span id="L23013" class="LineNr">23013 </span> } +<span id="L23014" class="LineNr">23014 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) +<span id="L23015" class="LineNr">23015 </span><span class="Constant">$emit-subx-disp32:end</span>: +<span id="L23016" class="LineNr">23016 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23017" class="LineNr">23017 </span> 59/pop-to-ecx +<span id="L23018" class="LineNr">23018 </span> 58/pop-to-eax +<span id="L23019" class="LineNr">23019 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23020" class="LineNr">23020 </span> 89/<- %esp 5/r32/ebp +<span id="L23021" class="LineNr">23021 </span> 5d/pop-to-ebp +<span id="L23022" class="LineNr">23022 </span> c3/return +<span id="L23023" class="LineNr">23023 </span> +<span id="L23024" class="LineNr">23024 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L23025" class="LineNr">23025 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23026" class="LineNr">23026 </span> 55/push-ebp +<span id="L23027" class="LineNr">23027 </span> 89/<- %ebp 4/r32/esp +<span id="L23028" class="LineNr">23028 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23029" class="LineNr">23029 </span> 50/push-eax +<span id="L23030" class="LineNr">23030 </span> 51/push-ecx +<span id="L23031" class="LineNr">23031 </span> <span class="subxComment">#</span> +<span id="L23032" class="LineNr">23032 </span> (<a href='mu.subx.html#L26207'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span>) +<span id="L23033" class="LineNr">23033 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) +<span id="L23034" class="LineNr">23034 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L23035" class="LineNr">23035 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23036" class="LineNr">23036 </span> <span class="subxH1Comment"># - emit function name</span> +<span id="L23037" class="LineNr">23037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23038" class="LineNr">23038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L23039" class="LineNr">23039 </span> <span class="subxH1Comment"># - emit arguments</span> +<span id="L23040" class="LineNr">23040 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L23041" class="LineNr">23041 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23042" class="LineNr">23042 </span> { +<span id="L23043" class="LineNr">23043 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L23044" class="LineNr">23044 </span> 3d/compare-eax-and 0/imm32 +<span id="L23045" class="LineNr">23045 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23046" class="LineNr">23046 </span> <span class="subxComment">#</span> +<span id="L23047" class="LineNr">23047 </span> (<a href='mu.subx.html#L23063'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L23048" class="LineNr">23048 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L23049" class="LineNr">23049 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23050" class="LineNr">23050 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L23051" class="LineNr">23051 </span> } +<span id="L23052" class="LineNr">23052 </span> <span class="subxComment">#</span> +<span id="L23053" class="LineNr">23053 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L23054" class="LineNr">23054 </span><span class="Constant">$emit-call:end</span>: +<span id="L23055" class="LineNr">23055 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23056" class="LineNr">23056 </span> 59/pop-to-ecx +<span id="L23057" class="LineNr">23057 </span> 58/pop-to-eax +<span id="L23058" class="LineNr">23058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23059" class="LineNr">23059 </span> 89/<- %esp 5/r32/ebp +<span id="L23060" class="LineNr">23060 </span> 5d/pop-to-ebp +<span id="L23061" class="LineNr">23061 </span> c3/return +<span id="L23062" class="LineNr">23062 </span> +<span id="L23063" class="LineNr">23063 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L23064" class="LineNr">23064 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> +<span id="L23065" class="LineNr">23065 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23066" class="LineNr">23066 </span> 55/push-ebp +<span id="L23067" class="LineNr">23067 </span> 89/<- %ebp 4/r32/esp +<span id="L23068" class="LineNr">23068 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23069" class="LineNr">23069 </span> 50/push-eax +<span id="L23070" class="LineNr">23070 </span> 51/push-ecx +<span id="L23071" class="LineNr">23071 </span> 56/push-esi +<span id="L23072" class="LineNr">23072 </span> <span class="subxComment"># ecx = s</span> +<span id="L23073" class="LineNr">23073 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23074" class="LineNr">23074 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L23075" class="LineNr">23075 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23076" class="LineNr">23076 </span> 89/<- %esi 0/r32/eax +<span id="L23077" class="LineNr">23077 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L23078" class="LineNr">23078 </span> { +<span id="L23079" class="LineNr">23079 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: +<span id="L23080" class="LineNr">23080 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> <span id="L23081" class="LineNr">23081 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23082" class="LineNr">23082 </span><span class="Constant">$emit-subx-var-as-xm32:stack</span>: -<span id="L23083" class="LineNr">23083 </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="L23084" class="LineNr">23084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L23085" class="LineNr">23085 </span> (<a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a> *(ebp+8) *(esi+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L23086" class="LineNr">23086 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L23087" class="LineNr">23087 </span> } -<span id="L23088" class="LineNr">23088 </span><span class="Constant">$emit-subx-var-as-xm32:end</span>: -<span id="L23089" class="LineNr">23089 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23090" class="LineNr">23090 </span> 5e/pop-to-esi -<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="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> -<span id="L23099" class="LineNr">23099 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23100" class="LineNr">23100 </span> 55/push-ebp -<span id="L23101" class="LineNr">23101 </span> 89/<- %ebp 4/r32/esp -<span id="L23102" class="LineNr">23102 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23103" class="LineNr">23103 </span> 51/push-ecx -<span id="L23104" class="LineNr">23104 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> -<span id="L23105" class="LineNr">23105 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23106" class="LineNr">23106 </span> { -<span id="L23107" class="LineNr">23107 </span><span class="Constant">$find-matching-primitive:loop</span>: -<span id="L23108" class="LineNr">23108 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L23109" class="LineNr">23109 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23110" class="LineNr">23110 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23111" class="LineNr">23111 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> -<span id="L23112" class="LineNr">23112 </span> { -<span id="L23113" class="LineNr">23113 </span> (<a href='mu.subx.html#L23136'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L23114" class="LineNr">23114 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23115" class="LineNr">23115 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23116" class="LineNr">23116 </span> 89/<- %eax 1/r32/ecx -<span id="L23117" class="LineNr">23117 </span> eb/jump $find-matching-primitive:end/disp8 -<span id="L23118" class="LineNr">23118 </span> } -<span id="L23119" class="LineNr">23119 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: -<span id="L23120" class="LineNr">23120 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23121" class="LineNr">23121 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L23122" class="LineNr">23122 </span> 89/<- %ecx 0/r32/eax -<span id="L23123" class="LineNr">23123 </span> <span class="subxComment">#</span> -<span id="L23124" class="LineNr">23124 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23125" class="LineNr">23125 </span> } -<span id="L23126" class="LineNr">23126 </span> <span class="subxComment"># return null</span> -<span id="L23127" class="LineNr">23127 </span> b8/copy-to-eax 0/imm32 -<span id="L23128" class="LineNr">23128 </span><span class="Constant">$find-matching-primitive:end</span>: -<span id="L23129" class="LineNr">23129 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23130" class="LineNr">23130 </span> 59/pop-to-ecx -<span id="L23131" class="LineNr">23131 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23132" class="LineNr">23132 </span> 89/<- %esp 5/r32/ebp -<span id="L23133" class="LineNr">23133 </span> 5d/pop-to-ebp -<span id="L23134" class="LineNr">23134 </span> c3/return -<span id="L23135" class="LineNr">23135 </span> -<span id="L23136" class="LineNr">23136 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> -<span id="L23137" class="LineNr">23137 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> -<span id="L23138" class="LineNr">23138 </span> <span class="subxComment"># match, and all the output vars match.</span> -<span id="L23139" class="LineNr">23139 </span> <span class="subxComment"># Vars match if types match and registers match.</span> -<span id="L23140" class="LineNr">23140 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> -<span id="L23141" class="LineNr">23141 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> -<span id="L23142" class="LineNr">23142 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23143" class="LineNr">23143 </span> 55/push-ebp -<span id="L23144" class="LineNr">23144 </span> 89/<- %ebp 4/r32/esp -<span id="L23145" class="LineNr">23145 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23146" class="LineNr">23146 </span> 51/push-ecx -<span id="L23147" class="LineNr">23147 </span> 52/push-edx -<span id="L23148" class="LineNr">23148 </span> 53/push-ebx -<span id="L23149" class="LineNr">23149 </span> 56/push-esi -<span id="L23150" class="LineNr">23150 </span> 57/push-edi -<span id="L23151" class="LineNr">23151 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L23152" class="LineNr">23152 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23153" class="LineNr">23153 </span> <span class="subxComment"># edx = primitive</span> -<span id="L23154" class="LineNr">23154 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L23155" class="LineNr">23155 </span> { -<span id="L23156" class="LineNr">23156 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: -<span id="L23157" class="LineNr">23157 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> -<span id="L23158" class="LineNr">23158 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L23159" class="LineNr">23159 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23160" class="LineNr">23160 </span> 89/<- %esi 0/r32/eax -<span id="L23161" class="LineNr">23161 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> -<span id="L23162" class="LineNr">23162 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L23163" class="LineNr">23163 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L23164" class="LineNr">23164 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23165" class="LineNr">23165 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23166" class="LineNr">23166 </span> 89/<- %edi 0/r32/eax -<span id="L23167" class="LineNr">23167 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L23168" class="LineNr">23168 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23169" class="LineNr">23169 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23170" class="LineNr">23170 </span> b8/copy-to-eax 0/imm32 -<span id="L23171" class="LineNr">23171 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23172" class="LineNr">23172 </span> } -<span id="L23173" class="LineNr">23173 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L23174" class="LineNr">23174 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23175" class="LineNr">23175 </span> 89/<- %esi 0/r32/eax -<span id="L23176" class="LineNr">23176 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> -<span id="L23177" class="LineNr">23177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> -<span id="L23178" class="LineNr">23178 </span> 89/<- %edi 0/r32/eax -<span id="L23179" class="LineNr">23179 </span> { -<span id="L23180" class="LineNr">23180 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: -<span id="L23181" class="LineNr">23181 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> -<span id="L23182" class="LineNr">23182 </span> { -<span id="L23183" class="LineNr">23183 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: -<span id="L23184" class="LineNr">23184 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23185" class="LineNr">23185 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23186" class="LineNr">23186 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: -<span id="L23187" class="LineNr">23187 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23188" class="LineNr">23188 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 -<span id="L23189" class="LineNr">23189 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: -<span id="L23190" class="LineNr">23190 </span> <span class="subxComment"># return false</span> -<span id="L23191" class="LineNr">23191 </span> b8/copy-to-eax 0/imm32/false -<span id="L23192" class="LineNr">23192 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23193" class="LineNr">23193 </span> } -<span id="L23194" class="LineNr">23194 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L23195" class="LineNr">23195 </span> { -<span id="L23196" class="LineNr">23196 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: -<span id="L23197" class="LineNr">23197 </span> 81 7/subop/compare %edi 0/imm32 -<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">$mu-stmt-matches-primitive?:prim-inout-null</span>: -<span id="L23200" class="LineNr">23200 </span> b8/copy-to-eax 0/imm32/false -<span id="L23201" class="LineNr">23201 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23202" class="LineNr">23202 </span> } -<span id="L23203" class="LineNr">23203 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L23204" class="LineNr">23204 </span> { -<span id="L23205" class="LineNr">23205 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: -<span id="L23206" class="LineNr">23206 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23207" class="LineNr">23207 </span> (<a href='mu.subx.html#L23296'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L23208" class="LineNr">23208 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23209" class="LineNr">23209 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23210" class="LineNr">23210 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: -<span id="L23211" class="LineNr">23211 </span> b8/copy-to-eax 0/imm32/false -<span id="L23212" class="LineNr">23212 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23213" class="LineNr">23213 </span> } -<span id="L23214" class="LineNr">23214 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: -<span id="L23215" class="LineNr">23215 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L23216" class="LineNr">23216 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23217" class="LineNr">23217 </span> 89/<- %esi 0/r32/eax -<span id="L23218" class="LineNr">23218 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L23219" class="LineNr">23219 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23220" class="LineNr">23220 </span> 89/<- %edi 0/r32/eax -<span id="L23221" class="LineNr">23221 </span> <span class="subxComment">#</span> -<span id="L23222" class="LineNr">23222 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23223" class="LineNr">23223 </span> } -<span id="L23224" class="LineNr">23224 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: -<span id="L23225" class="LineNr">23225 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L23226" class="LineNr">23226 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23227" class="LineNr">23227 </span> 89/<- %esi 0/r32/eax -<span id="L23228" class="LineNr">23228 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> -<span id="L23229" class="LineNr">23229 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> -<span id="L23230" class="LineNr">23230 </span> 89/<- %edi 0/r32/eax -<span id="L23231" class="LineNr">23231 </span> { -<span id="L23232" class="LineNr">23232 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: -<span id="L23233" class="LineNr">23233 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> -<span id="L23234" class="LineNr">23234 </span> { -<span id="L23235" class="LineNr">23235 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: -<span id="L23236" class="LineNr">23236 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23237" class="LineNr">23237 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23238" class="LineNr">23238 </span> { -<span id="L23239" class="LineNr">23239 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: -<span id="L23240" class="LineNr">23240 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23241" class="LineNr">23241 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23242" class="LineNr">23242 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: -<span id="L23243" class="LineNr">23243 </span> <span class="subxComment"># return true</span> -<span id="L23244" class="LineNr">23244 </span> b8/copy-to-eax 1/imm32 -<span id="L23245" class="LineNr">23245 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23246" class="LineNr">23246 </span> } -<span id="L23247" class="LineNr">23247 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: -<span id="L23248" class="LineNr">23248 </span> <span class="subxComment"># return false</span> -<span id="L23249" class="LineNr">23249 </span> b8/copy-to-eax 0/imm32 -<span id="L23250" class="LineNr">23250 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23251" class="LineNr">23251 </span> } -<span id="L23252" class="LineNr">23252 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L23253" class="LineNr">23253 </span> { -<span id="L23254" class="LineNr">23254 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: -<span id="L23255" class="LineNr">23255 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23256" class="LineNr">23256 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23257" class="LineNr">23257 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: -<span id="L23258" class="LineNr">23258 </span> b8/copy-to-eax 0/imm32 -<span id="L23259" class="LineNr">23259 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23260" class="LineNr">23260 </span> } -<span id="L23261" class="LineNr">23261 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L23262" class="LineNr">23262 </span> { -<span id="L23263" class="LineNr">23263 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: -<span id="L23264" class="LineNr">23264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23265" class="LineNr">23265 </span> (<a href='mu.subx.html#L23296'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L23266" class="LineNr">23266 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23267" class="LineNr">23267 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23268" class="LineNr">23268 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: -<span id="L23269" class="LineNr">23269 </span> b8/copy-to-eax 0/imm32 -<span id="L23270" class="LineNr">23270 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L23271" class="LineNr">23271 </span> } -<span id="L23272" class="LineNr">23272 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: -<span id="L23273" class="LineNr">23273 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L23274" class="LineNr">23274 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23275" class="LineNr">23275 </span> 89/<- %esi 0/r32/eax -<span id="L23276" class="LineNr">23276 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L23277" class="LineNr">23277 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23278" class="LineNr">23278 </span> 89/<- %edi 0/r32/eax -<span id="L23279" class="LineNr">23279 </span> <span class="subxComment">#</span> -<span id="L23280" class="LineNr">23280 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23281" class="LineNr">23281 </span> } -<span id="L23282" class="LineNr">23282 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: -<span id="L23283" class="LineNr">23283 </span> b8/copy-to-eax 1/imm32 -<span id="L23284" class="LineNr">23284 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: -<span id="L23285" class="LineNr">23285 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23286" class="LineNr">23286 </span> 5f/pop-to-edi -<span id="L23287" class="LineNr">23287 </span> 5e/pop-to-esi -<span id="L23288" class="LineNr">23288 </span> 5b/pop-to-ebx -<span id="L23289" class="LineNr">23289 </span> 5a/pop-to-edx -<span id="L23290" class="LineNr">23290 </span> 59/pop-to-ecx -<span id="L23291" class="LineNr">23291 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23292" class="LineNr">23292 </span> 89/<- %esp 5/r32/ebp -<span id="L23293" class="LineNr">23293 </span> 5d/pop-to-ebp -<span id="L23294" class="LineNr">23294 </span> c3/return -<span id="L23295" class="LineNr">23295 </span> -<span id="L23296" class="LineNr">23296 </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="L23297" class="LineNr">23297 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23298" class="LineNr">23298 </span> 55/push-ebp -<span id="L23299" class="LineNr">23299 </span> 89/<- %ebp 4/r32/esp -<span id="L23300" class="LineNr">23300 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23301" class="LineNr">23301 </span> 51/push-ecx -<span id="L23302" class="LineNr">23302 </span> 52/push-edx -<span id="L23303" class="LineNr">23303 </span> 53/push-ebx -<span id="L23304" class="LineNr">23304 </span> 56/push-esi -<span id="L23305" class="LineNr">23305 </span> 57/push-edi -<span id="L23306" class="LineNr">23306 </span> <span class="subxComment"># ecx = s</span> -<span id="L23307" class="LineNr">23307 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23308" class="LineNr">23308 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> -<span id="L23309" class="LineNr">23309 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23310" class="LineNr">23310 </span> 89/<- %esi 0/r32/eax -<span id="L23311" class="LineNr">23311 </span> <span class="subxComment"># edi = prim-var</span> -<span id="L23312" class="LineNr">23312 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L23313" class="LineNr">23313 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: -<span id="L23314" class="LineNr">23314 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> -<span id="L23315" class="LineNr">23315 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> -<span id="L23316" class="LineNr">23316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23317" class="LineNr">23317 </span> 89/<- %ebx 0/r32/eax -<span id="L23318" class="LineNr">23318 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> -<span id="L23319" class="LineNr">23319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23320" class="LineNr">23320 </span> (<a href='mu.subx.html#L23457'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L23321" class="LineNr">23321 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23322" class="LineNr">23322 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 -<span id="L23323" class="LineNr">23323 </span> { -<span id="L23324" class="LineNr">23324 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: -<span id="L23325" class="LineNr">23325 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> -<span id="L23326" class="LineNr">23326 </span> { -<span id="L23327" class="LineNr">23327 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23328" class="LineNr">23328 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L23329" class="LineNr">23329 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23330" class="LineNr">23330 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23331" class="LineNr">23331 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23332" class="LineNr">23332 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23333" class="LineNr">23333 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: -<span id="L23334" class="LineNr">23334 </span> e9/jump $operand-matches-primitive?:return-true/disp32 -<span id="L23335" class="LineNr">23335 </span> } -<span id="L23336" class="LineNr">23336 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> -<span id="L23337" class="LineNr">23337 </span> { -<span id="L23338" class="LineNr">23338 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23339" class="LineNr">23339 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23340" class="LineNr">23340 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23341" class="LineNr">23341 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23342" class="LineNr">23342 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23343" class="LineNr">23343 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23344" class="LineNr">23344 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: -<span id="L23345" class="LineNr">23345 </span> e9/jump $operand-matches-primitive?:return-false/disp32 -<span id="L23346" class="LineNr">23346 </span> } -<span id="L23347" class="LineNr">23347 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> -<span id="L23348" class="LineNr">23348 </span> { -<span id="L23349" class="LineNr">23349 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> -<span id="L23350" class="LineNr">23350 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> -<span id="L23351" class="LineNr">23351 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23352" class="LineNr">23352 </span> 89/<- %ebx 0/r32/eax -<span id="L23353" class="LineNr">23353 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> -<span id="L23354" class="LineNr">23354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23355" class="LineNr">23355 </span> 89/<- %ecx 0/r32/eax -<span id="L23356" class="LineNr">23356 </span> <span class="subxComment"># if (vreg == preg) break</span> -<span id="L23357" class="LineNr">23357 </span> 39/compare %ecx 3/r32/ebx -<span id="L23358" class="LineNr">23358 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23359" class="LineNr">23359 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: -<span id="L23360" class="LineNr">23360 </span> <span class="subxComment"># if either address is 0, return false</span> -<span id="L23361" class="LineNr">23361 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L23362" class="LineNr">23362 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L23363" class="LineNr">23363 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23364" class="LineNr">23364 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L23365" class="LineNr">23365 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> -<span id="L23366" class="LineNr">23366 </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="L23367" class="LineNr">23367 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23368" class="LineNr">23368 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23369" class="LineNr">23369 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: -<span id="L23370" class="LineNr">23370 </span> <span class="subxComment"># if string contents aren't equal, return false</span> -<span id="L23371" class="LineNr">23371 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <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> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L23374" class="LineNr">23374 </span> } -<span id="L23375" class="LineNr">23375 </span> } -<span id="L23376" class="LineNr">23376 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: -<span id="L23377" class="LineNr">23377 </span> b8/copy-to-eax 1/imm32/true -<span id="L23378" class="LineNr">23378 </span> eb/jump $operand-matches-primitive?:end/disp8 -<span id="L23379" class="LineNr">23379 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: -<span id="L23380" class="LineNr">23380 </span> b8/copy-to-eax 0/imm32/false -<span id="L23381" class="LineNr">23381 </span><span class="Constant">$operand-matches-primitive?:end</span>: -<span id="L23382" class="LineNr">23382 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23383" class="LineNr">23383 </span> 5f/pop-to-edi -<span id="L23384" class="LineNr">23384 </span> 5e/pop-to-esi -<span id="L23385" class="LineNr">23385 </span> 5b/pop-to-ebx -<span id="L23386" class="LineNr">23386 </span> 5a/pop-to-edx -<span id="L23387" class="LineNr">23387 </span> 59/pop-to-ecx -<span id="L23388" class="LineNr">23388 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23389" class="LineNr">23389 </span> 89/<- %esp 5/r32/ebp -<span id="L23390" class="LineNr">23390 </span> 5d/pop-to-ebp -<span id="L23391" class="LineNr">23391 </span> c3/return -<span id="L23392" class="LineNr">23392 </span> -<span id="L23393" class="LineNr">23393 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> -<span id="L23394" class="LineNr">23394 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23395" class="LineNr">23395 </span> 55/push-ebp -<span id="L23396" class="LineNr">23396 </span> 89/<- %ebp 4/r32/esp -<span id="L23397" class="LineNr">23397 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23398" class="LineNr">23398 </span> 51/push-ecx -<span id="L23399" class="LineNr">23399 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> -<span id="L23400" class="LineNr">23400 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23401" class="LineNr">23401 </span> { -<span id="L23402" class="LineNr">23402 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L23403" class="LineNr">23403 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23404" class="LineNr">23404 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23405" class="LineNr">23405 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> -<span id="L23406" class="LineNr">23406 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23407" class="LineNr">23407 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> -<span id="L23408" class="LineNr">23408 </span> { -<span id="L23409" class="LineNr">23409 </span> (<a href='mu.subx.html#L23432'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L23410" class="LineNr">23410 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23411" class="LineNr">23411 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23412" class="LineNr">23412 </span> 89/<- %eax 1/r32/ecx -<span id="L23413" class="LineNr">23413 </span> eb/jump $find-matching-function:end/disp8 -<span id="L23414" class="LineNr">23414 </span> } -<span id="L23415" class="LineNr">23415 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23416" class="LineNr">23416 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L23417" class="LineNr">23417 </span> 89/<- %ecx 0/r32/eax -<span id="L23418" class="LineNr">23418 </span> <span class="subxComment">#</span> -<span id="L23419" class="LineNr">23419 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L23420" class="LineNr">23420 </span> } -<span id="L23421" class="LineNr">23421 </span> <span class="subxComment"># return null</span> -<span id="L23422" class="LineNr">23422 </span> b8/copy-to-eax 0/imm32 -<span id="L23423" class="LineNr">23423 </span><span class="Constant">$find-matching-function:end</span>: -<span id="L23424" class="LineNr">23424 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23425" class="LineNr">23425 </span> 59/pop-to-ecx -<span id="L23426" class="LineNr">23426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23427" class="LineNr">23427 </span> 89/<- %esp 5/r32/ebp -<span id="L23428" class="LineNr">23428 </span> 5d/pop-to-ebp -<span id="L23429" class="LineNr">23429 </span> c3/return -<span id="L23430" class="LineNr">23430 </span> -<span id="L23431" class="LineNr">23431 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> -<span id="L23432" class="LineNr">23432 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> -<span id="L23433" class="LineNr">23433 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23434" class="LineNr">23434 </span> 55/push-ebp -<span id="L23435" class="LineNr">23435 </span> 89/<- %ebp 4/r32/esp -<span id="L23436" class="LineNr">23436 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23437" class="LineNr">23437 </span> 51/push-ecx -<span id="L23438" class="LineNr">23438 </span> <span class="subxComment"># return function->name == stmt->operation</span> -<span id="L23439" class="LineNr">23439 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L23440" class="LineNr">23440 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23441" class="LineNr">23441 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23442" class="LineNr">23442 </span> 89/<- %ecx 0/r32/eax -<span id="L23443" class="LineNr">23443 </span> <span class="subxComment"># eax = lookup(function->name)</span> -<span id="L23444" class="LineNr">23444 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23445" class="LineNr">23445 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23446" class="LineNr">23446 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> -<span id="L23447" class="LineNr">23447 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: -<span id="L23448" class="LineNr">23448 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23449" class="LineNr">23449 </span> 59/pop-to-ecx -<span id="L23450" class="LineNr">23450 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23451" class="LineNr">23451 </span> 89/<- %esp 5/r32/ebp -<span id="L23452" class="LineNr">23452 </span> 5d/pop-to-ebp -<span id="L23453" class="LineNr">23453 </span> c3/return -<span id="L23454" class="LineNr">23454 </span> -<span id="L23455" class="LineNr">23455 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> -<span id="L23456" class="LineNr">23456 </span><span class="subxComment"># primitives.</span> -<span id="L23457" class="LineNr">23457 </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="L23458" class="LineNr">23458 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23459" class="LineNr">23459 </span> 55/push-ebp -<span id="L23460" class="LineNr">23460 </span> 89/<- %ebp 4/r32/esp -<span id="L23461" class="LineNr">23461 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23462" class="LineNr">23462 </span> 51/push-ecx -<span id="L23463" class="LineNr">23463 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> -<span id="L23464" class="LineNr">23464 </span> (<a href='mu.subx.html#L23480'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23465" class="LineNr">23465 </span> 89/<- %ecx 0/r32/eax -<span id="L23466" class="LineNr">23466 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> -<span id="L23467" class="LineNr">23467 </span> (<a href='mu.subx.html#L23480'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L23468" class="LineNr">23468 </span> <span class="subxComment"># return cata == catb</span> -<span id="L23469" class="LineNr">23469 </span> 39/compare %eax 1/r32/ecx -<span id="L23470" class="LineNr">23470 </span> 0f 94/set-byte-if-= %al -<span id="L23471" class="LineNr">23471 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L23472" class="LineNr">23472 </span><span class="Constant">$subx-type-category-match?:end</span>: -<span id="L23473" class="LineNr">23473 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23474" class="LineNr">23474 </span> 59/pop-to-ecx -<span id="L23475" class="LineNr">23475 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23476" class="LineNr">23476 </span> 89/<- %esp 5/r32/ebp -<span id="L23477" class="LineNr">23477 </span> 5d/pop-to-ebp -<span id="L23478" class="LineNr">23478 </span> c3/return -<span id="L23479" class="LineNr">23479 </span> -<span id="L23480" class="LineNr">23480 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L23481" class="LineNr">23481 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23482" class="LineNr">23482 </span> 55/push-ebp -<span id="L23483" class="LineNr">23483 </span> 89/<- %ebp 4/r32/esp -<span id="L23484" class="LineNr">23484 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23485" class="LineNr">23485 </span> 51/push-ecx -<span id="L23486" class="LineNr">23486 </span> <span class="subxComment"># var lit?/ecx: boolean = is-literal-type?(a)</span> -<span id="L23487" class="LineNr">23487 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># => eax</span> -<span id="L23488" class="LineNr">23488 </span> 89/<- %ecx 0/r32/eax -<span id="L23489" class="LineNr">23489 </span> <span class="subxComment"># var float?/eax: int = is-float?(a)</span> -<span id="L23490" class="LineNr">23490 </span> (<a href='mu.subx.html#L23502'>is-simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> -<span id="L23491" class="LineNr">23491 </span> <span class="subxComment"># set bits for lit? and float?</span> -<span id="L23492" class="LineNr">23492 </span> c1/shift 4/subop/left %ecx 1/imm8 -<span id="L23493" class="LineNr">23493 </span> 09/or %eax 1/r32/ecx -<span id="L23494" class="LineNr">23494 </span><span class="Constant">$type-category:end</span>: -<span id="L23495" class="LineNr">23495 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23496" class="LineNr">23496 </span> 59/pop-to-ecx -<span id="L23497" class="LineNr">23497 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23498" class="LineNr">23498 </span> 89/<- %esp 5/r32/ebp -<span id="L23499" class="LineNr">23499 </span> 5d/pop-to-ebp -<span id="L23500" class="LineNr">23500 </span> c3/return -<span id="L23501" class="LineNr">23501 </span> -<span id="L23502" class="LineNr">23502 </span><span class="subxFunction">is-simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L23503" class="LineNr">23503 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23504" class="LineNr">23504 </span> 55/push-ebp -<span id="L23505" class="LineNr">23505 </span> 89/<- %ebp 4/r32/esp -<span id="L23506" class="LineNr">23506 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23507" class="LineNr">23507 </span> 51/push-ecx -<span id="L23508" class="LineNr">23508 </span> <span class="subxComment"># ecx = n</span> -<span id="L23509" class="LineNr">23509 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L23510" class="LineNr">23510 </span> <span class="subxComment"># return (a->value == n)</span> -<span id="L23511" class="LineNr">23511 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23512" class="LineNr">23512 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L23513" class="LineNr">23513 </span> 0f 94/set-byte-if-= %al -<span id="L23514" class="LineNr">23514 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L23515" class="LineNr">23515 </span><span class="Constant">$is-simple-mu-type?:end</span>: -<span id="L23516" class="LineNr">23516 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23517" class="LineNr">23517 </span> 59/pop-to-ecx -<span id="L23518" class="LineNr">23518 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23519" class="LineNr">23519 </span> 89/<- %esp 5/r32/ebp -<span id="L23520" class="LineNr">23520 </span> 5d/pop-to-ebp -<span id="L23521" class="LineNr">23521 </span> c3/return -<span id="L23522" class="LineNr">23522 </span> -<span id="L23523" class="LineNr">23523 </span><span class="subxFunction">is-mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L23524" class="LineNr">23524 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23525" class="LineNr">23525 </span> 55/push-ebp -<span id="L23526" class="LineNr">23526 </span> 89/<- %ebp 4/r32/esp -<span id="L23527" class="LineNr">23527 </span> <span class="subxComment"># eax = a</span> -<span id="L23528" class="LineNr">23528 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23529" class="LineNr">23529 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L23530" class="LineNr">23530 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23531" class="LineNr">23531 </span> { -<span id="L23532" class="LineNr">23532 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23533" class="LineNr">23533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23534" class="LineNr">23534 </span> } -<span id="L23535" class="LineNr">23535 </span> <span class="subxComment"># return (a->value == addr)</span> -<span id="L23536" class="LineNr">23536 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> -<span id="L23537" class="LineNr">23537 </span> 0f 94/set-byte-if-= %al -<span id="L23538" class="LineNr">23538 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L23539" class="LineNr">23539 </span><span class="Constant">$is-mu-addr-type?:end</span>: -<span id="L23540" class="LineNr">23540 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23541" class="LineNr">23541 </span> 89/<- %esp 5/r32/ebp -<span id="L23542" class="LineNr">23542 </span> 5d/pop-to-ebp -<span id="L23543" class="LineNr">23543 </span> c3/return -<span id="L23544" class="LineNr">23544 </span> -<span id="L23545" class="LineNr">23545 </span><span class="subxFunction">is-mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L23546" class="LineNr">23546 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23547" class="LineNr">23547 </span> 55/push-ebp -<span id="L23548" class="LineNr">23548 </span> 89/<- %ebp 4/r32/esp -<span id="L23549" class="LineNr">23549 </span> <span class="subxComment"># eax = a</span> -<span id="L23550" class="LineNr">23550 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23551" class="LineNr">23551 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L23552" class="LineNr">23552 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23553" class="LineNr">23553 </span> { -<span id="L23554" class="LineNr">23554 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23555" class="LineNr">23555 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23556" class="LineNr">23556 </span> } -<span id="L23557" class="LineNr">23557 </span> <span class="subxComment"># return (a->value == array)</span> -<span id="L23558" class="LineNr">23558 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> -<span id="L23559" class="LineNr">23559 </span> 0f 94/set-byte-if-= %al -<span id="L23560" class="LineNr">23560 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L23561" class="LineNr">23561 </span><span class="Constant">$is-mu-array-type?:end</span>: -<span id="L23562" class="LineNr">23562 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23563" class="LineNr">23563 </span> 89/<- %esp 5/r32/ebp -<span id="L23564" class="LineNr">23564 </span> 5d/pop-to-ebp -<span id="L23565" class="LineNr">23565 </span> c3/return -<span id="L23566" class="LineNr">23566 </span> -<span id="L23567" class="LineNr">23567 </span><span class="subxFunction">is-mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L23568" class="LineNr">23568 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23569" class="LineNr">23569 </span> 55/push-ebp -<span id="L23570" class="LineNr">23570 </span> 89/<- %ebp 4/r32/esp -<span id="L23571" class="LineNr">23571 </span> <span class="subxComment"># eax = a</span> -<span id="L23572" class="LineNr">23572 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23573" class="LineNr">23573 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L23574" class="LineNr">23574 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23575" class="LineNr">23575 </span> { -<span id="L23576" class="LineNr">23576 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23577" class="LineNr">23577 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23578" class="LineNr">23578 </span> } -<span id="L23579" class="LineNr">23579 </span> <span class="subxComment"># return (a->value == stream)</span> -<span id="L23580" class="LineNr">23580 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> -<span id="L23581" class="LineNr">23581 </span> 0f 94/set-byte-if-= %al -<span id="L23582" class="LineNr">23582 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L23583" class="LineNr">23583 </span><span class="Constant">$is-mu-stream-type?:end</span>: -<span id="L23584" class="LineNr">23584 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23585" class="LineNr">23585 </span> 89/<- %esp 5/r32/ebp -<span id="L23586" class="LineNr">23586 </span> 5d/pop-to-ebp -<span id="L23587" class="LineNr">23587 </span> c3/return -<span id="L23588" class="LineNr">23588 </span> -<span id="L23589" class="LineNr">23589 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: -<span id="L23590" class="LineNr">23590 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> -<span id="L23591" class="LineNr">23591 </span> <span class="subxComment"># increment foo</span> -<span id="L23592" class="LineNr">23592 </span> <span class="subxComment"># =></span> -<span id="L23593" class="LineNr">23593 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> -<span id="L23594" class="LineNr">23594 </span> <span class="subxComment">#</span> -<span id="L23595" class="LineNr">23595 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L23596" class="LineNr">23596 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L23597" class="LineNr">23597 </span> <span class="subxComment"># type: int</span> -<span id="L23598" class="LineNr">23598 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L23599" class="LineNr">23599 </span> <span class="subxComment">#</span> -<span id="L23600" class="LineNr">23600 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L23601" class="LineNr">23601 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L23602" class="LineNr">23602 </span> <span class="subxComment"># inouts: int/mem</span> -<span id="L23603" class="LineNr">23603 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L23604" class="LineNr">23604 </span> <span class="subxComment">#</span> -<span id="L23605" class="LineNr">23605 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23606" class="LineNr">23606 </span> 55/push-ebp -<span id="L23607" class="LineNr">23607 </span> 89/<- %ebp 4/r32/esp -<span id="L23608" class="LineNr">23608 </span> <span class="subxComment"># setup</span> -<span id="L23609" class="LineNr">23609 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L23610" class="LineNr">23610 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L23611" class="LineNr">23611 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> -<span id="L23612" class="LineNr">23612 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: -<span id="L23613" class="LineNr">23613 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L23614" class="LineNr">23614 </span> 68/push 0/imm32/right:null -<span id="L23615" class="LineNr">23615 </span> 68/push 0/imm32/right:null -<span id="L23616" class="LineNr">23616 </span> 68/push 0/imm32/left:unused -<span id="L23617" class="LineNr">23617 </span> 68/push 1/imm32/value:int -<span id="L23618" class="LineNr">23618 </span> 68/push 1/imm32/is-atom?:true -<span id="L23619" class="LineNr">23619 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23620" class="LineNr">23620 </span> 89/<- %ecx 4/r32/esp -<span id="L23621" class="LineNr">23621 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: -<span id="L23622" class="LineNr">23622 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L23623" class="LineNr">23623 </span> 68/push 0/imm32/no-register -<span id="L23624" class="LineNr">23624 </span> 68/push 0/imm32/no-register -<span id="L23625" class="LineNr">23625 </span> 68/push -8/imm32/stack-offset -<span id="L23626" class="LineNr">23626 </span> 68/push 1/imm32/block-depth -<span id="L23627" class="LineNr">23627 </span> 51/push-ecx/type -<span id="L23628" class="LineNr">23628 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23629" class="LineNr">23629 </span> 68/push 0/imm32/name -<span id="L23630" class="LineNr">23630 </span> 68/push 0/imm32/name -<span id="L23631" class="LineNr">23631 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23632" class="LineNr">23632 </span> 89/<- %ecx 4/r32/esp -<span id="L23633" class="LineNr">23633 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: -<span id="L23634" class="LineNr">23634 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L23635" class="LineNr">23635 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L23636" class="LineNr">23636 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L23637" class="LineNr">23637 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: -<span id="L23638" class="LineNr">23638 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L23639" class="LineNr">23639 </span> 68/push 0/imm32/is-deref:false -<span id="L23640" class="LineNr">23640 </span> 68/push 0/imm32/next -<span id="L23641" class="LineNr">23641 </span> 68/push 0/imm32/next -<span id="L23642" class="LineNr">23642 </span> 51/push-ecx/var-foo -<span id="L23643" class="LineNr">23643 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23644" class="LineNr">23644 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23645" class="LineNr">23645 </span> 89/<- %ebx 4/r32/esp -<span id="L23646" class="LineNr">23646 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: -<span id="L23647" class="LineNr">23647 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L23648" class="LineNr">23648 </span> 68/push 0/imm32/no-outputs -<span id="L23649" class="LineNr">23649 </span> 68/push 0/imm32/no-outputs -<span id="L23650" class="LineNr">23650 </span> 53/push-ebx/inouts -<span id="L23651" class="LineNr">23651 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23652" class="LineNr">23652 </span> 68/push 0/imm32/operation -<span id="L23653" class="LineNr">23653 </span> 68/push 0/imm32/operation -<span id="L23654" class="LineNr">23654 </span> 68/push 1/imm32/tag -<span id="L23655" class="LineNr">23655 </span> 89/<- %esi 4/r32/esp -<span id="L23656" class="LineNr">23656 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: -<span id="L23657" class="LineNr">23657 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L23658" class="LineNr">23658 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L23659" class="LineNr">23659 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L23660" class="LineNr">23660 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: -<span id="L23661" class="LineNr">23661 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L23662" class="LineNr">23662 </span> 68/push 0/imm32/next -<span id="L23663" class="LineNr">23663 </span> 68/push 0/imm32/next -<span id="L23664" class="LineNr">23664 </span> 68/push 0/imm32/no-x32 -<span id="L23665" class="LineNr">23665 </span> 68/push 0/imm32/no-xm32 -<span id="L23666" class="LineNr">23666 </span> 68/push 0/imm32/no-disp32 -<span id="L23667" class="LineNr">23667 </span> 68/push 0/imm32/no-imm8 -<span id="L23668" class="LineNr">23668 </span> 68/push 0/imm32/no-imm32 -<span id="L23669" class="LineNr">23669 </span> 68/push 0/imm32/no-r32 -<span id="L23670" class="LineNr">23670 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L23671" class="LineNr">23671 </span> 68/push 0/imm32/subx-name -<span id="L23672" class="LineNr">23672 </span> 68/push 0/imm32/subx-name -<span id="L23673" class="LineNr">23673 </span> 68/push 0/imm32/no-outputs -<span id="L23674" class="LineNr">23674 </span> 68/push 0/imm32/no-outputs -<span id="L23675" class="LineNr">23675 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L23676" class="LineNr">23676 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23677" class="LineNr">23677 </span> 68/push 0/imm32/name -<span id="L23678" class="LineNr">23678 </span> 68/push 0/imm32/name -<span id="L23679" class="LineNr">23679 </span> 89/<- %ebx 4/r32/esp -<span id="L23680" class="LineNr">23680 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: -<span id="L23681" class="LineNr">23681 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L23682" class="LineNr">23682 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L23683" class="LineNr">23683 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: -<span id="L23684" class="LineNr">23684 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L23685" class="LineNr">23685 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L23686" class="LineNr">23686 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L23687" class="LineNr">23687 </span> <span class="subxComment"># convert</span> -<span id="L23688" class="LineNr">23688 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L23689" class="LineNr">23689 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L23690" class="LineNr">23690 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L23691" class="Folded">23691 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L23697" class="LineNr">23697 </span> <span class="subxComment"># check output</span> -<span id="L23698" class="LineNr">23698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) -<span id="L23699" class="LineNr">23699 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23700" class="LineNr">23700 </span> 89/<- %esp 5/r32/ebp -<span id="L23701" class="LineNr">23701 </span> 5d/pop-to-ebp -<span id="L23702" class="LineNr">23702 </span> c3/return -<span id="L23703" class="LineNr">23703 </span> -<span id="L23704" class="LineNr">23704 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: -<span id="L23705" class="LineNr">23705 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> -<span id="L23706" class="LineNr">23706 </span> <span class="subxComment"># foo <- increment</span> -<span id="L23707" class="LineNr">23707 </span> <span class="subxComment"># =></span> -<span id="L23708" class="LineNr">23708 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L23709" class="LineNr">23709 </span> <span class="subxComment">#</span> -<span id="L23710" class="LineNr">23710 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L23711" class="LineNr">23711 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L23712" class="LineNr">23712 </span> <span class="subxComment"># type: int</span> -<span id="L23713" class="LineNr">23713 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L23714" class="LineNr">23714 </span> <span class="subxComment">#</span> -<span id="L23715" class="LineNr">23715 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L23716" class="LineNr">23716 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L23717" class="LineNr">23717 </span> <span class="subxComment"># out: int/reg</span> -<span id="L23718" class="LineNr">23718 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L23719" class="LineNr">23719 </span> <span class="subxComment">#</span> -<span id="L23720" class="LineNr">23720 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23721" class="LineNr">23721 </span> 55/push-ebp -<span id="L23722" class="LineNr">23722 </span> 89/<- %ebp 4/r32/esp -<span id="L23723" class="LineNr">23723 </span> <span class="subxComment"># setup</span> -<span id="L23724" class="LineNr">23724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L23725" class="LineNr">23725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L23726" class="LineNr">23726 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: -<span id="L23727" class="LineNr">23727 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L23728" class="LineNr">23728 </span> 68/push 0/imm32/right:null -<span id="L23729" class="LineNr">23729 </span> 68/push 0/imm32/right:null -<span id="L23730" class="LineNr">23730 </span> 68/push 0/imm32/left:unused -<span id="L23731" class="LineNr">23731 </span> 68/push 1/imm32/value:int -<span id="L23732" class="LineNr">23732 </span> 68/push 1/imm32/is-atom?:true -<span id="L23733" class="LineNr">23733 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23734" class="LineNr">23734 </span> 89/<- %ecx 4/r32/esp -<span id="L23735" class="LineNr">23735 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: -<span id="L23736" class="LineNr">23736 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L23737" class="LineNr">23737 </span> 68/push 0/imm32/register -<span id="L23738" class="LineNr">23738 </span> 68/push 0/imm32/register -<span id="L23739" class="LineNr">23739 </span> 68/push 0/imm32/no-stack-offset -<span id="L23740" class="LineNr">23740 </span> 68/push 1/imm32/block-depth -<span id="L23741" class="LineNr">23741 </span> 51/push-ecx -<span id="L23742" class="LineNr">23742 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23743" class="LineNr">23743 </span> 68/push 0/imm32/name -<span id="L23744" class="LineNr">23744 </span> 68/push 0/imm32/name -<span id="L23745" class="LineNr">23745 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23746" class="LineNr">23746 </span> 89/<- %ecx 4/r32/esp -<span id="L23747" class="LineNr">23747 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: -<span id="L23748" class="LineNr">23748 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L23749" class="LineNr">23749 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L23750" class="LineNr">23750 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L23751" class="LineNr">23751 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: -<span id="L23752" class="LineNr">23752 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L23753" class="LineNr">23753 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L23754" class="LineNr">23754 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L23755" class="LineNr">23755 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: -<span id="L23756" class="LineNr">23756 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L23757" class="LineNr">23757 </span> 68/push 0/imm32/is-deref:false -<span id="L23758" class="LineNr">23758 </span> 68/push 0/imm32/next -<span id="L23759" class="LineNr">23759 </span> 68/push 0/imm32/next -<span id="L23760" class="LineNr">23760 </span> 51/push-ecx/var-foo -<span id="L23761" class="LineNr">23761 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23762" class="LineNr">23762 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23763" class="LineNr">23763 </span> 89/<- %ebx 4/r32/esp -<span id="L23764" class="LineNr">23764 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: -<span id="L23765" class="LineNr">23765 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L23766" class="LineNr">23766 </span> 53/push-ebx/outputs -<span id="L23767" class="LineNr">23767 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23768" class="LineNr">23768 </span> 68/push 0/imm32/no-inouts -<span id="L23769" class="LineNr">23769 </span> 68/push 0/imm32/no-inouts -<span id="L23770" class="LineNr">23770 </span> 68/push 0/imm32/operation -<span id="L23771" class="LineNr">23771 </span> 68/push 0/imm32/operation -<span id="L23772" class="LineNr">23772 </span> 68/push 1/imm32 -<span id="L23773" class="LineNr">23773 </span> 89/<- %esi 4/r32/esp -<span id="L23774" class="LineNr">23774 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: -<span id="L23775" class="LineNr">23775 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L23776" class="LineNr">23776 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L23777" class="LineNr">23777 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L23778" class="LineNr">23778 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: -<span id="L23779" class="LineNr">23779 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L23780" class="LineNr">23780 </span> 68/push 0/imm32/register -<span id="L23781" class="LineNr">23781 </span> 68/push 0/imm32/register -<span id="L23782" class="LineNr">23782 </span> 68/push 0/imm32/no-stack-offset -<span id="L23783" class="LineNr">23783 </span> 68/push 1/imm32/block-depth -<span id="L23784" class="LineNr">23784 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L23785" class="LineNr">23785 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23786" class="LineNr">23786 </span> 68/push 0/imm32/name -<span id="L23787" class="LineNr">23787 </span> 68/push 0/imm32/name -<span id="L23788" class="LineNr">23788 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23789" class="LineNr">23789 </span> 89/<- %ebx 4/r32/esp -<span id="L23790" class="LineNr">23790 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: -<span id="L23791" class="LineNr">23791 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L23792" class="LineNr">23792 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L23793" class="LineNr">23793 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L23794" class="LineNr">23794 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: -<span id="L23795" class="LineNr">23795 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L23796" class="LineNr">23796 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L23797" class="LineNr">23797 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L23798" class="LineNr">23798 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: -<span id="L23799" class="LineNr">23799 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L23800" class="LineNr">23800 </span> 68/push 0/imm32/next -<span id="L23801" class="LineNr">23801 </span> 68/push 0/imm32/next -<span id="L23802" class="LineNr">23802 </span> 53/push-ebx/formal-var -<span id="L23803" class="LineNr">23803 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23804" class="LineNr">23804 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23805" class="LineNr">23805 </span> 89/<- %ebx 4/r32/esp -<span id="L23806" class="LineNr">23806 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: -<span id="L23807" class="LineNr">23807 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L23808" class="LineNr">23808 </span> 68/push 0/imm32/next -<span id="L23809" class="LineNr">23809 </span> 68/push 0/imm32/next -<span id="L23810" class="LineNr">23810 </span> 68/push 0/imm32/no-x32 -<span id="L23811" class="LineNr">23811 </span> 68/push 0/imm32/no-xm32 -<span id="L23812" class="LineNr">23812 </span> 68/push 0/imm32/no-disp32 -<span id="L23813" class="LineNr">23813 </span> 68/push 0/imm32/no-imm8 -<span id="L23814" class="LineNr">23814 </span> 68/push 0/imm32/no-imm32 -<span id="L23815" class="LineNr">23815 </span> 68/push 0/imm32/no-r32 -<span id="L23816" class="LineNr">23816 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L23817" class="LineNr">23817 </span> 68/push 0/imm32/subx-name -<span id="L23818" class="LineNr">23818 </span> 68/push 0/imm32/subx-name -<span id="L23819" class="LineNr">23819 </span> 53/push-ebx/outputs -<span id="L23820" class="LineNr">23820 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23821" class="LineNr">23821 </span> 68/push 0/imm32/no-inouts -<span id="L23822" class="LineNr">23822 </span> 68/push 0/imm32/no-inouts -<span id="L23823" class="LineNr">23823 </span> 68/push 0/imm32/name -<span id="L23824" class="LineNr">23824 </span> 68/push 0/imm32/name -<span id="L23825" class="LineNr">23825 </span> 89/<- %ebx 4/r32/esp -<span id="L23826" class="LineNr">23826 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: -<span id="L23827" class="LineNr">23827 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L23828" class="LineNr">23828 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L23829" class="LineNr">23829 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: -<span id="L23830" class="LineNr">23830 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L23831" class="LineNr">23831 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L23832" class="LineNr">23832 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L23833" class="LineNr">23833 </span> <span class="subxComment"># convert</span> -<span id="L23834" class="LineNr">23834 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L23835" class="LineNr">23835 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L23836" class="LineNr">23836 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L23837" class="Folded">23837 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L23843" class="LineNr">23843 </span> <span class="subxComment"># check output</span> -<span id="L23844" class="LineNr">23844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) -<span id="L23845" class="LineNr">23845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23846" class="LineNr">23846 </span> 89/<- %esp 5/r32/ebp -<span id="L23847" class="LineNr">23847 </span> 5d/pop-to-ebp -<span id="L23848" class="LineNr">23848 </span> c3/return -<span id="L23849" class="LineNr">23849 </span> -<span id="L23850" class="LineNr">23850 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: -<span id="L23851" class="LineNr">23851 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L23852" class="LineNr">23852 </span> <span class="subxComment"># foo <- increment</span> -<span id="L23853" class="LineNr">23853 </span> <span class="subxComment"># =></span> -<span id="L23854" class="LineNr">23854 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L23855" class="LineNr">23855 </span> <span class="subxComment">#</span> -<span id="L23856" class="LineNr">23856 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L23857" class="LineNr">23857 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L23858" class="LineNr">23858 </span> <span class="subxComment"># type: int</span> -<span id="L23859" class="LineNr">23859 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L23860" class="LineNr">23860 </span> <span class="subxComment">#</span> -<span id="L23861" class="LineNr">23861 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L23862" class="LineNr">23862 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L23863" class="LineNr">23863 </span> <span class="subxComment"># out: int/reg</span> -<span id="L23864" class="LineNr">23864 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L23865" class="LineNr">23865 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L23866" class="LineNr">23866 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L23867" class="LineNr">23867 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L23868" class="LineNr">23868 </span> <span class="subxComment">#</span> -<span id="L23869" class="LineNr">23869 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23870" class="LineNr">23870 </span> 55/push-ebp -<span id="L23871" class="LineNr">23871 </span> 89/<- %ebp 4/r32/esp -<span id="L23872" class="LineNr">23872 </span> <span class="subxComment"># setup</span> -<span id="L23873" class="LineNr">23873 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L23874" class="LineNr">23874 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L23875" class="LineNr">23875 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: -<span id="L23876" class="LineNr">23876 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L23877" class="LineNr">23877 </span> 68/push 0/imm32/right:null -<span id="L23878" class="LineNr">23878 </span> 68/push 0/imm32/right:null -<span id="L23879" class="LineNr">23879 </span> 68/push 0/imm32/left:unused -<span id="L23880" class="LineNr">23880 </span> 68/push 1/imm32/value:int -<span id="L23881" class="LineNr">23881 </span> 68/push 1/imm32/is-atom?:true -<span id="L23882" class="LineNr">23882 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23883" class="LineNr">23883 </span> 89/<- %ecx 4/r32/esp -<span id="L23884" class="LineNr">23884 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: -<span id="L23885" class="LineNr">23885 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L23886" class="LineNr">23886 </span> 68/push 0/imm32/register -<span id="L23887" class="LineNr">23887 </span> 68/push 0/imm32/register -<span id="L23888" class="LineNr">23888 </span> 68/push 0/imm32/no-stack-offset -<span id="L23889" class="LineNr">23889 </span> 68/push 1/imm32/block-depth -<span id="L23890" class="LineNr">23890 </span> 51/push-ecx -<span id="L23891" class="LineNr">23891 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23892" class="LineNr">23892 </span> 68/push 0/imm32/name -<span id="L23893" class="LineNr">23893 </span> 68/push 0/imm32/name -<span id="L23894" class="LineNr">23894 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23895" class="LineNr">23895 </span> 89/<- %ecx 4/r32/esp -<span id="L23896" class="LineNr">23896 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: -<span id="L23897" class="LineNr">23897 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L23898" class="LineNr">23898 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L23899" class="LineNr">23899 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L23900" class="LineNr">23900 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: -<span id="L23901" class="LineNr">23901 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L23902" class="LineNr">23902 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L23903" class="LineNr">23903 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L23904" class="LineNr">23904 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: -<span id="L23905" class="LineNr">23905 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L23906" class="LineNr">23906 </span> 68/push 0/imm32/is-deref:false -<span id="L23907" class="LineNr">23907 </span> 68/push 0/imm32/next -<span id="L23908" class="LineNr">23908 </span> 68/push 0/imm32/next -<span id="L23909" class="LineNr">23909 </span> 51/push-ecx/var-foo -<span id="L23910" class="LineNr">23910 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23911" class="LineNr">23911 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23912" class="LineNr">23912 </span> 89/<- %ebx 4/r32/esp -<span id="L23913" class="LineNr">23913 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: -<span id="L23914" class="LineNr">23914 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L23915" class="LineNr">23915 </span> 53/push-ebx/outputs -<span id="L23916" class="LineNr">23916 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23917" class="LineNr">23917 </span> 68/push 0/imm32/no-inouts -<span id="L23918" class="LineNr">23918 </span> 68/push 0/imm32/no-inouts -<span id="L23919" class="LineNr">23919 </span> 68/push 0/imm32/operation -<span id="L23920" class="LineNr">23920 </span> 68/push 0/imm32/operation -<span id="L23921" class="LineNr">23921 </span> 68/push 1/imm32 -<span id="L23922" class="LineNr">23922 </span> 89/<- %esi 4/r32/esp -<span id="L23923" class="LineNr">23923 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: -<span id="L23924" class="LineNr">23924 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L23925" class="LineNr">23925 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L23926" class="LineNr">23926 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L23927" class="LineNr">23927 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: -<span id="L23928" class="LineNr">23928 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L23082" class="LineNr">23082 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23083" class="LineNr">23083 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23084" class="LineNr">23084 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: +<span id="L23085" class="LineNr">23085 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L23086" class="LineNr">23086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23087" class="LineNr">23087 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L23088" class="LineNr">23088 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L23089" class="LineNr">23089 </span> } +<span id="L23090" class="LineNr">23090 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L23091" class="LineNr">23091 </span> { +<span id="L23092" class="LineNr">23092 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: +<span id="L23093" class="LineNr">23093 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23094" class="LineNr">23094 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23095" class="LineNr">23095 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23096" class="LineNr">23096 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23097" class="LineNr">23097 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: +<span id="L23098" class="LineNr">23098 </span> (<a href='mu.subx.html#L23129'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) +<span id="L23099" class="LineNr">23099 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L23100" class="LineNr">23100 </span> } +<span id="L23101" class="LineNr">23101 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L23102" class="LineNr">23102 </span> { +<span id="L23103" class="LineNr">23103 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L23104" class="LineNr">23104 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23105" class="LineNr">23105 </span><span class="Constant">$emit-subx-call-operand:stack</span>: +<span id="L23106" class="LineNr">23106 </span> (<a href='mu.subx.html#L23174'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) +<span id="L23107" class="LineNr">23107 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L23108" class="LineNr">23108 </span> } +<span id="L23109" class="LineNr">23109 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> +<span id="L23110" class="LineNr">23110 </span> { +<span id="L23111" class="LineNr">23111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23112" class="LineNr">23112 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L23113" class="LineNr">23113 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23114" class="LineNr">23114 </span><span class="Constant">$emit-subx-call-operand:literal</span>: +<span id="L23115" class="LineNr">23115 </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="L23116" class="LineNr">23116 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23117" class="LineNr">23117 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L23118" class="LineNr">23118 </span> } +<span id="L23119" class="LineNr">23119 </span><span class="Constant">$emit-subx-call-operand:end</span>: +<span id="L23120" class="LineNr">23120 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23121" class="LineNr">23121 </span> 5e/pop-to-esi +<span id="L23122" class="LineNr">23122 </span> 59/pop-to-ecx +<span id="L23123" class="LineNr">23123 </span> 58/pop-to-eax +<span id="L23124" class="LineNr">23124 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23125" class="LineNr">23125 </span> 89/<- %esp 5/r32/ebp +<span id="L23126" class="LineNr">23126 </span> 5d/pop-to-ebp +<span id="L23127" class="LineNr">23127 </span> c3/return +<span id="L23128" class="LineNr">23128 </span> +<span id="L23129" class="LineNr">23129 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L23130" class="LineNr">23130 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23131" class="LineNr">23131 </span> 55/push-ebp +<span id="L23132" class="LineNr">23132 </span> 89/<- %ebp 4/r32/esp +<span id="L23133" class="LineNr">23133 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23134" class="LineNr">23134 </span> 50/push-eax +<span id="L23135" class="LineNr">23135 </span> 51/push-ecx +<span id="L23136" class="LineNr">23136 </span> 56/push-esi +<span id="L23137" class="LineNr">23137 </span> <span class="subxComment"># esi = v</span> +<span id="L23138" class="LineNr">23138 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L23139" class="LineNr">23139 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> +<span id="L23140" class="LineNr">23140 </span> (<a href='mu.subx.html#L14984'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> +<span id="L23141" class="LineNr">23141 </span> 89/<- %ecx 0/r32/eax +<span id="L23142" class="LineNr">23142 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> +<span id="L23143" class="LineNr">23143 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23144" class="LineNr">23144 </span> 89/<- %esi 0/r32/eax +<span id="L23145" class="LineNr">23145 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L23146" class="LineNr">23146 </span> <span class="subxComment"># var i/eax: int = 0</span> +<span id="L23147" class="LineNr">23147 </span> b8/copy-to-eax 0/imm32 +<span id="L23148" class="LineNr">23148 </span> { +<span id="L23149" class="LineNr">23149 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: +<span id="L23150" class="LineNr">23150 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L23151" class="LineNr">23151 </span> 39/compare %eax 1/r32/ecx +<span id="L23152" class="LineNr">23152 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L23153" class="LineNr">23153 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> +<span id="L23154" class="LineNr">23154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) +<span id="L23155" class="LineNr">23155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) +<span id="L23156" class="LineNr">23156 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) +<span id="L23157" class="LineNr">23157 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L23158" class="LineNr">23158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L23159" class="LineNr">23159 </span> <span class="subxComment"># i += 4</span> +<span id="L23160" class="LineNr">23160 </span> 05/add-to-eax 4/imm32 +<span id="L23161" class="LineNr">23161 </span> <span class="subxComment">#</span> +<span id="L23162" class="LineNr">23162 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L23163" class="LineNr">23163 </span> } +<span id="L23164" class="LineNr">23164 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: +<span id="L23165" class="LineNr">23165 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23166" class="LineNr">23166 </span> 5e/pop-to-esi +<span id="L23167" class="LineNr">23167 </span> 59/pop-to-ecx +<span id="L23168" class="LineNr">23168 </span> 58/pop-to-eax +<span id="L23169" class="LineNr">23169 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23170" class="LineNr">23170 </span> 89/<- %esp 5/r32/ebp +<span id="L23171" class="LineNr">23171 </span> 5d/pop-to-ebp +<span id="L23172" class="LineNr">23172 </span> c3/return +<span id="L23173" class="LineNr">23173 </span> +<span id="L23174" class="LineNr">23174 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L23175" class="LineNr">23175 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23176" class="LineNr">23176 </span> 55/push-ebp +<span id="L23177" class="LineNr">23177 </span> 89/<- %ebp 4/r32/esp +<span id="L23178" class="LineNr">23178 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23179" class="LineNr">23179 </span> 50/push-eax +<span id="L23180" class="LineNr">23180 </span> 51/push-ecx +<span id="L23181" class="LineNr">23181 </span> 56/push-esi +<span id="L23182" class="LineNr">23182 </span> <span class="subxComment"># esi = v</span> +<span id="L23183" class="LineNr">23183 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L23184" class="LineNr">23184 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> +<span id="L23185" class="LineNr">23185 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> +<span id="L23186" class="LineNr">23186 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> +<span id="L23187" class="LineNr">23187 </span> (<a href='mu.subx.html#L14934'>size-of</a> %esi) <span class="subxComment"># => eax</span> +<span id="L23188" class="LineNr">23188 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L23189" class="LineNr">23189 </span> 01/add-to %eax 1/r32/ecx +<span id="L23190" class="LineNr">23190 </span> { +<span id="L23191" class="LineNr">23191 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: +<span id="L23192" class="LineNr">23192 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L23193" class="LineNr">23193 </span> 39/compare %ecx 0/r32/eax +<span id="L23194" class="LineNr">23194 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L23195" class="LineNr">23195 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> +<span id="L23196" class="LineNr">23196 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L23197" class="LineNr">23197 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L23198" class="LineNr">23198 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L23199" class="LineNr">23199 </span> <span class="subxComment"># i += 4</span> +<span id="L23200" class="LineNr">23200 </span> 81 0/subop/add %ecx 4/imm32 +<span id="L23201" class="LineNr">23201 </span> <span class="subxComment">#</span> +<span id="L23202" class="LineNr">23202 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L23203" class="LineNr">23203 </span> } +<span id="L23204" class="LineNr">23204 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: +<span id="L23205" class="LineNr">23205 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23206" class="LineNr">23206 </span> 5e/pop-to-esi +<span id="L23207" class="LineNr">23207 </span> 59/pop-to-ecx +<span id="L23208" class="LineNr">23208 </span> 58/pop-to-eax +<span id="L23209" class="LineNr">23209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23210" class="LineNr">23210 </span> 89/<- %esp 5/r32/ebp +<span id="L23211" class="LineNr">23211 </span> 5d/pop-to-ebp +<span id="L23212" class="LineNr">23212 </span> c3/return +<span id="L23213" class="LineNr">23213 </span> +<span id="L23214" class="LineNr">23214 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L23215" class="LineNr">23215 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23216" class="LineNr">23216 </span> 55/push-ebp +<span id="L23217" class="LineNr">23217 </span> 89/<- %ebp 4/r32/esp +<span id="L23218" class="LineNr">23218 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23219" class="LineNr">23219 </span> 50/push-eax +<span id="L23220" class="LineNr">23220 </span> 51/push-ecx +<span id="L23221" class="LineNr">23221 </span> 56/push-esi +<span id="L23222" class="LineNr">23222 </span> <span class="subxComment"># ecx = s</span> +<span id="L23223" class="LineNr">23223 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23224" class="LineNr">23224 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L23225" class="LineNr">23225 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23226" class="LineNr">23226 </span> 89/<- %esi 0/r32/eax +<span id="L23227" class="LineNr">23227 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L23228" class="LineNr">23228 </span> { +<span id="L23229" class="LineNr">23229 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: +<span id="L23230" class="LineNr">23230 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23231" class="LineNr">23231 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23232" class="LineNr">23232 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23233" class="LineNr">23233 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23234" class="LineNr">23234 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: +<span id="L23235" class="LineNr">23235 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L23236" class="LineNr">23236 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23237" class="LineNr">23237 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L23238" class="LineNr">23238 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L23239" class="LineNr">23239 </span> } +<span id="L23240" class="LineNr">23240 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L23241" class="LineNr">23241 </span> { +<span id="L23242" class="LineNr">23242 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: +<span id="L23243" class="LineNr">23243 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23244" class="LineNr">23244 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23245" class="LineNr">23245 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23246" class="LineNr">23246 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23247" class="LineNr">23247 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: +<span id="L23248" class="LineNr">23248 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L23249" class="LineNr">23249 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23250" class="LineNr">23250 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L23251" class="LineNr">23251 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L23252" class="LineNr">23252 </span> } +<span id="L23253" class="LineNr">23253 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L23254" class="LineNr">23254 </span> { +<span id="L23255" class="LineNr">23255 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L23256" class="LineNr">23256 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23257" class="LineNr">23257 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: +<span id="L23258" class="LineNr">23258 </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="L23259" class="LineNr">23259 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L23260" class="LineNr">23260 </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="L23261" class="LineNr">23261 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L23262" class="LineNr">23262 </span> } +<span id="L23263" class="LineNr">23263 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L23264" class="LineNr">23264 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23265" class="LineNr">23265 </span> 5e/pop-to-esi +<span id="L23266" class="LineNr">23266 </span> 59/pop-to-ecx +<span id="L23267" class="LineNr">23267 </span> 58/pop-to-eax +<span id="L23268" class="LineNr">23268 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23269" class="LineNr">23269 </span> 89/<- %esp 5/r32/ebp +<span id="L23270" class="LineNr">23270 </span> 5d/pop-to-ebp +<span id="L23271" class="LineNr">23271 </span> c3/return +<span id="L23272" class="LineNr">23272 </span> +<span id="L23273" class="LineNr">23273 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> +<span id="L23274" class="LineNr">23274 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23275" class="LineNr">23275 </span> 55/push-ebp +<span id="L23276" class="LineNr">23276 </span> 89/<- %ebp 4/r32/esp +<span id="L23277" class="LineNr">23277 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23278" class="LineNr">23278 </span> 51/push-ecx +<span id="L23279" class="LineNr">23279 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> +<span id="L23280" class="LineNr">23280 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23281" class="LineNr">23281 </span> { +<span id="L23282" class="LineNr">23282 </span><span class="Constant">$find-matching-primitive:loop</span>: +<span id="L23283" class="LineNr">23283 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L23284" class="LineNr">23284 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23285" class="LineNr">23285 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23286" class="LineNr">23286 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> +<span id="L23287" class="LineNr">23287 </span> { +<span id="L23288" class="LineNr">23288 </span> (<a href='mu.subx.html#L23311'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L23289" class="LineNr">23289 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23290" class="LineNr">23290 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23291" class="LineNr">23291 </span> 89/<- %eax 1/r32/ecx +<span id="L23292" class="LineNr">23292 </span> eb/jump $find-matching-primitive:end/disp8 +<span id="L23293" class="LineNr">23293 </span> } +<span id="L23294" class="LineNr">23294 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: +<span id="L23295" class="LineNr">23295 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23296" class="LineNr">23296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L23297" class="LineNr">23297 </span> 89/<- %ecx 0/r32/eax +<span id="L23298" class="LineNr">23298 </span> <span class="subxComment">#</span> +<span id="L23299" class="LineNr">23299 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23300" class="LineNr">23300 </span> } +<span id="L23301" class="LineNr">23301 </span> <span class="subxComment"># return null</span> +<span id="L23302" class="LineNr">23302 </span> b8/copy-to-eax 0/imm32 +<span id="L23303" class="LineNr">23303 </span><span class="Constant">$find-matching-primitive:end</span>: +<span id="L23304" class="LineNr">23304 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23305" class="LineNr">23305 </span> 59/pop-to-ecx +<span id="L23306" class="LineNr">23306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23307" class="LineNr">23307 </span> 89/<- %esp 5/r32/ebp +<span id="L23308" class="LineNr">23308 </span> 5d/pop-to-ebp +<span id="L23309" class="LineNr">23309 </span> c3/return +<span id="L23310" class="LineNr">23310 </span> +<span id="L23311" class="LineNr">23311 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> +<span id="L23312" class="LineNr">23312 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> +<span id="L23313" class="LineNr">23313 </span> <span class="subxComment"># match, and all the output vars match.</span> +<span id="L23314" class="LineNr">23314 </span> <span class="subxComment"># Vars match if types match and registers match.</span> +<span id="L23315" class="LineNr">23315 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> +<span id="L23316" class="LineNr">23316 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> +<span id="L23317" class="LineNr">23317 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23318" class="LineNr">23318 </span> 55/push-ebp +<span id="L23319" class="LineNr">23319 </span> 89/<- %ebp 4/r32/esp +<span id="L23320" class="LineNr">23320 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23321" class="LineNr">23321 </span> 51/push-ecx +<span id="L23322" class="LineNr">23322 </span> 52/push-edx +<span id="L23323" class="LineNr">23323 </span> 53/push-ebx +<span id="L23324" class="LineNr">23324 </span> 56/push-esi +<span id="L23325" class="LineNr">23325 </span> 57/push-edi +<span id="L23326" class="LineNr">23326 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L23327" class="LineNr">23327 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23328" class="LineNr">23328 </span> <span class="subxComment"># edx = primitive</span> +<span id="L23329" class="LineNr">23329 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L23330" class="LineNr">23330 </span> { +<span id="L23331" class="LineNr">23331 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: +<span id="L23332" class="LineNr">23332 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> +<span id="L23333" class="LineNr">23333 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L23334" class="LineNr">23334 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23335" class="LineNr">23335 </span> 89/<- %esi 0/r32/eax +<span id="L23336" class="LineNr">23336 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> +<span id="L23337" class="LineNr">23337 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L23338" class="LineNr">23338 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L23339" class="LineNr">23339 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23340" class="LineNr">23340 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23341" class="LineNr">23341 </span> 89/<- %edi 0/r32/eax +<span id="L23342" class="LineNr">23342 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L23343" class="LineNr">23343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23344" class="LineNr">23344 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23345" class="LineNr">23345 </span> b8/copy-to-eax 0/imm32 +<span id="L23346" class="LineNr">23346 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23347" class="LineNr">23347 </span> } +<span id="L23348" class="LineNr">23348 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L23349" class="LineNr">23349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23350" class="LineNr">23350 </span> 89/<- %esi 0/r32/eax +<span id="L23351" class="LineNr">23351 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> +<span id="L23352" class="LineNr">23352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> +<span id="L23353" class="LineNr">23353 </span> 89/<- %edi 0/r32/eax +<span id="L23354" class="LineNr">23354 </span> { +<span id="L23355" class="LineNr">23355 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: +<span id="L23356" class="LineNr">23356 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> +<span id="L23357" class="LineNr">23357 </span> { +<span id="L23358" class="LineNr">23358 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: +<span id="L23359" class="LineNr">23359 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23360" class="LineNr">23360 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23361" class="LineNr">23361 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: +<span id="L23362" class="LineNr">23362 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23363" class="LineNr">23363 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 +<span id="L23364" class="LineNr">23364 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: +<span id="L23365" class="LineNr">23365 </span> <span class="subxComment"># return false</span> +<span id="L23366" class="LineNr">23366 </span> b8/copy-to-eax 0/imm32/false +<span id="L23367" class="LineNr">23367 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23368" class="LineNr">23368 </span> } +<span id="L23369" class="LineNr">23369 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L23370" class="LineNr">23370 </span> { +<span id="L23371" class="LineNr">23371 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: +<span id="L23372" class="LineNr">23372 </span> 81 7/subop/compare %edi 0/imm32 +<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">$mu-stmt-matches-primitive?:prim-inout-null</span>: +<span id="L23375" class="LineNr">23375 </span> b8/copy-to-eax 0/imm32/false +<span id="L23376" class="LineNr">23376 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23377" class="LineNr">23377 </span> } +<span id="L23378" class="LineNr">23378 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L23379" class="LineNr">23379 </span> { +<span id="L23380" class="LineNr">23380 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: +<span id="L23381" class="LineNr">23381 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23382" class="LineNr">23382 </span> (<a href='mu.subx.html#L23471'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L23383" class="LineNr">23383 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23384" class="LineNr">23384 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23385" class="LineNr">23385 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: +<span id="L23386" class="LineNr">23386 </span> b8/copy-to-eax 0/imm32/false +<span id="L23387" class="LineNr">23387 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23388" class="LineNr">23388 </span> } +<span id="L23389" class="LineNr">23389 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: +<span id="L23390" class="LineNr">23390 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L23391" class="LineNr">23391 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23392" class="LineNr">23392 </span> 89/<- %esi 0/r32/eax +<span id="L23393" class="LineNr">23393 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L23394" class="LineNr">23394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23395" class="LineNr">23395 </span> 89/<- %edi 0/r32/eax +<span id="L23396" class="LineNr">23396 </span> <span class="subxComment">#</span> +<span id="L23397" class="LineNr">23397 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23398" class="LineNr">23398 </span> } +<span id="L23399" class="LineNr">23399 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: +<span id="L23400" class="LineNr">23400 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L23401" class="LineNr">23401 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23402" class="LineNr">23402 </span> 89/<- %esi 0/r32/eax +<span id="L23403" class="LineNr">23403 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> +<span id="L23404" class="LineNr">23404 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> +<span id="L23405" class="LineNr">23405 </span> 89/<- %edi 0/r32/eax +<span id="L23406" class="LineNr">23406 </span> { +<span id="L23407" class="LineNr">23407 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: +<span id="L23408" class="LineNr">23408 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> +<span id="L23409" class="LineNr">23409 </span> { +<span id="L23410" class="LineNr">23410 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: +<span id="L23411" class="LineNr">23411 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23412" class="LineNr">23412 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23413" class="LineNr">23413 </span> { +<span id="L23414" class="LineNr">23414 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: +<span id="L23415" class="LineNr">23415 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23416" class="LineNr">23416 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23417" class="LineNr">23417 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: +<span id="L23418" class="LineNr">23418 </span> <span class="subxComment"># return true</span> +<span id="L23419" class="LineNr">23419 </span> b8/copy-to-eax 1/imm32 +<span id="L23420" class="LineNr">23420 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23421" class="LineNr">23421 </span> } +<span id="L23422" class="LineNr">23422 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: +<span id="L23423" class="LineNr">23423 </span> <span class="subxComment"># return false</span> +<span id="L23424" class="LineNr">23424 </span> b8/copy-to-eax 0/imm32 +<span id="L23425" class="LineNr">23425 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23426" class="LineNr">23426 </span> } +<span id="L23427" class="LineNr">23427 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L23428" class="LineNr">23428 </span> { +<span id="L23429" class="LineNr">23429 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: +<span id="L23430" class="LineNr">23430 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23431" class="LineNr">23431 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23432" class="LineNr">23432 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: +<span id="L23433" class="LineNr">23433 </span> b8/copy-to-eax 0/imm32 +<span id="L23434" class="LineNr">23434 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23435" class="LineNr">23435 </span> } +<span id="L23436" class="LineNr">23436 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L23437" class="LineNr">23437 </span> { +<span id="L23438" class="LineNr">23438 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: +<span id="L23439" class="LineNr">23439 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23440" class="LineNr">23440 </span> (<a href='mu.subx.html#L23471'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L23441" class="LineNr">23441 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23442" class="LineNr">23442 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23443" class="LineNr">23443 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: +<span id="L23444" class="LineNr">23444 </span> b8/copy-to-eax 0/imm32 +<span id="L23445" class="LineNr">23445 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L23446" class="LineNr">23446 </span> } +<span id="L23447" class="LineNr">23447 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: +<span id="L23448" class="LineNr">23448 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L23449" class="LineNr">23449 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23450" class="LineNr">23450 </span> 89/<- %esi 0/r32/eax +<span id="L23451" class="LineNr">23451 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L23452" class="LineNr">23452 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23453" class="LineNr">23453 </span> 89/<- %edi 0/r32/eax +<span id="L23454" class="LineNr">23454 </span> <span class="subxComment">#</span> +<span id="L23455" class="LineNr">23455 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23456" class="LineNr">23456 </span> } +<span id="L23457" class="LineNr">23457 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: +<span id="L23458" class="LineNr">23458 </span> b8/copy-to-eax 1/imm32 +<span id="L23459" class="LineNr">23459 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: +<span id="L23460" class="LineNr">23460 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23461" class="LineNr">23461 </span> 5f/pop-to-edi +<span id="L23462" class="LineNr">23462 </span> 5e/pop-to-esi +<span id="L23463" class="LineNr">23463 </span> 5b/pop-to-ebx +<span id="L23464" class="LineNr">23464 </span> 5a/pop-to-edx +<span id="L23465" class="LineNr">23465 </span> 59/pop-to-ecx +<span id="L23466" class="LineNr">23466 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23467" class="LineNr">23467 </span> 89/<- %esp 5/r32/ebp +<span id="L23468" class="LineNr">23468 </span> 5d/pop-to-ebp +<span id="L23469" class="LineNr">23469 </span> c3/return +<span id="L23470" class="LineNr">23470 </span> +<span id="L23471" class="LineNr">23471 </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="L23472" class="LineNr">23472 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23473" class="LineNr">23473 </span> 55/push-ebp +<span id="L23474" class="LineNr">23474 </span> 89/<- %ebp 4/r32/esp +<span id="L23475" class="LineNr">23475 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23476" class="LineNr">23476 </span> 51/push-ecx +<span id="L23477" class="LineNr">23477 </span> 52/push-edx +<span id="L23478" class="LineNr">23478 </span> 53/push-ebx +<span id="L23479" class="LineNr">23479 </span> 56/push-esi +<span id="L23480" class="LineNr">23480 </span> 57/push-edi +<span id="L23481" class="LineNr">23481 </span> <span class="subxComment"># ecx = s</span> +<span id="L23482" class="LineNr">23482 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23483" class="LineNr">23483 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> +<span id="L23484" class="LineNr">23484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23485" class="LineNr">23485 </span> 89/<- %esi 0/r32/eax +<span id="L23486" class="LineNr">23486 </span> <span class="subxComment"># edi = prim-var</span> +<span id="L23487" class="LineNr">23487 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L23488" class="LineNr">23488 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: +<span id="L23489" class="LineNr">23489 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> +<span id="L23490" class="LineNr">23490 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> +<span id="L23491" class="LineNr">23491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23492" class="LineNr">23492 </span> 89/<- %ebx 0/r32/eax +<span id="L23493" class="LineNr">23493 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L23494" class="LineNr">23494 </span> { +<span id="L23495" class="LineNr">23495 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23496" class="LineNr">23496 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23497" class="LineNr">23497 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: +<span id="L23498" class="LineNr">23498 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> +<span id="L23499" class="LineNr">23499 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23500" class="LineNr">23500 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> +<span id="L23501" class="LineNr">23501 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L23502" class="LineNr">23502 </span> { +<span id="L23503" class="LineNr">23503 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23504" class="LineNr">23504 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23505" class="LineNr">23505 </span> } +<span id="L23506" class="LineNr">23506 </span> <span class="subxS1Comment"># .</span> +<span id="L23507" class="LineNr">23507 </span> 89/<- %ebx 0/r32/eax +<span id="L23508" class="LineNr">23508 </span> } +<span id="L23509" class="LineNr">23509 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> +<span id="L23510" class="LineNr">23510 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23511" class="LineNr">23511 </span> (<a href='mu.subx.html#L23648'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L23512" class="LineNr">23512 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23513" class="LineNr">23513 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 +<span id="L23514" class="LineNr">23514 </span> { +<span id="L23515" class="LineNr">23515 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: +<span id="L23516" class="LineNr">23516 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> +<span id="L23517" class="LineNr">23517 </span> { +<span id="L23518" class="LineNr">23518 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23519" class="LineNr">23519 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L23520" class="LineNr">23520 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23521" class="LineNr">23521 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23522" class="LineNr">23522 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23523" class="LineNr">23523 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23524" class="LineNr">23524 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: +<span id="L23525" class="LineNr">23525 </span> e9/jump $operand-matches-primitive?:return-true/disp32 +<span id="L23526" class="LineNr">23526 </span> } +<span id="L23527" class="LineNr">23527 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> +<span id="L23528" class="LineNr">23528 </span> { +<span id="L23529" class="LineNr">23529 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23530" class="LineNr">23530 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23531" class="LineNr">23531 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23532" class="LineNr">23532 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23533" class="LineNr">23533 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23534" class="LineNr">23534 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23535" class="LineNr">23535 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: +<span id="L23536" class="LineNr">23536 </span> e9/jump $operand-matches-primitive?:return-false/disp32 +<span id="L23537" class="LineNr">23537 </span> } +<span id="L23538" class="LineNr">23538 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> +<span id="L23539" class="LineNr">23539 </span> { +<span id="L23540" class="LineNr">23540 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> +<span id="L23541" class="LineNr">23541 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> +<span id="L23542" class="LineNr">23542 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23543" class="LineNr">23543 </span> 89/<- %ebx 0/r32/eax +<span id="L23544" class="LineNr">23544 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> +<span id="L23545" class="LineNr">23545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23546" class="LineNr">23546 </span> 89/<- %ecx 0/r32/eax +<span id="L23547" class="LineNr">23547 </span> <span class="subxComment"># if (vreg == preg) break</span> +<span id="L23548" class="LineNr">23548 </span> 39/compare %ecx 3/r32/ebx +<span id="L23549" class="LineNr">23549 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23550" class="LineNr">23550 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: +<span id="L23551" class="LineNr">23551 </span> <span class="subxComment"># if either address is 0, return false</span> +<span id="L23552" class="LineNr">23552 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L23553" class="LineNr">23553 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L23554" class="LineNr">23554 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23555" class="LineNr">23555 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L23556" class="LineNr">23556 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> +<span id="L23557" class="LineNr">23557 </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="L23558" class="LineNr">23558 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23559" class="LineNr">23559 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23560" class="LineNr">23560 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: +<span id="L23561" class="LineNr">23561 </span> <span class="subxComment"># if string contents aren't equal, return false</span> +<span id="L23562" class="LineNr">23562 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L23563" class="LineNr">23563 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23564" class="LineNr">23564 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L23565" class="LineNr">23565 </span> } +<span id="L23566" class="LineNr">23566 </span> } +<span id="L23567" class="LineNr">23567 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: +<span id="L23568" class="LineNr">23568 </span> b8/copy-to-eax 1/imm32/true +<span id="L23569" class="LineNr">23569 </span> eb/jump $operand-matches-primitive?:end/disp8 +<span id="L23570" class="LineNr">23570 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: +<span id="L23571" class="LineNr">23571 </span> b8/copy-to-eax 0/imm32/false +<span id="L23572" class="LineNr">23572 </span><span class="Constant">$operand-matches-primitive?:end</span>: +<span id="L23573" class="LineNr">23573 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23574" class="LineNr">23574 </span> 5f/pop-to-edi +<span id="L23575" class="LineNr">23575 </span> 5e/pop-to-esi +<span id="L23576" class="LineNr">23576 </span> 5b/pop-to-ebx +<span id="L23577" class="LineNr">23577 </span> 5a/pop-to-edx +<span id="L23578" class="LineNr">23578 </span> 59/pop-to-ecx +<span id="L23579" class="LineNr">23579 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23580" class="LineNr">23580 </span> 89/<- %esp 5/r32/ebp +<span id="L23581" class="LineNr">23581 </span> 5d/pop-to-ebp +<span id="L23582" class="LineNr">23582 </span> c3/return +<span id="L23583" class="LineNr">23583 </span> +<span id="L23584" class="LineNr">23584 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> +<span id="L23585" class="LineNr">23585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23586" class="LineNr">23586 </span> 55/push-ebp +<span id="L23587" class="LineNr">23587 </span> 89/<- %ebp 4/r32/esp +<span id="L23588" class="LineNr">23588 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23589" class="LineNr">23589 </span> 51/push-ecx +<span id="L23590" class="LineNr">23590 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> +<span id="L23591" class="LineNr">23591 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23592" class="LineNr">23592 </span> { +<span id="L23593" class="LineNr">23593 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L23594" class="LineNr">23594 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23595" class="LineNr">23595 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23596" class="LineNr">23596 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> +<span id="L23597" class="LineNr">23597 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23598" class="LineNr">23598 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> +<span id="L23599" class="LineNr">23599 </span> { +<span id="L23600" class="LineNr">23600 </span> (<a href='mu.subx.html#L23623'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L23601" class="LineNr">23601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23602" class="LineNr">23602 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23603" class="LineNr">23603 </span> 89/<- %eax 1/r32/ecx +<span id="L23604" class="LineNr">23604 </span> eb/jump $find-matching-function:end/disp8 +<span id="L23605" class="LineNr">23605 </span> } +<span id="L23606" class="LineNr">23606 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23607" class="LineNr">23607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L23608" class="LineNr">23608 </span> 89/<- %ecx 0/r32/eax +<span id="L23609" class="LineNr">23609 </span> <span class="subxComment">#</span> +<span id="L23610" class="LineNr">23610 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L23611" class="LineNr">23611 </span> } +<span id="L23612" class="LineNr">23612 </span> <span class="subxComment"># return null</span> +<span id="L23613" class="LineNr">23613 </span> b8/copy-to-eax 0/imm32 +<span id="L23614" class="LineNr">23614 </span><span class="Constant">$find-matching-function:end</span>: +<span id="L23615" class="LineNr">23615 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23616" class="LineNr">23616 </span> 59/pop-to-ecx +<span id="L23617" class="LineNr">23617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23618" class="LineNr">23618 </span> 89/<- %esp 5/r32/ebp +<span id="L23619" class="LineNr">23619 </span> 5d/pop-to-ebp +<span id="L23620" class="LineNr">23620 </span> c3/return +<span id="L23621" class="LineNr">23621 </span> +<span id="L23622" class="LineNr">23622 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> +<span id="L23623" class="LineNr">23623 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> +<span id="L23624" class="LineNr">23624 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23625" class="LineNr">23625 </span> 55/push-ebp +<span id="L23626" class="LineNr">23626 </span> 89/<- %ebp 4/r32/esp +<span id="L23627" class="LineNr">23627 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23628" class="LineNr">23628 </span> 51/push-ecx +<span id="L23629" class="LineNr">23629 </span> <span class="subxComment"># return function->name == stmt->operation</span> +<span id="L23630" class="LineNr">23630 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L23631" class="LineNr">23631 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23632" class="LineNr">23632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23633" class="LineNr">23633 </span> 89/<- %ecx 0/r32/eax +<span id="L23634" class="LineNr">23634 </span> <span class="subxComment"># eax = lookup(function->name)</span> +<span id="L23635" class="LineNr">23635 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23636" class="LineNr">23636 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23637" class="LineNr">23637 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L23638" class="LineNr">23638 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: +<span id="L23639" class="LineNr">23639 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23640" class="LineNr">23640 </span> 59/pop-to-ecx +<span id="L23641" class="LineNr">23641 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23642" class="LineNr">23642 </span> 89/<- %esp 5/r32/ebp +<span id="L23643" class="LineNr">23643 </span> 5d/pop-to-ebp +<span id="L23644" class="LineNr">23644 </span> c3/return +<span id="L23645" class="LineNr">23645 </span> +<span id="L23646" class="LineNr">23646 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> +<span id="L23647" class="LineNr">23647 </span><span class="subxComment"># primitives.</span> +<span id="L23648" class="LineNr">23648 </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="L23649" class="LineNr">23649 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23650" class="LineNr">23650 </span> 55/push-ebp +<span id="L23651" class="LineNr">23651 </span> 89/<- %ebp 4/r32/esp +<span id="L23652" class="LineNr">23652 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23653" class="LineNr">23653 </span> 51/push-ecx +<span id="L23654" class="LineNr">23654 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> +<span id="L23655" class="LineNr">23655 </span> (<a href='mu.subx.html#L23671'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23656" class="LineNr">23656 </span> 89/<- %ecx 0/r32/eax +<span id="L23657" class="LineNr">23657 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> +<span id="L23658" class="LineNr">23658 </span> (<a href='mu.subx.html#L23671'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L23659" class="LineNr">23659 </span> <span class="subxComment"># return cata == catb</span> +<span id="L23660" class="LineNr">23660 </span> 39/compare %eax 1/r32/ecx +<span id="L23661" class="LineNr">23661 </span> 0f 94/set-byte-if-= %al +<span id="L23662" class="LineNr">23662 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L23663" class="LineNr">23663 </span><span class="Constant">$subx-type-category-match?:end</span>: +<span id="L23664" class="LineNr">23664 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23665" class="LineNr">23665 </span> 59/pop-to-ecx +<span id="L23666" class="LineNr">23666 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23667" class="LineNr">23667 </span> 89/<- %esp 5/r32/ebp +<span id="L23668" class="LineNr">23668 </span> 5d/pop-to-ebp +<span id="L23669" class="LineNr">23669 </span> c3/return +<span id="L23670" class="LineNr">23670 </span> +<span id="L23671" class="LineNr">23671 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L23672" class="LineNr">23672 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23673" class="LineNr">23673 </span> 55/push-ebp +<span id="L23674" class="LineNr">23674 </span> 89/<- %ebp 4/r32/esp +<span id="L23675" class="LineNr">23675 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23676" class="LineNr">23676 </span> 51/push-ecx +<span id="L23677" class="LineNr">23677 </span> <span class="subxComment"># var lit?/ecx: boolean = is-literal-type?(a)</span> +<span id="L23678" class="LineNr">23678 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># => eax</span> +<span id="L23679" class="LineNr">23679 </span> 89/<- %ecx 0/r32/eax +<span id="L23680" class="LineNr">23680 </span> <span class="subxComment"># var float?/eax: int = is-float?(a)</span> +<span id="L23681" class="LineNr">23681 </span> (<a href='mu.subx.html#L23693'>is-simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> +<span id="L23682" class="LineNr">23682 </span> <span class="subxComment"># set bits for lit? and float?</span> +<span id="L23683" class="LineNr">23683 </span> c1/shift 4/subop/left %ecx 1/imm8 +<span id="L23684" class="LineNr">23684 </span> 09/or %eax 1/r32/ecx +<span id="L23685" class="LineNr">23685 </span><span class="Constant">$type-category:end</span>: +<span id="L23686" class="LineNr">23686 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23687" class="LineNr">23687 </span> 59/pop-to-ecx +<span id="L23688" class="LineNr">23688 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23689" class="LineNr">23689 </span> 89/<- %esp 5/r32/ebp +<span id="L23690" class="LineNr">23690 </span> 5d/pop-to-ebp +<span id="L23691" class="LineNr">23691 </span> c3/return +<span id="L23692" class="LineNr">23692 </span> +<span id="L23693" class="LineNr">23693 </span><span class="subxFunction">is-simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L23694" class="LineNr">23694 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23695" class="LineNr">23695 </span> 55/push-ebp +<span id="L23696" class="LineNr">23696 </span> 89/<- %ebp 4/r32/esp +<span id="L23697" class="LineNr">23697 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23698" class="LineNr">23698 </span> 51/push-ecx +<span id="L23699" class="LineNr">23699 </span> <span class="subxComment"># ecx = n</span> +<span id="L23700" class="LineNr">23700 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23701" class="LineNr">23701 </span> <span class="subxComment"># return (a->value == n)</span> +<span id="L23702" class="LineNr">23702 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23703" class="LineNr">23703 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L23704" class="LineNr">23704 </span> 0f 94/set-byte-if-= %al +<span id="L23705" class="LineNr">23705 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L23706" class="LineNr">23706 </span><span class="Constant">$is-simple-mu-type?:end</span>: +<span id="L23707" class="LineNr">23707 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23708" class="LineNr">23708 </span> 59/pop-to-ecx +<span id="L23709" class="LineNr">23709 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23710" class="LineNr">23710 </span> 89/<- %esp 5/r32/ebp +<span id="L23711" class="LineNr">23711 </span> 5d/pop-to-ebp +<span id="L23712" class="LineNr">23712 </span> c3/return +<span id="L23713" class="LineNr">23713 </span> +<span id="L23714" class="LineNr">23714 </span><span class="subxFunction">is-mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L23715" class="LineNr">23715 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23716" class="LineNr">23716 </span> 55/push-ebp +<span id="L23717" class="LineNr">23717 </span> 89/<- %ebp 4/r32/esp +<span id="L23718" class="LineNr">23718 </span> <span class="subxComment"># eax = a</span> +<span id="L23719" class="LineNr">23719 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23720" class="LineNr">23720 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L23721" class="LineNr">23721 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23722" class="LineNr">23722 </span> { +<span id="L23723" class="LineNr">23723 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23724" class="LineNr">23724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23725" class="LineNr">23725 </span> } +<span id="L23726" class="LineNr">23726 </span> <span class="subxComment"># return (a->value == addr)</span> +<span id="L23727" class="LineNr">23727 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> +<span id="L23728" class="LineNr">23728 </span> 0f 94/set-byte-if-= %al +<span id="L23729" class="LineNr">23729 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L23730" class="LineNr">23730 </span><span class="Constant">$is-mu-addr-type?:end</span>: +<span id="L23731" class="LineNr">23731 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23732" class="LineNr">23732 </span> 89/<- %esp 5/r32/ebp +<span id="L23733" class="LineNr">23733 </span> 5d/pop-to-ebp +<span id="L23734" class="LineNr">23734 </span> c3/return +<span id="L23735" class="LineNr">23735 </span> +<span id="L23736" class="LineNr">23736 </span><span class="subxFunction">is-mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L23737" class="LineNr">23737 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23738" class="LineNr">23738 </span> 55/push-ebp +<span id="L23739" class="LineNr">23739 </span> 89/<- %ebp 4/r32/esp +<span id="L23740" class="LineNr">23740 </span> <span class="subxComment"># eax = a</span> +<span id="L23741" class="LineNr">23741 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23742" class="LineNr">23742 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L23743" class="LineNr">23743 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23744" class="LineNr">23744 </span> { +<span id="L23745" class="LineNr">23745 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23746" class="LineNr">23746 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23747" class="LineNr">23747 </span> } +<span id="L23748" class="LineNr">23748 </span> <span class="subxComment"># return (a->value == array)</span> +<span id="L23749" class="LineNr">23749 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> +<span id="L23750" class="LineNr">23750 </span> 0f 94/set-byte-if-= %al +<span id="L23751" class="LineNr">23751 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L23752" class="LineNr">23752 </span><span class="Constant">$is-mu-array-type?:end</span>: +<span id="L23753" class="LineNr">23753 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23754" class="LineNr">23754 </span> 89/<- %esp 5/r32/ebp +<span id="L23755" class="LineNr">23755 </span> 5d/pop-to-ebp +<span id="L23756" class="LineNr">23756 </span> c3/return +<span id="L23757" class="LineNr">23757 </span> +<span id="L23758" class="LineNr">23758 </span><span class="subxFunction">is-mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L23759" class="LineNr">23759 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23760" class="LineNr">23760 </span> 55/push-ebp +<span id="L23761" class="LineNr">23761 </span> 89/<- %ebp 4/r32/esp +<span id="L23762" class="LineNr">23762 </span> <span class="subxComment"># eax = a</span> +<span id="L23763" class="LineNr">23763 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23764" class="LineNr">23764 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L23765" class="LineNr">23765 </span> 81 7/subop/compare *eax 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#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23769" class="LineNr">23769 </span> } +<span id="L23770" class="LineNr">23770 </span> <span class="subxComment"># return (a->value == stream)</span> +<span id="L23771" class="LineNr">23771 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> +<span id="L23772" class="LineNr">23772 </span> 0f 94/set-byte-if-= %al +<span id="L23773" class="LineNr">23773 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L23774" class="LineNr">23774 </span><span class="Constant">$is-mu-stream-type?:end</span>: +<span id="L23775" class="LineNr">23775 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23776" class="LineNr">23776 </span> 89/<- %esp 5/r32/ebp +<span id="L23777" class="LineNr">23777 </span> 5d/pop-to-ebp +<span id="L23778" class="LineNr">23778 </span> c3/return +<span id="L23779" class="LineNr">23779 </span> +<span id="L23780" class="LineNr">23780 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: +<span id="L23781" class="LineNr">23781 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> +<span id="L23782" class="LineNr">23782 </span> <span class="subxComment"># increment foo</span> +<span id="L23783" class="LineNr">23783 </span> <span class="subxComment"># =></span> +<span id="L23784" class="LineNr">23784 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> +<span id="L23785" class="LineNr">23785 </span> <span class="subxComment">#</span> +<span id="L23786" class="LineNr">23786 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L23787" class="LineNr">23787 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L23788" class="LineNr">23788 </span> <span class="subxComment"># type: int</span> +<span id="L23789" class="LineNr">23789 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L23790" class="LineNr">23790 </span> <span class="subxComment">#</span> +<span id="L23791" class="LineNr">23791 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L23792" class="LineNr">23792 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L23793" class="LineNr">23793 </span> <span class="subxComment"># inouts: int/mem</span> +<span id="L23794" class="LineNr">23794 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L23795" class="LineNr">23795 </span> <span class="subxComment">#</span> +<span id="L23796" class="LineNr">23796 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23797" class="LineNr">23797 </span> 55/push-ebp +<span id="L23798" class="LineNr">23798 </span> 89/<- %ebp 4/r32/esp +<span id="L23799" class="LineNr">23799 </span> <span class="subxComment"># setup</span> +<span id="L23800" class="LineNr">23800 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L23801" class="LineNr">23801 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L23802" class="LineNr">23802 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> +<span id="L23803" class="LineNr">23803 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: +<span id="L23804" class="LineNr">23804 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L23805" class="LineNr">23805 </span> 68/push 0/imm32/right:null +<span id="L23806" class="LineNr">23806 </span> 68/push 0/imm32/right:null +<span id="L23807" class="LineNr">23807 </span> 68/push 0/imm32/left:unused +<span id="L23808" class="LineNr">23808 </span> 68/push 1/imm32/value:int +<span id="L23809" class="LineNr">23809 </span> 68/push 1/imm32/is-atom?:true +<span id="L23810" class="LineNr">23810 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23811" class="LineNr">23811 </span> 89/<- %ecx 4/r32/esp +<span id="L23812" class="LineNr">23812 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: +<span id="L23813" class="LineNr">23813 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L23814" class="LineNr">23814 </span> 68/push 0/imm32/no-register +<span id="L23815" class="LineNr">23815 </span> 68/push 0/imm32/no-register +<span id="L23816" class="LineNr">23816 </span> 68/push -8/imm32/stack-offset +<span id="L23817" class="LineNr">23817 </span> 68/push 1/imm32/block-depth +<span id="L23818" class="LineNr">23818 </span> 51/push-ecx/type +<span id="L23819" class="LineNr">23819 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23820" class="LineNr">23820 </span> 68/push 0/imm32/name +<span id="L23821" class="LineNr">23821 </span> 68/push 0/imm32/name +<span id="L23822" class="LineNr">23822 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23823" class="LineNr">23823 </span> 89/<- %ecx 4/r32/esp +<span id="L23824" class="LineNr">23824 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: +<span id="L23825" class="LineNr">23825 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L23826" class="LineNr">23826 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L23827" class="LineNr">23827 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L23828" class="LineNr">23828 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: +<span id="L23829" class="LineNr">23829 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L23830" class="LineNr">23830 </span> 68/push 0/imm32/is-deref:false +<span id="L23831" class="LineNr">23831 </span> 68/push 0/imm32/next +<span id="L23832" class="LineNr">23832 </span> 68/push 0/imm32/next +<span id="L23833" class="LineNr">23833 </span> 51/push-ecx/var-foo +<span id="L23834" class="LineNr">23834 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23835" class="LineNr">23835 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23836" class="LineNr">23836 </span> 89/<- %ebx 4/r32/esp +<span id="L23837" class="LineNr">23837 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: +<span id="L23838" class="LineNr">23838 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L23839" class="LineNr">23839 </span> 68/push 0/imm32/no-outputs +<span id="L23840" class="LineNr">23840 </span> 68/push 0/imm32/no-outputs +<span id="L23841" class="LineNr">23841 </span> 53/push-ebx/inouts +<span id="L23842" class="LineNr">23842 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23843" class="LineNr">23843 </span> 68/push 0/imm32/operation +<span id="L23844" class="LineNr">23844 </span> 68/push 0/imm32/operation +<span id="L23845" class="LineNr">23845 </span> 68/push 1/imm32/tag +<span id="L23846" class="LineNr">23846 </span> 89/<- %esi 4/r32/esp +<span id="L23847" class="LineNr">23847 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: +<span id="L23848" class="LineNr">23848 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L23849" class="LineNr">23849 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L23850" class="LineNr">23850 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L23851" class="LineNr">23851 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: +<span id="L23852" class="LineNr">23852 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L23853" class="LineNr">23853 </span> 68/push 0/imm32/next +<span id="L23854" class="LineNr">23854 </span> 68/push 0/imm32/next +<span id="L23855" class="LineNr">23855 </span> 68/push 0/imm32/no-x32 +<span id="L23856" class="LineNr">23856 </span> 68/push 0/imm32/no-xm32 +<span id="L23857" class="LineNr">23857 </span> 68/push 0/imm32/no-disp32 +<span id="L23858" class="LineNr">23858 </span> 68/push 0/imm32/no-imm8 +<span id="L23859" class="LineNr">23859 </span> 68/push 0/imm32/no-imm32 +<span id="L23860" class="LineNr">23860 </span> 68/push 0/imm32/no-r32 +<span id="L23861" class="LineNr">23861 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L23862" class="LineNr">23862 </span> 68/push 0/imm32/subx-name +<span id="L23863" class="LineNr">23863 </span> 68/push 0/imm32/subx-name +<span id="L23864" class="LineNr">23864 </span> 68/push 0/imm32/no-outputs +<span id="L23865" class="LineNr">23865 </span> 68/push 0/imm32/no-outputs +<span id="L23866" class="LineNr">23866 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L23867" class="LineNr">23867 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23868" class="LineNr">23868 </span> 68/push 0/imm32/name +<span id="L23869" class="LineNr">23869 </span> 68/push 0/imm32/name +<span id="L23870" class="LineNr">23870 </span> 89/<- %ebx 4/r32/esp +<span id="L23871" class="LineNr">23871 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: +<span id="L23872" class="LineNr">23872 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L23873" class="LineNr">23873 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L23874" class="LineNr">23874 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: +<span id="L23875" class="LineNr">23875 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L23876" class="LineNr">23876 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L23877" class="LineNr">23877 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L23878" class="LineNr">23878 </span> <span class="subxComment"># convert</span> +<span id="L23879" class="LineNr">23879 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L23880" class="LineNr">23880 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L23881" class="LineNr">23881 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L23882" class="Folded">23882 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L23888" class="LineNr">23888 </span> <span class="subxComment"># check output</span> +<span id="L23889" class="LineNr">23889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) +<span id="L23890" class="LineNr">23890 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23891" class="LineNr">23891 </span> 89/<- %esp 5/r32/ebp +<span id="L23892" class="LineNr">23892 </span> 5d/pop-to-ebp +<span id="L23893" class="LineNr">23893 </span> c3/return +<span id="L23894" class="LineNr">23894 </span> +<span id="L23895" class="LineNr">23895 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: +<span id="L23896" class="LineNr">23896 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> +<span id="L23897" class="LineNr">23897 </span> <span class="subxComment"># foo <- increment</span> +<span id="L23898" class="LineNr">23898 </span> <span class="subxComment"># =></span> +<span id="L23899" class="LineNr">23899 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L23900" class="LineNr">23900 </span> <span class="subxComment">#</span> +<span id="L23901" class="LineNr">23901 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L23902" class="LineNr">23902 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L23903" class="LineNr">23903 </span> <span class="subxComment"># type: int</span> +<span id="L23904" class="LineNr">23904 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L23905" class="LineNr">23905 </span> <span class="subxComment">#</span> +<span id="L23906" class="LineNr">23906 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L23907" class="LineNr">23907 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L23908" class="LineNr">23908 </span> <span class="subxComment"># out: int/reg</span> +<span id="L23909" class="LineNr">23909 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L23910" class="LineNr">23910 </span> <span class="subxComment">#</span> +<span id="L23911" class="LineNr">23911 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23912" class="LineNr">23912 </span> 55/push-ebp +<span id="L23913" class="LineNr">23913 </span> 89/<- %ebp 4/r32/esp +<span id="L23914" class="LineNr">23914 </span> <span class="subxComment"># setup</span> +<span id="L23915" class="LineNr">23915 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L23916" class="LineNr">23916 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L23917" class="LineNr">23917 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: +<span id="L23918" class="LineNr">23918 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L23919" class="LineNr">23919 </span> 68/push 0/imm32/right:null +<span id="L23920" class="LineNr">23920 </span> 68/push 0/imm32/right:null +<span id="L23921" class="LineNr">23921 </span> 68/push 0/imm32/left:unused +<span id="L23922" class="LineNr">23922 </span> 68/push 1/imm32/value:int +<span id="L23923" class="LineNr">23923 </span> 68/push 1/imm32/is-atom?:true +<span id="L23924" class="LineNr">23924 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23925" class="LineNr">23925 </span> 89/<- %ecx 4/r32/esp +<span id="L23926" class="LineNr">23926 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: +<span id="L23927" class="LineNr">23927 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L23928" class="LineNr">23928 </span> 68/push 0/imm32/register <span id="L23929" class="LineNr">23929 </span> 68/push 0/imm32/register -<span id="L23930" class="LineNr">23930 </span> 68/push 0/imm32/register -<span id="L23931" class="LineNr">23931 </span> 68/push 0/imm32/no-stack-offset -<span id="L23932" class="LineNr">23932 </span> 68/push 1/imm32/block-depth -<span id="L23933" class="LineNr">23933 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L23934" class="LineNr">23934 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23930" class="LineNr">23930 </span> 68/push 0/imm32/no-stack-offset +<span id="L23931" class="LineNr">23931 </span> 68/push 1/imm32/block-depth +<span id="L23932" class="LineNr">23932 </span> 51/push-ecx +<span id="L23933" class="LineNr">23933 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23934" class="LineNr">23934 </span> 68/push 0/imm32/name <span id="L23935" class="LineNr">23935 </span> 68/push 0/imm32/name -<span id="L23936" class="LineNr">23936 </span> 68/push 0/imm32/name -<span id="L23937" class="LineNr">23937 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23938" class="LineNr">23938 </span> 89/<- %ebx 4/r32/esp -<span id="L23939" class="LineNr">23939 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: -<span id="L23940" class="LineNr">23940 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L23941" class="LineNr">23941 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L23942" class="LineNr">23942 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L23943" class="LineNr">23943 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: -<span id="L23944" class="LineNr">23944 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L23945" class="LineNr">23945 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L23946" class="LineNr">23946 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L23947" class="LineNr">23947 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: -<span id="L23948" class="LineNr">23948 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L23936" class="LineNr">23936 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23937" class="LineNr">23937 </span> 89/<- %ecx 4/r32/esp +<span id="L23938" class="LineNr">23938 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: +<span id="L23939" class="LineNr">23939 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L23940" class="LineNr">23940 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L23941" class="LineNr">23941 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L23942" class="LineNr">23942 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: +<span id="L23943" class="LineNr">23943 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L23944" class="LineNr">23944 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L23945" class="LineNr">23945 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L23946" class="LineNr">23946 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: +<span id="L23947" class="LineNr">23947 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L23948" class="LineNr">23948 </span> 68/push 0/imm32/is-deref:false <span id="L23949" class="LineNr">23949 </span> 68/push 0/imm32/next <span id="L23950" class="LineNr">23950 </span> 68/push 0/imm32/next -<span id="L23951" class="LineNr">23951 </span> 53/push-ebx/formal-var +<span id="L23951" class="LineNr">23951 </span> 51/push-ecx/var-foo <span id="L23952" class="LineNr">23952 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L23953" class="LineNr">23953 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L23954" class="LineNr">23954 </span> 89/<- %ebx 4/r32/esp -<span id="L23955" class="LineNr">23955 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: -<span id="L23956" class="LineNr">23956 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L23957" class="LineNr">23957 </span> 68/push 0/imm32/next -<span id="L23958" class="LineNr">23958 </span> 68/push 0/imm32/next -<span id="L23959" class="LineNr">23959 </span> 68/push 0/imm32/no-x32 -<span id="L23960" class="LineNr">23960 </span> 68/push 0/imm32/no-xm32 -<span id="L23961" class="LineNr">23961 </span> 68/push 0/imm32/no-disp32 -<span id="L23962" class="LineNr">23962 </span> 68/push 0/imm32/no-imm8 -<span id="L23963" class="LineNr">23963 </span> 68/push 0/imm32/no-imm32 -<span id="L23964" class="LineNr">23964 </span> 68/push 0/imm32/no-r32 -<span id="L23965" class="LineNr">23965 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L23966" class="LineNr">23966 </span> 68/push 0/imm32/subx-name -<span id="L23967" class="LineNr">23967 </span> 68/push 0/imm32/subx-name -<span id="L23968" class="LineNr">23968 </span> 53/push-ebx/outputs -<span id="L23969" class="LineNr">23969 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23970" class="LineNr">23970 </span> 68/push 0/imm32/no-inouts -<span id="L23971" class="LineNr">23971 </span> 68/push 0/imm32/no-inouts -<span id="L23972" class="LineNr">23972 </span> 68/push 0/imm32/name -<span id="L23973" class="LineNr">23973 </span> 68/push 0/imm32/name -<span id="L23974" class="LineNr">23974 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L23975" class="LineNr">23975 </span> 89/<- %edi 4/r32/esp -<span id="L23976" class="LineNr">23976 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: -<span id="L23977" class="LineNr">23977 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L23978" class="LineNr">23978 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L23979" class="LineNr">23979 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L23980" class="LineNr">23980 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: -<span id="L23981" class="LineNr">23981 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L23982" class="LineNr">23982 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L23983" class="LineNr">23983 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L23984" class="LineNr">23984 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: -<span id="L23985" class="LineNr">23985 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L23986" class="LineNr">23986 </span> 57/push-edi -<span id="L23987" class="LineNr">23987 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L23988" class="LineNr">23988 </span> 68/push 0/imm32/no-x32 -<span id="L23989" class="LineNr">23989 </span> 68/push 0/imm32/no-xm32 -<span id="L23990" class="LineNr">23990 </span> 68/push 0/imm32/no-disp32 -<span id="L23991" class="LineNr">23991 </span> 68/push 0/imm32/no-imm8 -<span id="L23992" class="LineNr">23992 </span> 68/push 0/imm32/no-imm32 -<span id="L23993" class="LineNr">23993 </span> 68/push 0/imm32/no-r32 -<span id="L23994" class="LineNr">23994 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L23995" class="LineNr">23995 </span> 68/push 0/imm32/subx-name -<span id="L23996" class="LineNr">23996 </span> 68/push 0/imm32/subx-name -<span id="L23997" class="LineNr">23997 </span> 68/push 0/imm32/no-outputs -<span id="L23998" class="LineNr">23998 </span> 68/push 0/imm32/no-outputs -<span id="L23999" class="LineNr">23999 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L24000" class="LineNr">24000 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24001" class="LineNr">24001 </span> 68/push 0/imm32/name -<span id="L24002" class="LineNr">24002 </span> 68/push 0/imm32/name -<span id="L24003" class="LineNr">24003 </span> 89/<- %ebx 4/r32/esp -<span id="L24004" class="LineNr">24004 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: -<span id="L24005" class="LineNr">24005 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L24006" class="LineNr">24006 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L24007" class="LineNr">24007 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: -<span id="L24008" class="LineNr">24008 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L24009" class="LineNr">24009 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L24010" class="LineNr">24010 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L24011" class="LineNr">24011 </span> <span class="subxComment"># convert</span> -<span id="L24012" class="LineNr">24012 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24013" class="LineNr">24013 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24014" class="LineNr">24014 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24015" class="Folded">24015 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24021" class="LineNr">24021 </span> <span class="subxComment"># check output</span> -<span id="L24022" class="LineNr">24022 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) -<span id="L24023" class="LineNr">24023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24024" class="LineNr">24024 </span> 89/<- %esp 5/r32/ebp -<span id="L24025" class="LineNr">24025 </span> 5d/pop-to-ebp -<span id="L24026" class="LineNr">24026 </span> c3/return -<span id="L24027" class="LineNr">24027 </span> -<span id="L24028" class="LineNr">24028 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: -<span id="L24029" class="LineNr">24029 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L24030" class="LineNr">24030 </span> <span class="subxComment"># increment foo</span> -<span id="L24031" class="LineNr">24031 </span> <span class="subxComment"># =></span> -<span id="L24032" class="LineNr">24032 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L24033" class="LineNr">24033 </span> <span class="subxComment">#</span> -<span id="L24034" class="LineNr">24034 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L24035" class="LineNr">24035 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L24036" class="LineNr">24036 </span> <span class="subxComment"># type: int</span> -<span id="L24037" class="LineNr">24037 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L24038" class="LineNr">24038 </span> <span class="subxComment">#</span> -<span id="L24039" class="LineNr">24039 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L24040" class="LineNr">24040 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L24041" class="LineNr">24041 </span> <span class="subxComment"># out: int/reg</span> -<span id="L24042" class="LineNr">24042 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L24043" class="LineNr">24043 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L24044" class="LineNr">24044 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L24045" class="LineNr">24045 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L23955" class="LineNr">23955 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: +<span id="L23956" class="LineNr">23956 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L23957" class="LineNr">23957 </span> 53/push-ebx/outputs +<span id="L23958" class="LineNr">23958 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23959" class="LineNr">23959 </span> 68/push 0/imm32/no-inouts +<span id="L23960" class="LineNr">23960 </span> 68/push 0/imm32/no-inouts +<span id="L23961" class="LineNr">23961 </span> 68/push 0/imm32/operation +<span id="L23962" class="LineNr">23962 </span> 68/push 0/imm32/operation +<span id="L23963" class="LineNr">23963 </span> 68/push 1/imm32 +<span id="L23964" class="LineNr">23964 </span> 89/<- %esi 4/r32/esp +<span id="L23965" class="LineNr">23965 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: +<span id="L23966" class="LineNr">23966 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L23967" class="LineNr">23967 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L23968" class="LineNr">23968 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L23969" class="LineNr">23969 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: +<span id="L23970" class="LineNr">23970 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L23971" class="LineNr">23971 </span> 68/push 0/imm32/register +<span id="L23972" class="LineNr">23972 </span> 68/push 0/imm32/register +<span id="L23973" class="LineNr">23973 </span> 68/push 0/imm32/no-stack-offset +<span id="L23974" class="LineNr">23974 </span> 68/push 1/imm32/block-depth +<span id="L23975" class="LineNr">23975 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L23976" class="LineNr">23976 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23977" class="LineNr">23977 </span> 68/push 0/imm32/name +<span id="L23978" class="LineNr">23978 </span> 68/push 0/imm32/name +<span id="L23979" class="LineNr">23979 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23980" class="LineNr">23980 </span> 89/<- %ebx 4/r32/esp +<span id="L23981" class="LineNr">23981 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: +<span id="L23982" class="LineNr">23982 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L23983" class="LineNr">23983 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L23984" class="LineNr">23984 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L23985" class="LineNr">23985 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: +<span id="L23986" class="LineNr">23986 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L23987" class="LineNr">23987 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L23988" class="LineNr">23988 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L23989" class="LineNr">23989 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: +<span id="L23990" class="LineNr">23990 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L23991" class="LineNr">23991 </span> 68/push 0/imm32/next +<span id="L23992" class="LineNr">23992 </span> 68/push 0/imm32/next +<span id="L23993" class="LineNr">23993 </span> 53/push-ebx/formal-var +<span id="L23994" class="LineNr">23994 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L23995" class="LineNr">23995 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L23996" class="LineNr">23996 </span> 89/<- %ebx 4/r32/esp +<span id="L23997" class="LineNr">23997 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: +<span id="L23998" class="LineNr">23998 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L23999" class="LineNr">23999 </span> 68/push 0/imm32/next +<span id="L24000" class="LineNr">24000 </span> 68/push 0/imm32/next +<span id="L24001" class="LineNr">24001 </span> 68/push 0/imm32/no-x32 +<span id="L24002" class="LineNr">24002 </span> 68/push 0/imm32/no-xm32 +<span id="L24003" class="LineNr">24003 </span> 68/push 0/imm32/no-disp32 +<span id="L24004" class="LineNr">24004 </span> 68/push 0/imm32/no-imm8 +<span id="L24005" class="LineNr">24005 </span> 68/push 0/imm32/no-imm32 +<span id="L24006" class="LineNr">24006 </span> 68/push 0/imm32/no-r32 +<span id="L24007" class="LineNr">24007 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L24008" class="LineNr">24008 </span> 68/push 0/imm32/subx-name +<span id="L24009" class="LineNr">24009 </span> 68/push 0/imm32/subx-name +<span id="L24010" class="LineNr">24010 </span> 53/push-ebx/outputs +<span id="L24011" class="LineNr">24011 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24012" class="LineNr">24012 </span> 68/push 0/imm32/no-inouts +<span id="L24013" class="LineNr">24013 </span> 68/push 0/imm32/no-inouts +<span id="L24014" class="LineNr">24014 </span> 68/push 0/imm32/name +<span id="L24015" class="LineNr">24015 </span> 68/push 0/imm32/name +<span id="L24016" class="LineNr">24016 </span> 89/<- %ebx 4/r32/esp +<span id="L24017" class="LineNr">24017 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: +<span id="L24018" class="LineNr">24018 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L24019" class="LineNr">24019 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L24020" class="LineNr">24020 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: +<span id="L24021" class="LineNr">24021 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L24022" class="LineNr">24022 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L24023" class="LineNr">24023 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L24024" class="LineNr">24024 </span> <span class="subxComment"># convert</span> +<span id="L24025" class="LineNr">24025 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24026" class="LineNr">24026 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24027" class="LineNr">24027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24028" class="Folded">24028 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24034" class="LineNr">24034 </span> <span class="subxComment"># check output</span> +<span id="L24035" class="LineNr">24035 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) +<span id="L24036" class="LineNr">24036 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24037" class="LineNr">24037 </span> 89/<- %esp 5/r32/ebp +<span id="L24038" class="LineNr">24038 </span> 5d/pop-to-ebp +<span id="L24039" class="LineNr">24039 </span> c3/return +<span id="L24040" class="LineNr">24040 </span> +<span id="L24041" class="LineNr">24041 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: +<span id="L24042" class="LineNr">24042 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L24043" class="LineNr">24043 </span> <span class="subxComment"># foo <- increment</span> +<span id="L24044" class="LineNr">24044 </span> <span class="subxComment"># =></span> +<span id="L24045" class="LineNr">24045 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> <span id="L24046" class="LineNr">24046 </span> <span class="subxComment">#</span> -<span id="L24047" class="LineNr">24047 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24048" class="LineNr">24048 </span> 55/push-ebp -<span id="L24049" class="LineNr">24049 </span> 89/<- %ebp 4/r32/esp -<span id="L24050" class="LineNr">24050 </span> <span class="subxComment"># setup</span> -<span id="L24051" class="LineNr">24051 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24052" class="LineNr">24052 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24053" class="LineNr">24053 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: -<span id="L24054" class="LineNr">24054 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24055" class="LineNr">24055 </span> 68/push 0/imm32/right:null -<span id="L24056" class="LineNr">24056 </span> 68/push 0/imm32/right:null -<span id="L24057" class="LineNr">24057 </span> 68/push 0/imm32/left:unused -<span id="L24058" class="LineNr">24058 </span> 68/push 1/imm32/value:int -<span id="L24059" class="LineNr">24059 </span> 68/push 1/imm32/is-atom?:true -<span id="L24060" class="LineNr">24060 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24061" class="LineNr">24061 </span> 89/<- %ecx 4/r32/esp -<span id="L24062" class="LineNr">24062 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: -<span id="L24063" class="LineNr">24063 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L24064" class="LineNr">24064 </span> 68/push 0/imm32/register -<span id="L24065" class="LineNr">24065 </span> 68/push 0/imm32/register -<span id="L24066" class="LineNr">24066 </span> 68/push 0/imm32/no-stack-offset -<span id="L24067" class="LineNr">24067 </span> 68/push 1/imm32/block-depth -<span id="L24068" class="LineNr">24068 </span> 51/push-ecx -<span id="L24069" class="LineNr">24069 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24070" class="LineNr">24070 </span> 68/push 0/imm32/name -<span id="L24071" class="LineNr">24071 </span> 68/push 0/imm32/name -<span id="L24072" class="LineNr">24072 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24073" class="LineNr">24073 </span> 89/<- %ecx 4/r32/esp -<span id="L24074" class="LineNr">24074 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: -<span id="L24075" class="LineNr">24075 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L24076" class="LineNr">24076 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24077" class="LineNr">24077 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L24078" class="LineNr">24078 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: -<span id="L24079" class="LineNr">24079 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L24080" class="LineNr">24080 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24081" class="LineNr">24081 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L24082" class="LineNr">24082 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: -<span id="L24083" class="LineNr">24083 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L24084" class="LineNr">24084 </span> 68/push 0/imm32/is-deref:false -<span id="L24085" class="LineNr">24085 </span> 68/push 0/imm32/next -<span id="L24086" class="LineNr">24086 </span> 68/push 0/imm32/next -<span id="L24087" class="LineNr">24087 </span> 51/push-ecx/var-foo -<span id="L24088" class="LineNr">24088 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24089" class="LineNr">24089 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24090" class="LineNr">24090 </span> 89/<- %ebx 4/r32/esp -<span id="L24091" class="LineNr">24091 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: -<span id="L24092" class="LineNr">24092 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24093" class="LineNr">24093 </span> 68/push 0/imm32/no-outputs -<span id="L24094" class="LineNr">24094 </span> 68/push 0/imm32/no-outputs -<span id="L24095" class="LineNr">24095 </span> 53/push-ebx/inouts -<span id="L24096" class="LineNr">24096 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24097" class="LineNr">24097 </span> 68/push 0/imm32/operation -<span id="L24098" class="LineNr">24098 </span> 68/push 0/imm32/operation -<span id="L24099" class="LineNr">24099 </span> 68/push 1/imm32 -<span id="L24100" class="LineNr">24100 </span> 89/<- %esi 4/r32/esp -<span id="L24101" class="LineNr">24101 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: -<span id="L24102" class="LineNr">24102 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L24103" class="LineNr">24103 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24104" class="LineNr">24104 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L24105" class="LineNr">24105 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: -<span id="L24106" class="LineNr">24106 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L24107" class="LineNr">24107 </span> 68/push 0/imm32/register -<span id="L24108" class="LineNr">24108 </span> 68/push 0/imm32/register -<span id="L24109" class="LineNr">24109 </span> 68/push 0/imm32/no-stack-offset -<span id="L24110" class="LineNr">24110 </span> 68/push 1/imm32/block-depth -<span id="L24111" class="LineNr">24111 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L24112" class="LineNr">24112 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24113" class="LineNr">24113 </span> 68/push 0/imm32/name -<span id="L24114" class="LineNr">24114 </span> 68/push 0/imm32/name -<span id="L24115" class="LineNr">24115 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24116" class="LineNr">24116 </span> 89/<- %ebx 4/r32/esp -<span id="L24117" class="LineNr">24117 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: -<span id="L24118" class="LineNr">24118 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L24119" class="LineNr">24119 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24120" class="LineNr">24120 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L24121" class="LineNr">24121 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: -<span id="L24122" class="LineNr">24122 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L24123" class="LineNr">24123 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24124" class="LineNr">24124 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L24125" class="LineNr">24125 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: -<span id="L24126" class="LineNr">24126 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> -<span id="L24127" class="LineNr">24127 </span> 68/push 0/imm32/next -<span id="L24128" class="LineNr">24128 </span> 68/push 0/imm32/next -<span id="L24129" class="LineNr">24129 </span> 53/push-ebx/formal-var -<span id="L24130" class="LineNr">24130 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24131" class="LineNr">24131 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24132" class="LineNr">24132 </span> 89/<- %ebx 4/r32/esp -<span id="L24133" class="LineNr">24133 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: -<span id="L24134" class="LineNr">24134 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L24135" class="LineNr">24135 </span> 68/push 0/imm32/next -<span id="L24136" class="LineNr">24136 </span> 68/push 0/imm32/next -<span id="L24137" class="LineNr">24137 </span> 68/push 0/imm32/no-x32 -<span id="L24138" class="LineNr">24138 </span> 68/push 0/imm32/no-xm32 -<span id="L24139" class="LineNr">24139 </span> 68/push 0/imm32/no-disp32 -<span id="L24140" class="LineNr">24140 </span> 68/push 0/imm32/no-imm8 -<span id="L24141" class="LineNr">24141 </span> 68/push 0/imm32/no-imm32 -<span id="L24142" class="LineNr">24142 </span> 68/push 0/imm32/no-r32 -<span id="L24143" class="LineNr">24143 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L24144" class="LineNr">24144 </span> 68/push 0/imm32/subx-name -<span id="L24145" class="LineNr">24145 </span> 68/push 0/imm32/subx-name -<span id="L24146" class="LineNr">24146 </span> 53/push-ebx/outputs -<span id="L24147" class="LineNr">24147 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24148" class="LineNr">24148 </span> 68/push 0/imm32/no-inouts -<span id="L24149" class="LineNr">24149 </span> 68/push 0/imm32/no-inouts -<span id="L24150" class="LineNr">24150 </span> 68/push 0/imm32/name -<span id="L24151" class="LineNr">24151 </span> 68/push 0/imm32/name -<span id="L24152" class="LineNr">24152 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24153" class="LineNr">24153 </span> 89/<- %edi 4/r32/esp -<span id="L24154" class="LineNr">24154 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: -<span id="L24155" class="LineNr">24155 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L24156" class="LineNr">24156 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L24157" class="LineNr">24157 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L24158" class="LineNr">24158 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: -<span id="L24159" class="LineNr">24159 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L24160" class="LineNr">24160 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L24161" class="LineNr">24161 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L24162" class="LineNr">24162 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: -<span id="L24163" class="LineNr">24163 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L24164" class="LineNr">24164 </span> 57/push-edi -<span id="L24165" class="LineNr">24165 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24166" class="LineNr">24166 </span> 68/push 0/imm32/no-x32 -<span id="L24167" class="LineNr">24167 </span> 68/push 0/imm32/no-xm32 -<span id="L24168" class="LineNr">24168 </span> 68/push 0/imm32/no-disp32 -<span id="L24169" class="LineNr">24169 </span> 68/push 0/imm32/no-imm8 -<span id="L24170" class="LineNr">24170 </span> 68/push 0/imm32/no-imm32 -<span id="L24171" class="LineNr">24171 </span> 68/push 0/imm32/no-r32 -<span id="L24172" class="LineNr">24172 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L24173" class="LineNr">24173 </span> 68/push 0/imm32/subx-name -<span id="L24174" class="LineNr">24174 </span> 68/push 0/imm32/subx-name -<span id="L24175" class="LineNr">24175 </span> 68/push 0/imm32/no-outputs -<span id="L24176" class="LineNr">24176 </span> 68/push 0/imm32/no-outputs -<span id="L24177" class="LineNr">24177 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L24047" class="LineNr">24047 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L24048" class="LineNr">24048 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L24049" class="LineNr">24049 </span> <span class="subxComment"># type: int</span> +<span id="L24050" class="LineNr">24050 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L24051" class="LineNr">24051 </span> <span class="subxComment">#</span> +<span id="L24052" class="LineNr">24052 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L24053" class="LineNr">24053 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L24054" class="LineNr">24054 </span> <span class="subxComment"># out: int/reg</span> +<span id="L24055" class="LineNr">24055 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L24056" class="LineNr">24056 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L24057" class="LineNr">24057 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L24058" class="LineNr">24058 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L24059" class="LineNr">24059 </span> <span class="subxComment">#</span> +<span id="L24060" class="LineNr">24060 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24061" class="LineNr">24061 </span> 55/push-ebp +<span id="L24062" class="LineNr">24062 </span> 89/<- %ebp 4/r32/esp +<span id="L24063" class="LineNr">24063 </span> <span class="subxComment"># setup</span> +<span id="L24064" class="LineNr">24064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24065" class="LineNr">24065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24066" class="LineNr">24066 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: +<span id="L24067" class="LineNr">24067 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24068" class="LineNr">24068 </span> 68/push 0/imm32/right:null +<span id="L24069" class="LineNr">24069 </span> 68/push 0/imm32/right:null +<span id="L24070" class="LineNr">24070 </span> 68/push 0/imm32/left:unused +<span id="L24071" class="LineNr">24071 </span> 68/push 1/imm32/value:int +<span id="L24072" class="LineNr">24072 </span> 68/push 1/imm32/is-atom?:true +<span id="L24073" class="LineNr">24073 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24074" class="LineNr">24074 </span> 89/<- %ecx 4/r32/esp +<span id="L24075" class="LineNr">24075 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: +<span id="L24076" class="LineNr">24076 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L24077" class="LineNr">24077 </span> 68/push 0/imm32/register +<span id="L24078" class="LineNr">24078 </span> 68/push 0/imm32/register +<span id="L24079" class="LineNr">24079 </span> 68/push 0/imm32/no-stack-offset +<span id="L24080" class="LineNr">24080 </span> 68/push 1/imm32/block-depth +<span id="L24081" class="LineNr">24081 </span> 51/push-ecx +<span id="L24082" class="LineNr">24082 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24083" class="LineNr">24083 </span> 68/push 0/imm32/name +<span id="L24084" class="LineNr">24084 </span> 68/push 0/imm32/name +<span id="L24085" class="LineNr">24085 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24086" class="LineNr">24086 </span> 89/<- %ecx 4/r32/esp +<span id="L24087" class="LineNr">24087 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: +<span id="L24088" class="LineNr">24088 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L24089" class="LineNr">24089 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24090" class="LineNr">24090 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L24091" class="LineNr">24091 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: +<span id="L24092" class="LineNr">24092 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L24093" class="LineNr">24093 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24094" class="LineNr">24094 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24095" class="LineNr">24095 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: +<span id="L24096" class="LineNr">24096 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L24097" class="LineNr">24097 </span> 68/push 0/imm32/is-deref:false +<span id="L24098" class="LineNr">24098 </span> 68/push 0/imm32/next +<span id="L24099" class="LineNr">24099 </span> 68/push 0/imm32/next +<span id="L24100" class="LineNr">24100 </span> 51/push-ecx/var-foo +<span id="L24101" class="LineNr">24101 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24102" class="LineNr">24102 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24103" class="LineNr">24103 </span> 89/<- %ebx 4/r32/esp +<span id="L24104" class="LineNr">24104 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: +<span id="L24105" class="LineNr">24105 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24106" class="LineNr">24106 </span> 53/push-ebx/outputs +<span id="L24107" class="LineNr">24107 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24108" class="LineNr">24108 </span> 68/push 0/imm32/no-inouts +<span id="L24109" class="LineNr">24109 </span> 68/push 0/imm32/no-inouts +<span id="L24110" class="LineNr">24110 </span> 68/push 0/imm32/operation +<span id="L24111" class="LineNr">24111 </span> 68/push 0/imm32/operation +<span id="L24112" class="LineNr">24112 </span> 68/push 1/imm32 +<span id="L24113" class="LineNr">24113 </span> 89/<- %esi 4/r32/esp +<span id="L24114" class="LineNr">24114 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: +<span id="L24115" class="LineNr">24115 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L24116" class="LineNr">24116 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24117" class="LineNr">24117 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L24118" class="LineNr">24118 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: +<span id="L24119" class="LineNr">24119 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L24120" class="LineNr">24120 </span> 68/push 0/imm32/register +<span id="L24121" class="LineNr">24121 </span> 68/push 0/imm32/register +<span id="L24122" class="LineNr">24122 </span> 68/push 0/imm32/no-stack-offset +<span id="L24123" class="LineNr">24123 </span> 68/push 1/imm32/block-depth +<span id="L24124" class="LineNr">24124 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L24125" class="LineNr">24125 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24126" class="LineNr">24126 </span> 68/push 0/imm32/name +<span id="L24127" class="LineNr">24127 </span> 68/push 0/imm32/name +<span id="L24128" class="LineNr">24128 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24129" class="LineNr">24129 </span> 89/<- %ebx 4/r32/esp +<span id="L24130" class="LineNr">24130 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: +<span id="L24131" class="LineNr">24131 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L24132" class="LineNr">24132 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24133" class="LineNr">24133 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L24134" class="LineNr">24134 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: +<span id="L24135" class="LineNr">24135 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L24136" class="LineNr">24136 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24137" class="LineNr">24137 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L24138" class="LineNr">24138 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: +<span id="L24139" class="LineNr">24139 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L24140" class="LineNr">24140 </span> 68/push 0/imm32/next +<span id="L24141" class="LineNr">24141 </span> 68/push 0/imm32/next +<span id="L24142" class="LineNr">24142 </span> 53/push-ebx/formal-var +<span id="L24143" class="LineNr">24143 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24144" class="LineNr">24144 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24145" class="LineNr">24145 </span> 89/<- %ebx 4/r32/esp +<span id="L24146" class="LineNr">24146 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: +<span id="L24147" class="LineNr">24147 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L24148" class="LineNr">24148 </span> 68/push 0/imm32/next +<span id="L24149" class="LineNr">24149 </span> 68/push 0/imm32/next +<span id="L24150" class="LineNr">24150 </span> 68/push 0/imm32/no-x32 +<span id="L24151" class="LineNr">24151 </span> 68/push 0/imm32/no-xm32 +<span id="L24152" class="LineNr">24152 </span> 68/push 0/imm32/no-disp32 +<span id="L24153" class="LineNr">24153 </span> 68/push 0/imm32/no-imm8 +<span id="L24154" class="LineNr">24154 </span> 68/push 0/imm32/no-imm32 +<span id="L24155" class="LineNr">24155 </span> 68/push 0/imm32/no-r32 +<span id="L24156" class="LineNr">24156 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L24157" class="LineNr">24157 </span> 68/push 0/imm32/subx-name +<span id="L24158" class="LineNr">24158 </span> 68/push 0/imm32/subx-name +<span id="L24159" class="LineNr">24159 </span> 53/push-ebx/outputs +<span id="L24160" class="LineNr">24160 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24161" class="LineNr">24161 </span> 68/push 0/imm32/no-inouts +<span id="L24162" class="LineNr">24162 </span> 68/push 0/imm32/no-inouts +<span id="L24163" class="LineNr">24163 </span> 68/push 0/imm32/name +<span id="L24164" class="LineNr">24164 </span> 68/push 0/imm32/name +<span id="L24165" class="LineNr">24165 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24166" class="LineNr">24166 </span> 89/<- %edi 4/r32/esp +<span id="L24167" class="LineNr">24167 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: +<span id="L24168" class="LineNr">24168 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L24169" class="LineNr">24169 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L24170" class="LineNr">24170 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L24171" class="LineNr">24171 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: +<span id="L24172" class="LineNr">24172 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L24173" class="LineNr">24173 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L24174" class="LineNr">24174 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L24175" class="LineNr">24175 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: +<span id="L24176" class="LineNr">24176 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L24177" class="LineNr">24177 </span> 57/push-edi <span id="L24178" class="LineNr">24178 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24179" class="LineNr">24179 </span> 68/push 0/imm32/name -<span id="L24180" class="LineNr">24180 </span> 68/push 0/imm32/name -<span id="L24181" class="LineNr">24181 </span> 89/<- %ebx 4/r32/esp -<span id="L24182" class="LineNr">24182 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: -<span id="L24183" class="LineNr">24183 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L24184" class="LineNr">24184 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L24185" class="LineNr">24185 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: -<span id="L24186" class="LineNr">24186 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L24187" class="LineNr">24187 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L24188" class="LineNr">24188 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L24189" class="LineNr">24189 </span> <span class="subxComment"># convert</span> -<span id="L24190" class="LineNr">24190 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24191" class="LineNr">24191 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24192" class="LineNr">24192 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24193" class="Folded">24193 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24199" class="LineNr">24199 </span> <span class="subxComment"># check output</span> -<span id="L24200" class="LineNr">24200 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) -<span id="L24201" class="LineNr">24201 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24202" class="LineNr">24202 </span> 89/<- %esp 5/r32/ebp -<span id="L24203" class="LineNr">24203 </span> 5d/pop-to-ebp -<span id="L24204" class="LineNr">24204 </span> c3/return -<span id="L24205" class="LineNr">24205 </span> -<span id="L24206" class="LineNr">24206 </span><span class="subxTest">test-increment-register</span>: -<span id="L24207" class="LineNr">24207 </span> <span class="subxComment"># Select the right register between overloads.</span> -<span id="L24208" class="LineNr">24208 </span> <span class="subxComment"># foo <- increment</span> -<span id="L24209" class="LineNr">24209 </span> <span class="subxComment"># =></span> -<span id="L24210" class="LineNr">24210 </span> <span class="subxComment"># 50/increment-eax</span> -<span id="L24211" class="LineNr">24211 </span> <span class="subxComment">#</span> -<span id="L24212" class="LineNr">24212 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L24213" class="LineNr">24213 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L24214" class="LineNr">24214 </span> <span class="subxComment"># type: int</span> -<span id="L24215" class="LineNr">24215 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L24216" class="LineNr">24216 </span> <span class="subxComment">#</span> -<span id="L24217" class="LineNr">24217 </span> <span class="subxComment"># Primitives are the global definitions.</span> -<span id="L24218" class="LineNr">24218 </span> <span class="subxComment">#</span> -<span id="L24219" class="LineNr">24219 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24220" class="LineNr">24220 </span> 55/push-ebp -<span id="L24221" class="LineNr">24221 </span> 89/<- %ebp 4/r32/esp -<span id="L24222" class="LineNr">24222 </span> <span class="subxComment"># setup</span> -<span id="L24223" class="LineNr">24223 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24224" class="LineNr">24224 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24225" class="LineNr">24225 </span><span class="Constant">$test-increment-register:initialize-type</span>: -<span id="L24226" class="LineNr">24226 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24227" class="LineNr">24227 </span> 68/push 0/imm32/right:null -<span id="L24228" class="LineNr">24228 </span> 68/push 0/imm32/right:null -<span id="L24229" class="LineNr">24229 </span> 68/push 0/imm32/left:unused -<span id="L24230" class="LineNr">24230 </span> 68/push 1/imm32/value:int -<span id="L24231" class="LineNr">24231 </span> 68/push 1/imm32/is-atom?:true -<span id="L24232" class="LineNr">24232 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24233" class="LineNr">24233 </span> 89/<- %ecx 4/r32/esp -<span id="L24234" class="LineNr">24234 </span><span class="Constant">$test-increment-register:initialize-var</span>: -<span id="L24235" class="LineNr">24235 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L24236" class="LineNr">24236 </span> 68/push 0/imm32/register -<span id="L24237" class="LineNr">24237 </span> 68/push 0/imm32/register -<span id="L24238" class="LineNr">24238 </span> 68/push 0/imm32/no-stack-offset -<span id="L24239" class="LineNr">24239 </span> 68/push 1/imm32/block-depth -<span id="L24240" class="LineNr">24240 </span> 51/push-ecx -<span id="L24241" class="LineNr">24241 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24242" class="LineNr">24242 </span> 68/push 0/imm32/name -<span id="L24243" class="LineNr">24243 </span> 68/push 0/imm32/name -<span id="L24244" class="LineNr">24244 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24245" class="LineNr">24245 </span> 89/<- %ecx 4/r32/esp -<span id="L24246" class="LineNr">24246 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: -<span id="L24247" class="LineNr">24247 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L24248" class="LineNr">24248 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24249" class="LineNr">24249 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L24250" class="LineNr">24250 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: -<span id="L24251" class="LineNr">24251 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L24252" class="LineNr">24252 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24253" class="LineNr">24253 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L24254" class="LineNr">24254 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: -<span id="L24255" class="LineNr">24255 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L24256" class="LineNr">24256 </span> 68/push 0/imm32/is-deref:false -<span id="L24257" class="LineNr">24257 </span> 68/push 0/imm32/next -<span id="L24258" class="LineNr">24258 </span> 68/push 0/imm32/next -<span id="L24259" class="LineNr">24259 </span> 51/push-ecx/var-foo +<span id="L24179" class="LineNr">24179 </span> 68/push 0/imm32/no-x32 +<span id="L24180" class="LineNr">24180 </span> 68/push 0/imm32/no-xm32 +<span id="L24181" class="LineNr">24181 </span> 68/push 0/imm32/no-disp32 +<span id="L24182" class="LineNr">24182 </span> 68/push 0/imm32/no-imm8 +<span id="L24183" class="LineNr">24183 </span> 68/push 0/imm32/no-imm32 +<span id="L24184" class="LineNr">24184 </span> 68/push 0/imm32/no-r32 +<span id="L24185" class="LineNr">24185 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L24186" class="LineNr">24186 </span> 68/push 0/imm32/subx-name +<span id="L24187" class="LineNr">24187 </span> 68/push 0/imm32/subx-name +<span id="L24188" class="LineNr">24188 </span> 68/push 0/imm32/no-outputs +<span id="L24189" class="LineNr">24189 </span> 68/push 0/imm32/no-outputs +<span id="L24190" class="LineNr">24190 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L24191" class="LineNr">24191 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24192" class="LineNr">24192 </span> 68/push 0/imm32/name +<span id="L24193" class="LineNr">24193 </span> 68/push 0/imm32/name +<span id="L24194" class="LineNr">24194 </span> 89/<- %ebx 4/r32/esp +<span id="L24195" class="LineNr">24195 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: +<span id="L24196" class="LineNr">24196 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L24197" class="LineNr">24197 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L24198" class="LineNr">24198 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: +<span id="L24199" class="LineNr">24199 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L24200" class="LineNr">24200 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L24201" class="LineNr">24201 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L24202" class="LineNr">24202 </span> <span class="subxComment"># convert</span> +<span id="L24203" class="LineNr">24203 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24204" class="LineNr">24204 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24205" class="LineNr">24205 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24206" class="Folded">24206 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24212" class="LineNr">24212 </span> <span class="subxComment"># check output</span> +<span id="L24213" class="LineNr">24213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) +<span id="L24214" class="LineNr">24214 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24215" class="LineNr">24215 </span> 89/<- %esp 5/r32/ebp +<span id="L24216" class="LineNr">24216 </span> 5d/pop-to-ebp +<span id="L24217" class="LineNr">24217 </span> c3/return +<span id="L24218" class="LineNr">24218 </span> +<span id="L24219" class="LineNr">24219 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: +<span id="L24220" class="LineNr">24220 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L24221" class="LineNr">24221 </span> <span class="subxComment"># increment foo</span> +<span id="L24222" class="LineNr">24222 </span> <span class="subxComment"># =></span> +<span id="L24223" class="LineNr">24223 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L24224" class="LineNr">24224 </span> <span class="subxComment">#</span> +<span id="L24225" class="LineNr">24225 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L24226" class="LineNr">24226 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L24227" class="LineNr">24227 </span> <span class="subxComment"># type: int</span> +<span id="L24228" class="LineNr">24228 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L24229" class="LineNr">24229 </span> <span class="subxComment">#</span> +<span id="L24230" class="LineNr">24230 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L24231" class="LineNr">24231 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L24232" class="LineNr">24232 </span> <span class="subxComment"># out: int/reg</span> +<span id="L24233" class="LineNr">24233 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L24234" class="LineNr">24234 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L24235" class="LineNr">24235 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L24236" class="LineNr">24236 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L24237" class="LineNr">24237 </span> <span class="subxComment">#</span> +<span id="L24238" class="LineNr">24238 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24239" class="LineNr">24239 </span> 55/push-ebp +<span id="L24240" class="LineNr">24240 </span> 89/<- %ebp 4/r32/esp +<span id="L24241" class="LineNr">24241 </span> <span class="subxComment"># setup</span> +<span id="L24242" class="LineNr">24242 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24243" class="LineNr">24243 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24244" class="LineNr">24244 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: +<span id="L24245" class="LineNr">24245 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24246" class="LineNr">24246 </span> 68/push 0/imm32/right:null +<span id="L24247" class="LineNr">24247 </span> 68/push 0/imm32/right:null +<span id="L24248" class="LineNr">24248 </span> 68/push 0/imm32/left:unused +<span id="L24249" class="LineNr">24249 </span> 68/push 1/imm32/value:int +<span id="L24250" class="LineNr">24250 </span> 68/push 1/imm32/is-atom?:true +<span id="L24251" class="LineNr">24251 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24252" class="LineNr">24252 </span> 89/<- %ecx 4/r32/esp +<span id="L24253" class="LineNr">24253 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: +<span id="L24254" class="LineNr">24254 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L24255" class="LineNr">24255 </span> 68/push 0/imm32/register +<span id="L24256" class="LineNr">24256 </span> 68/push 0/imm32/register +<span id="L24257" class="LineNr">24257 </span> 68/push 0/imm32/no-stack-offset +<span id="L24258" class="LineNr">24258 </span> 68/push 1/imm32/block-depth +<span id="L24259" class="LineNr">24259 </span> 51/push-ecx <span id="L24260" class="LineNr">24260 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24261" class="LineNr">24261 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24262" class="LineNr">24262 </span> 89/<- %ebx 4/r32/esp -<span id="L24263" class="LineNr">24263 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: -<span id="L24264" class="LineNr">24264 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24265" class="LineNr">24265 </span> 53/push-ebx/outputs -<span id="L24266" class="LineNr">24266 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24267" class="LineNr">24267 </span> 68/push 0/imm32/no-inouts -<span id="L24268" class="LineNr">24268 </span> 68/push 0/imm32/no-inouts -<span id="L24269" class="LineNr">24269 </span> 68/push 0/imm32/operation -<span id="L24270" class="LineNr">24270 </span> 68/push 0/imm32/operation -<span id="L24271" class="LineNr">24271 </span> 68/push 1/imm32 -<span id="L24272" class="LineNr">24272 </span> 89/<- %esi 4/r32/esp -<span id="L24273" class="LineNr">24273 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: -<span id="L24274" class="LineNr">24274 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L24275" class="LineNr">24275 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24276" class="LineNr">24276 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L24277" class="LineNr">24277 </span> <span class="subxComment"># convert</span> -<span id="L24278" class="LineNr">24278 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24279" class="LineNr">24279 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24280" class="LineNr">24280 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24281" class="Folded">24281 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24287" class="LineNr">24287 </span> <span class="subxComment"># check output</span> -<span id="L24288" class="LineNr">24288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) -<span id="L24289" class="LineNr">24289 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24290" class="LineNr">24290 </span> 89/<- %esp 5/r32/ebp -<span id="L24291" class="LineNr">24291 </span> 5d/pop-to-ebp -<span id="L24292" class="LineNr">24292 </span> c3/return -<span id="L24293" class="LineNr">24293 </span> -<span id="L24294" class="LineNr">24294 </span><span class="subxTest">test-add-reg-to-reg</span>: -<span id="L24295" class="LineNr">24295 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> -<span id="L24296" class="LineNr">24296 </span> <span class="subxComment"># =></span> -<span id="L24297" class="LineNr">24297 </span> <span class="subxComment"># 01/add-to %var1 var2</span> -<span id="L24298" class="LineNr">24298 </span> <span class="subxComment">#</span> -<span id="L24299" class="LineNr">24299 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24300" class="LineNr">24300 </span> 55/push-ebp -<span id="L24301" class="LineNr">24301 </span> 89/<- %ebp 4/r32/esp -<span id="L24302" class="LineNr">24302 </span> <span class="subxComment"># setup</span> -<span id="L24303" class="LineNr">24303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24304" class="LineNr">24304 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24305" class="LineNr">24305 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: -<span id="L24306" class="LineNr">24306 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24307" class="LineNr">24307 </span> 68/push 0/imm32/right:null -<span id="L24308" class="LineNr">24308 </span> 68/push 0/imm32/right:null -<span id="L24309" class="LineNr">24309 </span> 68/push 0/imm32/left:unused -<span id="L24310" class="LineNr">24310 </span> 68/push 1/imm32/value:int -<span id="L24311" class="LineNr">24311 </span> 68/push 1/imm32/is-atom?:true -<span id="L24312" class="LineNr">24312 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24313" class="LineNr">24313 </span> 89/<- %ecx 4/r32/esp -<span id="L24314" class="LineNr">24314 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: -<span id="L24315" class="LineNr">24315 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L24316" class="LineNr">24316 </span> 68/push 0/imm32/register -<span id="L24317" class="LineNr">24317 </span> 68/push 0/imm32/register -<span id="L24318" class="LineNr">24318 </span> 68/push 0/imm32/no-stack-offset -<span id="L24319" class="LineNr">24319 </span> 68/push 1/imm32/block-depth -<span id="L24320" class="LineNr">24320 </span> 51/push-ecx +<span id="L24261" class="LineNr">24261 </span> 68/push 0/imm32/name +<span id="L24262" class="LineNr">24262 </span> 68/push 0/imm32/name +<span id="L24263" class="LineNr">24263 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24264" class="LineNr">24264 </span> 89/<- %ecx 4/r32/esp +<span id="L24265" class="LineNr">24265 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: +<span id="L24266" class="LineNr">24266 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L24267" class="LineNr">24267 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24268" class="LineNr">24268 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L24269" class="LineNr">24269 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: +<span id="L24270" class="LineNr">24270 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L24271" class="LineNr">24271 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24272" class="LineNr">24272 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24273" class="LineNr">24273 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: +<span id="L24274" class="LineNr">24274 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L24275" class="LineNr">24275 </span> 68/push 0/imm32/is-deref:false +<span id="L24276" class="LineNr">24276 </span> 68/push 0/imm32/next +<span id="L24277" class="LineNr">24277 </span> 68/push 0/imm32/next +<span id="L24278" class="LineNr">24278 </span> 51/push-ecx/var-foo +<span id="L24279" class="LineNr">24279 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24280" class="LineNr">24280 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24281" class="LineNr">24281 </span> 89/<- %ebx 4/r32/esp +<span id="L24282" class="LineNr">24282 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: +<span id="L24283" class="LineNr">24283 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24284" class="LineNr">24284 </span> 68/push 0/imm32/no-outputs +<span id="L24285" class="LineNr">24285 </span> 68/push 0/imm32/no-outputs +<span id="L24286" class="LineNr">24286 </span> 53/push-ebx/inouts +<span id="L24287" class="LineNr">24287 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24288" class="LineNr">24288 </span> 68/push 0/imm32/operation +<span id="L24289" class="LineNr">24289 </span> 68/push 0/imm32/operation +<span id="L24290" class="LineNr">24290 </span> 68/push 1/imm32 +<span id="L24291" class="LineNr">24291 </span> 89/<- %esi 4/r32/esp +<span id="L24292" class="LineNr">24292 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: +<span id="L24293" class="LineNr">24293 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L24294" class="LineNr">24294 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24295" class="LineNr">24295 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L24296" class="LineNr">24296 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: +<span id="L24297" class="LineNr">24297 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L24298" class="LineNr">24298 </span> 68/push 0/imm32/register +<span id="L24299" class="LineNr">24299 </span> 68/push 0/imm32/register +<span id="L24300" class="LineNr">24300 </span> 68/push 0/imm32/no-stack-offset +<span id="L24301" class="LineNr">24301 </span> 68/push 1/imm32/block-depth +<span id="L24302" class="LineNr">24302 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L24303" class="LineNr">24303 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24304" class="LineNr">24304 </span> 68/push 0/imm32/name +<span id="L24305" class="LineNr">24305 </span> 68/push 0/imm32/name +<span id="L24306" class="LineNr">24306 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24307" class="LineNr">24307 </span> 89/<- %ebx 4/r32/esp +<span id="L24308" class="LineNr">24308 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: +<span id="L24309" class="LineNr">24309 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L24310" class="LineNr">24310 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24311" class="LineNr">24311 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L24312" class="LineNr">24312 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: +<span id="L24313" class="LineNr">24313 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L24314" class="LineNr">24314 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24315" class="LineNr">24315 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L24316" class="LineNr">24316 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: +<span id="L24317" class="LineNr">24317 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> +<span id="L24318" class="LineNr">24318 </span> 68/push 0/imm32/next +<span id="L24319" class="LineNr">24319 </span> 68/push 0/imm32/next +<span id="L24320" class="LineNr">24320 </span> 53/push-ebx/formal-var <span id="L24321" class="LineNr">24321 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24322" class="LineNr">24322 </span> 68/push 0/imm32/name -<span id="L24323" class="LineNr">24323 </span> 68/push 0/imm32/name -<span id="L24324" class="LineNr">24324 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24325" class="LineNr">24325 </span> 89/<- %ecx 4/r32/esp -<span id="L24326" class="LineNr">24326 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: -<span id="L24327" class="LineNr">24327 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L24328" class="LineNr">24328 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24329" class="LineNr">24329 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L24330" class="LineNr">24330 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: -<span id="L24331" class="LineNr">24331 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L24332" class="LineNr">24332 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24333" class="LineNr">24333 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L24334" class="LineNr">24334 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: -<span id="L24335" class="LineNr">24335 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L24336" class="LineNr">24336 </span> 68/push 0/imm32/register -<span id="L24337" class="LineNr">24337 </span> 68/push 0/imm32/register -<span id="L24338" class="LineNr">24338 </span> 68/push 0/imm32/no-stack-offset -<span id="L24339" class="LineNr">24339 </span> 68/push 1/imm32/block-depth -<span id="L24340" class="LineNr">24340 </span> ff 6/subop/push *(ecx+0x10) -<span id="L24341" class="LineNr">24341 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24322" class="LineNr">24322 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24323" class="LineNr">24323 </span> 89/<- %ebx 4/r32/esp +<span id="L24324" class="LineNr">24324 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: +<span id="L24325" class="LineNr">24325 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L24326" class="LineNr">24326 </span> 68/push 0/imm32/next +<span id="L24327" class="LineNr">24327 </span> 68/push 0/imm32/next +<span id="L24328" class="LineNr">24328 </span> 68/push 0/imm32/no-x32 +<span id="L24329" class="LineNr">24329 </span> 68/push 0/imm32/no-xm32 +<span id="L24330" class="LineNr">24330 </span> 68/push 0/imm32/no-disp32 +<span id="L24331" class="LineNr">24331 </span> 68/push 0/imm32/no-imm8 +<span id="L24332" class="LineNr">24332 </span> 68/push 0/imm32/no-imm32 +<span id="L24333" class="LineNr">24333 </span> 68/push 0/imm32/no-r32 +<span id="L24334" class="LineNr">24334 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L24335" class="LineNr">24335 </span> 68/push 0/imm32/subx-name +<span id="L24336" class="LineNr">24336 </span> 68/push 0/imm32/subx-name +<span id="L24337" class="LineNr">24337 </span> 53/push-ebx/outputs +<span id="L24338" class="LineNr">24338 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24339" class="LineNr">24339 </span> 68/push 0/imm32/no-inouts +<span id="L24340" class="LineNr">24340 </span> 68/push 0/imm32/no-inouts +<span id="L24341" class="LineNr">24341 </span> 68/push 0/imm32/name <span id="L24342" class="LineNr">24342 </span> 68/push 0/imm32/name -<span id="L24343" class="LineNr">24343 </span> 68/push 0/imm32/name -<span id="L24344" class="LineNr">24344 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24345" class="LineNr">24345 </span> 89/<- %edx 4/r32/esp -<span id="L24346" class="LineNr">24346 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: -<span id="L24347" class="LineNr">24347 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L24348" class="LineNr">24348 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24349" class="LineNr">24349 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L24350" class="LineNr">24350 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: -<span id="L24351" class="LineNr">24351 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L24352" class="LineNr">24352 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24353" class="LineNr">24353 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L24354" class="LineNr">24354 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: -<span id="L24355" class="LineNr">24355 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L24356" class="LineNr">24356 </span> 68/push 0/imm32/is-deref:false -<span id="L24357" class="LineNr">24357 </span> 68/push 0/imm32/next -<span id="L24358" class="LineNr">24358 </span> 68/push 0/imm32/next -<span id="L24359" class="LineNr">24359 </span> 52/push-edx/var2 -<span id="L24360" class="LineNr">24360 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24361" class="LineNr">24361 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24362" class="LineNr">24362 </span> 89/<- %esi 4/r32/esp -<span id="L24363" class="LineNr">24363 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: -<span id="L24364" class="LineNr">24364 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L24365" class="LineNr">24365 </span> 68/push 0/imm32/is-deref:false -<span id="L24366" class="LineNr">24366 </span> 68/push 0/imm32/next -<span id="L24367" class="LineNr">24367 </span> 68/push 0/imm32/next -<span id="L24368" class="LineNr">24368 </span> 51/push-ecx/var1 +<span id="L24343" class="LineNr">24343 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24344" class="LineNr">24344 </span> 89/<- %edi 4/r32/esp +<span id="L24345" class="LineNr">24345 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: +<span id="L24346" class="LineNr">24346 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L24347" class="LineNr">24347 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L24348" class="LineNr">24348 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L24349" class="LineNr">24349 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L24350" class="LineNr">24350 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L24351" class="LineNr">24351 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L24352" class="LineNr">24352 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L24353" class="LineNr">24353 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: +<span id="L24354" class="LineNr">24354 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L24355" class="LineNr">24355 </span> 57/push-edi +<span id="L24356" class="LineNr">24356 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24357" class="LineNr">24357 </span> 68/push 0/imm32/no-x32 +<span id="L24358" class="LineNr">24358 </span> 68/push 0/imm32/no-xm32 +<span id="L24359" class="LineNr">24359 </span> 68/push 0/imm32/no-disp32 +<span id="L24360" class="LineNr">24360 </span> 68/push 0/imm32/no-imm8 +<span id="L24361" class="LineNr">24361 </span> 68/push 0/imm32/no-imm32 +<span id="L24362" class="LineNr">24362 </span> 68/push 0/imm32/no-r32 +<span id="L24363" class="LineNr">24363 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L24364" class="LineNr">24364 </span> 68/push 0/imm32/subx-name +<span id="L24365" class="LineNr">24365 </span> 68/push 0/imm32/subx-name +<span id="L24366" class="LineNr">24366 </span> 68/push 0/imm32/no-outputs +<span id="L24367" class="LineNr">24367 </span> 68/push 0/imm32/no-outputs +<span id="L24368" class="LineNr">24368 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> <span id="L24369" class="LineNr">24369 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24370" class="LineNr">24370 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24371" class="LineNr">24371 </span> 89/<- %edi 4/r32/esp -<span id="L24372" class="LineNr">24372 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: -<span id="L24373" class="LineNr">24373 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24374" class="LineNr">24374 </span> 68/push 0/imm32/next -<span id="L24375" class="LineNr">24375 </span> 68/push 0/imm32/next -<span id="L24376" class="LineNr">24376 </span> 57/push-edi/outputs -<span id="L24377" class="LineNr">24377 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24378" class="LineNr">24378 </span> 56/push-esi/inouts -<span id="L24379" class="LineNr">24379 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24380" class="LineNr">24380 </span> 68/push 0/imm32/operation -<span id="L24381" class="LineNr">24381 </span> 68/push 0/imm32/operation -<span id="L24382" class="LineNr">24382 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24383" class="LineNr">24383 </span> 89/<- %esi 4/r32/esp -<span id="L24384" class="LineNr">24384 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: -<span id="L24385" class="LineNr">24385 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L24386" class="LineNr">24386 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24387" class="LineNr">24387 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L24388" class="LineNr">24388 </span> <span class="subxComment"># convert</span> -<span id="L24389" class="LineNr">24389 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24390" class="LineNr">24390 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24391" class="LineNr">24391 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24392" class="Folded">24392 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24398" class="LineNr">24398 </span> <span class="subxComment"># check output</span> -<span id="L24399" class="LineNr">24399 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) -<span id="L24400" class="LineNr">24400 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24401" class="LineNr">24401 </span> 89/<- %esp 5/r32/ebp -<span id="L24402" class="LineNr">24402 </span> 5d/pop-to-ebp -<span id="L24403" class="LineNr">24403 </span> c3/return -<span id="L24404" class="LineNr">24404 </span> -<span id="L24405" class="LineNr">24405 </span><span class="subxTest">test-add-reg-to-mem</span>: -<span id="L24406" class="LineNr">24406 </span> <span class="subxComment"># add-to var1 var2/reg</span> -<span id="L24407" class="LineNr">24407 </span> <span class="subxComment"># =></span> -<span id="L24408" class="LineNr">24408 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> +<span id="L24370" class="LineNr">24370 </span> 68/push 0/imm32/name +<span id="L24371" class="LineNr">24371 </span> 68/push 0/imm32/name +<span id="L24372" class="LineNr">24372 </span> 89/<- %ebx 4/r32/esp +<span id="L24373" class="LineNr">24373 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: +<span id="L24374" class="LineNr">24374 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L24375" class="LineNr">24375 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L24376" class="LineNr">24376 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: +<span id="L24377" class="LineNr">24377 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L24378" class="LineNr">24378 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L24379" class="LineNr">24379 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L24380" class="LineNr">24380 </span> <span class="subxComment"># convert</span> +<span id="L24381" class="LineNr">24381 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24382" class="LineNr">24382 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24383" class="LineNr">24383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24384" class="Folded">24384 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24390" class="LineNr">24390 </span> <span class="subxComment"># check output</span> +<span id="L24391" class="LineNr">24391 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) +<span id="L24392" class="LineNr">24392 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24393" class="LineNr">24393 </span> 89/<- %esp 5/r32/ebp +<span id="L24394" class="LineNr">24394 </span> 5d/pop-to-ebp +<span id="L24395" class="LineNr">24395 </span> c3/return +<span id="L24396" class="LineNr">24396 </span> +<span id="L24397" class="LineNr">24397 </span><span class="subxTest">test-increment-register</span>: +<span id="L24398" class="LineNr">24398 </span> <span class="subxComment"># Select the right register between overloads.</span> +<span id="L24399" class="LineNr">24399 </span> <span class="subxComment"># foo <- increment</span> +<span id="L24400" class="LineNr">24400 </span> <span class="subxComment"># =></span> +<span id="L24401" class="LineNr">24401 </span> <span class="subxComment"># 50/increment-eax</span> +<span id="L24402" class="LineNr">24402 </span> <span class="subxComment">#</span> +<span id="L24403" class="LineNr">24403 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L24404" class="LineNr">24404 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L24405" class="LineNr">24405 </span> <span class="subxComment"># type: int</span> +<span id="L24406" class="LineNr">24406 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L24407" class="LineNr">24407 </span> <span class="subxComment">#</span> +<span id="L24408" class="LineNr">24408 </span> <span class="subxComment"># Primitives are the global definitions.</span> <span id="L24409" class="LineNr">24409 </span> <span class="subxComment">#</span> <span id="L24410" class="LineNr">24410 </span> <span class="subxS1Comment"># . prologue</span> <span id="L24411" class="LineNr">24411 </span> 55/push-ebp @@ -23602,7 +23602,7 @@ if ('onhashchange' in window) { <span id="L24413" class="LineNr">24413 </span> <span class="subxComment"># setup</span> <span id="L24414" class="LineNr">24414 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) <span id="L24415" class="LineNr">24415 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24416" class="LineNr">24416 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: +<span id="L24416" class="LineNr">24416 </span><span class="Constant">$test-increment-register:initialize-type</span>: <span id="L24417" class="LineNr">24417 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> <span id="L24418" class="LineNr">24418 </span> 68/push 0/imm32/right:null <span id="L24419" class="LineNr">24419 </span> 68/push 0/imm32/right:null @@ -23611,11 +23611,11 @@ if ('onhashchange' in window) { <span id="L24422" class="LineNr">24422 </span> 68/push 1/imm32/is-atom?:true <span id="L24423" class="LineNr">24423 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L24424" class="LineNr">24424 </span> 89/<- %ecx 4/r32/esp -<span id="L24425" class="LineNr">24425 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: -<span id="L24426" class="LineNr">24426 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L24425" class="LineNr">24425 </span><span class="Constant">$test-increment-register:initialize-var</span>: +<span id="L24426" class="LineNr">24426 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> <span id="L24427" class="LineNr">24427 </span> 68/push 0/imm32/register <span id="L24428" class="LineNr">24428 </span> 68/push 0/imm32/register -<span id="L24429" class="LineNr">24429 </span> 68/push 8/imm32/stack-offset +<span id="L24429" class="LineNr">24429 </span> 68/push 0/imm32/no-stack-offset <span id="L24430" class="LineNr">24430 </span> 68/push 1/imm32/block-depth <span id="L24431" class="LineNr">24431 </span> 51/push-ecx <span id="L24432" class="LineNr">24432 </span> 68/push 0x11/imm32/alloc-id:fake @@ -23623,1562 +23623,1743 @@ if ('onhashchange' in window) { <span id="L24434" class="LineNr">24434 </span> 68/push 0/imm32/name <span id="L24435" class="LineNr">24435 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L24436" class="LineNr">24436 </span> 89/<- %ecx 4/r32/esp -<span id="L24437" class="LineNr">24437 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: -<span id="L24438" class="LineNr">24438 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L24437" class="LineNr">24437 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: +<span id="L24438" class="LineNr">24438 </span> <span class="subxComment"># var-foo->name = "foo"</span> <span id="L24439" class="LineNr">24439 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24440" class="LineNr">24440 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L24441" class="LineNr">24441 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: -<span id="L24442" class="LineNr">24442 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L24443" class="LineNr">24443 </span> 68/push 0/imm32/register -<span id="L24444" class="LineNr">24444 </span> 68/push 0/imm32/register -<span id="L24445" class="LineNr">24445 </span> 68/push 0/imm32/no-stack-offset -<span id="L24446" class="LineNr">24446 </span> 68/push 1/imm32/block-depth -<span id="L24447" class="LineNr">24447 </span> ff 6/subop/push *(ecx+0x10) -<span id="L24448" class="LineNr">24448 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24449" class="LineNr">24449 </span> 68/push 0/imm32/name -<span id="L24450" class="LineNr">24450 </span> 68/push 0/imm32/name -<span id="L24451" class="LineNr">24451 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24452" class="LineNr">24452 </span> 89/<- %edx 4/r32/esp -<span id="L24453" class="LineNr">24453 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: -<span id="L24454" class="LineNr">24454 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L24455" class="LineNr">24455 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24456" class="LineNr">24456 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L24457" class="LineNr">24457 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: -<span id="L24458" class="LineNr">24458 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L24459" class="LineNr">24459 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24460" class="LineNr">24460 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L24461" class="LineNr">24461 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: -<span id="L24462" class="LineNr">24462 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L24463" class="LineNr">24463 </span> 68/push 0/imm32/is-deref:false -<span id="L24464" class="LineNr">24464 </span> 68/push 0/imm32/next -<span id="L24465" class="LineNr">24465 </span> 68/push 0/imm32/next -<span id="L24466" class="LineNr">24466 </span> 52/push-edx/var2 -<span id="L24467" class="LineNr">24467 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24468" class="LineNr">24468 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24469" class="LineNr">24469 </span> 89/<- %esi 4/r32/esp -<span id="L24470" class="LineNr">24470 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L24471" class="LineNr">24471 </span> 68/push 0/imm32/is-deref:false -<span id="L24472" class="LineNr">24472 </span> 56/push-esi/next -<span id="L24473" class="LineNr">24473 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24474" class="LineNr">24474 </span> 51/push-ecx/var1 -<span id="L24475" class="LineNr">24475 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24476" class="LineNr">24476 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24477" class="LineNr">24477 </span> 89/<- %esi 4/r32/esp -<span id="L24478" class="LineNr">24478 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: -<span id="L24479" class="LineNr">24479 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24480" class="LineNr">24480 </span> 68/push 0/imm32/next -<span id="L24481" class="LineNr">24481 </span> 68/push 0/imm32/next -<span id="L24482" class="LineNr">24482 </span> 68/push 0/imm32/outputs -<span id="L24483" class="LineNr">24483 </span> 68/push 0/imm32/outputs -<span id="L24484" class="LineNr">24484 </span> 56/push-esi/inouts -<span id="L24485" class="LineNr">24485 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24486" class="LineNr">24486 </span> 68/push 0/imm32/operation -<span id="L24487" class="LineNr">24487 </span> 68/push 0/imm32/operation -<span id="L24488" class="LineNr">24488 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24489" class="LineNr">24489 </span> 89/<- %esi 4/r32/esp -<span id="L24490" class="LineNr">24490 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: -<span id="L24491" class="LineNr">24491 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L24492" class="LineNr">24492 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24493" class="LineNr">24493 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L24494" class="LineNr">24494 </span> <span class="subxComment"># convert</span> -<span id="L24495" class="LineNr">24495 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24496" class="LineNr">24496 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24497" class="LineNr">24497 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24498" class="Folded">24498 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24504" class="LineNr">24504 </span> <span class="subxComment"># check output</span> -<span id="L24505" class="LineNr">24505 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) -<span id="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="subxTest">test-add-mem-to-reg</span>: -<span id="L24512" class="LineNr">24512 </span> <span class="subxComment"># var1/reg <- add var2</span> -<span id="L24513" class="LineNr">24513 </span> <span class="subxComment"># =></span> -<span id="L24514" class="LineNr">24514 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> -<span id="L24515" class="LineNr">24515 </span> <span class="subxComment">#</span> -<span id="L24516" class="LineNr">24516 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24517" class="LineNr">24517 </span> 55/push-ebp -<span id="L24518" class="LineNr">24518 </span> 89/<- %ebp 4/r32/esp -<span id="L24519" class="LineNr">24519 </span> <span class="subxComment"># setup</span> -<span id="L24520" class="LineNr">24520 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24521" class="LineNr">24521 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24522" class="LineNr">24522 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: -<span id="L24523" class="LineNr">24523 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24524" class="LineNr">24524 </span> 68/push 0/imm32/right:null -<span id="L24525" class="LineNr">24525 </span> 68/push 0/imm32/right:null -<span id="L24526" class="LineNr">24526 </span> 68/push 0/imm32/left:unused -<span id="L24527" class="LineNr">24527 </span> 68/push 1/imm32/value:int -<span id="L24528" class="LineNr">24528 </span> 68/push 1/imm32/is-atom?:true -<span id="L24529" class="LineNr">24529 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24530" class="LineNr">24530 </span> 89/<- %ecx 4/r32/esp -<span id="L24531" class="LineNr">24531 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: -<span id="L24532" class="LineNr">24532 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L24533" class="LineNr">24533 </span> 68/push 0/imm32/register -<span id="L24534" class="LineNr">24534 </span> 68/push 0/imm32/register -<span id="L24535" class="LineNr">24535 </span> 68/push 0/imm32/no-stack-offset -<span id="L24536" class="LineNr">24536 </span> 68/push 1/imm32/block-depth -<span id="L24537" class="LineNr">24537 </span> 51/push-ecx -<span id="L24538" class="LineNr">24538 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24539" class="LineNr">24539 </span> 68/push 0/imm32/name -<span id="L24540" class="LineNr">24540 </span> 68/push 0/imm32/name -<span id="L24541" class="LineNr">24541 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24542" class="LineNr">24542 </span> 89/<- %ecx 4/r32/esp -<span id="L24543" class="LineNr">24543 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: -<span id="L24544" class="LineNr">24544 </span> <span class="subxComment"># var1->name = "foo"</span> -<span id="L24545" class="LineNr">24545 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24546" class="LineNr">24546 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L24547" class="LineNr">24547 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: -<span id="L24548" class="LineNr">24548 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L24549" class="LineNr">24549 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24550" class="LineNr">24550 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L24551" class="LineNr">24551 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: -<span id="L24552" class="LineNr">24552 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L24553" class="LineNr">24553 </span> 68/push 0/imm32/register -<span id="L24554" class="LineNr">24554 </span> 68/push 0/imm32/register -<span id="L24555" class="LineNr">24555 </span> 68/push 8/imm32/stack-offset -<span id="L24556" class="LineNr">24556 </span> 68/push 1/imm32/block-depth -<span id="L24557" class="LineNr">24557 </span> ff 6/subop/push *(ecx+0x10) -<span id="L24558" class="LineNr">24558 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24559" class="LineNr">24559 </span> 68/push 0/imm32/name -<span id="L24560" class="LineNr">24560 </span> 68/push 0/imm32/name +<span id="L24440" class="LineNr">24440 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L24441" class="LineNr">24441 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: +<span id="L24442" class="LineNr">24442 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L24443" class="LineNr">24443 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24444" class="LineNr">24444 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24445" class="LineNr">24445 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: +<span id="L24446" class="LineNr">24446 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L24447" class="LineNr">24447 </span> 68/push 0/imm32/is-deref:false +<span id="L24448" class="LineNr">24448 </span> 68/push 0/imm32/next +<span id="L24449" class="LineNr">24449 </span> 68/push 0/imm32/next +<span id="L24450" class="LineNr">24450 </span> 51/push-ecx/var-foo +<span id="L24451" class="LineNr">24451 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24452" class="LineNr">24452 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24453" class="LineNr">24453 </span> 89/<- %ebx 4/r32/esp +<span id="L24454" class="LineNr">24454 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: +<span id="L24455" class="LineNr">24455 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24456" class="LineNr">24456 </span> 53/push-ebx/outputs +<span id="L24457" class="LineNr">24457 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24458" class="LineNr">24458 </span> 68/push 0/imm32/no-inouts +<span id="L24459" class="LineNr">24459 </span> 68/push 0/imm32/no-inouts +<span id="L24460" class="LineNr">24460 </span> 68/push 0/imm32/operation +<span id="L24461" class="LineNr">24461 </span> 68/push 0/imm32/operation +<span id="L24462" class="LineNr">24462 </span> 68/push 1/imm32 +<span id="L24463" class="LineNr">24463 </span> 89/<- %esi 4/r32/esp +<span id="L24464" class="LineNr">24464 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: +<span id="L24465" class="LineNr">24465 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L24466" class="LineNr">24466 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24467" class="LineNr">24467 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L24468" class="LineNr">24468 </span> <span class="subxComment"># convert</span> +<span id="L24469" class="LineNr">24469 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24470" class="LineNr">24470 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24471" class="LineNr">24471 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24472" class="Folded">24472 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24478" class="LineNr">24478 </span> <span class="subxComment"># check output</span> +<span id="L24479" class="LineNr">24479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) +<span id="L24480" class="LineNr">24480 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24481" class="LineNr">24481 </span> 89/<- %esp 5/r32/ebp +<span id="L24482" class="LineNr">24482 </span> 5d/pop-to-ebp +<span id="L24483" class="LineNr">24483 </span> c3/return +<span id="L24484" class="LineNr">24484 </span> +<span id="L24485" class="LineNr">24485 </span><span class="subxTest">test-add-reg-to-reg</span>: +<span id="L24486" class="LineNr">24486 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> +<span id="L24487" class="LineNr">24487 </span> <span class="subxComment"># =></span> +<span id="L24488" class="LineNr">24488 </span> <span class="subxComment"># 01/add-to %var1 var2</span> +<span id="L24489" class="LineNr">24489 </span> <span class="subxComment">#</span> +<span id="L24490" class="LineNr">24490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24491" class="LineNr">24491 </span> 55/push-ebp +<span id="L24492" class="LineNr">24492 </span> 89/<- %ebp 4/r32/esp +<span id="L24493" class="LineNr">24493 </span> <span class="subxComment"># setup</span> +<span id="L24494" class="LineNr">24494 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24495" class="LineNr">24495 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24496" class="LineNr">24496 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: +<span id="L24497" class="LineNr">24497 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24498" class="LineNr">24498 </span> 68/push 0/imm32/right:null +<span id="L24499" class="LineNr">24499 </span> 68/push 0/imm32/right:null +<span id="L24500" class="LineNr">24500 </span> 68/push 0/imm32/left:unused +<span id="L24501" class="LineNr">24501 </span> 68/push 1/imm32/value:int +<span id="L24502" class="LineNr">24502 </span> 68/push 1/imm32/is-atom?:true +<span id="L24503" class="LineNr">24503 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24504" class="LineNr">24504 </span> 89/<- %ecx 4/r32/esp +<span id="L24505" class="LineNr">24505 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: +<span id="L24506" class="LineNr">24506 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L24507" class="LineNr">24507 </span> 68/push 0/imm32/register +<span id="L24508" class="LineNr">24508 </span> 68/push 0/imm32/register +<span id="L24509" class="LineNr">24509 </span> 68/push 0/imm32/no-stack-offset +<span id="L24510" class="LineNr">24510 </span> 68/push 1/imm32/block-depth +<span id="L24511" class="LineNr">24511 </span> 51/push-ecx +<span id="L24512" class="LineNr">24512 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24513" class="LineNr">24513 </span> 68/push 0/imm32/name +<span id="L24514" class="LineNr">24514 </span> 68/push 0/imm32/name +<span id="L24515" class="LineNr">24515 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24516" class="LineNr">24516 </span> 89/<- %ecx 4/r32/esp +<span id="L24517" class="LineNr">24517 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: +<span id="L24518" class="LineNr">24518 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L24519" class="LineNr">24519 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24520" class="LineNr">24520 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L24521" class="LineNr">24521 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: +<span id="L24522" class="LineNr">24522 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L24523" class="LineNr">24523 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24524" class="LineNr">24524 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24525" class="LineNr">24525 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: +<span id="L24526" class="LineNr">24526 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L24527" class="LineNr">24527 </span> 68/push 0/imm32/register +<span id="L24528" class="LineNr">24528 </span> 68/push 0/imm32/register +<span id="L24529" class="LineNr">24529 </span> 68/push 0/imm32/no-stack-offset +<span id="L24530" class="LineNr">24530 </span> 68/push 1/imm32/block-depth +<span id="L24531" class="LineNr">24531 </span> ff 6/subop/push *(ecx+0x10) +<span id="L24532" class="LineNr">24532 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24533" class="LineNr">24533 </span> 68/push 0/imm32/name +<span id="L24534" class="LineNr">24534 </span> 68/push 0/imm32/name +<span id="L24535" class="LineNr">24535 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24536" class="LineNr">24536 </span> 89/<- %edx 4/r32/esp +<span id="L24537" class="LineNr">24537 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: +<span id="L24538" class="LineNr">24538 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L24539" class="LineNr">24539 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24540" class="LineNr">24540 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L24541" class="LineNr">24541 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: +<span id="L24542" class="LineNr">24542 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L24543" class="LineNr">24543 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24544" class="LineNr">24544 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L24545" class="LineNr">24545 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: +<span id="L24546" class="LineNr">24546 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L24547" class="LineNr">24547 </span> 68/push 0/imm32/is-deref:false +<span id="L24548" class="LineNr">24548 </span> 68/push 0/imm32/next +<span id="L24549" class="LineNr">24549 </span> 68/push 0/imm32/next +<span id="L24550" class="LineNr">24550 </span> 52/push-edx/var2 +<span id="L24551" class="LineNr">24551 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24552" class="LineNr">24552 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24553" class="LineNr">24553 </span> 89/<- %esi 4/r32/esp +<span id="L24554" class="LineNr">24554 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: +<span id="L24555" class="LineNr">24555 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L24556" class="LineNr">24556 </span> 68/push 0/imm32/is-deref:false +<span id="L24557" class="LineNr">24557 </span> 68/push 0/imm32/next +<span id="L24558" class="LineNr">24558 </span> 68/push 0/imm32/next +<span id="L24559" class="LineNr">24559 </span> 51/push-ecx/var1 +<span id="L24560" class="LineNr">24560 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L24561" class="LineNr">24561 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24562" class="LineNr">24562 </span> 89/<- %edx 4/r32/esp -<span id="L24563" class="LineNr">24563 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: -<span id="L24564" class="LineNr">24564 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L24565" class="LineNr">24565 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24566" class="LineNr">24566 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L24567" class="LineNr">24567 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: -<span id="L24568" class="LineNr">24568 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L24569" class="LineNr">24569 </span> 68/push 0/imm32/is-deref:false -<span id="L24570" class="LineNr">24570 </span> 68/push 0/imm32/next -<span id="L24571" class="LineNr">24571 </span> 68/push 0/imm32/next -<span id="L24572" class="LineNr">24572 </span> 52/push-edx/var2 -<span id="L24573" class="LineNr">24573 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24574" class="LineNr">24574 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24575" class="LineNr">24575 </span> 89/<- %esi 4/r32/esp -<span id="L24576" class="LineNr">24576 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: -<span id="L24577" class="LineNr">24577 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L24578" class="LineNr">24578 </span> 68/push 0/imm32/is-deref:false -<span id="L24579" class="LineNr">24579 </span> 68/push 0/imm32/next -<span id="L24580" class="LineNr">24580 </span> 68/push 0/imm32/next -<span id="L24581" class="LineNr">24581 </span> 51/push-ecx/var1 -<span id="L24582" class="LineNr">24582 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24583" class="LineNr">24583 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24584" class="LineNr">24584 </span> 89/<- %edi 4/r32/esp -<span id="L24585" class="LineNr">24585 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: -<span id="L24586" class="LineNr">24586 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24587" class="LineNr">24587 </span> 68/push 0/imm32/next -<span id="L24588" class="LineNr">24588 </span> 68/push 0/imm32/next -<span id="L24589" class="LineNr">24589 </span> 57/push-edi/outputs -<span id="L24590" class="LineNr">24590 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24591" class="LineNr">24591 </span> 56/push-esi/inouts -<span id="L24592" class="LineNr">24592 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24593" class="LineNr">24593 </span> 68/push 0/imm32/operation -<span id="L24594" class="LineNr">24594 </span> 68/push 0/imm32/operation -<span id="L24595" class="LineNr">24595 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24596" class="LineNr">24596 </span> 89/<- %esi 4/r32/esp -<span id="L24597" class="LineNr">24597 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: -<span id="L24598" class="LineNr">24598 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L24599" class="LineNr">24599 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24600" class="LineNr">24600 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L24601" class="LineNr">24601 </span> <span class="subxComment"># convert</span> -<span id="L24602" class="LineNr">24602 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24603" class="LineNr">24603 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24604" class="LineNr">24604 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24605" class="Folded">24605 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24611" class="LineNr">24611 </span> <span class="subxComment"># check output</span> -<span id="L24612" class="LineNr">24612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) -<span id="L24613" class="LineNr">24613 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24614" class="LineNr">24614 </span> 89/<- %esp 5/r32/ebp -<span id="L24615" class="LineNr">24615 </span> 5d/pop-to-ebp -<span id="L24616" class="LineNr">24616 </span> c3/return -<span id="L24617" class="LineNr">24617 </span> -<span id="L24618" class="LineNr">24618 </span><span class="subxTest">test-add-literal-to-eax</span>: -<span id="L24619" class="LineNr">24619 </span> <span class="subxComment"># var1/eax <- add 0x34</span> -<span id="L24620" class="LineNr">24620 </span> <span class="subxComment"># =></span> -<span id="L24621" class="LineNr">24621 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> -<span id="L24622" class="LineNr">24622 </span> <span class="subxComment">#</span> -<span id="L24623" class="LineNr">24623 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24624" class="LineNr">24624 </span> 55/push-ebp -<span id="L24625" class="LineNr">24625 </span> 89/<- %ebp 4/r32/esp -<span id="L24626" class="LineNr">24626 </span> <span class="subxComment"># setup</span> -<span id="L24627" class="LineNr">24627 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24628" class="LineNr">24628 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24629" class="LineNr">24629 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: -<span id="L24630" class="LineNr">24630 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24631" class="LineNr">24631 </span> 68/push 0/imm32/right:null -<span id="L24632" class="LineNr">24632 </span> 68/push 0/imm32/right:null -<span id="L24633" class="LineNr">24633 </span> 68/push 0/imm32/left:unused -<span id="L24634" class="LineNr">24634 </span> 68/push 1/imm32/value:int -<span id="L24635" class="LineNr">24635 </span> 68/push 1/imm32/is-atom?:true -<span id="L24636" class="LineNr">24636 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24637" class="LineNr">24637 </span> 89/<- %ecx 4/r32/esp -<span id="L24638" class="LineNr">24638 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: -<span id="L24639" class="LineNr">24639 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L24640" class="LineNr">24640 </span> 68/push 0/imm32/register -<span id="L24641" class="LineNr">24641 </span> 68/push 0/imm32/register -<span id="L24642" class="LineNr">24642 </span> 68/push 0/imm32/no-stack-offset -<span id="L24643" class="LineNr">24643 </span> 68/push 1/imm32/block-depth -<span id="L24644" class="LineNr">24644 </span> 51/push-ecx -<span id="L24645" class="LineNr">24645 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24646" class="LineNr">24646 </span> 68/push 0/imm32/name -<span id="L24647" class="LineNr">24647 </span> 68/push 0/imm32/name -<span id="L24648" class="LineNr">24648 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24649" class="LineNr">24649 </span> 89/<- %ecx 4/r32/esp -<span id="L24650" class="LineNr">24650 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: -<span id="L24651" class="LineNr">24651 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L24652" class="LineNr">24652 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24653" class="LineNr">24653 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L24654" class="LineNr">24654 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: -<span id="L24655" class="LineNr">24655 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L24656" class="LineNr">24656 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24657" class="LineNr">24657 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L24658" class="LineNr">24658 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: -<span id="L24659" class="LineNr">24659 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L24660" class="LineNr">24660 </span> 68/push 0/imm32/right:null -<span id="L24661" class="LineNr">24661 </span> 68/push 0/imm32/right:null -<span id="L24662" class="LineNr">24662 </span> 68/push 0/imm32/left:unused -<span id="L24663" class="LineNr">24663 </span> 68/push 0/imm32/value:literal -<span id="L24664" class="LineNr">24664 </span> 68/push 1/imm32/is-atom?:true -<span id="L24665" class="LineNr">24665 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24666" class="LineNr">24666 </span> 89/<- %edx 4/r32/esp -<span id="L24667" class="LineNr">24667 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: -<span id="L24668" class="LineNr">24668 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L24669" class="LineNr">24669 </span> 68/push 0/imm32/register -<span id="L24670" class="LineNr">24670 </span> 68/push 0/imm32/register -<span id="L24671" class="LineNr">24671 </span> 68/push 0/imm32/no-stack-offset -<span id="L24672" class="LineNr">24672 </span> 68/push 1/imm32/block-depth -<span id="L24673" class="LineNr">24673 </span> 52/push-edx -<span id="L24674" class="LineNr">24674 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24675" class="LineNr">24675 </span> 68/push 0/imm32/name -<span id="L24676" class="LineNr">24676 </span> 68/push 0/imm32/name -<span id="L24677" class="LineNr">24677 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24678" class="LineNr">24678 </span> 89/<- %edx 4/r32/esp -<span id="L24679" class="LineNr">24679 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: -<span id="L24680" class="LineNr">24680 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L24681" class="LineNr">24681 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24682" class="LineNr">24682 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L24683" class="LineNr">24683 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: -<span id="L24684" class="LineNr">24684 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L24685" class="LineNr">24685 </span> 68/push 0/imm32/is-deref:false -<span id="L24686" class="LineNr">24686 </span> 68/push 0/imm32/next -<span id="L24687" class="LineNr">24687 </span> 68/push 0/imm32/next -<span id="L24688" class="LineNr">24688 </span> 52/push-edx/l -<span id="L24689" class="LineNr">24689 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24690" class="LineNr">24690 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24691" class="LineNr">24691 </span> 89/<- %esi 4/r32/esp -<span id="L24692" class="LineNr">24692 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: -<span id="L24693" class="LineNr">24693 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L24694" class="LineNr">24694 </span> 68/push 0/imm32/is-deref:false -<span id="L24695" class="LineNr">24695 </span> 68/push 0/imm32/next -<span id="L24696" class="LineNr">24696 </span> 68/push 0/imm32/next -<span id="L24697" class="LineNr">24697 </span> 51/push-ecx/v -<span id="L24698" class="LineNr">24698 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24699" class="LineNr">24699 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24700" class="LineNr">24700 </span> 89/<- %edi 4/r32/esp -<span id="L24701" class="LineNr">24701 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: -<span id="L24702" class="LineNr">24702 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24703" class="LineNr">24703 </span> 68/push 0/imm32/next -<span id="L24704" class="LineNr">24704 </span> 68/push 0/imm32/next -<span id="L24705" class="LineNr">24705 </span> 57/push-edi/outputs -<span id="L24706" class="LineNr">24706 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24707" class="LineNr">24707 </span> 56/push-esi/inouts -<span id="L24708" class="LineNr">24708 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24709" class="LineNr">24709 </span> 68/push 0/imm32/operation -<span id="L24710" class="LineNr">24710 </span> 68/push 0/imm32/operation -<span id="L24711" class="LineNr">24711 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24712" class="LineNr">24712 </span> 89/<- %esi 4/r32/esp -<span id="L24713" class="LineNr">24713 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: -<span id="L24714" class="LineNr">24714 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L24715" class="LineNr">24715 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24716" class="LineNr">24716 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L24717" class="LineNr">24717 </span> <span class="subxComment"># convert</span> -<span id="L24718" class="LineNr">24718 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24719" class="LineNr">24719 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24720" class="LineNr">24720 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24721" class="Folded">24721 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24727" class="LineNr">24727 </span> <span class="subxComment"># check output</span> -<span id="L24728" class="LineNr">24728 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) -<span id="L24729" class="LineNr">24729 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24730" class="LineNr">24730 </span> 89/<- %esp 5/r32/ebp -<span id="L24731" class="LineNr">24731 </span> 5d/pop-to-ebp -<span id="L24732" class="LineNr">24732 </span> c3/return -<span id="L24733" class="LineNr">24733 </span> -<span id="L24734" class="LineNr">24734 </span><span class="subxTest">test-add-literal-to-reg</span>: -<span id="L24735" class="LineNr">24735 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> -<span id="L24736" class="LineNr">24736 </span> <span class="subxComment"># =></span> -<span id="L24737" class="LineNr">24737 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> -<span id="L24738" class="LineNr">24738 </span> <span class="subxComment">#</span> -<span id="L24739" class="LineNr">24739 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24740" class="LineNr">24740 </span> 55/push-ebp -<span id="L24741" class="LineNr">24741 </span> 89/<- %ebp 4/r32/esp -<span id="L24742" class="LineNr">24742 </span> <span class="subxComment"># setup</span> -<span id="L24743" class="LineNr">24743 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24744" class="LineNr">24744 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24745" class="LineNr">24745 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: -<span id="L24746" class="LineNr">24746 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24747" class="LineNr">24747 </span> 68/push 0/imm32/right:null -<span id="L24748" class="LineNr">24748 </span> 68/push 0/imm32/right:null -<span id="L24749" class="LineNr">24749 </span> 68/push 0/imm32/left:unused -<span id="L24750" class="LineNr">24750 </span> 68/push 1/imm32/value:int -<span id="L24751" class="LineNr">24751 </span> 68/push 1/imm32/is-atom?:true +<span id="L24562" class="LineNr">24562 </span> 89/<- %edi 4/r32/esp +<span id="L24563" class="LineNr">24563 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: +<span id="L24564" class="LineNr">24564 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24565" class="LineNr">24565 </span> 68/push 0/imm32/next +<span id="L24566" class="LineNr">24566 </span> 68/push 0/imm32/next +<span id="L24567" class="LineNr">24567 </span> 57/push-edi/outputs +<span id="L24568" class="LineNr">24568 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24569" class="LineNr">24569 </span> 56/push-esi/inouts +<span id="L24570" class="LineNr">24570 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24571" class="LineNr">24571 </span> 68/push 0/imm32/operation +<span id="L24572" class="LineNr">24572 </span> 68/push 0/imm32/operation +<span id="L24573" class="LineNr">24573 </span> 68/push 1/imm32/tag:stmt1 +<span id="L24574" class="LineNr">24574 </span> 89/<- %esi 4/r32/esp +<span id="L24575" class="LineNr">24575 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: +<span id="L24576" class="LineNr">24576 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L24577" class="LineNr">24577 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24578" class="LineNr">24578 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L24579" class="LineNr">24579 </span> <span class="subxComment"># convert</span> +<span id="L24580" class="LineNr">24580 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24581" class="LineNr">24581 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24582" class="LineNr">24582 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24583" class="Folded">24583 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24589" class="LineNr">24589 </span> <span class="subxComment"># check output</span> +<span id="L24590" class="LineNr">24590 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) +<span id="L24591" class="LineNr">24591 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24592" class="LineNr">24592 </span> 89/<- %esp 5/r32/ebp +<span id="L24593" class="LineNr">24593 </span> 5d/pop-to-ebp +<span id="L24594" class="LineNr">24594 </span> c3/return +<span id="L24595" class="LineNr">24595 </span> +<span id="L24596" class="LineNr">24596 </span><span class="subxTest">test-add-reg-to-mem</span>: +<span id="L24597" class="LineNr">24597 </span> <span class="subxComment"># add-to var1 var2/reg</span> +<span id="L24598" class="LineNr">24598 </span> <span class="subxComment"># =></span> +<span id="L24599" class="LineNr">24599 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> +<span id="L24600" class="LineNr">24600 </span> <span class="subxComment">#</span> +<span id="L24601" class="LineNr">24601 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24602" class="LineNr">24602 </span> 55/push-ebp +<span id="L24603" class="LineNr">24603 </span> 89/<- %ebp 4/r32/esp +<span id="L24604" class="LineNr">24604 </span> <span class="subxComment"># setup</span> +<span id="L24605" class="LineNr">24605 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24606" class="LineNr">24606 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24607" class="LineNr">24607 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: +<span id="L24608" class="LineNr">24608 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24609" class="LineNr">24609 </span> 68/push 0/imm32/right:null +<span id="L24610" class="LineNr">24610 </span> 68/push 0/imm32/right:null +<span id="L24611" class="LineNr">24611 </span> 68/push 0/imm32/left:unused +<span id="L24612" class="LineNr">24612 </span> 68/push 1/imm32/value:int +<span id="L24613" class="LineNr">24613 </span> 68/push 1/imm32/is-atom?:true +<span id="L24614" class="LineNr">24614 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24615" class="LineNr">24615 </span> 89/<- %ecx 4/r32/esp +<span id="L24616" class="LineNr">24616 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: +<span id="L24617" class="LineNr">24617 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L24618" class="LineNr">24618 </span> 68/push 0/imm32/register +<span id="L24619" class="LineNr">24619 </span> 68/push 0/imm32/register +<span id="L24620" class="LineNr">24620 </span> 68/push 8/imm32/stack-offset +<span id="L24621" class="LineNr">24621 </span> 68/push 1/imm32/block-depth +<span id="L24622" class="LineNr">24622 </span> 51/push-ecx +<span id="L24623" class="LineNr">24623 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24624" class="LineNr">24624 </span> 68/push 0/imm32/name +<span id="L24625" class="LineNr">24625 </span> 68/push 0/imm32/name +<span id="L24626" class="LineNr">24626 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24627" class="LineNr">24627 </span> 89/<- %ecx 4/r32/esp +<span id="L24628" class="LineNr">24628 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: +<span id="L24629" class="LineNr">24629 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L24630" class="LineNr">24630 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24631" class="LineNr">24631 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L24632" class="LineNr">24632 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: +<span id="L24633" class="LineNr">24633 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L24634" class="LineNr">24634 </span> 68/push 0/imm32/register +<span id="L24635" class="LineNr">24635 </span> 68/push 0/imm32/register +<span id="L24636" class="LineNr">24636 </span> 68/push 0/imm32/no-stack-offset +<span id="L24637" class="LineNr">24637 </span> 68/push 1/imm32/block-depth +<span id="L24638" class="LineNr">24638 </span> ff 6/subop/push *(ecx+0x10) +<span id="L24639" class="LineNr">24639 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24640" class="LineNr">24640 </span> 68/push 0/imm32/name +<span id="L24641" class="LineNr">24641 </span> 68/push 0/imm32/name +<span id="L24642" class="LineNr">24642 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24643" class="LineNr">24643 </span> 89/<- %edx 4/r32/esp +<span id="L24644" class="LineNr">24644 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: +<span id="L24645" class="LineNr">24645 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L24646" class="LineNr">24646 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24647" class="LineNr">24647 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L24648" class="LineNr">24648 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: +<span id="L24649" class="LineNr">24649 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L24650" class="LineNr">24650 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24651" class="LineNr">24651 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L24652" class="LineNr">24652 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: +<span id="L24653" class="LineNr">24653 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L24654" class="LineNr">24654 </span> 68/push 0/imm32/is-deref:false +<span id="L24655" class="LineNr">24655 </span> 68/push 0/imm32/next +<span id="L24656" class="LineNr">24656 </span> 68/push 0/imm32/next +<span id="L24657" class="LineNr">24657 </span> 52/push-edx/var2 +<span id="L24658" class="LineNr">24658 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24659" class="LineNr">24659 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24660" class="LineNr">24660 </span> 89/<- %esi 4/r32/esp +<span id="L24661" class="LineNr">24661 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L24662" class="LineNr">24662 </span> 68/push 0/imm32/is-deref:false +<span id="L24663" class="LineNr">24663 </span> 56/push-esi/next +<span id="L24664" class="LineNr">24664 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24665" class="LineNr">24665 </span> 51/push-ecx/var1 +<span id="L24666" class="LineNr">24666 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24667" class="LineNr">24667 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24668" class="LineNr">24668 </span> 89/<- %esi 4/r32/esp +<span id="L24669" class="LineNr">24669 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: +<span id="L24670" class="LineNr">24670 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24671" class="LineNr">24671 </span> 68/push 0/imm32/next +<span id="L24672" class="LineNr">24672 </span> 68/push 0/imm32/next +<span id="L24673" class="LineNr">24673 </span> 68/push 0/imm32/outputs +<span id="L24674" class="LineNr">24674 </span> 68/push 0/imm32/outputs +<span id="L24675" class="LineNr">24675 </span> 56/push-esi/inouts +<span id="L24676" class="LineNr">24676 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24677" class="LineNr">24677 </span> 68/push 0/imm32/operation +<span id="L24678" class="LineNr">24678 </span> 68/push 0/imm32/operation +<span id="L24679" class="LineNr">24679 </span> 68/push 1/imm32/tag:stmt1 +<span id="L24680" class="LineNr">24680 </span> 89/<- %esi 4/r32/esp +<span id="L24681" class="LineNr">24681 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: +<span id="L24682" class="LineNr">24682 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L24683" class="LineNr">24683 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24684" class="LineNr">24684 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L24685" class="LineNr">24685 </span> <span class="subxComment"># convert</span> +<span id="L24686" class="LineNr">24686 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24687" class="LineNr">24687 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24688" class="LineNr">24688 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24689" class="Folded">24689 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24695" class="LineNr">24695 </span> <span class="subxComment"># check output</span> +<span id="L24696" class="LineNr">24696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) +<span id="L24697" class="LineNr">24697 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24698" class="LineNr">24698 </span> 89/<- %esp 5/r32/ebp +<span id="L24699" class="LineNr">24699 </span> 5d/pop-to-ebp +<span id="L24700" class="LineNr">24700 </span> c3/return +<span id="L24701" class="LineNr">24701 </span> +<span id="L24702" class="LineNr">24702 </span><span class="subxTest">test-add-mem-to-reg</span>: +<span id="L24703" class="LineNr">24703 </span> <span class="subxComment"># var1/reg <- add var2</span> +<span id="L24704" class="LineNr">24704 </span> <span class="subxComment"># =></span> +<span id="L24705" class="LineNr">24705 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> +<span id="L24706" class="LineNr">24706 </span> <span class="subxComment">#</span> +<span id="L24707" class="LineNr">24707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24708" class="LineNr">24708 </span> 55/push-ebp +<span id="L24709" class="LineNr">24709 </span> 89/<- %ebp 4/r32/esp +<span id="L24710" class="LineNr">24710 </span> <span class="subxComment"># setup</span> +<span id="L24711" class="LineNr">24711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24712" class="LineNr">24712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24713" class="LineNr">24713 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: +<span id="L24714" class="LineNr">24714 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24715" class="LineNr">24715 </span> 68/push 0/imm32/right:null +<span id="L24716" class="LineNr">24716 </span> 68/push 0/imm32/right:null +<span id="L24717" class="LineNr">24717 </span> 68/push 0/imm32/left:unused +<span id="L24718" class="LineNr">24718 </span> 68/push 1/imm32/value:int +<span id="L24719" class="LineNr">24719 </span> 68/push 1/imm32/is-atom?:true +<span id="L24720" class="LineNr">24720 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24721" class="LineNr">24721 </span> 89/<- %ecx 4/r32/esp +<span id="L24722" class="LineNr">24722 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: +<span id="L24723" class="LineNr">24723 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L24724" class="LineNr">24724 </span> 68/push 0/imm32/register +<span id="L24725" class="LineNr">24725 </span> 68/push 0/imm32/register +<span id="L24726" class="LineNr">24726 </span> 68/push 0/imm32/no-stack-offset +<span id="L24727" class="LineNr">24727 </span> 68/push 1/imm32/block-depth +<span id="L24728" class="LineNr">24728 </span> 51/push-ecx +<span id="L24729" class="LineNr">24729 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24730" class="LineNr">24730 </span> 68/push 0/imm32/name +<span id="L24731" class="LineNr">24731 </span> 68/push 0/imm32/name +<span id="L24732" class="LineNr">24732 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24733" class="LineNr">24733 </span> 89/<- %ecx 4/r32/esp +<span id="L24734" class="LineNr">24734 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: +<span id="L24735" class="LineNr">24735 </span> <span class="subxComment"># var1->name = "foo"</span> +<span id="L24736" class="LineNr">24736 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24737" class="LineNr">24737 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L24738" class="LineNr">24738 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: +<span id="L24739" class="LineNr">24739 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L24740" class="LineNr">24740 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24741" class="LineNr">24741 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24742" class="LineNr">24742 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: +<span id="L24743" class="LineNr">24743 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L24744" class="LineNr">24744 </span> 68/push 0/imm32/register +<span id="L24745" class="LineNr">24745 </span> 68/push 0/imm32/register +<span id="L24746" class="LineNr">24746 </span> 68/push 8/imm32/stack-offset +<span id="L24747" class="LineNr">24747 </span> 68/push 1/imm32/block-depth +<span id="L24748" class="LineNr">24748 </span> ff 6/subop/push *(ecx+0x10) +<span id="L24749" class="LineNr">24749 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24750" class="LineNr">24750 </span> 68/push 0/imm32/name +<span id="L24751" class="LineNr">24751 </span> 68/push 0/imm32/name <span id="L24752" class="LineNr">24752 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24753" class="LineNr">24753 </span> 89/<- %ecx 4/r32/esp -<span id="L24754" class="LineNr">24754 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: -<span id="L24755" class="LineNr">24755 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L24756" class="LineNr">24756 </span> 68/push 0/imm32/register -<span id="L24757" class="LineNr">24757 </span> 68/push 0/imm32/register -<span id="L24758" class="LineNr">24758 </span> 68/push 0/imm32/no-stack-offset -<span id="L24759" class="LineNr">24759 </span> 68/push 1/imm32/block-depth -<span id="L24760" class="LineNr">24760 </span> 51/push-ecx -<span id="L24761" class="LineNr">24761 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24762" class="LineNr">24762 </span> 68/push 0/imm32/name -<span id="L24763" class="LineNr">24763 </span> 68/push 0/imm32/name -<span id="L24764" class="LineNr">24764 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24765" class="LineNr">24765 </span> 89/<- %ecx 4/r32/esp -<span id="L24766" class="LineNr">24766 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: -<span id="L24767" class="LineNr">24767 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L24768" class="LineNr">24768 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24769" class="LineNr">24769 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L24770" class="LineNr">24770 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: -<span id="L24771" class="LineNr">24771 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L24772" class="LineNr">24772 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L24773" class="LineNr">24773 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L24774" class="LineNr">24774 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: -<span id="L24775" class="LineNr">24775 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L24776" class="LineNr">24776 </span> 68/push 0/imm32/right:null -<span id="L24777" class="LineNr">24777 </span> 68/push 0/imm32/right:null -<span id="L24778" class="LineNr">24778 </span> 68/push 0/imm32/left:unused -<span id="L24779" class="LineNr">24779 </span> 68/push 0/imm32/value:literal -<span id="L24780" class="LineNr">24780 </span> 68/push 1/imm32/is-atom?:true -<span id="L24781" class="LineNr">24781 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24782" class="LineNr">24782 </span> 89/<- %edx 4/r32/esp -<span id="L24783" class="LineNr">24783 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: -<span id="L24784" class="LineNr">24784 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L24785" class="LineNr">24785 </span> 68/push 0/imm32/register -<span id="L24786" class="LineNr">24786 </span> 68/push 0/imm32/register -<span id="L24787" class="LineNr">24787 </span> 68/push 0/imm32/no-stack-offset -<span id="L24788" class="LineNr">24788 </span> 68/push 1/imm32/block-depth -<span id="L24789" class="LineNr">24789 </span> 52/push-edx -<span id="L24790" class="LineNr">24790 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24791" class="LineNr">24791 </span> 68/push 0/imm32/name -<span id="L24792" class="LineNr">24792 </span> 68/push 0/imm32/name -<span id="L24793" class="LineNr">24793 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24794" class="LineNr">24794 </span> 89/<- %edx 4/r32/esp -<span id="L24795" class="LineNr">24795 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: -<span id="L24796" class="LineNr">24796 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L24797" class="LineNr">24797 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24798" class="LineNr">24798 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L24799" class="LineNr">24799 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: -<span id="L24800" class="LineNr">24800 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L24801" class="LineNr">24801 </span> 68/push 0/imm32/is-deref:false -<span id="L24802" class="LineNr">24802 </span> 68/push 0/imm32/next -<span id="L24803" class="LineNr">24803 </span> 68/push 0/imm32/next -<span id="L24804" class="LineNr">24804 </span> 52/push-edx/l -<span id="L24805" class="LineNr">24805 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24806" class="LineNr">24806 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24807" class="LineNr">24807 </span> 89/<- %esi 4/r32/esp -<span id="L24808" class="LineNr">24808 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: -<span id="L24809" class="LineNr">24809 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L24810" class="LineNr">24810 </span> 68/push 0/imm32/is-deref:false -<span id="L24811" class="LineNr">24811 </span> 68/push 0/imm32/next -<span id="L24812" class="LineNr">24812 </span> 68/push 0/imm32/next -<span id="L24813" class="LineNr">24813 </span> 51/push-ecx/v -<span id="L24814" class="LineNr">24814 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24815" class="LineNr">24815 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24816" class="LineNr">24816 </span> 89/<- %edi 4/r32/esp -<span id="L24817" class="LineNr">24817 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: -<span id="L24818" class="LineNr">24818 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24819" class="LineNr">24819 </span> 68/push 0/imm32/next -<span id="L24820" class="LineNr">24820 </span> 68/push 0/imm32/next -<span id="L24821" class="LineNr">24821 </span> 57/push-edi/outputs -<span id="L24822" class="LineNr">24822 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24823" class="LineNr">24823 </span> 56/push-esi/inouts -<span id="L24824" class="LineNr">24824 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24825" class="LineNr">24825 </span> 68/push 0/imm32/operation -<span id="L24826" class="LineNr">24826 </span> 68/push 0/imm32/operation -<span id="L24827" class="LineNr">24827 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24828" class="LineNr">24828 </span> 89/<- %esi 4/r32/esp -<span id="L24829" class="LineNr">24829 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: -<span id="L24830" class="LineNr">24830 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L24831" class="LineNr">24831 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24832" class="LineNr">24832 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L24833" class="LineNr">24833 </span> <span class="subxComment"># convert</span> -<span id="L24834" class="LineNr">24834 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24835" class="LineNr">24835 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24836" class="LineNr">24836 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24837" class="Folded">24837 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24843" class="LineNr">24843 </span> <span class="subxComment"># check output</span> -<span id="L24844" class="LineNr">24844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) -<span id="L24845" class="LineNr">24845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24846" class="LineNr">24846 </span> 89/<- %esp 5/r32/ebp -<span id="L24847" class="LineNr">24847 </span> 5d/pop-to-ebp -<span id="L24848" class="LineNr">24848 </span> c3/return -<span id="L24849" class="LineNr">24849 </span> -<span id="L24850" class="LineNr">24850 </span><span class="subxTest">test-add-literal-to-mem</span>: -<span id="L24851" class="LineNr">24851 </span> <span class="subxComment"># add-to var1, 0x34</span> -<span id="L24852" class="LineNr">24852 </span> <span class="subxComment"># =></span> -<span id="L24853" class="LineNr">24853 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> -<span id="L24854" class="LineNr">24854 </span> <span class="subxComment">#</span> -<span id="L24855" class="LineNr">24855 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24856" class="LineNr">24856 </span> 55/push-ebp -<span id="L24857" class="LineNr">24857 </span> 89/<- %ebp 4/r32/esp -<span id="L24858" class="LineNr">24858 </span> <span class="subxComment"># setup</span> -<span id="L24859" class="LineNr">24859 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24860" class="LineNr">24860 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24861" class="LineNr">24861 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: -<span id="L24862" class="LineNr">24862 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24863" class="LineNr">24863 </span> 68/push 0/imm32/right:null -<span id="L24864" class="LineNr">24864 </span> 68/push 0/imm32/right:null -<span id="L24865" class="LineNr">24865 </span> 68/push 0/imm32/left:unused -<span id="L24866" class="LineNr">24866 </span> 68/push 1/imm32/value:int -<span id="L24867" class="LineNr">24867 </span> 68/push 1/imm32/is-atom?:true +<span id="L24753" class="LineNr">24753 </span> 89/<- %edx 4/r32/esp +<span id="L24754" class="LineNr">24754 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: +<span id="L24755" class="LineNr">24755 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L24756" class="LineNr">24756 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24757" class="LineNr">24757 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L24758" class="LineNr">24758 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: +<span id="L24759" class="LineNr">24759 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L24760" class="LineNr">24760 </span> 68/push 0/imm32/is-deref:false +<span id="L24761" class="LineNr">24761 </span> 68/push 0/imm32/next +<span id="L24762" class="LineNr">24762 </span> 68/push 0/imm32/next +<span id="L24763" class="LineNr">24763 </span> 52/push-edx/var2 +<span id="L24764" class="LineNr">24764 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24765" class="LineNr">24765 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24766" class="LineNr">24766 </span> 89/<- %esi 4/r32/esp +<span id="L24767" class="LineNr">24767 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: +<span id="L24768" class="LineNr">24768 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L24769" class="LineNr">24769 </span> 68/push 0/imm32/is-deref:false +<span id="L24770" class="LineNr">24770 </span> 68/push 0/imm32/next +<span id="L24771" class="LineNr">24771 </span> 68/push 0/imm32/next +<span id="L24772" class="LineNr">24772 </span> 51/push-ecx/var1 +<span id="L24773" class="LineNr">24773 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24774" class="LineNr">24774 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24775" class="LineNr">24775 </span> 89/<- %edi 4/r32/esp +<span id="L24776" class="LineNr">24776 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: +<span id="L24777" class="LineNr">24777 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24778" class="LineNr">24778 </span> 68/push 0/imm32/next +<span id="L24779" class="LineNr">24779 </span> 68/push 0/imm32/next +<span id="L24780" class="LineNr">24780 </span> 57/push-edi/outputs +<span id="L24781" class="LineNr">24781 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24782" class="LineNr">24782 </span> 56/push-esi/inouts +<span id="L24783" class="LineNr">24783 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24784" class="LineNr">24784 </span> 68/push 0/imm32/operation +<span id="L24785" class="LineNr">24785 </span> 68/push 0/imm32/operation +<span id="L24786" class="LineNr">24786 </span> 68/push 1/imm32/tag:stmt1 +<span id="L24787" class="LineNr">24787 </span> 89/<- %esi 4/r32/esp +<span id="L24788" class="LineNr">24788 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: +<span id="L24789" class="LineNr">24789 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L24790" class="LineNr">24790 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24791" class="LineNr">24791 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L24792" class="LineNr">24792 </span> <span class="subxComment"># convert</span> +<span id="L24793" class="LineNr">24793 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24794" class="LineNr">24794 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24795" class="LineNr">24795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24796" class="Folded">24796 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24802" class="LineNr">24802 </span> <span class="subxComment"># check output</span> +<span id="L24803" class="LineNr">24803 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) +<span id="L24804" class="LineNr">24804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24805" class="LineNr">24805 </span> 89/<- %esp 5/r32/ebp +<span id="L24806" class="LineNr">24806 </span> 5d/pop-to-ebp +<span id="L24807" class="LineNr">24807 </span> c3/return +<span id="L24808" class="LineNr">24808 </span> +<span id="L24809" class="LineNr">24809 </span><span class="subxTest">test-add-literal-to-eax</span>: +<span id="L24810" class="LineNr">24810 </span> <span class="subxComment"># var1/eax <- add 0x34</span> +<span id="L24811" class="LineNr">24811 </span> <span class="subxComment"># =></span> +<span id="L24812" class="LineNr">24812 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> +<span id="L24813" class="LineNr">24813 </span> <span class="subxComment">#</span> +<span id="L24814" class="LineNr">24814 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24815" class="LineNr">24815 </span> 55/push-ebp +<span id="L24816" class="LineNr">24816 </span> 89/<- %ebp 4/r32/esp +<span id="L24817" class="LineNr">24817 </span> <span class="subxComment"># setup</span> +<span id="L24818" class="LineNr">24818 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24819" class="LineNr">24819 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24820" class="LineNr">24820 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: +<span id="L24821" class="LineNr">24821 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24822" class="LineNr">24822 </span> 68/push 0/imm32/right:null +<span id="L24823" class="LineNr">24823 </span> 68/push 0/imm32/right:null +<span id="L24824" class="LineNr">24824 </span> 68/push 0/imm32/left:unused +<span id="L24825" class="LineNr">24825 </span> 68/push 1/imm32/value:int +<span id="L24826" class="LineNr">24826 </span> 68/push 1/imm32/is-atom?:true +<span id="L24827" class="LineNr">24827 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24828" class="LineNr">24828 </span> 89/<- %ecx 4/r32/esp +<span id="L24829" class="LineNr">24829 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: +<span id="L24830" class="LineNr">24830 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L24831" class="LineNr">24831 </span> 68/push 0/imm32/register +<span id="L24832" class="LineNr">24832 </span> 68/push 0/imm32/register +<span id="L24833" class="LineNr">24833 </span> 68/push 0/imm32/no-stack-offset +<span id="L24834" class="LineNr">24834 </span> 68/push 1/imm32/block-depth +<span id="L24835" class="LineNr">24835 </span> 51/push-ecx +<span id="L24836" class="LineNr">24836 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24837" class="LineNr">24837 </span> 68/push 0/imm32/name +<span id="L24838" class="LineNr">24838 </span> 68/push 0/imm32/name +<span id="L24839" class="LineNr">24839 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24840" class="LineNr">24840 </span> 89/<- %ecx 4/r32/esp +<span id="L24841" class="LineNr">24841 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: +<span id="L24842" class="LineNr">24842 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L24843" class="LineNr">24843 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24844" class="LineNr">24844 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L24845" class="LineNr">24845 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: +<span id="L24846" class="LineNr">24846 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L24847" class="LineNr">24847 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24848" class="LineNr">24848 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L24849" class="LineNr">24849 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: +<span id="L24850" class="LineNr">24850 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L24851" class="LineNr">24851 </span> 68/push 0/imm32/right:null +<span id="L24852" class="LineNr">24852 </span> 68/push 0/imm32/right:null +<span id="L24853" class="LineNr">24853 </span> 68/push 0/imm32/left:unused +<span id="L24854" class="LineNr">24854 </span> 68/push 0/imm32/value:literal +<span id="L24855" class="LineNr">24855 </span> 68/push 1/imm32/is-atom?:true +<span id="L24856" class="LineNr">24856 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24857" class="LineNr">24857 </span> 89/<- %edx 4/r32/esp +<span id="L24858" class="LineNr">24858 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: +<span id="L24859" class="LineNr">24859 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L24860" class="LineNr">24860 </span> 68/push 0/imm32/register +<span id="L24861" class="LineNr">24861 </span> 68/push 0/imm32/register +<span id="L24862" class="LineNr">24862 </span> 68/push 0/imm32/no-stack-offset +<span id="L24863" class="LineNr">24863 </span> 68/push 1/imm32/block-depth +<span id="L24864" class="LineNr">24864 </span> 52/push-edx +<span id="L24865" class="LineNr">24865 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24866" class="LineNr">24866 </span> 68/push 0/imm32/name +<span id="L24867" class="LineNr">24867 </span> 68/push 0/imm32/name <span id="L24868" class="LineNr">24868 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24869" class="LineNr">24869 </span> 89/<- %ecx 4/r32/esp -<span id="L24870" class="LineNr">24870 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: -<span id="L24871" class="LineNr">24871 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L24872" class="LineNr">24872 </span> 68/push 0/imm32/register -<span id="L24873" class="LineNr">24873 </span> 68/push 0/imm32/register -<span id="L24874" class="LineNr">24874 </span> 68/push 8/imm32/stack-offset -<span id="L24875" class="LineNr">24875 </span> 68/push 1/imm32/block-depth -<span id="L24876" class="LineNr">24876 </span> 51/push-ecx -<span id="L24877" class="LineNr">24877 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24878" class="LineNr">24878 </span> 68/push 0/imm32/name -<span id="L24879" class="LineNr">24879 </span> 68/push 0/imm32/name -<span id="L24880" class="LineNr">24880 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24881" class="LineNr">24881 </span> 89/<- %ecx 4/r32/esp -<span id="L24882" class="LineNr">24882 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: -<span id="L24883" class="LineNr">24883 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L24884" class="LineNr">24884 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24885" class="LineNr">24885 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L24886" class="LineNr">24886 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: -<span id="L24887" class="LineNr">24887 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L24888" class="LineNr">24888 </span> 68/push 0/imm32/right:null -<span id="L24889" class="LineNr">24889 </span> 68/push 0/imm32/right:null -<span id="L24890" class="LineNr">24890 </span> 68/push 0/imm32/left:unused -<span id="L24891" class="LineNr">24891 </span> 68/push 0/imm32/value:literal -<span id="L24892" class="LineNr">24892 </span> 68/push 1/imm32/is-atom?:true -<span id="L24893" class="LineNr">24893 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24894" class="LineNr">24894 </span> 89/<- %edx 4/r32/esp -<span id="L24895" class="LineNr">24895 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: -<span id="L24896" class="LineNr">24896 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L24897" class="LineNr">24897 </span> 68/push 0/imm32/register -<span id="L24898" class="LineNr">24898 </span> 68/push 0/imm32/register -<span id="L24899" class="LineNr">24899 </span> 68/push 0/imm32/no-stack-offset -<span id="L24900" class="LineNr">24900 </span> 68/push 1/imm32/block-depth -<span id="L24901" class="LineNr">24901 </span> 52/push-edx -<span id="L24902" class="LineNr">24902 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24903" class="LineNr">24903 </span> 68/push 0/imm32/name -<span id="L24904" class="LineNr">24904 </span> 68/push 0/imm32/name -<span id="L24905" class="LineNr">24905 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24906" class="LineNr">24906 </span> 89/<- %edx 4/r32/esp -<span id="L24907" class="LineNr">24907 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: -<span id="L24908" class="LineNr">24908 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L24909" class="LineNr">24909 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24910" class="LineNr">24910 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L24911" class="LineNr">24911 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: -<span id="L24912" class="LineNr">24912 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L24913" class="LineNr">24913 </span> 68/push 0/imm32/is-deref:false -<span id="L24914" class="LineNr">24914 </span> 68/push 0/imm32/next -<span id="L24915" class="LineNr">24915 </span> 68/push 0/imm32/next -<span id="L24916" class="LineNr">24916 </span> 52/push-edx/l -<span id="L24917" class="LineNr">24917 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24918" class="LineNr">24918 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24919" class="LineNr">24919 </span> 89/<- %esi 4/r32/esp -<span id="L24920" class="LineNr">24920 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L24921" class="LineNr">24921 </span> 68/push 0/imm32/is-deref:false -<span id="L24922" class="LineNr">24922 </span> 56/push-esi/next -<span id="L24923" class="LineNr">24923 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24924" class="LineNr">24924 </span> 51/push-ecx/var1 -<span id="L24925" class="LineNr">24925 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24926" class="LineNr">24926 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24927" class="LineNr">24927 </span> 89/<- %esi 4/r32/esp -<span id="L24928" class="LineNr">24928 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: -<span id="L24929" class="LineNr">24929 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L24930" class="LineNr">24930 </span> 68/push 0/imm32/next -<span id="L24931" class="LineNr">24931 </span> 68/push 0/imm32/next -<span id="L24932" class="LineNr">24932 </span> 68/push 0/imm32/outputs -<span id="L24933" class="LineNr">24933 </span> 68/push 0/imm32/outputs -<span id="L24934" class="LineNr">24934 </span> 56/push-esi/inouts -<span id="L24935" class="LineNr">24935 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24936" class="LineNr">24936 </span> 68/push 0/imm32/operation -<span id="L24937" class="LineNr">24937 </span> 68/push 0/imm32/operation -<span id="L24938" class="LineNr">24938 </span> 68/push 1/imm32/tag:stmt1 -<span id="L24939" class="LineNr">24939 </span> 89/<- %esi 4/r32/esp -<span id="L24940" class="LineNr">24940 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: -<span id="L24941" class="LineNr">24941 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L24942" class="LineNr">24942 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L24943" class="LineNr">24943 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L24944" class="LineNr">24944 </span> <span class="subxComment"># convert</span> -<span id="L24945" class="LineNr">24945 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L24946" class="LineNr">24946 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L24947" class="LineNr">24947 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L24948" class="Folded">24948 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24954" class="LineNr">24954 </span> <span class="subxComment"># check output</span> -<span id="L24955" class="LineNr">24955 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) -<span id="L24956" class="LineNr">24956 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24957" class="LineNr">24957 </span> 89/<- %esp 5/r32/ebp -<span id="L24958" class="LineNr">24958 </span> 5d/pop-to-ebp -<span id="L24959" class="LineNr">24959 </span> c3/return -<span id="L24960" class="LineNr">24960 </span> -<span id="L24961" class="LineNr">24961 </span><span class="subxTest">test-shift-reg-by-literal</span>: -<span id="L24962" class="LineNr">24962 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> -<span id="L24963" class="LineNr">24963 </span> <span class="subxComment"># =></span> -<span id="L24964" class="LineNr">24964 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> -<span id="L24965" class="LineNr">24965 </span> <span class="subxComment">#</span> -<span id="L24966" class="LineNr">24966 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24967" class="LineNr">24967 </span> 55/push-ebp -<span id="L24968" class="LineNr">24968 </span> 89/<- %ebp 4/r32/esp -<span id="L24969" class="LineNr">24969 </span> <span class="subxComment"># setup</span> -<span id="L24970" class="LineNr">24970 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L24971" class="LineNr">24971 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L24972" class="LineNr">24972 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: -<span id="L24973" class="LineNr">24973 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L24974" class="LineNr">24974 </span> 68/push 0/imm32/right:null -<span id="L24975" class="LineNr">24975 </span> 68/push 0/imm32/right:null -<span id="L24976" class="LineNr">24976 </span> 68/push 0/imm32/left:unused -<span id="L24977" class="LineNr">24977 </span> 68/push 1/imm32/value:int -<span id="L24978" class="LineNr">24978 </span> 68/push 1/imm32/is-atom?:true -<span id="L24979" class="LineNr">24979 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24980" class="LineNr">24980 </span> 89/<- %ecx 4/r32/esp -<span id="L24981" class="LineNr">24981 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: -<span id="L24982" class="LineNr">24982 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L24983" class="LineNr">24983 </span> 68/push 0/imm32/register -<span id="L24984" class="LineNr">24984 </span> 68/push 0/imm32/register -<span id="L24985" class="LineNr">24985 </span> 68/push 0/imm32/no-stack-offset -<span id="L24986" class="LineNr">24986 </span> 68/push 1/imm32/block-depth -<span id="L24987" class="LineNr">24987 </span> 51/push-ecx -<span id="L24988" class="LineNr">24988 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L24989" class="LineNr">24989 </span> 68/push 0/imm32/name -<span id="L24990" class="LineNr">24990 </span> 68/push 0/imm32/name -<span id="L24991" class="LineNr">24991 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L24992" class="LineNr">24992 </span> 89/<- %ecx 4/r32/esp -<span id="L24993" class="LineNr">24993 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: -<span id="L24994" class="LineNr">24994 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L24995" class="LineNr">24995 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L24996" class="LineNr">24996 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L24997" class="LineNr">24997 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: -<span id="L24998" class="LineNr">24998 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L24999" class="LineNr">24999 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25000" class="LineNr">25000 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L25001" class="LineNr">25001 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: -<span id="L25002" class="LineNr">25002 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L25003" class="LineNr">25003 </span> 68/push 0/imm32/right:null -<span id="L25004" class="LineNr">25004 </span> 68/push 0/imm32/right:null -<span id="L25005" class="LineNr">25005 </span> 68/push 0/imm32/left:unused -<span id="L25006" class="LineNr">25006 </span> 68/push 0/imm32/value:literal -<span id="L25007" class="LineNr">25007 </span> 68/push 1/imm32/is-atom?:true -<span id="L25008" class="LineNr">25008 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25009" class="LineNr">25009 </span> 89/<- %edx 4/r32/esp -<span id="L25010" class="LineNr">25010 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: -<span id="L25011" class="LineNr">25011 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L25012" class="LineNr">25012 </span> 68/push 0/imm32/register -<span id="L25013" class="LineNr">25013 </span> 68/push 0/imm32/register -<span id="L25014" class="LineNr">25014 </span> 68/push 0/imm32/no-stack-offset -<span id="L25015" class="LineNr">25015 </span> 68/push 1/imm32/block-depth -<span id="L25016" class="LineNr">25016 </span> 52/push-edx -<span id="L25017" class="LineNr">25017 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25018" class="LineNr">25018 </span> 68/push 0/imm32/name -<span id="L25019" class="LineNr">25019 </span> 68/push 0/imm32/name -<span id="L25020" class="LineNr">25020 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25021" class="LineNr">25021 </span> 89/<- %edx 4/r32/esp -<span id="L25022" class="LineNr">25022 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: -<span id="L25023" class="LineNr">25023 </span> <span class="subxComment"># l->name = "2"</span> -<span id="L25024" class="LineNr">25024 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25025" class="LineNr">25025 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) -<span id="L25026" class="LineNr">25026 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: -<span id="L25027" class="LineNr">25027 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L25028" class="LineNr">25028 </span> 68/push 0/imm32/is-deref:false -<span id="L25029" class="LineNr">25029 </span> 68/push 0/imm32/next -<span id="L25030" class="LineNr">25030 </span> 68/push 0/imm32/next -<span id="L25031" class="LineNr">25031 </span> 52/push-edx/l -<span id="L25032" class="LineNr">25032 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25033" class="LineNr">25033 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25034" class="LineNr">25034 </span> 89/<- %esi 4/r32/esp -<span id="L25035" class="LineNr">25035 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: -<span id="L25036" class="LineNr">25036 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L25037" class="LineNr">25037 </span> 68/push 0/imm32/is-deref:false -<span id="L25038" class="LineNr">25038 </span> 68/push 0/imm32/next -<span id="L25039" class="LineNr">25039 </span> 68/push 0/imm32/next -<span id="L25040" class="LineNr">25040 </span> 51/push-ecx/v -<span id="L25041" class="LineNr">25041 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25042" class="LineNr">25042 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25043" class="LineNr">25043 </span> 89/<- %edi 4/r32/esp -<span id="L25044" class="LineNr">25044 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: -<span id="L25045" class="LineNr">25045 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25046" class="LineNr">25046 </span> 68/push 0/imm32/next -<span id="L25047" class="LineNr">25047 </span> 68/push 0/imm32/next -<span id="L25048" class="LineNr">25048 </span> 57/push-edi/outputs -<span id="L25049" class="LineNr">25049 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25050" class="LineNr">25050 </span> 56/push-esi/inouts -<span id="L25051" class="LineNr">25051 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25052" class="LineNr">25052 </span> 68/push 0/imm32/operation -<span id="L25053" class="LineNr">25053 </span> 68/push 0/imm32/operation -<span id="L25054" class="LineNr">25054 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25055" class="LineNr">25055 </span> 89/<- %esi 4/r32/esp -<span id="L25056" class="LineNr">25056 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: -<span id="L25057" class="LineNr">25057 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L25058" class="LineNr">25058 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25059" class="LineNr">25059 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L25060" class="LineNr">25060 </span> <span class="subxComment"># convert</span> -<span id="L25061" class="LineNr">25061 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25062" class="LineNr">25062 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25063" class="LineNr">25063 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25064" class="Folded">25064 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25070" class="LineNr">25070 </span> <span class="subxComment"># check output</span> -<span id="L25071" class="LineNr">25071 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) -<span id="L25072" class="LineNr">25072 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25073" class="LineNr">25073 </span> 89/<- %esp 5/r32/ebp -<span id="L25074" class="LineNr">25074 </span> 5d/pop-to-ebp -<span id="L25075" class="LineNr">25075 </span> c3/return -<span id="L25076" class="LineNr">25076 </span> -<span id="L25077" class="LineNr">25077 </span><span class="subxTest">test-shift-mem-by-literal</span>: -<span id="L25078" class="LineNr">25078 </span> <span class="subxComment"># shift-left var 3</span> -<span id="L25079" class="LineNr">25079 </span> <span class="subxComment"># =></span> -<span id="L25080" class="LineNr">25080 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> -<span id="L25081" class="LineNr">25081 </span> <span class="subxComment">#</span> -<span id="L25082" class="LineNr">25082 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25083" class="LineNr">25083 </span> 55/push-ebp -<span id="L25084" class="LineNr">25084 </span> 89/<- %ebp 4/r32/esp -<span id="L25085" class="LineNr">25085 </span> <span class="subxComment"># setup</span> -<span id="L25086" class="LineNr">25086 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25087" class="LineNr">25087 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25088" class="LineNr">25088 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: -<span id="L25089" class="LineNr">25089 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25090" class="LineNr">25090 </span> 68/push 0/imm32/right:null -<span id="L25091" class="LineNr">25091 </span> 68/push 0/imm32/right:null -<span id="L25092" class="LineNr">25092 </span> 68/push 0/imm32/left:unused -<span id="L25093" class="LineNr">25093 </span> 68/push 1/imm32/value:int -<span id="L25094" class="LineNr">25094 </span> 68/push 1/imm32/is-atom?:true -<span id="L25095" class="LineNr">25095 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25096" class="LineNr">25096 </span> 89/<- %ecx 4/r32/esp -<span id="L25097" class="LineNr">25097 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: -<span id="L25098" class="LineNr">25098 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25099" class="LineNr">25099 </span> 68/push 0/imm32/register -<span id="L25100" class="LineNr">25100 </span> 68/push 0/imm32/register -<span id="L25101" class="LineNr">25101 </span> 68/push 8/imm32/stack-offset -<span id="L25102" class="LineNr">25102 </span> 68/push 1/imm32/block-depth -<span id="L25103" class="LineNr">25103 </span> 51/push-ecx -<span id="L25104" class="LineNr">25104 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25105" class="LineNr">25105 </span> 68/push 0/imm32/name -<span id="L25106" class="LineNr">25106 </span> 68/push 0/imm32/name -<span id="L25107" class="LineNr">25107 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25108" class="LineNr">25108 </span> 89/<- %ecx 4/r32/esp -<span id="L25109" class="LineNr">25109 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: -<span id="L25110" class="LineNr">25110 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25111" class="LineNr">25111 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25112" class="LineNr">25112 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25113" class="LineNr">25113 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: -<span id="L25114" class="LineNr">25114 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L25115" class="LineNr">25115 </span> 68/push 0/imm32/right:null -<span id="L25116" class="LineNr">25116 </span> 68/push 0/imm32/right:null -<span id="L25117" class="LineNr">25117 </span> 68/push 0/imm32/left:unused -<span id="L25118" class="LineNr">25118 </span> 68/push 0/imm32/value:literal -<span id="L25119" class="LineNr">25119 </span> 68/push 1/imm32/is-atom?:true -<span id="L25120" class="LineNr">25120 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25121" class="LineNr">25121 </span> 89/<- %edx 4/r32/esp -<span id="L25122" class="LineNr">25122 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: -<span id="L25123" class="LineNr">25123 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L25124" class="LineNr">25124 </span> 68/push 0/imm32/register -<span id="L25125" class="LineNr">25125 </span> 68/push 0/imm32/register -<span id="L25126" class="LineNr">25126 </span> 68/push 0/imm32/no-stack-offset -<span id="L25127" class="LineNr">25127 </span> 68/push 1/imm32/block-depth -<span id="L25128" class="LineNr">25128 </span> 52/push-edx -<span id="L25129" class="LineNr">25129 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25130" class="LineNr">25130 </span> 68/push 0/imm32/name -<span id="L25131" class="LineNr">25131 </span> 68/push 0/imm32/name -<span id="L25132" class="LineNr">25132 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25133" class="LineNr">25133 </span> 89/<- %edx 4/r32/esp -<span id="L25134" class="LineNr">25134 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: -<span id="L25135" class="LineNr">25135 </span> <span class="subxComment"># l->name = "3"</span> -<span id="L25136" class="LineNr">25136 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25137" class="LineNr">25137 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) -<span id="L25138" class="LineNr">25138 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: -<span id="L25139" class="LineNr">25139 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L25140" class="LineNr">25140 </span> 68/push 0/imm32/is-deref:false -<span id="L25141" class="LineNr">25141 </span> 68/push 0/imm32/next -<span id="L25142" class="LineNr">25142 </span> 68/push 0/imm32/next -<span id="L25143" class="LineNr">25143 </span> 52/push-edx/l -<span id="L25144" class="LineNr">25144 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25145" class="LineNr">25145 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25146" class="LineNr">25146 </span> 89/<- %esi 4/r32/esp -<span id="L25147" class="LineNr">25147 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L25148" class="LineNr">25148 </span> 68/push 0/imm32/is-deref:false -<span id="L25149" class="LineNr">25149 </span> 56/push-esi/next -<span id="L25150" class="LineNr">25150 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25151" class="LineNr">25151 </span> 51/push-ecx/var1 -<span id="L25152" class="LineNr">25152 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25153" class="LineNr">25153 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25154" class="LineNr">25154 </span> 89/<- %esi 4/r32/esp -<span id="L25155" class="LineNr">25155 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: -<span id="L25156" class="LineNr">25156 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25157" class="LineNr">25157 </span> 68/push 0/imm32/next -<span id="L25158" class="LineNr">25158 </span> 68/push 0/imm32/next -<span id="L25159" class="LineNr">25159 </span> 68/push 0/imm32/outputs -<span id="L25160" class="LineNr">25160 </span> 68/push 0/imm32/outputs -<span id="L25161" class="LineNr">25161 </span> 56/push-esi/inouts -<span id="L25162" class="LineNr">25162 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25163" class="LineNr">25163 </span> 68/push 0/imm32/operation -<span id="L25164" class="LineNr">25164 </span> 68/push 0/imm32/operation -<span id="L25165" class="LineNr">25165 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25166" class="LineNr">25166 </span> 89/<- %esi 4/r32/esp -<span id="L25167" class="LineNr">25167 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: -<span id="L25168" class="LineNr">25168 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L25169" class="LineNr">25169 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25170" class="LineNr">25170 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L25171" class="LineNr">25171 </span> <span class="subxComment"># convert</span> -<span id="L25172" class="LineNr">25172 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25173" class="LineNr">25173 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25174" class="LineNr">25174 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25175" class="Folded">25175 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25181" class="LineNr">25181 </span> <span class="subxComment"># check output</span> -<span id="L25182" class="LineNr">25182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) -<span id="L25183" class="LineNr">25183 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25184" class="LineNr">25184 </span> 89/<- %esp 5/r32/ebp -<span id="L25185" class="LineNr">25185 </span> 5d/pop-to-ebp -<span id="L25186" class="LineNr">25186 </span> c3/return -<span id="L25187" class="LineNr">25187 </span> -<span id="L25188" class="LineNr">25188 </span><span class="subxTest">test-compare-reg-with-reg</span>: -<span id="L25189" class="LineNr">25189 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> -<span id="L25190" class="LineNr">25190 </span> <span class="subxComment"># =></span> -<span id="L25191" class="LineNr">25191 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> -<span id="L25192" class="LineNr">25192 </span> <span class="subxComment">#</span> -<span id="L25193" class="LineNr">25193 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25194" class="LineNr">25194 </span> 55/push-ebp -<span id="L25195" class="LineNr">25195 </span> 89/<- %ebp 4/r32/esp -<span id="L25196" class="LineNr">25196 </span> <span class="subxComment"># setup</span> -<span id="L25197" class="LineNr">25197 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25198" class="LineNr">25198 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25199" class="LineNr">25199 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: -<span id="L25200" class="LineNr">25200 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25201" class="LineNr">25201 </span> 68/push 0/imm32/right:null -<span id="L25202" class="LineNr">25202 </span> 68/push 0/imm32/right:null -<span id="L25203" class="LineNr">25203 </span> 68/push 0/imm32/left:unused -<span id="L25204" class="LineNr">25204 </span> 68/push 1/imm32/value:int -<span id="L25205" class="LineNr">25205 </span> 68/push 1/imm32/is-atom?:true -<span id="L25206" class="LineNr">25206 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25207" class="LineNr">25207 </span> 89/<- %ecx 4/r32/esp -<span id="L25208" class="LineNr">25208 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: -<span id="L25209" class="LineNr">25209 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25210" class="LineNr">25210 </span> 68/push 0/imm32/register -<span id="L25211" class="LineNr">25211 </span> 68/push 0/imm32/register -<span id="L25212" class="LineNr">25212 </span> 68/push 0/imm32/no-stack-offset -<span id="L25213" class="LineNr">25213 </span> 68/push 1/imm32/block-depth -<span id="L25214" class="LineNr">25214 </span> 51/push-ecx -<span id="L25215" class="LineNr">25215 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25216" class="LineNr">25216 </span> 68/push 0/imm32/name -<span id="L25217" class="LineNr">25217 </span> 68/push 0/imm32/name -<span id="L25218" class="LineNr">25218 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25219" class="LineNr">25219 </span> 89/<- %ecx 4/r32/esp -<span id="L25220" class="LineNr">25220 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: -<span id="L25221" class="LineNr">25221 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25222" class="LineNr">25222 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25223" class="LineNr">25223 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25224" class="LineNr">25224 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: -<span id="L25225" class="LineNr">25225 </span> <span class="subxComment"># var1->register = "ecx"</span> -<span id="L25226" class="LineNr">25226 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25227" class="LineNr">25227 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L25228" class="LineNr">25228 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: -<span id="L25229" class="LineNr">25229 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L25230" class="LineNr">25230 </span> 68/push 0/imm32/register -<span id="L25231" class="LineNr">25231 </span> 68/push 0/imm32/register -<span id="L25232" class="LineNr">25232 </span> 68/push 0/imm32/no-stack-offset -<span id="L25233" class="LineNr">25233 </span> 68/push 1/imm32/block-depth -<span id="L25234" class="LineNr">25234 </span> ff 6/subop/push *(ecx+0x10) -<span id="L25235" class="LineNr">25235 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25236" class="LineNr">25236 </span> 68/push 0/imm32/name -<span id="L25237" class="LineNr">25237 </span> 68/push 0/imm32/name -<span id="L25238" class="LineNr">25238 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25239" class="LineNr">25239 </span> 89/<- %edx 4/r32/esp -<span id="L25240" class="LineNr">25240 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: -<span id="L25241" class="LineNr">25241 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L25242" class="LineNr">25242 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25243" class="LineNr">25243 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L25244" class="LineNr">25244 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: -<span id="L25245" class="LineNr">25245 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L25246" class="LineNr">25246 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25247" class="LineNr">25247 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L25248" class="LineNr">25248 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: -<span id="L25249" class="LineNr">25249 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L25250" class="LineNr">25250 </span> 68/push 0/imm32/is-deref:false -<span id="L25251" class="LineNr">25251 </span> 68/push 0/imm32/next -<span id="L25252" class="LineNr">25252 </span> 68/push 0/imm32/next -<span id="L25253" class="LineNr">25253 </span> 52/push-edx/var2 -<span id="L25254" class="LineNr">25254 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25255" class="LineNr">25255 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25256" class="LineNr">25256 </span> 89/<- %esi 4/r32/esp -<span id="L25257" class="LineNr">25257 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L25258" class="LineNr">25258 </span> 68/push 0/imm32/is-deref:false -<span id="L25259" class="LineNr">25259 </span> 56/push-esi/next -<span id="L25260" class="LineNr">25260 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25261" class="LineNr">25261 </span> 51/push-ecx/var1 -<span id="L25262" class="LineNr">25262 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25263" class="LineNr">25263 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25264" class="LineNr">25264 </span> 89/<- %esi 4/r32/esp -<span id="L25265" class="LineNr">25265 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: -<span id="L25266" class="LineNr">25266 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25267" class="LineNr">25267 </span> 68/push 0/imm32/next -<span id="L25268" class="LineNr">25268 </span> 68/push 0/imm32/next -<span id="L25269" class="LineNr">25269 </span> 68/push 0/imm32/outputs -<span id="L25270" class="LineNr">25270 </span> 68/push 0/imm32/outputs -<span id="L25271" class="LineNr">25271 </span> 56/push-esi/inouts -<span id="L25272" class="LineNr">25272 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25273" class="LineNr">25273 </span> 68/push 0/imm32/operation -<span id="L25274" class="LineNr">25274 </span> 68/push 0/imm32/operation -<span id="L25275" class="LineNr">25275 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25276" class="LineNr">25276 </span> 89/<- %esi 4/r32/esp -<span id="L25277" class="LineNr">25277 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: -<span id="L25278" class="LineNr">25278 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25279" class="LineNr">25279 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25280" class="LineNr">25280 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25281" class="LineNr">25281 </span> <span class="subxComment"># convert</span> -<span id="L25282" class="LineNr">25282 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25283" class="LineNr">25283 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25284" class="LineNr">25284 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25285" class="Folded">25285 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25291" class="LineNr">25291 </span> <span class="subxComment"># check output</span> -<span id="L25292" class="LineNr">25292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) -<span id="L25293" class="LineNr">25293 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25294" class="LineNr">25294 </span> 89/<- %esp 5/r32/ebp -<span id="L25295" class="LineNr">25295 </span> 5d/pop-to-ebp -<span id="L25296" class="LineNr">25296 </span> c3/return -<span id="L25297" class="LineNr">25297 </span> -<span id="L25298" class="LineNr">25298 </span><span class="subxTest">test-compare-mem-with-reg</span>: -<span id="L25299" class="LineNr">25299 </span> <span class="subxComment"># compare var1, var2/eax</span> -<span id="L25300" class="LineNr">25300 </span> <span class="subxComment"># =></span> -<span id="L25301" class="LineNr">25301 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> -<span id="L25302" class="LineNr">25302 </span> <span class="subxComment">#</span> -<span id="L25303" class="LineNr">25303 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25304" class="LineNr">25304 </span> 55/push-ebp -<span id="L25305" class="LineNr">25305 </span> 89/<- %ebp 4/r32/esp -<span id="L25306" class="LineNr">25306 </span> <span class="subxComment"># setup</span> -<span id="L25307" class="LineNr">25307 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25308" class="LineNr">25308 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25309" class="LineNr">25309 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: -<span id="L25310" class="LineNr">25310 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25311" class="LineNr">25311 </span> 68/push 0/imm32/right:null -<span id="L25312" class="LineNr">25312 </span> 68/push 0/imm32/right:null -<span id="L25313" class="LineNr">25313 </span> 68/push 0/imm32/left:unused -<span id="L25314" class="LineNr">25314 </span> 68/push 1/imm32/value:int -<span id="L25315" class="LineNr">25315 </span> 68/push 1/imm32/is-atom?:true -<span id="L25316" class="LineNr">25316 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25317" class="LineNr">25317 </span> 89/<- %ecx 4/r32/esp -<span id="L25318" class="LineNr">25318 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: -<span id="L25319" class="LineNr">25319 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25320" class="LineNr">25320 </span> 68/push 0/imm32/register -<span id="L25321" class="LineNr">25321 </span> 68/push 0/imm32/register -<span id="L25322" class="LineNr">25322 </span> 68/push 8/imm32/stack-offset -<span id="L25323" class="LineNr">25323 </span> 68/push 1/imm32/block-depth -<span id="L25324" class="LineNr">25324 </span> 51/push-ecx -<span id="L25325" class="LineNr">25325 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25326" class="LineNr">25326 </span> 68/push 0/imm32/name -<span id="L25327" class="LineNr">25327 </span> 68/push 0/imm32/name -<span id="L25328" class="LineNr">25328 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25329" class="LineNr">25329 </span> 89/<- %ecx 4/r32/esp -<span id="L25330" class="LineNr">25330 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: -<span id="L25331" class="LineNr">25331 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25332" class="LineNr">25332 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25333" class="LineNr">25333 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25334" class="LineNr">25334 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: -<span id="L25335" class="LineNr">25335 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L25336" class="LineNr">25336 </span> 68/push 0/imm32/register -<span id="L25337" class="LineNr">25337 </span> 68/push 0/imm32/register -<span id="L25338" class="LineNr">25338 </span> 68/push 0/imm32/no-stack-offset -<span id="L25339" class="LineNr">25339 </span> 68/push 1/imm32/block-depth -<span id="L25340" class="LineNr">25340 </span> ff 6/subop/push *(ecx+0x10) +<span id="L24869" class="LineNr">24869 </span> 89/<- %edx 4/r32/esp +<span id="L24870" class="LineNr">24870 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: +<span id="L24871" class="LineNr">24871 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L24872" class="LineNr">24872 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24873" class="LineNr">24873 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L24874" class="LineNr">24874 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: +<span id="L24875" class="LineNr">24875 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L24876" class="LineNr">24876 </span> 68/push 0/imm32/is-deref:false +<span id="L24877" class="LineNr">24877 </span> 68/push 0/imm32/next +<span id="L24878" class="LineNr">24878 </span> 68/push 0/imm32/next +<span id="L24879" class="LineNr">24879 </span> 52/push-edx/l +<span id="L24880" class="LineNr">24880 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24881" class="LineNr">24881 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24882" class="LineNr">24882 </span> 89/<- %esi 4/r32/esp +<span id="L24883" class="LineNr">24883 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: +<span id="L24884" class="LineNr">24884 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L24885" class="LineNr">24885 </span> 68/push 0/imm32/is-deref:false +<span id="L24886" class="LineNr">24886 </span> 68/push 0/imm32/next +<span id="L24887" class="LineNr">24887 </span> 68/push 0/imm32/next +<span id="L24888" class="LineNr">24888 </span> 51/push-ecx/v +<span id="L24889" class="LineNr">24889 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24890" class="LineNr">24890 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24891" class="LineNr">24891 </span> 89/<- %edi 4/r32/esp +<span id="L24892" class="LineNr">24892 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L24893" class="LineNr">24893 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L24894" class="LineNr">24894 </span> 68/push 0/imm32/next +<span id="L24895" class="LineNr">24895 </span> 68/push 0/imm32/next +<span id="L24896" class="LineNr">24896 </span> 57/push-edi/outputs +<span id="L24897" class="LineNr">24897 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24898" class="LineNr">24898 </span> 56/push-esi/inouts +<span id="L24899" class="LineNr">24899 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24900" class="LineNr">24900 </span> 68/push 0/imm32/operation +<span id="L24901" class="LineNr">24901 </span> 68/push 0/imm32/operation +<span id="L24902" class="LineNr">24902 </span> 68/push 1/imm32/tag:stmt1 +<span id="L24903" class="LineNr">24903 </span> 89/<- %esi 4/r32/esp +<span id="L24904" class="LineNr">24904 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L24905" class="LineNr">24905 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L24906" class="LineNr">24906 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L24907" class="LineNr">24907 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L24908" class="LineNr">24908 </span> <span class="subxComment"># convert</span> +<span id="L24909" class="LineNr">24909 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L24910" class="LineNr">24910 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L24911" class="LineNr">24911 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L24912" class="Folded">24912 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L24918" class="LineNr">24918 </span> <span class="subxComment"># check output</span> +<span id="L24919" class="LineNr">24919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) +<span id="L24920" class="LineNr">24920 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24921" class="LineNr">24921 </span> 89/<- %esp 5/r32/ebp +<span id="L24922" class="LineNr">24922 </span> 5d/pop-to-ebp +<span id="L24923" class="LineNr">24923 </span> c3/return +<span id="L24924" class="LineNr">24924 </span> +<span id="L24925" class="LineNr">24925 </span><span class="subxTest">test-add-literal-to-reg</span>: +<span id="L24926" class="LineNr">24926 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L24927" class="LineNr">24927 </span> <span class="subxComment"># =></span> +<span id="L24928" class="LineNr">24928 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L24929" class="LineNr">24929 </span> <span class="subxComment">#</span> +<span id="L24930" class="LineNr">24930 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24931" class="LineNr">24931 </span> 55/push-ebp +<span id="L24932" class="LineNr">24932 </span> 89/<- %ebp 4/r32/esp +<span id="L24933" class="LineNr">24933 </span> <span class="subxComment"># setup</span> +<span id="L24934" class="LineNr">24934 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L24935" class="LineNr">24935 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L24936" class="LineNr">24936 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L24937" class="LineNr">24937 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L24938" class="LineNr">24938 </span> 68/push 0/imm32/right:null +<span id="L24939" class="LineNr">24939 </span> 68/push 0/imm32/right:null +<span id="L24940" class="LineNr">24940 </span> 68/push 0/imm32/left:unused +<span id="L24941" class="LineNr">24941 </span> 68/push 1/imm32/value:int +<span id="L24942" class="LineNr">24942 </span> 68/push 1/imm32/is-atom?:true +<span id="L24943" class="LineNr">24943 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24944" class="LineNr">24944 </span> 89/<- %ecx 4/r32/esp +<span id="L24945" class="LineNr">24945 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: +<span id="L24946" class="LineNr">24946 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L24947" class="LineNr">24947 </span> 68/push 0/imm32/register +<span id="L24948" class="LineNr">24948 </span> 68/push 0/imm32/register +<span id="L24949" class="LineNr">24949 </span> 68/push 0/imm32/no-stack-offset +<span id="L24950" class="LineNr">24950 </span> 68/push 1/imm32/block-depth +<span id="L24951" class="LineNr">24951 </span> 51/push-ecx +<span id="L24952" class="LineNr">24952 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24953" class="LineNr">24953 </span> 68/push 0/imm32/name +<span id="L24954" class="LineNr">24954 </span> 68/push 0/imm32/name +<span id="L24955" class="LineNr">24955 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24956" class="LineNr">24956 </span> 89/<- %ecx 4/r32/esp +<span id="L24957" class="LineNr">24957 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: +<span id="L24958" class="LineNr">24958 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L24959" class="LineNr">24959 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24960" class="LineNr">24960 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L24961" class="LineNr">24961 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: +<span id="L24962" class="LineNr">24962 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L24963" class="LineNr">24963 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L24964" class="LineNr">24964 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L24965" class="LineNr">24965 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: +<span id="L24966" class="LineNr">24966 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L24967" class="LineNr">24967 </span> 68/push 0/imm32/right:null +<span id="L24968" class="LineNr">24968 </span> 68/push 0/imm32/right:null +<span id="L24969" class="LineNr">24969 </span> 68/push 0/imm32/left:unused +<span id="L24970" class="LineNr">24970 </span> 68/push 0/imm32/value:literal +<span id="L24971" class="LineNr">24971 </span> 68/push 1/imm32/is-atom?:true +<span id="L24972" class="LineNr">24972 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24973" class="LineNr">24973 </span> 89/<- %edx 4/r32/esp +<span id="L24974" class="LineNr">24974 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: +<span id="L24975" class="LineNr">24975 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L24976" class="LineNr">24976 </span> 68/push 0/imm32/register +<span id="L24977" class="LineNr">24977 </span> 68/push 0/imm32/register +<span id="L24978" class="LineNr">24978 </span> 68/push 0/imm32/no-stack-offset +<span id="L24979" class="LineNr">24979 </span> 68/push 1/imm32/block-depth +<span id="L24980" class="LineNr">24980 </span> 52/push-edx +<span id="L24981" class="LineNr">24981 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24982" class="LineNr">24982 </span> 68/push 0/imm32/name +<span id="L24983" class="LineNr">24983 </span> 68/push 0/imm32/name +<span id="L24984" class="LineNr">24984 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24985" class="LineNr">24985 </span> 89/<- %edx 4/r32/esp +<span id="L24986" class="LineNr">24986 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: +<span id="L24987" class="LineNr">24987 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L24988" class="LineNr">24988 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L24989" class="LineNr">24989 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L24990" class="LineNr">24990 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: +<span id="L24991" class="LineNr">24991 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L24992" class="LineNr">24992 </span> 68/push 0/imm32/is-deref:false +<span id="L24993" class="LineNr">24993 </span> 68/push 0/imm32/next +<span id="L24994" class="LineNr">24994 </span> 68/push 0/imm32/next +<span id="L24995" class="LineNr">24995 </span> 52/push-edx/l +<span id="L24996" class="LineNr">24996 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L24997" class="LineNr">24997 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L24998" class="LineNr">24998 </span> 89/<- %esi 4/r32/esp +<span id="L24999" class="LineNr">24999 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: +<span id="L25000" class="LineNr">25000 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L25001" class="LineNr">25001 </span> 68/push 0/imm32/is-deref:false +<span id="L25002" class="LineNr">25002 </span> 68/push 0/imm32/next +<span id="L25003" class="LineNr">25003 </span> 68/push 0/imm32/next +<span id="L25004" class="LineNr">25004 </span> 51/push-ecx/v +<span id="L25005" class="LineNr">25005 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25006" class="LineNr">25006 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25007" class="LineNr">25007 </span> 89/<- %edi 4/r32/esp +<span id="L25008" class="LineNr">25008 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: +<span id="L25009" class="LineNr">25009 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25010" class="LineNr">25010 </span> 68/push 0/imm32/next +<span id="L25011" class="LineNr">25011 </span> 68/push 0/imm32/next +<span id="L25012" class="LineNr">25012 </span> 57/push-edi/outputs +<span id="L25013" class="LineNr">25013 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25014" class="LineNr">25014 </span> 56/push-esi/inouts +<span id="L25015" class="LineNr">25015 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25016" class="LineNr">25016 </span> 68/push 0/imm32/operation +<span id="L25017" class="LineNr">25017 </span> 68/push 0/imm32/operation +<span id="L25018" class="LineNr">25018 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25019" class="LineNr">25019 </span> 89/<- %esi 4/r32/esp +<span id="L25020" class="LineNr">25020 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: +<span id="L25021" class="LineNr">25021 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L25022" class="LineNr">25022 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25023" class="LineNr">25023 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L25024" class="LineNr">25024 </span> <span class="subxComment"># convert</span> +<span id="L25025" class="LineNr">25025 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25026" class="LineNr">25026 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25027" class="LineNr">25027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25028" class="Folded">25028 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25034" class="LineNr">25034 </span> <span class="subxComment"># check output</span> +<span id="L25035" class="LineNr">25035 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) +<span id="L25036" class="LineNr">25036 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25037" class="LineNr">25037 </span> 89/<- %esp 5/r32/ebp +<span id="L25038" class="LineNr">25038 </span> 5d/pop-to-ebp +<span id="L25039" class="LineNr">25039 </span> c3/return +<span id="L25040" class="LineNr">25040 </span> +<span id="L25041" class="LineNr">25041 </span><span class="subxTest">test-add-literal-to-mem</span>: +<span id="L25042" class="LineNr">25042 </span> <span class="subxComment"># add-to var1, 0x34</span> +<span id="L25043" class="LineNr">25043 </span> <span class="subxComment"># =></span> +<span id="L25044" class="LineNr">25044 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> +<span id="L25045" class="LineNr">25045 </span> <span class="subxComment">#</span> +<span id="L25046" class="LineNr">25046 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25047" class="LineNr">25047 </span> 55/push-ebp +<span id="L25048" class="LineNr">25048 </span> 89/<- %ebp 4/r32/esp +<span id="L25049" class="LineNr">25049 </span> <span class="subxComment"># setup</span> +<span id="L25050" class="LineNr">25050 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25051" class="LineNr">25051 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25052" class="LineNr">25052 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: +<span id="L25053" class="LineNr">25053 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25054" class="LineNr">25054 </span> 68/push 0/imm32/right:null +<span id="L25055" class="LineNr">25055 </span> 68/push 0/imm32/right:null +<span id="L25056" class="LineNr">25056 </span> 68/push 0/imm32/left:unused +<span id="L25057" class="LineNr">25057 </span> 68/push 1/imm32/value:int +<span id="L25058" class="LineNr">25058 </span> 68/push 1/imm32/is-atom?:true +<span id="L25059" class="LineNr">25059 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25060" class="LineNr">25060 </span> 89/<- %ecx 4/r32/esp +<span id="L25061" class="LineNr">25061 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: +<span id="L25062" class="LineNr">25062 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25063" class="LineNr">25063 </span> 68/push 0/imm32/register +<span id="L25064" class="LineNr">25064 </span> 68/push 0/imm32/register +<span id="L25065" class="LineNr">25065 </span> 68/push 8/imm32/stack-offset +<span id="L25066" class="LineNr">25066 </span> 68/push 1/imm32/block-depth +<span id="L25067" class="LineNr">25067 </span> 51/push-ecx +<span id="L25068" class="LineNr">25068 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25069" class="LineNr">25069 </span> 68/push 0/imm32/name +<span id="L25070" class="LineNr">25070 </span> 68/push 0/imm32/name +<span id="L25071" class="LineNr">25071 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25072" class="LineNr">25072 </span> 89/<- %ecx 4/r32/esp +<span id="L25073" class="LineNr">25073 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: +<span id="L25074" class="LineNr">25074 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25075" class="LineNr">25075 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25076" class="LineNr">25076 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25077" class="LineNr">25077 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: +<span id="L25078" class="LineNr">25078 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25079" class="LineNr">25079 </span> 68/push 0/imm32/right:null +<span id="L25080" class="LineNr">25080 </span> 68/push 0/imm32/right:null +<span id="L25081" class="LineNr">25081 </span> 68/push 0/imm32/left:unused +<span id="L25082" class="LineNr">25082 </span> 68/push 0/imm32/value:literal +<span id="L25083" class="LineNr">25083 </span> 68/push 1/imm32/is-atom?:true +<span id="L25084" class="LineNr">25084 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25085" class="LineNr">25085 </span> 89/<- %edx 4/r32/esp +<span id="L25086" class="LineNr">25086 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: +<span id="L25087" class="LineNr">25087 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25088" class="LineNr">25088 </span> 68/push 0/imm32/register +<span id="L25089" class="LineNr">25089 </span> 68/push 0/imm32/register +<span id="L25090" class="LineNr">25090 </span> 68/push 0/imm32/no-stack-offset +<span id="L25091" class="LineNr">25091 </span> 68/push 1/imm32/block-depth +<span id="L25092" class="LineNr">25092 </span> 52/push-edx +<span id="L25093" class="LineNr">25093 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25094" class="LineNr">25094 </span> 68/push 0/imm32/name +<span id="L25095" class="LineNr">25095 </span> 68/push 0/imm32/name +<span id="L25096" class="LineNr">25096 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25097" class="LineNr">25097 </span> 89/<- %edx 4/r32/esp +<span id="L25098" class="LineNr">25098 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: +<span id="L25099" class="LineNr">25099 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L25100" class="LineNr">25100 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25101" class="LineNr">25101 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L25102" class="LineNr">25102 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: +<span id="L25103" class="LineNr">25103 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25104" class="LineNr">25104 </span> 68/push 0/imm32/is-deref:false +<span id="L25105" class="LineNr">25105 </span> 68/push 0/imm32/next +<span id="L25106" class="LineNr">25106 </span> 68/push 0/imm32/next +<span id="L25107" class="LineNr">25107 </span> 52/push-edx/l +<span id="L25108" class="LineNr">25108 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25109" class="LineNr">25109 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25110" class="LineNr">25110 </span> 89/<- %esi 4/r32/esp +<span id="L25111" class="LineNr">25111 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L25112" class="LineNr">25112 </span> 68/push 0/imm32/is-deref:false +<span id="L25113" class="LineNr">25113 </span> 56/push-esi/next +<span id="L25114" class="LineNr">25114 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25115" class="LineNr">25115 </span> 51/push-ecx/var1 +<span id="L25116" class="LineNr">25116 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25117" class="LineNr">25117 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25118" class="LineNr">25118 </span> 89/<- %esi 4/r32/esp +<span id="L25119" class="LineNr">25119 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: +<span id="L25120" class="LineNr">25120 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25121" class="LineNr">25121 </span> 68/push 0/imm32/next +<span id="L25122" class="LineNr">25122 </span> 68/push 0/imm32/next +<span id="L25123" class="LineNr">25123 </span> 68/push 0/imm32/outputs +<span id="L25124" class="LineNr">25124 </span> 68/push 0/imm32/outputs +<span id="L25125" class="LineNr">25125 </span> 56/push-esi/inouts +<span id="L25126" class="LineNr">25126 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25127" class="LineNr">25127 </span> 68/push 0/imm32/operation +<span id="L25128" class="LineNr">25128 </span> 68/push 0/imm32/operation +<span id="L25129" class="LineNr">25129 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25130" class="LineNr">25130 </span> 89/<- %esi 4/r32/esp +<span id="L25131" class="LineNr">25131 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: +<span id="L25132" class="LineNr">25132 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L25133" class="LineNr">25133 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25134" class="LineNr">25134 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L25135" class="LineNr">25135 </span> <span class="subxComment"># convert</span> +<span id="L25136" class="LineNr">25136 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25137" class="LineNr">25137 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25138" class="LineNr">25138 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25139" class="Folded">25139 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25145" class="LineNr">25145 </span> <span class="subxComment"># check output</span> +<span id="L25146" class="LineNr">25146 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) +<span id="L25147" class="LineNr">25147 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25148" class="LineNr">25148 </span> 89/<- %esp 5/r32/ebp +<span id="L25149" class="LineNr">25149 </span> 5d/pop-to-ebp +<span id="L25150" class="LineNr">25150 </span> c3/return +<span id="L25151" class="LineNr">25151 </span> +<span id="L25152" class="LineNr">25152 </span><span class="subxTest">test-shift-reg-by-literal</span>: +<span id="L25153" class="LineNr">25153 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> +<span id="L25154" class="LineNr">25154 </span> <span class="subxComment"># =></span> +<span id="L25155" class="LineNr">25155 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> +<span id="L25156" class="LineNr">25156 </span> <span class="subxComment">#</span> +<span id="L25157" class="LineNr">25157 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25158" class="LineNr">25158 </span> 55/push-ebp +<span id="L25159" class="LineNr">25159 </span> 89/<- %ebp 4/r32/esp +<span id="L25160" class="LineNr">25160 </span> <span class="subxComment"># setup</span> +<span id="L25161" class="LineNr">25161 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25162" class="LineNr">25162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25163" class="LineNr">25163 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: +<span id="L25164" class="LineNr">25164 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25165" class="LineNr">25165 </span> 68/push 0/imm32/right:null +<span id="L25166" class="LineNr">25166 </span> 68/push 0/imm32/right:null +<span id="L25167" class="LineNr">25167 </span> 68/push 0/imm32/left:unused +<span id="L25168" class="LineNr">25168 </span> 68/push 1/imm32/value:int +<span id="L25169" class="LineNr">25169 </span> 68/push 1/imm32/is-atom?:true +<span id="L25170" class="LineNr">25170 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25171" class="LineNr">25171 </span> 89/<- %ecx 4/r32/esp +<span id="L25172" class="LineNr">25172 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: +<span id="L25173" class="LineNr">25173 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L25174" class="LineNr">25174 </span> 68/push 0/imm32/register +<span id="L25175" class="LineNr">25175 </span> 68/push 0/imm32/register +<span id="L25176" class="LineNr">25176 </span> 68/push 0/imm32/no-stack-offset +<span id="L25177" class="LineNr">25177 </span> 68/push 1/imm32/block-depth +<span id="L25178" class="LineNr">25178 </span> 51/push-ecx +<span id="L25179" class="LineNr">25179 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25180" class="LineNr">25180 </span> 68/push 0/imm32/name +<span id="L25181" class="LineNr">25181 </span> 68/push 0/imm32/name +<span id="L25182" class="LineNr">25182 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25183" class="LineNr">25183 </span> 89/<- %ecx 4/r32/esp +<span id="L25184" class="LineNr">25184 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: +<span id="L25185" class="LineNr">25185 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L25186" class="LineNr">25186 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25187" class="LineNr">25187 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L25188" class="LineNr">25188 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: +<span id="L25189" class="LineNr">25189 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L25190" class="LineNr">25190 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25191" class="LineNr">25191 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L25192" class="LineNr">25192 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: +<span id="L25193" class="LineNr">25193 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25194" class="LineNr">25194 </span> 68/push 0/imm32/right:null +<span id="L25195" class="LineNr">25195 </span> 68/push 0/imm32/right:null +<span id="L25196" class="LineNr">25196 </span> 68/push 0/imm32/left:unused +<span id="L25197" class="LineNr">25197 </span> 68/push 0/imm32/value:literal +<span id="L25198" class="LineNr">25198 </span> 68/push 1/imm32/is-atom?:true +<span id="L25199" class="LineNr">25199 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25200" class="LineNr">25200 </span> 89/<- %edx 4/r32/esp +<span id="L25201" class="LineNr">25201 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: +<span id="L25202" class="LineNr">25202 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25203" class="LineNr">25203 </span> 68/push 0/imm32/register +<span id="L25204" class="LineNr">25204 </span> 68/push 0/imm32/register +<span id="L25205" class="LineNr">25205 </span> 68/push 0/imm32/no-stack-offset +<span id="L25206" class="LineNr">25206 </span> 68/push 1/imm32/block-depth +<span id="L25207" class="LineNr">25207 </span> 52/push-edx +<span id="L25208" class="LineNr">25208 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25209" class="LineNr">25209 </span> 68/push 0/imm32/name +<span id="L25210" class="LineNr">25210 </span> 68/push 0/imm32/name +<span id="L25211" class="LineNr">25211 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25212" class="LineNr">25212 </span> 89/<- %edx 4/r32/esp +<span id="L25213" class="LineNr">25213 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: +<span id="L25214" class="LineNr">25214 </span> <span class="subxComment"># l->name = "2"</span> +<span id="L25215" class="LineNr">25215 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25216" class="LineNr">25216 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) +<span id="L25217" class="LineNr">25217 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: +<span id="L25218" class="LineNr">25218 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25219" class="LineNr">25219 </span> 68/push 0/imm32/is-deref:false +<span id="L25220" class="LineNr">25220 </span> 68/push 0/imm32/next +<span id="L25221" class="LineNr">25221 </span> 68/push 0/imm32/next +<span id="L25222" class="LineNr">25222 </span> 52/push-edx/l +<span id="L25223" class="LineNr">25223 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25224" class="LineNr">25224 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25225" class="LineNr">25225 </span> 89/<- %esi 4/r32/esp +<span id="L25226" class="LineNr">25226 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: +<span id="L25227" class="LineNr">25227 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L25228" class="LineNr">25228 </span> 68/push 0/imm32/is-deref:false +<span id="L25229" class="LineNr">25229 </span> 68/push 0/imm32/next +<span id="L25230" class="LineNr">25230 </span> 68/push 0/imm32/next +<span id="L25231" class="LineNr">25231 </span> 51/push-ecx/v +<span id="L25232" class="LineNr">25232 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25233" class="LineNr">25233 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25234" class="LineNr">25234 </span> 89/<- %edi 4/r32/esp +<span id="L25235" class="LineNr">25235 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: +<span id="L25236" class="LineNr">25236 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25237" class="LineNr">25237 </span> 68/push 0/imm32/next +<span id="L25238" class="LineNr">25238 </span> 68/push 0/imm32/next +<span id="L25239" class="LineNr">25239 </span> 57/push-edi/outputs +<span id="L25240" class="LineNr">25240 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25241" class="LineNr">25241 </span> 56/push-esi/inouts +<span id="L25242" class="LineNr">25242 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25243" class="LineNr">25243 </span> 68/push 0/imm32/operation +<span id="L25244" class="LineNr">25244 </span> 68/push 0/imm32/operation +<span id="L25245" class="LineNr">25245 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25246" class="LineNr">25246 </span> 89/<- %esi 4/r32/esp +<span id="L25247" class="LineNr">25247 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: +<span id="L25248" class="LineNr">25248 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L25249" class="LineNr">25249 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25250" class="LineNr">25250 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L25251" class="LineNr">25251 </span> <span class="subxComment"># convert</span> +<span id="L25252" class="LineNr">25252 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25253" class="LineNr">25253 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25254" class="LineNr">25254 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25255" class="Folded">25255 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25261" class="LineNr">25261 </span> <span class="subxComment"># check output</span> +<span id="L25262" class="LineNr">25262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) +<span id="L25263" class="LineNr">25263 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25264" class="LineNr">25264 </span> 89/<- %esp 5/r32/ebp +<span id="L25265" class="LineNr">25265 </span> 5d/pop-to-ebp +<span id="L25266" class="LineNr">25266 </span> c3/return +<span id="L25267" class="LineNr">25267 </span> +<span id="L25268" class="LineNr">25268 </span><span class="subxTest">test-shift-mem-by-literal</span>: +<span id="L25269" class="LineNr">25269 </span> <span class="subxComment"># shift-left var 3</span> +<span id="L25270" class="LineNr">25270 </span> <span class="subxComment"># =></span> +<span id="L25271" class="LineNr">25271 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> +<span id="L25272" class="LineNr">25272 </span> <span class="subxComment">#</span> +<span id="L25273" class="LineNr">25273 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25274" class="LineNr">25274 </span> 55/push-ebp +<span id="L25275" class="LineNr">25275 </span> 89/<- %ebp 4/r32/esp +<span id="L25276" class="LineNr">25276 </span> <span class="subxComment"># setup</span> +<span id="L25277" class="LineNr">25277 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25278" class="LineNr">25278 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25279" class="LineNr">25279 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: +<span id="L25280" class="LineNr">25280 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25281" class="LineNr">25281 </span> 68/push 0/imm32/right:null +<span id="L25282" class="LineNr">25282 </span> 68/push 0/imm32/right:null +<span id="L25283" class="LineNr">25283 </span> 68/push 0/imm32/left:unused +<span id="L25284" class="LineNr">25284 </span> 68/push 1/imm32/value:int +<span id="L25285" class="LineNr">25285 </span> 68/push 1/imm32/is-atom?:true +<span id="L25286" class="LineNr">25286 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25287" class="LineNr">25287 </span> 89/<- %ecx 4/r32/esp +<span id="L25288" class="LineNr">25288 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: +<span id="L25289" class="LineNr">25289 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25290" class="LineNr">25290 </span> 68/push 0/imm32/register +<span id="L25291" class="LineNr">25291 </span> 68/push 0/imm32/register +<span id="L25292" class="LineNr">25292 </span> 68/push 8/imm32/stack-offset +<span id="L25293" class="LineNr">25293 </span> 68/push 1/imm32/block-depth +<span id="L25294" class="LineNr">25294 </span> 51/push-ecx +<span id="L25295" class="LineNr">25295 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25296" class="LineNr">25296 </span> 68/push 0/imm32/name +<span id="L25297" class="LineNr">25297 </span> 68/push 0/imm32/name +<span id="L25298" class="LineNr">25298 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25299" class="LineNr">25299 </span> 89/<- %ecx 4/r32/esp +<span id="L25300" class="LineNr">25300 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: +<span id="L25301" class="LineNr">25301 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25302" class="LineNr">25302 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25303" class="LineNr">25303 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25304" class="LineNr">25304 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: +<span id="L25305" class="LineNr">25305 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25306" class="LineNr">25306 </span> 68/push 0/imm32/right:null +<span id="L25307" class="LineNr">25307 </span> 68/push 0/imm32/right:null +<span id="L25308" class="LineNr">25308 </span> 68/push 0/imm32/left:unused +<span id="L25309" class="LineNr">25309 </span> 68/push 0/imm32/value:literal +<span id="L25310" class="LineNr">25310 </span> 68/push 1/imm32/is-atom?:true +<span id="L25311" class="LineNr">25311 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25312" class="LineNr">25312 </span> 89/<- %edx 4/r32/esp +<span id="L25313" class="LineNr">25313 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: +<span id="L25314" class="LineNr">25314 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25315" class="LineNr">25315 </span> 68/push 0/imm32/register +<span id="L25316" class="LineNr">25316 </span> 68/push 0/imm32/register +<span id="L25317" class="LineNr">25317 </span> 68/push 0/imm32/no-stack-offset +<span id="L25318" class="LineNr">25318 </span> 68/push 1/imm32/block-depth +<span id="L25319" class="LineNr">25319 </span> 52/push-edx +<span id="L25320" class="LineNr">25320 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25321" class="LineNr">25321 </span> 68/push 0/imm32/name +<span id="L25322" class="LineNr">25322 </span> 68/push 0/imm32/name +<span id="L25323" class="LineNr">25323 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25324" class="LineNr">25324 </span> 89/<- %edx 4/r32/esp +<span id="L25325" class="LineNr">25325 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: +<span id="L25326" class="LineNr">25326 </span> <span class="subxComment"># l->name = "3"</span> +<span id="L25327" class="LineNr">25327 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25328" class="LineNr">25328 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) +<span id="L25329" class="LineNr">25329 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: +<span id="L25330" class="LineNr">25330 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25331" class="LineNr">25331 </span> 68/push 0/imm32/is-deref:false +<span id="L25332" class="LineNr">25332 </span> 68/push 0/imm32/next +<span id="L25333" class="LineNr">25333 </span> 68/push 0/imm32/next +<span id="L25334" class="LineNr">25334 </span> 52/push-edx/l +<span id="L25335" class="LineNr">25335 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25336" class="LineNr">25336 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25337" class="LineNr">25337 </span> 89/<- %esi 4/r32/esp +<span id="L25338" class="LineNr">25338 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L25339" class="LineNr">25339 </span> 68/push 0/imm32/is-deref:false +<span id="L25340" class="LineNr">25340 </span> 56/push-esi/next <span id="L25341" class="LineNr">25341 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25342" class="LineNr">25342 </span> 68/push 0/imm32/name -<span id="L25343" class="LineNr">25343 </span> 68/push 0/imm32/name +<span id="L25342" class="LineNr">25342 </span> 51/push-ecx/var1 +<span id="L25343" class="LineNr">25343 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L25344" class="LineNr">25344 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25345" class="LineNr">25345 </span> 89/<- %edx 4/r32/esp -<span id="L25346" class="LineNr">25346 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: -<span id="L25347" class="LineNr">25347 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L25348" class="LineNr">25348 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25349" class="LineNr">25349 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L25350" class="LineNr">25350 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: -<span id="L25351" class="LineNr">25351 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L25352" class="LineNr">25352 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25353" class="LineNr">25353 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L25354" class="LineNr">25354 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: -<span id="L25355" class="LineNr">25355 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L25356" class="LineNr">25356 </span> 68/push 0/imm32/is-deref:false -<span id="L25357" class="LineNr">25357 </span> 68/push 0/imm32/next -<span id="L25358" class="LineNr">25358 </span> 68/push 0/imm32/next -<span id="L25359" class="LineNr">25359 </span> 52/push-edx/var2 -<span id="L25360" class="LineNr">25360 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25361" class="LineNr">25361 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25362" class="LineNr">25362 </span> 89/<- %esi 4/r32/esp -<span id="L25363" class="LineNr">25363 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L25364" class="LineNr">25364 </span> 68/push 0/imm32/is-deref:false -<span id="L25365" class="LineNr">25365 </span> 56/push-esi/next -<span id="L25366" class="LineNr">25366 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25367" class="LineNr">25367 </span> 51/push-ecx/var1 -<span id="L25368" class="LineNr">25368 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25369" class="LineNr">25369 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25370" class="LineNr">25370 </span> 89/<- %esi 4/r32/esp -<span id="L25371" class="LineNr">25371 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: -<span id="L25372" class="LineNr">25372 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25373" class="LineNr">25373 </span> 68/push 0/imm32/next -<span id="L25374" class="LineNr">25374 </span> 68/push 0/imm32/next -<span id="L25375" class="LineNr">25375 </span> 68/push 0/imm32/outputs -<span id="L25376" class="LineNr">25376 </span> 68/push 0/imm32/outputs -<span id="L25377" class="LineNr">25377 </span> 56/push-esi/inouts -<span id="L25378" class="LineNr">25378 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25379" class="LineNr">25379 </span> 68/push 0/imm32/operation -<span id="L25380" class="LineNr">25380 </span> 68/push 0/imm32/operation -<span id="L25381" class="LineNr">25381 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25382" class="LineNr">25382 </span> 89/<- %esi 4/r32/esp -<span id="L25383" class="LineNr">25383 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: -<span id="L25384" class="LineNr">25384 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25385" class="LineNr">25385 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25386" class="LineNr">25386 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25387" class="LineNr">25387 </span> <span class="subxComment"># convert</span> -<span id="L25388" class="LineNr">25388 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25389" class="LineNr">25389 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25390" class="LineNr">25390 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25391" class="Folded">25391 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25397" class="LineNr">25397 </span> <span class="subxComment"># check output</span> -<span id="L25398" class="LineNr">25398 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) -<span id="L25399" class="LineNr">25399 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25400" class="LineNr">25400 </span> 89/<- %esp 5/r32/ebp -<span id="L25401" class="LineNr">25401 </span> 5d/pop-to-ebp -<span id="L25402" class="LineNr">25402 </span> c3/return -<span id="L25403" class="LineNr">25403 </span> -<span id="L25404" class="LineNr">25404 </span><span class="subxTest">test-compare-reg-with-mem</span>: -<span id="L25405" class="LineNr">25405 </span> <span class="subxComment"># compare var1/eax, var2</span> -<span id="L25406" class="LineNr">25406 </span> <span class="subxComment"># =></span> -<span id="L25407" class="LineNr">25407 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> -<span id="L25408" class="LineNr">25408 </span> <span class="subxComment">#</span> -<span id="L25409" class="LineNr">25409 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25410" class="LineNr">25410 </span> 55/push-ebp -<span id="L25411" class="LineNr">25411 </span> 89/<- %ebp 4/r32/esp -<span id="L25412" class="LineNr">25412 </span> <span class="subxComment"># setup</span> -<span id="L25413" class="LineNr">25413 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25414" class="LineNr">25414 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25415" class="LineNr">25415 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: -<span id="L25416" class="LineNr">25416 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25417" class="LineNr">25417 </span> 68/push 0/imm32/right:null -<span id="L25418" class="LineNr">25418 </span> 68/push 0/imm32/right:null -<span id="L25419" class="LineNr">25419 </span> 68/push 0/imm32/left:unused -<span id="L25420" class="LineNr">25420 </span> 68/push 1/imm32/value:int -<span id="L25421" class="LineNr">25421 </span> 68/push 1/imm32/is-atom?:true -<span id="L25422" class="LineNr">25422 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25423" class="LineNr">25423 </span> 89/<- %ecx 4/r32/esp -<span id="L25424" class="LineNr">25424 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: -<span id="L25425" class="LineNr">25425 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25426" class="LineNr">25426 </span> 68/push 0/imm32/register -<span id="L25427" class="LineNr">25427 </span> 68/push 0/imm32/register -<span id="L25428" class="LineNr">25428 </span> 68/push 0/imm32/no-stack-offset -<span id="L25429" class="LineNr">25429 </span> 68/push 1/imm32/block-depth -<span id="L25430" class="LineNr">25430 </span> 51/push-ecx -<span id="L25431" class="LineNr">25431 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25432" class="LineNr">25432 </span> 68/push 0/imm32/name -<span id="L25433" class="LineNr">25433 </span> 68/push 0/imm32/name -<span id="L25434" class="LineNr">25434 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25435" class="LineNr">25435 </span> 89/<- %ecx 4/r32/esp -<span id="L25436" class="LineNr">25436 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: -<span id="L25437" class="LineNr">25437 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25438" class="LineNr">25438 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25439" class="LineNr">25439 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25440" class="LineNr">25440 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: -<span id="L25441" class="LineNr">25441 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L25442" class="LineNr">25442 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25443" class="LineNr">25443 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L25444" class="LineNr">25444 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: -<span id="L25445" class="LineNr">25445 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L25446" class="LineNr">25446 </span> 68/push 0/imm32/register -<span id="L25447" class="LineNr">25447 </span> 68/push 0/imm32/register -<span id="L25448" class="LineNr">25448 </span> 68/push 8/imm32/stack-offset -<span id="L25449" class="LineNr">25449 </span> 68/push 1/imm32/block-depth -<span id="L25450" class="LineNr">25450 </span> ff 6/subop/push *(ecx+0x10) +<span id="L25345" class="LineNr">25345 </span> 89/<- %esi 4/r32/esp +<span id="L25346" class="LineNr">25346 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: +<span id="L25347" class="LineNr">25347 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25348" class="LineNr">25348 </span> 68/push 0/imm32/next +<span id="L25349" class="LineNr">25349 </span> 68/push 0/imm32/next +<span id="L25350" class="LineNr">25350 </span> 68/push 0/imm32/outputs +<span id="L25351" class="LineNr">25351 </span> 68/push 0/imm32/outputs +<span id="L25352" class="LineNr">25352 </span> 56/push-esi/inouts +<span id="L25353" class="LineNr">25353 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25354" class="LineNr">25354 </span> 68/push 0/imm32/operation +<span id="L25355" class="LineNr">25355 </span> 68/push 0/imm32/operation +<span id="L25356" class="LineNr">25356 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25357" class="LineNr">25357 </span> 89/<- %esi 4/r32/esp +<span id="L25358" class="LineNr">25358 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: +<span id="L25359" class="LineNr">25359 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L25360" class="LineNr">25360 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25361" class="LineNr">25361 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L25362" class="LineNr">25362 </span> <span class="subxComment"># convert</span> +<span id="L25363" class="LineNr">25363 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25364" class="LineNr">25364 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25365" class="LineNr">25365 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25366" class="Folded">25366 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25372" class="LineNr">25372 </span> <span class="subxComment"># check output</span> +<span id="L25373" class="LineNr">25373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) +<span id="L25374" class="LineNr">25374 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25375" class="LineNr">25375 </span> 89/<- %esp 5/r32/ebp +<span id="L25376" class="LineNr">25376 </span> 5d/pop-to-ebp +<span id="L25377" class="LineNr">25377 </span> c3/return +<span id="L25378" class="LineNr">25378 </span> +<span id="L25379" class="LineNr">25379 </span><span class="subxTest">test-compare-reg-with-reg</span>: +<span id="L25380" class="LineNr">25380 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> +<span id="L25381" class="LineNr">25381 </span> <span class="subxComment"># =></span> +<span id="L25382" class="LineNr">25382 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> +<span id="L25383" class="LineNr">25383 </span> <span class="subxComment">#</span> +<span id="L25384" class="LineNr">25384 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25385" class="LineNr">25385 </span> 55/push-ebp +<span id="L25386" class="LineNr">25386 </span> 89/<- %ebp 4/r32/esp +<span id="L25387" class="LineNr">25387 </span> <span class="subxComment"># setup</span> +<span id="L25388" class="LineNr">25388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25389" class="LineNr">25389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25390" class="LineNr">25390 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: +<span id="L25391" class="LineNr">25391 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25392" class="LineNr">25392 </span> 68/push 0/imm32/right:null +<span id="L25393" class="LineNr">25393 </span> 68/push 0/imm32/right:null +<span id="L25394" class="LineNr">25394 </span> 68/push 0/imm32/left:unused +<span id="L25395" class="LineNr">25395 </span> 68/push 1/imm32/value:int +<span id="L25396" class="LineNr">25396 </span> 68/push 1/imm32/is-atom?:true +<span id="L25397" class="LineNr">25397 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25398" class="LineNr">25398 </span> 89/<- %ecx 4/r32/esp +<span id="L25399" class="LineNr">25399 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: +<span id="L25400" class="LineNr">25400 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25401" class="LineNr">25401 </span> 68/push 0/imm32/register +<span id="L25402" class="LineNr">25402 </span> 68/push 0/imm32/register +<span id="L25403" class="LineNr">25403 </span> 68/push 0/imm32/no-stack-offset +<span id="L25404" class="LineNr">25404 </span> 68/push 1/imm32/block-depth +<span id="L25405" class="LineNr">25405 </span> 51/push-ecx +<span id="L25406" class="LineNr">25406 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25407" class="LineNr">25407 </span> 68/push 0/imm32/name +<span id="L25408" class="LineNr">25408 </span> 68/push 0/imm32/name +<span id="L25409" class="LineNr">25409 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25410" class="LineNr">25410 </span> 89/<- %ecx 4/r32/esp +<span id="L25411" class="LineNr">25411 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: +<span id="L25412" class="LineNr">25412 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25413" class="LineNr">25413 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25414" class="LineNr">25414 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25415" class="LineNr">25415 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: +<span id="L25416" class="LineNr">25416 </span> <span class="subxComment"># var1->register = "ecx"</span> +<span id="L25417" class="LineNr">25417 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25418" class="LineNr">25418 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L25419" class="LineNr">25419 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: +<span id="L25420" class="LineNr">25420 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L25421" class="LineNr">25421 </span> 68/push 0/imm32/register +<span id="L25422" class="LineNr">25422 </span> 68/push 0/imm32/register +<span id="L25423" class="LineNr">25423 </span> 68/push 0/imm32/no-stack-offset +<span id="L25424" class="LineNr">25424 </span> 68/push 1/imm32/block-depth +<span id="L25425" class="LineNr">25425 </span> ff 6/subop/push *(ecx+0x10) +<span id="L25426" class="LineNr">25426 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25427" class="LineNr">25427 </span> 68/push 0/imm32/name +<span id="L25428" class="LineNr">25428 </span> 68/push 0/imm32/name +<span id="L25429" class="LineNr">25429 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25430" class="LineNr">25430 </span> 89/<- %edx 4/r32/esp +<span id="L25431" class="LineNr">25431 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: +<span id="L25432" class="LineNr">25432 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L25433" class="LineNr">25433 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25434" class="LineNr">25434 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L25435" class="LineNr">25435 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: +<span id="L25436" class="LineNr">25436 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L25437" class="LineNr">25437 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25438" class="LineNr">25438 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L25439" class="LineNr">25439 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: +<span id="L25440" class="LineNr">25440 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L25441" class="LineNr">25441 </span> 68/push 0/imm32/is-deref:false +<span id="L25442" class="LineNr">25442 </span> 68/push 0/imm32/next +<span id="L25443" class="LineNr">25443 </span> 68/push 0/imm32/next +<span id="L25444" class="LineNr">25444 </span> 52/push-edx/var2 +<span id="L25445" class="LineNr">25445 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25446" class="LineNr">25446 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25447" class="LineNr">25447 </span> 89/<- %esi 4/r32/esp +<span id="L25448" class="LineNr">25448 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L25449" class="LineNr">25449 </span> 68/push 0/imm32/is-deref:false +<span id="L25450" class="LineNr">25450 </span> 56/push-esi/next <span id="L25451" class="LineNr">25451 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25452" class="LineNr">25452 </span> 68/push 0/imm32/name -<span id="L25453" class="LineNr">25453 </span> 68/push 0/imm32/name +<span id="L25452" class="LineNr">25452 </span> 51/push-ecx/var1 +<span id="L25453" class="LineNr">25453 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L25454" class="LineNr">25454 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25455" class="LineNr">25455 </span> 89/<- %edx 4/r32/esp -<span id="L25456" class="LineNr">25456 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: -<span id="L25457" class="LineNr">25457 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L25458" class="LineNr">25458 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25459" class="LineNr">25459 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L25460" class="LineNr">25460 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: -<span id="L25461" class="LineNr">25461 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L25462" class="LineNr">25462 </span> 68/push 0/imm32/is-deref:false -<span id="L25463" class="LineNr">25463 </span> 68/push 0/imm32/next -<span id="L25464" class="LineNr">25464 </span> 68/push 0/imm32/next -<span id="L25465" class="LineNr">25465 </span> 52/push-edx/var2 -<span id="L25466" class="LineNr">25466 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25467" class="LineNr">25467 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25468" class="LineNr">25468 </span> 89/<- %esi 4/r32/esp -<span id="L25469" class="LineNr">25469 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L25470" class="LineNr">25470 </span> 68/push 0/imm32/is-deref:false -<span id="L25471" class="LineNr">25471 </span> 56/push-esi/next -<span id="L25472" class="LineNr">25472 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25473" class="LineNr">25473 </span> 51/push-ecx/var1 -<span id="L25474" class="LineNr">25474 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25475" class="LineNr">25475 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25476" class="LineNr">25476 </span> 89/<- %esi 4/r32/esp -<span id="L25477" class="LineNr">25477 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: -<span id="L25478" class="LineNr">25478 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25479" class="LineNr">25479 </span> 68/push 0/imm32/next -<span id="L25480" class="LineNr">25480 </span> 68/push 0/imm32/next -<span id="L25481" class="LineNr">25481 </span> 68/push 0/imm32/outputs -<span id="L25482" class="LineNr">25482 </span> 68/push 0/imm32/outputs -<span id="L25483" class="LineNr">25483 </span> 56/push-esi/inouts -<span id="L25484" class="LineNr">25484 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25485" class="LineNr">25485 </span> 68/push 0/imm32/operation -<span id="L25486" class="LineNr">25486 </span> 68/push 0/imm32/operation -<span id="L25487" class="LineNr">25487 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25488" class="LineNr">25488 </span> 89/<- %esi 4/r32/esp -<span id="L25489" class="LineNr">25489 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: -<span id="L25490" class="LineNr">25490 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25491" class="LineNr">25491 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25492" class="LineNr">25492 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25493" class="LineNr">25493 </span> <span class="subxComment"># convert</span> -<span id="L25494" class="LineNr">25494 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25495" class="LineNr">25495 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25496" class="LineNr">25496 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25497" class="Folded">25497 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25503" class="LineNr">25503 </span> <span class="subxComment"># check output</span> -<span id="L25504" class="LineNr">25504 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) -<span id="L25505" class="LineNr">25505 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25506" class="LineNr">25506 </span> 89/<- %esp 5/r32/ebp -<span id="L25507" class="LineNr">25507 </span> 5d/pop-to-ebp -<span id="L25508" class="LineNr">25508 </span> c3/return -<span id="L25509" class="LineNr">25509 </span> -<span id="L25510" class="LineNr">25510 </span><span class="subxTest">test-compare-mem-with-literal</span>: -<span id="L25511" class="LineNr">25511 </span> <span class="subxComment"># compare var1, 0x34</span> -<span id="L25512" class="LineNr">25512 </span> <span class="subxComment"># =></span> -<span id="L25513" class="LineNr">25513 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> -<span id="L25514" class="LineNr">25514 </span> <span class="subxComment">#</span> -<span id="L25515" class="LineNr">25515 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25516" class="LineNr">25516 </span> 55/push-ebp -<span id="L25517" class="LineNr">25517 </span> 89/<- %ebp 4/r32/esp -<span id="L25518" class="LineNr">25518 </span> <span class="subxComment"># setup</span> -<span id="L25519" class="LineNr">25519 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25520" class="LineNr">25520 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25521" class="LineNr">25521 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: -<span id="L25522" class="LineNr">25522 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25523" class="LineNr">25523 </span> 68/push 0/imm32/right:null -<span id="L25524" class="LineNr">25524 </span> 68/push 0/imm32/right:null -<span id="L25525" class="LineNr">25525 </span> 68/push 0/imm32/left:unused -<span id="L25526" class="LineNr">25526 </span> 68/push 1/imm32/value:int -<span id="L25527" class="LineNr">25527 </span> 68/push 1/imm32/is-atom?:true -<span id="L25528" class="LineNr">25528 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25529" class="LineNr">25529 </span> 89/<- %ecx 4/r32/esp -<span id="L25530" class="LineNr">25530 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: -<span id="L25531" class="LineNr">25531 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25532" class="LineNr">25532 </span> 68/push 0/imm32/register -<span id="L25533" class="LineNr">25533 </span> 68/push 0/imm32/register -<span id="L25534" class="LineNr">25534 </span> 68/push 8/imm32/stack-offset -<span id="L25535" class="LineNr">25535 </span> 68/push 1/imm32/block-depth -<span id="L25536" class="LineNr">25536 </span> 51/push-ecx -<span id="L25537" class="LineNr">25537 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25538" class="LineNr">25538 </span> 68/push 0/imm32/name -<span id="L25539" class="LineNr">25539 </span> 68/push 0/imm32/name -<span id="L25540" class="LineNr">25540 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25541" class="LineNr">25541 </span> 89/<- %ecx 4/r32/esp -<span id="L25542" class="LineNr">25542 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: -<span id="L25543" class="LineNr">25543 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25544" class="LineNr">25544 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25545" class="LineNr">25545 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25546" class="LineNr">25546 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: -<span id="L25547" class="LineNr">25547 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L25548" class="LineNr">25548 </span> 68/push 0/imm32/right:null -<span id="L25549" class="LineNr">25549 </span> 68/push 0/imm32/right:null -<span id="L25550" class="LineNr">25550 </span> 68/push 0/imm32/left:unused -<span id="L25551" class="LineNr">25551 </span> 68/push 0/imm32/value:literal -<span id="L25552" class="LineNr">25552 </span> 68/push 1/imm32/is-atom?:true -<span id="L25553" class="LineNr">25553 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25554" class="LineNr">25554 </span> 89/<- %edx 4/r32/esp -<span id="L25555" class="LineNr">25555 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: -<span id="L25556" class="LineNr">25556 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L25557" class="LineNr">25557 </span> 68/push 0/imm32/register -<span id="L25558" class="LineNr">25558 </span> 68/push 0/imm32/register -<span id="L25559" class="LineNr">25559 </span> 68/push 0/imm32/no-stack-offset -<span id="L25560" class="LineNr">25560 </span> 68/push 1/imm32/block-depth -<span id="L25561" class="LineNr">25561 </span> 52/push-edx -<span id="L25562" class="LineNr">25562 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25563" class="LineNr">25563 </span> 68/push 0/imm32/name -<span id="L25564" class="LineNr">25564 </span> 68/push 0/imm32/name -<span id="L25565" class="LineNr">25565 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25566" class="LineNr">25566 </span> 89/<- %edx 4/r32/esp -<span id="L25567" class="LineNr">25567 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: -<span id="L25568" class="LineNr">25568 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L25569" class="LineNr">25569 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25570" class="LineNr">25570 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L25571" class="LineNr">25571 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: -<span id="L25572" class="LineNr">25572 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L25573" class="LineNr">25573 </span> 68/push 0/imm32/is-deref:false -<span id="L25574" class="LineNr">25574 </span> 68/push 0/imm32/next -<span id="L25575" class="LineNr">25575 </span> 68/push 0/imm32/next -<span id="L25576" class="LineNr">25576 </span> 52/push-edx/l -<span id="L25577" class="LineNr">25577 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25578" class="LineNr">25578 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25579" class="LineNr">25579 </span> 89/<- %esi 4/r32/esp -<span id="L25580" class="LineNr">25580 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L25581" class="LineNr">25581 </span> 68/push 0/imm32/is-deref:false -<span id="L25582" class="LineNr">25582 </span> 56/push-esi/next -<span id="L25583" class="LineNr">25583 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25584" class="LineNr">25584 </span> 51/push-ecx/var1 -<span id="L25585" class="LineNr">25585 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25586" class="LineNr">25586 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25587" class="LineNr">25587 </span> 89/<- %esi 4/r32/esp -<span id="L25588" class="LineNr">25588 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: -<span id="L25589" class="LineNr">25589 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25590" class="LineNr">25590 </span> 68/push 0/imm32/next -<span id="L25591" class="LineNr">25591 </span> 68/push 0/imm32/next -<span id="L25592" class="LineNr">25592 </span> 68/push 0/imm32/outputs -<span id="L25593" class="LineNr">25593 </span> 68/push 0/imm32/outputs -<span id="L25594" class="LineNr">25594 </span> 56/push-esi/inouts -<span id="L25595" class="LineNr">25595 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25596" class="LineNr">25596 </span> 68/push 0/imm32/operation -<span id="L25597" class="LineNr">25597 </span> 68/push 0/imm32/operation -<span id="L25598" class="LineNr">25598 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25599" class="LineNr">25599 </span> 89/<- %esi 4/r32/esp -<span id="L25600" class="LineNr">25600 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: -<span id="L25601" class="LineNr">25601 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25602" class="LineNr">25602 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25603" class="LineNr">25603 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25604" class="LineNr">25604 </span> <span class="subxComment"># convert</span> -<span id="L25605" class="LineNr">25605 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25606" class="LineNr">25606 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25607" class="LineNr">25607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25608" class="Folded">25608 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25614" class="LineNr">25614 </span> <span class="subxComment"># check output</span> -<span id="L25615" class="LineNr">25615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) -<span id="L25616" class="LineNr">25616 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25617" class="LineNr">25617 </span> 89/<- %esp 5/r32/ebp -<span id="L25618" class="LineNr">25618 </span> 5d/pop-to-ebp -<span id="L25619" class="LineNr">25619 </span> c3/return -<span id="L25620" class="LineNr">25620 </span> -<span id="L25621" class="LineNr">25621 </span><span class="subxTest">test-compare-eax-with-literal</span>: -<span id="L25622" class="LineNr">25622 </span> <span class="subxComment"># compare var1/eax 0x34</span> -<span id="L25623" class="LineNr">25623 </span> <span class="subxComment"># =></span> -<span id="L25624" class="LineNr">25624 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> -<span id="L25625" class="LineNr">25625 </span> <span class="subxComment">#</span> -<span id="L25626" class="LineNr">25626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25627" class="LineNr">25627 </span> 55/push-ebp -<span id="L25628" class="LineNr">25628 </span> 89/<- %ebp 4/r32/esp -<span id="L25629" class="LineNr">25629 </span> <span class="subxComment"># setup</span> -<span id="L25630" class="LineNr">25630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25631" class="LineNr">25631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25632" class="LineNr">25632 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: -<span id="L25633" class="LineNr">25633 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25634" class="LineNr">25634 </span> 68/push 0/imm32/right:null -<span id="L25635" class="LineNr">25635 </span> 68/push 0/imm32/right:null -<span id="L25636" class="LineNr">25636 </span> 68/push 0/imm32/left:unused -<span id="L25637" class="LineNr">25637 </span> 68/push 1/imm32/value:int -<span id="L25638" class="LineNr">25638 </span> 68/push 1/imm32/is-atom?:true -<span id="L25639" class="LineNr">25639 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25640" class="LineNr">25640 </span> 89/<- %ecx 4/r32/esp -<span id="L25641" class="LineNr">25641 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: -<span id="L25642" class="LineNr">25642 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25643" class="LineNr">25643 </span> 68/push 0/imm32/register -<span id="L25644" class="LineNr">25644 </span> 68/push 0/imm32/register -<span id="L25645" class="LineNr">25645 </span> 68/push 0/imm32/no-stack-offset -<span id="L25646" class="LineNr">25646 </span> 68/push 1/imm32/block-depth -<span id="L25647" class="LineNr">25647 </span> 51/push-ecx -<span id="L25648" class="LineNr">25648 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25649" class="LineNr">25649 </span> 68/push 0/imm32/name -<span id="L25650" class="LineNr">25650 </span> 68/push 0/imm32/name -<span id="L25651" class="LineNr">25651 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25652" class="LineNr">25652 </span> 89/<- %ecx 4/r32/esp -<span id="L25653" class="LineNr">25653 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: -<span id="L25654" class="LineNr">25654 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25655" class="LineNr">25655 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25656" class="LineNr">25656 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25657" class="LineNr">25657 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: -<span id="L25658" class="LineNr">25658 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L25659" class="LineNr">25659 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25660" class="LineNr">25660 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L25661" class="LineNr">25661 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: -<span id="L25662" class="LineNr">25662 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L25663" class="LineNr">25663 </span> 68/push 0/imm32/right:null -<span id="L25664" class="LineNr">25664 </span> 68/push 0/imm32/right:null -<span id="L25665" class="LineNr">25665 </span> 68/push 0/imm32/left:unused -<span id="L25666" class="LineNr">25666 </span> 68/push 0/imm32/value:literal -<span id="L25667" class="LineNr">25667 </span> 68/push 1/imm32/is-atom?:true -<span id="L25668" class="LineNr">25668 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25669" class="LineNr">25669 </span> 89/<- %edx 4/r32/esp -<span id="L25670" class="LineNr">25670 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: -<span id="L25671" class="LineNr">25671 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L25672" class="LineNr">25672 </span> 68/push 0/imm32/register -<span id="L25673" class="LineNr">25673 </span> 68/push 0/imm32/register -<span id="L25674" class="LineNr">25674 </span> 68/push 0/imm32/no-stack-offset -<span id="L25675" class="LineNr">25675 </span> 68/push 1/imm32/block-depth -<span id="L25676" class="LineNr">25676 </span> 52/push-edx -<span id="L25677" class="LineNr">25677 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25678" class="LineNr">25678 </span> 68/push 0/imm32/name -<span id="L25679" class="LineNr">25679 </span> 68/push 0/imm32/name -<span id="L25680" class="LineNr">25680 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25681" class="LineNr">25681 </span> 89/<- %edx 4/r32/esp -<span id="L25682" class="LineNr">25682 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: -<span id="L25683" class="LineNr">25683 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L25684" class="LineNr">25684 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25685" class="LineNr">25685 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L25686" class="LineNr">25686 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: -<span id="L25687" class="LineNr">25687 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L25688" class="LineNr">25688 </span> 68/push 0/imm32/is-deref:false -<span id="L25689" class="LineNr">25689 </span> 68/push 0/imm32/next -<span id="L25690" class="LineNr">25690 </span> 68/push 0/imm32/next -<span id="L25691" class="LineNr">25691 </span> 52/push-edx/l -<span id="L25692" class="LineNr">25692 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25693" class="LineNr">25693 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25694" class="LineNr">25694 </span> 89/<- %esi 4/r32/esp -<span id="L25695" class="LineNr">25695 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L25696" class="LineNr">25696 </span> 68/push 0/imm32/is-deref:false -<span id="L25697" class="LineNr">25697 </span> 56/push-esi/next -<span id="L25698" class="LineNr">25698 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25699" class="LineNr">25699 </span> 51/push-ecx/var1 -<span id="L25700" class="LineNr">25700 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25701" class="LineNr">25701 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25702" class="LineNr">25702 </span> 89/<- %esi 4/r32/esp -<span id="L25703" class="LineNr">25703 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: -<span id="L25704" class="LineNr">25704 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25705" class="LineNr">25705 </span> 68/push 0/imm32/next -<span id="L25706" class="LineNr">25706 </span> 68/push 0/imm32/next -<span id="L25707" class="LineNr">25707 </span> 68/push 0/imm32/outputs -<span id="L25708" class="LineNr">25708 </span> 68/push 0/imm32/outputs -<span id="L25709" class="LineNr">25709 </span> 56/push-esi/inouts -<span id="L25710" class="LineNr">25710 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25711" class="LineNr">25711 </span> 68/push 0/imm32/operation -<span id="L25712" class="LineNr">25712 </span> 68/push 0/imm32/operation -<span id="L25713" class="LineNr">25713 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25714" class="LineNr">25714 </span> 89/<- %esi 4/r32/esp -<span id="L25715" class="LineNr">25715 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: -<span id="L25716" class="LineNr">25716 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25717" class="LineNr">25717 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25718" class="LineNr">25718 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25719" class="LineNr">25719 </span> <span class="subxComment"># convert</span> -<span id="L25720" class="LineNr">25720 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25721" class="LineNr">25721 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25722" class="LineNr">25722 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25723" class="Folded">25723 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25729" class="LineNr">25729 </span> <span class="subxComment"># check output</span> -<span id="L25730" class="LineNr">25730 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) -<span id="L25731" class="LineNr">25731 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25732" class="LineNr">25732 </span> 89/<- %esp 5/r32/ebp -<span id="L25733" class="LineNr">25733 </span> 5d/pop-to-ebp -<span id="L25734" class="LineNr">25734 </span> c3/return -<span id="L25735" class="LineNr">25735 </span> -<span id="L25736" class="LineNr">25736 </span><span class="subxTest">test-compare-reg-with-literal</span>: -<span id="L25737" class="LineNr">25737 </span> <span class="subxComment"># compare var1/ecx 0x34</span> -<span id="L25738" class="LineNr">25738 </span> <span class="subxComment"># =></span> -<span id="L25739" class="LineNr">25739 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> -<span id="L25740" class="LineNr">25740 </span> <span class="subxComment">#</span> -<span id="L25741" class="LineNr">25741 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25742" class="LineNr">25742 </span> 55/push-ebp -<span id="L25743" class="LineNr">25743 </span> 89/<- %ebp 4/r32/esp -<span id="L25744" class="LineNr">25744 </span> <span class="subxComment"># setup</span> -<span id="L25745" class="LineNr">25745 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25746" class="LineNr">25746 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25747" class="LineNr">25747 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: -<span id="L25748" class="LineNr">25748 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25749" class="LineNr">25749 </span> 68/push 0/imm32/right:null -<span id="L25750" class="LineNr">25750 </span> 68/push 0/imm32/right:null -<span id="L25751" class="LineNr">25751 </span> 68/push 0/imm32/left:unused -<span id="L25752" class="LineNr">25752 </span> 68/push 1/imm32/value:int -<span id="L25753" class="LineNr">25753 </span> 68/push 1/imm32/is-atom?:true -<span id="L25754" class="LineNr">25754 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25755" class="LineNr">25755 </span> 89/<- %ecx 4/r32/esp -<span id="L25756" class="LineNr">25756 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: -<span id="L25757" class="LineNr">25757 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L25758" class="LineNr">25758 </span> 68/push 0/imm32/register -<span id="L25759" class="LineNr">25759 </span> 68/push 0/imm32/register -<span id="L25760" class="LineNr">25760 </span> 68/push 0/imm32/no-stack-offset -<span id="L25761" class="LineNr">25761 </span> 68/push 1/imm32/block-depth -<span id="L25762" class="LineNr">25762 </span> 51/push-ecx -<span id="L25763" class="LineNr">25763 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25764" class="LineNr">25764 </span> 68/push 0/imm32/name -<span id="L25765" class="LineNr">25765 </span> 68/push 0/imm32/name -<span id="L25766" class="LineNr">25766 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25767" class="LineNr">25767 </span> 89/<- %ecx 4/r32/esp -<span id="L25768" class="LineNr">25768 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: -<span id="L25769" class="LineNr">25769 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L25770" class="LineNr">25770 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25771" class="LineNr">25771 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L25772" class="LineNr">25772 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: -<span id="L25773" class="LineNr">25773 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L25774" class="LineNr">25774 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L25775" class="LineNr">25775 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L25776" class="LineNr">25776 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: -<span id="L25777" class="LineNr">25777 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L25778" class="LineNr">25778 </span> 68/push 0/imm32/right:null -<span id="L25779" class="LineNr">25779 </span> 68/push 0/imm32/right:null -<span id="L25780" class="LineNr">25780 </span> 68/push 0/imm32/left:unused -<span id="L25781" class="LineNr">25781 </span> 68/push 0/imm32/value:literal -<span id="L25782" class="LineNr">25782 </span> 68/push 1/imm32/is-atom?:true -<span id="L25783" class="LineNr">25783 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25784" class="LineNr">25784 </span> 89/<- %edx 4/r32/esp -<span id="L25785" class="LineNr">25785 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: -<span id="L25786" class="LineNr">25786 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L25787" class="LineNr">25787 </span> 68/push 0/imm32/register -<span id="L25788" class="LineNr">25788 </span> 68/push 0/imm32/register -<span id="L25789" class="LineNr">25789 </span> 68/push 0/imm32/no-stack-offset -<span id="L25790" class="LineNr">25790 </span> 68/push 1/imm32/block-depth -<span id="L25791" class="LineNr">25791 </span> 52/push-edx -<span id="L25792" class="LineNr">25792 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25793" class="LineNr">25793 </span> 68/push 0/imm32/name -<span id="L25794" class="LineNr">25794 </span> 68/push 0/imm32/name -<span id="L25795" class="LineNr">25795 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25796" class="LineNr">25796 </span> 89/<- %edx 4/r32/esp -<span id="L25797" class="LineNr">25797 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: -<span id="L25798" class="LineNr">25798 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L25799" class="LineNr">25799 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25800" class="LineNr">25800 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L25801" class="LineNr">25801 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: -<span id="L25802" class="LineNr">25802 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L25803" class="LineNr">25803 </span> 68/push 0/imm32/is-deref:false -<span id="L25804" class="LineNr">25804 </span> 68/push 0/imm32/next -<span id="L25805" class="LineNr">25805 </span> 68/push 0/imm32/next -<span id="L25806" class="LineNr">25806 </span> 52/push-edx/l -<span id="L25807" class="LineNr">25807 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25808" class="LineNr">25808 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25809" class="LineNr">25809 </span> 89/<- %esi 4/r32/esp -<span id="L25810" class="LineNr">25810 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L25811" class="LineNr">25811 </span> 68/push 0/imm32/is-deref:false -<span id="L25812" class="LineNr">25812 </span> 56/push-esi/next -<span id="L25813" class="LineNr">25813 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25814" class="LineNr">25814 </span> 51/push-ecx/var1 -<span id="L25815" class="LineNr">25815 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25816" class="LineNr">25816 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25817" class="LineNr">25817 </span> 89/<- %esi 4/r32/esp -<span id="L25818" class="LineNr">25818 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: -<span id="L25819" class="LineNr">25819 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25820" class="LineNr">25820 </span> 68/push 0/imm32/next -<span id="L25821" class="LineNr">25821 </span> 68/push 0/imm32/next -<span id="L25822" class="LineNr">25822 </span> 68/push 0/imm32/outputs -<span id="L25823" class="LineNr">25823 </span> 68/push 0/imm32/outputs -<span id="L25824" class="LineNr">25824 </span> 56/push-esi/inouts -<span id="L25825" class="LineNr">25825 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25826" class="LineNr">25826 </span> 68/push 0/imm32/operation -<span id="L25827" class="LineNr">25827 </span> 68/push 0/imm32/operation -<span id="L25828" class="LineNr">25828 </span> 68/push 1/imm32/tag:stmt1 -<span id="L25829" class="LineNr">25829 </span> 89/<- %esi 4/r32/esp -<span id="L25830" class="LineNr">25830 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: -<span id="L25831" class="LineNr">25831 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L25832" class="LineNr">25832 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25833" class="LineNr">25833 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L25834" class="LineNr">25834 </span> <span class="subxComment"># convert</span> -<span id="L25835" class="LineNr">25835 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25836" class="LineNr">25836 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18063'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25837" class="LineNr">25837 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25838" class="Folded">25838 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25844" class="LineNr">25844 </span> <span class="subxComment"># check output</span> -<span id="L25845" class="LineNr">25845 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) -<span id="L25846" class="LineNr">25846 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25847" class="LineNr">25847 </span> 89/<- %esp 5/r32/ebp -<span id="L25848" class="LineNr">25848 </span> 5d/pop-to-ebp -<span id="L25849" class="LineNr">25849 </span> c3/return -<span id="L25850" class="LineNr">25850 </span> -<span id="L25851" class="LineNr">25851 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: -<span id="L25852" class="LineNr">25852 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> -<span id="L25853" class="LineNr">25853 </span> <span class="subxComment"># f foo</span> -<span id="L25854" class="LineNr">25854 </span> <span class="subxComment"># =></span> -<span id="L25855" class="LineNr">25855 </span> <span class="subxComment"># (f *(ebp-8))</span> -<span id="L25856" class="LineNr">25856 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> -<span id="L25857" class="LineNr">25857 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> -<span id="L25858" class="LineNr">25858 </span> <span class="subxComment">#</span> -<span id="L25859" class="LineNr">25859 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L25860" class="LineNr">25860 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L25861" class="LineNr">25861 </span> <span class="subxComment"># type: int</span> -<span id="L25862" class="LineNr">25862 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L25863" class="LineNr">25863 </span> <span class="subxComment">#</span> -<span id="L25864" class="LineNr">25864 </span> <span class="subxComment"># There's nothing in primitives.</span> -<span id="L25865" class="LineNr">25865 </span> <span class="subxComment">#</span> -<span id="L25866" class="LineNr">25866 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> -<span id="L25867" class="LineNr">25867 </span> <span class="subxComment">#</span> -<span id="L25868" class="LineNr">25868 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25869" class="LineNr">25869 </span> 55/push-ebp -<span id="L25870" class="LineNr">25870 </span> 89/<- %ebp 4/r32/esp -<span id="L25871" class="LineNr">25871 </span> <span class="subxComment"># setup</span> -<span id="L25872" class="LineNr">25872 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25873" class="LineNr">25873 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25874" class="LineNr">25874 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: -<span id="L25875" class="LineNr">25875 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25876" class="LineNr">25876 </span> 68/push 0/imm32/right:null -<span id="L25877" class="LineNr">25877 </span> 68/push 0/imm32/right:null -<span id="L25878" class="LineNr">25878 </span> 68/push 0/imm32/left:unused -<span id="L25879" class="LineNr">25879 </span> 68/push 1/imm32/value:int -<span id="L25880" class="LineNr">25880 </span> 68/push 1/imm32/is-atom?:true -<span id="L25881" class="LineNr">25881 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25882" class="LineNr">25882 </span> 89/<- %ecx 4/r32/esp -<span id="L25883" class="LineNr">25883 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: -<span id="L25884" class="LineNr">25884 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L25885" class="LineNr">25885 </span> 68/push 0/imm32/no-register -<span id="L25886" class="LineNr">25886 </span> 68/push 0/imm32/no-register -<span id="L25887" class="LineNr">25887 </span> 68/push -8/imm32/stack-offset -<span id="L25888" class="LineNr">25888 </span> 68/push 1/imm32/block-depth -<span id="L25889" class="LineNr">25889 </span> 51/push-ecx/type -<span id="L25890" class="LineNr">25890 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25891" class="LineNr">25891 </span> 68/push 0/imm32/name -<span id="L25892" class="LineNr">25892 </span> 68/push 0/imm32/name -<span id="L25893" class="LineNr">25893 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25894" class="LineNr">25894 </span> 89/<- %ecx 4/r32/esp -<span id="L25895" class="LineNr">25895 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: -<span id="L25896" class="LineNr">25896 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L25897" class="LineNr">25897 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25898" class="LineNr">25898 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L25899" class="LineNr">25899 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: -<span id="L25900" class="LineNr">25900 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L25901" class="LineNr">25901 </span> 68/push 0/imm32/is-deref:false -<span id="L25902" class="LineNr">25902 </span> 68/push 0/imm32/next -<span id="L25903" class="LineNr">25903 </span> 68/push 0/imm32/next -<span id="L25904" class="LineNr">25904 </span> 51/push-ecx/var-foo -<span id="L25905" class="LineNr">25905 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25906" class="LineNr">25906 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25907" class="LineNr">25907 </span> 89/<- %ebx 4/r32/esp -<span id="L25908" class="LineNr">25908 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: -<span id="L25909" class="LineNr">25909 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25910" class="LineNr">25910 </span> 68/push 0/imm32/no-outputs -<span id="L25911" class="LineNr">25911 </span> 68/push 0/imm32/no-outputs -<span id="L25912" class="LineNr">25912 </span> 53/push-ebx/inouts -<span id="L25913" class="LineNr">25913 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25914" class="LineNr">25914 </span> 68/push 0/imm32/operation -<span id="L25915" class="LineNr">25915 </span> 68/push 0/imm32/operation -<span id="L25916" class="LineNr">25916 </span> 68/push 1/imm32/tag -<span id="L25917" class="LineNr">25917 </span> 89/<- %esi 4/r32/esp -<span id="L25918" class="LineNr">25918 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: -<span id="L25919" class="LineNr">25919 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L25920" class="LineNr">25920 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25921" class="LineNr">25921 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L25922" class="LineNr">25922 </span> <span class="subxComment"># convert</span> -<span id="L25923" class="LineNr">25923 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L25924" class="LineNr">25924 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L25925" class="LineNr">25925 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L25926" class="Folded">25926 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25932" class="LineNr">25932 </span> <span class="subxComment"># check output</span> -<span id="L25933" class="LineNr">25933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) -<span id="L25934" class="LineNr">25934 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25935" class="LineNr">25935 </span> 89/<- %esp 5/r32/ebp -<span id="L25936" class="LineNr">25936 </span> 5d/pop-to-ebp -<span id="L25937" class="LineNr">25937 </span> c3/return -<span id="L25938" class="LineNr">25938 </span> -<span id="L25939" class="LineNr">25939 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: -<span id="L25940" class="LineNr">25940 </span> <span class="subxComment"># Call a function on a literal.</span> -<span id="L25941" class="LineNr">25941 </span> <span class="subxComment"># f 0x34</span> -<span id="L25942" class="LineNr">25942 </span> <span class="subxComment"># =></span> -<span id="L25943" class="LineNr">25943 </span> <span class="subxComment"># (f2 0x34)</span> -<span id="L25944" class="LineNr">25944 </span> <span class="subxComment">#</span> -<span id="L25945" class="LineNr">25945 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25946" class="LineNr">25946 </span> 55/push-ebp -<span id="L25947" class="LineNr">25947 </span> 89/<- %ebp 4/r32/esp -<span id="L25948" class="LineNr">25948 </span> <span class="subxComment"># setup</span> -<span id="L25949" class="LineNr">25949 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L25950" class="LineNr">25950 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L25951" class="LineNr">25951 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: -<span id="L25952" class="LineNr">25952 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L25953" class="LineNr">25953 </span> 68/push 0/imm32/right:null -<span id="L25954" class="LineNr">25954 </span> 68/push 0/imm32/right:null -<span id="L25955" class="LineNr">25955 </span> 68/push 0/imm32/left:unused -<span id="L25956" class="LineNr">25956 </span> 68/push 0/imm32/value:literal -<span id="L25957" class="LineNr">25957 </span> 68/push 1/imm32/is-atom?:true -<span id="L25958" class="LineNr">25958 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25959" class="LineNr">25959 </span> 89/<- %ecx 4/r32/esp -<span id="L25960" class="LineNr">25960 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: -<span id="L25961" class="LineNr">25961 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> -<span id="L25962" class="LineNr">25962 </span> 68/push 0/imm32/no-register -<span id="L25963" class="LineNr">25963 </span> 68/push 0/imm32/no-register -<span id="L25964" class="LineNr">25964 </span> 68/push 0/imm32/no-stack-offset -<span id="L25965" class="LineNr">25965 </span> 68/push 1/imm32/block-depth -<span id="L25966" class="LineNr">25966 </span> 51/push-ecx/type -<span id="L25967" class="LineNr">25967 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25968" class="LineNr">25968 </span> 68/push 0/imm32/name -<span id="L25969" class="LineNr">25969 </span> 68/push 0/imm32/name -<span id="L25970" class="LineNr">25970 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25971" class="LineNr">25971 </span> 89/<- %ecx 4/r32/esp -<span id="L25972" class="LineNr">25972 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: -<span id="L25973" class="LineNr">25973 </span> <span class="subxComment"># var-foo->name = "0x34"</span> -<span id="L25974" class="LineNr">25974 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L25975" class="LineNr">25975 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L25976" class="LineNr">25976 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: -<span id="L25977" class="LineNr">25977 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L25978" class="LineNr">25978 </span> 68/push 0/imm32/is-deref:false -<span id="L25979" class="LineNr">25979 </span> 68/push 0/imm32/next -<span id="L25980" class="LineNr">25980 </span> 68/push 0/imm32/next -<span id="L25981" class="LineNr">25981 </span> 51/push-ecx/var-foo -<span id="L25982" class="LineNr">25982 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25983" class="LineNr">25983 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L25984" class="LineNr">25984 </span> 89/<- %ebx 4/r32/esp -<span id="L25985" class="LineNr">25985 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: -<span id="L25986" class="LineNr">25986 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L25987" class="LineNr">25987 </span> 68/push 0/imm32/no-outputs -<span id="L25988" class="LineNr">25988 </span> 68/push 0/imm32/no-outputs -<span id="L25989" class="LineNr">25989 </span> 53/push-ebx/inouts -<span id="L25990" class="LineNr">25990 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L25991" class="LineNr">25991 </span> 68/push 0/imm32/operation -<span id="L25992" class="LineNr">25992 </span> 68/push 0/imm32/operation -<span id="L25993" class="LineNr">25993 </span> 68/push 1/imm32/tag -<span id="L25994" class="LineNr">25994 </span> 89/<- %esi 4/r32/esp -<span id="L25995" class="LineNr">25995 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: -<span id="L25996" class="LineNr">25996 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L25997" class="LineNr">25997 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L25998" class="LineNr">25998 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L25999" class="LineNr">25999 </span> <span class="subxComment"># convert</span> -<span id="L26000" class="LineNr">26000 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7849'>Curr-block-depth</a></span> 0/imm32 -<span id="L26001" class="LineNr">26001 </span> (<a href='mu.subx.html#L16672'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L26002" class="LineNr">26002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L26003" class="Folded">26003 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L26009" class="LineNr">26009 </span> <span class="subxComment"># check output</span> -<span id="L26010" class="LineNr">26010 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) -<span id="L26011" class="LineNr">26011 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26012" class="LineNr">26012 </span> 89/<- %esp 5/r32/ebp -<span id="L26013" class="LineNr">26013 </span> 5d/pop-to-ebp -<span id="L26014" class="LineNr">26014 </span> c3/return -<span id="L26015" class="LineNr">26015 </span> -<span id="L26016" class="LineNr">26016 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L26017" class="LineNr">26017 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26018" class="LineNr">26018 </span> 55/push-ebp -<span id="L26019" class="LineNr">26019 </span> 89/<- %ebp 4/r32/esp -<span id="L26020" class="LineNr">26020 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26021" class="LineNr">26021 </span> 50/push-eax -<span id="L26022" class="LineNr">26022 </span> <span class="subxComment"># var i/eax: int = n</span> -<span id="L26023" class="LineNr">26023 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26024" class="LineNr">26024 </span> { -<span id="L26025" class="LineNr">26025 </span> <span class="subxComment"># if (i <= 0) break</span> -<span id="L26026" class="LineNr">26026 </span> 3d/compare-eax-with 0/imm32 -<span id="L26027" class="LineNr">26027 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L26028" class="LineNr">26028 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L26029" class="LineNr">26029 </span> 48/decrement-eax -<span id="L26030" class="LineNr">26030 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26031" class="LineNr">26031 </span> } -<span id="L26032" class="LineNr">26032 </span><span class="Constant">$emit-indent:end</span>: -<span id="L26033" class="LineNr">26033 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26034" class="LineNr">26034 </span> 58/pop-to-eax -<span id="L26035" class="LineNr">26035 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26036" class="LineNr">26036 </span> 89/<- %esp 5/r32/ebp -<span id="L26037" class="LineNr">26037 </span> 5d/pop-to-ebp -<span id="L26038" class="LineNr">26038 </span> c3/return -<span id="L26039" class="LineNr">26039 </span> -<span id="L26040" class="LineNr">26040 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L26041" class="LineNr">26041 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26042" class="LineNr">26042 </span> 55/push-ebp -<span id="L26043" class="LineNr">26043 </span> 89/<- %ebp 4/r32/esp -<span id="L26044" class="LineNr">26044 </span> <span class="subxComment">#</span> -<span id="L26045" class="LineNr">26045 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) -<span id="L26046" class="LineNr">26046 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) -<span id="L26047" class="LineNr">26047 </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="L26048" class="LineNr">26048 </span><span class="Constant">$emit-subx-prologue:end</span>: -<span id="L26049" class="LineNr">26049 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26050" class="LineNr">26050 </span> 89/<- %esp 5/r32/ebp -<span id="L26051" class="LineNr">26051 </span> 5d/pop-to-ebp -<span id="L26052" class="LineNr">26052 </span> c3/return -<span id="L26053" class="LineNr">26053 </span> -<span id="L26054" class="LineNr">26054 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L26055" class="LineNr">26055 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26056" class="LineNr">26056 </span> 55/push-ebp -<span id="L26057" class="LineNr">26057 </span> 89/<- %ebp 4/r32/esp +<span id="L25455" class="LineNr">25455 </span> 89/<- %esi 4/r32/esp +<span id="L25456" class="LineNr">25456 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: +<span id="L25457" class="LineNr">25457 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25458" class="LineNr">25458 </span> 68/push 0/imm32/next +<span id="L25459" class="LineNr">25459 </span> 68/push 0/imm32/next +<span id="L25460" class="LineNr">25460 </span> 68/push 0/imm32/outputs +<span id="L25461" class="LineNr">25461 </span> 68/push 0/imm32/outputs +<span id="L25462" class="LineNr">25462 </span> 56/push-esi/inouts +<span id="L25463" class="LineNr">25463 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25464" class="LineNr">25464 </span> 68/push 0/imm32/operation +<span id="L25465" class="LineNr">25465 </span> 68/push 0/imm32/operation +<span id="L25466" class="LineNr">25466 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25467" class="LineNr">25467 </span> 89/<- %esi 4/r32/esp +<span id="L25468" class="LineNr">25468 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: +<span id="L25469" class="LineNr">25469 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L25470" class="LineNr">25470 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25471" class="LineNr">25471 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L25472" class="LineNr">25472 </span> <span class="subxComment"># convert</span> +<span id="L25473" class="LineNr">25473 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25474" class="LineNr">25474 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25475" class="LineNr">25475 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25476" class="Folded">25476 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25482" class="LineNr">25482 </span> <span class="subxComment"># check output</span> +<span id="L25483" class="LineNr">25483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) +<span id="L25484" class="LineNr">25484 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25485" class="LineNr">25485 </span> 89/<- %esp 5/r32/ebp +<span id="L25486" class="LineNr">25486 </span> 5d/pop-to-ebp +<span id="L25487" class="LineNr">25487 </span> c3/return +<span id="L25488" class="LineNr">25488 </span> +<span id="L25489" class="LineNr">25489 </span><span class="subxTest">test-compare-mem-with-reg</span>: +<span id="L25490" class="LineNr">25490 </span> <span class="subxComment"># compare var1, var2/eax</span> +<span id="L25491" class="LineNr">25491 </span> <span class="subxComment"># =></span> +<span id="L25492" class="LineNr">25492 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> +<span id="L25493" class="LineNr">25493 </span> <span class="subxComment">#</span> +<span id="L25494" class="LineNr">25494 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25495" class="LineNr">25495 </span> 55/push-ebp +<span id="L25496" class="LineNr">25496 </span> 89/<- %ebp 4/r32/esp +<span id="L25497" class="LineNr">25497 </span> <span class="subxComment"># setup</span> +<span id="L25498" class="LineNr">25498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25499" class="LineNr">25499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25500" class="LineNr">25500 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: +<span id="L25501" class="LineNr">25501 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25502" class="LineNr">25502 </span> 68/push 0/imm32/right:null +<span id="L25503" class="LineNr">25503 </span> 68/push 0/imm32/right:null +<span id="L25504" class="LineNr">25504 </span> 68/push 0/imm32/left:unused +<span id="L25505" class="LineNr">25505 </span> 68/push 1/imm32/value:int +<span id="L25506" class="LineNr">25506 </span> 68/push 1/imm32/is-atom?:true +<span id="L25507" class="LineNr">25507 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25508" class="LineNr">25508 </span> 89/<- %ecx 4/r32/esp +<span id="L25509" class="LineNr">25509 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: +<span id="L25510" class="LineNr">25510 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25511" class="LineNr">25511 </span> 68/push 0/imm32/register +<span id="L25512" class="LineNr">25512 </span> 68/push 0/imm32/register +<span id="L25513" class="LineNr">25513 </span> 68/push 8/imm32/stack-offset +<span id="L25514" class="LineNr">25514 </span> 68/push 1/imm32/block-depth +<span id="L25515" class="LineNr">25515 </span> 51/push-ecx +<span id="L25516" class="LineNr">25516 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25517" class="LineNr">25517 </span> 68/push 0/imm32/name +<span id="L25518" class="LineNr">25518 </span> 68/push 0/imm32/name +<span id="L25519" class="LineNr">25519 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25520" class="LineNr">25520 </span> 89/<- %ecx 4/r32/esp +<span id="L25521" class="LineNr">25521 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: +<span id="L25522" class="LineNr">25522 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25523" class="LineNr">25523 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25524" class="LineNr">25524 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25525" class="LineNr">25525 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: +<span id="L25526" class="LineNr">25526 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L25527" class="LineNr">25527 </span> 68/push 0/imm32/register +<span id="L25528" class="LineNr">25528 </span> 68/push 0/imm32/register +<span id="L25529" class="LineNr">25529 </span> 68/push 0/imm32/no-stack-offset +<span id="L25530" class="LineNr">25530 </span> 68/push 1/imm32/block-depth +<span id="L25531" class="LineNr">25531 </span> ff 6/subop/push *(ecx+0x10) +<span id="L25532" class="LineNr">25532 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25533" class="LineNr">25533 </span> 68/push 0/imm32/name +<span id="L25534" class="LineNr">25534 </span> 68/push 0/imm32/name +<span id="L25535" class="LineNr">25535 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25536" class="LineNr">25536 </span> 89/<- %edx 4/r32/esp +<span id="L25537" class="LineNr">25537 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: +<span id="L25538" class="LineNr">25538 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L25539" class="LineNr">25539 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25540" class="LineNr">25540 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L25541" class="LineNr">25541 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: +<span id="L25542" class="LineNr">25542 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L25543" class="LineNr">25543 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25544" class="LineNr">25544 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L25545" class="LineNr">25545 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: +<span id="L25546" class="LineNr">25546 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L25547" class="LineNr">25547 </span> 68/push 0/imm32/is-deref:false +<span id="L25548" class="LineNr">25548 </span> 68/push 0/imm32/next +<span id="L25549" class="LineNr">25549 </span> 68/push 0/imm32/next +<span id="L25550" class="LineNr">25550 </span> 52/push-edx/var2 +<span id="L25551" class="LineNr">25551 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25552" class="LineNr">25552 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25553" class="LineNr">25553 </span> 89/<- %esi 4/r32/esp +<span id="L25554" class="LineNr">25554 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L25555" class="LineNr">25555 </span> 68/push 0/imm32/is-deref:false +<span id="L25556" class="LineNr">25556 </span> 56/push-esi/next +<span id="L25557" class="LineNr">25557 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25558" class="LineNr">25558 </span> 51/push-ecx/var1 +<span id="L25559" class="LineNr">25559 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25560" class="LineNr">25560 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25561" class="LineNr">25561 </span> 89/<- %esi 4/r32/esp +<span id="L25562" class="LineNr">25562 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: +<span id="L25563" class="LineNr">25563 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25564" class="LineNr">25564 </span> 68/push 0/imm32/next +<span id="L25565" class="LineNr">25565 </span> 68/push 0/imm32/next +<span id="L25566" class="LineNr">25566 </span> 68/push 0/imm32/outputs +<span id="L25567" class="LineNr">25567 </span> 68/push 0/imm32/outputs +<span id="L25568" class="LineNr">25568 </span> 56/push-esi/inouts +<span id="L25569" class="LineNr">25569 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25570" class="LineNr">25570 </span> 68/push 0/imm32/operation +<span id="L25571" class="LineNr">25571 </span> 68/push 0/imm32/operation +<span id="L25572" class="LineNr">25572 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25573" class="LineNr">25573 </span> 89/<- %esi 4/r32/esp +<span id="L25574" class="LineNr">25574 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: +<span id="L25575" class="LineNr">25575 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L25576" class="LineNr">25576 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25577" class="LineNr">25577 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L25578" class="LineNr">25578 </span> <span class="subxComment"># convert</span> +<span id="L25579" class="LineNr">25579 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25580" class="LineNr">25580 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25581" class="LineNr">25581 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25582" class="Folded">25582 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25588" class="LineNr">25588 </span> <span class="subxComment"># check output</span> +<span id="L25589" class="LineNr">25589 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) +<span id="L25590" class="LineNr">25590 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25591" class="LineNr">25591 </span> 89/<- %esp 5/r32/ebp +<span id="L25592" class="LineNr">25592 </span> 5d/pop-to-ebp +<span id="L25593" class="LineNr">25593 </span> c3/return +<span id="L25594" class="LineNr">25594 </span> +<span id="L25595" class="LineNr">25595 </span><span class="subxTest">test-compare-reg-with-mem</span>: +<span id="L25596" class="LineNr">25596 </span> <span class="subxComment"># compare var1/eax, var2</span> +<span id="L25597" class="LineNr">25597 </span> <span class="subxComment"># =></span> +<span id="L25598" class="LineNr">25598 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> +<span id="L25599" class="LineNr">25599 </span> <span class="subxComment">#</span> +<span id="L25600" class="LineNr">25600 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25601" class="LineNr">25601 </span> 55/push-ebp +<span id="L25602" class="LineNr">25602 </span> 89/<- %ebp 4/r32/esp +<span id="L25603" class="LineNr">25603 </span> <span class="subxComment"># setup</span> +<span id="L25604" class="LineNr">25604 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25605" class="LineNr">25605 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25606" class="LineNr">25606 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: +<span id="L25607" class="LineNr">25607 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25608" class="LineNr">25608 </span> 68/push 0/imm32/right:null +<span id="L25609" class="LineNr">25609 </span> 68/push 0/imm32/right:null +<span id="L25610" class="LineNr">25610 </span> 68/push 0/imm32/left:unused +<span id="L25611" class="LineNr">25611 </span> 68/push 1/imm32/value:int +<span id="L25612" class="LineNr">25612 </span> 68/push 1/imm32/is-atom?:true +<span id="L25613" class="LineNr">25613 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25614" class="LineNr">25614 </span> 89/<- %ecx 4/r32/esp +<span id="L25615" class="LineNr">25615 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: +<span id="L25616" class="LineNr">25616 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25617" class="LineNr">25617 </span> 68/push 0/imm32/register +<span id="L25618" class="LineNr">25618 </span> 68/push 0/imm32/register +<span id="L25619" class="LineNr">25619 </span> 68/push 0/imm32/no-stack-offset +<span id="L25620" class="LineNr">25620 </span> 68/push 1/imm32/block-depth +<span id="L25621" class="LineNr">25621 </span> 51/push-ecx +<span id="L25622" class="LineNr">25622 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25623" class="LineNr">25623 </span> 68/push 0/imm32/name +<span id="L25624" class="LineNr">25624 </span> 68/push 0/imm32/name +<span id="L25625" class="LineNr">25625 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25626" class="LineNr">25626 </span> 89/<- %ecx 4/r32/esp +<span id="L25627" class="LineNr">25627 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: +<span id="L25628" class="LineNr">25628 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25629" class="LineNr">25629 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25630" class="LineNr">25630 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25631" class="LineNr">25631 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: +<span id="L25632" class="LineNr">25632 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L25633" class="LineNr">25633 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25634" class="LineNr">25634 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L25635" class="LineNr">25635 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: +<span id="L25636" class="LineNr">25636 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L25637" class="LineNr">25637 </span> 68/push 0/imm32/register +<span id="L25638" class="LineNr">25638 </span> 68/push 0/imm32/register +<span id="L25639" class="LineNr">25639 </span> 68/push 8/imm32/stack-offset +<span id="L25640" class="LineNr">25640 </span> 68/push 1/imm32/block-depth +<span id="L25641" class="LineNr">25641 </span> ff 6/subop/push *(ecx+0x10) +<span id="L25642" class="LineNr">25642 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25643" class="LineNr">25643 </span> 68/push 0/imm32/name +<span id="L25644" class="LineNr">25644 </span> 68/push 0/imm32/name +<span id="L25645" class="LineNr">25645 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25646" class="LineNr">25646 </span> 89/<- %edx 4/r32/esp +<span id="L25647" class="LineNr">25647 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: +<span id="L25648" class="LineNr">25648 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L25649" class="LineNr">25649 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25650" class="LineNr">25650 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L25651" class="LineNr">25651 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: +<span id="L25652" class="LineNr">25652 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L25653" class="LineNr">25653 </span> 68/push 0/imm32/is-deref:false +<span id="L25654" class="LineNr">25654 </span> 68/push 0/imm32/next +<span id="L25655" class="LineNr">25655 </span> 68/push 0/imm32/next +<span id="L25656" class="LineNr">25656 </span> 52/push-edx/var2 +<span id="L25657" class="LineNr">25657 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25658" class="LineNr">25658 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25659" class="LineNr">25659 </span> 89/<- %esi 4/r32/esp +<span id="L25660" class="LineNr">25660 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L25661" class="LineNr">25661 </span> 68/push 0/imm32/is-deref:false +<span id="L25662" class="LineNr">25662 </span> 56/push-esi/next +<span id="L25663" class="LineNr">25663 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25664" class="LineNr">25664 </span> 51/push-ecx/var1 +<span id="L25665" class="LineNr">25665 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25666" class="LineNr">25666 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25667" class="LineNr">25667 </span> 89/<- %esi 4/r32/esp +<span id="L25668" class="LineNr">25668 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: +<span id="L25669" class="LineNr">25669 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25670" class="LineNr">25670 </span> 68/push 0/imm32/next +<span id="L25671" class="LineNr">25671 </span> 68/push 0/imm32/next +<span id="L25672" class="LineNr">25672 </span> 68/push 0/imm32/outputs +<span id="L25673" class="LineNr">25673 </span> 68/push 0/imm32/outputs +<span id="L25674" class="LineNr">25674 </span> 56/push-esi/inouts +<span id="L25675" class="LineNr">25675 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25676" class="LineNr">25676 </span> 68/push 0/imm32/operation +<span id="L25677" class="LineNr">25677 </span> 68/push 0/imm32/operation +<span id="L25678" class="LineNr">25678 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25679" class="LineNr">25679 </span> 89/<- %esi 4/r32/esp +<span id="L25680" class="LineNr">25680 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: +<span id="L25681" class="LineNr">25681 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L25682" class="LineNr">25682 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25683" class="LineNr">25683 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L25684" class="LineNr">25684 </span> <span class="subxComment"># convert</span> +<span id="L25685" class="LineNr">25685 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25686" class="LineNr">25686 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25687" class="LineNr">25687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25688" class="Folded">25688 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25694" class="LineNr">25694 </span> <span class="subxComment"># check output</span> +<span id="L25695" class="LineNr">25695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) +<span id="L25696" class="LineNr">25696 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25697" class="LineNr">25697 </span> 89/<- %esp 5/r32/ebp +<span id="L25698" class="LineNr">25698 </span> 5d/pop-to-ebp +<span id="L25699" class="LineNr">25699 </span> c3/return +<span id="L25700" class="LineNr">25700 </span> +<span id="L25701" class="LineNr">25701 </span><span class="subxTest">test-compare-mem-with-literal</span>: +<span id="L25702" class="LineNr">25702 </span> <span class="subxComment"># compare var1, 0x34</span> +<span id="L25703" class="LineNr">25703 </span> <span class="subxComment"># =></span> +<span id="L25704" class="LineNr">25704 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> +<span id="L25705" class="LineNr">25705 </span> <span class="subxComment">#</span> +<span id="L25706" class="LineNr">25706 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25707" class="LineNr">25707 </span> 55/push-ebp +<span id="L25708" class="LineNr">25708 </span> 89/<- %ebp 4/r32/esp +<span id="L25709" class="LineNr">25709 </span> <span class="subxComment"># setup</span> +<span id="L25710" class="LineNr">25710 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25711" class="LineNr">25711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25712" class="LineNr">25712 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: +<span id="L25713" class="LineNr">25713 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25714" class="LineNr">25714 </span> 68/push 0/imm32/right:null +<span id="L25715" class="LineNr">25715 </span> 68/push 0/imm32/right:null +<span id="L25716" class="LineNr">25716 </span> 68/push 0/imm32/left:unused +<span id="L25717" class="LineNr">25717 </span> 68/push 1/imm32/value:int +<span id="L25718" class="LineNr">25718 </span> 68/push 1/imm32/is-atom?:true +<span id="L25719" class="LineNr">25719 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25720" class="LineNr">25720 </span> 89/<- %ecx 4/r32/esp +<span id="L25721" class="LineNr">25721 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: +<span id="L25722" class="LineNr">25722 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25723" class="LineNr">25723 </span> 68/push 0/imm32/register +<span id="L25724" class="LineNr">25724 </span> 68/push 0/imm32/register +<span id="L25725" class="LineNr">25725 </span> 68/push 8/imm32/stack-offset +<span id="L25726" class="LineNr">25726 </span> 68/push 1/imm32/block-depth +<span id="L25727" class="LineNr">25727 </span> 51/push-ecx +<span id="L25728" class="LineNr">25728 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25729" class="LineNr">25729 </span> 68/push 0/imm32/name +<span id="L25730" class="LineNr">25730 </span> 68/push 0/imm32/name +<span id="L25731" class="LineNr">25731 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25732" class="LineNr">25732 </span> 89/<- %ecx 4/r32/esp +<span id="L25733" class="LineNr">25733 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: +<span id="L25734" class="LineNr">25734 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25735" class="LineNr">25735 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25736" class="LineNr">25736 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25737" class="LineNr">25737 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: +<span id="L25738" class="LineNr">25738 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25739" class="LineNr">25739 </span> 68/push 0/imm32/right:null +<span id="L25740" class="LineNr">25740 </span> 68/push 0/imm32/right:null +<span id="L25741" class="LineNr">25741 </span> 68/push 0/imm32/left:unused +<span id="L25742" class="LineNr">25742 </span> 68/push 0/imm32/value:literal +<span id="L25743" class="LineNr">25743 </span> 68/push 1/imm32/is-atom?:true +<span id="L25744" class="LineNr">25744 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25745" class="LineNr">25745 </span> 89/<- %edx 4/r32/esp +<span id="L25746" class="LineNr">25746 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: +<span id="L25747" class="LineNr">25747 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25748" class="LineNr">25748 </span> 68/push 0/imm32/register +<span id="L25749" class="LineNr">25749 </span> 68/push 0/imm32/register +<span id="L25750" class="LineNr">25750 </span> 68/push 0/imm32/no-stack-offset +<span id="L25751" class="LineNr">25751 </span> 68/push 1/imm32/block-depth +<span id="L25752" class="LineNr">25752 </span> 52/push-edx +<span id="L25753" class="LineNr">25753 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25754" class="LineNr">25754 </span> 68/push 0/imm32/name +<span id="L25755" class="LineNr">25755 </span> 68/push 0/imm32/name +<span id="L25756" class="LineNr">25756 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25757" class="LineNr">25757 </span> 89/<- %edx 4/r32/esp +<span id="L25758" class="LineNr">25758 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: +<span id="L25759" class="LineNr">25759 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L25760" class="LineNr">25760 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25761" class="LineNr">25761 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L25762" class="LineNr">25762 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: +<span id="L25763" class="LineNr">25763 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25764" class="LineNr">25764 </span> 68/push 0/imm32/is-deref:false +<span id="L25765" class="LineNr">25765 </span> 68/push 0/imm32/next +<span id="L25766" class="LineNr">25766 </span> 68/push 0/imm32/next +<span id="L25767" class="LineNr">25767 </span> 52/push-edx/l +<span id="L25768" class="LineNr">25768 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25769" class="LineNr">25769 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25770" class="LineNr">25770 </span> 89/<- %esi 4/r32/esp +<span id="L25771" class="LineNr">25771 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L25772" class="LineNr">25772 </span> 68/push 0/imm32/is-deref:false +<span id="L25773" class="LineNr">25773 </span> 56/push-esi/next +<span id="L25774" class="LineNr">25774 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25775" class="LineNr">25775 </span> 51/push-ecx/var1 +<span id="L25776" class="LineNr">25776 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25777" class="LineNr">25777 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25778" class="LineNr">25778 </span> 89/<- %esi 4/r32/esp +<span id="L25779" class="LineNr">25779 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: +<span id="L25780" class="LineNr">25780 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25781" class="LineNr">25781 </span> 68/push 0/imm32/next +<span id="L25782" class="LineNr">25782 </span> 68/push 0/imm32/next +<span id="L25783" class="LineNr">25783 </span> 68/push 0/imm32/outputs +<span id="L25784" class="LineNr">25784 </span> 68/push 0/imm32/outputs +<span id="L25785" class="LineNr">25785 </span> 56/push-esi/inouts +<span id="L25786" class="LineNr">25786 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25787" class="LineNr">25787 </span> 68/push 0/imm32/operation +<span id="L25788" class="LineNr">25788 </span> 68/push 0/imm32/operation +<span id="L25789" class="LineNr">25789 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25790" class="LineNr">25790 </span> 89/<- %esi 4/r32/esp +<span id="L25791" class="LineNr">25791 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: +<span id="L25792" class="LineNr">25792 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L25793" class="LineNr">25793 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25794" class="LineNr">25794 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L25795" class="LineNr">25795 </span> <span class="subxComment"># convert</span> +<span id="L25796" class="LineNr">25796 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25797" class="LineNr">25797 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25798" class="LineNr">25798 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25799" class="Folded">25799 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25805" class="LineNr">25805 </span> <span class="subxComment"># check output</span> +<span id="L25806" class="LineNr">25806 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) +<span id="L25807" class="LineNr">25807 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25808" class="LineNr">25808 </span> 89/<- %esp 5/r32/ebp +<span id="L25809" class="LineNr">25809 </span> 5d/pop-to-ebp +<span id="L25810" class="LineNr">25810 </span> c3/return +<span id="L25811" class="LineNr">25811 </span> +<span id="L25812" class="LineNr">25812 </span><span class="subxTest">test-compare-eax-with-literal</span>: +<span id="L25813" class="LineNr">25813 </span> <span class="subxComment"># compare var1/eax 0x34</span> +<span id="L25814" class="LineNr">25814 </span> <span class="subxComment"># =></span> +<span id="L25815" class="LineNr">25815 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> +<span id="L25816" class="LineNr">25816 </span> <span class="subxComment">#</span> +<span id="L25817" class="LineNr">25817 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25818" class="LineNr">25818 </span> 55/push-ebp +<span id="L25819" class="LineNr">25819 </span> 89/<- %ebp 4/r32/esp +<span id="L25820" class="LineNr">25820 </span> <span class="subxComment"># setup</span> +<span id="L25821" class="LineNr">25821 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25822" class="LineNr">25822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25823" class="LineNr">25823 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: +<span id="L25824" class="LineNr">25824 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25825" class="LineNr">25825 </span> 68/push 0/imm32/right:null +<span id="L25826" class="LineNr">25826 </span> 68/push 0/imm32/right:null +<span id="L25827" class="LineNr">25827 </span> 68/push 0/imm32/left:unused +<span id="L25828" class="LineNr">25828 </span> 68/push 1/imm32/value:int +<span id="L25829" class="LineNr">25829 </span> 68/push 1/imm32/is-atom?:true +<span id="L25830" class="LineNr">25830 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25831" class="LineNr">25831 </span> 89/<- %ecx 4/r32/esp +<span id="L25832" class="LineNr">25832 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: +<span id="L25833" class="LineNr">25833 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25834" class="LineNr">25834 </span> 68/push 0/imm32/register +<span id="L25835" class="LineNr">25835 </span> 68/push 0/imm32/register +<span id="L25836" class="LineNr">25836 </span> 68/push 0/imm32/no-stack-offset +<span id="L25837" class="LineNr">25837 </span> 68/push 1/imm32/block-depth +<span id="L25838" class="LineNr">25838 </span> 51/push-ecx +<span id="L25839" class="LineNr">25839 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25840" class="LineNr">25840 </span> 68/push 0/imm32/name +<span id="L25841" class="LineNr">25841 </span> 68/push 0/imm32/name +<span id="L25842" class="LineNr">25842 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25843" class="LineNr">25843 </span> 89/<- %ecx 4/r32/esp +<span id="L25844" class="LineNr">25844 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: +<span id="L25845" class="LineNr">25845 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25846" class="LineNr">25846 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25847" class="LineNr">25847 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25848" class="LineNr">25848 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: +<span id="L25849" class="LineNr">25849 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L25850" class="LineNr">25850 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25851" class="LineNr">25851 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L25852" class="LineNr">25852 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: +<span id="L25853" class="LineNr">25853 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25854" class="LineNr">25854 </span> 68/push 0/imm32/right:null +<span id="L25855" class="LineNr">25855 </span> 68/push 0/imm32/right:null +<span id="L25856" class="LineNr">25856 </span> 68/push 0/imm32/left:unused +<span id="L25857" class="LineNr">25857 </span> 68/push 0/imm32/value:literal +<span id="L25858" class="LineNr">25858 </span> 68/push 1/imm32/is-atom?:true +<span id="L25859" class="LineNr">25859 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25860" class="LineNr">25860 </span> 89/<- %edx 4/r32/esp +<span id="L25861" class="LineNr">25861 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: +<span id="L25862" class="LineNr">25862 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25863" class="LineNr">25863 </span> 68/push 0/imm32/register +<span id="L25864" class="LineNr">25864 </span> 68/push 0/imm32/register +<span id="L25865" class="LineNr">25865 </span> 68/push 0/imm32/no-stack-offset +<span id="L25866" class="LineNr">25866 </span> 68/push 1/imm32/block-depth +<span id="L25867" class="LineNr">25867 </span> 52/push-edx +<span id="L25868" class="LineNr">25868 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25869" class="LineNr">25869 </span> 68/push 0/imm32/name +<span id="L25870" class="LineNr">25870 </span> 68/push 0/imm32/name +<span id="L25871" class="LineNr">25871 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25872" class="LineNr">25872 </span> 89/<- %edx 4/r32/esp +<span id="L25873" class="LineNr">25873 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: +<span id="L25874" class="LineNr">25874 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L25875" class="LineNr">25875 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25876" class="LineNr">25876 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L25877" class="LineNr">25877 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: +<span id="L25878" class="LineNr">25878 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25879" class="LineNr">25879 </span> 68/push 0/imm32/is-deref:false +<span id="L25880" class="LineNr">25880 </span> 68/push 0/imm32/next +<span id="L25881" class="LineNr">25881 </span> 68/push 0/imm32/next +<span id="L25882" class="LineNr">25882 </span> 52/push-edx/l +<span id="L25883" class="LineNr">25883 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25884" class="LineNr">25884 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25885" class="LineNr">25885 </span> 89/<- %esi 4/r32/esp +<span id="L25886" class="LineNr">25886 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L25887" class="LineNr">25887 </span> 68/push 0/imm32/is-deref:false +<span id="L25888" class="LineNr">25888 </span> 56/push-esi/next +<span id="L25889" class="LineNr">25889 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25890" class="LineNr">25890 </span> 51/push-ecx/var1 +<span id="L25891" class="LineNr">25891 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25892" class="LineNr">25892 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25893" class="LineNr">25893 </span> 89/<- %esi 4/r32/esp +<span id="L25894" class="LineNr">25894 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: +<span id="L25895" class="LineNr">25895 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L25896" class="LineNr">25896 </span> 68/push 0/imm32/next +<span id="L25897" class="LineNr">25897 </span> 68/push 0/imm32/next +<span id="L25898" class="LineNr">25898 </span> 68/push 0/imm32/outputs +<span id="L25899" class="LineNr">25899 </span> 68/push 0/imm32/outputs +<span id="L25900" class="LineNr">25900 </span> 56/push-esi/inouts +<span id="L25901" class="LineNr">25901 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25902" class="LineNr">25902 </span> 68/push 0/imm32/operation +<span id="L25903" class="LineNr">25903 </span> 68/push 0/imm32/operation +<span id="L25904" class="LineNr">25904 </span> 68/push 1/imm32/tag:stmt1 +<span id="L25905" class="LineNr">25905 </span> 89/<- %esi 4/r32/esp +<span id="L25906" class="LineNr">25906 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: +<span id="L25907" class="LineNr">25907 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L25908" class="LineNr">25908 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L25909" class="LineNr">25909 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L25910" class="LineNr">25910 </span> <span class="subxComment"># convert</span> +<span id="L25911" class="LineNr">25911 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L25912" class="LineNr">25912 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L25913" class="LineNr">25913 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L25914" class="Folded">25914 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25920" class="LineNr">25920 </span> <span class="subxComment"># check output</span> +<span id="L25921" class="LineNr">25921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) +<span id="L25922" class="LineNr">25922 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25923" class="LineNr">25923 </span> 89/<- %esp 5/r32/ebp +<span id="L25924" class="LineNr">25924 </span> 5d/pop-to-ebp +<span id="L25925" class="LineNr">25925 </span> c3/return +<span id="L25926" class="LineNr">25926 </span> +<span id="L25927" class="LineNr">25927 </span><span class="subxTest">test-compare-reg-with-literal</span>: +<span id="L25928" class="LineNr">25928 </span> <span class="subxComment"># compare var1/ecx 0x34</span> +<span id="L25929" class="LineNr">25929 </span> <span class="subxComment"># =></span> +<span id="L25930" class="LineNr">25930 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> +<span id="L25931" class="LineNr">25931 </span> <span class="subxComment">#</span> +<span id="L25932" class="LineNr">25932 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25933" class="LineNr">25933 </span> 55/push-ebp +<span id="L25934" class="LineNr">25934 </span> 89/<- %ebp 4/r32/esp +<span id="L25935" class="LineNr">25935 </span> <span class="subxComment"># setup</span> +<span id="L25936" class="LineNr">25936 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L25937" class="LineNr">25937 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L25938" class="LineNr">25938 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: +<span id="L25939" class="LineNr">25939 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L25940" class="LineNr">25940 </span> 68/push 0/imm32/right:null +<span id="L25941" class="LineNr">25941 </span> 68/push 0/imm32/right:null +<span id="L25942" class="LineNr">25942 </span> 68/push 0/imm32/left:unused +<span id="L25943" class="LineNr">25943 </span> 68/push 1/imm32/value:int +<span id="L25944" class="LineNr">25944 </span> 68/push 1/imm32/is-atom?:true +<span id="L25945" class="LineNr">25945 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25946" class="LineNr">25946 </span> 89/<- %ecx 4/r32/esp +<span id="L25947" class="LineNr">25947 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: +<span id="L25948" class="LineNr">25948 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L25949" class="LineNr">25949 </span> 68/push 0/imm32/register +<span id="L25950" class="LineNr">25950 </span> 68/push 0/imm32/register +<span id="L25951" class="LineNr">25951 </span> 68/push 0/imm32/no-stack-offset +<span id="L25952" class="LineNr">25952 </span> 68/push 1/imm32/block-depth +<span id="L25953" class="LineNr">25953 </span> 51/push-ecx +<span id="L25954" class="LineNr">25954 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25955" class="LineNr">25955 </span> 68/push 0/imm32/name +<span id="L25956" class="LineNr">25956 </span> 68/push 0/imm32/name +<span id="L25957" class="LineNr">25957 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25958" class="LineNr">25958 </span> 89/<- %ecx 4/r32/esp +<span id="L25959" class="LineNr">25959 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: +<span id="L25960" class="LineNr">25960 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L25961" class="LineNr">25961 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25962" class="LineNr">25962 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L25963" class="LineNr">25963 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: +<span id="L25964" class="LineNr">25964 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L25965" class="LineNr">25965 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L25966" class="LineNr">25966 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L25967" class="LineNr">25967 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: +<span id="L25968" class="LineNr">25968 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L25969" class="LineNr">25969 </span> 68/push 0/imm32/right:null +<span id="L25970" class="LineNr">25970 </span> 68/push 0/imm32/right:null +<span id="L25971" class="LineNr">25971 </span> 68/push 0/imm32/left:unused +<span id="L25972" class="LineNr">25972 </span> 68/push 0/imm32/value:literal +<span id="L25973" class="LineNr">25973 </span> 68/push 1/imm32/is-atom?:true +<span id="L25974" class="LineNr">25974 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25975" class="LineNr">25975 </span> 89/<- %edx 4/r32/esp +<span id="L25976" class="LineNr">25976 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: +<span id="L25977" class="LineNr">25977 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L25978" class="LineNr">25978 </span> 68/push 0/imm32/register +<span id="L25979" class="LineNr">25979 </span> 68/push 0/imm32/register +<span id="L25980" class="LineNr">25980 </span> 68/push 0/imm32/no-stack-offset +<span id="L25981" class="LineNr">25981 </span> 68/push 1/imm32/block-depth +<span id="L25982" class="LineNr">25982 </span> 52/push-edx +<span id="L25983" class="LineNr">25983 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25984" class="LineNr">25984 </span> 68/push 0/imm32/name +<span id="L25985" class="LineNr">25985 </span> 68/push 0/imm32/name +<span id="L25986" class="LineNr">25986 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L25987" class="LineNr">25987 </span> 89/<- %edx 4/r32/esp +<span id="L25988" class="LineNr">25988 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: +<span id="L25989" class="LineNr">25989 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L25990" class="LineNr">25990 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L25991" class="LineNr">25991 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L25992" class="LineNr">25992 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: +<span id="L25993" class="LineNr">25993 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L25994" class="LineNr">25994 </span> 68/push 0/imm32/is-deref:false +<span id="L25995" class="LineNr">25995 </span> 68/push 0/imm32/next +<span id="L25996" class="LineNr">25996 </span> 68/push 0/imm32/next +<span id="L25997" class="LineNr">25997 </span> 52/push-edx/l +<span id="L25998" class="LineNr">25998 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L25999" class="LineNr">25999 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26000" class="LineNr">26000 </span> 89/<- %esi 4/r32/esp +<span id="L26001" class="LineNr">26001 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L26002" class="LineNr">26002 </span> 68/push 0/imm32/is-deref:false +<span id="L26003" class="LineNr">26003 </span> 56/push-esi/next +<span id="L26004" class="LineNr">26004 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26005" class="LineNr">26005 </span> 51/push-ecx/var1 +<span id="L26006" class="LineNr">26006 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26007" class="LineNr">26007 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26008" class="LineNr">26008 </span> 89/<- %esi 4/r32/esp +<span id="L26009" class="LineNr">26009 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: +<span id="L26010" class="LineNr">26010 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L26011" class="LineNr">26011 </span> 68/push 0/imm32/next +<span id="L26012" class="LineNr">26012 </span> 68/push 0/imm32/next +<span id="L26013" class="LineNr">26013 </span> 68/push 0/imm32/outputs +<span id="L26014" class="LineNr">26014 </span> 68/push 0/imm32/outputs +<span id="L26015" class="LineNr">26015 </span> 56/push-esi/inouts +<span id="L26016" class="LineNr">26016 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26017" class="LineNr">26017 </span> 68/push 0/imm32/operation +<span id="L26018" class="LineNr">26018 </span> 68/push 0/imm32/operation +<span id="L26019" class="LineNr">26019 </span> 68/push 1/imm32/tag:stmt1 +<span id="L26020" class="LineNr">26020 </span> 89/<- %esi 4/r32/esp +<span id="L26021" class="LineNr">26021 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: +<span id="L26022" class="LineNr">26022 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L26023" class="LineNr">26023 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L26024" class="LineNr">26024 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L26025" class="LineNr">26025 </span> <span class="subxComment"># convert</span> +<span id="L26026" class="LineNr">26026 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L26027" class="LineNr">26027 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L18203'>Primitives</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L26028" class="LineNr">26028 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L26029" class="Folded">26029 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L26035" class="LineNr">26035 </span> <span class="subxComment"># check output</span> +<span id="L26036" class="LineNr">26036 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) +<span id="L26037" class="LineNr">26037 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26038" class="LineNr">26038 </span> 89/<- %esp 5/r32/ebp +<span id="L26039" class="LineNr">26039 </span> 5d/pop-to-ebp +<span id="L26040" class="LineNr">26040 </span> c3/return +<span id="L26041" class="LineNr">26041 </span> +<span id="L26042" class="LineNr">26042 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: +<span id="L26043" class="LineNr">26043 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> +<span id="L26044" class="LineNr">26044 </span> <span class="subxComment"># f foo</span> +<span id="L26045" class="LineNr">26045 </span> <span class="subxComment"># =></span> +<span id="L26046" class="LineNr">26046 </span> <span class="subxComment"># (f *(ebp-8))</span> +<span id="L26047" class="LineNr">26047 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> +<span id="L26048" class="LineNr">26048 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> +<span id="L26049" class="LineNr">26049 </span> <span class="subxComment">#</span> +<span id="L26050" class="LineNr">26050 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L26051" class="LineNr">26051 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L26052" class="LineNr">26052 </span> <span class="subxComment"># type: int</span> +<span id="L26053" class="LineNr">26053 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L26054" class="LineNr">26054 </span> <span class="subxComment">#</span> +<span id="L26055" class="LineNr">26055 </span> <span class="subxComment"># There's nothing in primitives.</span> +<span id="L26056" class="LineNr">26056 </span> <span class="subxComment">#</span> +<span id="L26057" class="LineNr">26057 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> <span id="L26058" class="LineNr">26058 </span> <span class="subxComment">#</span> -<span id="L26059" class="LineNr">26059 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) -<span id="L26060" class="LineNr">26060 </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="L26061" class="LineNr">26061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) -<span id="L26062" class="LineNr">26062 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) -<span id="L26063" class="LineNr">26063 </span><span class="Constant">$emit-subx-epilogue:end</span>: -<span id="L26064" class="LineNr">26064 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26065" class="LineNr">26065 </span> 89/<- %esp 5/r32/ebp -<span id="L26066" class="LineNr">26066 </span> 5d/pop-to-ebp -<span id="L26067" class="LineNr">26067 </span> c3/return +<span id="L26059" class="LineNr">26059 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26060" class="LineNr">26060 </span> 55/push-ebp +<span id="L26061" class="LineNr">26061 </span> 89/<- %ebp 4/r32/esp +<span id="L26062" class="LineNr">26062 </span> <span class="subxComment"># setup</span> +<span id="L26063" class="LineNr">26063 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L26064" class="LineNr">26064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L26065" class="LineNr">26065 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: +<span id="L26066" class="LineNr">26066 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L26067" class="LineNr">26067 </span> 68/push 0/imm32/right:null +<span id="L26068" class="LineNr">26068 </span> 68/push 0/imm32/right:null +<span id="L26069" class="LineNr">26069 </span> 68/push 0/imm32/left:unused +<span id="L26070" class="LineNr">26070 </span> 68/push 1/imm32/value:int +<span id="L26071" class="LineNr">26071 </span> 68/push 1/imm32/is-atom?:true +<span id="L26072" class="LineNr">26072 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26073" class="LineNr">26073 </span> 89/<- %ecx 4/r32/esp +<span id="L26074" class="LineNr">26074 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: +<span id="L26075" class="LineNr">26075 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L26076" class="LineNr">26076 </span> 68/push 0/imm32/no-register +<span id="L26077" class="LineNr">26077 </span> 68/push 0/imm32/no-register +<span id="L26078" class="LineNr">26078 </span> 68/push -8/imm32/stack-offset +<span id="L26079" class="LineNr">26079 </span> 68/push 1/imm32/block-depth +<span id="L26080" class="LineNr">26080 </span> 51/push-ecx/type +<span id="L26081" class="LineNr">26081 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26082" class="LineNr">26082 </span> 68/push 0/imm32/name +<span id="L26083" class="LineNr">26083 </span> 68/push 0/imm32/name +<span id="L26084" class="LineNr">26084 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26085" class="LineNr">26085 </span> 89/<- %ecx 4/r32/esp +<span id="L26086" class="LineNr">26086 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: +<span id="L26087" class="LineNr">26087 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L26088" class="LineNr">26088 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L26089" class="LineNr">26089 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L26090" class="LineNr">26090 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: +<span id="L26091" class="LineNr">26091 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L26092" class="LineNr">26092 </span> 68/push 0/imm32/is-deref:false +<span id="L26093" class="LineNr">26093 </span> 68/push 0/imm32/next +<span id="L26094" class="LineNr">26094 </span> 68/push 0/imm32/next +<span id="L26095" class="LineNr">26095 </span> 51/push-ecx/var-foo +<span id="L26096" class="LineNr">26096 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26097" class="LineNr">26097 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26098" class="LineNr">26098 </span> 89/<- %ebx 4/r32/esp +<span id="L26099" class="LineNr">26099 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: +<span id="L26100" class="LineNr">26100 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L26101" class="LineNr">26101 </span> 68/push 0/imm32/no-outputs +<span id="L26102" class="LineNr">26102 </span> 68/push 0/imm32/no-outputs +<span id="L26103" class="LineNr">26103 </span> 53/push-ebx/inouts +<span id="L26104" class="LineNr">26104 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26105" class="LineNr">26105 </span> 68/push 0/imm32/operation +<span id="L26106" class="LineNr">26106 </span> 68/push 0/imm32/operation +<span id="L26107" class="LineNr">26107 </span> 68/push 1/imm32/tag +<span id="L26108" class="LineNr">26108 </span> 89/<- %esi 4/r32/esp +<span id="L26109" class="LineNr">26109 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: +<span id="L26110" class="LineNr">26110 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L26111" class="LineNr">26111 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L26112" class="LineNr">26112 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L26113" class="LineNr">26113 </span> <span class="subxComment"># convert</span> +<span id="L26114" class="LineNr">26114 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L26115" class="LineNr">26115 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L26116" class="LineNr">26116 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L26117" class="Folded">26117 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L26123" class="LineNr">26123 </span> <span class="subxComment"># check output</span> +<span id="L26124" class="LineNr">26124 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) +<span id="L26125" class="LineNr">26125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26126" class="LineNr">26126 </span> 89/<- %esp 5/r32/ebp +<span id="L26127" class="LineNr">26127 </span> 5d/pop-to-ebp +<span id="L26128" class="LineNr">26128 </span> c3/return +<span id="L26129" class="LineNr">26129 </span> +<span id="L26130" class="LineNr">26130 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: +<span id="L26131" class="LineNr">26131 </span> <span class="subxComment"># Call a function on a literal.</span> +<span id="L26132" class="LineNr">26132 </span> <span class="subxComment"># f 0x34</span> +<span id="L26133" class="LineNr">26133 </span> <span class="subxComment"># =></span> +<span id="L26134" class="LineNr">26134 </span> <span class="subxComment"># (f2 0x34)</span> +<span id="L26135" class="LineNr">26135 </span> <span class="subxComment">#</span> +<span id="L26136" class="LineNr">26136 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26137" class="LineNr">26137 </span> 55/push-ebp +<span id="L26138" class="LineNr">26138 </span> 89/<- %ebp 4/r32/esp +<span id="L26139" class="LineNr">26139 </span> <span class="subxComment"># setup</span> +<span id="L26140" class="LineNr">26140 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L26141" class="LineNr">26141 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L26142" class="LineNr">26142 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: +<span id="L26143" class="LineNr">26143 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L26144" class="LineNr">26144 </span> 68/push 0/imm32/right:null +<span id="L26145" class="LineNr">26145 </span> 68/push 0/imm32/right:null +<span id="L26146" class="LineNr">26146 </span> 68/push 0/imm32/left:unused +<span id="L26147" class="LineNr">26147 </span> 68/push 0/imm32/value:literal +<span id="L26148" class="LineNr">26148 </span> 68/push 1/imm32/is-atom?:true +<span id="L26149" class="LineNr">26149 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26150" class="LineNr">26150 </span> 89/<- %ecx 4/r32/esp +<span id="L26151" class="LineNr">26151 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: +<span id="L26152" class="LineNr">26152 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> +<span id="L26153" class="LineNr">26153 </span> 68/push 0/imm32/no-register +<span id="L26154" class="LineNr">26154 </span> 68/push 0/imm32/no-register +<span id="L26155" class="LineNr">26155 </span> 68/push 0/imm32/no-stack-offset +<span id="L26156" class="LineNr">26156 </span> 68/push 1/imm32/block-depth +<span id="L26157" class="LineNr">26157 </span> 51/push-ecx/type +<span id="L26158" class="LineNr">26158 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26159" class="LineNr">26159 </span> 68/push 0/imm32/name +<span id="L26160" class="LineNr">26160 </span> 68/push 0/imm32/name +<span id="L26161" class="LineNr">26161 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26162" class="LineNr">26162 </span> 89/<- %ecx 4/r32/esp +<span id="L26163" class="LineNr">26163 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: +<span id="L26164" class="LineNr">26164 </span> <span class="subxComment"># var-foo->name = "0x34"</span> +<span id="L26165" class="LineNr">26165 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L26166" class="LineNr">26166 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L26167" class="LineNr">26167 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: +<span id="L26168" class="LineNr">26168 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L26169" class="LineNr">26169 </span> 68/push 0/imm32/is-deref:false +<span id="L26170" class="LineNr">26170 </span> 68/push 0/imm32/next +<span id="L26171" class="LineNr">26171 </span> 68/push 0/imm32/next +<span id="L26172" class="LineNr">26172 </span> 51/push-ecx/var-foo +<span id="L26173" class="LineNr">26173 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26174" class="LineNr">26174 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L26175" class="LineNr">26175 </span> 89/<- %ebx 4/r32/esp +<span id="L26176" class="LineNr">26176 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: +<span id="L26177" class="LineNr">26177 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L26178" class="LineNr">26178 </span> 68/push 0/imm32/no-outputs +<span id="L26179" class="LineNr">26179 </span> 68/push 0/imm32/no-outputs +<span id="L26180" class="LineNr">26180 </span> 53/push-ebx/inouts +<span id="L26181" class="LineNr">26181 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L26182" class="LineNr">26182 </span> 68/push 0/imm32/operation +<span id="L26183" class="LineNr">26183 </span> 68/push 0/imm32/operation +<span id="L26184" class="LineNr">26184 </span> 68/push 1/imm32/tag +<span id="L26185" class="LineNr">26185 </span> 89/<- %esi 4/r32/esp +<span id="L26186" class="LineNr">26186 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: +<span id="L26187" class="LineNr">26187 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L26188" class="LineNr">26188 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L26189" class="LineNr">26189 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L26190" class="LineNr">26190 </span> <span class="subxComment"># convert</span> +<span id="L26191" class="LineNr">26191 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L7947'>Curr-block-depth</a></span> 0/imm32 +<span id="L26192" class="LineNr">26192 </span> (<a href='mu.subx.html#L16812'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L26193" class="LineNr">26193 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L26194" class="Folded">26194 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L26200" class="LineNr">26200 </span> <span class="subxComment"># check output</span> +<span id="L26201" class="LineNr">26201 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) +<span id="L26202" class="LineNr">26202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26203" class="LineNr">26203 </span> 89/<- %esp 5/r32/ebp +<span id="L26204" class="LineNr">26204 </span> 5d/pop-to-ebp +<span id="L26205" class="LineNr">26205 </span> c3/return +<span id="L26206" class="LineNr">26206 </span> +<span id="L26207" class="LineNr">26207 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L26208" class="LineNr">26208 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26209" class="LineNr">26209 </span> 55/push-ebp +<span id="L26210" class="LineNr">26210 </span> 89/<- %ebp 4/r32/esp +<span id="L26211" class="LineNr">26211 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26212" class="LineNr">26212 </span> 50/push-eax +<span id="L26213" class="LineNr">26213 </span> <span class="subxComment"># var i/eax: int = n</span> +<span id="L26214" class="LineNr">26214 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26215" class="LineNr">26215 </span> { +<span id="L26216" class="LineNr">26216 </span> <span class="subxComment"># if (i <= 0) break</span> +<span id="L26217" class="LineNr">26217 </span> 3d/compare-eax-with 0/imm32 +<span id="L26218" class="LineNr">26218 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L26219" class="LineNr">26219 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L26220" class="LineNr">26220 </span> 48/decrement-eax +<span id="L26221" class="LineNr">26221 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26222" class="LineNr">26222 </span> } +<span id="L26223" class="LineNr">26223 </span><span class="Constant">$emit-indent:end</span>: +<span id="L26224" class="LineNr">26224 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26225" class="LineNr">26225 </span> 58/pop-to-eax +<span id="L26226" class="LineNr">26226 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26227" class="LineNr">26227 </span> 89/<- %esp 5/r32/ebp +<span id="L26228" class="LineNr">26228 </span> 5d/pop-to-ebp +<span id="L26229" class="LineNr">26229 </span> c3/return +<span id="L26230" class="LineNr">26230 </span> +<span id="L26231" class="LineNr">26231 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L26232" class="LineNr">26232 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26233" class="LineNr">26233 </span> 55/push-ebp +<span id="L26234" class="LineNr">26234 </span> 89/<- %ebp 4/r32/esp +<span id="L26235" class="LineNr">26235 </span> <span class="subxComment">#</span> +<span id="L26236" class="LineNr">26236 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) +<span id="L26237" class="LineNr">26237 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) +<span id="L26238" class="LineNr">26238 </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="L26239" class="LineNr">26239 </span><span class="Constant">$emit-subx-prologue:end</span>: +<span id="L26240" class="LineNr">26240 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26241" class="LineNr">26241 </span> 89/<- %esp 5/r32/ebp +<span id="L26242" class="LineNr">26242 </span> 5d/pop-to-ebp +<span id="L26243" class="LineNr">26243 </span> c3/return +<span id="L26244" class="LineNr">26244 </span> +<span id="L26245" class="LineNr">26245 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L26246" class="LineNr">26246 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26247" class="LineNr">26247 </span> 55/push-ebp +<span id="L26248" class="LineNr">26248 </span> 89/<- %ebp 4/r32/esp +<span id="L26249" class="LineNr">26249 </span> <span class="subxComment">#</span> +<span id="L26250" class="LineNr">26250 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) +<span id="L26251" class="LineNr">26251 </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="L26252" class="LineNr">26252 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) +<span id="L26253" class="LineNr">26253 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) +<span id="L26254" class="LineNr">26254 </span><span class="Constant">$emit-subx-epilogue:end</span>: +<span id="L26255" class="LineNr">26255 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26256" class="LineNr">26256 </span> 89/<- %esp 5/r32/ebp +<span id="L26257" class="LineNr">26257 </span> 5d/pop-to-ebp +<span id="L26258" class="LineNr">26258 </span> c3/return </pre> </body> </html> diff --git a/html/apps/mulisp.mu.html b/html/apps/mulisp.mu.html new file mode 100644 index 00000000..b24d4473 --- /dev/null +++ b/html/apps/mulisp.mu.html @@ -0,0 +1,128 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/mulisp.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/mulisp.mu'>https://github.com/akkartik/mu/blob/master/apps/mulisp.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># To run unit tests:</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># $ ./a.elf test</span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mulisp.mu.html#L3'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L6" class="LineNr"> 6 </span> $main-body: <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="muComment"># if (len(args) > 1 && args[1] == "test") run-tests()</span> +<span id="L8" class="LineNr"> 8 </span> compare tmp, <span class="Constant">1</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">{</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">break-if-<=</span> +<span id="L11" class="LineNr">11 </span> <span class="muComment"># if (args[1] == "test") run-tests()</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp2, <span class="Constant">"test"</span> +<span id="L14" class="LineNr">14 </span> compare tmp3, <span class="Constant">0</span> +<span id="L15" class="LineNr">15 </span> <span class="Delimiter">{</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">break-if-=</span> +<span id="L17" class="LineNr">17 </span> run-tests +<span id="L18" class="LineNr">18 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> +<span id="L19" class="LineNr">19 </span> <span class="Delimiter">}</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">break</span> $main-body +<span id="L21" class="LineNr">21 </span> <span class="Delimiter">}</span> +<span id="L22" class="LineNr">22 </span> <span class="muComment"># otherwise operate interactively</span> +<span id="L23" class="LineNr">23 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L24" class="LineNr">24 </span> <a href='mulisp.mu.html#L47'>repl</a> +<span id="L25" class="LineNr">25 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L26" class="LineNr">26 </span> exit-status <span class="SpecialChar"><-</span> copy <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> +<span id="L30" class="LineNr">30 </span><span class="PreProc">type</span> <a href='mulisp.mu.html#L30'>cell</a> <span class="Delimiter">{</span> +<span id="L31" class="LineNr">31 </span> tag: int +<span id="L32" class="LineNr">32 </span> <span class="muComment"># 0: nil</span> +<span id="L33" class="LineNr">33 </span> <span class="muComment"># 1: num</span> +<span id="L34" class="LineNr">34 </span> <span class="muComment"># 2: char</span> +<span id="L35" class="LineNr">35 </span> value: int +<span id="L36" class="LineNr">36 </span> <span class="muComment"># 3: sym</span> +<span id="L37" class="LineNr">37 </span> <span class="muComment"># 4: string</span> +<span id="L38" class="LineNr">38 </span> name: (handle array byte) +<span id="L39" class="LineNr">39 </span> <span class="muComment"># 4: array</span> +<span id="L40" class="LineNr">40 </span> <span class="muComment"># 5: tree</span> +<span id="L41" class="LineNr">41 </span> left: (handle <a href='mulisp.mu.html#L30'>cell</a>) +<span id="L42" class="LineNr">42 </span> right: (handle <a href='mulisp.mu.html#L30'>cell</a>) +<span id="L43" class="LineNr">43 </span> <span class="muComment"># 6: stream</span> +<span id="L44" class="LineNr">44 </span> stream: (handle stream byte) +<span id="L45" class="LineNr">45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr">46 </span> +<span id="L47" class="LineNr">47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mulisp.mu.html#L47'>repl</a></span> <span class="Delimiter">{</span> +<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> c: (handle <a href='mulisp.mu.html#L30'>cell</a>) +<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> c-ah/<span class="Constant">ecx</span>: (addr handle <a href='mulisp.mu.html#L30'>cell</a>) <span class="SpecialChar"><-</span> address c +<span id="L50" class="LineNr">50 </span> <a href='mulisp.mu.html#L59'>lisp-read</a> c-ah +<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> c-a/<span class="Constant">eax</span>: (addr <a href='mulisp.mu.html#L30'>cell</a>) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> c +<span id="L52" class="LineNr">52 </span> compare c-a, <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> <a href='mulisp.mu.html#L62'>lisp-eval</a> c-a c-ah +<span id="L55" class="LineNr">55 </span> <a href='mulisp.mu.html#L65'>lisp-print</a> c-a +<span id="L56" class="LineNr">56 </span> <span class="PreProc">loop</span> +<span id="L57" class="LineNr">57 </span><span class="Delimiter">}</span> +<span id="L58" class="LineNr">58 </span> +<span id="L59" class="LineNr">59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mulisp.mu.html#L59'>lisp-read</a></span> out: (addr handle <a href='mulisp.mu.html#L30'>cell</a>) <span class="Delimiter">{</span> +<span id="L60" class="LineNr">60 </span><span class="Delimiter">}</span> +<span id="L61" class="LineNr">61 </span> +<span id="L62" class="LineNr">62 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mulisp.mu.html#L62'>lisp-eval</a></span> in: (addr <a href='mulisp.mu.html#L30'>cell</a>), out: (addr handle <a href='mulisp.mu.html#L30'>cell</a>) <span class="Delimiter">{</span> +<span id="L63" class="LineNr">63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr">64 </span> +<span id="L65" class="LineNr">65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mulisp.mu.html#L65'>lisp-print</a></span> in: (addr <a href='mulisp.mu.html#L30'>cell</a>) <span class="Delimiter">{</span> +<span id="L66" class="LineNr">66 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/mulisp.subx.html b/html/apps/mulisp.subx.html new file mode 100644 index 00000000..62316dfb --- /dev/null +++ b/html/apps/mulisp.subx.html @@ -0,0 +1,295 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/mulisp.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.LineNr { } +.subxS1Comment { color: #0000af; } +.CommentedCode { color: #8a8a8a; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/mulisp.subx'>https://github.com/akkartik/mu/blob/master/apps/mulisp.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Toy lisp interpreter. Incomplete.</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"># $ ./translate_subx init.linux 0*.subx apps/mulisp.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"># 42</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># => 42</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># ^D</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span>== code +<span id="L12" class="LineNr"> 12 </span> +<span id="L13" class="LineNr"> 13 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, a REPL if not</span> +<span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15" class="LineNr"> 15 </span> 89/<- %ebp 4/r32/esp +<span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># initialize heap</span> +<span id="L17" class="LineNr"> 17 </span> (<a href='../104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) +<span id="L18" class="LineNr"> 18 </span> { +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># if (argc <= 1) break</span> +<span id="L20" class="LineNr"> 20 </span> 81 7/subop/compare *ebp 1/imm32 +<span id="L21" class="LineNr"> 21 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># if (argv[1] != "test")) break</span> +<span id="L23" class="LineNr"> 23 </span> (<a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> +<span id="L24" class="LineNr"> 24 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25" class="LineNr"> 25 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26" class="LineNr"> 26 </span> <span class="subxComment">#</span> +<span id="L27" class="LineNr"> 27 </span> (run-tests) +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L29" class="LineNr"> 29 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L30" class="LineNr"> 30 </span> eb/jump $main:end/disp8 +<span id="L31" class="LineNr"> 31 </span> } +<span id="L32" class="LineNr"> 32 </span> (<a href='mulisp.subx.html#L76'>repl</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="L33" class="LineNr"> 33 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L34" class="LineNr"> 34 </span> bb/copy-to-ebx 0/imm32 +<span id="L35" class="LineNr"> 35 </span><span class="Constant">$main:end</span>: +<span id="L36" class="LineNr"> 36 </span> e8/call syscall_exit/disp32 +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># Data structures</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxComment">#</span> +<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># Lisp is dynamically typed. Values always carry around knowledge of their</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># type.</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment">#</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># There's several types of types in the description below, so we need a</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># glossary and notational convention to disambiguate:</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># lisp type: what Lisp code can see. Looks how you type it at the prompt.</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># nil num char string symbol pair array</span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># type tag: the numeric code for a lisp type. All caps.</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># NIL NUM CHAR STRING SYMBOL PAIR ARRAY</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># memory type: a type specifying memory layout at the SubX level. Starts</span> +<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># with a '$'.</span> +<span id="L51" class="LineNr"> 51 </span><span class="subxComment"># $int $array $(addr _)</span> +<span id="L52" class="LineNr"> 52 </span><span class="subxComment">#</span> +<span id="L53" class="LineNr"> 53 </span><span class="subxComment"># Lisp values are represented in memory by the _cell_ data structure. A cell</span> +<span id="L54" class="LineNr"> 54 </span><span class="subxComment"># is 12 bytes long:</span> +<span id="L55" class="LineNr"> 55 </span><span class="subxComment"># tag: $int (4 bytes; we're not concerned about wasting space)</span> +<span id="L56" class="LineNr"> 56 </span><span class="subxComment"># data: 8 bytes whose contents and meaning depend on tag</span> +<span id="L57" class="LineNr"> 57 </span><span class="subxComment">#</span> +<span id="L58" class="LineNr"> 58 </span><span class="subxComment"># What values of the different Lisp types look like in memory:</span> +<span id="L59" class="LineNr"> 59 </span><span class="subxComment"># - nil: cell{ tag: 0/NIL, data: 0 0 }</span> +<span id="L60" class="LineNr"> 60 </span><span class="subxComment"># - num: cell{ tag: 1/NUM, data: $int 0 }</span> +<span id="L61" class="LineNr"> 61 </span><span class="subxComment"># data contains the number</span> +<span id="L62" class="LineNr"> 62 </span><span class="subxComment"># - char: cell{ tag: 2/CHAR, data: $int 0 }</span> +<span id="L63" class="LineNr"> 63 </span><span class="subxComment"># data contains the utf-8 code of the character (no compound glyphs, no</span> +<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># modifiers, etc., etc.)</span> +<span id="L65" class="LineNr"> 65 </span><span class="subxComment"># - string: cell{ tag: 3/STRING, data: $(addr stream byte)</span> +<span id="L66" class="LineNr"> 66 </span><span class="subxComment"># data contains an (addr array byte) containing the string in utf-8</span> +<span id="L67" class="LineNr"> 67 </span><span class="subxComment"># - symbol: cell{ tag: 4/SYMBOL, data: $(addr array byte) 0 }</span> +<span id="L68" class="LineNr"> 68 </span><span class="subxComment"># data contains an (addr array byte) containing the name of the symbol in utf-8</span> +<span id="L69" class="LineNr"> 69 </span><span class="subxComment"># alternatively, data could contain an index into the table of interned symbols</span> +<span id="L70" class="LineNr"> 70 </span><span class="subxComment"># - pair: cell{ tag: 5/PAIR, data: $(addr cell) $(addr cell) }</span> +<span id="L71" class="LineNr"> 71 </span><span class="subxComment"># data contains pointers to car and cdr</span> +<span id="L72" class="LineNr"> 72 </span><span class="subxComment"># - array: cell{ tag: 6/ARRAY, data: $tag $(addr stream data)</span> +<span id="L73" class="LineNr"> 73 </span><span class="subxComment"># data contains a pointer to an array of 8-byte data fields and the common</span> +<span id="L74" class="LineNr"> 74 </span><span class="subxComment"># tag for them all</span> +<span id="L75" class="LineNr"> 75 </span> +<span id="L76" class="LineNr"> 76 </span><span class="subxFunction">repl</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L78" class="LineNr"> 78 </span> 55/push-ebp +<span id="L79" class="LineNr"> 79 </span> 89/<- %ebp 4/r32/esp +<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L81" class="LineNr"> 81 </span> 50/push-eax +<span id="L82" class="LineNr"> 82 </span> { +<span id="L83" class="LineNr"> 83 </span> (<a href='mulisp.subx.html#L106'>lisp-read</a> <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>) <span class="subxComment"># => eax: (handle cell)</span> +<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># if (eax == 0) break</span> +<span id="L85" class="LineNr"> 85 </span> 3d/compare-eax-and 0/imm32 +<span id="L86" class="LineNr"> 86 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment">#</span> +<span id="L88" class="LineNr"> 88 </span> (<a href='mulisp.subx.html#L200'>lisp-eval</a> %eax) <span class="subxComment"># => eax: (handle cell)</span> +<span id="L89" class="LineNr"> 89 </span> (<a href='mulisp.subx.html#L213'>lisp-print</a> <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span> %eax) +<span id="L90" class="LineNr"> 90 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L91" class="LineNr"> 91 </span> } +<span id="L92" class="LineNr"> 92 </span><span class="Constant">$repl: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/<- %esp 5/r32/ebp +<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="subxComment"># numbers start with a digit and are always in hex</span> +<span id="L101" class="LineNr">101 </span><span class="subxComment"># characters start with a backslash</span> +<span id="L102" class="LineNr">102 </span><span class="subxComment"># pairs start with '('</span> +<span id="L103" class="LineNr">103 </span><span class="subxComment"># arrays start with '['</span> +<span id="L104" class="LineNr">104 </span><span class="subxComment"># symbols start with anything else but quote, backquote, unquote or splice</span> +<span id="L105" class="LineNr">105 </span><span class="subxComment"># only one s-expression per line</span> +<span id="L106" class="LineNr">106 </span><span class="subxFunction">lisp-read</span>: <span class="subxComment"># in: (addr buffered-file) -> eax: (handle cell)</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/<- %ebp 4/r32/esp +<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> <span class="subxComment"># var s/ecx: (stream byte 512)</span> +<span id="L113" class="LineNr">113 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L114" class="LineNr">114 </span> 68/push 0x200/imm32/size +<span id="L115" class="LineNr">115 </span> 68/push 0/imm32/read +<span id="L116" class="LineNr">116 </span> 68/push 0/imm32/write +<span id="L117" class="LineNr">117 </span> 89/<- %ecx 4/r32/esp +<span id="L118" class="LineNr">118 </span> { +<span id="L119" class="LineNr">119 </span> <span class="subxComment"># read line into s</span> +<span id="L120" class="LineNr">120 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L121" class="LineNr">121 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L122" class="LineNr">122 </span> <span class="subxComment"># if (s->write == 0) return null</span> +<span id="L123" class="LineNr">123 </span> { +<span id="L124" class="LineNr">124 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L125" class="LineNr">125 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L126" class="LineNr">126 </span> b8/copy-to-eax 0/imm32/eof +<span id="L127" class="LineNr">127 </span> eb/jump $lisp-read:end/disp8 +<span id="L128" class="LineNr">128 </span> } +<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># ...</span> +<span id="L130" class="LineNr">130 </span><span class="CommentedCode">#? eb/jump loop/disp8</span> +<span id="L131" class="LineNr">131 </span> } +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># return s</span> +<span id="L133" class="LineNr">133 </span> 89/<- %eax 1/r32/ecx +<span id="L134" class="LineNr">134 </span><span class="Constant">$lisp-read:end</span>: +<span id="L135" class="LineNr">135 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L136" class="LineNr">136 </span> 81 0/subop/add %esp 0x20c/imm32 +<span id="L137" class="LineNr">137 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L138" class="LineNr">138 </span> 59/pop-to-ecx +<span id="L139" class="LineNr">139 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L140" class="LineNr">140 </span> 89/<- %esp 5/r32/ebp +<span id="L141" class="LineNr">141 </span> 5d/pop-to-ebp +<span id="L142" class="LineNr">142 </span> c3/return +<span id="L143" class="LineNr">143 </span> +<span id="L144" class="LineNr">144 </span><span class="subxComment"># lisp-read: in: (addr buffered-file) -> (handle cell)</span> +<span id="L145" class="LineNr">145 </span><span class="subxComment"># token tmp = next-mulisp-token(in)</span> +<span id="L146" class="LineNr">146 </span><span class="subxComment"># if is-int(tmp) return cell(tmp)</span> +<span id="L147" class="LineNr">147 </span><span class="subxComment"># if is-string(tmp) return cell(tmp)</span> +<span id="L148" class="LineNr">148 </span><span class="subxComment"># if is-pair(tmp) ...</span> +<span id="L149" class="LineNr">149 </span><span class="subxComment"># if is-array(tmp) ...</span> +<span id="L150" class="LineNr">150 </span> +<span id="L151" class="LineNr">151 </span><span class="subxFunction">next-mulisp-token</span>: <span class="subxComment"># in: (addr buffered-file), line: (addr stream byte), result: (addr slice)</span> +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># pseudocode:</span> +<span id="L153" class="LineNr">153 </span> <span class="subxComment"># if (line->read >= line->write)</span> +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L155" class="LineNr">155 </span> <span class="subxComment"># recurse</span> +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># if (line->data[line->read] == ' ')</span> +<span id="L157" class="LineNr">157 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> +<span id="L158" class="LineNr">158 </span> <span class="subxComment"># recurse</span> +<span id="L159" class="LineNr">159 </span> <span class="subxComment"># if (line->data[line->read] == '#')</span> +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L161" class="LineNr">161 </span> <span class="subxComment"># recurse</span> +<span id="L162" class="LineNr">162 </span> <span class="subxComment"># eax = line->data[line->read]</span> +<span id="L163" class="LineNr">163 </span> <span class="subxComment"># if (eax == '"')</span> +<span id="L164" class="LineNr">164 </span> <span class="subxComment"># result->start = &line->data[line->read]</span> +<span id="L165" class="LineNr">165 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L166" class="LineNr">166 </span> <span class="subxComment"># result->end = &line->data[line->read]</span> +<span id="L167" class="LineNr">167 </span> <span class="subxComment"># return</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># if (is-digit(eax))</span> +<span id="L169" class="LineNr">169 </span> <span class="subxComment"># result->start = &line->data[line->read]</span> +<span id="L170" class="LineNr">170 </span> <span class="subxComment"># skip-hex-int(in)</span> +<span id="L171" class="LineNr">171 </span> <span class="subxComment"># result->end = &line->data[line->read]</span> +<span id="L172" class="LineNr">172 </span> <span class="subxComment"># return</span> +<span id="L173" class="LineNr">173 </span> <span class="subxComment"># if (eax in '(' ')' '[' ']')</span> +<span id="L174" class="LineNr">174 </span> <span class="subxComment"># result->start = &line->data[line->read]</span> +<span id="L175" class="LineNr">175 </span> <span class="subxComment"># ++line->read</span> +<span id="L176" class="LineNr">176 </span> <span class="subxComment"># result->en = &line->data[line->read]</span> +<span id="L177" class="LineNr">177 </span> <span class="subxComment"># return</span> +<span id="L178" class="LineNr">178 </span> <span class="subxComment"># else</span> +<span id="L179" class="LineNr">179 </span> <span class="subxComment"># result->start = &line->data[line->read]</span> +<span id="L180" class="LineNr">180 </span> <span class="subxComment"># skip-lisp-word(line)</span> +<span id="L181" class="LineNr">181 </span> <span class="subxComment"># result->en = &line->data[line->read]</span> +<span id="L182" class="LineNr">182 </span> <span class="subxComment"># return</span> +<span id="L183" class="LineNr">183 </span> <span class="subxComment">#</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L185" class="LineNr">185 </span> 55/push-ebp +<span id="L186" class="LineNr">186 </span> 89/<- %ebp 4/r32/esp +<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L188" class="LineNr">188 </span><span class="Constant">$next-mulisp-token:end</span>: +<span id="L189" class="LineNr">189 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L190" class="LineNr">190 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L191" class="LineNr">191 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L192" class="LineNr">192 </span> 89/<- %esp 5/r32/ebp +<span id="L193" class="LineNr">193 </span> 5d/pop-to-ebp +<span id="L194" class="LineNr">194 </span> c3/return +<span id="L195" class="LineNr">195 </span> +<span id="L196" class="LineNr">196 </span><span class="subxFunction">new-int-cell</span>: <span class="subxComment"># in: (addr slice) -> eax: (handle cell)</span> +<span id="L197" class="LineNr">197 </span> +<span id="L198" class="LineNr">198 </span><span class="subxFunction">new-string-cell</span>: <span class="subxComment"># in: (addr slice) -> eax: (handle cell)</span> +<span id="L199" class="LineNr">199 </span> +<span id="L200" class="LineNr">200 </span><span class="subxFunction">lisp-eval</span>: <span class="subxComment"># in: (addr cell) -> eax: (handle cell)</span> +<span id="L201" class="LineNr">201 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L202" class="LineNr">202 </span> 55/push-ebp +<span id="L203" class="LineNr">203 </span> 89/<- %ebp 4/r32/esp +<span id="L204" class="LineNr">204 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L205" class="LineNr">205 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L206" class="LineNr">206 </span><span class="Constant">$lisp-eval:end</span>: +<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L209" class="LineNr">209 </span> 89/<- %esp 5/r32/ebp +<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">lisp-print</span>: <span class="subxComment"># out: (addr buffered-file), x: (addr cell)</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/<- %ebp 4/r32/esp +<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L218" class="LineNr">218 </span> <span class="subxComment"># write(x)</span> +<span id="L219" class="LineNr">219 </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">"=> "</span>) +<span id="L220" class="LineNr">220 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span> *(ebp+0xc)) +<span id="L221" class="LineNr">221 </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="L222" class="LineNr">222 </span><span class="Constant">$lisp-print:end</span>: +<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L225" class="LineNr">225 </span> 89/<- %esp 5/r32/ebp +<span id="L226" class="LineNr">226 </span> 5d/pop-to-ebp +<span id="L227" class="LineNr">227 </span> c3/return +<span id="L228" class="LineNr">228 </span> +<span id="L229" class="LineNr">229 </span>== data +<span id="L230" class="LineNr">230 </span> +<span id="L231" class="LineNr">231 </span><span class="SpecialChar">Nil</span>: +<span id="L232" class="LineNr">232 </span> 0/imm32/tag +<span id="L233" class="LineNr">233 </span> 0/imm32/data +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/pack.subx.html b/html/apps/pack.subx.html index f4fcd262..319caa09 100644 --- a/html/apps/pack.subx.html +++ b/html/apps/pack.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -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#L10'>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 @@ -372,8 +372,8 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># write nothing to input</span> <span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L416" class="LineNr"> 416 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L417" class="LineNr"> 417 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L416" class="LineNr"> 416 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L417" class="LineNr"> 417 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> <span id="L419" class="LineNr"> 419 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> @@ -381,7 +381,7 @@ if ('onhashchange' in window) { <span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L423" class="LineNr"> 423 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L425" class="LineNr"> 425 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L425" class="LineNr"> 425 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . call</span> <span id="L427" class="LineNr"> 427 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . discard args</span> @@ -445,8 +445,8 @@ if ('onhashchange' in window) { <span id="L486" class="LineNr"> 486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L488" class="LineNr"> 488 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L489" class="LineNr"> 489 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L490" class="LineNr"> 490 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L489" class="LineNr"> 489 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L490" class="LineNr"> 490 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . call</span> <span id="L492" class="LineNr"> 492 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . discard args</span> @@ -454,7 +454,7 @@ if ('onhashchange' in window) { <span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L496" class="LineNr"> 496 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L498" class="LineNr"> 498 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L498" class="LineNr"> 498 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L499" class="LineNr"> 499 </span> <span class="subxS2Comment"># . . call</span> <span id="L500" class="LineNr"> 500 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L501" class="LineNr"> 501 </span> <span class="subxS2Comment"># . . discard args</span> @@ -518,8 +518,8 @@ if ('onhashchange' in window) { <span id="L559" class="LineNr"> 559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L560" class="LineNr"> 560 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L562" class="LineNr"> 562 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L563" class="LineNr"> 563 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L562" class="LineNr"> 562 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L563" class="LineNr"> 563 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L564" class="LineNr"> 564 </span> <span class="subxS2Comment"># . . call</span> <span id="L565" class="LineNr"> 565 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . discard args</span> @@ -527,7 +527,7 @@ if ('onhashchange' in window) { <span id="L568" class="LineNr"> 568 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L569" class="LineNr"> 569 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L570" class="LineNr"> 570 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L571" class="LineNr"> 571 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L571" class="LineNr"> 571 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . call</span> <span id="L573" class="LineNr"> 573 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . discard args</span> @@ -610,17 +610,17 @@ if ('onhashchange' in window) { <span id="L651" class="LineNr"> 651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L652" class="LineNr"> 652 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L654" class="LineNr"> 654 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L655" class="LineNr"> 655 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L654" class="LineNr"> 654 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L655" class="LineNr"> 655 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . call</span> <span id="L657" class="LineNr"> 657 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . discard args</span> <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#L359'>_test-output-buffered-file</a>/imm32 +<span id="L689" class="LineNr"> 689 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . call</span> <span id="L691" class="LineNr"> 691 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . discard args</span> @@ -739,8 +739,8 @@ if ('onhashchange' in window) { <span id="L805" class="LineNr"> 805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L808" class="LineNr"> 808 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L809" class="LineNr"> 809 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L808" class="LineNr"> 808 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L809" class="LineNr"> 809 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L810" class="LineNr"> 810 </span> <span class="subxS2Comment"># . . call</span> <span id="L811" class="LineNr"> 811 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . discard args</span> @@ -751,10 +751,10 @@ 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#L359'>_test-output-buffered-file</a>/imm32 +<span id="L848" class="LineNr"> 848 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . call</span> <span id="L850" class="LineNr"> 850 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L851" class="LineNr"> 851 </span> <span class="subxS2Comment"># . . discard args</span> @@ -840,7 +840,7 @@ if ('onhashchange' in window) { <span id="L931" class="LineNr"> 931 </span> 68/push 0/imm32/end <span id="L932" class="LineNr"> 932 </span> 68/push 0/imm32/start <span id="L933" class="LineNr"> 933 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L934" class="Folded"> 934 </span><span class="Folded">+-- 26 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L934" class="Folded"> 934 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L960" class="LineNr"> 960 </span><span class="Constant">$convert-data:loop</span>: <span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . push args</span> @@ -850,7 +850,7 @@ if ('onhashchange' in window) { <span id="L966" class="LineNr"> 966 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 <span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L968" class="LineNr"> 968 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L969" class="Folded"> 969 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L969" class="Folded"> 969 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1009" class="LineNr">1009 </span><span class="Constant">$convert-data:check0</span>: <span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L1011" class="LineNr">1011 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -999,7 +999,7 @@ if ('onhashchange' in window) { <span id="L1154" class="LineNr">1154 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1155" class="LineNr">1155 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1156" class="LineNr">1156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1157" class="LineNr">1157 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1157" class="LineNr">1157 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1158" class="LineNr">1158 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . call</span> <span id="L1160" class="LineNr">1160 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1008,12 +1008,12 @@ if ('onhashchange' in window) { <span id="L1163" class="LineNr">1163 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L1164" class="LineNr">1164 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1165" class="LineNr">1165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1166" class="LineNr">1166 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1166" class="LineNr">1166 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1167" class="LineNr">1167 </span> <span class="subxS2Comment"># . . call</span> <span id="L1168" class="LineNr">1168 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1169" class="LineNr">1169 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1170" class="LineNr">1170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1171" class="Folded">1171 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1171" class="Folded">1171 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1197" class="LineNr">1197 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> <span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1199" class="LineNr">1199 </span> 68/push <span class="Constant">"F - test-convert-data-passes-comments-through"</span>/imm32 @@ -1066,7 +1066,7 @@ if ('onhashchange' in window) { <span id="L1246" class="LineNr">1246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1247" class="LineNr">1247 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1248" class="LineNr">1248 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1249" class="LineNr">1249 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1249" class="LineNr">1249 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1250" class="LineNr">1250 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . call</span> <span id="L1252" class="LineNr">1252 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1075,7 +1075,7 @@ if ('onhashchange' in window) { <span id="L1255" class="LineNr">1255 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1258" class="LineNr">1258 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1258" class="LineNr">1258 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1259" class="LineNr">1259 </span> <span class="subxS2Comment"># . . call</span> <span id="L1260" class="LineNr">1260 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1261" class="LineNr">1261 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1133,7 +1133,7 @@ if ('onhashchange' in window) { <span id="L1313" class="LineNr">1313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1316" class="LineNr">1316 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1316" class="LineNr">1316 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1317" class="LineNr">1317 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . call</span> <span id="L1319" class="LineNr">1319 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1142,7 +1142,7 @@ if ('onhashchange' in window) { <span id="L1322" class="LineNr">1322 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L1323" class="LineNr">1323 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1325" class="LineNr">1325 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1325" class="LineNr">1325 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1326" class="LineNr">1326 </span> <span class="subxS2Comment"># . . call</span> <span id="L1327" class="LineNr">1327 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1199,7 +1199,7 @@ if ('onhashchange' in window) { <span id="L1379" class="LineNr">1379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1382" class="LineNr">1382 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1382" class="LineNr">1382 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1383" class="LineNr">1383 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . call</span> <span id="L1385" class="LineNr">1385 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1208,7 +1208,7 @@ if ('onhashchange' in window) { <span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># check that 4 bytes were written</span> <span id="L1389" class="LineNr">1389 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1390" class="LineNr">1390 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1391" class="LineNr">1391 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1391" class="LineNr">1391 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1392" class="LineNr">1392 </span> <span class="subxS2Comment"># . . call</span> <span id="L1393" class="LineNr">1393 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1266,7 +1266,7 @@ if ('onhashchange' in window) { <span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1447" class="LineNr">1447 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="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#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1449" class="LineNr">1449 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1450" class="LineNr">1450 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1451" class="LineNr">1451 </span> <span class="subxS2Comment"># . . call</span> <span id="L1452" class="LineNr">1452 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1275,7 +1275,7 @@ if ('onhashchange' in window) { <span id="L1455" class="LineNr">1455 </span> <span class="subxComment"># check that a single byte was written (imm16 is not a valid operand type)</span> <span id="L1456" class="LineNr">1456 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1458" class="LineNr">1458 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1458" class="LineNr">1458 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1459" class="LineNr">1459 </span> <span class="subxS2Comment"># . . call</span> <span id="L1460" class="LineNr">1460 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1461" class="LineNr">1461 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1332,7 +1332,7 @@ if ('onhashchange' in window) { <span id="L1512" class="LineNr">1512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1513" class="LineNr">1513 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1515" class="LineNr">1515 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1515" class="LineNr">1515 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1516" class="LineNr">1516 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . call</span> <span id="L1518" class="LineNr">1518 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1341,7 +1341,7 @@ if ('onhashchange' in window) { <span id="L1521" class="LineNr">1521 </span> <span class="subxComment"># check output</span> <span id="L1522" class="LineNr">1522 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1523" class="LineNr">1523 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1524" class="LineNr">1524 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1524" class="LineNr">1524 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1525" class="LineNr">1525 </span> <span class="subxS2Comment"># . . call</span> <span id="L1526" class="LineNr">1526 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1398,7 +1398,7 @@ if ('onhashchange' in window) { <span id="L1578" class="LineNr">1578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1579" class="LineNr">1579 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1581" class="LineNr">1581 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1581" class="LineNr">1581 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1582" class="LineNr">1582 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . call</span> <span id="L1584" class="LineNr">1584 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1407,7 +1407,7 @@ if ('onhashchange' in window) { <span id="L1587" class="LineNr">1587 </span> <span class="subxComment"># check output</span> <span id="L1588" class="LineNr">1588 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1590" class="LineNr">1590 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1590" class="LineNr">1590 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1591" class="LineNr">1591 </span> <span class="subxS2Comment"># . . call</span> <span id="L1592" class="LineNr">1592 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1464,7 +1464,7 @@ if ('onhashchange' in window) { <span id="L1644" class="LineNr">1644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1647" class="LineNr">1647 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1647" class="LineNr">1647 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1648" class="LineNr">1648 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1649" class="LineNr">1649 </span> <span class="subxS2Comment"># . . call</span> <span id="L1650" class="LineNr">1650 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1473,12 +1473,12 @@ if ('onhashchange' in window) { <span id="L1653" class="LineNr">1653 </span> <span class="subxComment"># check output</span> <span id="L1654" class="LineNr">1654 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1655" class="LineNr">1655 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1656" class="LineNr">1656 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1656" class="LineNr">1656 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1657" class="LineNr">1657 </span> <span class="subxS2Comment"># . . call</span> <span id="L1658" class="LineNr">1658 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1659" class="LineNr">1659 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1660" class="LineNr">1660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1661" class="Folded">1661 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1661" class="Folded">1661 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1687" class="LineNr">1687 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o 42 e1 00 00 \n", msg)</span> <span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1689" class="LineNr">1689 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-words"</span>/imm32 @@ -1531,7 +1531,7 @@ if ('onhashchange' in window) { <span id="L1736" class="LineNr">1736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1737" class="LineNr">1737 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> <span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1739" class="LineNr">1739 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1739" class="LineNr">1739 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1740" class="LineNr">1740 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1741" class="LineNr">1741 </span> <span class="subxS2Comment"># . . call</span> <span id="L1742" class="LineNr">1742 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 @@ -1540,12 +1540,12 @@ if ('onhashchange' in window) { <span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># check output</span> <span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1748" class="LineNr">1748 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L1748" class="LineNr">1748 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . call</span> <span id="L1750" class="LineNr">1750 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1752" class="LineNr">1752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1753" class="Folded">1753 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1753" class="Folded">1753 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1779" class="LineNr">1779 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 # comment", msg)</span> <span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1781" class="LineNr">1781 </span> 68/push <span class="Constant">"F - test-convert-data-trailing-comment"</span>/imm32 @@ -1675,7 +1675,7 @@ if ('onhashchange' in window) { <span id="L1905" class="LineNr">1905 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1906" class="LineNr">1906 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1908" class="LineNr">1908 </span> e8/call <a href='pack.subx.html#L2560'>emit-sib</a>/disp32 +<span id="L1908" class="LineNr">1908 </span> e8/call <a href='pack.subx.html#L2616'>emit-sib</a>/disp32 <span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1910" class="LineNr">1910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1911" class="LineNr">1911 </span> <span class="subxComment"># emit-disp(line, out)</span> @@ -1683,7 +1683,7 @@ if ('onhashchange' in window) { <span id="L1913" class="LineNr">1913 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1914" class="LineNr">1914 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1915" class="LineNr">1915 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1916" class="LineNr">1916 </span> e8/call <a href='pack.subx.html#L2841'>emit-disp</a>/disp32 +<span id="L1916" class="LineNr">1916 </span> e8/call <a href='pack.subx.html#L2897'>emit-disp</a>/disp32 <span id="L1917" class="LineNr">1917 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1918" class="LineNr">1918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1919" class="LineNr">1919 </span> <span class="subxComment"># emit-imm(line, out)</span> @@ -1691,7 +1691,7 @@ if ('onhashchange' in window) { <span id="L1921" class="LineNr">1921 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1922" class="LineNr">1922 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1923" class="LineNr">1923 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1924" class="LineNr">1924 </span> e8/call <a href='pack.subx.html#L3060'>emit-imm</a>/disp32 +<span id="L1924" class="LineNr">1924 </span> e8/call <a href='pack.subx.html#L3116'>emit-imm</a>/disp32 <span id="L1925" class="LineNr">1925 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1926" class="LineNr">1926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1927" class="LineNr">1927 </span> <span class="subxComment"># emit-line-in-comment(line, out)</span> @@ -1699,7 +1699,7 @@ if ('onhashchange' in window) { <span id="L1929" class="LineNr">1929 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1930" class="LineNr">1930 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1931" class="LineNr">1931 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1932" class="LineNr">1932 </span> e8/call <a href='pack.subx.html#L3279'>emit-line-in-comment</a>/disp32 +<span id="L1932" class="LineNr">1932 </span> e8/call <a href='pack.subx.html#L3335'>emit-line-in-comment</a>/disp32 <span id="L1933" class="LineNr">1933 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1934" class="LineNr">1934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1935" class="LineNr">1935 </span><span class="Constant">$convert-instruction:end</span>: @@ -2022,10 +2022,10 @@ if ('onhashchange' in window) { <span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># if (has-metadata?(word-slice, "mod"))</span> <span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># mod = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> <span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "rm32"))</span> +<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># else if has-metadata?(word-slice, "rm32") or has-metadata?(word-slice, "xm32")</span> <span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> <span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "r32") or has-metadata?(word-slice, "subop"))</span> +<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># else if has-metadata?(word-slice, "r32") or has-metadata?(word-slice, "x32") or has-metadata?(word-slice, "subop")</span> <span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> <span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># has-modrm? = true</span> <span id="L2261" class="LineNr">2261 </span> <span class="subxComment"># if has-modrm?</span> @@ -2065,7 +2065,7 @@ if ('onhashchange' in window) { <span id="L2295" class="LineNr">2295 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L2296" class="LineNr">2296 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2297" class="LineNr">2297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2298" class="Folded">2298 </span><span class="Folded">+-- 33 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2298" class="Folded">2298 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2331" class="LineNr">2331 </span><span class="Constant">$emit-modrm:loop</span>: <span id="L2332" class="LineNr">2332 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L2333" class="LineNr">2333 </span> <span class="subxS2Comment"># . . push args</span> @@ -2075,7 +2075,7 @@ if ('onhashchange' in window) { <span id="L2337" class="LineNr">2337 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 <span id="L2338" class="LineNr">2338 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2339" class="LineNr">2339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2340" class="Folded">2340 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2340" class="Folded">2340 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2380" class="LineNr">2380 </span><span class="Constant">$emit-modrm:check0</span>: <span id="L2381" class="LineNr">2381 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L2382" class="LineNr">2382 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -2121,7 +2121,7 @@ if ('onhashchange' in window) { <span id="L2422" class="LineNr">2422 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2423" class="LineNr">2423 </span> 51/push-ecx <span id="L2424" class="LineNr">2424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2425" class="LineNr">2425 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 +<span id="L2425" class="LineNr">2425 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 <span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2427" class="LineNr">2427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L2428" class="LineNr">2428 </span> <span class="subxS1Comment"># . mod = eax</span> @@ -2142,14 +2142,14 @@ if ('onhashchange' in window) { <span id="L2443" class="LineNr">2443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L2444" class="LineNr">2444 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2445" class="LineNr">2445 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2446" class="LineNr">2446 </span> 74/jump-if-= $emit-modrm:check-for-r32/disp8 +<span id="L2446" class="LineNr">2446 </span> 74/jump-if-= $emit-modrm:check-for-xm32/disp8 <span id="L2447" class="LineNr">2447 </span><span class="Constant">$emit-modrm:rm32</span>: <span id="L2448" class="LineNr">2448 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> <span id="L2449" class="LineNr">2449 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> <span id="L2450" class="LineNr">2450 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2451" class="LineNr">2451 </span> 51/push-ecx <span id="L2452" class="LineNr">2452 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2453" class="LineNr">2453 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 +<span id="L2453" class="LineNr">2453 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 <span id="L2454" class="LineNr">2454 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2455" class="LineNr">2455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L2456" class="LineNr">2456 </span> <span class="subxS1Comment"># . rm32 = eax</span> @@ -2158,11 +2158,11 @@ if ('onhashchange' in window) { <span id="L2459" class="LineNr">2459 </span> ba/copy-to-edx 1/imm32/true <span id="L2460" class="LineNr">2460 </span> <span class="subxComment"># continue</span> <span id="L2461" class="LineNr">2461 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2462" class="LineNr">2462 </span><span class="Constant">$emit-modrm:check-for-r32</span>: -<span id="L2463" class="LineNr">2463 </span> <span class="subxComment"># if (has-metadata?(word-slice, "r32"))</span> -<span id="L2464" class="LineNr">2464 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "r32")</span> +<span id="L2462" class="LineNr">2462 </span><span class="Constant">$emit-modrm:check-for-xm32</span>: +<span id="L2463" class="LineNr">2463 </span> <span class="subxComment"># if (has-metadata?(word-slice, "xm32"))</span> +<span id="L2464" class="LineNr">2464 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "xm32")</span> <span id="L2465" class="LineNr">2465 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2466" class="LineNr">2466 </span> 68/push <span class="Constant">"r32"</span>/imm32 +<span id="L2466" class="LineNr">2466 </span> 68/push <span class="Constant">"xm32"</span>/imm32 <span id="L2467" class="LineNr">2467 </span> 51/push-ecx <span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . call</span> <span id="L2469" class="LineNr">2469 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 @@ -2170,42 +2170,42 @@ if ('onhashchange' in window) { <span id="L2471" class="LineNr">2471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L2472" class="LineNr">2472 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2473" class="LineNr">2473 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2474" class="LineNr">2474 </span> 74/jump-if-= $emit-modrm:check-for-subop/disp8 -<span id="L2475" class="LineNr">2475 </span><span class="Constant">$emit-modrm:r32</span>: -<span id="L2476" class="LineNr">2476 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2474" class="LineNr">2474 </span> 74/jump-if-= $emit-modrm:check-for-r32/disp8 +<span id="L2475" class="LineNr">2475 </span><span class="Constant">$emit-modrm:xm32</span>: +<span id="L2476" class="LineNr">2476 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> <span id="L2477" class="LineNr">2477 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> <span id="L2478" class="LineNr">2478 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2479" class="LineNr">2479 </span> 51/push-ecx <span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2481" class="LineNr">2481 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 +<span id="L2481" class="LineNr">2481 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 <span id="L2482" class="LineNr">2482 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2483" class="LineNr">2483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . r32 = eax</span> -<span id="L2485" class="LineNr">2485 </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="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . rm32 = eax</span> +<span id="L2485" class="LineNr">2485 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> <span id="L2486" class="LineNr">2486 </span> <span class="subxComment"># has-modrm? = true</span> <span id="L2487" class="LineNr">2487 </span> ba/copy-to-edx 1/imm32/true <span id="L2488" class="LineNr">2488 </span> <span class="subxComment"># continue</span> <span id="L2489" class="LineNr">2489 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2490" class="LineNr">2490 </span><span class="Constant">$emit-modrm:check-for-subop</span>: -<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if (has-metadata?(word-slice, "subop"))</span> -<span id="L2492" class="LineNr">2492 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "subop")</span> +<span id="L2490" class="LineNr">2490 </span><span class="Constant">$emit-modrm:check-for-r32</span>: +<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if (has-metadata?(word-slice, "r32"))</span> +<span id="L2492" class="LineNr">2492 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "r32")</span> <span id="L2493" class="LineNr">2493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2494" class="LineNr">2494 </span> 68/push <span class="Constant">"subop"</span>/imm32 +<span id="L2494" class="LineNr">2494 </span> 68/push <span class="Constant">"r32"</span>/imm32 <span id="L2495" class="LineNr">2495 </span> 51/push-ecx <span id="L2496" class="LineNr">2496 </span> <span class="subxS2Comment"># . . call</span> <span id="L2497" class="LineNr">2497 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 <span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2499" class="LineNr">2499 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2500" class="LineNr">2500 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2500" class="LineNr">2500 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2501" class="LineNr">2501 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2502" class="LineNr">2502 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2503" class="LineNr">2503 </span><span class="Constant">$emit-modrm:subop</span>: +<span id="L2502" class="LineNr">2502 </span> 74/jump-if-= $emit-modrm:check-for-x32/disp8 +<span id="L2503" class="LineNr">2503 </span><span class="Constant">$emit-modrm:r32</span>: <span id="L2504" class="LineNr">2504 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> <span id="L2505" class="LineNr">2505 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> <span id="L2506" class="LineNr">2506 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2507" class="LineNr">2507 </span> 51/push-ecx <span id="L2508" class="LineNr">2508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2509" class="LineNr">2509 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 +<span id="L2509" class="LineNr">2509 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 <span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2511" class="LineNr">2511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L2512" class="LineNr">2512 </span> <span class="subxS1Comment"># . r32 = eax</span> @@ -2214,2586 +2214,2642 @@ if ('onhashchange' in window) { <span id="L2515" class="LineNr">2515 </span> ba/copy-to-edx 1/imm32/true <span id="L2516" class="LineNr">2516 </span> <span class="subxComment"># continue</span> <span id="L2517" class="LineNr">2517 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2518" class="LineNr">2518 </span><span class="Constant">$emit-modrm:break</span>: -<span id="L2519" class="LineNr">2519 </span> <span class="subxComment"># if (!has-modrm?) return</span> -<span id="L2520" class="LineNr">2520 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> -<span id="L2521" class="LineNr">2521 </span> 74/jump-if-= $emit-modrm:end/disp8 -<span id="L2522" class="LineNr">2522 </span><span class="Constant">$emit-modrm:calculate</span>: -<span id="L2523" class="LineNr">2523 </span> <span class="subxComment"># var modrm/ebx: byte = mod & 0b11</span> -<span id="L2524" class="LineNr">2524 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> -<span id="L2525" class="LineNr">2525 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2526" class="LineNr">2526 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2527" class="LineNr">2527 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> -<span id="L2528" class="LineNr">2528 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> -<span id="L2529" class="LineNr">2529 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> -<span id="L2530" class="LineNr">2530 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2531" class="LineNr">2531 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2532" class="LineNr">2532 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> -<span id="L2533" class="LineNr">2533 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> -<span id="L2534" class="LineNr">2534 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> -<span id="L2535" class="LineNr">2535 </span><span class="Constant">$emit-modrm:<a href='../130emit.subx.html#L10'>emit</a></span>: -<span id="L2536" class="LineNr">2536 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> -<span id="L2537" class="LineNr">2537 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2538" class="LineNr">2538 </span> 68/push 1/imm32 -<span id="L2539" class="LineNr">2539 </span> 53/push-ebx -<span id="L2540" class="LineNr">2540 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2542" class="LineNr">2542 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2545" class="LineNr">2545 </span><span class="Constant">$emit-modrm:end</span>: -<span id="L2546" class="LineNr">2546 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L2547" class="LineNr">2547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2549" class="LineNr">2549 </span> 5f/pop-to-edi -<span id="L2550" class="LineNr">2550 </span> 5e/pop-to-esi -<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> 58/pop-to-eax -<span id="L2555" class="LineNr">2555 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2556" class="LineNr">2556 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2557" class="LineNr">2557 </span> 5d/pop-to-ebp -<span id="L2558" class="LineNr">2558 </span> c3/return -<span id="L2559" class="LineNr">2559 </span> -<span id="L2560" class="LineNr">2560 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L2561" class="LineNr">2561 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2562" class="LineNr">2562 </span> <span class="subxComment"># var has-sib? = false, base = 0, index = 0, scale = 0</span> -<span id="L2563" class="LineNr">2563 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L2564" class="LineNr">2564 </span> <span class="subxComment"># while true</span> -<span id="L2565" class="LineNr">2565 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L2566" class="LineNr">2566 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2567" class="LineNr">2567 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2568" class="LineNr">2568 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base")</span> -<span id="L2569" class="LineNr">2569 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2570" class="LineNr">2570 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2571" class="LineNr">2571 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "index")</span> -<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2573" class="LineNr">2573 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2574" class="LineNr">2574 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "scale")</span> -<span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2576" class="LineNr">2576 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2577" class="LineNr">2577 </span> <span class="subxComment"># if has-sib?</span> -<span id="L2578" class="LineNr">2578 </span> <span class="subxComment"># var sib = scale & 0b11</span> -<span id="L2579" class="LineNr">2579 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2580" class="LineNr">2580 </span> <span class="subxComment"># sib |= index & 0b111</span> -<span id="L2581" class="LineNr">2581 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2582" class="LineNr">2582 </span> <span class="subxComment"># sib |= base & 0b111</span> -<span id="L2583" class="LineNr">2583 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> -<span id="L2584" class="LineNr">2584 </span> <span class="subxComment">#</span> -<span id="L2585" class="LineNr">2585 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2586" class="LineNr">2586 </span> 55/push-ebp -<span id="L2587" class="LineNr">2587 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2588" class="LineNr">2588 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2589" class="LineNr">2589 </span> 50/push-eax -<span id="L2590" class="LineNr">2590 </span> 51/push-ecx -<span id="L2591" class="LineNr">2591 </span> 52/push-edx -<span id="L2592" class="LineNr">2592 </span> 53/push-ebx -<span id="L2593" class="LineNr">2593 </span> 56/push-esi -<span id="L2594" class="LineNr">2594 </span> 57/push-edi -<span id="L2595" class="LineNr">2595 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2596" class="LineNr">2596 </span> 68/push 0/imm32/end -<span id="L2597" class="LineNr">2597 </span> 68/push 0/imm32/start -<span id="L2598" class="LineNr">2598 </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="L2599" class="LineNr">2599 </span> <span class="subxComment"># var has-sib?/edx: boolean = false</span> -<span id="L2600" class="LineNr">2600 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L2601" class="LineNr">2601 </span> <span class="subxComment"># var scale/ebx: byte = 0</span> -<span id="L2602" class="LineNr">2602 </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="L2603" class="LineNr">2603 </span> <span class="subxComment"># var base/esi: byte = 0</span> -<span id="L2604" class="LineNr">2604 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> -<span id="L2605" class="LineNr">2605 </span> <span class="subxComment"># var index/edi: byte = 0</span> -<span id="L2606" class="LineNr">2606 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L2607" class="LineNr">2607 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2608" class="LineNr">2608 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2609" class="LineNr">2609 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<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#L56'>rewind-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="Constant">$emit-sib:loop</span>: -<span id="L2615" class="Folded">2615 </span><span class="Folded">+-- 26 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2641" class="LineNr">2641 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2643" class="LineNr">2643 </span> 51/push-ecx -<span id="L2644" class="LineNr">2644 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2645" class="LineNr">2645 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2646" class="LineNr">2646 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L2647" class="LineNr">2647 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2648" class="LineNr">2648 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2649" class="Folded">2649 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2689" class="LineNr">2689 </span><span class="Constant">$emit-sib:check0</span>: -<span id="L2690" class="LineNr">2690 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2691" class="LineNr">2691 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2692" class="LineNr">2692 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2693" class="LineNr">2693 </span> 51/push-ecx -<span id="L2694" class="LineNr">2694 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2695" class="LineNr">2695 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2696" class="LineNr">2696 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2697" class="LineNr">2697 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2698" class="LineNr">2698 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L2699" class="LineNr">2699 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2700" class="LineNr">2700 </span> 0f 85/jump-if-!= $emit-sib:<span class="Constant">break</span>/disp32 -<span id="L2701" class="LineNr">2701 </span><span class="Constant">$emit-sib:check1</span>: -<span id="L2702" class="LineNr">2702 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2703" class="LineNr">2703 </span> <span class="subxS1Comment"># . spill edx</span> -<span id="L2704" class="LineNr">2704 </span> 52/push-edx -<span id="L2705" class="LineNr">2705 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L2706" class="LineNr">2706 </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="L2707" class="LineNr">2707 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2708" class="LineNr">2708 </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="L2709" class="LineNr">2709 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L2710" class="LineNr">2710 </span> <span class="subxS1Comment"># . restore edx</span> -<span id="L2711" class="LineNr">2711 </span> 5a/pop-to-edx -<span id="L2712" class="LineNr">2712 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> -<span id="L2713" class="LineNr">2713 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2714" class="LineNr">2714 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">break</span>/disp32 -<span id="L2715" class="LineNr">2715 </span><span class="Constant">$emit-sib:check-for-scale</span>: -<span id="L2716" class="LineNr">2716 </span> <span class="subxComment"># if (has-metadata?(word-slice, "scale"))</span> -<span id="L2717" class="LineNr">2717 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "scale")</span> -<span id="L2718" class="LineNr">2718 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2719" class="LineNr">2719 </span> 68/push <span class="Constant">"scale"</span>/imm32 -<span id="L2720" class="LineNr">2720 </span> 51/push-ecx -<span id="L2721" class="LineNr">2721 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2722" class="LineNr">2722 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2723" class="LineNr">2723 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2724" class="LineNr">2724 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2725" class="LineNr">2725 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2726" class="LineNr">2726 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2727" class="LineNr">2727 </span> 74/jump-if-= $emit-sib:check-for-base/disp8 -<span id="L2728" class="LineNr">2728 </span><span class="Constant">$emit-sib:scale</span>: -<span id="L2729" class="LineNr">2729 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2730" class="LineNr">2730 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2731" class="LineNr">2731 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2732" class="LineNr">2732 </span> 51/push-ecx -<span id="L2733" class="LineNr">2733 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2734" class="LineNr">2734 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</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="subxS1Comment"># . scale = eax</span> -<span id="L2738" class="LineNr">2738 </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="L2739" class="LineNr">2739 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2740" class="LineNr">2740 </span> ba/copy-to-edx 1/imm32/true -<span id="L2741" class="LineNr">2741 </span> <span class="subxComment"># continue</span> -<span id="L2742" class="LineNr">2742 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2743" class="LineNr">2743 </span><span class="Constant">$emit-sib:check-for-base</span>: -<span id="L2744" class="LineNr">2744 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base"))</span> -<span id="L2745" class="LineNr">2745 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "base")</span> -<span id="L2746" class="LineNr">2746 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2747" class="LineNr">2747 </span> 68/push <span class="Constant">"base"</span>/imm32 -<span id="L2748" class="LineNr">2748 </span> 51/push-ecx -<span id="L2749" class="LineNr">2749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2750" class="LineNr">2750 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2751" class="LineNr">2751 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2752" class="LineNr">2752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2753" class="LineNr">2753 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2754" class="LineNr">2754 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2755" class="LineNr">2755 </span> 74/jump-if-= $emit-sib:check-for-index/disp8 -<span id="L2756" class="LineNr">2756 </span><span class="Constant">$emit-sib:base</span>: -<span id="L2757" class="LineNr">2757 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2758" class="LineNr">2758 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2759" class="LineNr">2759 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2760" class="LineNr">2760 </span> 51/push-ecx -<span id="L2761" class="LineNr">2761 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2762" class="LineNr">2762 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 -<span id="L2763" class="LineNr">2763 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2764" class="LineNr">2764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2765" class="LineNr">2765 </span> <span class="subxS1Comment"># . base = eax</span> -<span id="L2766" class="LineNr">2766 </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="L2767" class="LineNr">2767 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2768" class="LineNr">2768 </span> ba/copy-to-edx 1/imm32/true -<span id="L2769" class="LineNr">2769 </span> <span class="subxComment"># continue</span> -<span id="L2770" class="LineNr">2770 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2771" class="LineNr">2771 </span><span class="Constant">$emit-sib:check-for-index</span>: -<span id="L2772" class="LineNr">2772 </span> <span class="subxComment"># if (has-metadata?(word-slice, "index"))</span> -<span id="L2773" class="LineNr">2773 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "index")</span> +<span id="L2518" class="LineNr">2518 </span><span class="Constant">$emit-modrm:check-for-x32</span>: +<span id="L2519" class="LineNr">2519 </span> <span class="subxComment"># if (has-metadata?(word-slice, "x32"))</span> +<span id="L2520" class="LineNr">2520 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "x32")</span> +<span id="L2521" class="LineNr">2521 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2522" class="LineNr">2522 </span> 68/push <span class="Constant">"x32"</span>/imm32 +<span id="L2523" class="LineNr">2523 </span> 51/push-ecx +<span id="L2524" class="LineNr">2524 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2525" class="LineNr">2525 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2526" class="LineNr">2526 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2527" class="LineNr">2527 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2528" class="LineNr">2528 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2529" class="LineNr">2529 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2530" class="LineNr">2530 </span> 74/jump-if-= $emit-modrm:check-for-subop/disp8 +<span id="L2531" class="LineNr">2531 </span><span class="Constant">$emit-modrm:x32</span>: +<span id="L2532" class="LineNr">2532 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2533" class="LineNr">2533 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2534" class="LineNr">2534 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2535" class="LineNr">2535 </span> 51/push-ecx +<span id="L2536" class="LineNr">2536 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2537" class="LineNr">2537 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 +<span id="L2538" class="LineNr">2538 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2539" class="LineNr">2539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2540" class="LineNr">2540 </span> <span class="subxS1Comment"># . r32 = eax</span> +<span id="L2541" class="LineNr">2541 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2542" class="LineNr">2542 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2543" class="LineNr">2543 </span> ba/copy-to-edx 1/imm32/true +<span id="L2544" class="LineNr">2544 </span> <span class="subxComment"># continue</span> +<span id="L2545" class="LineNr">2545 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2546" class="LineNr">2546 </span><span class="Constant">$emit-modrm:check-for-subop</span>: +<span id="L2547" class="LineNr">2547 </span> <span class="subxComment"># if (has-metadata?(word-slice, "subop"))</span> +<span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "subop")</span> +<span id="L2549" class="LineNr">2549 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2550" class="LineNr">2550 </span> 68/push <span class="Constant">"subop"</span>/imm32 +<span id="L2551" class="LineNr">2551 </span> 51/push-ecx +<span id="L2552" class="LineNr">2552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2553" class="LineNr">2553 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2555" class="LineNr">2555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2556" class="LineNr">2556 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2557" class="LineNr">2557 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2558" class="LineNr">2558 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2559" class="LineNr">2559 </span><span class="Constant">$emit-modrm:subop</span>: +<span id="L2560" class="LineNr">2560 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2561" class="LineNr">2561 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2562" class="LineNr">2562 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2563" class="LineNr">2563 </span> 51/push-ecx +<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2565" class="LineNr">2565 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2567" class="LineNr">2567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2568" class="LineNr">2568 </span> <span class="subxS1Comment"># . r32 = eax</span> +<span id="L2569" class="LineNr">2569 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2570" class="LineNr">2570 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2571" class="LineNr">2571 </span> ba/copy-to-edx 1/imm32/true +<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># continue</span> +<span id="L2573" class="LineNr">2573 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2574" class="LineNr">2574 </span><span class="Constant">$emit-modrm:break</span>: +<span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># if (!has-modrm?) return</span> +<span id="L2576" class="LineNr">2576 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> +<span id="L2577" class="LineNr">2577 </span> 74/jump-if-= $emit-modrm:end/disp8 +<span id="L2578" class="LineNr">2578 </span><span class="Constant">$emit-modrm:calculate</span>: +<span id="L2579" class="LineNr">2579 </span> <span class="subxComment"># var modrm/ebx: byte = mod & 0b11</span> +<span id="L2580" class="LineNr">2580 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> +<span id="L2581" class="LineNr">2581 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2582" class="LineNr">2582 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2583" class="LineNr">2583 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> +<span id="L2584" class="LineNr">2584 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> +<span id="L2585" class="LineNr">2585 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> +<span id="L2586" class="LineNr">2586 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2587" class="LineNr">2587 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2588" class="LineNr">2588 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> +<span id="L2589" class="LineNr">2589 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> +<span id="L2590" class="LineNr">2590 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> +<span id="L2591" class="LineNr">2591 </span><span class="Constant">$emit-modrm:<a href='../130emit.subx.html#L10'>emit</a></span>: +<span id="L2592" class="LineNr">2592 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> +<span id="L2593" class="LineNr">2593 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2594" class="LineNr">2594 </span> 68/push 1/imm32 +<span id="L2595" class="LineNr">2595 </span> 53/push-ebx +<span id="L2596" class="LineNr">2596 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2598" class="LineNr">2598 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2600" class="LineNr">2600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2601" class="LineNr">2601 </span><span class="Constant">$emit-modrm:end</span>: +<span id="L2602" class="LineNr">2602 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2603" class="LineNr">2603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2604" class="LineNr">2604 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2605" class="LineNr">2605 </span> 5f/pop-to-edi +<span id="L2606" class="LineNr">2606 </span> 5e/pop-to-esi +<span id="L2607" class="LineNr">2607 </span> 5b/pop-to-ebx +<span id="L2608" class="LineNr">2608 </span> 5a/pop-to-edx +<span id="L2609" class="LineNr">2609 </span> 59/pop-to-ecx +<span id="L2610" class="LineNr">2610 </span> 58/pop-to-eax +<span id="L2611" class="LineNr">2611 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2612" class="LineNr">2612 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2613" class="LineNr">2613 </span> 5d/pop-to-ebp +<span id="L2614" class="LineNr">2614 </span> c3/return +<span id="L2615" class="LineNr">2615 </span> +<span id="L2616" class="LineNr">2616 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L2617" class="LineNr">2617 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2618" class="LineNr">2618 </span> <span class="subxComment"># var has-sib? = false, base = 0, index = 0, scale = 0</span> +<span id="L2619" class="LineNr">2619 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L2620" class="LineNr">2620 </span> <span class="subxComment"># while true</span> +<span id="L2621" class="LineNr">2621 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L2622" class="LineNr">2622 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2623" class="LineNr">2623 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2624" class="LineNr">2624 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base")</span> +<span id="L2625" class="LineNr">2625 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2626" class="LineNr">2626 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2627" class="LineNr">2627 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "index")</span> +<span id="L2628" class="LineNr">2628 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2629" class="LineNr">2629 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2630" class="LineNr">2630 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "scale")</span> +<span id="L2631" class="LineNr">2631 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2632" class="LineNr">2632 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2633" class="LineNr">2633 </span> <span class="subxComment"># if has-sib?</span> +<span id="L2634" class="LineNr">2634 </span> <span class="subxComment"># var sib = scale & 0b11</span> +<span id="L2635" class="LineNr">2635 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2636" class="LineNr">2636 </span> <span class="subxComment"># sib |= index & 0b111</span> +<span id="L2637" class="LineNr">2637 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2638" class="LineNr">2638 </span> <span class="subxComment"># sib |= base & 0b111</span> +<span id="L2639" class="LineNr">2639 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> +<span id="L2640" class="LineNr">2640 </span> <span class="subxComment">#</span> +<span id="L2641" class="LineNr">2641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2642" class="LineNr">2642 </span> 55/push-ebp +<span id="L2643" class="LineNr">2643 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2644" class="LineNr">2644 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2645" class="LineNr">2645 </span> 50/push-eax +<span id="L2646" class="LineNr">2646 </span> 51/push-ecx +<span id="L2647" class="LineNr">2647 </span> 52/push-edx +<span id="L2648" class="LineNr">2648 </span> 53/push-ebx +<span id="L2649" class="LineNr">2649 </span> 56/push-esi +<span id="L2650" class="LineNr">2650 </span> 57/push-edi +<span id="L2651" class="LineNr">2651 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2652" class="LineNr">2652 </span> 68/push 0/imm32/end +<span id="L2653" class="LineNr">2653 </span> 68/push 0/imm32/start +<span id="L2654" class="LineNr">2654 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2655" class="LineNr">2655 </span> <span class="subxComment"># var has-sib?/edx: boolean = false</span> +<span id="L2656" class="LineNr">2656 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L2657" class="LineNr">2657 </span> <span class="subxComment"># var scale/ebx: byte = 0</span> +<span id="L2658" class="LineNr">2658 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2659" class="LineNr">2659 </span> <span class="subxComment"># var base/esi: byte = 0</span> +<span id="L2660" class="LineNr">2660 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> +<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># var index/edi: byte = 0</span> +<span id="L2662" class="LineNr">2662 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L2663" class="LineNr">2663 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2665" class="LineNr">2665 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2666" class="LineNr">2666 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2667" class="LineNr">2667 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2668" class="LineNr">2668 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2669" class="LineNr">2669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2670" class="LineNr">2670 </span><span class="Constant">$emit-sib:loop</span>: +<span id="L2671" class="Folded">2671 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2697" class="LineNr">2697 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2698" class="LineNr">2698 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2699" class="LineNr">2699 </span> 51/push-ecx +<span id="L2700" class="LineNr">2700 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2701" class="LineNr">2701 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2702" class="LineNr">2702 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L2703" class="LineNr">2703 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2704" class="LineNr">2704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2705" class="Folded">2705 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2745" class="LineNr">2745 </span><span class="Constant">$emit-sib:check0</span>: +<span id="L2746" class="LineNr">2746 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2747" class="LineNr">2747 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2748" class="LineNr">2748 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2749" class="LineNr">2749 </span> 51/push-ecx +<span id="L2750" class="LineNr">2750 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2751" class="LineNr">2751 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2752" class="LineNr">2752 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2753" class="LineNr">2753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2754" class="LineNr">2754 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L2755" class="LineNr">2755 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2756" class="LineNr">2756 </span> 0f 85/jump-if-!= $emit-sib:<span class="Constant">break</span>/disp32 +<span id="L2757" class="LineNr">2757 </span><span class="Constant">$emit-sib:check1</span>: +<span id="L2758" class="LineNr">2758 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2759" class="LineNr">2759 </span> <span class="subxS1Comment"># . spill edx</span> +<span id="L2760" class="LineNr">2760 </span> 52/push-edx +<span id="L2761" class="LineNr">2761 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L2762" class="LineNr">2762 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L2763" class="LineNr">2763 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2764" class="LineNr">2764 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2765" class="LineNr">2765 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L2766" class="LineNr">2766 </span> <span class="subxS1Comment"># . restore edx</span> +<span id="L2767" class="LineNr">2767 </span> 5a/pop-to-edx +<span id="L2768" class="LineNr">2768 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> +<span id="L2769" class="LineNr">2769 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2770" class="LineNr">2770 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">break</span>/disp32 +<span id="L2771" class="LineNr">2771 </span><span class="Constant">$emit-sib:check-for-scale</span>: +<span id="L2772" class="LineNr">2772 </span> <span class="subxComment"># if (has-metadata?(word-slice, "scale"))</span> +<span id="L2773" class="LineNr">2773 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "scale")</span> <span id="L2774" class="LineNr">2774 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2775" class="LineNr">2775 </span> 68/push <span class="Constant">"index"</span>/imm32 +<span id="L2775" class="LineNr">2775 </span> 68/push <span class="Constant">"scale"</span>/imm32 <span id="L2776" class="LineNr">2776 </span> 51/push-ecx <span id="L2777" class="LineNr">2777 </span> <span class="subxS2Comment"># . . call</span> <span id="L2778" class="LineNr">2778 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 <span id="L2779" class="LineNr">2779 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2780" class="LineNr">2780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2781" class="LineNr">2781 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2781" class="LineNr">2781 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2782" class="LineNr">2782 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2783" class="LineNr">2783 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2784" class="LineNr">2784 </span><span class="Constant">$emit-sib:index</span>: -<span id="L2785" class="LineNr">2785 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2783" class="LineNr">2783 </span> 74/jump-if-= $emit-sib:check-for-base/disp8 +<span id="L2784" class="LineNr">2784 </span><span class="Constant">$emit-sib:scale</span>: +<span id="L2785" class="LineNr">2785 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> <span id="L2786" class="LineNr">2786 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> <span id="L2787" class="LineNr">2787 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2788" class="LineNr">2788 </span> 51/push-ecx <span id="L2789" class="LineNr">2789 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2790" class="LineNr">2790 </span> e8/call <a href='pack.subx.html#L5923'>parse-datum-of-word</a>/disp32 +<span id="L2790" class="LineNr">2790 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 <span id="L2791" class="LineNr">2791 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2792" class="LineNr">2792 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2793" class="LineNr">2793 </span> <span class="subxS1Comment"># . index = eax</span> -<span id="L2794" class="LineNr">2794 </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="L2793" class="LineNr">2793 </span> <span class="subxS1Comment"># . scale = eax</span> +<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> <span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># has-sib? = true</span> <span id="L2796" class="LineNr">2796 </span> ba/copy-to-edx 1/imm32/true <span id="L2797" class="LineNr">2797 </span> <span class="subxComment"># continue</span> <span id="L2798" class="LineNr">2798 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2799" class="LineNr">2799 </span><span class="Constant">$emit-sib:break</span>: -<span id="L2800" class="LineNr">2800 </span> <span class="subxComment"># if (!has-sib?) return</span> -<span id="L2801" class="LineNr">2801 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> -<span id="L2802" class="LineNr">2802 </span> 74/jump-if-= $emit-sib:end/disp8 -<span id="L2803" class="LineNr">2803 </span><span class="Constant">$emit-sib:calculate</span>: -<span id="L2804" class="LineNr">2804 </span> <span class="subxComment"># var sib/ebx: byte = scale & 0b11</span> -<span id="L2805" class="LineNr">2805 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> -<span id="L2806" class="LineNr">2806 </span> <span class="subxComment"># sib <<= 2</span> -<span id="L2807" class="LineNr">2807 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2808" class="LineNr">2808 </span> <span class="subxComment"># sib |= index & 0b111</span> -<span id="L2809" class="LineNr">2809 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> -<span id="L2810" class="LineNr">2810 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> -<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2812" class="LineNr">2812 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># sib |= base & 0b111</span> -<span id="L2814" class="LineNr">2814 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> -<span id="L2815" class="LineNr">2815 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> -<span id="L2816" class="LineNr">2816 </span><span class="Constant">$emit-sib:<a href='../130emit.subx.html#L10'>emit</a></span>: -<span id="L2817" class="LineNr">2817 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> -<span id="L2818" class="LineNr">2818 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2819" class="LineNr">2819 </span> 68/push 1/imm32 -<span id="L2820" class="LineNr">2820 </span> 53/push-ebx -<span id="L2821" class="LineNr">2821 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2822" class="LineNr">2822 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2823" class="LineNr">2823 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2824" class="LineNr">2824 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2825" class="LineNr">2825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2826" class="LineNr">2826 </span><span class="Constant">$emit-sib:end</span>: -<span id="L2827" class="LineNr">2827 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L2828" class="LineNr">2828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2829" class="LineNr">2829 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2830" class="LineNr">2830 </span> 5f/pop-to-edi -<span id="L2831" class="LineNr">2831 </span> 5e/pop-to-esi -<span id="L2832" class="LineNr">2832 </span> 5b/pop-to-ebx -<span id="L2833" class="LineNr">2833 </span> 5a/pop-to-edx -<span id="L2834" class="LineNr">2834 </span> 59/pop-to-ecx -<span id="L2835" class="LineNr">2835 </span> 58/pop-to-eax -<span id="L2836" class="LineNr">2836 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2837" class="LineNr">2837 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2838" class="LineNr">2838 </span> 5d/pop-to-ebp -<span id="L2839" class="LineNr">2839 </span> c3/return -<span id="L2840" class="LineNr">2840 </span> -<span id="L2841" class="LineNr">2841 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L2842" class="LineNr">2842 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2843" class="LineNr">2843 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2844" class="LineNr">2844 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L2845" class="LineNr">2845 </span> <span class="subxComment"># while true</span> -<span id="L2846" class="LineNr">2846 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L2847" class="LineNr">2847 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2848" class="LineNr">2848 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2849" class="LineNr">2849 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp32")</span> -<span id="L2850" class="LineNr">2850 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># break</span> -<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp16")</span> -<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L2854" class="LineNr">2854 </span> <span class="subxComment"># break</span> -<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8")</span> -<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># break</span> -<span id="L2858" class="LineNr">2858 </span> <span class="subxComment">#</span> -<span id="L2859" class="LineNr">2859 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2860" class="LineNr">2860 </span> 55/push-ebp -<span id="L2861" class="LineNr">2861 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2862" class="LineNr">2862 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2863" class="LineNr">2863 </span> 50/push-eax -<span id="L2864" class="LineNr">2864 </span> 51/push-ecx -<span id="L2865" class="LineNr">2865 </span> 52/push-edx -<span id="L2866" class="LineNr">2866 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2867" class="LineNr">2867 </span> 68/push 0/imm32/end -<span id="L2868" class="LineNr">2868 </span> 68/push 0/imm32/start -<span id="L2869" class="LineNr">2869 </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="L2870" class="LineNr">2870 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2871" class="LineNr">2871 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2872" class="LineNr">2872 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2873" class="LineNr">2873 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2874" class="LineNr">2874 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L2875" class="LineNr">2875 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2876" class="LineNr">2876 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2877" class="Folded">2877 </span><span class="Folded">+-- 26 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2903" class="LineNr">2903 </span><span class="Constant">$emit-disp:loop</span>: -<span id="L2904" class="LineNr">2904 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2905" class="LineNr">2905 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2906" class="LineNr">2906 </span> 51/push-ecx -<span id="L2907" class="LineNr">2907 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2908" class="LineNr">2908 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2909" class="LineNr">2909 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L2910" class="LineNr">2910 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2911" class="LineNr">2911 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2912" class="Folded">2912 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2952" class="LineNr">2952 </span><span class="Constant">$emit-disp:check0</span>: -<span id="L2953" class="LineNr">2953 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2954" class="LineNr">2954 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2955" class="LineNr">2955 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2956" class="LineNr">2956 </span> 51/push-ecx -<span id="L2957" class="LineNr">2957 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2958" class="LineNr">2958 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2959" class="LineNr">2959 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2960" class="LineNr">2960 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2961" class="LineNr">2961 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L2962" class="LineNr">2962 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2963" class="LineNr">2963 </span> 0f 85/jump-if-!= $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L2964" class="LineNr">2964 </span><span class="Constant">$emit-disp:check1</span>: -<span id="L2965" class="LineNr">2965 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2966" class="LineNr">2966 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L2967" class="LineNr">2967 </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="L2968" class="LineNr">2968 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2969" class="LineNr">2969 </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="L2970" class="LineNr">2970 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L2971" class="LineNr">2971 </span> <span class="subxS1Comment"># . if (c == '#') break</span> -<span id="L2972" class="LineNr">2972 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2973" class="LineNr">2973 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L2974" class="LineNr">2974 </span><span class="Constant">$emit-disp:check-for-disp32</span>: -<span id="L2975" class="LineNr">2975 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp32"))</span> -<span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp32")</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">"disp32"</span>/imm32 -<span id="L2979" class="LineNr">2979 </span> 51/push-ecx -<span id="L2980" class="LineNr">2980 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2981" class="LineNr">2981 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2982" class="LineNr">2982 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2983" class="LineNr">2983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2984" class="LineNr">2984 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2985" class="LineNr">2985 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2986" class="LineNr">2986 </span> 74/jump-if-= $emit-disp:check-for-disp16/disp8 -<span id="L2987" class="LineNr">2987 </span><span class="Constant">$emit-disp:disp32</span>: -<span id="L2988" class="LineNr">2988 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L2989" class="LineNr">2989 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2990" class="LineNr">2990 </span> 68/push 4/imm32 -<span id="L2991" class="LineNr">2991 </span> 51/push-ecx -<span id="L2992" class="LineNr">2992 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2993" class="LineNr">2993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2994" class="LineNr">2994 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L2995" class="LineNr">2995 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2996" class="LineNr">2996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2997" class="LineNr">2997 </span> <span class="subxComment"># break</span> -<span id="L2998" class="LineNr">2998 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L2999" class="LineNr">2999 </span><span class="Constant">$emit-disp:check-for-disp16</span>: -<span id="L3000" class="LineNr">3000 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "disp16"))</span> -<span id="L3001" class="LineNr">3001 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp16")</span> -<span id="L3002" class="LineNr">3002 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3003" class="LineNr">3003 </span> 68/push <span class="Constant">"disp16"</span>/imm32 -<span id="L3004" class="LineNr">3004 </span> 51/push-ecx -<span id="L3005" class="LineNr">3005 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3006" class="LineNr">3006 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3007" class="LineNr">3007 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3008" class="LineNr">3008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3009" class="LineNr">3009 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3010" class="LineNr">3010 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3011" class="LineNr">3011 </span> 74/jump-if-= $emit-disp:check-for-disp8/disp8 -<span id="L3012" class="LineNr">3012 </span><span class="Constant">$emit-disp:disp16</span>: -<span id="L3013" class="LineNr">3013 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3015" class="LineNr">3015 </span> 68/push 2/imm32 -<span id="L3016" class="LineNr">3016 </span> 51/push-ecx -<span id="L3017" class="LineNr">3017 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3018" class="LineNr">3018 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3019" class="LineNr">3019 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3020" class="LineNr">3020 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3021" class="LineNr">3021 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3022" class="LineNr">3022 </span> <span class="subxComment"># break</span> -<span id="L3023" class="LineNr">3023 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L3024" class="LineNr">3024 </span><span class="Constant">$emit-disp:check-for-disp8</span>: -<span id="L3025" class="LineNr">3025 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp8"))</span> -<span id="L3026" class="LineNr">3026 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp8")</span> -<span id="L3027" class="LineNr">3027 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3028" class="LineNr">3028 </span> 68/push <span class="Constant">"disp8"</span>/imm32 -<span id="L3029" class="LineNr">3029 </span> 51/push-ecx -<span id="L3030" class="LineNr">3030 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3031" class="LineNr">3031 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3032" class="LineNr">3032 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3033" class="LineNr">3033 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3034" class="LineNr">3034 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L3035" class="LineNr">3035 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3036" class="LineNr">3036 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">loop</span>/disp32 -<span id="L3037" class="LineNr">3037 </span><span class="Constant">$emit-disp:disp8</span>: -<span id="L3038" class="LineNr">3038 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3039" class="LineNr">3039 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3040" class="LineNr">3040 </span> 68/push 1/imm32 -<span id="L3041" class="LineNr">3041 </span> 51/push-ecx -<span id="L3042" class="LineNr">3042 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3043" class="LineNr">3043 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3044" class="LineNr">3044 </span> e8/call <a href='../130emit.subx.html#L10'>emit</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3047" class="LineNr">3047 </span> <span class="subxComment"># break</span> -<span id="L3048" class="LineNr">3048 </span><span class="Constant">$emit-disp:break</span>: -<span id="L3049" class="LineNr">3049 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L3050" class="LineNr">3050 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3051" class="LineNr">3051 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3052" class="LineNr">3052 </span> 5a/pop-to-edx -<span id="L3053" class="LineNr">3053 </span> 59/pop-to-ecx -<span id="L3054" class="LineNr">3054 </span> 58/pop-to-eax -<span id="L3055" class="LineNr">3055 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3056" class="LineNr">3056 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3057" class="LineNr">3057 </span> 5d/pop-to-ebp -<span id="L3058" class="LineNr">3058 </span> c3/return -<span id="L3059" class="LineNr">3059 </span> -<span id="L3060" class="LineNr">3060 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L3061" class="LineNr">3061 </span> <span class="subxComment"># pseudocode:</span> -<span id="L3062" class="LineNr">3062 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L3063" class="LineNr">3063 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L3064" class="LineNr">3064 </span> <span class="subxComment"># while true</span> -<span id="L3065" class="LineNr">3065 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L3066" class="LineNr">3066 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L3067" class="LineNr">3067 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L3068" class="LineNr">3068 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm32")</span> -<span id="L3069" class="LineNr">3069 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L3070" class="LineNr">3070 </span> <span class="subxComment"># break</span> -<span id="L3071" class="LineNr">3071 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm16")</span> -<span id="L3072" class="LineNr">3072 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3073" class="LineNr">3073 </span> <span class="subxComment"># break</span> -<span id="L3074" class="LineNr">3074 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> -<span id="L3075" class="LineNr">3075 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3076" class="LineNr">3076 </span> <span class="subxComment"># break</span> -<span id="L3077" class="LineNr">3077 </span> <span class="subxComment">#</span> -<span id="L3078" class="LineNr">3078 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3079" class="LineNr">3079 </span> 55/push-ebp -<span id="L3080" class="LineNr">3080 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3081" class="LineNr">3081 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3082" class="LineNr">3082 </span> 50/push-eax -<span id="L3083" class="LineNr">3083 </span> 51/push-ecx -<span id="L3084" class="LineNr">3084 </span> 52/push-edx -<span id="L3085" class="LineNr">3085 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L3086" class="LineNr">3086 </span> 68/push 0/imm32/end -<span id="L3087" class="LineNr">3087 </span> 68/push 0/imm32/start -<span id="L3088" class="LineNr">3088 </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="L3089" class="LineNr">3089 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L3090" class="LineNr">3090 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3091" class="LineNr">3091 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3092" class="LineNr">3092 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3093" class="LineNr">3093 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L3094" class="LineNr">3094 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3095" class="LineNr">3095 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3096" class="Folded">3096 </span><span class="Folded">+-- 26 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3122" class="LineNr">3122 </span><span class="Constant">$emit-imm:loop</span>: -<span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L3124" class="LineNr">3124 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3125" class="LineNr">3125 </span> 51/push-ecx -<span id="L3126" class="LineNr">3126 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3128" class="LineNr">3128 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L3129" class="LineNr">3129 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3130" class="LineNr">3130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3131" class="Folded">3131 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3171" class="LineNr">3171 </span><span class="Constant">$emit-imm:check0</span>: -<span id="L3172" class="LineNr">3172 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L3173" class="LineNr">3173 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L3174" class="LineNr">3174 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3175" class="LineNr">3175 </span> 51/push-ecx -<span id="L3176" class="LineNr">3176 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3177" class="LineNr">3177 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L3178" class="LineNr">3178 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3179" class="LineNr">3179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3180" class="LineNr">3180 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L3181" class="LineNr">3181 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3182" class="LineNr">3182 </span> 0f 85/jump-if-!= $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3183" class="LineNr">3183 </span><span class="Constant">$emit-imm:check1</span>: -<span id="L3184" class="LineNr">3184 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L3185" class="LineNr">3185 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = slice->start</span> -<span id="L3186" class="LineNr">3186 </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="L3187" class="LineNr">3187 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L3188" class="LineNr">3188 </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="L3189" class="LineNr">3189 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L3190" class="LineNr">3190 </span> <span class="subxS1Comment"># . if (c == '#') break</span> -<span id="L3191" class="LineNr">3191 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L3192" class="LineNr">3192 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3193" class="LineNr">3193 </span><span class="Constant">$emit-imm:check-for-imm32</span>: -<span id="L3194" class="LineNr">3194 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> -<span id="L3195" class="LineNr">3195 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> -<span id="L3196" class="LineNr">3196 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3197" class="LineNr">3197 </span> 68/push <span class="Constant">"imm32"</span>/imm32 -<span id="L3198" class="LineNr">3198 </span> 51/push-ecx -<span id="L3199" class="LineNr">3199 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3200" class="LineNr">3200 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3201" class="LineNr">3201 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3202" class="LineNr">3202 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3203" class="LineNr">3203 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3204" class="LineNr">3204 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3205" class="LineNr">3205 </span> 74/jump-if-= $emit-imm:check-for-imm16/disp8 -<span id="L3206" class="LineNr">3206 </span><span class="Constant">$emit-imm:imm32</span>: -<span id="L3207" class="LineNr">3207 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L3208" class="LineNr">3208 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3209" class="LineNr">3209 </span> 68/push 4/imm32 -<span id="L3210" class="LineNr">3210 </span> 51/push-ecx -<span id="L3211" class="LineNr">3211 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3212" class="LineNr">3212 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3213" class="LineNr">3213 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3214" class="LineNr">3214 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3215" class="LineNr">3215 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3216" class="LineNr">3216 </span> <span class="subxComment"># break</span> -<span id="L3217" class="LineNr">3217 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3218" class="LineNr">3218 </span><span class="Constant">$emit-imm:check-for-imm16</span>: -<span id="L3219" class="LineNr">3219 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm16"))</span> -<span id="L3220" class="LineNr">3220 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm16")</span> -<span id="L3221" class="LineNr">3221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3222" class="LineNr">3222 </span> 68/push <span class="Constant">"imm16"</span>/imm32 -<span id="L3223" class="LineNr">3223 </span> 51/push-ecx -<span id="L3224" class="LineNr">3224 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3225" class="LineNr">3225 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3226" class="LineNr">3226 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3227" class="LineNr">3227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3228" class="LineNr">3228 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3229" class="LineNr">3229 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3230" class="LineNr">3230 </span> 74/jump-if-= $emit-imm:check-for-imm8/disp8 -<span id="L3231" class="LineNr">3231 </span><span class="Constant">$emit-imm:imm16</span>: -<span id="L3232" class="LineNr">3232 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3233" class="LineNr">3233 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3234" class="LineNr">3234 </span> 68/push 2/imm32 -<span id="L3235" class="LineNr">3235 </span> 51/push-ecx -<span id="L3236" class="LineNr">3236 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3237" class="LineNr">3237 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3238" class="LineNr">3238 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3239" class="LineNr">3239 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3240" class="LineNr">3240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3241" class="LineNr">3241 </span> <span class="subxComment"># break</span> -<span id="L3242" class="LineNr">3242 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3243" class="LineNr">3243 </span><span class="Constant">$emit-imm:check-for-imm8</span>: -<span id="L3244" class="LineNr">3244 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8"))</span> -<span id="L3245" class="LineNr">3245 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm8")</span> -<span id="L3246" class="LineNr">3246 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3247" class="LineNr">3247 </span> 68/push <span class="Constant">"imm8"</span>/imm32 -<span id="L3248" class="LineNr">3248 </span> 51/push-ecx -<span id="L3249" class="LineNr">3249 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3250" class="LineNr">3250 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3251" class="LineNr">3251 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3252" class="LineNr">3252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3253" class="LineNr">3253 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L3254" class="LineNr">3254 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3255" class="LineNr">3255 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">loop</span>/disp32 -<span id="L3256" class="LineNr">3256 </span><span class="Constant">$emit-imm:imm8</span>: -<span id="L3257" class="LineNr">3257 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3258" class="LineNr">3258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3259" class="LineNr">3259 </span> 68/push 1/imm32 -<span id="L3260" class="LineNr">3260 </span> 51/push-ecx -<span id="L3261" class="LineNr">3261 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3262" class="LineNr">3262 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3263" class="LineNr">3263 </span> e8/call <a href='../130emit.subx.html#L10'>emit</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3266" class="LineNr">3266 </span> <span class="subxComment"># break</span> -<span id="L3267" class="LineNr">3267 </span><span class="Constant">$emit-imm:break</span>: -<span id="L3268" class="LineNr">3268 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L3269" class="LineNr">3269 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3270" class="LineNr">3270 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3271" class="LineNr">3271 </span> 5a/pop-to-edx -<span id="L3272" class="LineNr">3272 </span> 59/pop-to-ecx -<span id="L3273" class="LineNr">3273 </span> 58/pop-to-eax -<span id="L3274" class="LineNr">3274 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3275" class="LineNr">3275 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3276" class="LineNr">3276 </span> 5d/pop-to-ebp -<span id="L3277" class="LineNr">3277 </span> c3/return -<span id="L3278" class="LineNr">3278 </span> -<span id="L3279" class="LineNr">3279 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L3280" class="LineNr">3280 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3281" class="LineNr">3281 </span> 55/push-ebp -<span id="L3282" class="LineNr">3282 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3283" class="LineNr">3283 </span> <span class="subxComment"># write-buffered(out, " # ")</span> -<span id="L3284" class="LineNr">3284 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3285" class="LineNr">3285 </span> 68/push <span class="Constant">" # "</span>/imm32 -<span id="L3286" class="LineNr">3286 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3287" class="LineNr">3287 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3288" class="LineNr">3288 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3290" class="LineNr">3290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3291" class="LineNr">3291 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L3292" class="LineNr">3292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3293" class="LineNr">3293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3294" class="LineNr">3294 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3296" class="LineNr">3296 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L3297" class="LineNr">3297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3298" class="LineNr">3298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3299" class="LineNr">3299 </span><span class="Constant">$emit-line-in-comment:end</span>: -<span id="L3300" class="LineNr">3300 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3301" class="LineNr">3301 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3302" class="LineNr">3302 </span> 5d/pop-to-ebp -<span id="L3303" class="LineNr">3303 </span> c3/return -<span id="L3304" class="LineNr">3304 </span> -<span id="L3305" class="LineNr">3305 </span><span class="subxTest">test-convert-instruction-passes-comments-through</span>: -<span id="L3306" class="LineNr">3306 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> -<span id="L3307" class="LineNr">3307 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3308" class="LineNr">3308 </span> 55/push-ebp -<span id="L3309" class="LineNr">3309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3310" class="LineNr">3310 </span> <span class="subxComment"># setup</span> -<span id="L3311" class="LineNr">3311 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3312" class="LineNr">3312 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3313" class="LineNr">3313 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3315" class="LineNr">3315 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3317" class="LineNr">3317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3318" class="LineNr">3318 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3319" class="LineNr">3319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3320" class="LineNr">3320 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3321" class="LineNr">3321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3322" class="LineNr">3322 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3323" class="LineNr">3323 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3324" class="LineNr">3324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3325" class="LineNr">3325 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3326" class="LineNr">3326 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3327" class="LineNr">3327 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3328" class="LineNr">3328 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3329" class="LineNr">3329 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3330" class="LineNr">3330 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3331" class="LineNr">3331 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3332" class="LineNr">3332 </span> <span class="subxComment"># initialize input</span> -<span id="L3333" class="LineNr">3333 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> -<span id="L3334" class="LineNr">3334 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3335" class="LineNr">3335 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L3336" class="LineNr">3336 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3337" class="LineNr">3337 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3338" class="LineNr">3338 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3339" class="LineNr">3339 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3340" class="LineNr">3340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3341" class="LineNr">3341 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3342" class="LineNr">3342 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3343" class="LineNr">3343 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3344" class="LineNr">3344 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3345" class="LineNr">3345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3346" class="LineNr">3346 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3347" class="LineNr">3347 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3348" class="LineNr">3348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3349" class="LineNr">3349 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L3350" class="LineNr">3350 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3351" class="LineNr">3351 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3352" class="LineNr">3352 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3354" class="LineNr">3354 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3355" class="LineNr">3355 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3356" class="LineNr">3356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3357" class="LineNr">3357 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> -<span id="L3358" class="LineNr">3358 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3359" class="LineNr">3359 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-comments-through"</span>/imm32 -<span id="L3360" class="LineNr">3360 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L3361" class="LineNr">3361 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3362" class="LineNr">3362 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3363" class="LineNr">3363 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3364" class="LineNr">3364 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3365" class="LineNr">3365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3366" class="LineNr">3366 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3367" class="LineNr">3367 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3368" class="LineNr">3368 </span> 5d/pop-to-ebp -<span id="L3369" class="LineNr">3369 </span> c3/return -<span id="L3370" class="LineNr">3370 </span> -<span id="L3371" class="LineNr">3371 </span><span class="subxTest">test-convert-instruction-passes-labels-through</span>: -<span id="L3372" class="LineNr">3372 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> -<span id="L3373" class="LineNr">3373 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3374" class="LineNr">3374 </span> 55/push-ebp -<span id="L3375" class="LineNr">3375 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3376" class="LineNr">3376 </span> <span class="subxComment"># setup</span> -<span id="L3377" class="LineNr">3377 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3378" class="LineNr">3378 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3379" class="LineNr">3379 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3380" class="LineNr">3380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3381" class="LineNr">3381 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3382" class="LineNr">3382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3383" class="LineNr">3383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3384" class="LineNr">3384 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3385" class="LineNr">3385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3386" class="LineNr">3386 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3387" class="LineNr">3387 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3388" class="LineNr">3388 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3389" class="LineNr">3389 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3390" class="LineNr">3390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3391" class="LineNr">3391 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3392" class="LineNr">3392 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3393" class="LineNr">3393 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3394" class="LineNr">3394 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3395" class="LineNr">3395 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3396" class="LineNr">3396 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3397" class="LineNr">3397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3398" class="LineNr">3398 </span> <span class="subxComment"># initialize input</span> -<span id="L3399" class="LineNr">3399 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> -<span id="L3400" class="LineNr">3400 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3401" class="LineNr">3401 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L3402" class="LineNr">3402 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3403" class="LineNr">3403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3404" class="LineNr">3404 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3405" class="LineNr">3405 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3406" class="LineNr">3406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3407" class="LineNr">3407 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3408" class="LineNr">3408 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3409" class="LineNr">3409 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3410" class="LineNr">3410 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3411" class="LineNr">3411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3412" class="LineNr">3412 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3413" class="LineNr">3413 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3414" class="LineNr">3414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3415" class="LineNr">3415 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L3416" class="LineNr">3416 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3417" class="LineNr">3417 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3418" class="LineNr">3418 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3419" class="LineNr">3419 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3420" class="LineNr">3420 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3421" class="LineNr">3421 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3422" class="LineNr">3422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3423" class="LineNr">3423 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> -<span id="L3424" class="LineNr">3424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3425" class="LineNr">3425 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-labels-through"</span>/imm32 -<span id="L3426" class="LineNr">3426 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L3427" class="LineNr">3427 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3428" class="LineNr">3428 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3429" class="LineNr">3429 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3430" class="LineNr">3430 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3431" class="LineNr">3431 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3432" class="LineNr">3432 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3433" class="LineNr">3433 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3434" class="LineNr">3434 </span> 5d/pop-to-ebp -<span id="L3435" class="LineNr">3435 </span> c3/return -<span id="L3436" class="LineNr">3436 </span> -<span id="L3437" class="LineNr">3437 </span><span class="subxTest">test-convert-instruction-handles-single-opcode</span>: -<span id="L3438" class="LineNr">3438 </span> <span class="subxComment"># if the instruction consists of a single opcode, strip its metadata and pass it along</span> -<span id="L3439" class="LineNr">3439 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3440" class="LineNr">3440 </span> 55/push-ebp -<span id="L3441" class="LineNr">3441 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3442" class="LineNr">3442 </span> <span class="subxComment"># setup</span> -<span id="L3443" class="LineNr">3443 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3444" class="LineNr">3444 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3445" class="LineNr">3445 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3446" class="LineNr">3446 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3447" class="LineNr">3447 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3449" class="LineNr">3449 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3450" class="LineNr">3450 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3451" class="LineNr">3451 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3452" class="LineNr">3452 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3453" class="LineNr">3453 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3454" class="LineNr">3454 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3455" class="LineNr">3455 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3456" class="LineNr">3456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3457" class="LineNr">3457 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3458" class="LineNr">3458 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3459" class="LineNr">3459 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3460" class="LineNr">3460 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3461" class="LineNr">3461 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3462" class="LineNr">3462 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3463" class="LineNr">3463 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3464" class="LineNr">3464 </span> <span class="subxComment"># initialize input</span> -<span id="L3465" class="LineNr">3465 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/cd # comment")</span> -<span id="L3466" class="LineNr">3466 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3467" class="LineNr">3467 </span> 68/push <span class="Constant">"ab/cd # comment"</span>/imm32 -<span id="L3468" class="LineNr">3468 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3469" class="LineNr">3469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3470" class="LineNr">3470 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3471" class="LineNr">3471 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3472" class="LineNr">3472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3473" class="LineNr">3473 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3474" class="LineNr">3474 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3475" class="LineNr">3475 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3476" class="LineNr">3476 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3477" class="LineNr">3477 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3478" class="LineNr">3478 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3479" class="LineNr">3479 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3480" class="LineNr">3480 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3481" class="LineNr">3481 </span> <span class="subxComment"># check output</span> -<span id="L3482" class="LineNr">3482 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3483" class="LineNr">3483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3484" class="LineNr">3484 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3485" class="LineNr">3485 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3486" class="LineNr">3486 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3487" class="LineNr">3487 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3488" class="LineNr">3488 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3489" class="Folded">3489 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3515" class="LineNr">3515 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # ab/cd # comment", msg)</span> -<span id="L3516" class="LineNr">3516 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3517" class="LineNr">3517 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-single-opcode"</span>/imm32 -<span id="L3518" class="LineNr">3518 </span> 68/push <span class="Constant">"ab # ab/cd # comment"</span>/imm32 -<span id="L3519" class="LineNr">3519 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3520" class="LineNr">3520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3521" class="LineNr">3521 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3523" class="LineNr">3523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3524" class="LineNr">3524 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3525" class="LineNr">3525 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3526" class="LineNr">3526 </span> 5d/pop-to-ebp -<span id="L3527" class="LineNr">3527 </span> c3/return -<span id="L3528" class="LineNr">3528 </span> -<span id="L3529" class="LineNr">3529 </span><span class="subxTest">test-convert-instruction-handles-0f-opcode</span>: -<span id="L3530" class="LineNr">3530 </span> <span class="subxComment"># if the instruction starts with 0f opcode, include a second opcode</span> -<span id="L3531" class="LineNr">3531 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3532" class="LineNr">3532 </span> 55/push-ebp -<span id="L3533" class="LineNr">3533 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3534" class="LineNr">3534 </span> <span class="subxComment"># setup</span> -<span id="L3535" class="LineNr">3535 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3536" class="LineNr">3536 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3537" class="LineNr">3537 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3538" class="LineNr">3538 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3539" class="LineNr">3539 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3540" class="LineNr">3540 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3541" class="LineNr">3541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3542" class="LineNr">3542 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3543" class="LineNr">3543 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3544" class="LineNr">3544 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3545" class="LineNr">3545 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3546" class="LineNr">3546 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3547" class="LineNr">3547 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3548" class="LineNr">3548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3549" class="LineNr">3549 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3550" class="LineNr">3550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3551" class="LineNr">3551 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3552" class="LineNr">3552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3553" class="LineNr">3553 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3554" class="LineNr">3554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3555" class="LineNr">3555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3556" class="LineNr">3556 </span> <span class="subxComment"># initialize input</span> -<span id="L3557" class="LineNr">3557 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0f/m1 ab/m2 # comment")</span> -<span id="L3558" class="LineNr">3558 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3559" class="LineNr">3559 </span> 68/push <span class="Constant">"0f/m1 ab/m2 # comment"</span>/imm32 -<span id="L3560" class="LineNr">3560 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3561" class="LineNr">3561 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3562" class="LineNr">3562 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3563" class="LineNr">3563 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3564" class="LineNr">3564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3565" class="LineNr">3565 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3566" class="LineNr">3566 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3567" class="LineNr">3567 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3568" class="LineNr">3568 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3569" class="LineNr">3569 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3570" class="LineNr">3570 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3571" class="LineNr">3571 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3572" class="LineNr">3572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3573" class="LineNr">3573 </span> <span class="subxComment"># check output</span> -<span id="L3574" class="LineNr">3574 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3575" class="LineNr">3575 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3576" class="LineNr">3576 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3577" class="LineNr">3577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3578" class="LineNr">3578 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3579" class="LineNr">3579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3580" class="LineNr">3580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3581" class="Folded">3581 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3607" class="LineNr">3607 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0f ab # 0f/m1 ab/m2 # comment", msg)</span> -<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3609" class="LineNr">3609 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-0f-opcode"</span>/imm32 -<span id="L3610" class="LineNr">3610 </span> 68/push <span class="Constant">"0f ab # 0f/m1 ab/m2 # comment"</span>/imm32 -<span id="L3611" class="LineNr">3611 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3612" class="LineNr">3612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3613" class="LineNr">3613 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3614" class="LineNr">3614 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3615" class="LineNr">3615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3616" class="LineNr">3616 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3617" class="LineNr">3617 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3618" class="LineNr">3618 </span> 5d/pop-to-ebp -<span id="L3619" class="LineNr">3619 </span> c3/return -<span id="L3620" class="LineNr">3620 </span> -<span id="L3621" class="LineNr">3621 </span><span class="subxTest">test-convert-instruction-handles-f2-opcode</span>: -<span id="L3622" class="LineNr">3622 </span> <span class="subxComment"># if the instruction starts with f2 opcode, include a second opcode</span> -<span id="L3623" class="LineNr">3623 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3624" class="LineNr">3624 </span> 55/push-ebp -<span id="L3625" class="LineNr">3625 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3626" class="LineNr">3626 </span> <span class="subxComment"># setup</span> -<span id="L3627" class="LineNr">3627 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3628" class="LineNr">3628 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3629" class="LineNr">3629 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3630" class="LineNr">3630 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3631" class="LineNr">3631 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3632" class="LineNr">3632 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3633" class="LineNr">3633 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3634" class="LineNr">3634 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3636" class="LineNr">3636 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3638" class="LineNr">3638 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3639" class="LineNr">3639 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3640" class="LineNr">3640 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3641" class="LineNr">3641 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3642" class="LineNr">3642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3643" class="LineNr">3643 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3644" class="LineNr">3644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3645" class="LineNr">3645 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3646" class="LineNr">3646 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3647" class="LineNr">3647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3648" class="LineNr">3648 </span> <span class="subxComment"># initialize input</span> -<span id="L3649" class="LineNr">3649 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 # comment")</span> -<span id="L3650" class="LineNr">3650 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3651" class="LineNr">3651 </span> 68/push <span class="Constant">"f2/m1 ab/m2 # comment"</span>/imm32 -<span id="L3652" class="LineNr">3652 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3653" class="LineNr">3653 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3654" class="LineNr">3654 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3655" class="LineNr">3655 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3656" class="LineNr">3656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3657" class="LineNr">3657 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3658" class="LineNr">3658 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3659" class="LineNr">3659 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3660" class="LineNr">3660 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3661" class="LineNr">3661 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3662" class="LineNr">3662 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3664" class="LineNr">3664 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3665" class="LineNr">3665 </span> <span class="subxComment"># check output</span> -<span id="L3666" class="LineNr">3666 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3667" class="LineNr">3667 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3668" class="LineNr">3668 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3669" class="LineNr">3669 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3670" class="LineNr">3670 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3671" class="LineNr">3671 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3672" class="LineNr">3672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3673" class="Folded">3673 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3699" class="LineNr">3699 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 # comment", msg)</span> -<span id="L3700" class="LineNr">3700 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3701" class="LineNr">3701 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-opcode"</span>/imm32 -<span id="L3702" class="LineNr">3702 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 # comment"</span>/imm32 -<span id="L3703" class="LineNr">3703 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3704" class="LineNr">3704 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3705" class="LineNr">3705 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3706" class="LineNr">3706 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3707" class="LineNr">3707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3708" class="LineNr">3708 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3709" class="LineNr">3709 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3710" class="LineNr">3710 </span> 5d/pop-to-ebp -<span id="L3711" class="LineNr">3711 </span> c3/return -<span id="L3712" class="LineNr">3712 </span> -<span id="L3713" class="LineNr">3713 </span><span class="subxTest">test-convert-instruction-handles-f3-opcode</span>: -<span id="L3714" class="LineNr">3714 </span> <span class="subxComment"># if the instruction starts with f3 opcode, include a second opcode</span> -<span id="L3715" class="LineNr">3715 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3716" class="LineNr">3716 </span> 55/push-ebp -<span id="L3717" class="LineNr">3717 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3718" class="LineNr">3718 </span> <span class="subxComment"># setup</span> -<span id="L3719" class="LineNr">3719 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3720" class="LineNr">3720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3721" class="LineNr">3721 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3722" class="LineNr">3722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3723" class="LineNr">3723 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3724" class="LineNr">3724 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3725" class="LineNr">3725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3726" class="LineNr">3726 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3727" class="LineNr">3727 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3728" class="LineNr">3728 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3729" class="LineNr">3729 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3730" class="LineNr">3730 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3732" class="LineNr">3732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3733" class="LineNr">3733 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3734" class="LineNr">3734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3735" class="LineNr">3735 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3736" class="LineNr">3736 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3737" class="LineNr">3737 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3738" class="LineNr">3738 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3739" class="LineNr">3739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3740" class="LineNr">3740 </span> <span class="subxComment"># initialize input</span> -<span id="L3741" class="LineNr">3741 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 # comment")</span> -<span id="L3742" class="LineNr">3742 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3743" class="LineNr">3743 </span> 68/push <span class="Constant">"f3/m1 ab/m2 # comment"</span>/imm32 -<span id="L3744" class="LineNr">3744 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3745" class="LineNr">3745 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3746" class="LineNr">3746 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3747" class="LineNr">3747 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3748" class="LineNr">3748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3749" class="LineNr">3749 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3750" class="LineNr">3750 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3751" class="LineNr">3751 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3752" class="LineNr">3752 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3753" class="LineNr">3753 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3754" class="LineNr">3754 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3755" class="LineNr">3755 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3756" class="LineNr">3756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3757" class="LineNr">3757 </span> <span class="subxComment"># check output</span> -<span id="L3758" class="LineNr">3758 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3759" class="LineNr">3759 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3760" class="LineNr">3760 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3761" class="LineNr">3761 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3762" class="LineNr">3762 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3763" class="LineNr">3763 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3764" class="LineNr">3764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3765" class="Folded">3765 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3791" class="LineNr">3791 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 # comment", msg)</span> -<span id="L3792" class="LineNr">3792 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3793" class="LineNr">3793 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-opcode"</span>/imm32 -<span id="L3794" class="LineNr">3794 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 # comment"</span>/imm32 -<span id="L3795" class="LineNr">3795 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3796" class="LineNr">3796 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3797" class="LineNr">3797 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3798" class="LineNr">3798 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3799" class="LineNr">3799 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3800" class="LineNr">3800 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3801" class="LineNr">3801 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3802" class="LineNr">3802 </span> 5d/pop-to-ebp -<span id="L3803" class="LineNr">3803 </span> c3/return -<span id="L3804" class="LineNr">3804 </span> -<span id="L3805" class="LineNr">3805 </span><span class="subxTest">test-convert-instruction-handles-f2-0f-opcode</span>: -<span id="L3806" class="LineNr">3806 </span> <span class="subxComment"># if the instruction starts with f2 0f opcode, include a second opcode</span> -<span id="L3807" class="LineNr">3807 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3808" class="LineNr">3808 </span> 55/push-ebp -<span id="L3809" class="LineNr">3809 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3810" class="LineNr">3810 </span> <span class="subxComment"># setup</span> -<span id="L3811" class="LineNr">3811 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3812" class="LineNr">3812 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3813" class="LineNr">3813 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3814" class="LineNr">3814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3815" class="LineNr">3815 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3816" class="LineNr">3816 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3817" class="LineNr">3817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3818" class="LineNr">3818 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3820" class="LineNr">3820 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3821" class="LineNr">3821 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3822" class="LineNr">3822 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3823" class="LineNr">3823 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3824" class="LineNr">3824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3825" class="LineNr">3825 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3826" class="LineNr">3826 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3827" class="LineNr">3827 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3828" class="LineNr">3828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3829" class="LineNr">3829 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3830" class="LineNr">3830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3831" class="LineNr">3831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3832" class="LineNr">3832 </span> <span class="subxComment"># initialize input</span> -<span id="L3833" class="LineNr">3833 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 0f/m2 ab/m3 # comment")</span> -<span id="L3834" class="LineNr">3834 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3835" class="LineNr">3835 </span> 68/push <span class="Constant">"f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3836" class="LineNr">3836 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3837" class="LineNr">3837 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3838" class="LineNr">3838 </span> e8/call <a href='../108write.subx.html#L24'>write</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3841" class="LineNr">3841 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3842" class="LineNr">3842 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3843" class="LineNr">3843 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3844" class="LineNr">3844 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3845" class="LineNr">3845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3846" class="LineNr">3846 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3847" class="LineNr">3847 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3848" class="LineNr">3848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3849" class="LineNr">3849 </span> <span class="subxComment"># check output</span> -<span id="L3850" class="LineNr">3850 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3851" class="LineNr">3851 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3852" class="LineNr">3852 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3853" class="LineNr">3853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3854" class="LineNr">3854 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3855" class="LineNr">3855 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3856" class="LineNr">3856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3857" class="Folded">3857 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3883" class="LineNr">3883 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 0f ab # f2/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L3884" class="LineNr">3884 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3885" class="LineNr">3885 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-0f-opcode"</span>/imm32 -<span id="L3886" class="LineNr">3886 </span> 68/push <span class="Constant">"f2 0f ab # f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3887" class="LineNr">3887 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3888" class="LineNr">3888 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3889" class="LineNr">3889 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3890" class="LineNr">3890 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3891" class="LineNr">3891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3892" class="LineNr">3892 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3893" class="LineNr">3893 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3894" class="LineNr">3894 </span> 5d/pop-to-ebp -<span id="L3895" class="LineNr">3895 </span> c3/return -<span id="L3896" class="LineNr">3896 </span> -<span id="L3897" class="LineNr">3897 </span><span class="subxTest">test-convert-instruction-handles-f3-0f-opcode</span>: -<span id="L3898" class="LineNr">3898 </span> <span class="subxComment"># if the instruction starts with f3 0f opcode, include a second opcode</span> -<span id="L3899" class="LineNr">3899 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3900" class="LineNr">3900 </span> 55/push-ebp -<span id="L3901" class="LineNr">3901 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3902" class="LineNr">3902 </span> <span class="subxComment"># setup</span> -<span id="L3903" class="LineNr">3903 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3904" class="LineNr">3904 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3905" class="LineNr">3905 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3906" class="LineNr">3906 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3907" class="LineNr">3907 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3908" class="LineNr">3908 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3909" class="LineNr">3909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3910" class="LineNr">3910 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3911" class="LineNr">3911 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3912" class="LineNr">3912 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3913" class="LineNr">3913 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3914" class="LineNr">3914 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3915" class="LineNr">3915 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3916" class="LineNr">3916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3917" class="LineNr">3917 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3918" class="LineNr">3918 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3919" class="LineNr">3919 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3920" class="LineNr">3920 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3921" class="LineNr">3921 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3922" class="LineNr">3922 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3923" class="LineNr">3923 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3924" class="LineNr">3924 </span> <span class="subxComment"># initialize input</span> -<span id="L3925" class="LineNr">3925 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 0f/m2 ab/m3 # comment")</span> -<span id="L3926" class="LineNr">3926 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3927" class="LineNr">3927 </span> 68/push <span class="Constant">"f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3928" class="LineNr">3928 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3929" class="LineNr">3929 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3930" class="LineNr">3930 </span> e8/call <a href='../108write.subx.html#L24'>write</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3933" class="LineNr">3933 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3934" class="LineNr">3934 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3935" class="LineNr">3935 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3936" class="LineNr">3936 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3937" class="LineNr">3937 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3938" class="LineNr">3938 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3939" class="LineNr">3939 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3940" class="LineNr">3940 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3941" class="LineNr">3941 </span> <span class="subxComment"># check output</span> -<span id="L3942" class="LineNr">3942 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3943" class="LineNr">3943 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3944" class="LineNr">3944 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3945" class="LineNr">3945 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3946" class="LineNr">3946 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3947" class="LineNr">3947 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3948" class="LineNr">3948 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3949" class="Folded">3949 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3975" class="LineNr">3975 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 0f ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L3976" class="LineNr">3976 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3977" class="LineNr">3977 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-0f-opcode"</span>/imm32 -<span id="L3978" class="LineNr">3978 </span> 68/push <span class="Constant">"f3 0f ab # f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3979" class="LineNr">3979 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3980" class="LineNr">3980 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3981" class="LineNr">3981 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3982" class="LineNr">3982 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3983" class="LineNr">3983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3984" class="LineNr">3984 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3985" class="LineNr">3985 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3986" class="LineNr">3986 </span> 5d/pop-to-ebp -<span id="L3987" class="LineNr">3987 </span> c3/return -<span id="L3988" class="LineNr">3988 </span> -<span id="L3989" class="LineNr">3989 </span><span class="subxTest">test-convert-instruction-handles-unused-opcodes</span>: -<span id="L3990" class="LineNr">3990 </span> <span class="subxComment"># if the instruction doesn't start with f2, f3 or 0f, don't include other opcodes</span> -<span id="L3991" class="LineNr">3991 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3992" class="LineNr">3992 </span> 55/push-ebp -<span id="L3993" class="LineNr">3993 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3994" class="LineNr">3994 </span> <span class="subxComment"># setup</span> -<span id="L3995" class="LineNr">3995 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3996" class="LineNr">3996 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3997" class="LineNr">3997 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3998" class="LineNr">3998 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3999" class="LineNr">3999 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4000" class="LineNr">4000 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4001" class="LineNr">4001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4002" class="LineNr">4002 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4003" class="LineNr">4003 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4004" class="LineNr">4004 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4005" class="LineNr">4005 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4006" class="LineNr">4006 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4007" class="LineNr">4007 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4008" class="LineNr">4008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4009" class="LineNr">4009 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4010" class="LineNr">4010 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4011" class="LineNr">4011 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4012" class="LineNr">4012 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4013" class="LineNr">4013 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4014" class="LineNr">4014 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4015" class="LineNr">4015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4016" class="LineNr">4016 </span> <span class="subxComment"># initialize input</span> -<span id="L4017" class="LineNr">4017 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/m1 cd/m2 # comment")</span> -<span id="L4018" class="LineNr">4018 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4019" class="LineNr">4019 </span> 68/push <span class="Constant">"ab/m1 cd/m2 # comment"</span>/imm32 -<span id="L4020" class="LineNr">4020 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4021" class="LineNr">4021 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4022" class="LineNr">4022 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4023" class="LineNr">4023 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4024" class="LineNr">4024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4025" class="LineNr">4025 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4026" class="LineNr">4026 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4027" class="LineNr">4027 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4028" class="LineNr">4028 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4029" class="LineNr">4029 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4030" class="LineNr">4030 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4031" class="LineNr">4031 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4032" class="LineNr">4032 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4033" class="LineNr">4033 </span> <span class="subxComment"># check output</span> -<span id="L4034" class="LineNr">4034 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4035" class="LineNr">4035 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4036" class="LineNr">4036 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4037" class="LineNr">4037 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4038" class="LineNr">4038 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4039" class="LineNr">4039 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4040" class="LineNr">4040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4041" class="Folded">4041 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4067" class="LineNr">4067 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L4068" class="LineNr">4068 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4069" class="LineNr">4069 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-opcodes"</span>/imm32 -<span id="L4070" class="LineNr">4070 </span> 68/push <span class="Constant">"ab # ab/m1 cd/m2 # comment"</span>/imm32 -<span id="L4071" class="LineNr">4071 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4072" class="LineNr">4072 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4073" class="LineNr">4073 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4075" class="LineNr">4075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4076" class="LineNr">4076 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4077" class="LineNr">4077 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4078" class="LineNr">4078 </span> 5d/pop-to-ebp -<span id="L4079" class="LineNr">4079 </span> c3/return -<span id="L4080" class="LineNr">4080 </span> -<span id="L4081" class="LineNr">4081 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes</span>: -<span id="L4082" class="LineNr">4082 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> -<span id="L4083" class="LineNr">4083 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4084" class="LineNr">4084 </span> 55/push-ebp -<span id="L4085" class="LineNr">4085 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4086" class="LineNr">4086 </span> <span class="subxComment"># setup</span> -<span id="L4087" class="LineNr">4087 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4088" class="LineNr">4088 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4089" class="LineNr">4089 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4090" class="LineNr">4090 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4091" class="LineNr">4091 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4092" class="LineNr">4092 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4093" class="LineNr">4093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4094" class="LineNr">4094 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4095" class="LineNr">4095 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4096" class="LineNr">4096 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4097" class="LineNr">4097 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4098" class="LineNr">4098 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4099" class="LineNr">4099 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4100" class="LineNr">4100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4101" class="LineNr">4101 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4102" class="LineNr">4102 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4103" class="LineNr">4103 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4104" class="LineNr">4104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4105" class="LineNr">4105 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4106" class="LineNr">4106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4107" class="LineNr">4107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4108" class="LineNr">4108 </span> <span class="subxComment"># initialize input</span> -<span id="L4109" class="LineNr">4109 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 cd/m3 # comment")</span> -<span id="L4110" class="LineNr">4110 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4111" class="LineNr">4111 </span> 68/push <span class="Constant">"f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4112" class="LineNr">4112 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4113" class="LineNr">4113 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4114" class="LineNr">4114 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4115" class="LineNr">4115 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4116" class="LineNr">4116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4117" class="LineNr">4117 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4118" class="LineNr">4118 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4119" class="LineNr">4119 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4120" class="LineNr">4120 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4121" class="LineNr">4121 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4122" class="LineNr">4122 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4123" class="LineNr">4123 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4124" class="LineNr">4124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4125" class="LineNr">4125 </span> <span class="subxComment"># check output</span> -<span id="L4126" class="LineNr">4126 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4127" class="LineNr">4127 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4128" class="LineNr">4128 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4129" class="LineNr">4129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4130" class="LineNr">4130 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4131" class="LineNr">4131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4132" class="LineNr">4132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4133" class="Folded">4133 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4159" class="LineNr">4159 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 cd/m3 # comment", msg)</span> -<span id="L4160" class="LineNr">4160 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4161" class="LineNr">4161 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 -<span id="L4162" class="LineNr">4162 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4163" class="LineNr">4163 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4164" class="LineNr">4164 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4165" class="LineNr">4165 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4166" class="LineNr">4166 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4167" class="LineNr">4167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4168" class="LineNr">4168 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4169" class="LineNr">4169 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</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-instruction-handles-unused-second-opcodes-2</span>: -<span id="L4174" class="LineNr">4174 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> -<span id="L4175" class="LineNr">4175 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4176" class="LineNr">4176 </span> 55/push-ebp -<span id="L4177" class="LineNr">4177 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4178" class="LineNr">4178 </span> <span class="subxComment"># setup</span> -<span id="L4179" class="LineNr">4179 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4180" class="LineNr">4180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4181" class="LineNr">4181 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4182" class="LineNr">4182 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4183" class="LineNr">4183 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4184" class="LineNr">4184 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4185" class="LineNr">4185 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4186" class="LineNr">4186 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4187" class="LineNr">4187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4188" class="LineNr">4188 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4189" class="LineNr">4189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4190" class="LineNr">4190 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4191" class="LineNr">4191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4192" class="LineNr">4192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4193" class="LineNr">4193 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4194" class="LineNr">4194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4195" class="LineNr">4195 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4196" class="LineNr">4196 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4197" class="LineNr">4197 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4198" class="LineNr">4198 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4199" class="LineNr">4199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4200" class="LineNr">4200 </span> <span class="subxComment"># initialize input</span> -<span id="L4201" class="LineNr">4201 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 cd/m3 # comment")</span> -<span id="L4202" class="LineNr">4202 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4203" class="LineNr">4203 </span> 68/push <span class="Constant">"f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4204" class="LineNr">4204 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4205" class="LineNr">4205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4206" class="LineNr">4206 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4207" class="LineNr">4207 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4208" class="LineNr">4208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4209" class="LineNr">4209 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4210" class="LineNr">4210 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4211" class="LineNr">4211 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4212" class="LineNr">4212 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4213" class="LineNr">4213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4214" class="LineNr">4214 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4215" class="LineNr">4215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4216" class="LineNr">4216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4217" class="LineNr">4217 </span> <span class="subxComment"># check output</span> -<span id="L4218" class="LineNr">4218 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4219" class="LineNr">4219 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4220" class="LineNr">4220 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4221" class="LineNr">4221 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4222" class="LineNr">4222 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4223" class="LineNr">4223 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4224" class="LineNr">4224 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4225" class="Folded">4225 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4251" class="LineNr">4251 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 cd/m3 # comment", msg)</span> -<span id="L4252" class="LineNr">4252 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4253" class="LineNr">4253 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 -<span id="L4254" class="LineNr">4254 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4255" class="LineNr">4255 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4256" class="LineNr">4256 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4257" class="LineNr">4257 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4258" class="LineNr">4258 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4259" class="LineNr">4259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4260" class="LineNr">4260 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4261" class="LineNr">4261 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4262" class="LineNr">4262 </span> 5d/pop-to-ebp -<span id="L4263" class="LineNr">4263 </span> c3/return -<span id="L4264" class="LineNr">4264 </span> -<span id="L4265" class="LineNr">4265 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte</span>: -<span id="L4266" class="LineNr">4266 </span> <span class="subxComment"># pack mod, rm32 and r32 operands into ModR/M byte</span> -<span id="L4267" class="LineNr">4267 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4268" class="LineNr">4268 </span> 55/push-ebp -<span id="L4269" class="LineNr">4269 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4270" class="LineNr">4270 </span> <span class="subxComment"># setup</span> -<span id="L4271" class="LineNr">4271 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4272" class="LineNr">4272 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4273" class="LineNr">4273 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4274" class="LineNr">4274 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4275" class="LineNr">4275 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4276" class="LineNr">4276 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4277" class="LineNr">4277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4278" class="LineNr">4278 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4280" class="LineNr">4280 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4281" class="LineNr">4281 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4282" class="LineNr">4282 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4283" class="LineNr">4283 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4284" class="LineNr">4284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4285" class="LineNr">4285 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4286" class="LineNr">4286 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4287" class="LineNr">4287 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4288" class="LineNr">4288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4289" class="LineNr">4289 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4290" class="LineNr">4290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4291" class="LineNr">4291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4292" class="LineNr">4292 </span> <span class="subxComment"># initialize input</span> -<span id="L4293" class="LineNr">4293 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32 1/r32")</span> -<span id="L4294" class="LineNr">4294 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4295" class="LineNr">4295 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 -<span id="L4296" class="LineNr">4296 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4297" class="LineNr">4297 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4298" class="LineNr">4298 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4299" class="LineNr">4299 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4300" class="LineNr">4300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4301" class="LineNr">4301 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4302" class="LineNr">4302 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4303" class="LineNr">4303 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4304" class="LineNr">4304 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4305" class="LineNr">4305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4306" class="LineNr">4306 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4307" class="LineNr">4307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4308" class="LineNr">4308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4309" class="LineNr">4309 </span> <span class="subxComment"># check output</span> -<span id="L4310" class="LineNr">4310 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4311" class="LineNr">4311 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4312" class="LineNr">4312 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4313" class="LineNr">4313 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4314" class="LineNr">4314 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4315" class="LineNr">4315 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4316" class="LineNr">4316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4317" class="Folded">4317 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4343" class="LineNr">4343 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 0/rm32 1/r32", msg)</span> -<span id="L4344" class="LineNr">4344 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4345" class="LineNr">4345 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte"</span>/imm32 -<span id="L4346" class="LineNr">4346 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 -<span id="L4347" class="LineNr">4347 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4348" class="LineNr">4348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4349" class="LineNr">4349 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4350" class="LineNr">4350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4351" class="LineNr">4351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4352" class="LineNr">4352 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4353" class="LineNr">4353 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4354" class="LineNr">4354 </span> 5d/pop-to-ebp -<span id="L4355" class="LineNr">4355 </span> c3/return -<span id="L4356" class="LineNr">4356 </span> -<span id="L4357" class="LineNr">4357 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-non-zero-mod</span>: -<span id="L4358" class="LineNr">4358 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4359" class="LineNr">4359 </span> 55/push-ebp -<span id="L4360" class="LineNr">4360 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4361" class="LineNr">4361 </span> <span class="subxComment"># setup</span> -<span id="L4362" class="LineNr">4362 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4363" class="LineNr">4363 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4364" class="LineNr">4364 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4365" class="LineNr">4365 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4366" class="LineNr">4366 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4367" class="LineNr">4367 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4368" class="LineNr">4368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4369" class="LineNr">4369 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4370" class="LineNr">4370 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4371" class="LineNr">4371 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4372" class="LineNr">4372 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4373" class="LineNr">4373 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4374" class="LineNr">4374 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4375" class="LineNr">4375 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4376" class="LineNr">4376 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4377" class="LineNr">4377 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4378" class="LineNr">4378 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4379" class="LineNr">4379 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4380" class="LineNr">4380 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4381" class="LineNr">4381 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4382" class="LineNr">4382 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4383" class="LineNr">4383 </span> <span class="subxComment"># initialize input</span> -<span id="L4384" class="LineNr">4384 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx")</span> -<span id="L4385" class="LineNr">4385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4386" class="LineNr">4386 </span> 68/push <span class="Constant">"01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 -<span id="L4387" class="LineNr">4387 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4388" class="LineNr">4388 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4389" class="LineNr">4389 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4390" class="LineNr">4390 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4391" class="LineNr">4391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4392" class="LineNr">4392 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4393" class="LineNr">4393 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4394" class="LineNr">4394 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4395" class="LineNr">4395 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4396" class="LineNr">4396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4397" class="LineNr">4397 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4398" class="LineNr">4398 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4399" class="LineNr">4399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4400" class="LineNr">4400 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4401" class="LineNr">4401 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4402" class="LineNr">4402 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4403" class="LineNr">4403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4404" class="LineNr">4404 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4405" class="LineNr">4405 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4406" class="LineNr">4406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4407" class="Folded">4407 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4433" class="LineNr">4433 </span> <span class="subxComment"># check output</span> -<span id="L4434" class="LineNr">4434 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> -<span id="L4435" class="LineNr">4435 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4436" class="LineNr">4436 </span> 68/push <span class="Constant">"F - test-convert-instruction-foo"</span>/imm32 -<span id="L4437" class="LineNr">4437 </span> 68/push <span class="Constant">"01 cb # 01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 -<span id="L4438" class="LineNr">4438 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4439" class="LineNr">4439 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4440" class="LineNr">4440 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4441" class="LineNr">4441 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4442" class="LineNr">4442 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4443" class="LineNr">4443 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4444" class="LineNr">4444 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4445" class="LineNr">4445 </span> 5d/pop-to-ebp -<span id="L4446" class="LineNr">4446 </span> c3/return -<span id="L4447" class="LineNr">4447 </span> -<span id="L4448" class="LineNr">4448 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-from-subop</span>: -<span id="L4449" class="LineNr">4449 </span> <span class="subxComment"># pack mod, rm32 and subop operands into ModR/M byte</span> -<span id="L4450" class="LineNr">4450 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4451" class="LineNr">4451 </span> 55/push-ebp -<span id="L4452" class="LineNr">4452 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4453" class="LineNr">4453 </span> <span class="subxComment"># setup</span> -<span id="L4454" class="LineNr">4454 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4455" class="LineNr">4455 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4456" class="LineNr">4456 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4457" class="LineNr">4457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4458" class="LineNr">4458 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4459" class="LineNr">4459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4460" class="LineNr">4460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4461" class="LineNr">4461 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4462" class="LineNr">4462 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4463" class="LineNr">4463 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4465" class="LineNr">4465 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4466" class="LineNr">4466 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4467" class="LineNr">4467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4468" class="LineNr">4468 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4469" class="LineNr">4469 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4470" class="LineNr">4470 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4471" class="LineNr">4471 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4472" class="LineNr">4472 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4473" class="LineNr">4473 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4474" class="LineNr">4474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4475" class="LineNr">4475 </span> <span class="subxComment"># initialize input</span> -<span id="L4476" class="LineNr">4476 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ff 6/subop/push 0/mod 0/rm32")</span> -<span id="L4477" class="LineNr">4477 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4478" class="LineNr">4478 </span> 68/push <span class="Constant">"ff 6/subop/push 0/mod 0/rm32"</span>/imm32 -<span id="L4479" class="LineNr">4479 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4480" class="LineNr">4480 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4481" class="LineNr">4481 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4482" class="LineNr">4482 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4483" class="LineNr">4483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4484" class="LineNr">4484 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4485" class="LineNr">4485 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4486" class="LineNr">4486 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4487" class="LineNr">4487 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4488" class="LineNr">4488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4489" class="LineNr">4489 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4490" class="LineNr">4490 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4491" class="LineNr">4491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4492" class="LineNr">4492 </span> <span class="subxComment"># check output</span> -<span id="L4493" class="LineNr">4493 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4494" class="LineNr">4494 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4495" class="LineNr">4495 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4496" class="LineNr">4496 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4497" class="LineNr">4497 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4498" class="LineNr">4498 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4499" class="LineNr">4499 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4500" class="Folded">4500 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4526" class="LineNr">4526 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ff 30 # ff 6/subop/push 0/mod 0/rm32", msg)</span> -<span id="L4527" class="LineNr">4527 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4528" class="LineNr">4528 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-from-subop"</span>/imm32 -<span id="L4529" class="LineNr">4529 </span> 68/push <span class="Constant">"ff 30 # ff 6/subop/push 0/mod 0/rm32"</span>/imm32 -<span id="L4530" class="LineNr">4530 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4531" class="LineNr">4531 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4532" class="LineNr">4532 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4533" class="LineNr">4533 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4534" class="LineNr">4534 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4535" class="LineNr">4535 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4536" class="LineNr">4536 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<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-convert-instruction-emits-modrm-byte-with-missing-mod</span>: -<span id="L4541" class="LineNr">4541 </span> <span class="subxComment"># pack rm32 and r32 operands into ModR/M byte</span> -<span id="L4542" class="LineNr">4542 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4543" class="LineNr">4543 </span> 55/push-ebp -<span id="L4544" class="LineNr">4544 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4545" class="LineNr">4545 </span> <span class="subxComment"># setup</span> -<span id="L4546" class="LineNr">4546 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4547" class="LineNr">4547 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4548" class="LineNr">4548 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4549" class="LineNr">4549 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4550" class="LineNr">4550 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4551" class="LineNr">4551 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4552" class="LineNr">4552 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4553" class="LineNr">4553 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4554" class="LineNr">4554 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4555" class="LineNr">4555 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4556" class="LineNr">4556 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4557" class="LineNr">4557 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4558" class="LineNr">4558 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4559" class="LineNr">4559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4560" class="LineNr">4560 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4561" class="LineNr">4561 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4562" class="LineNr">4562 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4563" class="LineNr">4563 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4564" class="LineNr">4564 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4565" class="LineNr">4565 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4566" class="LineNr">4566 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4567" class="LineNr">4567 </span> <span class="subxComment"># initialize input</span> -<span id="L4568" class="LineNr">4568 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/rm32 1/r32")</span> -<span id="L4569" class="LineNr">4569 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4570" class="LineNr">4570 </span> 68/push <span class="Constant">"8b/copy 0/rm32 1/r32"</span>/imm32 -<span id="L4571" class="LineNr">4571 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4572" class="LineNr">4572 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4573" class="LineNr">4573 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4574" class="LineNr">4574 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4575" class="LineNr">4575 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4576" class="LineNr">4576 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4577" class="LineNr">4577 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4578" class="LineNr">4578 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4579" class="LineNr">4579 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4580" class="LineNr">4580 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4581" class="LineNr">4581 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4582" class="LineNr">4582 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4583" class="LineNr">4583 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4584" class="LineNr">4584 </span> <span class="subxComment"># check output</span> -<span id="L4585" class="LineNr">4585 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4586" class="LineNr">4586 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4587" class="LineNr">4587 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4588" class="LineNr">4588 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4589" class="LineNr">4589 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4590" class="LineNr">4590 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4591" class="LineNr">4591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4592" class="Folded">4592 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4618" class="LineNr">4618 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/rm32 1/r32", msg)</span> -<span id="L4619" class="LineNr">4619 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4620" class="LineNr">4620 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-mod"</span>/imm32 -<span id="L4621" class="LineNr">4621 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/rm32 1/r32"</span>/imm32 -<span id="L4622" class="LineNr">4622 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4623" class="LineNr">4623 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4624" class="LineNr">4624 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4625" class="LineNr">4625 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4626" class="LineNr">4626 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4627" class="LineNr">4627 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4628" class="LineNr">4628 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4629" class="LineNr">4629 </span> 5d/pop-to-ebp -<span id="L4630" class="LineNr">4630 </span> c3/return -<span id="L4631" class="LineNr">4631 </span> -<span id="L4632" class="LineNr">4632 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-rm32</span>: -<span id="L4633" class="LineNr">4633 </span> <span class="subxComment"># pack mod and r32 operands into ModR/M byte</span> -<span id="L4634" class="LineNr">4634 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4635" class="LineNr">4635 </span> 55/push-ebp -<span id="L4636" class="LineNr">4636 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4637" class="LineNr">4637 </span> <span class="subxComment"># setup</span> -<span id="L4638" class="LineNr">4638 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4639" class="LineNr">4639 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4640" class="LineNr">4640 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4642" class="LineNr">4642 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4644" class="LineNr">4644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4645" class="LineNr">4645 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4646" class="LineNr">4646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4647" class="LineNr">4647 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4648" class="LineNr">4648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4649" class="LineNr">4649 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4651" class="LineNr">4651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4652" class="LineNr">4652 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4653" class="LineNr">4653 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4654" class="LineNr">4654 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4655" class="LineNr">4655 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4656" class="LineNr">4656 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4657" class="LineNr">4657 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4658" class="LineNr">4658 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4659" class="LineNr">4659 </span> <span class="subxComment"># initialize input</span> -<span id="L4660" class="LineNr">4660 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 1/r32")</span> -<span id="L4661" class="LineNr">4661 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4662" class="LineNr">4662 </span> 68/push <span class="Constant">"8b/copy 0/mod 1/r32"</span>/imm32 -<span id="L4663" class="LineNr">4663 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4664" class="LineNr">4664 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4665" class="LineNr">4665 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4666" class="LineNr">4666 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4667" class="LineNr">4667 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4668" class="LineNr">4668 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4669" class="LineNr">4669 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4670" class="LineNr">4670 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4671" class="LineNr">4671 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4672" class="LineNr">4672 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4673" class="LineNr">4673 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4674" class="LineNr">4674 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4675" class="LineNr">4675 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4676" class="LineNr">4676 </span> <span class="subxComment"># check output</span> -<span id="L4677" class="LineNr">4677 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4678" class="LineNr">4678 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4679" class="LineNr">4679 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4680" class="LineNr">4680 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4681" class="LineNr">4681 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4682" class="LineNr">4682 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4683" class="LineNr">4683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4684" class="Folded">4684 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4710" class="LineNr">4710 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 1/r32", msg)</span> -<span id="L4711" class="LineNr">4711 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4712" class="LineNr">4712 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-rm32"</span>/imm32 -<span id="L4713" class="LineNr">4713 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 1/r32"</span>/imm32 -<span id="L4714" class="LineNr">4714 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4715" class="LineNr">4715 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4716" class="LineNr">4716 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4717" class="LineNr">4717 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4718" class="LineNr">4718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4719" class="LineNr">4719 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4720" class="LineNr">4720 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4721" class="LineNr">4721 </span> 5d/pop-to-ebp -<span id="L4722" class="LineNr">4722 </span> c3/return -<span id="L4723" class="LineNr">4723 </span> -<span id="L4724" class="LineNr">4724 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-r32</span>: -<span id="L4725" class="LineNr">4725 </span> <span class="subxComment"># pack mod and rm32 operands into ModR/M byte</span> -<span id="L4726" class="LineNr">4726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4727" class="LineNr">4727 </span> 55/push-ebp -<span id="L4728" class="LineNr">4728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4729" class="LineNr">4729 </span> <span class="subxComment"># setup</span> -<span id="L4730" class="LineNr">4730 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4731" class="LineNr">4731 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4732" class="LineNr">4732 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4733" class="LineNr">4733 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4734" class="LineNr">4734 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4735" class="LineNr">4735 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4736" class="LineNr">4736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4737" class="LineNr">4737 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4738" class="LineNr">4738 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4739" class="LineNr">4739 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4740" class="LineNr">4740 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4741" class="LineNr">4741 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4742" class="LineNr">4742 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4743" class="LineNr">4743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4744" class="LineNr">4744 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4745" class="LineNr">4745 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4746" class="LineNr">4746 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4747" class="LineNr">4747 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4748" class="LineNr">4748 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4749" class="LineNr">4749 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4750" class="LineNr">4750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4751" class="LineNr">4751 </span> <span class="subxComment"># initialize input</span> -<span id="L4752" class="LineNr">4752 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32")</span> -<span id="L4753" class="LineNr">4753 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4754" class="LineNr">4754 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32"</span>/imm32 -<span id="L4755" class="LineNr">4755 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4756" class="LineNr">4756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4757" class="LineNr">4757 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4758" class="LineNr">4758 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4759" class="LineNr">4759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4760" class="LineNr">4760 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4761" class="LineNr">4761 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4762" class="LineNr">4762 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4763" class="LineNr">4763 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4764" class="LineNr">4764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4765" class="LineNr">4765 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4766" class="LineNr">4766 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4767" class="LineNr">4767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4768" class="LineNr">4768 </span> <span class="subxComment"># check output</span> -<span id="L4769" class="LineNr">4769 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4770" class="LineNr">4770 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4771" class="LineNr">4771 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4772" class="LineNr">4772 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4773" class="LineNr">4773 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4774" class="LineNr">4774 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4775" class="LineNr">4775 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4776" class="Folded">4776 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4802" class="LineNr">4802 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 00 # 8b/copy 0/mod 0/rm32", msg)</span> -<span id="L4803" class="LineNr">4803 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4804" class="LineNr">4804 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-r32"</span>/imm32 -<span id="L4805" class="LineNr">4805 </span> 68/push <span class="Constant">"8b 00 # 8b/copy 0/mod 0/rm32"</span>/imm32 -<span id="L4806" class="LineNr">4806 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4807" class="LineNr">4807 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4808" class="LineNr">4808 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4809" class="LineNr">4809 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4810" class="LineNr">4810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4811" class="LineNr">4811 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4812" class="LineNr">4812 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4813" class="LineNr">4813 </span> 5d/pop-to-ebp -<span id="L4814" class="LineNr">4814 </span> c3/return -<span id="L4815" class="LineNr">4815 </span> -<span id="L4816" class="LineNr">4816 </span><span class="subxTest">test-convert-instruction-emits-sib-byte</span>: -<span id="L4817" class="LineNr">4817 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> -<span id="L4818" class="LineNr">4818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4819" class="LineNr">4819 </span> 55/push-ebp -<span id="L4820" class="LineNr">4820 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4821" class="LineNr">4821 </span> <span class="subxComment"># setup</span> -<span id="L4822" class="LineNr">4822 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4823" class="LineNr">4823 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4824" class="LineNr">4824 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4825" class="LineNr">4825 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4826" class="LineNr">4826 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4827" class="LineNr">4827 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4828" class="LineNr">4828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4829" class="LineNr">4829 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4830" class="LineNr">4830 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4831" class="LineNr">4831 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4832" class="LineNr">4832 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4833" class="LineNr">4833 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4834" class="LineNr">4834 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4835" class="LineNr">4835 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4836" class="LineNr">4836 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4837" class="LineNr">4837 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4838" class="LineNr">4838 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4839" class="LineNr">4839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4840" class="LineNr">4840 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4841" class="LineNr">4841 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4842" class="LineNr">4842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4843" class="LineNr">4843 </span> <span class="subxComment"># initialize input</span> -<span id="L4844" class="LineNr">4844 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale")</span> -<span id="L4845" class="LineNr">4845 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4846" class="LineNr">4846 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 -<span id="L4847" class="LineNr">4847 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4848" class="LineNr">4848 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4849" class="LineNr">4849 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4850" class="LineNr">4850 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4851" class="LineNr">4851 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4852" class="LineNr">4852 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4853" class="LineNr">4853 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4854" class="LineNr">4854 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4855" class="LineNr">4855 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4856" class="LineNr">4856 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4857" class="LineNr">4857 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4858" class="LineNr">4858 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4859" class="LineNr">4859 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4860" class="LineNr">4860 </span> <span class="subxComment"># check output</span> -<span id="L4861" class="LineNr">4861 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4862" class="LineNr">4862 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4863" class="LineNr">4863 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4864" class="LineNr">4864 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4865" class="LineNr">4865 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4866" class="LineNr">4866 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4867" class="LineNr">4867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4868" class="Folded">4868 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4894" class="LineNr">4894 </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="L4895" class="LineNr">4895 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4896" class="LineNr">4896 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte"</span>/imm32 -<span id="L4897" class="LineNr">4897 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 -<span id="L4898" class="LineNr">4898 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4899" class="LineNr">4899 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4900" class="LineNr">4900 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4901" class="LineNr">4901 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4902" class="LineNr">4902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4903" class="LineNr">4903 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4904" class="LineNr">4904 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4905" class="LineNr">4905 </span> 5d/pop-to-ebp -<span id="L4906" class="LineNr">4906 </span> c3/return -<span id="L4907" class="LineNr">4907 </span> -<span id="L4908" class="LineNr">4908 </span><span class="subxTest">test-convert-instruction-emits-scale</span>: -<span id="L4909" class="LineNr">4909 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> -<span id="L4910" class="LineNr">4910 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4911" class="LineNr">4911 </span> 55/push-ebp -<span id="L4912" class="LineNr">4912 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4913" class="LineNr">4913 </span> <span class="subxComment"># setup</span> -<span id="L4914" class="LineNr">4914 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4915" class="LineNr">4915 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4916" class="LineNr">4916 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4917" class="LineNr">4917 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4918" class="LineNr">4918 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4919" class="LineNr">4919 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4920" class="LineNr">4920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4921" class="LineNr">4921 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4922" class="LineNr">4922 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4923" class="LineNr">4923 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4924" class="LineNr">4924 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4925" class="LineNr">4925 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4926" class="LineNr">4926 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4927" class="LineNr">4927 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4928" class="LineNr">4928 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4929" class="LineNr">4929 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4930" class="LineNr">4930 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4931" class="LineNr">4931 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4932" class="LineNr">4932 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4933" class="LineNr">4933 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4934" class="LineNr">4934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4935" class="LineNr">4935 </span> <span class="subxComment"># initialize input</span> -<span id="L4936" class="LineNr">4936 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/scale")</span> -<span id="L4937" class="LineNr">4937 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4938" class="LineNr">4938 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 -<span id="L4939" class="LineNr">4939 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4940" class="LineNr">4940 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4941" class="LineNr">4941 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4942" class="LineNr">4942 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4943" class="LineNr">4943 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4944" class="LineNr">4944 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4945" class="LineNr">4945 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4946" class="LineNr">4946 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4947" class="LineNr">4947 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4948" class="LineNr">4948 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4949" class="LineNr">4949 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4950" class="LineNr">4950 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4951" class="LineNr">4951 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4952" class="LineNr">4952 </span> <span class="subxComment"># check output</span> -<span id="L4953" class="LineNr">4953 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4954" class="LineNr">4954 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4955" class="LineNr">4955 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L4956" class="LineNr">4956 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4957" class="LineNr">4957 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4958" class="LineNr">4958 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4959" class="LineNr">4959 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4960" class="Folded">4960 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4986" class="LineNr">4986 </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="L4987" class="LineNr">4987 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4988" class="LineNr">4988 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-scale"</span>/imm32 -<span id="L4989" class="LineNr">4989 </span> 68/push <span class="Constant">"8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 -<span id="L4990" class="LineNr">4990 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4991" class="LineNr">4991 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4992" class="LineNr">4992 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4993" class="LineNr">4993 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4994" class="LineNr">4994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4995" class="LineNr">4995 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4996" class="LineNr">4996 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4997" class="LineNr">4997 </span> 5d/pop-to-ebp -<span id="L4998" class="LineNr">4998 </span> c3/return -<span id="L4999" class="LineNr">4999 </span> -<span id="L5000" class="LineNr">5000 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-base</span>: -<span id="L5001" class="LineNr">5001 </span> <span class="subxComment"># pack index and scale operands into SIB byte</span> -<span id="L5002" class="LineNr">5002 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5003" class="LineNr">5003 </span> 55/push-ebp -<span id="L5004" class="LineNr">5004 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5005" class="LineNr">5005 </span> <span class="subxComment"># setup</span> -<span id="L5006" class="LineNr">5006 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5007" class="LineNr">5007 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5008" class="LineNr">5008 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5009" class="LineNr">5009 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5010" class="LineNr">5010 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5011" class="LineNr">5011 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5012" class="LineNr">5012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5013" class="LineNr">5013 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5014" class="LineNr">5014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5015" class="LineNr">5015 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5016" class="LineNr">5016 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5017" class="LineNr">5017 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5018" class="LineNr">5018 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5019" class="LineNr">5019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5020" class="LineNr">5020 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5021" class="LineNr">5021 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5022" class="LineNr">5022 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5023" class="LineNr">5023 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5024" class="LineNr">5024 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5025" class="LineNr">5025 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5026" class="LineNr">5026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5027" class="LineNr">5027 </span> <span class="subxComment"># initialize input</span> -<span id="L5028" class="LineNr">5028 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale")</span> -<span id="L5029" class="LineNr">5029 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5030" class="LineNr">5030 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 -<span id="L5031" class="LineNr">5031 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5032" class="LineNr">5032 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5033" class="LineNr">5033 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5034" class="LineNr">5034 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5035" class="LineNr">5035 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5036" class="LineNr">5036 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5037" class="LineNr">5037 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5038" class="LineNr">5038 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5039" class="LineNr">5039 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5040" class="LineNr">5040 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5041" class="LineNr">5041 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5042" class="LineNr">5042 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5043" class="LineNr">5043 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5044" class="LineNr">5044 </span> <span class="subxComment"># check output</span> -<span id="L5045" class="LineNr">5045 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5046" class="LineNr">5046 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5047" class="LineNr">5047 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5048" class="LineNr">5048 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5049" class="LineNr">5049 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5050" class="LineNr">5050 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5051" class="LineNr">5051 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5052" class="Folded">5052 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5078" class="LineNr">5078 </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="L5079" class="LineNr">5079 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5080" class="LineNr">5080 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-base"</span>/imm32 -<span id="L5081" class="LineNr">5081 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 -<span id="L5082" class="LineNr">5082 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5083" class="LineNr">5083 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5084" class="LineNr">5084 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5085" class="LineNr">5085 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5086" class="LineNr">5086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5087" class="LineNr">5087 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5088" class="LineNr">5088 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5089" class="LineNr">5089 </span> 5d/pop-to-ebp -<span id="L5090" class="LineNr">5090 </span> c3/return -<span id="L5091" class="LineNr">5091 </span> -<span id="L5092" class="LineNr">5092 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-index</span>: -<span id="L5093" class="LineNr">5093 </span> <span class="subxComment"># pack base and scale operands into SIB byte</span> -<span id="L5094" class="LineNr">5094 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5095" class="LineNr">5095 </span> 55/push-ebp -<span id="L5096" class="LineNr">5096 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5097" class="LineNr">5097 </span> <span class="subxComment"># setup</span> -<span id="L5098" class="LineNr">5098 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5099" class="LineNr">5099 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5100" class="LineNr">5100 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5101" class="LineNr">5101 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5102" class="LineNr">5102 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5103" class="LineNr">5103 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5104" class="LineNr">5104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5105" class="LineNr">5105 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5106" class="LineNr">5106 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5107" class="LineNr">5107 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5108" class="LineNr">5108 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5109" class="LineNr">5109 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5110" class="LineNr">5110 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5111" class="LineNr">5111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5112" class="LineNr">5112 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5113" class="LineNr">5113 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5114" class="LineNr">5114 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5115" class="LineNr">5115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5116" class="LineNr">5116 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5117" class="LineNr">5117 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5118" class="LineNr">5118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5119" class="LineNr">5119 </span> <span class="subxComment"># initialize input</span> -<span id="L5120" class="LineNr">5120 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale")</span> -<span id="L5121" class="LineNr">5121 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5122" class="LineNr">5122 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 -<span id="L5123" class="LineNr">5123 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5124" class="LineNr">5124 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5125" class="LineNr">5125 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5126" class="LineNr">5126 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5127" class="LineNr">5127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5128" class="LineNr">5128 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5129" class="LineNr">5129 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5130" class="LineNr">5130 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5131" class="LineNr">5131 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5132" class="LineNr">5132 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5133" class="LineNr">5133 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5134" class="LineNr">5134 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5135" class="LineNr">5135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5136" class="LineNr">5136 </span> <span class="subxComment"># check output</span> -<span id="L5137" class="LineNr">5137 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5138" class="LineNr">5138 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5139" class="LineNr">5139 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5140" class="LineNr">5140 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5141" class="LineNr">5141 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5142" class="LineNr">5142 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5143" class="LineNr">5143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5144" class="Folded">5144 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5170" class="LineNr">5170 </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="L5171" class="LineNr">5171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5172" class="LineNr">5172 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-index"</span>/imm32 -<span id="L5173" class="LineNr">5173 </span> 68/push <span class="Constant">"8b 0c 00 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 -<span id="L5174" class="LineNr">5174 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5175" class="LineNr">5175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5176" class="LineNr">5176 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5177" class="LineNr">5177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5178" class="LineNr">5178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5179" class="LineNr">5179 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5180" class="LineNr">5180 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5181" class="LineNr">5181 </span> 5d/pop-to-ebp -<span id="L5182" class="LineNr">5182 </span> c3/return -<span id="L5183" class="LineNr">5183 </span> -<span id="L5184" class="LineNr">5184 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-scale</span>: -<span id="L5185" class="LineNr">5185 </span> <span class="subxComment"># pack base and index operands into SIB byte</span> -<span id="L5186" class="LineNr">5186 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5187" class="LineNr">5187 </span> 55/push-ebp -<span id="L5188" class="LineNr">5188 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5189" class="LineNr">5189 </span> <span class="subxComment"># setup</span> -<span id="L5190" class="LineNr">5190 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5191" class="LineNr">5191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5192" class="LineNr">5192 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5193" class="LineNr">5193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5194" class="LineNr">5194 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5195" class="LineNr">5195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5196" class="LineNr">5196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5197" class="LineNr">5197 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5198" class="LineNr">5198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5199" class="LineNr">5199 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5200" class="LineNr">5200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5201" class="LineNr">5201 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5202" class="LineNr">5202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5203" class="LineNr">5203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5204" class="LineNr">5204 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5205" class="LineNr">5205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5206" class="LineNr">5206 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5207" class="LineNr">5207 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5208" class="LineNr">5208 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5209" class="LineNr">5209 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5210" class="LineNr">5210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5211" class="LineNr">5211 </span> <span class="subxComment"># initialize input</span> -<span id="L5212" class="LineNr">5212 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index")</span> -<span id="L5213" class="LineNr">5213 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5214" class="LineNr">5214 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 -<span id="L5215" class="LineNr">5215 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5216" class="LineNr">5216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5217" class="LineNr">5217 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5218" class="LineNr">5218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5219" class="LineNr">5219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5220" class="LineNr">5220 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5221" class="LineNr">5221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5222" class="LineNr">5222 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5223" class="LineNr">5223 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5224" class="LineNr">5224 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5225" class="LineNr">5225 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5226" class="LineNr">5226 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5227" class="LineNr">5227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5228" class="LineNr">5228 </span> <span class="subxComment"># check output</span> -<span id="L5229" class="LineNr">5229 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5230" class="LineNr">5230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5231" class="LineNr">5231 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5232" class="LineNr">5232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5233" class="LineNr">5233 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5234" class="LineNr">5234 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5235" class="LineNr">5235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5236" class="Folded">5236 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5262" class="LineNr">5262 </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="L5263" class="LineNr">5263 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5264" class="LineNr">5264 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-scale"</span>/imm32 -<span id="L5265" class="LineNr">5265 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 -<span id="L5266" class="LineNr">5266 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5267" class="LineNr">5267 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5268" class="LineNr">5268 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5269" class="LineNr">5269 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5270" class="LineNr">5270 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5271" class="LineNr">5271 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5272" class="LineNr">5272 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5273" class="LineNr">5273 </span> 5d/pop-to-ebp -<span id="L5274" class="LineNr">5274 </span> c3/return -<span id="L5275" class="LineNr">5275 </span> -<span id="L5276" class="LineNr">5276 </span><span class="subxTest">test-convert-instruction-handles-disp32-operand</span>: -<span id="L5277" class="LineNr">5277 </span> <span class="subxComment"># expand /disp32 operand into 4 bytes</span> -<span id="L5278" class="LineNr">5278 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5279" class="LineNr">5279 </span> 55/push-ebp -<span id="L5280" class="LineNr">5280 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5281" class="LineNr">5281 </span> <span class="subxComment"># setup</span> -<span id="L5282" class="LineNr">5282 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5283" class="LineNr">5283 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5284" class="LineNr">5284 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5285" class="LineNr">5285 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5286" class="LineNr">5286 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5287" class="LineNr">5287 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5288" class="LineNr">5288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5289" class="LineNr">5289 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5290" class="LineNr">5290 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5291" class="LineNr">5291 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5292" class="LineNr">5292 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5293" class="LineNr">5293 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5294" class="LineNr">5294 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5295" class="LineNr">5295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5296" class="LineNr">5296 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5297" class="LineNr">5297 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5298" class="LineNr">5298 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5299" class="LineNr">5299 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5300" class="LineNr">5300 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5301" class="LineNr">5301 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5302" class="LineNr">5302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5303" class="LineNr">5303 </span> <span class="subxComment"># initialize input</span> -<span id="L5304" class="LineNr">5304 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp32")</span> -<span id="L5305" class="LineNr">5305 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5306" class="LineNr">5306 </span> 68/push <span class="Constant">"e8/call 20/disp32"</span>/imm32 -<span id="L5307" class="LineNr">5307 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5308" class="LineNr">5308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5309" class="LineNr">5309 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5310" class="LineNr">5310 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5311" class="LineNr">5311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5312" class="LineNr">5312 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5313" class="LineNr">5313 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5314" class="LineNr">5314 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5315" class="LineNr">5315 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5316" class="LineNr">5316 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5317" class="LineNr">5317 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5318" class="LineNr">5318 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5319" class="LineNr">5319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5320" class="LineNr">5320 </span> <span class="subxComment"># check output</span> -<span id="L5321" class="LineNr">5321 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5322" class="LineNr">5322 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5323" class="LineNr">5323 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5324" class="LineNr">5324 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5325" class="LineNr">5325 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5326" class="LineNr">5326 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5327" class="LineNr">5327 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5328" class="Folded">5328 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5354" class="LineNr">5354 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> -<span id="L5355" class="LineNr">5355 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5356" class="LineNr">5356 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp32-operand"</span>/imm32 -<span id="L5357" class="LineNr">5357 </span> 68/push <span class="Constant">"e8 20 00 00 00 # e8/call 20/disp32"</span>/imm32 -<span id="L5358" class="LineNr">5358 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5359" class="LineNr">5359 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5360" class="LineNr">5360 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5361" class="LineNr">5361 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5362" class="LineNr">5362 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5363" class="LineNr">5363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5364" class="LineNr">5364 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5365" class="LineNr">5365 </span> 5d/pop-to-ebp -<span id="L5366" class="LineNr">5366 </span> c3/return -<span id="L5367" class="LineNr">5367 </span> -<span id="L5368" class="LineNr">5368 </span><span class="subxTest">test-convert-instruction-handles-disp16-operand</span>: -<span id="L5369" class="LineNr">5369 </span> <span class="subxComment"># expand /disp16 operand into 2 bytes</span> -<span id="L5370" class="LineNr">5370 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5371" class="LineNr">5371 </span> 55/push-ebp -<span id="L5372" class="LineNr">5372 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5373" class="LineNr">5373 </span> <span class="subxComment"># setup</span> -<span id="L5374" class="LineNr">5374 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5375" class="LineNr">5375 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5376" class="LineNr">5376 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5377" class="LineNr">5377 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5378" class="LineNr">5378 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5379" class="LineNr">5379 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5380" class="LineNr">5380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5381" class="LineNr">5381 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5382" class="LineNr">5382 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5383" class="LineNr">5383 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5384" class="LineNr">5384 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5385" class="LineNr">5385 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5386" class="LineNr">5386 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5387" class="LineNr">5387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5388" class="LineNr">5388 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5389" class="LineNr">5389 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5390" class="LineNr">5390 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5391" class="LineNr">5391 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5392" class="LineNr">5392 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5393" class="LineNr">5393 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5394" class="LineNr">5394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5395" class="LineNr">5395 </span> <span class="subxComment"># initialize input</span> -<span id="L5396" class="LineNr">5396 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp16")</span> -<span id="L5397" class="LineNr">5397 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5398" class="LineNr">5398 </span> 68/push <span class="Constant">"e8/call 20/disp16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> -<span id="L5399" class="LineNr">5399 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5400" class="LineNr">5400 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5401" class="LineNr">5401 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5402" class="LineNr">5402 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5403" class="LineNr">5403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5404" class="LineNr">5404 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5405" class="LineNr">5405 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5406" class="LineNr">5406 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5407" class="LineNr">5407 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5408" class="LineNr">5408 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5409" class="LineNr">5409 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5410" class="LineNr">5410 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5411" class="LineNr">5411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5412" class="LineNr">5412 </span> <span class="subxComment"># check output</span> -<span id="L5413" class="LineNr">5413 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5414" class="LineNr">5414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5415" class="LineNr">5415 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5416" class="LineNr">5416 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5417" class="LineNr">5417 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5418" class="LineNr">5418 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5419" class="LineNr">5419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5420" class="Folded">5420 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5446" class="LineNr">5446 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 # e8/call 20/disp16", msg)</span> -<span id="L5447" class="LineNr">5447 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5448" class="LineNr">5448 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp16-operand"</span>/imm32 -<span id="L5449" class="LineNr">5449 </span> 68/push <span class="Constant">"e8 20 00 # e8/call 20/disp16"</span>/imm32 -<span id="L5450" class="LineNr">5450 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5451" class="LineNr">5451 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5452" class="LineNr">5452 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5453" class="LineNr">5453 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5454" class="LineNr">5454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5455" class="LineNr">5455 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5456" class="LineNr">5456 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5457" class="LineNr">5457 </span> 5d/pop-to-ebp -<span id="L5458" class="LineNr">5458 </span> c3/return -<span id="L5459" class="LineNr">5459 </span> -<span id="L5460" class="LineNr">5460 </span><span class="subxTest">test-convert-instruction-handles-disp8-operand</span>: -<span id="L5461" class="LineNr">5461 </span> <span class="subxComment"># expand /disp8 operand into 1 byte</span> -<span id="L5462" class="LineNr">5462 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5463" class="LineNr">5463 </span> 55/push-ebp -<span id="L5464" class="LineNr">5464 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5465" class="LineNr">5465 </span> <span class="subxComment"># setup</span> -<span id="L5466" class="LineNr">5466 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5467" class="LineNr">5467 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5468" class="LineNr">5468 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5469" class="LineNr">5469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5470" class="LineNr">5470 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5471" class="LineNr">5471 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5472" class="LineNr">5472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5473" class="LineNr">5473 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5474" class="LineNr">5474 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5475" class="LineNr">5475 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5476" class="LineNr">5476 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5477" class="LineNr">5477 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5478" class="LineNr">5478 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5479" class="LineNr">5479 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5480" class="LineNr">5480 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5481" class="LineNr">5481 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5482" class="LineNr">5482 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5483" class="LineNr">5483 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5484" class="LineNr">5484 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5485" class="LineNr">5485 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5486" class="LineNr">5486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5487" class="LineNr">5487 </span> <span class="subxComment"># initialize input</span> -<span id="L5488" class="LineNr">5488 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump 20/disp8")</span> -<span id="L5489" class="LineNr">5489 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5490" class="LineNr">5490 </span> 68/push <span class="Constant">"eb/jump 20/disp8"</span>/imm32 -<span id="L5491" class="LineNr">5491 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5492" class="LineNr">5492 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5493" class="LineNr">5493 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5494" class="LineNr">5494 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5495" class="LineNr">5495 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5496" class="LineNr">5496 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5497" class="LineNr">5497 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5498" class="LineNr">5498 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5499" class="LineNr">5499 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5500" class="LineNr">5500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5501" class="LineNr">5501 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5502" class="LineNr">5502 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5503" class="LineNr">5503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5504" class="LineNr">5504 </span> <span class="subxComment"># check output</span> -<span id="L5505" class="LineNr">5505 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5506" class="LineNr">5506 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5507" class="LineNr">5507 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5508" class="LineNr">5508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5509" class="LineNr">5509 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5510" class="LineNr">5510 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5511" class="LineNr">5511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5512" class="Folded">5512 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5538" class="LineNr">5538 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb 20 # eb/jump 20/disp8", msg)</span> -<span id="L5539" class="LineNr">5539 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5540" class="LineNr">5540 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-operand"</span>/imm32 -<span id="L5541" class="LineNr">5541 </span> 68/push <span class="Constant">"eb 20 # eb/jump 20/disp8"</span>/imm32 -<span id="L5542" class="LineNr">5542 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5543" class="LineNr">5543 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5544" class="LineNr">5544 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5545" class="LineNr">5545 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5546" class="LineNr">5546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5547" class="LineNr">5547 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5548" class="LineNr">5548 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5549" class="LineNr">5549 </span> 5d/pop-to-ebp -<span id="L5550" class="LineNr">5550 </span> c3/return -<span id="L5551" class="LineNr">5551 </span> -<span id="L5552" class="LineNr">5552 </span><span class="subxTest">test-convert-instruction-handles-disp8-name</span>: -<span id="L5553" class="LineNr">5553 </span> <span class="subxComment"># pass /disp8 name directly through</span> -<span id="L5554" class="LineNr">5554 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5555" class="LineNr">5555 </span> 55/push-ebp -<span id="L5556" class="LineNr">5556 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5557" class="LineNr">5557 </span> <span class="subxComment"># setup</span> -<span id="L5558" class="LineNr">5558 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5559" class="LineNr">5559 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5560" class="LineNr">5560 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5561" class="LineNr">5561 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5562" class="LineNr">5562 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5563" class="LineNr">5563 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5564" class="LineNr">5564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5565" class="LineNr">5565 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5566" class="LineNr">5566 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5567" class="LineNr">5567 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5568" class="LineNr">5568 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5569" class="LineNr">5569 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5570" class="LineNr">5570 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5571" class="LineNr">5571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5572" class="LineNr">5572 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5573" class="LineNr">5573 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5574" class="LineNr">5574 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5575" class="LineNr">5575 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5576" class="LineNr">5576 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5577" class="LineNr">5577 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5578" class="LineNr">5578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5579" class="LineNr">5579 </span> <span class="subxComment"># initialize input</span> -<span id="L5580" class="LineNr">5580 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump xyz/disp8")</span> -<span id="L5581" class="LineNr">5581 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5582" class="LineNr">5582 </span> 68/push <span class="Constant">"eb/jump xyz/disp8"</span>/imm32 -<span id="L5583" class="LineNr">5583 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5584" class="LineNr">5584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5585" class="LineNr">5585 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5586" class="LineNr">5586 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5587" class="LineNr">5587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5588" class="LineNr">5588 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5589" class="LineNr">5589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5590" class="LineNr">5590 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5591" class="LineNr">5591 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5592" class="LineNr">5592 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5593" class="LineNr">5593 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5594" class="LineNr">5594 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5595" class="LineNr">5595 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5596" class="LineNr">5596 </span> <span class="subxComment"># check output</span> -<span id="L5597" class="LineNr">5597 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5598" class="LineNr">5598 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5599" class="LineNr">5599 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5600" class="LineNr">5600 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5601" class="LineNr">5601 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5602" class="LineNr">5602 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5603" class="LineNr">5603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5604" class="Folded">5604 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5630" class="LineNr">5630 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb xyz/disp8 # eb/jump xyz/disp8", msg)</span> -<span id="L5631" class="LineNr">5631 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5632" class="LineNr">5632 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-name"</span>/imm32 -<span id="L5633" class="LineNr">5633 </span> 68/push <span class="Constant">"eb xyz/disp8 # eb/jump xyz/disp8"</span>/imm32 -<span id="L5634" class="LineNr">5634 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5635" class="LineNr">5635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5636" class="LineNr">5636 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5637" class="LineNr">5637 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5638" class="LineNr">5638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5639" class="LineNr">5639 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5640" class="LineNr">5640 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5641" class="LineNr">5641 </span> 5d/pop-to-ebp -<span id="L5642" class="LineNr">5642 </span> c3/return -<span id="L5643" class="LineNr">5643 </span> -<span id="L5644" class="LineNr">5644 </span><span class="subxTest">test-convert-instruction-handles-imm32-operand</span>: -<span id="L5645" class="LineNr">5645 </span> <span class="subxComment"># expand /imm32 operand into 4 bytes</span> -<span id="L5646" class="LineNr">5646 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5647" class="LineNr">5647 </span> 55/push-ebp -<span id="L5648" class="LineNr">5648 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5649" class="LineNr">5649 </span> <span class="subxComment"># setup</span> -<span id="L5650" class="LineNr">5650 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5651" class="LineNr">5651 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5652" class="LineNr">5652 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5653" class="LineNr">5653 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5654" class="LineNr">5654 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5655" class="LineNr">5655 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5656" class="LineNr">5656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5657" class="LineNr">5657 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5658" class="LineNr">5658 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5659" class="LineNr">5659 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5660" class="LineNr">5660 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5661" class="LineNr">5661 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5662" class="LineNr">5662 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5663" class="LineNr">5663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5664" class="LineNr">5664 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5665" class="LineNr">5665 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5666" class="LineNr">5666 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5667" class="LineNr">5667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5668" class="LineNr">5668 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5669" class="LineNr">5669 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5670" class="LineNr">5670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5671" class="LineNr">5671 </span> <span class="subxComment"># initialize input</span> -<span id="L5672" class="LineNr">5672 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm32")</span> -<span id="L5673" class="LineNr">5673 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5674" class="LineNr">5674 </span> 68/push <span class="Constant">"68/push 0x20/imm32"</span>/imm32 -<span id="L5675" class="LineNr">5675 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5676" class="LineNr">5676 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5677" class="LineNr">5677 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5678" class="LineNr">5678 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5679" class="LineNr">5679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5680" class="LineNr">5680 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5681" class="LineNr">5681 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5682" class="LineNr">5682 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5683" class="LineNr">5683 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5684" class="LineNr">5684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5685" class="LineNr">5685 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5686" class="LineNr">5686 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5687" class="LineNr">5687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5688" class="LineNr">5688 </span> <span class="subxComment"># check output</span> -<span id="L5689" class="LineNr">5689 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5690" class="LineNr">5690 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5691" class="LineNr">5691 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5692" class="LineNr">5692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5693" class="LineNr">5693 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5694" class="LineNr">5694 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5695" class="LineNr">5695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5696" class="Folded">5696 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5722" class="LineNr">5722 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 00 00 # 68/push 0x20/imm32", msg)</span> -<span id="L5723" class="LineNr">5723 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5724" class="LineNr">5724 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm32-operand"</span>/imm32 -<span id="L5725" class="LineNr">5725 </span> 68/push <span class="Constant">"68 20 00 00 00 # 68/push 0x20/imm32"</span>/imm32 -<span id="L5726" class="LineNr">5726 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5727" class="LineNr">5727 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5728" class="LineNr">5728 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5729" class="LineNr">5729 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5730" class="LineNr">5730 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5731" class="LineNr">5731 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5732" class="LineNr">5732 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5733" class="LineNr">5733 </span> 5d/pop-to-ebp -<span id="L5734" class="LineNr">5734 </span> c3/return -<span id="L5735" class="LineNr">5735 </span> -<span id="L5736" class="LineNr">5736 </span><span class="subxTest">test-convert-instruction-handles-imm16-operand</span>: -<span id="L5737" class="LineNr">5737 </span> <span class="subxComment"># expand /imm16 operand into 2 bytes</span> -<span id="L5738" class="LineNr">5738 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> -<span id="L5739" class="LineNr">5739 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5740" class="LineNr">5740 </span> 55/push-ebp -<span id="L5741" class="LineNr">5741 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5742" class="LineNr">5742 </span> <span class="subxComment"># setup</span> -<span id="L5743" class="LineNr">5743 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5744" class="LineNr">5744 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5745" class="LineNr">5745 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5746" class="LineNr">5746 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5747" class="LineNr">5747 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5748" class="LineNr">5748 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5749" class="LineNr">5749 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5750" class="LineNr">5750 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5751" class="LineNr">5751 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5752" class="LineNr">5752 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5753" class="LineNr">5753 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5754" class="LineNr">5754 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5755" class="LineNr">5755 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5756" class="LineNr">5756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5757" class="LineNr">5757 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5758" class="LineNr">5758 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5759" class="LineNr">5759 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5760" class="LineNr">5760 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5761" class="LineNr">5761 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5762" class="LineNr">5762 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5763" class="LineNr">5763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5764" class="LineNr">5764 </span> <span class="subxComment"># initialize input</span> -<span id="L5765" class="LineNr">5765 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm16")</span> -<span id="L5766" class="LineNr">5766 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5767" class="LineNr">5767 </span> 68/push <span class="Constant">"68/push 0x20/imm16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> -<span id="L5768" class="LineNr">5768 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5769" class="LineNr">5769 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5770" class="LineNr">5770 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5771" class="LineNr">5771 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5772" class="LineNr">5772 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5773" class="LineNr">5773 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5774" class="LineNr">5774 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5775" class="LineNr">5775 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5776" class="LineNr">5776 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5777" class="LineNr">5777 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5778" class="LineNr">5778 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5779" class="LineNr">5779 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5780" class="LineNr">5780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5781" class="LineNr">5781 </span> <span class="subxComment"># check output</span> -<span id="L5782" class="LineNr">5782 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5783" class="LineNr">5783 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5784" class="LineNr">5784 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5785" class="LineNr">5785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5786" class="LineNr">5786 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5787" class="LineNr">5787 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5788" class="LineNr">5788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5789" class="Folded">5789 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5815" class="LineNr">5815 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 # 68/push 0x20/imm16", msg)</span> -<span id="L5816" class="LineNr">5816 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5817" class="LineNr">5817 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm16-operand"</span>/imm32 -<span id="L5818" class="LineNr">5818 </span> 68/push <span class="Constant">"68 20 00 # 68/push 0x20/imm16"</span>/imm32 -<span id="L5819" class="LineNr">5819 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5820" class="LineNr">5820 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5821" class="LineNr">5821 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5822" class="LineNr">5822 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5823" class="LineNr">5823 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5824" class="LineNr">5824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5825" class="LineNr">5825 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5826" class="LineNr">5826 </span> 5d/pop-to-ebp -<span id="L5827" class="LineNr">5827 </span> c3/return -<span id="L5828" class="LineNr">5828 </span> -<span id="L5829" class="LineNr">5829 </span><span class="subxTest">test-convert-instruction-handles-imm8-operand</span>: -<span id="L5830" class="LineNr">5830 </span> <span class="subxComment"># expand /imm8 operand into 1 byte</span> -<span id="L5831" class="LineNr">5831 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> -<span id="L5832" class="LineNr">5832 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5833" class="LineNr">5833 </span> 55/push-ebp -<span id="L5834" class="LineNr">5834 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5835" class="LineNr">5835 </span> <span class="subxComment"># setup</span> -<span id="L5836" class="LineNr">5836 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5837" class="LineNr">5837 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5838" class="LineNr">5838 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5839" class="LineNr">5839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5840" class="LineNr">5840 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5841" class="LineNr">5841 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5842" class="LineNr">5842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5843" class="LineNr">5843 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5844" class="LineNr">5844 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5845" class="LineNr">5845 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5846" class="LineNr">5846 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5847" class="LineNr">5847 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5848" class="LineNr">5848 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5849" class="LineNr">5849 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5850" class="LineNr">5850 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5851" class="LineNr">5851 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5852" class="LineNr">5852 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5853" class="LineNr">5853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5854" class="LineNr">5854 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5855" class="LineNr">5855 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5856" class="LineNr">5856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5857" class="LineNr">5857 </span> <span class="subxComment"># initialize input</span> -<span id="L5858" class="LineNr">5858 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm8")</span> -<span id="L5859" class="LineNr">5859 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5860" class="LineNr">5860 </span> 68/push <span class="Constant">"68/push 0x20/imm8"</span>/imm32 -<span id="L5861" class="LineNr">5861 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5862" class="LineNr">5862 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5863" class="LineNr">5863 </span> e8/call <a href='../108write.subx.html#L24'>write</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5866" class="LineNr">5866 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5867" class="LineNr">5867 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5868" class="LineNr">5868 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5869" class="LineNr">5869 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5870" class="LineNr">5870 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5871" class="LineNr">5871 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5872" class="LineNr">5872 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5873" class="LineNr">5873 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5874" class="LineNr">5874 </span> <span class="subxComment"># check output</span> -<span id="L5875" class="LineNr">5875 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5876" class="LineNr">5876 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5877" class="LineNr">5877 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L5878" class="LineNr">5878 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5879" class="LineNr">5879 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5880" class="LineNr">5880 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5881" class="LineNr">5881 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5882" class="Folded">5882 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5908" class="LineNr">5908 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> -<span id="L5909" class="LineNr">5909 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5910" class="LineNr">5910 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm8-operand"</span>/imm32 -<span id="L5911" class="LineNr">5911 </span> 68/push <span class="Constant">"68 20 # 68/push 0x20/imm8"</span>/imm32 -<span id="L5912" class="LineNr">5912 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5913" class="LineNr">5913 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5914" class="LineNr">5914 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5915" class="LineNr">5915 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5916" class="LineNr">5916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5917" class="LineNr">5917 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5918" class="LineNr">5918 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5919" class="LineNr">5919 </span> 5d/pop-to-ebp -<span id="L5920" class="LineNr">5920 </span> c3/return -<span id="L5921" class="LineNr">5921 </span> -<span id="L5922" class="LineNr">5922 </span><span class="subxComment"># shortcut for parse-hex-int-from-slice(next-token-from-slice(word->start, word->end, '/'))</span> -<span id="L5923" class="LineNr">5923 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word: (addr slice) -> value/eax: int</span> -<span id="L5924" class="LineNr">5924 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5925" class="LineNr">5925 </span> 55/push-ebp -<span id="L5926" class="LineNr">5926 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5927" class="LineNr">5927 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L5928" class="LineNr">5928 </span> 51/push-ecx -<span id="L5929" class="LineNr">5929 </span> 56/push-esi -<span id="L5930" class="LineNr">5930 </span> <span class="subxComment"># esi = word</span> -<span id="L5931" class="LineNr">5931 </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="L5932" class="LineNr">5932 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L5933" class="LineNr">5933 </span> 68/push 0/imm32/end -<span id="L5934" class="LineNr">5934 </span> 68/push 0/imm32/start -<span id="L5935" class="LineNr">5935 </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="L5936" class="LineNr">5936 </span> <span class="subxComment"># slice = next-token-from-slice(word->start, word->end, '/')</span> -<span id="L5937" class="LineNr">5937 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5938" class="LineNr">5938 </span> 51/push-ecx -<span id="L5939" class="LineNr">5939 </span> 68/push 0x2f/imm32/slash -<span id="L5940" class="LineNr">5940 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L5941" class="LineNr">5941 </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="L5942" class="LineNr">5942 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5943" class="LineNr">5943 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L5944" class="LineNr">5944 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5945" class="LineNr">5945 </span> 81 0/subop/add 3/mod/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="L5946" class="LineNr">5946 </span> <span class="subxComment"># return parse-hex-int-from-slice(slice)</span> -<span id="L5947" class="LineNr">5947 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5948" class="LineNr">5948 </span> 51/push-ecx -<span id="L5949" class="LineNr">5949 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5950" class="LineNr">5950 </span> e8/call <a href='../118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 -<span id="L5951" class="LineNr">5951 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5952" class="LineNr">5952 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5953" class="LineNr">5953 </span><span class="Constant">$parse-datum-of-word:end</span>: -<span id="L5954" class="LineNr">5954 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L5955" class="LineNr">5955 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5956" class="LineNr">5956 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L5957" class="LineNr">5957 </span> 5e/pop-to-esi -<span id="L5958" class="LineNr">5958 </span> 59/pop-to-ecx -<span id="L5959" class="LineNr">5959 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5960" class="LineNr">5960 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5961" class="LineNr">5961 </span> 5d/pop-to-ebp -<span id="L5962" class="LineNr">5962 </span> c3/return -<span id="L5963" class="LineNr">5963 </span> -<span id="L5964" class="LineNr">5964 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L2799" class="LineNr">2799 </span><span class="Constant">$emit-sib:check-for-base</span>: +<span id="L2800" class="LineNr">2800 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base"))</span> +<span id="L2801" class="LineNr">2801 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "base")</span> +<span id="L2802" class="LineNr">2802 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2803" class="LineNr">2803 </span> 68/push <span class="Constant">"base"</span>/imm32 +<span id="L2804" class="LineNr">2804 </span> 51/push-ecx +<span id="L2805" class="LineNr">2805 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2806" class="LineNr">2806 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2808" class="LineNr">2808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2809" class="LineNr">2809 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2810" class="LineNr">2810 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2811" class="LineNr">2811 </span> 74/jump-if-= $emit-sib:check-for-index/disp8 +<span id="L2812" class="LineNr">2812 </span><span class="Constant">$emit-sib:base</span>: +<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2814" class="LineNr">2814 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2816" class="LineNr">2816 </span> 51/push-ecx +<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2818" class="LineNr">2818 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 +<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2820" class="LineNr">2820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2821" class="LineNr">2821 </span> <span class="subxS1Comment"># . base = eax</span> +<span id="L2822" class="LineNr">2822 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L2823" class="LineNr">2823 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2824" class="LineNr">2824 </span> ba/copy-to-edx 1/imm32/true +<span id="L2825" class="LineNr">2825 </span> <span class="subxComment"># continue</span> +<span id="L2826" class="LineNr">2826 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2827" class="LineNr">2827 </span><span class="Constant">$emit-sib:check-for-index</span>: +<span id="L2828" class="LineNr">2828 </span> <span class="subxComment"># if (has-metadata?(word-slice, "index"))</span> +<span id="L2829" class="LineNr">2829 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "index")</span> +<span id="L2830" class="LineNr">2830 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2831" class="LineNr">2831 </span> 68/push <span class="Constant">"index"</span>/imm32 +<span id="L2832" class="LineNr">2832 </span> 51/push-ecx +<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2834" class="LineNr">2834 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2835" class="LineNr">2835 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2836" class="LineNr">2836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2837" class="LineNr">2837 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2838" class="LineNr">2838 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2839" class="LineNr">2839 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2840" class="LineNr">2840 </span><span class="Constant">$emit-sib:index</span>: +<span id="L2841" class="LineNr">2841 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2842" class="LineNr">2842 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2843" class="LineNr">2843 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2844" class="LineNr">2844 </span> 51/push-ecx +<span id="L2845" class="LineNr">2845 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2846" class="LineNr">2846 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 +<span id="L2847" class="LineNr">2847 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2848" class="LineNr">2848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2849" class="LineNr">2849 </span> <span class="subxS1Comment"># . index = eax</span> +<span id="L2850" class="LineNr">2850 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2852" class="LineNr">2852 </span> ba/copy-to-edx 1/imm32/true +<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># continue</span> +<span id="L2854" class="LineNr">2854 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2855" class="LineNr">2855 </span><span class="Constant">$emit-sib:break</span>: +<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># if (!has-sib?) return</span> +<span id="L2857" class="LineNr">2857 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> +<span id="L2858" class="LineNr">2858 </span> 74/jump-if-= $emit-sib:end/disp8 +<span id="L2859" class="LineNr">2859 </span><span class="Constant">$emit-sib:calculate</span>: +<span id="L2860" class="LineNr">2860 </span> <span class="subxComment"># var sib/ebx: byte = scale & 0b11</span> +<span id="L2861" class="LineNr">2861 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> +<span id="L2862" class="LineNr">2862 </span> <span class="subxComment"># sib <<= 2</span> +<span id="L2863" class="LineNr">2863 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2864" class="LineNr">2864 </span> <span class="subxComment"># sib |= index & 0b111</span> +<span id="L2865" class="LineNr">2865 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> +<span id="L2866" class="LineNr">2866 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> +<span id="L2867" class="LineNr">2867 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2868" class="LineNr">2868 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2869" class="LineNr">2869 </span> <span class="subxComment"># sib |= base & 0b111</span> +<span id="L2870" class="LineNr">2870 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> +<span id="L2871" class="LineNr">2871 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> +<span id="L2872" class="LineNr">2872 </span><span class="Constant">$emit-sib:<a href='../130emit.subx.html#L10'>emit</a></span>: +<span id="L2873" class="LineNr">2873 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> +<span id="L2874" class="LineNr">2874 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2875" class="LineNr">2875 </span> 68/push 1/imm32 +<span id="L2876" class="LineNr">2876 </span> 53/push-ebx +<span id="L2877" class="LineNr">2877 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2878" class="LineNr">2878 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2879" class="LineNr">2879 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2880" class="LineNr">2880 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2881" class="LineNr">2881 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2882" class="LineNr">2882 </span><span class="Constant">$emit-sib:end</span>: +<span id="L2883" class="LineNr">2883 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2884" class="LineNr">2884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2885" class="LineNr">2885 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2886" class="LineNr">2886 </span> 5f/pop-to-edi +<span id="L2887" class="LineNr">2887 </span> 5e/pop-to-esi +<span id="L2888" class="LineNr">2888 </span> 5b/pop-to-ebx +<span id="L2889" class="LineNr">2889 </span> 5a/pop-to-edx +<span id="L2890" class="LineNr">2890 </span> 59/pop-to-ecx +<span id="L2891" class="LineNr">2891 </span> 58/pop-to-eax +<span id="L2892" class="LineNr">2892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2893" class="LineNr">2893 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2894" class="LineNr">2894 </span> 5d/pop-to-ebp +<span id="L2895" class="LineNr">2895 </span> c3/return +<span id="L2896" class="LineNr">2896 </span> +<span id="L2897" class="LineNr">2897 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L2898" class="LineNr">2898 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2899" class="LineNr">2899 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2900" class="LineNr">2900 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L2901" class="LineNr">2901 </span> <span class="subxComment"># while true</span> +<span id="L2902" class="LineNr">2902 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L2903" class="LineNr">2903 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2904" class="LineNr">2904 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2905" class="LineNr">2905 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp32")</span> +<span id="L2906" class="LineNr">2906 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L2907" class="LineNr">2907 </span> <span class="subxComment"># break</span> +<span id="L2908" class="LineNr">2908 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp16")</span> +<span id="L2909" class="LineNr">2909 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L2910" class="LineNr">2910 </span> <span class="subxComment"># break</span> +<span id="L2911" class="LineNr">2911 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8")</span> +<span id="L2912" class="LineNr">2912 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L2913" class="LineNr">2913 </span> <span class="subxComment"># break</span> +<span id="L2914" class="LineNr">2914 </span> <span class="subxComment">#</span> +<span id="L2915" class="LineNr">2915 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2916" class="LineNr">2916 </span> 55/push-ebp +<span id="L2917" class="LineNr">2917 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2918" class="LineNr">2918 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2919" class="LineNr">2919 </span> 50/push-eax +<span id="L2920" class="LineNr">2920 </span> 51/push-ecx +<span id="L2921" class="LineNr">2921 </span> 52/push-edx +<span id="L2922" class="LineNr">2922 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2923" class="LineNr">2923 </span> 68/push 0/imm32/end +<span id="L2924" class="LineNr">2924 </span> 68/push 0/imm32/start +<span id="L2925" class="LineNr">2925 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2926" class="LineNr">2926 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2927" class="LineNr">2927 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2928" class="LineNr">2928 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2930" class="LineNr">2930 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2932" class="LineNr">2932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2933" class="Folded">2933 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2959" class="LineNr">2959 </span><span class="Constant">$emit-disp:loop</span>: +<span id="L2960" class="LineNr">2960 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2962" class="LineNr">2962 </span> 51/push-ecx +<span id="L2963" class="LineNr">2963 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2964" class="LineNr">2964 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2965" class="LineNr">2965 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2967" class="LineNr">2967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2968" class="Folded">2968 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3008" class="LineNr">3008 </span><span class="Constant">$emit-disp:check0</span>: +<span id="L3009" class="LineNr">3009 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3010" class="LineNr">3010 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3011" class="LineNr">3011 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3012" class="LineNr">3012 </span> 51/push-ecx +<span id="L3013" class="LineNr">3013 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3014" class="LineNr">3014 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3015" class="LineNr">3015 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3016" class="LineNr">3016 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3017" class="LineNr">3017 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L3018" class="LineNr">3018 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3019" class="LineNr">3019 </span> 0f 85/jump-if-!= $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3020" class="LineNr">3020 </span><span class="Constant">$emit-disp:check1</span>: +<span id="L3021" class="LineNr">3021 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3022" class="LineNr">3022 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L3023" class="LineNr">3023 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L3024" class="LineNr">3024 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L3025" class="LineNr">3025 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L3026" class="LineNr">3026 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L3027" class="LineNr">3027 </span> <span class="subxS1Comment"># . if (c == '#') break</span> +<span id="L3028" class="LineNr">3028 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L3029" class="LineNr">3029 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3030" class="LineNr">3030 </span><span class="Constant">$emit-disp:check-for-disp32</span>: +<span id="L3031" class="LineNr">3031 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp32"))</span> +<span id="L3032" class="LineNr">3032 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp32")</span> +<span id="L3033" class="LineNr">3033 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3034" class="LineNr">3034 </span> 68/push <span class="Constant">"disp32"</span>/imm32 +<span id="L3035" class="LineNr">3035 </span> 51/push-ecx +<span id="L3036" class="LineNr">3036 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3037" class="LineNr">3037 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3038" class="LineNr">3038 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3039" class="LineNr">3039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3040" class="LineNr">3040 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3041" class="LineNr">3041 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3042" class="LineNr">3042 </span> 74/jump-if-= $emit-disp:check-for-disp16/disp8 +<span id="L3043" class="LineNr">3043 </span><span class="Constant">$emit-disp:disp32</span>: +<span id="L3044" class="LineNr">3044 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3045" class="LineNr">3045 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3046" class="LineNr">3046 </span> 68/push 4/imm32 +<span id="L3047" class="LineNr">3047 </span> 51/push-ecx +<span id="L3048" class="LineNr">3048 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3049" class="LineNr">3049 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3050" class="LineNr">3050 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3051" class="LineNr">3051 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3052" class="LineNr">3052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3053" class="LineNr">3053 </span> <span class="subxComment"># break</span> +<span id="L3054" class="LineNr">3054 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3055" class="LineNr">3055 </span><span class="Constant">$emit-disp:check-for-disp16</span>: +<span id="L3056" class="LineNr">3056 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "disp16"))</span> +<span id="L3057" class="LineNr">3057 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp16")</span> +<span id="L3058" class="LineNr">3058 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3059" class="LineNr">3059 </span> 68/push <span class="Constant">"disp16"</span>/imm32 +<span id="L3060" class="LineNr">3060 </span> 51/push-ecx +<span id="L3061" class="LineNr">3061 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3062" class="LineNr">3062 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3063" class="LineNr">3063 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3064" class="LineNr">3064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3065" class="LineNr">3065 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3066" class="LineNr">3066 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3067" class="LineNr">3067 </span> 74/jump-if-= $emit-disp:check-for-disp8/disp8 +<span id="L3068" class="LineNr">3068 </span><span class="Constant">$emit-disp:disp16</span>: +<span id="L3069" class="LineNr">3069 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3070" class="LineNr">3070 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3071" class="LineNr">3071 </span> 68/push 2/imm32 +<span id="L3072" class="LineNr">3072 </span> 51/push-ecx +<span id="L3073" class="LineNr">3073 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3074" class="LineNr">3074 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3075" class="LineNr">3075 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3076" class="LineNr">3076 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3077" class="LineNr">3077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3078" class="LineNr">3078 </span> <span class="subxComment"># break</span> +<span id="L3079" class="LineNr">3079 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3080" class="LineNr">3080 </span><span class="Constant">$emit-disp:check-for-disp8</span>: +<span id="L3081" class="LineNr">3081 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp8"))</span> +<span id="L3082" class="LineNr">3082 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp8")</span> +<span id="L3083" class="LineNr">3083 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3084" class="LineNr">3084 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L3085" class="LineNr">3085 </span> 51/push-ecx +<span id="L3086" class="LineNr">3086 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3087" class="LineNr">3087 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3088" class="LineNr">3088 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3089" class="LineNr">3089 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3090" class="LineNr">3090 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L3091" class="LineNr">3091 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3092" class="LineNr">3092 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">loop</span>/disp32 +<span id="L3093" class="LineNr">3093 </span><span class="Constant">$emit-disp:disp8</span>: +<span id="L3094" class="LineNr">3094 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3095" class="LineNr">3095 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3096" class="LineNr">3096 </span> 68/push 1/imm32 +<span id="L3097" class="LineNr">3097 </span> 51/push-ecx +<span id="L3098" class="LineNr">3098 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3099" class="LineNr">3099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3100" class="LineNr">3100 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3101" class="LineNr">3101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3102" class="LineNr">3102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3103" class="LineNr">3103 </span> <span class="subxComment"># break</span> +<span id="L3104" class="LineNr">3104 </span><span class="Constant">$emit-disp:break</span>: +<span id="L3105" class="LineNr">3105 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L3106" class="LineNr">3106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3107" class="LineNr">3107 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3108" class="LineNr">3108 </span> 5a/pop-to-edx +<span id="L3109" class="LineNr">3109 </span> 59/pop-to-ecx +<span id="L3110" class="LineNr">3110 </span> 58/pop-to-eax +<span id="L3111" class="LineNr">3111 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3112" class="LineNr">3112 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3113" class="LineNr">3113 </span> 5d/pop-to-ebp +<span id="L3114" class="LineNr">3114 </span> c3/return +<span id="L3115" class="LineNr">3115 </span> +<span id="L3116" class="LineNr">3116 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L3117" class="LineNr">3117 </span> <span class="subxComment"># pseudocode:</span> +<span id="L3118" class="LineNr">3118 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3119" class="LineNr">3119 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L3120" class="LineNr">3120 </span> <span class="subxComment"># while true</span> +<span id="L3121" class="LineNr">3121 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L3122" class="LineNr">3122 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3124" class="LineNr">3124 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm32")</span> +<span id="L3125" class="LineNr">3125 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3126" class="LineNr">3126 </span> <span class="subxComment"># break</span> +<span id="L3127" class="LineNr">3127 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm16")</span> +<span id="L3128" class="LineNr">3128 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3129" class="LineNr">3129 </span> <span class="subxComment"># break</span> +<span id="L3130" class="LineNr">3130 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L3131" class="LineNr">3131 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3132" class="LineNr">3132 </span> <span class="subxComment"># break</span> +<span id="L3133" class="LineNr">3133 </span> <span class="subxComment">#</span> +<span id="L3134" class="LineNr">3134 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3135" class="LineNr">3135 </span> 55/push-ebp +<span id="L3136" class="LineNr">3136 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3137" class="LineNr">3137 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3138" class="LineNr">3138 </span> 50/push-eax +<span id="L3139" class="LineNr">3139 </span> 51/push-ecx +<span id="L3140" class="LineNr">3140 </span> 52/push-edx +<span id="L3141" class="LineNr">3141 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L3142" class="LineNr">3142 </span> 68/push 0/imm32/end +<span id="L3143" class="LineNr">3143 </span> 68/push 0/imm32/start +<span id="L3144" class="LineNr">3144 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3145" class="LineNr">3145 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3146" class="LineNr">3146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3147" class="LineNr">3147 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3148" class="LineNr">3148 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3149" class="LineNr">3149 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3151" class="LineNr">3151 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3152" class="Folded">3152 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3178" class="LineNr">3178 </span><span class="Constant">$emit-imm:loop</span>: +<span id="L3179" class="LineNr">3179 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L3180" class="LineNr">3180 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3181" class="LineNr">3181 </span> 51/push-ecx +<span id="L3182" class="LineNr">3182 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3183" class="LineNr">3183 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3184" class="LineNr">3184 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L3185" class="LineNr">3185 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3186" class="LineNr">3186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3187" class="Folded">3187 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3227" class="LineNr">3227 </span><span class="Constant">$emit-imm:check0</span>: +<span id="L3228" class="LineNr">3228 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3229" class="LineNr">3229 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3230" class="LineNr">3230 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3231" class="LineNr">3231 </span> 51/push-ecx +<span id="L3232" class="LineNr">3232 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3233" class="LineNr">3233 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3234" class="LineNr">3234 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3235" class="LineNr">3235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L3237" class="LineNr">3237 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3238" class="LineNr">3238 </span> 0f 85/jump-if-!= $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3239" class="LineNr">3239 </span><span class="Constant">$emit-imm:check1</span>: +<span id="L3240" class="LineNr">3240 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3241" class="LineNr">3241 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = slice->start</span> +<span id="L3242" class="LineNr">3242 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L3243" class="LineNr">3243 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L3244" class="LineNr">3244 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L3245" class="LineNr">3245 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L3246" class="LineNr">3246 </span> <span class="subxS1Comment"># . if (c == '#') break</span> +<span id="L3247" class="LineNr">3247 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L3248" class="LineNr">3248 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3249" class="LineNr">3249 </span><span class="Constant">$emit-imm:check-for-imm32</span>: +<span id="L3250" class="LineNr">3250 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> +<span id="L3251" class="LineNr">3251 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> +<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3253" class="LineNr">3253 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L3254" class="LineNr">3254 </span> 51/push-ecx +<span id="L3255" class="LineNr">3255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3256" class="LineNr">3256 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3257" class="LineNr">3257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3258" class="LineNr">3258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3259" class="LineNr">3259 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3260" class="LineNr">3260 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3261" class="LineNr">3261 </span> 74/jump-if-= $emit-imm:check-for-imm16/disp8 +<span id="L3262" class="LineNr">3262 </span><span class="Constant">$emit-imm:imm32</span>: +<span id="L3263" class="LineNr">3263 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3265" class="LineNr">3265 </span> 68/push 4/imm32 +<span id="L3266" class="LineNr">3266 </span> 51/push-ecx +<span id="L3267" class="LineNr">3267 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3269" class="LineNr">3269 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3270" class="LineNr">3270 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3271" class="LineNr">3271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3272" class="LineNr">3272 </span> <span class="subxComment"># break</span> +<span id="L3273" class="LineNr">3273 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3274" class="LineNr">3274 </span><span class="Constant">$emit-imm:check-for-imm16</span>: +<span id="L3275" class="LineNr">3275 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm16"))</span> +<span id="L3276" class="LineNr">3276 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm16")</span> +<span id="L3277" class="LineNr">3277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3278" class="LineNr">3278 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L3279" class="LineNr">3279 </span> 51/push-ecx +<span id="L3280" class="LineNr">3280 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3281" class="LineNr">3281 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3282" class="LineNr">3282 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3283" class="LineNr">3283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3284" class="LineNr">3284 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3285" class="LineNr">3285 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3286" class="LineNr">3286 </span> 74/jump-if-= $emit-imm:check-for-imm8/disp8 +<span id="L3287" class="LineNr">3287 </span><span class="Constant">$emit-imm:imm16</span>: +<span id="L3288" class="LineNr">3288 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3290" class="LineNr">3290 </span> 68/push 2/imm32 +<span id="L3291" class="LineNr">3291 </span> 51/push-ecx +<span id="L3292" class="LineNr">3292 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3294" class="LineNr">3294 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3296" class="LineNr">3296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3297" class="LineNr">3297 </span> <span class="subxComment"># break</span> +<span id="L3298" class="LineNr">3298 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3299" class="LineNr">3299 </span><span class="Constant">$emit-imm:check-for-imm8</span>: +<span id="L3300" class="LineNr">3300 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8"))</span> +<span id="L3301" class="LineNr">3301 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm8")</span> +<span id="L3302" class="LineNr">3302 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3303" class="LineNr">3303 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L3304" class="LineNr">3304 </span> 51/push-ecx +<span id="L3305" class="LineNr">3305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3306" class="LineNr">3306 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3307" class="LineNr">3307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3308" class="LineNr">3308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3309" class="LineNr">3309 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L3310" class="LineNr">3310 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3311" class="LineNr">3311 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">loop</span>/disp32 +<span id="L3312" class="LineNr">3312 </span><span class="Constant">$emit-imm:imm8</span>: +<span id="L3313" class="LineNr">3313 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3315" class="LineNr">3315 </span> 68/push 1/imm32 +<span id="L3316" class="LineNr">3316 </span> 51/push-ecx +<span id="L3317" class="LineNr">3317 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3318" class="LineNr">3318 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3319" class="LineNr">3319 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3320" class="LineNr">3320 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3321" class="LineNr">3321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3322" class="LineNr">3322 </span> <span class="subxComment"># break</span> +<span id="L3323" class="LineNr">3323 </span><span class="Constant">$emit-imm:break</span>: +<span id="L3324" class="LineNr">3324 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L3325" class="LineNr">3325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3326" class="LineNr">3326 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3327" class="LineNr">3327 </span> 5a/pop-to-edx +<span id="L3328" class="LineNr">3328 </span> 59/pop-to-ecx +<span id="L3329" class="LineNr">3329 </span> 58/pop-to-eax +<span id="L3330" class="LineNr">3330 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3331" class="LineNr">3331 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3332" class="LineNr">3332 </span> 5d/pop-to-ebp +<span id="L3333" class="LineNr">3333 </span> c3/return +<span id="L3334" class="LineNr">3334 </span> +<span id="L3335" class="LineNr">3335 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L3336" class="LineNr">3336 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3337" class="LineNr">3337 </span> 55/push-ebp +<span id="L3338" class="LineNr">3338 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3339" class="LineNr">3339 </span> <span class="subxComment"># write-buffered(out, " # ")</span> +<span id="L3340" class="LineNr">3340 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3341" class="LineNr">3341 </span> 68/push <span class="Constant">" # "</span>/imm32 +<span id="L3342" class="LineNr">3342 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3343" class="LineNr">3343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3344" class="LineNr">3344 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3345" class="LineNr">3345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3346" class="LineNr">3346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3347" class="LineNr">3347 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3349" class="LineNr">3349 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3350" class="LineNr">3350 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3351" class="LineNr">3351 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3352" class="LineNr">3352 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3354" class="LineNr">3354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3355" class="LineNr">3355 </span><span class="Constant">$emit-line-in-comment:end</span>: +<span id="L3356" class="LineNr">3356 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3357" class="LineNr">3357 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3358" class="LineNr">3358 </span> 5d/pop-to-ebp +<span id="L3359" class="LineNr">3359 </span> c3/return +<span id="L3360" class="LineNr">3360 </span> +<span id="L3361" class="LineNr">3361 </span><span class="subxTest">test-convert-instruction-passes-comments-through</span>: +<span id="L3362" class="LineNr">3362 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> +<span id="L3363" class="LineNr">3363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3364" class="LineNr">3364 </span> 55/push-ebp +<span id="L3365" class="LineNr">3365 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3366" class="LineNr">3366 </span> <span class="subxComment"># setup</span> +<span id="L3367" class="LineNr">3367 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3369" class="LineNr">3369 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3370" class="LineNr">3370 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3371" class="LineNr">3371 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3372" class="LineNr">3372 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3373" class="LineNr">3373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3374" class="LineNr">3374 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3376" class="LineNr">3376 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3378" class="LineNr">3378 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3379" class="LineNr">3379 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3380" class="LineNr">3380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3381" class="LineNr">3381 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3382" class="LineNr">3382 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3383" class="LineNr">3383 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3384" class="LineNr">3384 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3385" class="LineNr">3385 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3386" class="LineNr">3386 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3387" class="LineNr">3387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3388" class="LineNr">3388 </span> <span class="subxComment"># initialize input</span> +<span id="L3389" class="LineNr">3389 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L3390" class="LineNr">3390 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3391" class="LineNr">3391 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L3392" class="LineNr">3392 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3393" class="LineNr">3393 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3394" class="LineNr">3394 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3395" class="LineNr">3395 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3396" class="LineNr">3396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3397" class="LineNr">3397 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3398" class="LineNr">3398 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3399" class="LineNr">3399 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3400" class="LineNr">3400 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3401" class="LineNr">3401 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3402" class="LineNr">3402 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3403" class="LineNr">3403 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3404" class="LineNr">3404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3405" class="LineNr">3405 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L3406" class="LineNr">3406 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3407" class="LineNr">3407 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3408" class="LineNr">3408 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3409" class="LineNr">3409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3410" class="LineNr">3410 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3411" class="LineNr">3411 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3412" class="LineNr">3412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3413" class="LineNr">3413 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> +<span id="L3414" class="LineNr">3414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3415" class="LineNr">3415 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-comments-through"</span>/imm32 +<span id="L3416" class="LineNr">3416 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L3417" class="LineNr">3417 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3418" class="LineNr">3418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3419" class="LineNr">3419 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3420" class="LineNr">3420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3421" class="LineNr">3421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3422" class="LineNr">3422 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3423" class="LineNr">3423 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3424" class="LineNr">3424 </span> 5d/pop-to-ebp +<span id="L3425" class="LineNr">3425 </span> c3/return +<span id="L3426" class="LineNr">3426 </span> +<span id="L3427" class="LineNr">3427 </span><span class="subxTest">test-convert-instruction-passes-labels-through</span>: +<span id="L3428" class="LineNr">3428 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> +<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3430" class="LineNr">3430 </span> 55/push-ebp +<span id="L3431" class="LineNr">3431 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3432" class="LineNr">3432 </span> <span class="subxComment"># setup</span> +<span id="L3433" class="LineNr">3433 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3435" class="LineNr">3435 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3436" class="LineNr">3436 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3437" class="LineNr">3437 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3438" class="LineNr">3438 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3439" class="LineNr">3439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3440" class="LineNr">3440 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3441" class="LineNr">3441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3442" class="LineNr">3442 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3443" class="LineNr">3443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3444" class="LineNr">3444 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3445" class="LineNr">3445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3446" class="LineNr">3446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3447" class="LineNr">3447 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3449" class="LineNr">3449 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3451" class="LineNr">3451 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3452" class="LineNr">3452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3453" class="LineNr">3453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3454" class="LineNr">3454 </span> <span class="subxComment"># initialize input</span> +<span id="L3455" class="LineNr">3455 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L3456" class="LineNr">3456 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3457" class="LineNr">3457 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L3458" class="LineNr">3458 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3459" class="LineNr">3459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3460" class="LineNr">3460 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3461" class="LineNr">3461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3462" class="LineNr">3462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3463" class="LineNr">3463 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3464" class="LineNr">3464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3465" class="LineNr">3465 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3466" class="LineNr">3466 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3467" class="LineNr">3467 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3468" class="LineNr">3468 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3469" class="LineNr">3469 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3470" class="LineNr">3470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3471" class="LineNr">3471 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L3472" class="LineNr">3472 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3473" class="LineNr">3473 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3474" class="LineNr">3474 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3475" class="LineNr">3475 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3476" class="LineNr">3476 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3477" class="LineNr">3477 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3478" class="LineNr">3478 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3479" class="LineNr">3479 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> +<span id="L3480" class="LineNr">3480 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3481" class="LineNr">3481 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-labels-through"</span>/imm32 +<span id="L3482" class="LineNr">3482 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L3483" class="LineNr">3483 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3484" class="LineNr">3484 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3485" class="LineNr">3485 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3486" class="LineNr">3486 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3487" class="LineNr">3487 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3488" class="LineNr">3488 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3489" class="LineNr">3489 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3490" class="LineNr">3490 </span> 5d/pop-to-ebp +<span id="L3491" class="LineNr">3491 </span> c3/return +<span id="L3492" class="LineNr">3492 </span> +<span id="L3493" class="LineNr">3493 </span><span class="subxTest">test-convert-instruction-handles-single-opcode</span>: +<span id="L3494" class="LineNr">3494 </span> <span class="subxComment"># if the instruction consists of a single opcode, strip its metadata and pass it along</span> +<span id="L3495" class="LineNr">3495 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3496" class="LineNr">3496 </span> 55/push-ebp +<span id="L3497" class="LineNr">3497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3498" class="LineNr">3498 </span> <span class="subxComment"># setup</span> +<span id="L3499" class="LineNr">3499 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3501" class="LineNr">3501 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3503" class="LineNr">3503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3505" class="LineNr">3505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3506" class="LineNr">3506 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3508" class="LineNr">3508 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3510" class="LineNr">3510 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3511" class="LineNr">3511 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3512" class="LineNr">3512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3513" class="LineNr">3513 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3514" class="LineNr">3514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3515" class="LineNr">3515 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3516" class="LineNr">3516 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3517" class="LineNr">3517 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3518" class="LineNr">3518 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3519" class="LineNr">3519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3520" class="LineNr">3520 </span> <span class="subxComment"># initialize input</span> +<span id="L3521" class="LineNr">3521 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/cd # comment")</span> +<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3523" class="LineNr">3523 </span> 68/push <span class="Constant">"ab/cd # comment"</span>/imm32 +<span id="L3524" class="LineNr">3524 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3526" class="LineNr">3526 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3528" class="LineNr">3528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3529" class="LineNr">3529 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3530" class="LineNr">3530 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3531" class="LineNr">3531 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3532" class="LineNr">3532 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3533" class="LineNr">3533 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3534" class="LineNr">3534 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3535" class="LineNr">3535 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3536" class="LineNr">3536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3537" class="LineNr">3537 </span> <span class="subxComment"># check output</span> +<span id="L3538" class="LineNr">3538 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3539" class="LineNr">3539 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3540" class="LineNr">3540 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3541" class="LineNr">3541 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3542" class="LineNr">3542 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3543" class="LineNr">3543 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3544" class="LineNr">3544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3545" class="Folded">3545 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3571" class="LineNr">3571 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # ab/cd # comment", msg)</span> +<span id="L3572" class="LineNr">3572 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3573" class="LineNr">3573 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-single-opcode"</span>/imm32 +<span id="L3574" class="LineNr">3574 </span> 68/push <span class="Constant">"ab # ab/cd # comment"</span>/imm32 +<span id="L3575" class="LineNr">3575 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3576" class="LineNr">3576 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3577" class="LineNr">3577 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3578" class="LineNr">3578 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3579" class="LineNr">3579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3580" class="LineNr">3580 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3581" class="LineNr">3581 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3582" class="LineNr">3582 </span> 5d/pop-to-ebp +<span id="L3583" class="LineNr">3583 </span> c3/return +<span id="L3584" class="LineNr">3584 </span> +<span id="L3585" class="LineNr">3585 </span><span class="subxTest">test-convert-instruction-handles-0f-opcode</span>: +<span id="L3586" class="LineNr">3586 </span> <span class="subxComment"># if the instruction starts with 0f opcode, include a second opcode</span> +<span id="L3587" class="LineNr">3587 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3588" class="LineNr">3588 </span> 55/push-ebp +<span id="L3589" class="LineNr">3589 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3590" class="LineNr">3590 </span> <span class="subxComment"># setup</span> +<span id="L3591" class="LineNr">3591 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3592" class="LineNr">3592 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3593" class="LineNr">3593 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3594" class="LineNr">3594 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3595" class="LineNr">3595 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3596" class="LineNr">3596 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3597" class="LineNr">3597 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3598" class="LineNr">3598 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3599" class="LineNr">3599 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3600" class="LineNr">3600 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3601" class="LineNr">3601 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3602" class="LineNr">3602 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3603" class="LineNr">3603 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3604" class="LineNr">3604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3605" class="LineNr">3605 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3606" class="LineNr">3606 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3607" class="LineNr">3607 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3609" class="LineNr">3609 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3610" class="LineNr">3610 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3611" class="LineNr">3611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3612" class="LineNr">3612 </span> <span class="subxComment"># initialize input</span> +<span id="L3613" class="LineNr">3613 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0f/m1 ab/m2 # comment")</span> +<span id="L3614" class="LineNr">3614 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3615" class="LineNr">3615 </span> 68/push <span class="Constant">"0f/m1 ab/m2 # comment"</span>/imm32 +<span id="L3616" class="LineNr">3616 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3617" class="LineNr">3617 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3618" class="LineNr">3618 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3619" class="LineNr">3619 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3620" class="LineNr">3620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3621" class="LineNr">3621 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3622" class="LineNr">3622 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3623" class="LineNr">3623 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3624" class="LineNr">3624 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3625" class="LineNr">3625 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3626" class="LineNr">3626 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3627" class="LineNr">3627 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3628" class="LineNr">3628 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3629" class="LineNr">3629 </span> <span class="subxComment"># check output</span> +<span id="L3630" class="LineNr">3630 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3631" class="LineNr">3631 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3632" class="LineNr">3632 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3633" class="LineNr">3633 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3634" class="LineNr">3634 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3636" class="LineNr">3636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3637" class="Folded">3637 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3663" class="LineNr">3663 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0f ab # 0f/m1 ab/m2 # comment", msg)</span> +<span id="L3664" class="LineNr">3664 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3665" class="LineNr">3665 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-0f-opcode"</span>/imm32 +<span id="L3666" class="LineNr">3666 </span> 68/push <span class="Constant">"0f ab # 0f/m1 ab/m2 # comment"</span>/imm32 +<span id="L3667" class="LineNr">3667 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3668" class="LineNr">3668 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3669" class="LineNr">3669 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3670" class="LineNr">3670 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3671" class="LineNr">3671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3672" class="LineNr">3672 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3673" class="LineNr">3673 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3674" class="LineNr">3674 </span> 5d/pop-to-ebp +<span id="L3675" class="LineNr">3675 </span> c3/return +<span id="L3676" class="LineNr">3676 </span> +<span id="L3677" class="LineNr">3677 </span><span class="subxTest">test-convert-instruction-handles-f2-opcode</span>: +<span id="L3678" class="LineNr">3678 </span> <span class="subxComment"># if the instruction starts with f2 opcode, include a second opcode</span> +<span id="L3679" class="LineNr">3679 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3680" class="LineNr">3680 </span> 55/push-ebp +<span id="L3681" class="LineNr">3681 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3682" class="LineNr">3682 </span> <span class="subxComment"># setup</span> +<span id="L3683" class="LineNr">3683 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3684" class="LineNr">3684 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3685" class="LineNr">3685 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3686" class="LineNr">3686 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3687" class="LineNr">3687 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3688" class="LineNr">3688 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3689" class="LineNr">3689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3690" class="LineNr">3690 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3691" class="LineNr">3691 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3692" class="LineNr">3692 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3693" class="LineNr">3693 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3694" class="LineNr">3694 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3695" class="LineNr">3695 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3696" class="LineNr">3696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3697" class="LineNr">3697 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3698" class="LineNr">3698 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3699" class="LineNr">3699 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3700" class="LineNr">3700 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3701" class="LineNr">3701 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3702" class="LineNr">3702 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3703" class="LineNr">3703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3704" class="LineNr">3704 </span> <span class="subxComment"># initialize input</span> +<span id="L3705" class="LineNr">3705 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 # comment")</span> +<span id="L3706" class="LineNr">3706 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3707" class="LineNr">3707 </span> 68/push <span class="Constant">"f2/m1 ab/m2 # comment"</span>/imm32 +<span id="L3708" class="LineNr">3708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3709" class="LineNr">3709 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3710" class="LineNr">3710 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3711" class="LineNr">3711 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3712" class="LineNr">3712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3713" class="LineNr">3713 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3714" class="LineNr">3714 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3715" class="LineNr">3715 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3716" class="LineNr">3716 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3717" class="LineNr">3717 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3718" class="LineNr">3718 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3719" class="LineNr">3719 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3720" class="LineNr">3720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3721" class="LineNr">3721 </span> <span class="subxComment"># check output</span> +<span id="L3722" class="LineNr">3722 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3723" class="LineNr">3723 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3724" class="LineNr">3724 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3725" class="LineNr">3725 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3726" class="LineNr">3726 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3727" class="LineNr">3727 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3728" class="LineNr">3728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3729" class="Folded">3729 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3755" class="LineNr">3755 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 # comment", msg)</span> +<span id="L3756" class="LineNr">3756 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3757" class="LineNr">3757 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-opcode"</span>/imm32 +<span id="L3758" class="LineNr">3758 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 # comment"</span>/imm32 +<span id="L3759" class="LineNr">3759 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3761" class="LineNr">3761 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3762" class="LineNr">3762 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3763" class="LineNr">3763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3764" class="LineNr">3764 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3765" class="LineNr">3765 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3766" class="LineNr">3766 </span> 5d/pop-to-ebp +<span id="L3767" class="LineNr">3767 </span> c3/return +<span id="L3768" class="LineNr">3768 </span> +<span id="L3769" class="LineNr">3769 </span><span class="subxTest">test-convert-instruction-handles-f3-opcode</span>: +<span id="L3770" class="LineNr">3770 </span> <span class="subxComment"># if the instruction starts with f3 opcode, include a second opcode</span> +<span id="L3771" class="LineNr">3771 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3772" class="LineNr">3772 </span> 55/push-ebp +<span id="L3773" class="LineNr">3773 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3774" class="LineNr">3774 </span> <span class="subxComment"># setup</span> +<span id="L3775" class="LineNr">3775 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3776" class="LineNr">3776 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3777" class="LineNr">3777 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3778" class="LineNr">3778 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3779" class="LineNr">3779 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3780" class="LineNr">3780 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3781" class="LineNr">3781 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3782" class="LineNr">3782 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3783" class="LineNr">3783 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3784" class="LineNr">3784 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3785" class="LineNr">3785 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3786" class="LineNr">3786 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3787" class="LineNr">3787 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3788" class="LineNr">3788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3789" class="LineNr">3789 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3790" class="LineNr">3790 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3791" class="LineNr">3791 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3792" class="LineNr">3792 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3793" class="LineNr">3793 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3794" class="LineNr">3794 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3795" class="LineNr">3795 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3796" class="LineNr">3796 </span> <span class="subxComment"># initialize input</span> +<span id="L3797" class="LineNr">3797 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 # comment")</span> +<span id="L3798" class="LineNr">3798 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3799" class="LineNr">3799 </span> 68/push <span class="Constant">"f3/m1 ab/m2 # comment"</span>/imm32 +<span id="L3800" class="LineNr">3800 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3801" class="LineNr">3801 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3802" class="LineNr">3802 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3803" class="LineNr">3803 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3804" class="LineNr">3804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3805" class="LineNr">3805 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3806" class="LineNr">3806 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3807" class="LineNr">3807 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3808" class="LineNr">3808 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3809" class="LineNr">3809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3810" class="LineNr">3810 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3811" class="LineNr">3811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3812" class="LineNr">3812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3813" class="LineNr">3813 </span> <span class="subxComment"># check output</span> +<span id="L3814" class="LineNr">3814 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3816" class="LineNr">3816 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3818" class="LineNr">3818 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3820" class="LineNr">3820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3821" class="Folded">3821 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3847" class="LineNr">3847 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 # comment", msg)</span> +<span id="L3848" class="LineNr">3848 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3849" class="LineNr">3849 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-opcode"</span>/imm32 +<span id="L3850" class="LineNr">3850 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 # comment"</span>/imm32 +<span id="L3851" class="LineNr">3851 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3852" class="LineNr">3852 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3853" class="LineNr">3853 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3854" class="LineNr">3854 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3855" class="LineNr">3855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3856" class="LineNr">3856 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3857" class="LineNr">3857 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3858" class="LineNr">3858 </span> 5d/pop-to-ebp +<span id="L3859" class="LineNr">3859 </span> c3/return +<span id="L3860" class="LineNr">3860 </span> +<span id="L3861" class="LineNr">3861 </span><span class="subxTest">test-convert-instruction-handles-f2-0f-opcode</span>: +<span id="L3862" class="LineNr">3862 </span> <span class="subxComment"># if the instruction starts with f2 0f opcode, include a second opcode</span> +<span id="L3863" class="LineNr">3863 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3864" class="LineNr">3864 </span> 55/push-ebp +<span id="L3865" class="LineNr">3865 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3866" class="LineNr">3866 </span> <span class="subxComment"># setup</span> +<span id="L3867" class="LineNr">3867 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3868" class="LineNr">3868 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3869" class="LineNr">3869 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3871" class="LineNr">3871 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3873" class="LineNr">3873 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3874" class="LineNr">3874 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3875" class="LineNr">3875 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3876" class="LineNr">3876 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3877" class="LineNr">3877 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3878" class="LineNr">3878 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3879" class="LineNr">3879 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3880" class="LineNr">3880 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3881" class="LineNr">3881 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3882" class="LineNr">3882 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3883" class="LineNr">3883 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3884" class="LineNr">3884 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3885" class="LineNr">3885 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3886" class="LineNr">3886 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3887" class="LineNr">3887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3888" class="LineNr">3888 </span> <span class="subxComment"># initialize input</span> +<span id="L3889" class="LineNr">3889 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 0f/m2 ab/m3 # comment")</span> +<span id="L3890" class="LineNr">3890 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3891" class="LineNr">3891 </span> 68/push <span class="Constant">"f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L3892" class="LineNr">3892 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3893" class="LineNr">3893 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3894" class="LineNr">3894 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3895" class="LineNr">3895 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3896" class="LineNr">3896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3897" class="LineNr">3897 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3898" class="LineNr">3898 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3899" class="LineNr">3899 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3900" class="LineNr">3900 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3902" class="LineNr">3902 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3903" class="LineNr">3903 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3904" class="LineNr">3904 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3905" class="LineNr">3905 </span> <span class="subxComment"># check output</span> +<span id="L3906" class="LineNr">3906 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3907" class="LineNr">3907 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3908" class="LineNr">3908 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3909" class="LineNr">3909 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3910" class="LineNr">3910 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3911" class="LineNr">3911 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3912" class="LineNr">3912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3913" class="Folded">3913 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3939" class="LineNr">3939 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 0f ab # f2/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L3940" class="LineNr">3940 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3941" class="LineNr">3941 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-0f-opcode"</span>/imm32 +<span id="L3942" class="LineNr">3942 </span> 68/push <span class="Constant">"f2 0f ab # f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L3943" class="LineNr">3943 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3944" class="LineNr">3944 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3945" class="LineNr">3945 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3946" class="LineNr">3946 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3947" class="LineNr">3947 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3948" class="LineNr">3948 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3949" class="LineNr">3949 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3950" class="LineNr">3950 </span> 5d/pop-to-ebp +<span id="L3951" class="LineNr">3951 </span> c3/return +<span id="L3952" class="LineNr">3952 </span> +<span id="L3953" class="LineNr">3953 </span><span class="subxTest">test-convert-instruction-handles-f3-0f-opcode</span>: +<span id="L3954" class="LineNr">3954 </span> <span class="subxComment"># if the instruction starts with f3 0f opcode, include a second opcode</span> +<span id="L3955" class="LineNr">3955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3956" class="LineNr">3956 </span> 55/push-ebp +<span id="L3957" class="LineNr">3957 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3958" class="LineNr">3958 </span> <span class="subxComment"># setup</span> +<span id="L3959" class="LineNr">3959 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3961" class="LineNr">3961 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3962" class="LineNr">3962 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3963" class="LineNr">3963 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3964" class="LineNr">3964 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3965" class="LineNr">3965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3966" class="LineNr">3966 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3967" class="LineNr">3967 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3968" class="LineNr">3968 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3969" class="LineNr">3969 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3970" class="LineNr">3970 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3972" class="LineNr">3972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3973" class="LineNr">3973 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3974" class="LineNr">3974 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3975" class="LineNr">3975 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3976" class="LineNr">3976 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3977" class="LineNr">3977 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3978" class="LineNr">3978 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3979" class="LineNr">3979 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3980" class="LineNr">3980 </span> <span class="subxComment"># initialize input</span> +<span id="L3981" class="LineNr">3981 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 0f/m2 ab/m3 # comment")</span> +<span id="L3982" class="LineNr">3982 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3983" class="LineNr">3983 </span> 68/push <span class="Constant">"f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L3984" class="LineNr">3984 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3985" class="LineNr">3985 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3986" class="LineNr">3986 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L3987" class="LineNr">3987 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3988" class="LineNr">3988 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3989" class="LineNr">3989 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3990" class="LineNr">3990 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3991" class="LineNr">3991 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3992" class="LineNr">3992 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3993" class="LineNr">3993 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3994" class="LineNr">3994 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L3995" class="LineNr">3995 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3996" class="LineNr">3996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3997" class="LineNr">3997 </span> <span class="subxComment"># check output</span> +<span id="L3998" class="LineNr">3998 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3999" class="LineNr">3999 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4000" class="LineNr">4000 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4001" class="LineNr">4001 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4002" class="LineNr">4002 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4003" class="LineNr">4003 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4004" class="LineNr">4004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4005" class="Folded">4005 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4031" class="LineNr">4031 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 0f ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L4032" class="LineNr">4032 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4033" class="LineNr">4033 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-0f-opcode"</span>/imm32 +<span id="L4034" class="LineNr">4034 </span> 68/push <span class="Constant">"f3 0f ab # f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L4035" class="LineNr">4035 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4036" class="LineNr">4036 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4037" class="LineNr">4037 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4038" class="LineNr">4038 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4039" class="LineNr">4039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4040" class="LineNr">4040 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4041" class="LineNr">4041 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4042" class="LineNr">4042 </span> 5d/pop-to-ebp +<span id="L4043" class="LineNr">4043 </span> c3/return +<span id="L4044" class="LineNr">4044 </span> +<span id="L4045" class="LineNr">4045 </span><span class="subxTest">test-convert-instruction-handles-unused-opcodes</span>: +<span id="L4046" class="LineNr">4046 </span> <span class="subxComment"># if the instruction doesn't start with f2, f3 or 0f, don't include other opcodes</span> +<span id="L4047" class="LineNr">4047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4048" class="LineNr">4048 </span> 55/push-ebp +<span id="L4049" class="LineNr">4049 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4050" class="LineNr">4050 </span> <span class="subxComment"># setup</span> +<span id="L4051" class="LineNr">4051 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4052" class="LineNr">4052 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4053" class="LineNr">4053 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4054" class="LineNr">4054 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4055" class="LineNr">4055 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4056" class="LineNr">4056 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4057" class="LineNr">4057 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4058" class="LineNr">4058 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4059" class="LineNr">4059 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4060" class="LineNr">4060 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4061" class="LineNr">4061 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4062" class="LineNr">4062 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4063" class="LineNr">4063 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4064" class="LineNr">4064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4065" class="LineNr">4065 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4066" class="LineNr">4066 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4067" class="LineNr">4067 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4068" class="LineNr">4068 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4069" class="LineNr">4069 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4070" class="LineNr">4070 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4071" class="LineNr">4071 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4072" class="LineNr">4072 </span> <span class="subxComment"># initialize input</span> +<span id="L4073" class="LineNr">4073 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/m1 cd/m2 # comment")</span> +<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4075" class="LineNr">4075 </span> 68/push <span class="Constant">"ab/m1 cd/m2 # comment"</span>/imm32 +<span id="L4076" class="LineNr">4076 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4077" class="LineNr">4077 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4078" class="LineNr">4078 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4079" class="LineNr">4079 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4080" class="LineNr">4080 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4081" class="LineNr">4081 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4083" class="LineNr">4083 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4084" class="LineNr">4084 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4085" class="LineNr">4085 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4086" class="LineNr">4086 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4087" class="LineNr">4087 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4088" class="LineNr">4088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># check output</span> +<span id="L4090" class="LineNr">4090 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4091" class="LineNr">4091 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4092" class="LineNr">4092 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4093" class="LineNr">4093 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4094" class="LineNr">4094 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4095" class="LineNr">4095 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4096" class="LineNr">4096 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4097" class="Folded">4097 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4123" class="LineNr">4123 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L4124" class="LineNr">4124 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4125" class="LineNr">4125 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-opcodes"</span>/imm32 +<span id="L4126" class="LineNr">4126 </span> 68/push <span class="Constant">"ab # ab/m1 cd/m2 # comment"</span>/imm32 +<span id="L4127" class="LineNr">4127 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4128" class="LineNr">4128 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4129" class="LineNr">4129 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4130" class="LineNr">4130 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4131" class="LineNr">4131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4132" class="LineNr">4132 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4133" class="LineNr">4133 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4134" class="LineNr">4134 </span> 5d/pop-to-ebp +<span id="L4135" class="LineNr">4135 </span> c3/return +<span id="L4136" class="LineNr">4136 </span> +<span id="L4137" class="LineNr">4137 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes</span>: +<span id="L4138" class="LineNr">4138 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> +<span id="L4139" class="LineNr">4139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4140" class="LineNr">4140 </span> 55/push-ebp +<span id="L4141" class="LineNr">4141 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4142" class="LineNr">4142 </span> <span class="subxComment"># setup</span> +<span id="L4143" class="LineNr">4143 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4145" class="LineNr">4145 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4147" class="LineNr">4147 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4148" class="LineNr">4148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4149" class="LineNr">4149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4150" class="LineNr">4150 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4151" class="LineNr">4151 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4152" class="LineNr">4152 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4153" class="LineNr">4153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4154" class="LineNr">4154 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4155" class="LineNr">4155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4156" class="LineNr">4156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4157" class="LineNr">4157 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4158" class="LineNr">4158 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4159" class="LineNr">4159 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4160" class="LineNr">4160 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4161" class="LineNr">4161 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4162" class="LineNr">4162 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4163" class="LineNr">4163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4164" class="LineNr">4164 </span> <span class="subxComment"># initialize input</span> +<span id="L4165" class="LineNr">4165 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4166" class="LineNr">4166 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4167" class="LineNr">4167 </span> 68/push <span class="Constant">"f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4168" class="LineNr">4168 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4169" class="LineNr">4169 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4170" class="LineNr">4170 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4171" class="LineNr">4171 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4172" class="LineNr">4172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4173" class="LineNr">4173 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4174" class="LineNr">4174 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4175" class="LineNr">4175 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4176" class="LineNr">4176 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4178" class="LineNr">4178 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4179" class="LineNr">4179 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4180" class="LineNr">4180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4181" class="LineNr">4181 </span> <span class="subxComment"># check output</span> +<span id="L4182" class="LineNr">4182 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4183" class="LineNr">4183 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4184" class="LineNr">4184 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4185" class="LineNr">4185 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4186" class="LineNr">4186 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4187" class="LineNr">4187 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4188" class="LineNr">4188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4189" class="Folded">4189 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4215" class="LineNr">4215 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 cd/m3 # comment", msg)</span> +<span id="L4216" class="LineNr">4216 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4217" class="LineNr">4217 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 +<span id="L4218" class="LineNr">4218 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4219" class="LineNr">4219 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4220" class="LineNr">4220 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4221" class="LineNr">4221 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4222" class="LineNr">4222 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4223" class="LineNr">4223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4224" class="LineNr">4224 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4225" class="LineNr">4225 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4226" class="LineNr">4226 </span> 5d/pop-to-ebp +<span id="L4227" class="LineNr">4227 </span> c3/return +<span id="L4228" class="LineNr">4228 </span> +<span id="L4229" class="LineNr">4229 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes-2</span>: +<span id="L4230" class="LineNr">4230 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> +<span id="L4231" class="LineNr">4231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4232" class="LineNr">4232 </span> 55/push-ebp +<span id="L4233" class="LineNr">4233 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4234" class="LineNr">4234 </span> <span class="subxComment"># setup</span> +<span id="L4235" class="LineNr">4235 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4236" class="LineNr">4236 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4237" class="LineNr">4237 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4238" class="LineNr">4238 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4239" class="LineNr">4239 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4240" class="LineNr">4240 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4241" class="LineNr">4241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4242" class="LineNr">4242 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4244" class="LineNr">4244 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4246" class="LineNr">4246 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4247" class="LineNr">4247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4248" class="LineNr">4248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4249" class="LineNr">4249 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4250" class="LineNr">4250 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4251" class="LineNr">4251 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4252" class="LineNr">4252 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4253" class="LineNr">4253 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4254" class="LineNr">4254 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4255" class="LineNr">4255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4256" class="LineNr">4256 </span> <span class="subxComment"># initialize input</span> +<span id="L4257" class="LineNr">4257 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4258" class="LineNr">4258 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4259" class="LineNr">4259 </span> 68/push <span class="Constant">"f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4260" class="LineNr">4260 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4261" class="LineNr">4261 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4262" class="LineNr">4262 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4263" class="LineNr">4263 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4264" class="LineNr">4264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4265" class="LineNr">4265 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4266" class="LineNr">4266 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4267" class="LineNr">4267 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4268" class="LineNr">4268 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4269" class="LineNr">4269 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4270" class="LineNr">4270 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4271" class="LineNr">4271 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4272" class="LineNr">4272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4273" class="LineNr">4273 </span> <span class="subxComment"># check output</span> +<span id="L4274" class="LineNr">4274 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4275" class="LineNr">4275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4276" class="LineNr">4276 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4277" class="LineNr">4277 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4278" class="LineNr">4278 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4280" class="LineNr">4280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4281" class="Folded">4281 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4307" class="LineNr">4307 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 cd/m3 # comment", msg)</span> +<span id="L4308" class="LineNr">4308 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4309" class="LineNr">4309 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 +<span id="L4310" class="LineNr">4310 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4311" class="LineNr">4311 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4312" class="LineNr">4312 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4313" class="LineNr">4313 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4314" class="LineNr">4314 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4315" class="LineNr">4315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4316" class="LineNr">4316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4317" class="LineNr">4317 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4318" class="LineNr">4318 </span> 5d/pop-to-ebp +<span id="L4319" class="LineNr">4319 </span> c3/return +<span id="L4320" class="LineNr">4320 </span> +<span id="L4321" class="LineNr">4321 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte</span>: +<span id="L4322" class="LineNr">4322 </span> <span class="subxComment"># pack mod, rm32 and r32 operands into ModR/M byte</span> +<span id="L4323" class="LineNr">4323 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4324" class="LineNr">4324 </span> 55/push-ebp +<span id="L4325" class="LineNr">4325 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4326" class="LineNr">4326 </span> <span class="subxComment"># setup</span> +<span id="L4327" class="LineNr">4327 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4328" class="LineNr">4328 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4329" class="LineNr">4329 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4330" class="LineNr">4330 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4331" class="LineNr">4331 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4332" class="LineNr">4332 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4333" class="LineNr">4333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4334" class="LineNr">4334 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4335" class="LineNr">4335 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4336" class="LineNr">4336 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4337" class="LineNr">4337 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4338" class="LineNr">4338 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4339" class="LineNr">4339 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4340" class="LineNr">4340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4341" class="LineNr">4341 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4342" class="LineNr">4342 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4343" class="LineNr">4343 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4344" class="LineNr">4344 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4345" class="LineNr">4345 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4346" class="LineNr">4346 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4347" class="LineNr">4347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4348" class="LineNr">4348 </span> <span class="subxComment"># initialize input</span> +<span id="L4349" class="LineNr">4349 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32 1/r32")</span> +<span id="L4350" class="LineNr">4350 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4351" class="LineNr">4351 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 +<span id="L4352" class="LineNr">4352 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4353" class="LineNr">4353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4354" class="LineNr">4354 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4355" class="LineNr">4355 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4356" class="LineNr">4356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4357" class="LineNr">4357 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4359" class="LineNr">4359 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4360" class="LineNr">4360 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4361" class="LineNr">4361 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4362" class="LineNr">4362 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4363" class="LineNr">4363 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4364" class="LineNr">4364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4365" class="LineNr">4365 </span> <span class="subxComment"># check output</span> +<span id="L4366" class="LineNr">4366 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4367" class="LineNr">4367 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4368" class="LineNr">4368 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4369" class="LineNr">4369 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4370" class="LineNr">4370 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4371" class="LineNr">4371 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4372" class="LineNr">4372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4373" class="Folded">4373 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4399" class="LineNr">4399 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 0/rm32 1/r32", msg)</span> +<span id="L4400" class="LineNr">4400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4401" class="LineNr">4401 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte"</span>/imm32 +<span id="L4402" class="LineNr">4402 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 +<span id="L4403" class="LineNr">4403 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4404" class="LineNr">4404 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4405" class="LineNr">4405 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4406" class="LineNr">4406 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4407" class="LineNr">4407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4408" class="LineNr">4408 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4409" class="LineNr">4409 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4410" class="LineNr">4410 </span> 5d/pop-to-ebp +<span id="L4411" class="LineNr">4411 </span> c3/return +<span id="L4412" class="LineNr">4412 </span> +<span id="L4413" class="LineNr">4413 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-non-zero-mod</span>: +<span id="L4414" class="LineNr">4414 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4415" class="LineNr">4415 </span> 55/push-ebp +<span id="L4416" class="LineNr">4416 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4417" class="LineNr">4417 </span> <span class="subxComment"># setup</span> +<span id="L4418" class="LineNr">4418 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4419" class="LineNr">4419 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4420" class="LineNr">4420 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4421" class="LineNr">4421 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4422" class="LineNr">4422 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4423" class="LineNr">4423 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4424" class="LineNr">4424 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4425" class="LineNr">4425 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4426" class="LineNr">4426 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4427" class="LineNr">4427 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4428" class="LineNr">4428 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4429" class="LineNr">4429 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4430" class="LineNr">4430 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4431" class="LineNr">4431 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4432" class="LineNr">4432 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4433" class="LineNr">4433 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4434" class="LineNr">4434 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4435" class="LineNr">4435 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4436" class="LineNr">4436 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4437" class="LineNr">4437 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4438" class="LineNr">4438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4439" class="LineNr">4439 </span> <span class="subxComment"># initialize input</span> +<span id="L4440" class="LineNr">4440 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx")</span> +<span id="L4441" class="LineNr">4441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4442" class="LineNr">4442 </span> 68/push <span class="Constant">"01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 +<span id="L4443" class="LineNr">4443 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4444" class="LineNr">4444 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4445" class="LineNr">4445 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4446" class="LineNr">4446 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4447" class="LineNr">4447 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4448" class="LineNr">4448 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4449" class="LineNr">4449 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4450" class="LineNr">4450 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4451" class="LineNr">4451 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4453" class="LineNr">4453 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4455" class="LineNr">4455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4456" class="LineNr">4456 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4457" class="LineNr">4457 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4458" class="LineNr">4458 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4459" class="LineNr">4459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4460" class="LineNr">4460 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4461" class="LineNr">4461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4462" class="LineNr">4462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4463" class="Folded">4463 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4489" class="LineNr">4489 </span> <span class="subxComment"># check output</span> +<span id="L4490" class="LineNr">4490 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> +<span id="L4491" class="LineNr">4491 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4492" class="LineNr">4492 </span> 68/push <span class="Constant">"F - test-convert-instruction-foo"</span>/imm32 +<span id="L4493" class="LineNr">4493 </span> 68/push <span class="Constant">"01 cb # 01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 +<span id="L4494" class="LineNr">4494 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4495" class="LineNr">4495 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4496" class="LineNr">4496 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4497" class="LineNr">4497 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4498" class="LineNr">4498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4499" class="LineNr">4499 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4500" class="LineNr">4500 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4501" class="LineNr">4501 </span> 5d/pop-to-ebp +<span id="L4502" class="LineNr">4502 </span> c3/return +<span id="L4503" class="LineNr">4503 </span> +<span id="L4504" class="LineNr">4504 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-from-subop</span>: +<span id="L4505" class="LineNr">4505 </span> <span class="subxComment"># pack mod, rm32 and subop operands into ModR/M byte</span> +<span id="L4506" class="LineNr">4506 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4507" class="LineNr">4507 </span> 55/push-ebp +<span id="L4508" class="LineNr">4508 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4509" class="LineNr">4509 </span> <span class="subxComment"># setup</span> +<span id="L4510" class="LineNr">4510 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4511" class="LineNr">4511 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4512" class="LineNr">4512 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4513" class="LineNr">4513 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4514" class="LineNr">4514 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4515" class="LineNr">4515 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4516" class="LineNr">4516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4517" class="LineNr">4517 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4518" class="LineNr">4518 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4519" class="LineNr">4519 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4520" class="LineNr">4520 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4521" class="LineNr">4521 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4522" class="LineNr">4522 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4523" class="LineNr">4523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4524" class="LineNr">4524 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4525" class="LineNr">4525 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4526" class="LineNr">4526 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4527" class="LineNr">4527 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4528" class="LineNr">4528 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4529" class="LineNr">4529 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4530" class="LineNr">4530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4531" class="LineNr">4531 </span> <span class="subxComment"># initialize input</span> +<span id="L4532" class="LineNr">4532 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ff 6/subop/push 0/mod 0/rm32")</span> +<span id="L4533" class="LineNr">4533 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4534" class="LineNr">4534 </span> 68/push <span class="Constant">"ff 6/subop/push 0/mod 0/rm32"</span>/imm32 +<span id="L4535" class="LineNr">4535 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4536" class="LineNr">4536 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4537" class="LineNr">4537 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4538" class="LineNr">4538 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4539" class="LineNr">4539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4540" class="LineNr">4540 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4542" class="LineNr">4542 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4543" class="LineNr">4543 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4544" class="LineNr">4544 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4545" class="LineNr">4545 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4546" class="LineNr">4546 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4547" class="LineNr">4547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4548" class="LineNr">4548 </span> <span class="subxComment"># check output</span> +<span id="L4549" class="LineNr">4549 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4551" class="LineNr">4551 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4552" class="LineNr">4552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4553" class="LineNr">4553 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4554" class="LineNr">4554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4555" class="LineNr">4555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4556" class="Folded">4556 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4582" class="LineNr">4582 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ff 30 # ff 6/subop/push 0/mod 0/rm32", msg)</span> +<span id="L4583" class="LineNr">4583 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4584" class="LineNr">4584 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-from-subop"</span>/imm32 +<span id="L4585" class="LineNr">4585 </span> 68/push <span class="Constant">"ff 30 # ff 6/subop/push 0/mod 0/rm32"</span>/imm32 +<span id="L4586" class="LineNr">4586 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4587" class="LineNr">4587 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4588" class="LineNr">4588 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4589" class="LineNr">4589 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4590" class="LineNr">4590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4591" class="LineNr">4591 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4592" class="LineNr">4592 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4593" class="LineNr">4593 </span> 5d/pop-to-ebp +<span id="L4594" class="LineNr">4594 </span> c3/return +<span id="L4595" class="LineNr">4595 </span> +<span id="L4596" class="LineNr">4596 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-mod</span>: +<span id="L4597" class="LineNr">4597 </span> <span class="subxComment"># pack rm32 and r32 operands into ModR/M byte</span> +<span id="L4598" class="LineNr">4598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4599" class="LineNr">4599 </span> 55/push-ebp +<span id="L4600" class="LineNr">4600 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4601" class="LineNr">4601 </span> <span class="subxComment"># setup</span> +<span id="L4602" class="LineNr">4602 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4603" class="LineNr">4603 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4604" class="LineNr">4604 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4606" class="LineNr">4606 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4608" class="LineNr">4608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4609" class="LineNr">4609 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4610" class="LineNr">4610 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4611" class="LineNr">4611 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4612" class="LineNr">4612 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4613" class="LineNr">4613 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4614" class="LineNr">4614 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4615" class="LineNr">4615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4616" class="LineNr">4616 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4617" class="LineNr">4617 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4618" class="LineNr">4618 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4619" class="LineNr">4619 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4620" class="LineNr">4620 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4621" class="LineNr">4621 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4622" class="LineNr">4622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4623" class="LineNr">4623 </span> <span class="subxComment"># initialize input</span> +<span id="L4624" class="LineNr">4624 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/rm32 1/r32")</span> +<span id="L4625" class="LineNr">4625 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4626" class="LineNr">4626 </span> 68/push <span class="Constant">"8b/copy 0/rm32 1/r32"</span>/imm32 +<span id="L4627" class="LineNr">4627 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4628" class="LineNr">4628 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4629" class="LineNr">4629 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4630" class="LineNr">4630 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4631" class="LineNr">4631 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4632" class="LineNr">4632 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4633" class="LineNr">4633 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4634" class="LineNr">4634 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4635" class="LineNr">4635 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4636" class="LineNr">4636 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4637" class="LineNr">4637 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4638" class="LineNr">4638 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4639" class="LineNr">4639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4640" class="LineNr">4640 </span> <span class="subxComment"># check output</span> +<span id="L4641" class="LineNr">4641 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4642" class="LineNr">4642 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4643" class="LineNr">4643 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4644" class="LineNr">4644 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4645" class="LineNr">4645 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4646" class="LineNr">4646 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4647" class="LineNr">4647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4648" class="Folded">4648 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4674" class="LineNr">4674 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/rm32 1/r32", msg)</span> +<span id="L4675" class="LineNr">4675 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4676" class="LineNr">4676 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-mod"</span>/imm32 +<span id="L4677" class="LineNr">4677 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/rm32 1/r32"</span>/imm32 +<span id="L4678" class="LineNr">4678 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4679" class="LineNr">4679 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4680" class="LineNr">4680 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4681" class="LineNr">4681 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4682" class="LineNr">4682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4683" class="LineNr">4683 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4684" class="LineNr">4684 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4685" class="LineNr">4685 </span> 5d/pop-to-ebp +<span id="L4686" class="LineNr">4686 </span> c3/return +<span id="L4687" class="LineNr">4687 </span> +<span id="L4688" class="LineNr">4688 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-rm32</span>: +<span id="L4689" class="LineNr">4689 </span> <span class="subxComment"># pack mod and r32 operands into ModR/M byte</span> +<span id="L4690" class="LineNr">4690 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4691" class="LineNr">4691 </span> 55/push-ebp +<span id="L4692" class="LineNr">4692 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4693" class="LineNr">4693 </span> <span class="subxComment"># setup</span> +<span id="L4694" class="LineNr">4694 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4695" class="LineNr">4695 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4696" class="LineNr">4696 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4697" class="LineNr">4697 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4698" class="LineNr">4698 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4699" class="LineNr">4699 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4700" class="LineNr">4700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4701" class="LineNr">4701 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4702" class="LineNr">4702 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4703" class="LineNr">4703 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4704" class="LineNr">4704 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4705" class="LineNr">4705 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4706" class="LineNr">4706 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4707" class="LineNr">4707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4708" class="LineNr">4708 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4709" class="LineNr">4709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4710" class="LineNr">4710 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4711" class="LineNr">4711 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4712" class="LineNr">4712 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4713" class="LineNr">4713 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4714" class="LineNr">4714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4715" class="LineNr">4715 </span> <span class="subxComment"># initialize input</span> +<span id="L4716" class="LineNr">4716 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 1/r32")</span> +<span id="L4717" class="LineNr">4717 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4718" class="LineNr">4718 </span> 68/push <span class="Constant">"8b/copy 0/mod 1/r32"</span>/imm32 +<span id="L4719" class="LineNr">4719 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4720" class="LineNr">4720 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4721" class="LineNr">4721 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4722" class="LineNr">4722 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4723" class="LineNr">4723 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4724" class="LineNr">4724 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4725" class="LineNr">4725 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4726" class="LineNr">4726 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4727" class="LineNr">4727 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4728" class="LineNr">4728 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4729" class="LineNr">4729 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4730" class="LineNr">4730 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4731" class="LineNr">4731 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4732" class="LineNr">4732 </span> <span class="subxComment"># check output</span> +<span id="L4733" class="LineNr">4733 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4734" class="LineNr">4734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4735" class="LineNr">4735 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4736" class="LineNr">4736 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4737" class="LineNr">4737 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4738" class="LineNr">4738 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4739" class="LineNr">4739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4740" class="Folded">4740 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4766" class="LineNr">4766 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 1/r32", msg)</span> +<span id="L4767" class="LineNr">4767 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4768" class="LineNr">4768 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-rm32"</span>/imm32 +<span id="L4769" class="LineNr">4769 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 1/r32"</span>/imm32 +<span id="L4770" class="LineNr">4770 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4771" class="LineNr">4771 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4772" class="LineNr">4772 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4773" class="LineNr">4773 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4774" class="LineNr">4774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4775" class="LineNr">4775 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4776" class="LineNr">4776 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4777" class="LineNr">4777 </span> 5d/pop-to-ebp +<span id="L4778" class="LineNr">4778 </span> c3/return +<span id="L4779" class="LineNr">4779 </span> +<span id="L4780" class="LineNr">4780 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-r32</span>: +<span id="L4781" class="LineNr">4781 </span> <span class="subxComment"># pack mod and rm32 operands into ModR/M byte</span> +<span id="L4782" class="LineNr">4782 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4783" class="LineNr">4783 </span> 55/push-ebp +<span id="L4784" class="LineNr">4784 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4785" class="LineNr">4785 </span> <span class="subxComment"># setup</span> +<span id="L4786" class="LineNr">4786 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4787" class="LineNr">4787 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4788" class="LineNr">4788 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4789" class="LineNr">4789 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4790" class="LineNr">4790 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4791" class="LineNr">4791 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4792" class="LineNr">4792 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4793" class="LineNr">4793 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4794" class="LineNr">4794 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4795" class="LineNr">4795 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4796" class="LineNr">4796 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4797" class="LineNr">4797 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4798" class="LineNr">4798 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4799" class="LineNr">4799 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4800" class="LineNr">4800 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4801" class="LineNr">4801 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4802" class="LineNr">4802 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4803" class="LineNr">4803 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4804" class="LineNr">4804 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4805" class="LineNr">4805 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4806" class="LineNr">4806 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4807" class="LineNr">4807 </span> <span class="subxComment"># initialize input</span> +<span id="L4808" class="LineNr">4808 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32")</span> +<span id="L4809" class="LineNr">4809 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4810" class="LineNr">4810 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32"</span>/imm32 +<span id="L4811" class="LineNr">4811 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4812" class="LineNr">4812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4813" class="LineNr">4813 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4814" class="LineNr">4814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4815" class="LineNr">4815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4816" class="LineNr">4816 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4817" class="LineNr">4817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4818" class="LineNr">4818 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4819" class="LineNr">4819 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4820" class="LineNr">4820 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4821" class="LineNr">4821 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4822" class="LineNr">4822 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4823" class="LineNr">4823 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4824" class="LineNr">4824 </span> <span class="subxComment"># check output</span> +<span id="L4825" class="LineNr">4825 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4826" class="LineNr">4826 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4827" class="LineNr">4827 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4828" class="LineNr">4828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4829" class="LineNr">4829 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4830" class="LineNr">4830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4831" class="LineNr">4831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4832" class="Folded">4832 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4858" class="LineNr">4858 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 00 # 8b/copy 0/mod 0/rm32", msg)</span> +<span id="L4859" class="LineNr">4859 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4860" class="LineNr">4860 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-r32"</span>/imm32 +<span id="L4861" class="LineNr">4861 </span> 68/push <span class="Constant">"8b 00 # 8b/copy 0/mod 0/rm32"</span>/imm32 +<span id="L4862" class="LineNr">4862 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4863" class="LineNr">4863 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4864" class="LineNr">4864 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4865" class="LineNr">4865 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4866" class="LineNr">4866 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4867" class="LineNr">4867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4868" class="LineNr">4868 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4869" class="LineNr">4869 </span> 5d/pop-to-ebp +<span id="L4870" class="LineNr">4870 </span> c3/return +<span id="L4871" class="LineNr">4871 </span> +<span id="L4872" class="LineNr">4872 </span><span class="subxTest">test-convert-instruction-emits-sib-byte</span>: +<span id="L4873" class="LineNr">4873 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> +<span id="L4874" class="LineNr">4874 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4875" class="LineNr">4875 </span> 55/push-ebp +<span id="L4876" class="LineNr">4876 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4877" class="LineNr">4877 </span> <span class="subxComment"># setup</span> +<span id="L4878" class="LineNr">4878 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4879" class="LineNr">4879 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4880" class="LineNr">4880 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4881" class="LineNr">4881 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4882" class="LineNr">4882 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4883" class="LineNr">4883 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4884" class="LineNr">4884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4885" class="LineNr">4885 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4886" class="LineNr">4886 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4887" class="LineNr">4887 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4888" class="LineNr">4888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4889" class="LineNr">4889 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4890" class="LineNr">4890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4891" class="LineNr">4891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4892" class="LineNr">4892 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4893" class="LineNr">4893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4894" class="LineNr">4894 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4895" class="LineNr">4895 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4896" class="LineNr">4896 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4897" class="LineNr">4897 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4898" class="LineNr">4898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4899" class="LineNr">4899 </span> <span class="subxComment"># initialize input</span> +<span id="L4900" class="LineNr">4900 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale")</span> +<span id="L4901" class="LineNr">4901 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4902" class="LineNr">4902 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 +<span id="L4903" class="LineNr">4903 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4904" class="LineNr">4904 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4905" class="LineNr">4905 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4906" class="LineNr">4906 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4907" class="LineNr">4907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4908" class="LineNr">4908 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4909" class="LineNr">4909 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4910" class="LineNr">4910 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4911" class="LineNr">4911 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4912" class="LineNr">4912 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4913" class="LineNr">4913 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L4914" class="LineNr">4914 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4915" class="LineNr">4915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4916" class="LineNr">4916 </span> <span class="subxComment"># check output</span> +<span id="L4917" class="LineNr">4917 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4918" class="LineNr">4918 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4919" class="LineNr">4919 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L4920" class="LineNr">4920 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4921" class="LineNr">4921 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4922" class="LineNr">4922 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4923" class="LineNr">4923 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4924" class="Folded">4924 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4950" class="LineNr">4950 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale", msg)</span> +<span id="L4951" class="LineNr">4951 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4952" class="LineNr">4952 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte"</span>/imm32 +<span id="L4953" class="LineNr">4953 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 +<span id="L4954" class="LineNr">4954 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4955" class="LineNr">4955 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4956" class="LineNr">4956 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4957" class="LineNr">4957 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4958" class="LineNr">4958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4959" class="LineNr">4959 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4960" class="LineNr">4960 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4961" class="LineNr">4961 </span> 5d/pop-to-ebp +<span id="L4962" class="LineNr">4962 </span> c3/return +<span id="L4963" class="LineNr">4963 </span> +<span id="L4964" class="LineNr">4964 </span><span class="subxTest">test-convert-instruction-emits-scale</span>: +<span id="L4965" class="LineNr">4965 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> +<span id="L4966" class="LineNr">4966 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4967" class="LineNr">4967 </span> 55/push-ebp +<span id="L4968" class="LineNr">4968 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4969" class="LineNr">4969 </span> <span class="subxComment"># setup</span> +<span id="L4970" class="LineNr">4970 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4971" class="LineNr">4971 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4972" class="LineNr">4972 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4973" class="LineNr">4973 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4974" class="LineNr">4974 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4975" class="LineNr">4975 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4976" class="LineNr">4976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4977" class="LineNr">4977 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4978" class="LineNr">4978 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4979" class="LineNr">4979 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L4980" class="LineNr">4980 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4981" class="LineNr">4981 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4982" class="LineNr">4982 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4983" class="LineNr">4983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4984" class="LineNr">4984 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4985" class="LineNr">4985 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4986" class="LineNr">4986 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4987" class="LineNr">4987 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4988" class="LineNr">4988 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4989" class="LineNr">4989 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4990" class="LineNr">4990 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4991" class="LineNr">4991 </span> <span class="subxComment"># initialize input</span> +<span id="L4992" class="LineNr">4992 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/scale")</span> +<span id="L4993" class="LineNr">4993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4994" class="LineNr">4994 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 +<span id="L4995" class="LineNr">4995 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4996" class="LineNr">4996 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4997" class="LineNr">4997 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4998" class="LineNr">4998 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4999" class="LineNr">4999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5000" class="LineNr">5000 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5001" class="LineNr">5001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5002" class="LineNr">5002 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5003" class="LineNr">5003 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5004" class="LineNr">5004 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5005" class="LineNr">5005 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5006" class="LineNr">5006 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5007" class="LineNr">5007 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5008" class="LineNr">5008 </span> <span class="subxComment"># check output</span> +<span id="L5009" class="LineNr">5009 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5010" class="LineNr">5010 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5011" class="LineNr">5011 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5012" class="LineNr">5012 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5013" class="LineNr">5013 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5014" class="LineNr">5014 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5015" class="LineNr">5015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5016" class="Folded">5016 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5042" class="LineNr">5042 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale", msg)</span> +<span id="L5043" class="LineNr">5043 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5044" class="LineNr">5044 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-scale"</span>/imm32 +<span id="L5045" class="LineNr">5045 </span> 68/push <span class="Constant">"8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 +<span id="L5046" class="LineNr">5046 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5047" class="LineNr">5047 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5048" class="LineNr">5048 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5049" class="LineNr">5049 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5050" class="LineNr">5050 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5051" class="LineNr">5051 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5052" class="LineNr">5052 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5053" class="LineNr">5053 </span> 5d/pop-to-ebp +<span id="L5054" class="LineNr">5054 </span> c3/return +<span id="L5055" class="LineNr">5055 </span> +<span id="L5056" class="LineNr">5056 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-base</span>: +<span id="L5057" class="LineNr">5057 </span> <span class="subxComment"># pack index and scale operands into SIB byte</span> +<span id="L5058" class="LineNr">5058 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5059" class="LineNr">5059 </span> 55/push-ebp +<span id="L5060" class="LineNr">5060 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5061" class="LineNr">5061 </span> <span class="subxComment"># setup</span> +<span id="L5062" class="LineNr">5062 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5063" class="LineNr">5063 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5064" class="LineNr">5064 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5065" class="LineNr">5065 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5066" class="LineNr">5066 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5067" class="LineNr">5067 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5068" class="LineNr">5068 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5069" class="LineNr">5069 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5070" class="LineNr">5070 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5071" class="LineNr">5071 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5072" class="LineNr">5072 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5073" class="LineNr">5073 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5074" class="LineNr">5074 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5075" class="LineNr">5075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5076" class="LineNr">5076 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5077" class="LineNr">5077 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5078" class="LineNr">5078 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5079" class="LineNr">5079 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5080" class="LineNr">5080 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5081" class="LineNr">5081 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5082" class="LineNr">5082 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5083" class="LineNr">5083 </span> <span class="subxComment"># initialize input</span> +<span id="L5084" class="LineNr">5084 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale")</span> +<span id="L5085" class="LineNr">5085 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5086" class="LineNr">5086 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 +<span id="L5087" class="LineNr">5087 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5088" class="LineNr">5088 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5089" class="LineNr">5089 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5090" class="LineNr">5090 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5091" class="LineNr">5091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5092" class="LineNr">5092 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5093" class="LineNr">5093 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5094" class="LineNr">5094 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5095" class="LineNr">5095 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5096" class="LineNr">5096 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5097" class="LineNr">5097 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5098" class="LineNr">5098 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5099" class="LineNr">5099 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5100" class="LineNr">5100 </span> <span class="subxComment"># check output</span> +<span id="L5101" class="LineNr">5101 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5102" class="LineNr">5102 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5103" class="LineNr">5103 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5104" class="LineNr">5104 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5105" class="LineNr">5105 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5106" class="LineNr">5106 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5107" class="LineNr">5107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5108" class="Folded">5108 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5134" class="LineNr">5134 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale", msg)</span> +<span id="L5135" class="LineNr">5135 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5136" class="LineNr">5136 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-base"</span>/imm32 +<span id="L5137" class="LineNr">5137 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 +<span id="L5138" class="LineNr">5138 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5139" class="LineNr">5139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5140" class="LineNr">5140 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5141" class="LineNr">5141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5142" class="LineNr">5142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5143" class="LineNr">5143 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5144" class="LineNr">5144 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5145" class="LineNr">5145 </span> 5d/pop-to-ebp +<span id="L5146" class="LineNr">5146 </span> c3/return +<span id="L5147" class="LineNr">5147 </span> +<span id="L5148" class="LineNr">5148 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-index</span>: +<span id="L5149" class="LineNr">5149 </span> <span class="subxComment"># pack base and scale operands into SIB byte</span> +<span id="L5150" class="LineNr">5150 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5151" class="LineNr">5151 </span> 55/push-ebp +<span id="L5152" class="LineNr">5152 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5153" class="LineNr">5153 </span> <span class="subxComment"># setup</span> +<span id="L5154" class="LineNr">5154 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5155" class="LineNr">5155 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5156" class="LineNr">5156 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5157" class="LineNr">5157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5158" class="LineNr">5158 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5159" class="LineNr">5159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5160" class="LineNr">5160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5161" class="LineNr">5161 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5162" class="LineNr">5162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5163" class="LineNr">5163 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5164" class="LineNr">5164 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5165" class="LineNr">5165 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5166" class="LineNr">5166 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5167" class="LineNr">5167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5168" class="LineNr">5168 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5169" class="LineNr">5169 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5170" class="LineNr">5170 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5171" class="LineNr">5171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5172" class="LineNr">5172 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5173" class="LineNr">5173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5174" class="LineNr">5174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5175" class="LineNr">5175 </span> <span class="subxComment"># initialize input</span> +<span id="L5176" class="LineNr">5176 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale")</span> +<span id="L5177" class="LineNr">5177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5178" class="LineNr">5178 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 +<span id="L5179" class="LineNr">5179 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5180" class="LineNr">5180 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5181" class="LineNr">5181 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5182" class="LineNr">5182 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5183" class="LineNr">5183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5184" class="LineNr">5184 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5185" class="LineNr">5185 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5186" class="LineNr">5186 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5187" class="LineNr">5187 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5188" class="LineNr">5188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5189" class="LineNr">5189 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5190" class="LineNr">5190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5191" class="LineNr">5191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5192" class="LineNr">5192 </span> <span class="subxComment"># check output</span> +<span id="L5193" class="LineNr">5193 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5194" class="LineNr">5194 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5195" class="LineNr">5195 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5196" class="LineNr">5196 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5197" class="LineNr">5197 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5198" class="LineNr">5198 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5199" class="LineNr">5199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5200" class="Folded">5200 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5226" class="LineNr">5226 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale", msg)</span> +<span id="L5227" class="LineNr">5227 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5228" class="LineNr">5228 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-index"</span>/imm32 +<span id="L5229" class="LineNr">5229 </span> 68/push <span class="Constant">"8b 0c 00 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 +<span id="L5230" class="LineNr">5230 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5231" class="LineNr">5231 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5232" class="LineNr">5232 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5233" class="LineNr">5233 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5234" class="LineNr">5234 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5235" class="LineNr">5235 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5236" class="LineNr">5236 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5237" class="LineNr">5237 </span> 5d/pop-to-ebp +<span id="L5238" class="LineNr">5238 </span> c3/return +<span id="L5239" class="LineNr">5239 </span> +<span id="L5240" class="LineNr">5240 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-scale</span>: +<span id="L5241" class="LineNr">5241 </span> <span class="subxComment"># pack base and index operands into SIB byte</span> +<span id="L5242" class="LineNr">5242 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5243" class="LineNr">5243 </span> 55/push-ebp +<span id="L5244" class="LineNr">5244 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5245" class="LineNr">5245 </span> <span class="subxComment"># setup</span> +<span id="L5246" class="LineNr">5246 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5247" class="LineNr">5247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5248" class="LineNr">5248 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5249" class="LineNr">5249 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5250" class="LineNr">5250 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5251" class="LineNr">5251 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5252" class="LineNr">5252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5253" class="LineNr">5253 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5254" class="LineNr">5254 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5255" class="LineNr">5255 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5256" class="LineNr">5256 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5257" class="LineNr">5257 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5258" class="LineNr">5258 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5259" class="LineNr">5259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5260" class="LineNr">5260 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5261" class="LineNr">5261 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5262" class="LineNr">5262 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5263" class="LineNr">5263 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5264" class="LineNr">5264 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5265" class="LineNr">5265 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5266" class="LineNr">5266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5267" class="LineNr">5267 </span> <span class="subxComment"># initialize input</span> +<span id="L5268" class="LineNr">5268 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index")</span> +<span id="L5269" class="LineNr">5269 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5270" class="LineNr">5270 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 +<span id="L5271" class="LineNr">5271 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5272" class="LineNr">5272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5273" class="LineNr">5273 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5274" class="LineNr">5274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5275" class="LineNr">5275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5276" class="LineNr">5276 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5277" class="LineNr">5277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5278" class="LineNr">5278 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5279" class="LineNr">5279 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5280" class="LineNr">5280 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5281" class="LineNr">5281 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5282" class="LineNr">5282 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5283" class="LineNr">5283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5284" class="LineNr">5284 </span> <span class="subxComment"># check output</span> +<span id="L5285" class="LineNr">5285 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5286" class="LineNr">5286 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5287" class="LineNr">5287 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5288" class="LineNr">5288 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5289" class="LineNr">5289 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5290" class="LineNr">5290 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5291" class="LineNr">5291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5292" class="Folded">5292 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5318" class="LineNr">5318 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index", msg)</span> +<span id="L5319" class="LineNr">5319 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5320" class="LineNr">5320 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-scale"</span>/imm32 +<span id="L5321" class="LineNr">5321 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 +<span id="L5322" class="LineNr">5322 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5323" class="LineNr">5323 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5324" class="LineNr">5324 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5325" class="LineNr">5325 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5326" class="LineNr">5326 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5327" class="LineNr">5327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5328" class="LineNr">5328 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5329" class="LineNr">5329 </span> 5d/pop-to-ebp +<span id="L5330" class="LineNr">5330 </span> c3/return +<span id="L5331" class="LineNr">5331 </span> +<span id="L5332" class="LineNr">5332 </span><span class="subxTest">test-convert-instruction-handles-disp32-operand</span>: +<span id="L5333" class="LineNr">5333 </span> <span class="subxComment"># expand /disp32 operand into 4 bytes</span> +<span id="L5334" class="LineNr">5334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5335" class="LineNr">5335 </span> 55/push-ebp +<span id="L5336" class="LineNr">5336 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5337" class="LineNr">5337 </span> <span class="subxComment"># setup</span> +<span id="L5338" class="LineNr">5338 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5339" class="LineNr">5339 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5340" class="LineNr">5340 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5341" class="LineNr">5341 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5342" class="LineNr">5342 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5343" class="LineNr">5343 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5344" class="LineNr">5344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5345" class="LineNr">5345 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5346" class="LineNr">5346 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5347" class="LineNr">5347 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5348" class="LineNr">5348 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5349" class="LineNr">5349 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5350" class="LineNr">5350 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5351" class="LineNr">5351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5352" class="LineNr">5352 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5353" class="LineNr">5353 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5354" class="LineNr">5354 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5355" class="LineNr">5355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5356" class="LineNr">5356 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5357" class="LineNr">5357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5358" class="LineNr">5358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5359" class="LineNr">5359 </span> <span class="subxComment"># initialize input</span> +<span id="L5360" class="LineNr">5360 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp32")</span> +<span id="L5361" class="LineNr">5361 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5362" class="LineNr">5362 </span> 68/push <span class="Constant">"e8/call 20/disp32"</span>/imm32 +<span id="L5363" class="LineNr">5363 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5364" class="LineNr">5364 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5365" class="LineNr">5365 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5366" class="LineNr">5366 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5367" class="LineNr">5367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5368" class="LineNr">5368 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5369" class="LineNr">5369 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5370" class="LineNr">5370 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5371" class="LineNr">5371 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5372" class="LineNr">5372 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5373" class="LineNr">5373 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5374" class="LineNr">5374 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5375" class="LineNr">5375 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5376" class="LineNr">5376 </span> <span class="subxComment"># check output</span> +<span id="L5377" class="LineNr">5377 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5378" class="LineNr">5378 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5379" class="LineNr">5379 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5380" class="LineNr">5380 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5381" class="LineNr">5381 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5382" class="LineNr">5382 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5383" class="LineNr">5383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5384" class="Folded">5384 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5410" class="LineNr">5410 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> +<span id="L5411" class="LineNr">5411 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5412" class="LineNr">5412 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp32-operand"</span>/imm32 +<span id="L5413" class="LineNr">5413 </span> 68/push <span class="Constant">"e8 20 00 00 00 # e8/call 20/disp32"</span>/imm32 +<span id="L5414" class="LineNr">5414 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5415" class="LineNr">5415 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5416" class="LineNr">5416 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5417" class="LineNr">5417 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5418" class="LineNr">5418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5419" class="LineNr">5419 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5420" class="LineNr">5420 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5421" class="LineNr">5421 </span> 5d/pop-to-ebp +<span id="L5422" class="LineNr">5422 </span> c3/return +<span id="L5423" class="LineNr">5423 </span> +<span id="L5424" class="LineNr">5424 </span><span class="subxTest">test-convert-instruction-handles-disp16-operand</span>: +<span id="L5425" class="LineNr">5425 </span> <span class="subxComment"># expand /disp16 operand into 2 bytes</span> +<span id="L5426" class="LineNr">5426 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5427" class="LineNr">5427 </span> 55/push-ebp +<span id="L5428" class="LineNr">5428 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5429" class="LineNr">5429 </span> <span class="subxComment"># setup</span> +<span id="L5430" class="LineNr">5430 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5431" class="LineNr">5431 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5432" class="LineNr">5432 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5433" class="LineNr">5433 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5434" class="LineNr">5434 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5435" class="LineNr">5435 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5436" class="LineNr">5436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5437" class="LineNr">5437 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5438" class="LineNr">5438 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5439" class="LineNr">5439 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5440" class="LineNr">5440 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5441" class="LineNr">5441 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5442" class="LineNr">5442 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5443" class="LineNr">5443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5444" class="LineNr">5444 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5445" class="LineNr">5445 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5446" class="LineNr">5446 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5447" class="LineNr">5447 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5448" class="LineNr">5448 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5449" class="LineNr">5449 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5450" class="LineNr">5450 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5451" class="LineNr">5451 </span> <span class="subxComment"># initialize input</span> +<span id="L5452" class="LineNr">5452 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp16")</span> +<span id="L5453" class="LineNr">5453 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5454" class="LineNr">5454 </span> 68/push <span class="Constant">"e8/call 20/disp16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> +<span id="L5455" class="LineNr">5455 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5456" class="LineNr">5456 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5457" class="LineNr">5457 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5458" class="LineNr">5458 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5459" class="LineNr">5459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5460" class="LineNr">5460 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5461" class="LineNr">5461 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5462" class="LineNr">5462 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5463" class="LineNr">5463 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5464" class="LineNr">5464 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5465" class="LineNr">5465 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5466" class="LineNr">5466 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5467" class="LineNr">5467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5468" class="LineNr">5468 </span> <span class="subxComment"># check output</span> +<span id="L5469" class="LineNr">5469 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5470" class="LineNr">5470 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5471" class="LineNr">5471 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5472" class="LineNr">5472 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5473" class="LineNr">5473 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5474" class="LineNr">5474 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5475" class="LineNr">5475 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5476" class="Folded">5476 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5502" class="LineNr">5502 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 # e8/call 20/disp16", msg)</span> +<span id="L5503" class="LineNr">5503 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5504" class="LineNr">5504 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp16-operand"</span>/imm32 +<span id="L5505" class="LineNr">5505 </span> 68/push <span class="Constant">"e8 20 00 # e8/call 20/disp16"</span>/imm32 +<span id="L5506" class="LineNr">5506 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5507" class="LineNr">5507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5508" class="LineNr">5508 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5509" class="LineNr">5509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5510" class="LineNr">5510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5511" class="LineNr">5511 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5512" class="LineNr">5512 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5513" class="LineNr">5513 </span> 5d/pop-to-ebp +<span id="L5514" class="LineNr">5514 </span> c3/return +<span id="L5515" class="LineNr">5515 </span> +<span id="L5516" class="LineNr">5516 </span><span class="subxTest">test-convert-instruction-handles-disp8-operand</span>: +<span id="L5517" class="LineNr">5517 </span> <span class="subxComment"># expand /disp8 operand into 1 byte</span> +<span id="L5518" class="LineNr">5518 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5519" class="LineNr">5519 </span> 55/push-ebp +<span id="L5520" class="LineNr">5520 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5521" class="LineNr">5521 </span> <span class="subxComment"># setup</span> +<span id="L5522" class="LineNr">5522 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5523" class="LineNr">5523 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5524" class="LineNr">5524 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5525" class="LineNr">5525 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5526" class="LineNr">5526 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5527" class="LineNr">5527 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5528" class="LineNr">5528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5529" class="LineNr">5529 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5530" class="LineNr">5530 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5531" class="LineNr">5531 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5532" class="LineNr">5532 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5533" class="LineNr">5533 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5534" class="LineNr">5534 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5535" class="LineNr">5535 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5536" class="LineNr">5536 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5537" class="LineNr">5537 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5538" class="LineNr">5538 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5539" class="LineNr">5539 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5540" class="LineNr">5540 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5541" class="LineNr">5541 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5542" class="LineNr">5542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5543" class="LineNr">5543 </span> <span class="subxComment"># initialize input</span> +<span id="L5544" class="LineNr">5544 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump 20/disp8")</span> +<span id="L5545" class="LineNr">5545 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5546" class="LineNr">5546 </span> 68/push <span class="Constant">"eb/jump 20/disp8"</span>/imm32 +<span id="L5547" class="LineNr">5547 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5548" class="LineNr">5548 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5549" class="LineNr">5549 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5550" class="LineNr">5550 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5551" class="LineNr">5551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5552" class="LineNr">5552 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5553" class="LineNr">5553 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5554" class="LineNr">5554 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5555" class="LineNr">5555 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5556" class="LineNr">5556 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5557" class="LineNr">5557 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5558" class="LineNr">5558 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5559" class="LineNr">5559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5560" class="LineNr">5560 </span> <span class="subxComment"># check output</span> +<span id="L5561" class="LineNr">5561 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5562" class="LineNr">5562 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5563" class="LineNr">5563 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5564" class="LineNr">5564 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5565" class="LineNr">5565 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5566" class="LineNr">5566 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5567" class="LineNr">5567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5568" class="Folded">5568 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5594" class="LineNr">5594 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb 20 # eb/jump 20/disp8", msg)</span> +<span id="L5595" class="LineNr">5595 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5596" class="LineNr">5596 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-operand"</span>/imm32 +<span id="L5597" class="LineNr">5597 </span> 68/push <span class="Constant">"eb 20 # eb/jump 20/disp8"</span>/imm32 +<span id="L5598" class="LineNr">5598 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5599" class="LineNr">5599 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5600" class="LineNr">5600 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5601" class="LineNr">5601 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5602" class="LineNr">5602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5603" class="LineNr">5603 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5604" class="LineNr">5604 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5605" class="LineNr">5605 </span> 5d/pop-to-ebp +<span id="L5606" class="LineNr">5606 </span> c3/return +<span id="L5607" class="LineNr">5607 </span> +<span id="L5608" class="LineNr">5608 </span><span class="subxTest">test-convert-instruction-handles-disp8-name</span>: +<span id="L5609" class="LineNr">5609 </span> <span class="subxComment"># pass /disp8 name directly through</span> +<span id="L5610" class="LineNr">5610 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5611" class="LineNr">5611 </span> 55/push-ebp +<span id="L5612" class="LineNr">5612 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5613" class="LineNr">5613 </span> <span class="subxComment"># setup</span> +<span id="L5614" class="LineNr">5614 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5615" class="LineNr">5615 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5616" class="LineNr">5616 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5617" class="LineNr">5617 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5618" class="LineNr">5618 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5619" class="LineNr">5619 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5620" class="LineNr">5620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5621" class="LineNr">5621 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5622" class="LineNr">5622 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5623" class="LineNr">5623 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5624" class="LineNr">5624 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5625" class="LineNr">5625 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5626" class="LineNr">5626 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5627" class="LineNr">5627 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5628" class="LineNr">5628 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5629" class="LineNr">5629 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5630" class="LineNr">5630 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5631" class="LineNr">5631 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5632" class="LineNr">5632 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5633" class="LineNr">5633 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5634" class="LineNr">5634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5635" class="LineNr">5635 </span> <span class="subxComment"># initialize input</span> +<span id="L5636" class="LineNr">5636 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump xyz/disp8")</span> +<span id="L5637" class="LineNr">5637 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5638" class="LineNr">5638 </span> 68/push <span class="Constant">"eb/jump xyz/disp8"</span>/imm32 +<span id="L5639" class="LineNr">5639 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5640" class="LineNr">5640 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5641" class="LineNr">5641 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5642" class="LineNr">5642 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5643" class="LineNr">5643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5644" class="LineNr">5644 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5645" class="LineNr">5645 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5646" class="LineNr">5646 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5647" class="LineNr">5647 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5648" class="LineNr">5648 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5649" class="LineNr">5649 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5650" class="LineNr">5650 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5651" class="LineNr">5651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5652" class="LineNr">5652 </span> <span class="subxComment"># check output</span> +<span id="L5653" class="LineNr">5653 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5654" class="LineNr">5654 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5655" class="LineNr">5655 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5656" class="LineNr">5656 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5657" class="LineNr">5657 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5658" class="LineNr">5658 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5659" class="LineNr">5659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5660" class="Folded">5660 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5686" class="LineNr">5686 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb xyz/disp8 # eb/jump xyz/disp8", msg)</span> +<span id="L5687" class="LineNr">5687 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5688" class="LineNr">5688 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-name"</span>/imm32 +<span id="L5689" class="LineNr">5689 </span> 68/push <span class="Constant">"eb xyz/disp8 # eb/jump xyz/disp8"</span>/imm32 +<span id="L5690" class="LineNr">5690 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5691" class="LineNr">5691 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5692" class="LineNr">5692 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5693" class="LineNr">5693 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5694" class="LineNr">5694 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5695" class="LineNr">5695 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5696" class="LineNr">5696 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5697" class="LineNr">5697 </span> 5d/pop-to-ebp +<span id="L5698" class="LineNr">5698 </span> c3/return +<span id="L5699" class="LineNr">5699 </span> +<span id="L5700" class="LineNr">5700 </span><span class="subxTest">test-convert-instruction-handles-imm32-operand</span>: +<span id="L5701" class="LineNr">5701 </span> <span class="subxComment"># expand /imm32 operand into 4 bytes</span> +<span id="L5702" class="LineNr">5702 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5703" class="LineNr">5703 </span> 55/push-ebp +<span id="L5704" class="LineNr">5704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5705" class="LineNr">5705 </span> <span class="subxComment"># setup</span> +<span id="L5706" class="LineNr">5706 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5707" class="LineNr">5707 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5708" class="LineNr">5708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5709" class="LineNr">5709 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5710" class="LineNr">5710 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5711" class="LineNr">5711 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5712" class="LineNr">5712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5713" class="LineNr">5713 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5714" class="LineNr">5714 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5715" class="LineNr">5715 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5716" class="LineNr">5716 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5717" class="LineNr">5717 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5718" class="LineNr">5718 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5719" class="LineNr">5719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5720" class="LineNr">5720 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5721" class="LineNr">5721 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5722" class="LineNr">5722 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5723" class="LineNr">5723 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5724" class="LineNr">5724 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5725" class="LineNr">5725 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5726" class="LineNr">5726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5727" class="LineNr">5727 </span> <span class="subxComment"># initialize input</span> +<span id="L5728" class="LineNr">5728 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm32")</span> +<span id="L5729" class="LineNr">5729 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5730" class="LineNr">5730 </span> 68/push <span class="Constant">"68/push 0x20/imm32"</span>/imm32 +<span id="L5731" class="LineNr">5731 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5732" class="LineNr">5732 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5733" class="LineNr">5733 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5734" class="LineNr">5734 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5735" class="LineNr">5735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5736" class="LineNr">5736 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5737" class="LineNr">5737 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5738" class="LineNr">5738 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5739" class="LineNr">5739 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5740" class="LineNr">5740 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5741" class="LineNr">5741 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5742" class="LineNr">5742 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5743" class="LineNr">5743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5744" class="LineNr">5744 </span> <span class="subxComment"># check output</span> +<span id="L5745" class="LineNr">5745 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5746" class="LineNr">5746 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5747" class="LineNr">5747 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5748" class="LineNr">5748 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5749" class="LineNr">5749 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5750" class="LineNr">5750 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5751" class="LineNr">5751 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5752" class="Folded">5752 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5778" class="LineNr">5778 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 00 00 # 68/push 0x20/imm32", msg)</span> +<span id="L5779" class="LineNr">5779 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5780" class="LineNr">5780 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm32-operand"</span>/imm32 +<span id="L5781" class="LineNr">5781 </span> 68/push <span class="Constant">"68 20 00 00 00 # 68/push 0x20/imm32"</span>/imm32 +<span id="L5782" class="LineNr">5782 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5783" class="LineNr">5783 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5784" class="LineNr">5784 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5785" class="LineNr">5785 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5786" class="LineNr">5786 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5787" class="LineNr">5787 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5788" class="LineNr">5788 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5789" class="LineNr">5789 </span> 5d/pop-to-ebp +<span id="L5790" class="LineNr">5790 </span> c3/return +<span id="L5791" class="LineNr">5791 </span> +<span id="L5792" class="LineNr">5792 </span><span class="subxTest">test-convert-instruction-handles-imm16-operand</span>: +<span id="L5793" class="LineNr">5793 </span> <span class="subxComment"># expand /imm16 operand into 2 bytes</span> +<span id="L5794" class="LineNr">5794 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> +<span id="L5795" class="LineNr">5795 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5796" class="LineNr">5796 </span> 55/push-ebp +<span id="L5797" class="LineNr">5797 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5798" class="LineNr">5798 </span> <span class="subxComment"># setup</span> +<span id="L5799" class="LineNr">5799 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5800" class="LineNr">5800 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5801" class="LineNr">5801 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5802" class="LineNr">5802 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5803" class="LineNr">5803 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5804" class="LineNr">5804 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5805" class="LineNr">5805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5806" class="LineNr">5806 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5807" class="LineNr">5807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5808" class="LineNr">5808 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5809" class="LineNr">5809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5810" class="LineNr">5810 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5811" class="LineNr">5811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5812" class="LineNr">5812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5813" class="LineNr">5813 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5814" class="LineNr">5814 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5815" class="LineNr">5815 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5816" class="LineNr">5816 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5817" class="LineNr">5817 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5818" class="LineNr">5818 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5819" class="LineNr">5819 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5820" class="LineNr">5820 </span> <span class="subxComment"># initialize input</span> +<span id="L5821" class="LineNr">5821 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm16")</span> +<span id="L5822" class="LineNr">5822 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5823" class="LineNr">5823 </span> 68/push <span class="Constant">"68/push 0x20/imm16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> +<span id="L5824" class="LineNr">5824 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5825" class="LineNr">5825 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5826" class="LineNr">5826 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5827" class="LineNr">5827 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5828" class="LineNr">5828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5829" class="LineNr">5829 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5830" class="LineNr">5830 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5831" class="LineNr">5831 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5832" class="LineNr">5832 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5833" class="LineNr">5833 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5834" class="LineNr">5834 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5835" class="LineNr">5835 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5836" class="LineNr">5836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5837" class="LineNr">5837 </span> <span class="subxComment"># check output</span> +<span id="L5838" class="LineNr">5838 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5839" class="LineNr">5839 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5840" class="LineNr">5840 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5841" class="LineNr">5841 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5842" class="LineNr">5842 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5843" class="LineNr">5843 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5844" class="LineNr">5844 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5845" class="Folded">5845 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5871" class="LineNr">5871 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 # 68/push 0x20/imm16", msg)</span> +<span id="L5872" class="LineNr">5872 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5873" class="LineNr">5873 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm16-operand"</span>/imm32 +<span id="L5874" class="LineNr">5874 </span> 68/push <span class="Constant">"68 20 00 # 68/push 0x20/imm16"</span>/imm32 +<span id="L5875" class="LineNr">5875 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5876" class="LineNr">5876 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5877" class="LineNr">5877 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5878" class="LineNr">5878 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5879" class="LineNr">5879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5880" class="LineNr">5880 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5881" class="LineNr">5881 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5882" class="LineNr">5882 </span> 5d/pop-to-ebp +<span id="L5883" class="LineNr">5883 </span> c3/return +<span id="L5884" class="LineNr">5884 </span> +<span id="L5885" class="LineNr">5885 </span><span class="subxTest">test-convert-instruction-handles-imm8-operand</span>: +<span id="L5886" class="LineNr">5886 </span> <span class="subxComment"># expand /imm8 operand into 1 byte</span> +<span id="L5887" class="LineNr">5887 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> +<span id="L5888" class="LineNr">5888 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5889" class="LineNr">5889 </span> 55/push-ebp +<span id="L5890" class="LineNr">5890 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5891" class="LineNr">5891 </span> <span class="subxComment"># setup</span> +<span id="L5892" class="LineNr">5892 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5893" class="LineNr">5893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5894" class="LineNr">5894 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5895" class="LineNr">5895 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5896" class="LineNr">5896 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5897" class="LineNr">5897 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5898" class="LineNr">5898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5899" class="LineNr">5899 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5900" class="LineNr">5900 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5901" class="LineNr">5901 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5902" class="LineNr">5902 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5903" class="LineNr">5903 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5904" class="LineNr">5904 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5905" class="LineNr">5905 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5906" class="LineNr">5906 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5907" class="LineNr">5907 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5908" class="LineNr">5908 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5909" class="LineNr">5909 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5910" class="LineNr">5910 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5911" class="LineNr">5911 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5912" class="LineNr">5912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5913" class="LineNr">5913 </span> <span class="subxComment"># initialize input</span> +<span id="L5914" class="LineNr">5914 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm8")</span> +<span id="L5915" class="LineNr">5915 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5916" class="LineNr">5916 </span> 68/push <span class="Constant">"68/push 0x20/imm8"</span>/imm32 +<span id="L5917" class="LineNr">5917 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5918" class="LineNr">5918 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5919" class="LineNr">5919 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L5920" class="LineNr">5920 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5921" class="LineNr">5921 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5922" class="LineNr">5922 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5923" class="LineNr">5923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5924" class="LineNr">5924 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5925" class="LineNr">5925 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5926" class="LineNr">5926 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5927" class="LineNr">5927 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L5928" class="LineNr">5928 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5929" class="LineNr">5929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5930" class="LineNr">5930 </span> <span class="subxComment"># check output</span> +<span id="L5931" class="LineNr">5931 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5932" class="LineNr">5932 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5933" class="LineNr">5933 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L5934" class="LineNr">5934 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5935" class="LineNr">5935 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5936" class="LineNr">5936 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5937" class="LineNr">5937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5938" class="Folded">5938 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5964" class="LineNr">5964 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> +<span id="L5965" class="LineNr">5965 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5966" class="LineNr">5966 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm8-operand"</span>/imm32 +<span id="L5967" class="LineNr">5967 </span> 68/push <span class="Constant">"68 20 # 68/push 0x20/imm8"</span>/imm32 +<span id="L5968" class="LineNr">5968 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L5969" class="LineNr">5969 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5970" class="LineNr">5970 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5971" class="LineNr">5971 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5972" class="LineNr">5972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5973" class="LineNr">5973 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5974" class="LineNr">5974 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5975" class="LineNr">5975 </span> 5d/pop-to-ebp +<span id="L5976" class="LineNr">5976 </span> c3/return +<span id="L5977" class="LineNr">5977 </span> +<span id="L5978" class="LineNr">5978 </span><span class="subxComment"># shortcut for parse-hex-int-from-slice(next-token-from-slice(word->start, word->end, '/'))</span> +<span id="L5979" class="LineNr">5979 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word: (addr slice) -> value/eax: int</span> +<span id="L5980" class="LineNr">5980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5981" class="LineNr">5981 </span> 55/push-ebp +<span id="L5982" class="LineNr">5982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5983" class="LineNr">5983 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L5984" class="LineNr">5984 </span> 51/push-ecx +<span id="L5985" class="LineNr">5985 </span> 56/push-esi +<span id="L5986" class="LineNr">5986 </span> <span class="subxComment"># esi = word</span> +<span id="L5987" class="LineNr">5987 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L5988" class="LineNr">5988 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L5989" class="LineNr">5989 </span> 68/push 0/imm32/end +<span id="L5990" class="LineNr">5990 </span> 68/push 0/imm32/start +<span id="L5991" class="LineNr">5991 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L5992" class="LineNr">5992 </span> <span class="subxComment"># slice = next-token-from-slice(word->start, word->end, '/')</span> +<span id="L5993" class="LineNr">5993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5994" class="LineNr">5994 </span> 51/push-ecx +<span id="L5995" class="LineNr">5995 </span> 68/push 0x2f/imm32/slash +<span id="L5996" class="LineNr">5996 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L5997" class="LineNr">5997 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L5998" class="LineNr">5998 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5999" class="LineNr">5999 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L6000" class="LineNr">6000 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6001" class="LineNr">6001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L6002" class="LineNr">6002 </span> <span class="subxComment"># return parse-hex-int-from-slice(slice)</span> +<span id="L6003" class="LineNr">6003 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6004" class="LineNr">6004 </span> 51/push-ecx +<span id="L6005" class="LineNr">6005 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6006" class="LineNr">6006 </span> e8/call <a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L6007" class="LineNr">6007 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6008" class="LineNr">6008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6009" class="LineNr">6009 </span><span class="Constant">$parse-datum-of-word:end</span>: +<span id="L6010" class="LineNr">6010 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L6011" class="LineNr">6011 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L6012" class="LineNr">6012 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L6013" class="LineNr">6013 </span> 5e/pop-to-esi +<span id="L6014" class="LineNr">6014 </span> 59/pop-to-ecx +<span id="L6015" class="LineNr">6015 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6016" class="LineNr">6016 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L6017" class="LineNr">6017 </span> 5d/pop-to-ebp +<span id="L6018" class="LineNr">6018 </span> c3/return +<span id="L6019" class="LineNr">6019 </span> +<span id="L6020" class="LineNr">6020 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/parse-int.mu.html b/html/apps/parse-int.mu.html index f238963f..db3e7f25 100644 --- a/html/apps/parse-int.mu.html +++ b/html/apps/parse-int.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,17 +56,17 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/parse-int.mu'>https://github.com/akkartik/mu/blob/master/apps/parse-int.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># parse a decimal int at the commandline</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/parse-int.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf 123</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ echo $?</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># 123</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># parse a decimal int at the commandline</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/parse-int.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf 123</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># 123</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse-int.mu.html#L9'>main</a></span> _args: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span>$main-body: <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <span class="Comment"># if no args, print a message and exit</span> +<span id="L11" class="LineNr">11 </span> <span class="muComment"># if no args, print a message and exit</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy _args <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args <span id="L14" class="LineNr">14 </span> compare n, <span class="Constant">1</span> @@ -76,7 +76,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">break</span> $main-body <span id="L20" class="LineNr">20 </span> <span class="Delimiter">}</span> -<span id="L21" class="LineNr">21 </span> <span class="Comment"># otherwise parse the first arg as an integer</span> +<span id="L21" class="LineNr">21 </span> <span class="muComment"># otherwise parse the first arg as an integer</span> <span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> in/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> <span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='parse-int.mu.html#L28'>parse-int</a> *in <span id="L24" class="LineNr">24 </span> exit-status <span class="SpecialChar"><-</span> copy out @@ -91,14 +91,14 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr">33 </span> <span class="Delimiter">{</span> <span id="L34" class="LineNr">34 </span> compare i, len <span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if->=</span> -<span id="L36" class="LineNr">36 </span> <span class="Comment"># out *= 10</span> +<span id="L36" class="LineNr">36 </span> <span class="muComment"># out *= 10</span> <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> <span id="L38" class="LineNr">38 </span> out <span class="SpecialChar"><-</span> multiply ten -<span id="L39" class="LineNr">39 </span> <span class="Comment"># c = in[i]</span> +<span id="L39" class="LineNr">39 </span> <span class="muComment"># c = in[i]</span> <span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index in, i <span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span id="L42" class="LineNr">42 </span> c <span class="SpecialChar"><-</span> copy-byte *tmp -<span id="L43" class="LineNr">43 </span> <span class="Comment">#</span> +<span id="L43" class="LineNr">43 </span> <span class="muComment">#</span> <span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> c <span id="L45" class="LineNr">45 </span> out <span class="SpecialChar"><-</span> add digit <span id="L46" class="LineNr">46 </span> i <span class="SpecialChar"><-</span> increment diff --git a/html/apps/print-file.mu.html b/html/apps/print-file.mu.html index 761520f7..e779cbf6 100644 --- a/html/apps/print-file.mu.html +++ b/html/apps/print-file.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,14 +56,14 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/print-file.mu'>https://github.com/akkartik/mu/blob/master/apps/print-file.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># accept a filename on the commandline, read it and print it out to screen</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># only ascii right now, just like the rest of Mu</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./translate_mu apps/print-file.mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ echo abc > x</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ ./a.elf x</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># abc</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># accept a filename on the commandline, read it and print it out to screen</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># only ascii right now, just like the rest of Mu</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run:</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate_mu apps/print-file.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo abc > x</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf x</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># abc</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print-file.mu.html#L10'>main</a></span> _args: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy _args @@ -87,7 +87,7 @@ if ('onhashchange' in window) { <span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">ecx</span>: (addr buffered-file) <span class="SpecialChar"><-</span> copy _in-addr <span id="L30" class="LineNr">30 </span> <span class="Delimiter">{</span> <span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a> in-addr -<span id="L32" class="LineNr">32 </span> compare c, <span class="Constant">0xffffffff</span> <span class="Comment"># EOF marker</span> +<span id="L32" class="LineNr">32 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> <span id="L33" class="LineNr">33 </span> <span class="PreProc">break-if-=</span> <span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c <span id="L35" class="LineNr">35 </span> <a href='../405screen.mu.html#L206'>print-grapheme</a> <span class="Constant">0</span>, g diff --git a/html/apps/random.subx.html b/html/apps/random.subx.html index 5605936d..96e484bb 100644 --- a/html/apps/random.subx.html +++ b/html/apps/random.subx.html @@ -89,7 +89,7 @@ if ('onhashchange' in window) { <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="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#L266'>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> diff --git a/html/apps/raytracing/1.mu.html b/html/apps/raytracing/1.mu.html index c0fe05b0..8361aa42 100644 --- a/html/apps/raytracing/1.mu.html +++ b/html/apps/raytracing/1.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,14 +56,14 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/1.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/1.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># 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="Comment"># (simplified)</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># To run (on Linux):</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ 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="Comment"># $ cd mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ ./translate_mu apps/raytracing/1.mu</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># $ ./a.elf > 1.ppm</span> +<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_mu apps/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"><a href='1.mu.html#L10'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L11" class="LineNr">11 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> @@ -75,9 +75,9 @@ if ('onhashchange' in window) { <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#L442'>print-int32-decimal</a> <span class="Constant">0</span>, i +<span id="L20" class="LineNr">20 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <span class="Constant">0</span>, i <span id="L21" class="LineNr">21 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L22" class="LineNr">22 </span> <a href='../../405screen.mu.html#L442'>print-int32-decimal</a> <span class="Constant">0</span>, j +<span id="L22" class="LineNr">22 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <span class="Constant">0</span>, j <span id="L23" class="LineNr">23 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" 64\n"</span> <span id="L24" class="LineNr">24 </span> i <span class="SpecialChar"><-</span> increment <span id="L25" class="LineNr">25 </span> <span class="PreProc">loop</span> diff --git a/html/apps/raytracing/2.mu.html b/html/apps/raytracing/2.mu.html index 044f76d8..66e60f05 100644 --- a/html/apps/raytracing/2.mu.html +++ b/html/apps/raytracing/2.mu.html @@ -15,11 +15,11 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -57,13 +57,13 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/2.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/2.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># 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="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ 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="Comment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ ./translate_mu apps/raytracing/2.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ ./a.elf > 2.ppm</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 7 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/raytracing/2.mu</span> +<span id="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"><a href='2.mu.html#L9'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> @@ -81,7 +81,7 @@ if ('onhashchange' in window) { <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: <a href='2.mu.html#L53'>rgb</a> -<span id="L25" class="LineNr">25 </span> <span class="Comment"># compute r</span> +<span id="L25" class="LineNr">25 </span> <span class="muComment"># compute r</span> <span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i <span id="L27" class="LineNr">27 </span> tmp <span class="SpecialChar"><-</span> divide image-size <span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> r-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r @@ -89,15 +89,15 @@ if ('onhashchange' in window) { <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="Comment"># compute g</span> +<span id="L33" class="LineNr">33 </span> <span class="muComment"># compute g</span> <span id="L34" class="LineNr">34 </span> tmp <span class="SpecialChar"><-</span> convert j <span id="L35" class="LineNr">35 </span> tmp <span class="SpecialChar"><-</span> divide image-size <span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g <span id="L37" class="LineNr">37 </span> copy-to *g-addr, tmp -<span id="L38" class="LineNr">38 </span> <span class="Comment"># compute b</span> +<span id="L38" class="LineNr">38 </span> <span class="muComment"># compute b</span> <span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> b-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b <span id="L40" class="LineNr">40 </span> copy-to *b-addr, one-fourth -<span id="L41" class="LineNr">41 </span> <span class="Comment"># emit</span> +<span id="L41" class="LineNr">41 </span> <span class="muComment"># emit</span> <span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> c-addr/<span class="Constant">edx</span>: (addr <a href='2.mu.html#L53'>rgb</a>) <span class="SpecialChar"><-</span> address c <span id="L43" class="LineNr">43 </span> <a href='2.mu.html#L61'>print-rgb</a> <span class="Constant">0</span>, c-addr <span id="L44" class="LineNr">44 </span> i <span class="SpecialChar"><-</span> increment @@ -110,37 +110,37 @@ if ('onhashchange' in window) { <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> <a href='2.mu.html#L53'>rgb</a> <span class="Delimiter">{</span> -<span id="L54" class="LineNr">54 </span> <span class="Comment"># components normalized to within [0.0, 1.0]</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="Comment"># print translating to [0, 256)</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"><a href='2.mu.html#L61'>print-rgb</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr <a href='2.mu.html#L53'>rgb</a>) <span class="Delimiter">{</span> <span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='2.mu.html#L53'>rgb</a>) <span class="SpecialChar"><-</span> copy _c -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> <span class="Comment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> +<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> <span class="muComment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> <span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L65" class="LineNr">65 </span> <span class="Comment"># print 255 * c->r</span> +<span id="L65" class="LineNr">65 </span> <span class="muComment"># print 255 * c->r</span> <span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn <span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r <span id="L68" class="LineNr">68 </span> result <span class="SpecialChar"><-</span> multiply *src-addr <span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert result -<span id="L70" class="LineNr">70 </span> <a href='../../405screen.mu.html#L442'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L70" class="LineNr">70 </span> <a href='../../405screen.mu.html#L481'>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#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L72" class="LineNr">72 </span> <span class="Comment"># print 255 * c->g</span> +<span id="L72" class="LineNr">72 </span> <span class="muComment"># print 255 * c->g</span> <span id="L73" class="LineNr">73 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g <span id="L74" class="LineNr">74 </span> result <span class="SpecialChar"><-</span> copy xn <span id="L75" class="LineNr">75 </span> result <span class="SpecialChar"><-</span> multiply *src-addr <span id="L76" class="LineNr">76 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L77" class="LineNr">77 </span> <a href='../../405screen.mu.html#L442'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L77" class="LineNr">77 </span> <a href='../../405screen.mu.html#L481'>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#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L79" class="LineNr">79 </span> <span class="Comment"># print 255 * c->b</span> +<span id="L79" class="LineNr">79 </span> <span class="muComment"># print 255 * c->b</span> <span id="L80" class="LineNr">80 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b <span id="L81" class="LineNr">81 </span> result <span class="SpecialChar"><-</span> copy xn <span id="L82" class="LineNr">82 </span> result <span class="SpecialChar"><-</span> multiply *src-addr <span id="L83" class="LineNr">83 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L84" class="LineNr">84 </span> <a href='../../405screen.mu.html#L442'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L84" class="LineNr">84 </span> <a href='../../405screen.mu.html#L481'>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#L179'>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> diff --git a/html/apps/raytracing/3.mu.html b/html/apps/raytracing/3.mu.html index 66bb7958..db2bdddf 100644 --- a/html/apps/raytracing/3.mu.html +++ b/html/apps/raytracing/3.mu.html @@ -14,6 +14,7 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } .muS1Comment { color: #0000af; } .LineNr { } @@ -66,395 +67,480 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/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 <a href='3.mu.html#L169'>ray</a>), _out: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L169'>ray</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, dir -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> y-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dir, y -<span id="L14" class="LineNr"> 14 </span> <span class="muComment"># t = (dir.y + 1.0) / 2.0</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *y-addr -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert one -<span id="L18" class="LineNr"> 18 </span> t <span class="SpecialChar"><-</span> add one-f -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="SpecialChar"><-</span> convert two -<span id="L21" class="LineNr"> 21 </span> t <span class="SpecialChar"><-</span> divide two-f -<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># whitening = (1.0 - t) * white</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> whitening-storage: <a href='3.mu.html#L194'>rgb</a> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> whitening/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> address whitening-storage -<span id="L25" class="LineNr"> 25 </span> <a href='3.mu.html#L229'>rgb-white</a> whitening -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="SpecialChar"><-</span> copy one-f -<span id="L27" class="LineNr"> 27 </span> one-minus-t <span class="SpecialChar"><-</span> subtract t -<span id="L28" class="LineNr"> 28 </span> <a href='3.mu.html#L264'>rgb-scale-up</a> whitening, one-minus-t -<span id="L29" class="LineNr"> 29 </span> <span class="muComment"># out = t * (0.5, 0.7, 1.0)</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, r -<span id="L31" class="LineNr"> 31 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> -<span id="L32" class="LineNr"> 32 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, g -<span id="L33" class="LineNr"> 33 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> -<span id="L34" class="LineNr"> 34 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, b -<span id="L35" class="LineNr"> 35 </span> copy-to *dest, one-f -<span id="L36" class="LineNr"> 36 </span> <span class="muComment"># blend with whitening</span> -<span id="L37" class="LineNr"> 37 </span> <a href='3.mu.html#L241'>rgb-add-to</a> out, whitening -<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> -<span id="L39" class="LineNr"> 39 </span> -<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L40'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L41" class="LineNr"> 41 </span> -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># image</span> -<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># width = 400</span> -<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># height = 400 * 9/16 = 225</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> aspect: float -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> aspect-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> address aspect -<span id="L47" class="LineNr"> 47 </span> <a href='../../409float.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="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># camera</span> -<span id="L50" class="LineNr"> 50 </span> -<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># viewport-height = 2.0</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> copy two-f -<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># viewport-width = aspect * viewport-height</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> viewport-width/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L57" class="LineNr"> 57 </span> viewport-width <span class="SpecialChar"><-</span> multiply aspect -<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># focal-length = 1.0</span> -<span id="L59" class="LineNr"> 59 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="SpecialChar"><-</span> convert tmp +<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 <a href='3.mu.html#L227'>ray</a>), _out: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="Delimiter">{</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L227'>ray</a>) <span class="SpecialChar"><-</span> copy _in +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _out +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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: <a href='3.mu.html#L356'>vec3</a> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> unit/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> address unit-storage +<span id="L18" class="LineNr"> 18 </span> <a href='3.mu.html#L451'>vec3-unit</a> dir, unit +<span id="L19" class="LineNr"> 19 </span><span class="CommentedCode">#? print-string 0, "r.dir normalized: "</span> +<span id="L20" class="LineNr"> 20 </span><span class="CommentedCode">#? print-vec3 0, unit</span> +<span id="L21" class="LineNr"> 21 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> y-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> unit, y +<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># t = (dir.y + 1.0) / 2.0</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *y-addr +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert one +<span id="L27" class="LineNr"> 27 </span> t <span class="SpecialChar"><-</span> add one-f +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="SpecialChar"><-</span> convert two +<span id="L30" class="LineNr"> 30 </span> t <span class="SpecialChar"><-</span> divide two-f +<span id="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 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: <a href='3.mu.html#L252'>rgb</a> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> whitening/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> address whitening-storage +<span id="L37" class="LineNr"> 37 </span> <a href='3.mu.html#L302'>rgb-white</a> whitening +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="SpecialChar"><-</span> copy one-f +<span id="L39" class="LineNr"> 39 </span> one-minus-t <span class="SpecialChar"><-</span> subtract t +<span id="L40" class="LineNr"> 40 </span> <a href='3.mu.html#L337'>rgb-scale-up</a> whitening, one-minus-t +<span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-string 0, "whitening: "</span> +<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-rgb-raw 0, whitening</span> +<span id="L43" class="LineNr"> 43 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># out = t * (0.5, 0.7, 1.0)</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, r +<span id="L46" class="LineNr"> 46 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> +<span id="L47" class="LineNr"> 47 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, g +<span id="L48" class="LineNr"> 48 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> +<span id="L49" class="LineNr"> 49 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, b +<span id="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="muComment"># origin = point3(0, 0, 0)</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> origin-storage: <a href='3.mu.html#L283'>vec3</a> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> origin/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address origin-storage -<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># horizontal = vec3(viewport-width, 0, 0)</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> horizontal-storage: <a href='3.mu.html#L283'>vec3</a> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> horizontal-storage, x -<span id="L68" class="LineNr"> 68 </span> copy-to *dest, viewport-width -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> horizontal/<span class="Constant">ebx</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address horizontal-storage -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># vertical = vec3(0, viewport-height, 0)</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> vertical-storage: <a href='3.mu.html#L283'>vec3</a> -<span id="L72" class="LineNr"> 72 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> vertical-storage, y -<span id="L73" class="LineNr"> 73 </span> copy-to *dest, viewport-height -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> vertical/<span class="Constant">edx</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address vertical-storage -<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># lower-left-corner = origin - horizontal/2 - vertical/2 - vec3(0, 0, focal-length)</span> -<span id="L76" class="LineNr"> 76 </span> <span class="muS1Comment"># . lower-left-corner = origin</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> lower-left-corner-storage: <a href='3.mu.html#L283'>vec3</a> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> lower-left-corner/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address lower-left-corner-storage -<span id="L79" class="LineNr"> 79 </span> copy-object origin, lower-left-corner -<span id="L80" class="LineNr"> 80 </span> <span class="muS1Comment"># . lower-left-corner -= horizontal/2</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> tmp2: <a href='3.mu.html#L283'>vec3</a> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp2-addr/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address tmp2 -<span id="L83" class="LineNr"> 83 </span> copy-object horizontal, tmp2-addr -<span id="L84" class="LineNr"> 84 </span> <a href='3.mu.html#L359'>vec3-scale-down</a> tmp2-addr, two-f -<span id="L85" class="LineNr"> 85 </span> <a href='3.mu.html#L326'>vec3-subtract-from</a> lower-left-corner, tmp2-addr -<span id="L86" class="LineNr"> 86 </span> <span class="muS1Comment"># . lower-left-corner -= vertical/2</span> -<span id="L87" class="LineNr"> 87 </span> copy-object vertical, tmp2-addr -<span id="L88" class="LineNr"> 88 </span> <a href='3.mu.html#L359'>vec3-scale-down</a> tmp2-addr, two-f -<span id="L89" class="LineNr"> 89 </span> <a href='3.mu.html#L326'>vec3-subtract-from</a> lower-left-corner, tmp2-addr -<span id="L90" class="LineNr"> 90 </span> <span class="muS1Comment"># . lower-left-corner -= vec3(0, 0, focal-length)</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> lower-left-corner, z -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest2 -<span id="L93" class="LineNr"> 93 </span> tmp3 <span class="SpecialChar"><-</span> subtract focal-length -<span id="L94" class="LineNr"> 94 </span> copy-to *dest2, tmp3 -<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># phew!</span> -<span id="L96" class="LineNr"> 96 </span> -<span id="L97" class="LineNr"> 97 </span> <span class="muComment"># render</span> -<span id="L98" class="LineNr"> 98 </span> -<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># live variables at this point:</span> -<span id="L100" class="LineNr">100 </span> <span class="muComment"># origin (edi)</span> -<span id="L101" class="LineNr">101 </span> <span class="muComment"># lower-left-corner (esi)</span> -<span id="L102" class="LineNr">102 </span> <span class="muComment"># horizontal (ebx)</span> -<span id="L103" class="LineNr">103 </span> <span class="muComment"># vertical (edx)</span> -<span id="L104" class="LineNr">104 </span> <span class="muComment"># floating-point registers are all free</span> -<span id="L105" class="LineNr">105 </span> <a href='../../405screen.mu.html#L179'>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="L106" class="LineNr">106 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L108" class="LineNr">108 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L110" class="LineNr">110 </span> <span class="muComment">#</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> -<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> compare j, <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> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L116" class="LineNr">116 </span> <span class="Delimiter">{</span> -<span id="L117" class="LineNr">117 </span> compare i, <span class="Constant">0x190</span> <span class="muComment"># 400 = image width</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if->=</span> -<span id="L119" class="LineNr">119 </span> <span class="muComment"># u = i / (image-width - 1)</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i -<span id="L121" class="LineNr">121 </span> u <span class="SpecialChar"><-</span> divide image-width-1 -<span id="L122" class="LineNr">122 </span> <span class="muComment"># v = j / (image-height - 1)</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert j -<span id="L124" class="LineNr">124 </span> v <span class="SpecialChar"><-</span> divide image-height-1 -<span id="L125" class="LineNr">125 </span> <span class="muComment"># r = ray(origin, lower-left-corner + u*horizontal + v*vertical - origin)</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> r-storage: <a href='3.mu.html#L169'>ray</a> -<span id="L127" class="LineNr">127 </span> <span class="muS2Comment"># . . we're running out of int registers now,</span> -<span id="L128" class="LineNr">128 </span> <span class="muS2Comment"># . . but luckily we don't need i and j in the rest of this loop iteration,</span> -<span id="L129" class="LineNr">129 </span> <span class="muS2Comment"># . . so we'll just spill them in a block</span> -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> <span class="muS1Comment"># . r.orig = origin</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L169'>ray</a>) <span class="SpecialChar"><-</span> address r-storage -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, orig -<span id="L134" class="LineNr">134 </span> copy-object origin, dest -<span id="L135" class="LineNr">135 </span> <span class="muS1Comment"># . r.dir = lower-left-corner</span> -<span id="L136" class="LineNr">136 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, dir -<span id="L137" class="LineNr">137 </span> copy-object lower-left-corner, dest -<span id="L138" class="LineNr">138 </span> <span class="muS1Comment"># . r.dir += horizontal*u</span> -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> tmp-vec3: <a href='3.mu.html#L283'>vec3</a> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-vec3 -<span id="L141" class="LineNr">141 </span> copy-object horizontal, tmp -<span id="L142" class="LineNr">142 </span> <a href='3.mu.html#L340'>vec3-scale-up</a> tmp, u -<span id="L143" class="LineNr">143 </span> <a href='3.mu.html#L303'>vec3-add-to</a> dest, tmp -<span id="L144" class="LineNr">144 </span> <span class="muS1Comment"># . r.dir += vertical*v</span> -<span id="L145" class="LineNr">145 </span> copy-object vertical, tmp -<span id="L146" class="LineNr">146 </span> <a href='3.mu.html#L340'>vec3-scale-up</a> tmp, v -<span id="L147" class="LineNr">147 </span> <a href='3.mu.html#L303'>vec3-add-to</a> dest, tmp -<span id="L148" class="LineNr">148 </span> <span class="muS1Comment"># . r.dir -= origin</span> -<span id="L149" class="LineNr">149 </span> <a href='3.mu.html#L326'>vec3-subtract-from</a> dest, origin -<span id="L150" class="LineNr">150 </span> <span class="Delimiter">}</span> -<span id="L151" class="LineNr">151 </span> <span class="muComment"># pixel-color = ray-color(r)</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> c-storage: <a href='3.mu.html#L194'>rgb</a> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> address c-storage -<span id="L154" class="LineNr">154 </span> <span class="Delimiter">{</span> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L169'>ray</a>) <span class="SpecialChar"><-</span> address r-storage -<span id="L156" class="LineNr">156 </span> <a href='3.mu.html#L9'>ray-color</a> r, c -<span id="L157" class="LineNr">157 </span> <span class="muComment"># write color</span> -<span id="L158" class="LineNr">158 </span> <a href='3.mu.html#L202'>print-rgb</a> <span class="Constant">0</span>, c -<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> -<span id="L160" class="LineNr">160 </span> i <span class="SpecialChar"><-</span> increment -<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> j <span class="SpecialChar"><-</span> decrement -<span id="L164" class="LineNr">164 </span> <span class="PreProc">loop</span> -<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<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">type</span> <a href='3.mu.html#L169'>ray</a> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> orig: <a href='3.mu.html#L283'>vec3</a> <span class="muComment"># point</span> -<span id="L171" class="LineNr">171 </span> dir: <a href='3.mu.html#L283'>vec3</a> -<span id="L172" class="LineNr">172 </span><span class="Delimiter">}</span> -<span id="L173" class="LineNr">173 </span> -<span id="L174" class="LineNr">174 </span><span class="muComment"># 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="L175" class="LineNr">175 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> -<span id="L176" class="LineNr">176 </span><span class="muComment"># so.</span> -<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L177'>initialize-ray</a></span> _self: (addr <a href='3.mu.html#L169'>ray</a>), o: (addr <a href='3.mu.html#L283'>vec3</a>), d: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L169'>ray</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig -<span id="L180" class="LineNr">180 </span> copy-object o, dest -<span id="L181" class="LineNr">181 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir -<span id="L182" class="LineNr">182 </span> <a href='3.mu.html#L378'>vec3-unit</a> d, dest -<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='3.mu.html#L185'>ray-at</a></span> _self: (addr <a href='3.mu.html#L169'>ray</a>), t: float, out: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L169'>ray</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir -<span id="L188" class="LineNr">188 </span> copy-object src, out -<span id="L189" class="LineNr">189 </span> <a href='3.mu.html#L340'>vec3-scale-up</a> out, t -<span id="L190" class="LineNr">190 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig -<span id="L191" class="LineNr">191 </span> <a href='3.mu.html#L303'>vec3-add-to</a> out, src -<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> -<span id="L194" class="LineNr">194 </span><span class="PreProc">type</span> <a href='3.mu.html#L194'>rgb</a> <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> -<span id="L196" class="LineNr">196 </span> r: float -<span id="L197" class="LineNr">197 </span> g: float -<span id="L198" class="LineNr">198 </span> b: float -<span id="L199" class="LineNr">199 </span><span class="Delimiter">}</span> -<span id="L200" class="LineNr">200 </span> -<span id="L201" class="LineNr">201 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L202" class="LineNr">202 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L202'>print-rgb</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="Delimiter">{</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _c -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> <span class="muComment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L206" class="LineNr">206 </span> <span class="muComment"># print 255 * c->r</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r -<span id="L209" class="LineNr">209 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert result -<span id="L211" class="LineNr">211 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L212" class="LineNr">212 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L213" class="LineNr">213 </span> <span class="muComment"># print 255 * c->g</span> -<span id="L214" class="LineNr">214 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g -<span id="L215" class="LineNr">215 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L216" class="LineNr">216 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L217" class="LineNr">217 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L218" class="LineNr">218 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L219" class="LineNr">219 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L220" class="LineNr">220 </span> <span class="muComment"># print 255 * c->b</span> -<span id="L221" class="LineNr">221 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b -<span id="L222" class="LineNr">222 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L223" class="LineNr">223 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L224" class="LineNr">224 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L225" class="LineNr">225 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L226" class="LineNr">226 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> -<span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L229'>rgb-white</a></span> _c: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _c -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert one -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r -<span id="L234" class="LineNr">234 </span> copy-to *dest, one-f -<span id="L235" class="LineNr">235 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g -<span id="L236" class="LineNr">236 </span> copy-to *dest, one-f -<span id="L237" class="LineNr">237 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b -<span id="L238" class="LineNr">238 </span> copy-to *dest, one-f -<span id="L239" class="LineNr">239 </span><span class="Delimiter">}</span> -<span id="L240" class="LineNr">240 </span> -<span id="L241" class="LineNr">241 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L241'>rgb-add-to</a></span> _c1: (addr <a href='3.mu.html#L194'>rgb</a>), _c2: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="Delimiter">{</span> -<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> c2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _c2 -<span id="L244" class="LineNr">244 </span> <span class="muComment"># c1.r += c2.r</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, r -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 -<span id="L248" class="LineNr">248 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L249" class="LineNr">249 </span> copy-to *arg1, result -<span id="L250" class="LineNr">250 </span> <span class="muComment"># c1.g += c2.g</span> -<span id="L251" class="LineNr">251 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g -<span id="L252" class="LineNr">252 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, g -<span id="L253" class="LineNr">253 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L254" class="LineNr">254 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L255" class="LineNr">255 </span> copy-to *arg1, result -<span id="L256" class="LineNr">256 </span> <span class="muComment"># c1.b += c2.b</span> -<span id="L257" class="LineNr">257 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b -<span id="L258" class="LineNr">258 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, b -<span id="L259" class="LineNr">259 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L260" class="LineNr">260 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L261" class="LineNr">261 </span> copy-to *arg1, result -<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> -<span id="L263" class="LineNr">263 </span> -<span id="L264" class="LineNr">264 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L264'>rgb-scale-up</a></span> _c1: (addr <a href='3.mu.html#L194'>rgb</a>), f: float <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L194'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 -<span id="L266" class="LineNr">266 </span> <span class="muComment"># c1.r *= f</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L269" class="LineNr">269 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L270" class="LineNr">270 </span> copy-to *dest, result -<span id="L271" class="LineNr">271 </span> <span class="muComment"># c1.g *= f</span> -<span id="L272" class="LineNr">272 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g -<span id="L273" class="LineNr">273 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L274" class="LineNr">274 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L275" class="LineNr">275 </span> copy-to *dest, result -<span id="L276" class="LineNr">276 </span> <span class="muComment"># c1.b *= f</span> -<span id="L277" class="LineNr">277 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b -<span id="L278" class="LineNr">278 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L279" class="LineNr">279 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L280" class="LineNr">280 </span> copy-to *dest, result -<span id="L281" class="LineNr">281 </span><span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> -<span id="L283" class="LineNr">283 </span><span class="PreProc">type</span> <a href='3.mu.html#L283'>vec3</a> <span class="Delimiter">{</span> -<span id="L284" class="LineNr">284 </span> x: float -<span id="L285" class="LineNr">285 </span> y: float -<span id="L286" class="LineNr">286 </span> z: float -<span id="L287" class="LineNr">287 </span><span class="Delimiter">}</span> -<span id="L288" class="LineNr">288 </span> -<span id="L289" class="LineNr">289 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L289'>print-vec3</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v -<span id="L291" class="LineNr">291 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L293" class="LineNr">293 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L294" class="LineNr">294 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L295" class="LineNr">295 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L296" class="LineNr">296 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L297" class="LineNr">297 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L298" class="LineNr">298 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L299" class="LineNr">299 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L300" class="LineNr">300 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> -<span id="L301" class="LineNr">301 </span><span class="Delimiter">}</span> -<span id="L302" class="LineNr">302 </span> -<span id="L303" class="LineNr">303 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L303'>vec3-add-to</a></span> _v1: (addr <a href='3.mu.html#L283'>vec3</a>), _v2: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v2 -<span id="L306" class="LineNr">306 </span> <span class="muComment"># v1.x += v2.x</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, x -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 -<span id="L310" class="LineNr">310 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L311" class="LineNr">311 </span> copy-to *arg1, result -<span id="L312" class="LineNr">312 </span> <span class="muComment"># v1.y += v2.y</span> -<span id="L313" class="LineNr">313 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y -<span id="L314" class="LineNr">314 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, y -<span id="L315" class="LineNr">315 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L316" class="LineNr">316 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L317" class="LineNr">317 </span> copy-to *arg1, result -<span id="L318" class="LineNr">318 </span> <span class="muComment"># v1.z += v2.z</span> -<span id="L319" class="LineNr">319 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z -<span id="L320" class="LineNr">320 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, z -<span id="L321" class="LineNr">321 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L322" class="LineNr">322 </span> result <span class="SpecialChar"><-</span> add *arg2 -<span id="L323" class="LineNr">323 </span> copy-to *arg1, result -<span id="L324" class="LineNr">324 </span><span class="Delimiter">}</span> -<span id="L325" class="LineNr">325 </span> -<span id="L326" class="LineNr">326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L326'>vec3-subtract-from</a></span> v1: (addr <a href='3.mu.html#L283'>vec3</a>), v2: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> tmp-storage: <a href='3.mu.html#L283'>vec3</a> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-storage -<span id="L329" class="LineNr">329 </span> copy-object v2, tmp -<span id="L330" class="LineNr">330 </span> <a href='3.mu.html#L334'>vec3-negate</a> tmp -<span id="L331" class="LineNr">331 </span> <a href='3.mu.html#L303'>vec3-add-to</a> v1, tmp -<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='3.mu.html#L334'>vec3-negate</a></span> v: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert negative-one -<span id="L337" class="LineNr">337 </span> <a href='3.mu.html#L340'>vec3-scale-up</a> v, negative-one-f -<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> -<span id="L339" class="LineNr">339 </span> -<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L340'>vec3-scale-up</a></span> _v1: (addr <a href='3.mu.html#L283'>vec3</a>), f: float <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 -<span id="L342" class="LineNr">342 </span> <span class="muComment"># v1.x *= f</span> -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x -<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L345" class="LineNr">345 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L346" class="LineNr">346 </span> copy-to *dest, result -<span id="L347" class="LineNr">347 </span> <span class="muComment"># v1.y *= f</span> -<span id="L348" class="LineNr">348 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y -<span id="L349" class="LineNr">349 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L350" class="LineNr">350 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L351" class="LineNr">351 </span> copy-to *dest, result -<span id="L352" class="LineNr">352 </span> <span class="muComment"># v1.z *= f</span> -<span id="L353" class="LineNr">353 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z -<span id="L354" class="LineNr">354 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L355" class="LineNr">355 </span> result <span class="SpecialChar"><-</span> multiply f -<span id="L356" class="LineNr">356 </span> copy-to *dest, result -<span id="L357" class="LineNr">357 </span><span class="Delimiter">}</span> -<span id="L358" class="LineNr">358 </span> -<span id="L359" class="LineNr">359 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L359'>vec3-scale-down</a></span> _v1: (addr <a href='3.mu.html#L283'>vec3</a>), f: float <span class="Delimiter">{</span> -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 -<span id="L361" class="LineNr">361 </span> <span class="muComment"># v1.x /= f</span> -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L364" class="LineNr">364 </span> result <span class="SpecialChar"><-</span> divide f -<span id="L365" class="LineNr">365 </span> copy-to *dest, result -<span id="L366" class="LineNr">366 </span> <span class="muComment"># v1.y /= f</span> -<span id="L367" class="LineNr">367 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y -<span id="L368" class="LineNr">368 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L369" class="LineNr">369 </span> result <span class="SpecialChar"><-</span> divide f -<span id="L370" class="LineNr">370 </span> copy-to *dest, result -<span id="L371" class="LineNr">371 </span> <span class="muComment"># v1.z /= f</span> -<span id="L372" class="LineNr">372 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z -<span id="L373" class="LineNr">373 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L374" class="LineNr">374 </span> result <span class="SpecialChar"><-</span> divide f -<span id="L375" class="LineNr">375 </span> copy-to *dest, result -<span id="L376" class="LineNr">376 </span><span class="Delimiter">}</span> -<span id="L377" class="LineNr">377 </span> -<span id="L378" class="LineNr">378 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L378'>vec3-unit</a></span> in: (addr <a href='3.mu.html#L283'>vec3</a>), out: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="Delimiter">{</span> -<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='3.mu.html#L384'>vec3-length</a> in -<span id="L380" class="LineNr">380 </span> copy-object in, out -<span id="L381" class="LineNr">381 </span> <a href='3.mu.html#L359'>vec3-scale-down</a> out, len -<span id="L382" class="LineNr">382 </span><span class="Delimiter">}</span> -<span id="L383" class="LineNr">383 </span> -<span id="L384" class="LineNr">384 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L384'>vec3-length</a></span> v: (addr <a href='3.mu.html#L283'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L385" class="LineNr">385 </span> result <span class="SpecialChar"><-</span> <a href='3.mu.html#L389'>vec3-length-squared</a> v -<span id="L386" class="LineNr">386 </span> result <span class="SpecialChar"><-</span> square-root result -<span id="L387" class="LineNr">387 </span><span class="Delimiter">}</span> -<span id="L388" class="LineNr">388 </span> -<span id="L389" class="LineNr">389 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L389'>vec3-length-squared</a></span> _v: (addr <a href='3.mu.html#L283'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L283'>vec3</a>) <span class="SpecialChar"><-</span> copy _v -<span id="L391" class="LineNr">391 </span> <span class="muComment"># result = v.x * v.x</span> -<span id="L392" class="LineNr">392 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy *src -<span id="L394" class="LineNr">394 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L395" class="LineNr">395 </span> result <span class="SpecialChar"><-</span> copy tmp -<span id="L396" class="LineNr">396 </span> <span class="muComment"># </span> +<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L62'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">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/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> address aspect +<span id="L69" class="LineNr"> 69 </span> <a href='../../409float.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 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/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> copy two-f +<span id="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 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="SpecialChar"><-</span> convert tmp +<span id="L97" class="LineNr"> 97 </span> viewport-width <span class="SpecialChar"><-</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 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="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="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: <a href='3.mu.html#L356'>vec3</a> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> origin/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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: <a href='3.mu.html#L356'>vec3</a> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> horizontal-storage, x +<span id="L118" class="LineNr">118 </span> copy-to *dest, viewport-width +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> horizontal/<span class="Constant">ebx</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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: <a href='3.mu.html#L356'>vec3</a> +<span id="L122" class="LineNr">122 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> vertical-storage, y +<span id="L123" class="LineNr">123 </span> copy-to *dest, viewport-height +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> vertical/<span class="Constant">edx</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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: <a href='3.mu.html#L356'>vec3</a> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> lower-left-corner/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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: <a href='3.mu.html#L356'>vec3</a> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> tmp2-addr/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> address tmp2 +<span id="L133" class="LineNr">133 </span> copy-object horizontal, tmp2-addr +<span id="L134" class="LineNr">134 </span> <a href='3.mu.html#L432'>vec3-scale-down</a> tmp2-addr, two-f +<span id="L135" class="LineNr">135 </span> <a href='3.mu.html#L399'>vec3-subtract-from</a> 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> <a href='3.mu.html#L432'>vec3-scale-down</a> tmp2-addr, two-f +<span id="L139" class="LineNr">139 </span> <a href='3.mu.html#L399'>vec3-subtract-from</a> lower-left-corner, tmp2-addr +<span id="L140" class="LineNr">140 </span> <span class="muS1Comment"># . lower-left-corner -= vec3(0, 0, focal-length)</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> lower-left-corner, z +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest2 +<span id="L143" class="LineNr">143 </span> tmp3 <span class="SpecialChar"><-</span> subtract focal-length +<span id="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#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n400 225\n255\n"</span> <span class="muComment"># 225 = image height</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L158" class="LineNr">158 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L160" class="LineNr">160 </span> <span class="muComment">#</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> +<span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> +<span id="L163" class="LineNr">163 </span> compare j, <span class="Constant">0</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-<</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span> compare i, <span class="Constant">0x190</span> <span class="muComment"># 400 = image width</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if->=</span> +<span id="L169" class="LineNr">169 </span> <span class="muComment"># u = i / (image-width - 1)</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i +<span id="L171" class="LineNr">171 </span> u <span class="SpecialChar"><-</span> divide image-width-1 +<span id="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 0, u</span> +<span id="L174" class="LineNr">174 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L175" class="LineNr">175 </span> <span class="muComment"># v = j / (image-height - 1)</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert j +<span id="L177" class="LineNr">177 </span> v <span class="SpecialChar"><-</span> divide image-height-1 +<span id="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: <a href='3.mu.html#L227'>ray</a> +<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/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L227'>ray</a>) <span class="SpecialChar"><-</span> address r-storage +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, orig +<span id="L187" class="LineNr">187 </span> copy-object origin, dest +<span id="L188" class="LineNr">188 </span> <span class="muS1Comment"># . r.dir = lower-left-corner</span> +<span id="L189" class="LineNr">189 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, dir +<span id="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: <a href='3.mu.html#L356'>vec3</a> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-vec3 +<span id="L194" class="LineNr">194 </span> copy-object horizontal, tmp +<span id="L195" class="LineNr">195 </span> <a href='3.mu.html#L413'>vec3-scale-up</a> tmp, u +<span id="L196" class="LineNr">196 </span> <a href='3.mu.html#L376'>vec3-add-to</a> 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> <a href='3.mu.html#L413'>vec3-scale-up</a> tmp, v +<span id="L200" class="LineNr">200 </span> <a href='3.mu.html#L376'>vec3-add-to</a> dest, tmp +<span id="L201" class="LineNr">201 </span> <span class="muS1Comment"># . r.dir -= origin</span> +<span id="L202" class="LineNr">202 </span> <a href='3.mu.html#L399'>vec3-subtract-from</a> 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: <a href='3.mu.html#L252'>rgb</a> +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> address c-storage +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L227'>ray</a>) <span class="SpecialChar"><-</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> <a href='3.mu.html#L260'>print-rgb</a> <span class="Constant">0</span>, c +<span id="L215" class="LineNr">215 </span><span class="CommentedCode">#? print-rgb-raw 0, c</span> +<span id="L216" class="LineNr">216 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span> i <span class="SpecialChar"><-</span> increment +<span id="L219" class="LineNr">219 </span> <span class="PreProc">loop</span> +<span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> j <span class="SpecialChar"><-</span> decrement +<span id="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> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</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> <a href='3.mu.html#L227'>ray</a> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> orig: <a href='3.mu.html#L356'>vec3</a> <span class="muComment"># point</span> +<span id="L229" class="LineNr">229 </span> dir: <a href='3.mu.html#L356'>vec3</a> +<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"><a href='3.mu.html#L235'>initialize-ray</a></span> _self: (addr <a href='3.mu.html#L227'>ray</a>), o: (addr <a href='3.mu.html#L356'>vec3</a>), d: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L227'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L238" class="LineNr">238 </span> copy-object o, dest +<span id="L239" class="LineNr">239 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L240" class="LineNr">240 </span> <a href='3.mu.html#L451'>vec3-unit</a> 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"><a href='3.mu.html#L243'>ray-at</a></span> _self: (addr <a href='3.mu.html#L227'>ray</a>), t: float, out: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L227'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</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> <a href='3.mu.html#L413'>vec3-scale-up</a> out, t +<span id="L248" class="LineNr">248 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L249" class="LineNr">249 </span> <a href='3.mu.html#L376'>vec3-add-to</a> 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> <a href='3.mu.html#L252'>rgb</a> <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"><a href='3.mu.html#L260'>print-rgb</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _c +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> xn: float +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> address xn +<span id="L264" class="LineNr">264 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> +<span id="L265" class="LineNr">265 </span> <span class="muComment"># print 255.999 * c->r</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L268" class="LineNr">268 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> truncate result +<span id="L270" class="LineNr">270 </span> <a href='../../405screen.mu.html#L481'>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#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L272" class="LineNr">272 </span> <span class="muComment"># print 255.999 * c->g</span> +<span id="L273" class="LineNr">273 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L274" class="LineNr">274 </span> result <span class="SpecialChar"><-</span> copy xn +<span id="L275" class="LineNr">275 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L276" class="LineNr">276 </span> result-int <span class="SpecialChar"><-</span> truncate result +<span id="L277" class="LineNr">277 </span> <a href='../../405screen.mu.html#L481'>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#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L279" class="LineNr">279 </span> <span class="muComment"># print 255.999 * c->b</span> +<span id="L280" class="LineNr">280 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L281" class="LineNr">281 </span> result <span class="SpecialChar"><-</span> copy xn +<span id="L282" class="LineNr">282 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L283" class="LineNr">283 </span> result-int <span class="SpecialChar"><-</span> truncate result +<span id="L284" class="LineNr">284 </span> <a href='../../405screen.mu.html#L481'>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#L179'>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 <a href='3.mu.html#L252'>rgb</a>) <span class="Delimiter">{</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L290" class="LineNr">290 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, r +<span id="L292" class="LineNr">292 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L293" class="LineNr">293 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L294" class="LineNr">294 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, g +<span id="L295" class="LineNr">295 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L296" class="LineNr">296 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L297" class="LineNr">297 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, b +<span id="L298" class="LineNr">298 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L299" class="LineNr">299 </span> <a href='../../405screen.mu.html#L179'>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 <a href='3.mu.html#L252'>rgb</a>) <span class="Delimiter">{</span> +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _c +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert one +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L307" class="LineNr">307 </span> copy-to *dest, one-f +<span id="L308" class="LineNr">308 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L309" class="LineNr">309 </span> copy-to *dest, one-f +<span id="L310" class="LineNr">310 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="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 <a href='3.mu.html#L252'>rgb</a>), _c2: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="Delimiter">{</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> c2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _c2 +<span id="L317" class="LineNr">317 </span> <span class="muComment"># c1.r += c2.r</span> +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, r +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 +<span id="L321" class="LineNr">321 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L322" class="LineNr">322 </span> copy-to *arg1, result +<span id="L323" class="LineNr">323 </span> <span class="muComment"># c1.g += c2.g</span> +<span id="L324" class="LineNr">324 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g +<span id="L325" class="LineNr">325 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, g +<span id="L326" class="LineNr">326 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L327" class="LineNr">327 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L328" class="LineNr">328 </span> copy-to *arg1, result +<span id="L329" class="LineNr">329 </span> <span class="muComment"># c1.b += c2.b</span> +<span id="L330" class="LineNr">330 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b +<span id="L331" class="LineNr">331 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, b +<span id="L332" class="LineNr">332 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L333" class="LineNr">333 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="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 <a href='3.mu.html#L252'>rgb</a>), f: float <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L252'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 +<span id="L339" class="LineNr">339 </span> <span class="muComment"># c1.r *= f</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L342" class="LineNr">342 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L343" class="LineNr">343 </span> copy-to *dest, result +<span id="L344" class="LineNr">344 </span> <span class="muComment"># c1.g *= f</span> +<span id="L345" class="LineNr">345 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g +<span id="L346" class="LineNr">346 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L347" class="LineNr">347 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L348" class="LineNr">348 </span> copy-to *dest, result +<span id="L349" class="LineNr">349 </span> <span class="muComment"># c1.b *= f</span> +<span id="L350" class="LineNr">350 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b +<span id="L351" class="LineNr">351 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L352" class="LineNr">352 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="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> <a href='3.mu.html#L356'>vec3</a> <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"><a href='3.mu.html#L362'>print-vec3</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L364" class="LineNr">364 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x +<span id="L366" class="LineNr">366 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L367" class="LineNr">367 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L368" class="LineNr">368 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y +<span id="L369" class="LineNr">369 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L370" class="LineNr">370 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L371" class="LineNr">371 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z +<span id="L372" class="LineNr">372 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L373" class="LineNr">373 </span> <a href='../../405screen.mu.html#L179'>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"><a href='3.mu.html#L376'>vec3-add-to</a></span> _v1: (addr <a href='3.mu.html#L356'>vec3</a>), _v2: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v2 +<span id="L379" class="LineNr">379 </span> <span class="muComment"># v1.x += v2.x</span> +<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, x +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 +<span id="L383" class="LineNr">383 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L384" class="LineNr">384 </span> copy-to *arg1, result +<span id="L385" class="LineNr">385 </span> <span class="muComment"># v1.y += v2.y</span> +<span id="L386" class="LineNr">386 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L387" class="LineNr">387 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, y +<span id="L388" class="LineNr">388 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L389" class="LineNr">389 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L390" class="LineNr">390 </span> copy-to *arg1, result +<span id="L391" class="LineNr">391 </span> <span class="muComment"># v1.z += v2.z</span> +<span id="L392" class="LineNr">392 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L393" class="LineNr">393 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, z +<span id="L394" class="LineNr">394 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L395" class="LineNr">395 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="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"><a href='3.mu.html#L399'>vec3-subtract-from</a></span> v1: (addr <a href='3.mu.html#L356'>vec3</a>), v2: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> tmp-storage: <a href='3.mu.html#L356'>vec3</a> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-storage +<span id="L402" class="LineNr">402 </span> copy-object v2, tmp +<span id="L403" class="LineNr">403 </span> <a href='3.mu.html#L407'>vec3-negate</a> tmp +<span id="L404" class="LineNr">404 </span> <a href='3.mu.html#L376'>vec3-add-to</a> 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"><a href='3.mu.html#L407'>vec3-negate</a></span> v: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert negative-one +<span id="L410" class="LineNr">410 </span> <a href='3.mu.html#L413'>vec3-scale-up</a> 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"><a href='3.mu.html#L413'>vec3-scale-up</a></span> _v1: (addr <a href='3.mu.html#L356'>vec3</a>), f: float <span class="Delimiter">{</span> +<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L415" class="LineNr">415 </span> <span class="muComment"># v1.x *= f</span> +<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L418" class="LineNr">418 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L419" class="LineNr">419 </span> copy-to *dest, result +<span id="L420" class="LineNr">420 </span> <span class="muComment"># v1.y *= f</span> +<span id="L421" class="LineNr">421 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L422" class="LineNr">422 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L423" class="LineNr">423 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L424" class="LineNr">424 </span> copy-to *dest, result +<span id="L425" class="LineNr">425 </span> <span class="muComment"># v1.z *= f</span> +<span id="L426" class="LineNr">426 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L427" class="LineNr">427 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L428" class="LineNr">428 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="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"><a href='3.mu.html#L432'>vec3-scale-down</a></span> _v1: (addr <a href='3.mu.html#L356'>vec3</a>), f: float <span class="Delimiter">{</span> +<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L434" class="LineNr">434 </span> <span class="muComment"># v1.x /= f</span> +<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L437" class="LineNr">437 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L438" class="LineNr">438 </span> copy-to *dest, result +<span id="L439" class="LineNr">439 </span> <span class="muComment"># v1.y /= f</span> +<span id="L440" class="LineNr">440 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L441" class="LineNr">441 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L442" class="LineNr">442 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L443" class="LineNr">443 </span> copy-to *dest, result +<span id="L444" class="LineNr">444 </span> <span class="muComment"># v1.z /= f</span> +<span id="L445" class="LineNr">445 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L446" class="LineNr">446 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L447" class="LineNr">447 </span> result <span class="SpecialChar"><-</span> divide f +<span id="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"><a href='3.mu.html#L451'>vec3-unit</a></span> in: (addr <a href='3.mu.html#L356'>vec3</a>), out: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="Delimiter">{</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='3.mu.html#L460'>vec3-length</a> 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 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> <a href='3.mu.html#L432'>vec3-scale-down</a> 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"><a href='3.mu.html#L460'>vec3-length</a></span> v: (addr <a href='3.mu.html#L356'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L461" class="LineNr">461 </span> result <span class="SpecialChar"><-</span> <a href='3.mu.html#L465'>vec3-length-squared</a> v +<span id="L462" class="LineNr">462 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L463" class="LineNr">463 </span><span class="Delimiter">}</span> +<span id="L464" class="LineNr">464 </span> +<span id="L465" class="LineNr">465 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L465'>vec3-length-squared</a></span> _v: (addr <a href='3.mu.html#L356'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L356'>vec3</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L467" class="LineNr">467 </span> <span class="muComment"># result = v.x * v.x</span> +<span id="L468" class="LineNr">468 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy *src +<span id="L470" class="LineNr">470 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L471" class="LineNr">471 </span> result <span class="SpecialChar"><-</span> copy tmp +<span id="L472" class="LineNr">472 </span> <span class="muComment"># result += v.y * v.y</span> +<span id="L473" class="LineNr">473 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y +<span id="L474" class="LineNr">474 </span> tmp <span class="SpecialChar"><-</span> copy *src +<span id="L475" class="LineNr">475 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L476" class="LineNr">476 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L477" class="LineNr">477 </span> <span class="muComment"># result += v.z * v.z</span> +<span id="L478" class="LineNr">478 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z +<span id="L479" class="LineNr">479 </span> tmp <span class="SpecialChar"><-</span> copy *src +<span id="L480" class="LineNr">480 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L481" class="LineNr">481 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L482" class="LineNr">482 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/raytracing/3.mu.html. b/html/apps/raytracing/3.mu.html. new file mode 100644 index 00000000..9288e46f --- /dev/null +++ b/html/apps/raytracing/3.mu.html. @@ -0,0 +1,489 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/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: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.muS1Comment { color: #0000af; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +.muS2Comment { color: #8a8a8a; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/3.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/3.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 9 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/raytracing/3.mu</span> +<span id="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 <a href='3.mu.html#L173'>ray</a>), _out: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="Delimiter">{</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L173'>ray</a>) <span class="SpecialChar"><-</span> copy _in +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _out +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, dir +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> unit-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> unit/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address unit-storage +<span id="L15" class="LineNr"> 15 </span> <a href='3.mu.html#L397'>vec3-unit</a> dir, unit +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> y-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> unit, y +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># t = (dir.y + 1.0) / 2.0</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *y-addr +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert one +<span id="L21" class="LineNr"> 21 </span> t <span class="SpecialChar"><-</span> add one-f +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="SpecialChar"><-</span> convert two +<span id="L24" class="LineNr"> 24 </span> t <span class="SpecialChar"><-</span> divide two-f +<span id="L25" class="LineNr"> 25 </span> <span class="muComment"># whitening = (1.0 - t) * white</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> whitening-storage: <a href='3.mu.html#L198'>rgb</a> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> whitening/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> address whitening-storage +<span id="L28" class="LineNr"> 28 </span> <a href='3.mu.html#L248'>rgb-white</a> whitening +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="SpecialChar"><-</span> copy one-f +<span id="L30" class="LineNr"> 30 </span> one-minus-t <span class="SpecialChar"><-</span> subtract t +<span id="L31" class="LineNr"> 31 </span> <a href='3.mu.html#L283'>rgb-scale-up</a> whitening, one-minus-t +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># out = t * (0.5, 0.7, 1.0)</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, r +<span id="L34" class="LineNr"> 34 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> +<span id="L35" class="LineNr"> 35 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, g +<span id="L36" class="LineNr"> 36 </span> <a href='../../409float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> +<span id="L37" class="LineNr"> 37 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, b +<span id="L38" class="LineNr"> 38 </span> copy-to *dest, one-f +<span id="L39" class="LineNr"> 39 </span> <a href='3.mu.html#L283'>rgb-scale-up</a> out, t +<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># blend with whitening</span> +<span id="L41" class="LineNr"> 41 </span> <a href='3.mu.html#L260'>rgb-add-to</a> out, whitening +<span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> +<span id="L44" class="LineNr"> 44 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L44'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># image</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># width = 400</span> +<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># height = 400 * 9/16 = 225</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> aspect: float +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> aspect-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> address aspect +<span id="L51" class="LineNr"> 51 </span> <a href='../../409float.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="L52" class="LineNr"> 52 </span> +<span id="L53" class="LineNr"> 53 </span> <span class="muComment"># camera</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># viewport-height = 2.0</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> copy two-f +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># viewport-width = aspect * viewport-height</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> viewport-width/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L61" class="LineNr"> 61 </span> viewport-width <span class="SpecialChar"><-</span> multiply aspect +<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># focal-length = 1.0</span> +<span id="L63" class="LineNr"> 63 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># origin = point3(0, 0, 0)</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> origin-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> origin/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address origin-storage +<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># horizontal = vec3(viewport-width, 0, 0)</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> horizontal-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> horizontal-storage, x +<span id="L72" class="LineNr"> 72 </span> copy-to *dest, viewport-width +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> horizontal/<span class="Constant">ebx</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address horizontal-storage +<span id="L74" class="LineNr"> 74 </span> <span class="muComment"># vertical = vec3(0, viewport-height, 0)</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> vertical-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L76" class="LineNr"> 76 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> vertical-storage, y +<span id="L77" class="LineNr"> 77 </span> copy-to *dest, viewport-height +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> vertical/<span class="Constant">edx</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address vertical-storage +<span id="L79" class="LineNr"> 79 </span> <span class="muComment"># lower-left-corner = origin - horizontal/2 - vertical/2 - vec3(0, 0, focal-length)</span> +<span id="L80" class="LineNr"> 80 </span> <span class="muS1Comment"># . lower-left-corner = origin</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> lower-left-corner-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> lower-left-corner/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address lower-left-corner-storage +<span id="L83" class="LineNr"> 83 </span> copy-object origin, lower-left-corner +<span id="L84" class="LineNr"> 84 </span> <span class="muS1Comment"># . lower-left-corner -= horizontal/2</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> tmp2: <a href='3.mu.html#L302'>vec3</a> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> tmp2-addr/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address tmp2 +<span id="L87" class="LineNr"> 87 </span> copy-object horizontal, tmp2-addr +<span id="L88" class="LineNr"> 88 </span> <a href='3.mu.html#L378'>vec3-scale-down</a> tmp2-addr, two-f +<span id="L89" class="LineNr"> 89 </span> <a href='3.mu.html#L345'>vec3-subtract-from</a> lower-left-corner, tmp2-addr +<span id="L90" class="LineNr"> 90 </span> <span class="muS1Comment"># . lower-left-corner -= vertical/2</span> +<span id="L91" class="LineNr"> 91 </span> copy-object vertical, tmp2-addr +<span id="L92" class="LineNr"> 92 </span> <a href='3.mu.html#L378'>vec3-scale-down</a> tmp2-addr, two-f +<span id="L93" class="LineNr"> 93 </span> <a href='3.mu.html#L345'>vec3-subtract-from</a> lower-left-corner, tmp2-addr +<span id="L94" class="LineNr"> 94 </span> <span class="muS1Comment"># . lower-left-corner -= vec3(0, 0, focal-length)</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> lower-left-corner, z +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest2 +<span id="L97" class="LineNr"> 97 </span> tmp3 <span class="SpecialChar"><-</span> subtract focal-length +<span id="L98" class="LineNr"> 98 </span> copy-to *dest2, tmp3 +<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># phew!</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span> <span class="muComment"># render</span> +<span id="L102" class="LineNr">102 </span> +<span id="L103" class="LineNr">103 </span> <span class="muComment"># live variables at this point:</span> +<span id="L104" class="LineNr">104 </span> <span class="muComment"># origin (edi)</span> +<span id="L105" class="LineNr">105 </span> <span class="muComment"># lower-left-corner (esi)</span> +<span id="L106" class="LineNr">106 </span> <span class="muComment"># horizontal (ebx)</span> +<span id="L107" class="LineNr">107 </span> <span class="muComment"># vertical (edx)</span> +<span id="L108" class="LineNr">108 </span> <span class="muComment"># floating-point registers are all free</span> +<span id="L109" class="LineNr">109 </span> <a href='../../405screen.mu.html#L179'>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="L110" class="LineNr">110 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L112" class="LineNr">112 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L114" class="LineNr">114 </span> <span class="muComment">#</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> +<span id="L116" class="LineNr">116 </span> <span class="Delimiter">{</span> +<span id="L117" class="LineNr">117 </span> compare j, <span class="Constant">0</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-<</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> compare i, <span class="Constant">0x190</span> <span class="muComment"># 400 = image width</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if->=</span> +<span id="L123" class="LineNr">123 </span> <span class="muComment"># u = i / (image-width - 1)</span> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i +<span id="L125" class="LineNr">125 </span> u <span class="SpecialChar"><-</span> divide image-width-1 +<span id="L126" class="LineNr">126 </span> <span class="muComment"># v = j / (image-height - 1)</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert j +<span id="L128" class="LineNr">128 </span> v <span class="SpecialChar"><-</span> divide image-height-1 +<span id="L129" class="LineNr">129 </span> <span class="muComment"># r = ray(origin, lower-left-corner + u*horizontal + v*vertical - origin)</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> r-storage: <a href='3.mu.html#L173'>ray</a> +<span id="L131" class="LineNr">131 </span> <span class="muS2Comment"># . . we're running out of int registers now,</span> +<span id="L132" class="LineNr">132 </span> <span class="muS2Comment"># . . but luckily we don't need i and j in the rest of this loop iteration,</span> +<span id="L133" class="LineNr">133 </span> <span class="muS2Comment"># . . so we'll just spill them in a block</span> +<span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> <span class="muS1Comment"># . r.orig = origin</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L173'>ray</a>) <span class="SpecialChar"><-</span> address r-storage +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, orig +<span id="L138" class="LineNr">138 </span> copy-object origin, dest +<span id="L139" class="LineNr">139 </span> <span class="muS1Comment"># . r.dir = lower-left-corner</span> +<span id="L140" class="LineNr">140 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, dir +<span id="L141" class="LineNr">141 </span> copy-object lower-left-corner, dest +<span id="L142" class="LineNr">142 </span> <span class="muS1Comment"># . r.dir += horizontal*u</span> +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> tmp-vec3: <a href='3.mu.html#L302'>vec3</a> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-vec3 +<span id="L145" class="LineNr">145 </span> copy-object horizontal, tmp +<span id="L146" class="LineNr">146 </span> <a href='3.mu.html#L359'>vec3-scale-up</a> tmp, u +<span id="L147" class="LineNr">147 </span> <a href='3.mu.html#L322'>vec3-add-to</a> dest, tmp +<span id="L148" class="LineNr">148 </span> <span class="muS1Comment"># . r.dir += vertical*v</span> +<span id="L149" class="LineNr">149 </span> copy-object vertical, tmp +<span id="L150" class="LineNr">150 </span> <a href='3.mu.html#L359'>vec3-scale-up</a> tmp, v +<span id="L151" class="LineNr">151 </span> <a href='3.mu.html#L322'>vec3-add-to</a> dest, tmp +<span id="L152" class="LineNr">152 </span> <span class="muS1Comment"># . r.dir -= origin</span> +<span id="L153" class="LineNr">153 </span> <a href='3.mu.html#L345'>vec3-subtract-from</a> dest, origin +<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> <span class="muComment"># pixel-color = ray-color(r)</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> c-storage: <a href='3.mu.html#L198'>rgb</a> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> address c-storage +<span id="L158" class="LineNr">158 </span> <span class="Delimiter">{</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L173'>ray</a>) <span class="SpecialChar"><-</span> address r-storage +<span id="L160" class="LineNr">160 </span> <a href='3.mu.html#L9'>ray-color</a> r, c +<span id="L161" class="LineNr">161 </span> <span class="muComment"># write color</span> +<span id="L162" class="LineNr">162 </span> <a href='3.mu.html#L206'>print-rgb</a> <span class="Constant">0</span>, c +<span id="L163" class="LineNr">163 </span> <span class="Delimiter">}</span> +<span id="L164" class="LineNr">164 </span> i <span class="SpecialChar"><-</span> increment +<span id="L165" class="LineNr">165 </span> <span class="PreProc">loop</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">}</span> +<span id="L167" class="LineNr">167 </span> j <span class="SpecialChar"><-</span> decrement +<span id="L168" class="LineNr">168 </span> <span class="PreProc">loop</span> +<span id="L169" class="LineNr">169 </span> <span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</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">type</span> <a href='3.mu.html#L173'>ray</a> <span class="Delimiter">{</span> +<span id="L174" class="LineNr">174 </span> orig: <a href='3.mu.html#L302'>vec3</a> <span class="muComment"># point</span> +<span id="L175" class="LineNr">175 </span> dir: <a href='3.mu.html#L302'>vec3</a> +<span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> +<span id="L177" class="LineNr">177 </span> +<span id="L178" class="LineNr">178 </span><span class="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="L179" class="LineNr">179 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> +<span id="L180" class="LineNr">180 </span><span class="muComment"># so.</span> +<span id="L181" class="LineNr">181 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L181'>initialize-ray</a></span> _self: (addr <a href='3.mu.html#L173'>ray</a>), o: (addr <a href='3.mu.html#L302'>vec3</a>), d: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L173'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L184" class="LineNr">184 </span> copy-object o, dest +<span id="L185" class="LineNr">185 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L186" class="LineNr">186 </span> <a href='3.mu.html#L397'>vec3-unit</a> d, dest +<span id="L187" class="LineNr">187 </span><span class="Delimiter">}</span> +<span id="L188" class="LineNr">188 </span> +<span id="L189" class="LineNr">189 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L189'>ray-at</a></span> _self: (addr <a href='3.mu.html#L173'>ray</a>), t: float, out: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L173'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L192" class="LineNr">192 </span> copy-object src, out +<span id="L193" class="LineNr">193 </span> <a href='3.mu.html#L359'>vec3-scale-up</a> out, t +<span id="L194" class="LineNr">194 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L195" class="LineNr">195 </span> <a href='3.mu.html#L322'>vec3-add-to</a> out, src +<span id="L196" class="LineNr">196 </span><span class="Delimiter">}</span> +<span id="L197" class="LineNr">197 </span> +<span id="L198" class="LineNr">198 </span><span class="PreProc">type</span> <a href='3.mu.html#L198'>rgb</a> <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> +<span id="L200" class="LineNr">200 </span> r: float +<span id="L201" class="LineNr">201 </span> g: float +<span id="L202" class="LineNr">202 </span> b: float +<span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="muComment"># print translating to [0, 256)</span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L206'>print-rgb</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _c +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> xn: float +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> address xn +<span id="L210" class="LineNr">210 </span> <a href='../../409float.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="L211" class="LineNr">211 </span> <span class="muComment"># print 255.999 * c->r</span> +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L214" class="LineNr">214 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> truncate result +<span id="L216" class="LineNr">216 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L217" class="LineNr">217 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L218" class="LineNr">218 </span> <span class="muComment"># print 255.999 * c->g</span> +<span id="L219" class="LineNr">219 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L220" class="LineNr">220 </span> result <span class="SpecialChar"><-</span> copy xn +<span id="L221" class="LineNr">221 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L222" class="LineNr">222 </span> result-int <span class="SpecialChar"><-</span> truncate result +<span id="L223" class="LineNr">223 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L224" class="LineNr">224 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L225" class="LineNr">225 </span> <span class="muComment"># print 255.999 * c->b</span> +<span id="L226" class="LineNr">226 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L227" class="LineNr">227 </span> result <span class="SpecialChar"><-</span> copy xn +<span id="L228" class="LineNr">228 </span> result <span class="SpecialChar"><-</span> multiply *src-addr +<span id="L229" class="LineNr">229 </span> result-int <span class="SpecialChar"><-</span> truncate result +<span id="L230" class="LineNr">230 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int +<span id="L231" class="LineNr">231 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> +<span id="L233" class="LineNr">233 </span> +<span id="L234" class="LineNr">234 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L234'>print-rgb-raw</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L236" class="LineNr">236 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, r +<span id="L238" class="LineNr">238 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L239" class="LineNr">239 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L240" class="LineNr">240 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, g +<span id="L241" class="LineNr">241 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L242" class="LineNr">242 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L243" class="LineNr">243 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, b +<span id="L244" class="LineNr">244 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L245" class="LineNr">245 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> +<span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> +<span id="L247" class="LineNr">247 </span> +<span id="L248" class="LineNr">248 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L248'>rgb-white</a></span> _c: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="Delimiter">{</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _c +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert one +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L253" class="LineNr">253 </span> copy-to *dest, one-f +<span id="L254" class="LineNr">254 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L255" class="LineNr">255 </span> copy-to *dest, one-f +<span id="L256" class="LineNr">256 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L257" class="LineNr">257 </span> copy-to *dest, one-f +<span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> +<span id="L259" class="LineNr">259 </span> +<span id="L260" class="LineNr">260 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L260'>rgb-add-to</a></span> _c1: (addr <a href='3.mu.html#L198'>rgb</a>), _c2: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> c2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _c2 +<span id="L263" class="LineNr">263 </span> <span class="muComment"># c1.r += c2.r</span> +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, r +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 +<span id="L267" class="LineNr">267 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L268" class="LineNr">268 </span> copy-to *arg1, result +<span id="L269" class="LineNr">269 </span> <span class="muComment"># c1.g += c2.g</span> +<span id="L270" class="LineNr">270 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g +<span id="L271" class="LineNr">271 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, g +<span id="L272" class="LineNr">272 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L273" class="LineNr">273 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L274" class="LineNr">274 </span> copy-to *arg1, result +<span id="L275" class="LineNr">275 </span> <span class="muComment"># c1.b += c2.b</span> +<span id="L276" class="LineNr">276 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b +<span id="L277" class="LineNr">277 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, b +<span id="L278" class="LineNr">278 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L279" class="LineNr">279 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L280" class="LineNr">280 </span> copy-to *arg1, result +<span id="L281" class="LineNr">281 </span><span class="Delimiter">}</span> +<span id="L282" class="LineNr">282 </span> +<span id="L283" class="LineNr">283 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L283'>rgb-scale-up</a></span> _c1: (addr <a href='3.mu.html#L198'>rgb</a>), f: float <span class="Delimiter">{</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L198'>rgb</a>) <span class="SpecialChar"><-</span> copy _c1 +<span id="L285" class="LineNr">285 </span> <span class="muComment"># c1.r *= f</span> +<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r +<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L288" class="LineNr">288 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L289" class="LineNr">289 </span> copy-to *dest, result +<span id="L290" class="LineNr">290 </span> <span class="muComment"># c1.g *= f</span> +<span id="L291" class="LineNr">291 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g +<span id="L292" class="LineNr">292 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L293" class="LineNr">293 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L294" class="LineNr">294 </span> copy-to *dest, result +<span id="L295" class="LineNr">295 </span> <span class="muComment"># c1.b *= f</span> +<span id="L296" class="LineNr">296 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b +<span id="L297" class="LineNr">297 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L298" class="LineNr">298 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L299" class="LineNr">299 </span> copy-to *dest, 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">type</span> <a href='3.mu.html#L302'>vec3</a> <span class="Delimiter">{</span> +<span id="L303" class="LineNr">303 </span> x: float +<span id="L304" class="LineNr">304 </span> y: float +<span id="L305" class="LineNr">305 </span> z: float +<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='3.mu.html#L308'>print-vec3</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L310" class="LineNr">310 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x +<span id="L312" class="LineNr">312 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L313" class="LineNr">313 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L314" class="LineNr">314 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y +<span id="L315" class="LineNr">315 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L316" class="LineNr">316 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L317" class="LineNr">317 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z +<span id="L318" class="LineNr">318 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L319" class="LineNr">319 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</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='3.mu.html#L322'>vec3-add-to</a></span> _v1: (addr <a href='3.mu.html#L302'>vec3</a>), _v2: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v2 +<span id="L325" class="LineNr">325 </span> <span class="muComment"># v1.x += v2.x</span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, x +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 +<span id="L329" class="LineNr">329 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L330" class="LineNr">330 </span> copy-to *arg1, result +<span id="L331" class="LineNr">331 </span> <span class="muComment"># v1.y += v2.y</span> +<span id="L332" class="LineNr">332 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L333" class="LineNr">333 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, y +<span id="L334" class="LineNr">334 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L335" class="LineNr">335 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L336" class="LineNr">336 </span> copy-to *arg1, result +<span id="L337" class="LineNr">337 </span> <span class="muComment"># v1.z += v2.z</span> +<span id="L338" class="LineNr">338 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L339" class="LineNr">339 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, z +<span id="L340" class="LineNr">340 </span> result <span class="SpecialChar"><-</span> copy *arg1 +<span id="L341" class="LineNr">341 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L342" class="LineNr">342 </span> copy-to *arg1, result +<span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> +<span id="L344" class="LineNr">344 </span> +<span id="L345" class="LineNr">345 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L345'>vec3-subtract-from</a></span> v1: (addr <a href='3.mu.html#L302'>vec3</a>), v2: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> tmp-storage: <a href='3.mu.html#L302'>vec3</a> +<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> address tmp-storage +<span id="L348" class="LineNr">348 </span> copy-object v2, tmp +<span id="L349" class="LineNr">349 </span> <a href='3.mu.html#L353'>vec3-negate</a> tmp +<span id="L350" class="LineNr">350 </span> <a href='3.mu.html#L322'>vec3-add-to</a> v1, tmp +<span id="L351" class="LineNr">351 </span><span class="Delimiter">}</span> +<span id="L352" class="LineNr">352 </span> +<span id="L353" class="LineNr">353 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L353'>vec3-negate</a></span> v: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert negative-one +<span id="L356" class="LineNr">356 </span> <a href='3.mu.html#L359'>vec3-scale-up</a> v, negative-one-f +<span id="L357" class="LineNr">357 </span><span class="Delimiter">}</span> +<span id="L358" class="LineNr">358 </span> +<span id="L359" class="LineNr">359 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L359'>vec3-scale-up</a></span> _v1: (addr <a href='3.mu.html#L302'>vec3</a>), f: float <span class="Delimiter">{</span> +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L361" class="LineNr">361 </span> <span class="muComment"># v1.x *= f</span> +<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L364" class="LineNr">364 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L365" class="LineNr">365 </span> copy-to *dest, result +<span id="L366" class="LineNr">366 </span> <span class="muComment"># v1.y *= f</span> +<span id="L367" class="LineNr">367 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L368" class="LineNr">368 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L369" class="LineNr">369 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L370" class="LineNr">370 </span> copy-to *dest, result +<span id="L371" class="LineNr">371 </span> <span class="muComment"># v1.z *= f</span> +<span id="L372" class="LineNr">372 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L373" class="LineNr">373 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L374" class="LineNr">374 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L375" class="LineNr">375 </span> copy-to *dest, result +<span id="L376" class="LineNr">376 </span><span class="Delimiter">}</span> +<span id="L377" class="LineNr">377 </span> +<span id="L378" class="LineNr">378 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L378'>vec3-scale-down</a></span> _v1: (addr <a href='3.mu.html#L302'>vec3</a>), f: float <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v1 +<span id="L380" class="LineNr">380 </span> <span class="muComment"># v1.x /= f</span> +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest +<span id="L383" class="LineNr">383 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L384" class="LineNr">384 </span> copy-to *dest, result +<span id="L385" class="LineNr">385 </span> <span class="muComment"># v1.y /= f</span> +<span id="L386" class="LineNr">386 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y +<span id="L387" class="LineNr">387 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L388" class="LineNr">388 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L389" class="LineNr">389 </span> copy-to *dest, result +<span id="L390" class="LineNr">390 </span> <span class="muComment"># v1.z /= f</span> +<span id="L391" class="LineNr">391 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z +<span id="L392" class="LineNr">392 </span> result <span class="SpecialChar"><-</span> copy *dest +<span id="L393" class="LineNr">393 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L394" class="LineNr">394 </span> copy-to *dest, result +<span id="L395" class="LineNr">395 </span><span class="Delimiter">}</span> +<span id="L396" class="LineNr">396 </span> +<span id="L397" class="LineNr">397 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L397'>vec3-unit</a></span> in: (addr <a href='3.mu.html#L302'>vec3</a>), out: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="Delimiter">{</span> +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='3.mu.html#L403'>vec3-length</a> in +<span id="L399" class="LineNr">399 </span> copy-object in, out +<span id="L400" class="LineNr">400 </span> <a href='3.mu.html#L378'>vec3-scale-down</a> out, len +<span id="L401" class="LineNr">401 </span><span class="Delimiter">}</span> +<span id="L402" class="LineNr">402 </span> +<span id="L403" class="LineNr">403 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L403'>vec3-length</a></span> v: (addr <a href='3.mu.html#L302'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L404" class="LineNr">404 </span> result <span class="SpecialChar"><-</span> <a href='3.mu.html#L408'>vec3-length-squared</a> v +<span id="L405" class="LineNr">405 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L406" class="LineNr">406 </span><span class="Delimiter">}</span> +<span id="L407" class="LineNr">407 </span> +<span id="L408" class="LineNr">408 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L408'>vec3-length-squared</a></span> _v: (addr <a href='3.mu.html#L302'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='3.mu.html#L302'>vec3</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L410" class="LineNr">410 </span> <span class="muComment"># result = v.x * v.x</span> +<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x +<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy *src +<span id="L413" class="LineNr">413 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L414" class="LineNr">414 </span> result <span class="SpecialChar"><-</span> copy tmp +<span id="L415" class="LineNr">415 </span> <span class="muComment"># result += v.y * v.y</span> +<span id="L416" class="LineNr">416 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y +<span id="L417" class="LineNr">417 </span> tmp <span class="SpecialChar"><-</span> copy *src +<span id="L418" class="LineNr">418 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L419" class="LineNr">419 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L420" class="LineNr">420 </span> <span class="muComment"># result += v.z * v.z</span> +<span id="L421" class="LineNr">421 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z +<span id="L422" class="LineNr">422 </span> tmp <span class="SpecialChar"><-</span> copy *src +<span id="L423" class="LineNr">423 </span> tmp <span class="SpecialChar"><-</span> multiply tmp +<span id="L424" class="LineNr">424 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/raytracing/color.mu.html b/html/apps/raytracing/color.mu.html new file mode 100644 index 00000000..a434c204 --- /dev/null +++ b/html/apps/raytracing/color.mu.html @@ -0,0 +1,93 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/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: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/color.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/color.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='color.mu.html#L1'>rgb</a> <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"><a href='color.mu.html#L9'>print-rgb</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr <a href='color.mu.html#L1'>rgb</a>) <span class="Delimiter">{</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr <a href='color.mu.html#L1'>rgb</a>) <span class="SpecialChar"><-</span> copy _c +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert n +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> tmp-a/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L15" class="LineNr">15 </span> tmp <span class="SpecialChar"><-</span> multiply *tmp-a +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert tmp +<span id="L17" class="LineNr">17 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, tmp2 +<span id="L18" class="LineNr">18 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L19" class="LineNr">19 </span> tmp-a <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L20" class="LineNr">20 </span> tmp <span class="SpecialChar"><-</span> copy xn +<span id="L21" class="LineNr">21 </span> tmp <span class="SpecialChar"><-</span> multiply *tmp-a +<span id="L22" class="LineNr">22 </span> tmp2 <span class="SpecialChar"><-</span> convert tmp +<span id="L23" class="LineNr">23 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, tmp2 +<span id="L24" class="LineNr">24 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L25" class="LineNr">25 </span> tmp-a <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L26" class="LineNr">26 </span> tmp <span class="SpecialChar"><-</span> copy xn +<span id="L27" class="LineNr">27 </span> tmp <span class="SpecialChar"><-</span> multiply *tmp-a +<span id="L28" class="LineNr">28 </span> tmp2 <span class="SpecialChar"><-</span> convert tmp +<span id="L29" class="LineNr">29 </span> <a href='../../405screen.mu.html#L481'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, tmp2 +<span id="L30" class="LineNr">30 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L31" class="LineNr">31 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/raytracing/ray.mu.html b/html/apps/raytracing/ray.mu.html new file mode 100644 index 00000000..fc4ef2f2 --- /dev/null +++ b/html/apps/raytracing/ray.mu.html @@ -0,0 +1,86 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/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: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/ray.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/ray.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='ray.mu.html#L1'>ray</a> <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"><a href='ray.mu.html#L9'>initialize-ray</a></span> _self: (addr <a href='ray.mu.html#L1'>ray</a>), o: (addr vec3), d: (addr vec3) <span class="Delimiter">{</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ray.mu.html#L1'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L12" class="LineNr">12 </span> copy-object o, dest +<span id="L13" class="LineNr">13 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="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"><a href='ray.mu.html#L17'>ray-at</a></span> _self: (addr <a href='ray.mu.html#L1'>ray</a>), t: float, out: (addr vec3) <span class="Delimiter">{</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ray.mu.html#L1'>ray</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L20" class="LineNr">20 </span> copy-object src, out +<span id="L21" class="LineNr">21 </span> vec3-mul-by out, t +<span id="L22" class="LineNr">22 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="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/apps/raytracing/vec.mu.html b/html/apps/raytracing/vec.mu.html new file mode 100644 index 00000000..04795182 --- /dev/null +++ b/html/apps/raytracing/vec.mu.html @@ -0,0 +1,110 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/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: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/raytracing/vec.mu'>https://github.com/akkartik/mu/blob/master/apps/raytracing/vec.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='vec.mu.html#L1'>vec3</a> <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"><a href='vec.mu.html#L7'>vec3-negate</a></span> _v: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span><span class="Delimiter">}</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L10'>vec3-add-to</a></span> _v1: (addr <a href='vec.mu.html#L1'>vec3</a>), _v2: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</span> +<span id="L11" class="LineNr">11 </span><span class="Delimiter">}</span> +<span id="L12" class="LineNr">12 </span> +<span id="L13" class="LineNr">13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L13'>vec3-mul-by</a></span> _v1: (addr <a href='vec.mu.html#L1'>vec3</a>), _v2: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</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='vec.mu.html#L16'>vec3-scale-up</a></span> _v: (addr <a href='vec.mu.html#L1'>vec3</a>), f: float <span class="Delimiter">{</span> +<span id="L17" class="LineNr">17 </span><span class="Delimiter">}</span> +<span id="L18" class="LineNr">18 </span> +<span id="L19" class="LineNr">19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L19'>vec3-scale-down</a></span> _v: (addr <a href='vec.mu.html#L1'>vec3</a>), f: float <span class="Delimiter">{</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='vec.mu.html#L22'>vec3-length</a></span> v: (addr <a href='vec.mu.html#L1'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> +<span id="L24" class="LineNr">24 </span> +<span id="L25" class="LineNr">25 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L25'>vec3-length-squared</a></span> _v: (addr <a href='vec.mu.html#L1'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L26" class="LineNr">26 </span><span class="Delimiter">}</span> +<span id="L27" class="LineNr">27 </span> +<span id="L28" class="LineNr">28 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L28'>vec3-dot</a></span> _v1: (addr <a href='vec.mu.html#L1'>vec3</a>), _v2: (addr <a href='vec.mu.html#L1'>vec3</a>)<span class="PreProc"> -> </span>result/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<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='vec.mu.html#L31'>vec3-cross</a></span> _v1: (addr <a href='vec.mu.html#L1'>vec3</a>), _v2: (addr <a href='vec.mu.html#L1'>vec3</a>), out: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</span> +<span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr">33 </span> +<span id="L34" class="LineNr">34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L34'>vec3-unit</a></span> in: (addr <a href='vec.mu.html#L1'>vec3</a>), out: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</span> +<span id="L35" class="LineNr">35 </span><span class="Delimiter">}</span> +<span id="L36" class="LineNr">36 </span> +<span id="L37" class="LineNr">37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L37'>print-vec3</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="Delimiter">{</span> +<span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='vec.mu.html#L1'>vec3</a>) <span class="SpecialChar"><-</span> copy _v +<span id="L39" class="LineNr">39 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x +<span id="L41" class="LineNr">41 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L42" class="LineNr">42 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L43" class="LineNr">43 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y +<span id="L44" class="LineNr">44 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L45" class="LineNr">45 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L46" class="LineNr">46 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z +<span id="L47" class="LineNr">47 </span> <a href='../../408print-float.mu.html#L92'>print-float</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L48" class="LineNr">48 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> +<span id="L49" class="LineNr">49 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/rpn.mu.html b/html/apps/rpn.mu.html new file mode 100644 index 00000000..116abaa3 --- /dev/null +++ b/html/apps/rpn.mu.html @@ -0,0 +1,211 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/rpn.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/rpn.mu'>https://github.com/akkartik/mu/blob/master/apps/rpn.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Integer arithmetic using postfix notation</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Limitations:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># No division yet.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># To build:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate_mu apps/rpn.mu</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Example session:</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ ./a.elf</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># press ctrl-c or ctrl-d to exit</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># > 1</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># 1</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># > 1 1 +</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># 2</span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment"># > 1 2 3 + +</span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># 6</span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># > 1 2 3 * +</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># 7</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># > 1 2 + 3 *</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment"># 9</span> +<span id="L22" class="LineNr"> 22 </span><span class="muComment"># > 1 3 4 * +</span> +<span id="L23" class="LineNr"> 23 </span><span class="muComment"># 13</span> +<span id="L24" class="LineNr"> 24 </span><span class="muComment"># > ^D</span> +<span id="L25" class="LineNr"> 25 </span><span class="muComment"># $</span> +<span id="L26" class="LineNr"> 26 </span><span class="muComment">#</span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># Error handling is non-existent. This is just a prototype.</span> +<span id="L28" class="LineNr"> 28 </span> +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L29'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> in-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-storage +<span id="L32" class="LineNr"> 32 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> +<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># read-eval-print loop</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># print prompt</span> +<span id="L36" class="LineNr"> 36 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"> "</span> +<span id="L37" class="LineNr"> 37 </span> <span class="muComment"># read line</span> +<span id="L38" class="LineNr"> 38 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> in +<span id="L39" class="LineNr"> 39 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> in +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in +<span id="L41" class="LineNr"> 41 </span> compare done?, <span class="Constant">0</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-!=</span> +<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># parse and eval</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L59'>simplify</a> in +<span id="L45" class="LineNr"> 45 </span> <span class="muComment"># print</span> +<span id="L46" class="LineNr"> 46 </span> <a href='../405screen.mu.html#L481'>print-int32-decimal</a> <span class="Constant">0</span>, out +<span id="L47" class="LineNr"> 47 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L48" class="LineNr"> 48 </span> <span class="muComment">#</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">loop</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> +<span id="L51" class="LineNr"> 51 </span> exit-status <span class="SpecialChar"><-</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> +<span id="L54" class="LineNr"> 54 </span><span class="PreProc">type</span> <a href='rpn.mu.html#L54'>int-stack</a> <span class="Delimiter">{</span> +<span id="L55" class="LineNr"> 55 </span> data: (handle array int) +<span id="L56" class="LineNr"> 56 </span> <a href='../203stack.subx.html#L338'>top</a>: int +<span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> +<span id="L58" class="LineNr"> 58 </span> +<span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L59'>simplify</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> word-storage: slice +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> word/<span class="Constant">ecx</span>: (addr slice) <span class="SpecialChar"><-</span> address word-storage +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> stack-storage: <a href='rpn.mu.html#L54'>int-stack</a> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> address stack-storage +<span id="L64" class="LineNr"> 64 </span> <a href='rpn.mu.html#L112'>initialize-int-stack</a> stack, <span class="Constant">0x10</span> +<span id="L65" class="LineNr"> 65 </span> $simplify:word-loop: <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <a href='../127next-word.subx.html#L10'>next-word</a> in, word +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> word +<span id="L68" class="LineNr"> 68 </span> compare done?, <span class="Constant">0</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-!=</span> +<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># if word is an operator, perform it</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">{</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> +<span id="L73" class="LineNr"> 73 </span> compare is-add?, <span class="Constant">0</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-=</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L78" class="LineNr"> 78 </span> a <span class="SpecialChar"><-</span> add b +<span id="L79" class="LineNr"> 79 </span> <a href='rpn.mu.html#L120'>push-int-stack</a> stack, a +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> +<span id="L84" class="LineNr"> 84 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">break-if-=</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L89" class="LineNr"> 89 </span> a <span class="SpecialChar"><-</span> subtract b +<span id="L90" class="LineNr"> 90 </span> <a href='rpn.mu.html#L120'>push-int-stack</a> stack, a +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> +<span id="L95" class="LineNr"> 95 </span> compare is-mul?, <span class="Constant">0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-=</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<span id="L100" class="LineNr">100 </span> a <span class="SpecialChar"><-</span> multiply b +<span id="L101" class="LineNr">101 </span> <a href='rpn.mu.html#L120'>push-int-stack</a> stack, a +<span id="L102" class="LineNr">102 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> +<span id="L104" class="LineNr">104 </span> <span class="muComment"># otherwise it's an int</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../311decimal-int.subx.html#L3'>parse-decimal-int-from-slice</a> word +<span id="L106" class="LineNr">106 </span> <a href='rpn.mu.html#L120'>push-int-stack</a> stack, n +<span id="L107" class="LineNr">107 </span> <span class="PreProc">loop</span> +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> result <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L132'>pop-int-stack</a> stack +<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='rpn.mu.html#L112'>initialize-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L115" class="LineNr">115 </span> populate d, n +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L117" class="LineNr">117 </span> copy-to *top, <span class="Constant">0</span> +<span id="L118" class="LineNr">118 </span><span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> +<span id="L120" class="LineNr">120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L120'>push-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>), _val: int <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L128" class="LineNr">128 </span> copy-to *dest-addr, val +<span id="L129" class="LineNr">129 </span> add-to *top-addr, <span class="Constant">1</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='rpn.mu.html#L132'>pop-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>)<span class="PreProc"> -> </span>val/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span>$pop-int-stack:body: <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> +<span id="L137" class="LineNr">137 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-></span> +<span id="L139" class="LineNr">139 </span> val <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">break</span> $pop-int-stack:body +<span id="L141" class="LineNr">141 </span> <span class="Delimiter">}</span> +<span id="L142" class="LineNr">142 </span> subtract-from *top-addr, <span class="Constant">1</span> +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L147" class="LineNr">147 </span> val <span class="SpecialChar"><-</span> copy *result-addr +<span id="L148" class="LineNr">148 </span><span class="Delimiter">}</span> +<span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/sigils.subx.html b/html/apps/sigils.subx.html index 06f9672a..7c12ac69 100644 --- a/html/apps/sigils.subx.html +++ b/html/apps/sigils.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } @@ -103,4133 +103,4135 @@ if ('onhashchange' in window) { <span id="L41" class="LineNr"> 41 </span><span class="subxComment">#</span> <span id="L42" class="LineNr"> 42 </span><span class="subxComment"># No metadata allowed inside '*(...)'.</span> <span id="L43" class="LineNr"> 43 </span><span class="subxComment"># Whitespace inside '*(...)' is ok. But not immediately after the '*' or '%'.</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxComment">#</span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># The code generated is sub-optimal:</span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># - displacements are always disp32, even when disp8 will do</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># - *(...esp...) always uses SIB arguments even when redundant</span> -<span id="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span>== code -<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L51" class="LineNr"> 51 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L52" class="LineNr"> 52 </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="L53" class="LineNr"> 53 </span> -<span id="L54" class="LineNr"> 54 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> -<span id="L55" class="LineNr"> 55 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L56" class="LineNr"> 56 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L57" class="LineNr"> 57 </span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># initialize heap</span> -<span id="L59" class="LineNr"> 59 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L61" class="LineNr"> 61 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L62" class="LineNr"> 62 </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="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> -<span id="L64" class="LineNr"> 64 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</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 id="L68" class="LineNr"> 68 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> -<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> -<span id="L70" class="LineNr"> 70 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> -<span id="L71" class="LineNr"> 71 </span> 7e/jump-if-<= $subx-sigils-main:interactive/disp8 -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> -<span id="L74" class="LineNr"> 74 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="Constant">"test"</span>/imm32 -<span id="L76" class="LineNr"> 76 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 -<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> -<span id="L82" class="LineNr"> 82 </span> 3d/compare-eax-and 0/imm32/false -<span id="L83" class="LineNr"> 83 </span> 74/jump-if-= $subx-sigils-main:interactive/disp8 -<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># run-tests()</span> -<span id="L85" class="LineNr"> 85 </span> e8/call run-tests/disp32 -<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L87" class="LineNr"> 87 </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="L88" class="LineNr"> 88 </span> eb/jump $subx-sigils-main:end/disp8 -<span id="L89" class="LineNr"> 89 </span><span class="Constant">$subx-sigils-main:interactive</span>: -<span id="L90" class="LineNr"> 90 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># subx-sigils(Stdin, Stdout)</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L93" class="LineNr"> 93 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L94" class="LineNr"> 94 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> -<span id="L96" class="LineNr"> 96 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L100" class="LineNr"> 100 </span> bb/copy-to-ebx 0/imm32 -<span id="L101" class="LineNr"> 101 </span><span class="Constant">$subx-sigils-main:end</span>: -<span id="L102" class="LineNr"> 102 </span> e8/call syscall_exit/disp32 -<span id="L103" class="LineNr"> 103 </span> -<span id="L104" class="LineNr"> 104 </span><span class="subxComment"># error messages considered:</span> -<span id="L105" class="LineNr"> 105 </span><span class="subxComment"># *x + 34 -> error: base+disp addressing must be within '()'</span> -<span id="L106" class="LineNr"> 106 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> -<span id="L107" class="LineNr"> 107 </span> <span class="subxComment"># pseudocode:</span> -<span id="L108" class="LineNr"> 108 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L109" class="LineNr"> 109 </span> <span class="subxComment"># while true</span> -<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># while true</span> -<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># var word-slice = next-word-or-expression(line)</span> -<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># break</span> -<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># continue</span> -<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '%') # direct mode</span> -<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> -<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '*') # indirect mode</span> -<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># if disp32-mode?(word-slice)</span> -<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># emit-indirect-disp32(out, word-slice)</span> -<span id="L124" class="LineNr"> 124 </span> <span class="subxComment"># else</span> -<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># base, index, scale, disp = parse-effective-address(word-slice)</span> -<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> -<span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '+')</span> -<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># abort("'+' only permitted within '*(...)'")</span> -<span id="L129" class="LineNr"> 129 </span> <span class="subxComment"># else</span> -<span id="L130" class="LineNr"> 130 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># write(out, " ")</span> -<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># write(out, "\n")</span> -<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># flush(out)</span> -<span id="L134" class="LineNr"> 134 </span> <span class="subxComment">#</span> -<span id="L135" class="LineNr"> 135 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L136" class="LineNr"> 136 </span> 55/push-ebp -<span id="L137" class="LineNr"> 137 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L138" class="LineNr"> 138 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L139" class="LineNr"> 139 </span> 50/push-eax -<span id="L140" class="LineNr"> 140 </span> 51/push-ecx -<span id="L141" class="LineNr"> 141 </span> 52/push-edx -<span id="L142" class="LineNr"> 142 </span> 53/push-ebx -<span id="L143" class="LineNr"> 143 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L144" class="LineNr"> 144 </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="L145" class="LineNr"> 145 </span> 68/push 0x200/imm32/length -<span id="L146" class="LineNr"> 146 </span> 68/push 0/imm32/read -<span id="L147" class="LineNr"> 147 </span> 68/push 0/imm32/write -<span id="L148" class="LineNr"> 148 </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="L149" class="LineNr"> 149 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L150" class="LineNr"> 150 </span> 68/push 0/imm32/end -<span id="L151" class="LineNr"> 151 </span> 68/push 0/imm32/start -<span id="L152" class="LineNr"> 152 </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="L153" class="LineNr"> 153 </span><span class="Constant">$subx-sigils:line-loop</span>: -<span id="L154" class="LineNr"> 154 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L155" class="LineNr"> 155 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L156" class="LineNr"> 156 </span> 51/push-ecx -<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L158" class="LineNr"> 158 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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="subxComment"># read-line-buffered(in, line)</span> -<span id="L162" class="LineNr"> 162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr"> 163 </span> 51/push-ecx -<span id="L164" class="LineNr"> 164 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L165" class="LineNr"> 165 </span> <span class="subxS2Comment"># . . call</span> -<span id="L166" class="LineNr"> 166 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 -<span id="L167" class="LineNr"> 167 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L168" class="LineNr"> 168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L169" class="LineNr"> 169 </span><span class="Constant">$subx-sigils:check0</span>: -<span id="L170" class="LineNr"> 170 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L171" class="LineNr"> 171 </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="L172" class="LineNr"> 172 </span> 0f 84/jump-if-= $subx-sigils:<span class="Constant">break</span>/disp32 -<span id="L173" class="LineNr"> 173 </span><span class="Constant">$subx-sigils:word-loop</span>: -<span id="L174" class="LineNr"> 174 </span> <span class="subxComment"># next-word-or-expression(line, word-slice)</span> -<span id="L175" class="LineNr"> 175 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L176" class="LineNr"> 176 </span> 52/push-edx -<span id="L177" class="LineNr"> 177 </span> 51/push-ecx -<span id="L178" class="LineNr"> 178 </span> <span class="subxS2Comment"># . . call</span> -<span id="L179" class="LineNr"> 179 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</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="Constant">$subx-sigils:check1</span>: -<span id="L183" class="LineNr"> 183 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L184" class="LineNr"> 184 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</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> <span class="subxS2Comment"># . . call</span> -<span id="L188" class="LineNr"> 188 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L190" class="LineNr"> 190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L191" class="LineNr"> 191 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L192" class="LineNr"> 192 </span> 3d/compare-eax-and 0/imm32/false -<span id="L193" class="LineNr"> 193 </span> 0f 85/jump-if-!= $subx-sigils:next-line/disp32 -<span id="L194" class="LineNr"> 194 </span><span class="Constant">$subx-sigils:check-for-comment</span>: -<span id="L195" class="LineNr"> 195 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span> -<span id="L196" class="LineNr"> 196 </span> <span class="subxS1Comment"># . start/ebx = word-slice->start</span> -<span id="L197" class="LineNr"> 197 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> -<span id="L198" class="LineNr"> 198 </span> <span class="subxS1Comment"># . c/eax = *start</span> -<span id="L199" class="LineNr"> 199 </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="L200" class="LineNr"> 200 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> -<span id="L201" class="LineNr"> 201 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L202" class="LineNr"> 202 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L203" class="LineNr"> 203 </span> 74/jump-if-= $subx-sigils:word-loop/disp8 -<span id="L204" class="LineNr"> 204 </span><span class="Constant">$subx-sigils:check-for-direct-mode</span>: -<span id="L205" class="LineNr"> 205 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "%")) goto next check</span> -<span id="L206" class="LineNr"> 206 </span> 3d/compare-eax-and 0x25/imm32/percent -<span id="L207" class="LineNr"> 207 </span> 75/jump-if-!= $subx-sigils:check-for-indirect-mode/disp8 -<span id="L208" class="LineNr"> 208 </span><span class="Constant">$subx-sigils:direct-mode</span>: -<span id="L209" class="Folded"> 209 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L249" class="LineNr"> 249 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> -<span id="L250" class="LineNr"> 250 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L251" class="LineNr"> 251 </span> 52/push-edx -<span id="L252" class="LineNr"> 252 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L253" class="LineNr"> 253 </span> <span class="subxS2Comment"># . . call</span> -<span id="L254" class="LineNr"> 254 </span> e8/call <a href='sigils.subx.html#L1360'>emit-direct-mode</a>/disp32 -<span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L256" class="LineNr"> 256 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L257" class="LineNr"> 257 </span> <span class="subxComment"># continue</span> -<span id="L258" class="LineNr"> 258 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L259" class="LineNr"> 259 </span><span class="Constant">$subx-sigils:check-for-indirect-mode</span>: -<span id="L260" class="LineNr"> 260 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "*")) goto next check</span> -<span id="L261" class="LineNr"> 261 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L262" class="LineNr"> 262 </span> 75/jump-if-!= $subx-sigils:check-for-invalid-addition/disp8 -<span id="L263" class="LineNr"> 263 </span> <span class="subxComment"># if (!disp32-mode?(word-slice)) goto indirect mode</span> -<span id="L264" class="LineNr"> 264 </span> <span class="subxS1Comment"># . eax = disp32-mode?(word-slice)</span> -<span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L266" class="LineNr"> 266 </span> 52/push-edx -<span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . call</span> -<span id="L268" class="LineNr"> 268 </span> e8/call <a href='sigils.subx.html#L3877'>disp32-mode?</a>/disp32 -<span id="L269" class="LineNr"> 269 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L270" class="LineNr"> 270 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L271" class="LineNr"> 271 </span> <span class="subxS1Comment"># . if (eax == false) goto indirect mode</span> -<span id="L272" class="LineNr"> 272 </span> 3d/compare-eax-and 0/imm32/false -<span id="L273" class="LineNr"> 273 </span> 74/jump-if-= $subx-sigils:indirect-mode/disp8 -<span id="L274" class="LineNr"> 274 </span><span class="Constant">$subx-sigils:disp32-mode</span>: -<span id="L275" class="LineNr"> 275 </span> <span class="subxComment"># emit-indirect-mode(out, word-slice)</span> -<span id="L276" class="LineNr"> 276 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L277" class="LineNr"> 277 </span> 52/push-edx -<span id="L278" class="LineNr"> 278 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L279" class="LineNr"> 279 </span> <span class="subxS2Comment"># . . call</span> -<span id="L280" class="LineNr"> 280 </span> e8/call <a href='sigils.subx.html#L3936'>emit-indirect-disp32</a>/disp32 -<span id="L281" class="LineNr"> 281 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L282" class="LineNr"> 282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L283" class="LineNr"> 283 </span> <span class="subxComment"># continue</span> -<span id="L284" class="LineNr"> 284 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L285" class="LineNr"> 285 </span><span class="Constant">$subx-sigils:indirect-mode</span>: -<span id="L286" class="LineNr"> 286 </span> <span class="subxComment"># spill registers</span> -<span id="L287" class="LineNr"> 287 </span> 50/push-eax -<span id="L288" class="LineNr"> 288 </span> 51/push-ecx -<span id="L289" class="LineNr"> 289 </span> 52/push-edx -<span id="L290" class="LineNr"> 290 </span> 53/push-ebx -<span id="L291" class="LineNr"> 291 </span> <span class="subxComment"># base/eax, index/ecx, scale/edx, disp/ebx = parse-effective-address(word-slice)</span> -<span id="L292" class="LineNr"> 292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L293" class="LineNr"> 293 </span> 52/push-edx -<span id="L294" class="LineNr"> 294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L295" class="LineNr"> 295 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L296" class="LineNr"> 296 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L297" class="LineNr"> 297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L298" class="LineNr"> 298 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> -<span id="L299" class="LineNr"> 299 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L300" class="LineNr"> 300 </span> 53/push-ebx -<span id="L301" class="LineNr"> 301 </span> 52/push-edx -<span id="L302" class="LineNr"> 302 </span> 51/push-ecx -<span id="L303" class="LineNr"> 303 </span> 50/push-eax -<span id="L304" class="LineNr"> 304 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L305" class="LineNr"> 305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L306" class="LineNr"> 306 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</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> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># restore registers</span> -<span id="L310" class="LineNr"> 310 </span> 5b/pop-to-ebx -<span id="L311" class="LineNr"> 311 </span> 5a/pop-to-edx -<span id="L312" class="LineNr"> 312 </span> 59/pop-to-ecx -<span id="L313" class="LineNr"> 313 </span> 58/pop-to-eax -<span id="L314" class="LineNr"> 314 </span> <span class="subxComment"># continue</span> -<span id="L315" class="LineNr"> 315 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L316" class="LineNr"> 316 </span><span class="Constant">$subx-sigils:check-for-invalid-addition</span>: -<span id="L317" class="LineNr"> 317 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "+")) goto error1</span> -<span id="L318" class="LineNr"> 318 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L319" class="LineNr"> 319 </span> 74/jump-if-= $subx-sigils:error1/disp8 -<span id="L320" class="LineNr"> 320 </span><span class="Constant">$subx-sigils:check-for-invalid-left-shift</span>: -<span id="L321" class="LineNr"> 321 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "<")) goto error1</span> -<span id="L322" class="LineNr"> 322 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L323" class="LineNr"> 323 </span> 74/jump-if-= $subx-sigils:error1/disp8 -<span id="L324" class="LineNr"> 324 </span><span class="Constant">$subx-sigils:regular-word</span>: -<span id="L325" class="LineNr"> 325 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L326" class="LineNr"> 326 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L327" class="LineNr"> 327 </span> 52/push-edx -<span id="L328" class="LineNr"> 328 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L329" class="LineNr"> 329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L330" class="LineNr"> 330 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L331" class="LineNr"> 331 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L332" class="LineNr"> 332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L333" class="LineNr"> 333 </span> <span class="subxComment"># fall through</span> -<span id="L334" class="LineNr"> 334 </span><span class="Constant">$subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a></span>: -<span id="L335" class="LineNr"> 335 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L336" class="LineNr"> 336 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L337" class="LineNr"> 337 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L338" class="LineNr"> 338 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L339" class="LineNr"> 339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L340" class="LineNr"> 340 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L343" class="LineNr"> 343 </span> <span class="subxComment"># loop</span> -<span id="L344" class="LineNr"> 344 </span> e9/jump $subx-sigils:word-loop/disp32 -<span id="L345" class="LineNr"> 345 </span><span class="Constant">$subx-sigils:next-line</span>: -<span id="L346" class="LineNr"> 346 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L347" class="LineNr"> 347 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L348" class="LineNr"> 348 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L349" class="LineNr"> 349 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L350" class="LineNr"> 350 </span> <span class="subxS2Comment"># . . call</span> -<span id="L351" class="LineNr"> 351 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L354" class="LineNr"> 354 </span> <span class="subxComment"># loop</span> -<span id="L355" class="LineNr"> 355 </span> e9/jump $subx-sigils:line-loop/disp32 -<span id="L356" class="LineNr"> 356 </span><span class="Constant">$subx-sigils:break</span>: -<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># flush(out)</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> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . call</span> -<span id="L361" class="LineNr"> 361 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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="Constant">$subx-sigils:end</span>: -<span id="L365" class="LineNr"> 365 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L366" class="LineNr"> 366 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> -<span id="L367" class="LineNr"> 367 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L368" class="LineNr"> 368 </span> 5b/pop-to-ebx -<span id="L369" class="LineNr"> 369 </span> 5a/pop-to-edx -<span id="L370" class="LineNr"> 370 </span> 59/pop-to-ecx -<span id="L371" class="LineNr"> 371 </span> 58/pop-to-eax -<span id="L372" class="LineNr"> 372 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L373" class="LineNr"> 373 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L374" class="LineNr"> 374 </span> 5d/pop-to-ebp -<span id="L375" class="LineNr"> 375 </span> c3/return -<span id="L376" class="LineNr"> 376 </span> -<span id="L377" class="LineNr"> 377 </span><span class="Constant">$subx-sigils:error1</span>: -<span id="L378" class="LineNr"> 378 </span> <span class="subxComment"># print(stderr, "error: '" eax "' only permitted within '*(...)' in '" line "'")</span> -<span id="L379" class="LineNr"> 379 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '")</span> -<span id="L380" class="LineNr"> 380 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L381" class="LineNr"> 381 </span> 68/push <span class="Constant">"error: '"</span>/imm32 -<span id="L382" class="LineNr"> 382 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L383" class="LineNr"> 383 </span> <span class="subxS2Comment"># . . call</span> -<span id="L384" class="LineNr"> 384 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L385" class="LineNr"> 385 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L386" class="LineNr"> 386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L387" class="LineNr"> 387 </span> <span class="subxS1Comment"># . write-byte-buffered(Stderr, eax)</span> -<span id="L388" class="LineNr"> 388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr"> 389 </span> 50/push-eax -<span id="L390" class="LineNr"> 390 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . call</span> -<span id="L392" class="LineNr"> 392 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L394" class="LineNr"> 394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L395" class="LineNr"> 395 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "' only permitted within '*(...)' in '")</span> -<span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L397" class="LineNr"> 397 </span> 68/push <span class="Constant">"' only permitted within '*(...)' in '"</span>/imm32 -<span id="L398" class="LineNr"> 398 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L399" class="LineNr"> 399 </span> <span class="subxS2Comment"># . . call</span> -<span id="L400" class="LineNr"> 400 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L402" class="LineNr"> 402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L403" class="LineNr"> 403 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L405" class="LineNr"> 405 </span> 51/push-ecx -<span id="L406" class="LineNr"> 406 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . call</span> -<span id="L408" class="LineNr"> 408 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L410" class="LineNr"> 410 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L411" class="LineNr"> 411 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L414" class="LineNr"> 414 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . call</span> -<span id="L416" class="LineNr"> 416 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L418" class="LineNr"> 418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L419" class="LineNr"> 419 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L421" class="LineNr"> 421 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L422" class="LineNr"> 422 </span> <span class="subxS2Comment"># . . call</span> -<span id="L423" class="LineNr"> 423 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L425" class="LineNr"> 425 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L426" class="LineNr"> 426 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L427" class="LineNr"> 427 </span> bb/copy-to-ebx 1/imm32 -<span id="L428" class="LineNr"> 428 </span> e8/call syscall_exit/disp32 -<span id="L429" class="LineNr"> 429 </span> <span class="subxComment"># never gets here</span> -<span id="L430" class="LineNr"> 430 </span> -<span id="L431" class="LineNr"> 431 </span><span class="subxTest">test-subx-sigils-passes-most-words-through</span>: -<span id="L432" class="LineNr"> 432 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L433" class="LineNr"> 433 </span> 55/push-ebp -<span id="L434" class="LineNr"> 434 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L435" class="LineNr"> 435 </span> <span class="subxComment"># setup</span> -<span id="L436" class="LineNr"> 436 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L438" class="LineNr"> 438 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L439" class="LineNr"> 439 </span> <span class="subxS2Comment"># . . call</span> -<span id="L440" class="LineNr"> 440 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L441" class="LineNr"> 441 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L442" class="LineNr"> 442 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L443" class="LineNr"> 443 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L445" class="LineNr"> 445 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L446" class="LineNr"> 446 </span> <span class="subxS2Comment"># . . call</span> -<span id="L447" class="LineNr"> 447 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L449" class="LineNr"> 449 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L450" class="LineNr"> 450 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L451" class="LineNr"> 451 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L452" class="LineNr"> 452 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . call</span> -<span id="L454" class="LineNr"> 454 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L456" class="LineNr"> 456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L457" class="LineNr"> 457 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L458" class="LineNr"> 458 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L459" class="LineNr"> 459 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L460" class="LineNr"> 460 </span> <span class="subxS2Comment"># . . call</span> -<span id="L461" class="LineNr"> 461 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L463" class="LineNr"> 463 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L464" class="LineNr"> 464 </span> <span class="subxComment"># initialize input</span> -<span id="L465" class="LineNr"> 465 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1")</span> -<span id="L466" class="LineNr"> 466 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L467" class="LineNr"> 467 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 -<span id="L468" class="LineNr"> 468 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L469" class="LineNr"> 469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L470" class="LineNr"> 470 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L471" class="LineNr"> 471 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L472" class="LineNr"> 472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L473" class="LineNr"> 473 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L474" class="LineNr"> 474 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L475" class="LineNr"> 475 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L476" class="LineNr"> 476 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L477" class="LineNr"> 477 </span> <span class="subxS2Comment"># . . call</span> -<span id="L478" class="LineNr"> 478 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L479" class="LineNr"> 479 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L480" class="LineNr"> 480 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L481" class="LineNr"> 481 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L482" class="LineNr"> 482 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L484" class="LineNr"> 484 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . call</span> -<span id="L486" class="LineNr"> 486 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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="Folded"> 489 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L515" class="LineNr"> 515 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1 \n", msg)</span> -<span id="L516" class="LineNr"> 516 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L517" class="LineNr"> 517 </span> 68/push <span class="Constant">"F - test-subx-sigils-passes-most-words-through"</span>/imm32 -<span id="L518" class="LineNr"> 518 </span> 68/push <span class="Constant">"== abcd 0x1 \n"</span>/imm32 -<span id="L519" class="LineNr"> 519 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr"> 521 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L523" class="LineNr"> 523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L524" class="LineNr"> 524 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L525" class="LineNr"> 525 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L526" class="LineNr"> 526 </span> 5d/pop-to-ebp -<span id="L527" class="LineNr"> 527 </span> c3/return -<span id="L528" class="LineNr"> 528 </span> -<span id="L529" class="LineNr"> 529 </span><span class="subxTest">test-subx-sigils-direct-mode</span>: -<span id="L530" class="LineNr"> 530 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L531" class="LineNr"> 531 </span> 55/push-ebp -<span id="L532" class="LineNr"> 532 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L533" class="LineNr"> 533 </span> <span class="subxComment"># setup</span> -<span id="L534" class="LineNr"> 534 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L536" class="LineNr"> 536 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . call</span> -<span id="L538" class="LineNr"> 538 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L539" class="LineNr"> 539 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L540" class="LineNr"> 540 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L541" class="LineNr"> 541 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L542" class="LineNr"> 542 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L543" class="LineNr"> 543 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L544" class="LineNr"> 544 </span> <span class="subxS2Comment"># . . call</span> -<span id="L545" class="LineNr"> 545 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L547" class="LineNr"> 547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L548" class="LineNr"> 548 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L549" class="LineNr"> 549 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L550" class="LineNr"> 550 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L551" class="LineNr"> 551 </span> <span class="subxS2Comment"># . . call</span> -<span id="L552" class="LineNr"> 552 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L554" class="LineNr"> 554 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L555" class="LineNr"> 555 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L557" class="LineNr"> 557 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . call</span> -<span id="L559" class="LineNr"> 559 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L561" class="LineNr"> 561 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L562" class="LineNr"> 562 </span> <span class="subxComment"># initialize input</span> -<span id="L563" class="LineNr"> 563 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx")</span> -<span id="L564" class="LineNr"> 564 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L565" class="LineNr"> 565 </span> 68/push <span class="Constant">"ab %ecx"</span>/imm32 -<span id="L566" class="LineNr"> 566 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L567" class="LineNr"> 567 </span> <span class="subxS2Comment"># . . call</span> -<span id="L568" class="LineNr"> 568 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L569" class="LineNr"> 569 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L570" class="LineNr"> 570 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L571" class="LineNr"> 571 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L573" class="LineNr"> 573 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L574" class="LineNr"> 574 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L575" class="LineNr"> 575 </span> <span class="subxS2Comment"># . . call</span> -<span id="L576" class="LineNr"> 576 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L578" class="LineNr"> 578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L579" class="LineNr"> 579 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L580" class="LineNr"> 580 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L582" class="LineNr"> 582 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . call</span> -<span id="L584" class="LineNr"> 584 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L585" class="LineNr"> 585 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L586" class="LineNr"> 586 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L587" class="Folded"> 587 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L613" class="LineNr"> 613 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> -<span id="L614" class="LineNr"> 614 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L615" class="LineNr"> 615 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode"</span>/imm32 -<span id="L616" class="LineNr"> 616 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 -<span id="L617" class="LineNr"> 617 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L619" class="LineNr"> 619 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L621" class="LineNr"> 621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L622" class="LineNr"> 622 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L623" class="LineNr"> 623 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L624" class="LineNr"> 624 </span> 5d/pop-to-ebp -<span id="L625" class="LineNr"> 625 </span> c3/return -<span id="L626" class="LineNr"> 626 </span> -<span id="L627" class="LineNr"> 627 </span><span class="subxTest">test-subx-sigils-direct-mode-with-metadata</span>: -<span id="L628" class="LineNr"> 628 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L629" class="LineNr"> 629 </span> 55/push-ebp -<span id="L630" class="LineNr"> 630 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L631" class="LineNr"> 631 </span> <span class="subxComment"># setup</span> -<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L634" class="LineNr"> 634 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L636" class="LineNr"> 636 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L638" class="LineNr"> 638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L639" class="LineNr"> 639 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L641" class="LineNr"> 641 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . call</span> -<span id="L643" class="LineNr"> 643 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L645" class="LineNr"> 645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L646" class="LineNr"> 646 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L647" class="LineNr"> 647 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L648" class="LineNr"> 648 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L650" class="LineNr"> 650 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L652" class="LineNr"> 652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L653" class="LineNr"> 653 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L654" class="LineNr"> 654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L655" class="LineNr"> 655 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . call</span> -<span id="L657" class="LineNr"> 657 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L659" class="LineNr"> 659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L660" class="LineNr"> 660 </span> <span class="subxComment"># initialize input</span> -<span id="L661" class="LineNr"> 661 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx/foo")</span> -<span id="L662" class="LineNr"> 662 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L663" class="LineNr"> 663 </span> 68/push <span class="Constant">"ab %ecx/foo"</span>/imm32 -<span id="L664" class="LineNr"> 664 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L665" class="LineNr"> 665 </span> <span class="subxS2Comment"># . . call</span> -<span id="L666" class="LineNr"> 666 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L668" class="LineNr"> 668 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L669" class="LineNr"> 669 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L671" class="LineNr"> 671 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L672" class="LineNr"> 672 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L673" class="LineNr"> 673 </span> <span class="subxS2Comment"># . . call</span> -<span id="L674" class="LineNr"> 674 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</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="LineNr"> 677 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L678" class="LineNr"> 678 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L680" class="LineNr"> 680 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L681" class="LineNr"> 681 </span> <span class="subxS2Comment"># . . call</span> -<span id="L682" class="LineNr"> 682 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L684" class="LineNr"> 684 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L685" class="LineNr"> 685 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</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">"F - test-subx-sigils-direct-mode-with-metadata"</span>/imm32 -<span id="L688" class="LineNr"> 688 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 -<span id="L689" class="LineNr"> 689 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . call</span> -<span id="L691" class="LineNr"> 691 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L693" class="LineNr"> 693 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L694" class="LineNr"> 694 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L695" class="LineNr"> 695 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L696" class="LineNr"> 696 </span> 5d/pop-to-ebp -<span id="L697" class="LineNr"> 697 </span> c3/return -<span id="L698" class="LineNr"> 698 </span> -<span id="L699" class="LineNr"> 699 </span><span class="subxTest">test-subx-sigils-register-indirect-mode</span>: -<span id="L700" class="LineNr"> 700 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L701" class="LineNr"> 701 </span> 55/push-ebp -<span id="L702" class="LineNr"> 702 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L703" class="LineNr"> 703 </span> <span class="subxComment"># setup</span> -<span id="L704" class="LineNr"> 704 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L705" class="LineNr"> 705 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L706" class="LineNr"> 706 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . call</span> -<span id="L708" class="LineNr"> 708 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L710" class="LineNr"> 710 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L711" class="LineNr"> 711 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L713" class="LineNr"> 713 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . call</span> -<span id="L715" class="LineNr"> 715 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L717" class="LineNr"> 717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L718" class="LineNr"> 718 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L719" class="LineNr"> 719 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L720" class="LineNr"> 720 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L721" class="LineNr"> 721 </span> <span class="subxS2Comment"># . . call</span> -<span id="L722" class="LineNr"> 722 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L725" class="LineNr"> 725 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L726" class="LineNr"> 726 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L727" class="LineNr"> 727 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L728" class="LineNr"> 728 </span> <span class="subxS2Comment"># . . call</span> -<span id="L729" class="LineNr"> 729 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L731" class="LineNr"> 731 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L732" class="LineNr"> 732 </span> <span class="subxComment"># initialize input</span> -<span id="L733" class="LineNr"> 733 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx")</span> -<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L735" class="LineNr"> 735 </span> 68/push <span class="Constant">"ab *ecx"</span>/imm32 -<span id="L736" class="LineNr"> 736 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L737" class="LineNr"> 737 </span> <span class="subxS2Comment"># . . call</span> -<span id="L738" class="LineNr"> 738 </span> e8/call <a href='../108write.subx.html#L24'>write</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="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L743" class="LineNr"> 743 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L744" class="LineNr"> 744 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L745" class="LineNr"> 745 </span> <span class="subxS2Comment"># . . call</span> -<span id="L746" class="LineNr"> 746 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</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"># check that the line just passed through</span> -<span id="L750" class="LineNr"> 750 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L751" class="LineNr"> 751 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L752" class="LineNr"> 752 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L753" class="LineNr"> 753 </span> <span class="subxS2Comment"># . . call</span> -<span id="L754" class="LineNr"> 754 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L757" class="Folded"> 757 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L783" class="LineNr"> 783 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> -<span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L785" class="LineNr"> 785 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode"</span>/imm32 -<span id="L786" class="LineNr"> 786 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L787" class="LineNr"> 787 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . call</span> -<span id="L789" class="LineNr"> 789 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L791" class="LineNr"> 791 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L792" class="LineNr"> 792 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L793" class="LineNr"> 793 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L794" class="LineNr"> 794 </span> 5d/pop-to-ebp -<span id="L795" class="LineNr"> 795 </span> c3/return -<span id="L796" class="LineNr"> 796 </span> -<span id="L797" class="LineNr"> 797 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-metadata</span>: -<span id="L798" class="LineNr"> 798 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L799" class="LineNr"> 799 </span> 55/push-ebp -<span id="L800" class="LineNr"> 800 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># setup</span> -<span id="L802" class="LineNr"> 802 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L803" class="LineNr"> 803 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L804" class="LineNr"> 804 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L805" class="LineNr"> 805 </span> <span class="subxS2Comment"># . . call</span> -<span id="L806" class="LineNr"> 806 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L808" class="LineNr"> 808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L809" class="LineNr"> 809 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L810" class="LineNr"> 810 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L811" class="LineNr"> 811 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . call</span> -<span id="L813" class="LineNr"> 813 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L816" class="LineNr"> 816 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L818" class="LineNr"> 818 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . call</span> -<span id="L820" class="LineNr"> 820 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L822" class="LineNr"> 822 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L823" class="LineNr"> 823 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L824" class="LineNr"> 824 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L825" class="LineNr"> 825 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L826" class="LineNr"> 826 </span> <span class="subxS2Comment"># . . call</span> -<span id="L827" class="LineNr"> 827 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L829" class="LineNr"> 829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L830" class="LineNr"> 830 </span> <span class="subxComment"># initialize input</span> -<span id="L831" class="LineNr"> 831 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx/foo")</span> -<span id="L832" class="LineNr"> 832 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L833" class="LineNr"> 833 </span> 68/push <span class="Constant">"ab *ecx/foo"</span>/imm32 -<span id="L834" class="LineNr"> 834 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L835" class="LineNr"> 835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L836" class="LineNr"> 836 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L837" class="LineNr"> 837 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L838" class="LineNr"> 838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L839" class="LineNr"> 839 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L840" class="LineNr"> 840 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L841" class="LineNr"> 841 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L842" class="LineNr"> 842 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L843" class="LineNr"> 843 </span> <span class="subxS2Comment"># . . call</span> -<span id="L844" class="LineNr"> 844 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L845" class="LineNr"> 845 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L846" class="LineNr"> 846 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L847" class="LineNr"> 847 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L848" class="LineNr"> 848 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L850" class="LineNr"> 850 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L851" class="LineNr"> 851 </span> <span class="subxS2Comment"># . . call</span> -<span id="L852" class="LineNr"> 852 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L854" class="LineNr"> 854 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L855" class="LineNr"> 855 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> -<span id="L856" class="LineNr"> 856 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L857" class="LineNr"> 857 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-metadata"</span>/imm32 -<span id="L858" class="LineNr"> 858 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L859" class="LineNr"> 859 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . call</span> -<span id="L861" class="LineNr"> 861 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L863" class="LineNr"> 863 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L864" class="LineNr"> 864 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L865" class="LineNr"> 865 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L866" class="LineNr"> 866 </span> 5d/pop-to-ebp -<span id="L867" class="LineNr"> 867 </span> c3/return -<span id="L868" class="LineNr"> 868 </span> -<span id="L869" class="LineNr"> 869 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-without-displacement</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="subxComment"># setup</span> -<span id="L874" class="LineNr"> 874 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L876" class="LineNr"> 876 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . call</span> -<span id="L878" class="LineNr"> 878 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L880" class="LineNr"> 880 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L881" class="LineNr"> 881 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L883" class="LineNr"> 883 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . call</span> -<span id="L885" class="LineNr"> 885 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L887" class="LineNr"> 887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L888" class="LineNr"> 888 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L889" class="LineNr"> 889 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L890" class="LineNr"> 890 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> -<span id="L892" class="LineNr"> 892 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L894" class="LineNr"> 894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L896" class="LineNr"> 896 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L897" class="LineNr"> 897 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . call</span> -<span id="L899" class="LineNr"> 899 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L901" class="LineNr"> 901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L902" class="LineNr"> 902 </span> <span class="subxComment"># initialize input</span> -<span id="L903" class="LineNr"> 903 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx)")</span> -<span id="L904" class="LineNr"> 904 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L905" class="LineNr"> 905 </span> 68/push <span class="Constant">"ab *(ecx)"</span>/imm32 -<span id="L906" class="LineNr"> 906 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L907" class="LineNr"> 907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L908" class="LineNr"> 908 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L909" class="LineNr"> 909 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L910" class="LineNr"> 910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L912" class="LineNr"> 912 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L913" class="LineNr"> 913 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L914" class="LineNr"> 914 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . call</span> -<span id="L916" class="LineNr"> 916 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L917" class="LineNr"> 917 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L918" class="LineNr"> 918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L920" class="LineNr"> 920 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L922" class="LineNr"> 922 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . call</span> -<span id="L924" class="LineNr"> 924 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L926" class="LineNr"> 926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L927" class="Folded"> 927 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L953" class="LineNr"> 953 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 1/rm32 \n", msg)</span> -<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L955" class="LineNr"> 955 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-without-displacement"</span>/imm32 -<span id="L956" class="LineNr"> 956 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L957" class="LineNr"> 957 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L958" class="LineNr"> 958 </span> <span class="subxS2Comment"># . . call</span> -<span id="L959" class="LineNr"> 959 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L960" class="LineNr"> 960 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L961" class="LineNr"> 961 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L962" class="LineNr"> 962 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L963" class="LineNr"> 963 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L964" class="LineNr"> 964 </span> 5d/pop-to-ebp -<span id="L965" class="LineNr"> 965 </span> c3/return -<span id="L966" class="LineNr"> 966 </span> -<span id="L967" class="LineNr"> 967 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-displacement</span>: -<span id="L968" class="LineNr"> 968 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L969" class="LineNr"> 969 </span> 55/push-ebp -<span id="L970" class="LineNr"> 970 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># setup</span> -<span id="L972" class="LineNr"> 972 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L973" class="LineNr"> 973 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L974" class="LineNr"> 974 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L975" class="LineNr"> 975 </span> <span class="subxS2Comment"># . . call</span> -<span id="L976" class="LineNr"> 976 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L978" class="LineNr"> 978 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L979" class="LineNr"> 979 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L980" class="LineNr"> 980 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L981" class="LineNr"> 981 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . call</span> -<span id="L983" class="LineNr"> 983 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L985" class="LineNr"> 985 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L987" class="LineNr"> 987 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L988" class="LineNr"> 988 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . call</span> -<span id="L990" class="LineNr"> 990 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L992" class="LineNr"> 992 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L993" class="LineNr"> 993 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L994" class="LineNr"> 994 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L995" class="LineNr"> 995 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . call</span> -<span id="L997" class="LineNr"> 997 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L999" class="LineNr"> 999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># initialize input</span> -<span id="L1001" class="LineNr">1001 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx+4)")</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1003" class="LineNr">1003 </span> 68/push <span class="Constant">"ab *(ecx+4)"</span>/imm32 -<span id="L1004" class="LineNr">1004 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1006" class="LineNr">1006 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1008" class="LineNr">1008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1010" class="LineNr">1010 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1011" class="LineNr">1011 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1012" class="LineNr">1012 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1014" class="LineNr">1014 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1016" class="LineNr">1016 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1018" class="LineNr">1018 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1020" class="LineNr">1020 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1021" class="LineNr">1021 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1022" class="LineNr">1022 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1024" class="LineNr">1024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1025" class="Folded">1025 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1051" class="LineNr">1051 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 1/rm32 4/disp32 \n", msg)</span> -<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1053" class="LineNr">1053 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-displacement"</span>/imm32 -<span id="L1054" class="LineNr">1054 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 0x00000001/rm32 0x00000004/disp32 \n"</span>/imm32 -<span id="L1055" class="LineNr">1055 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1057" class="LineNr">1057 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1059" class="LineNr">1059 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1060" class="LineNr">1060 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1061" class="LineNr">1061 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1062" class="LineNr">1062 </span> 5d/pop-to-ebp -<span id="L1063" class="LineNr">1063 </span> c3/return -<span id="L1064" class="LineNr">1064 </span> -<span id="L1065" class="LineNr">1065 </span><span class="subxComment"># boss level</span> -<span id="L1066" class="LineNr">1066 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte</span>: -<span id="L1067" class="LineNr">1067 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1068" class="LineNr">1068 </span> 55/push-ebp -<span id="L1069" class="LineNr">1069 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1070" class="LineNr">1070 </span> <span class="subxComment"># setup</span> -<span id="L1071" class="LineNr">1071 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1073" class="LineNr">1073 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1075" class="LineNr">1075 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1077" class="LineNr">1077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1078" class="LineNr">1078 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1079" class="LineNr">1079 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1080" class="LineNr">1080 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1082" class="LineNr">1082 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1084" class="LineNr">1084 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1085" class="LineNr">1085 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1086" class="LineNr">1086 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1087" class="LineNr">1087 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1089" class="LineNr">1089 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1091" class="LineNr">1091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1092" class="LineNr">1092 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1094" class="LineNr">1094 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1096" class="LineNr">1096 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1098" class="LineNr">1098 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1099" class="LineNr">1099 </span> <span class="subxComment"># initialize input</span> -<span id="L1100" class="LineNr">1100 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 + 4)")</span> -<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1102" class="LineNr">1102 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 + 4)"</span>/imm32 -<span id="L1103" class="LineNr">1103 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1104" class="LineNr">1104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1105" class="LineNr">1105 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1107" class="LineNr">1107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1108" class="LineNr">1108 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1109" class="LineNr">1109 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1110" class="LineNr">1110 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1111" class="LineNr">1111 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L1112" class="LineNr">1112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1113" class="LineNr">1113 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1115" class="LineNr">1115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1116" class="LineNr">1116 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1117" class="LineNr">1117 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1119" class="LineNr">1119 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1121" class="LineNr">1121 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1124" class="Folded">1124 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1150" class="LineNr">1150 </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="L1151" class="LineNr">1151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1152" class="LineNr">1152 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte"</span>/imm32 -<span id="L1153" class="LineNr">1153 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0x00000004/disp32 \n"</span>/imm32 -<span id="L1154" class="LineNr">1154 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1156" class="LineNr">1156 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1158" class="LineNr">1158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1159" class="LineNr">1159 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1160" class="LineNr">1160 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1161" class="LineNr">1161 </span> 5d/pop-to-ebp -<span id="L1162" class="LineNr">1162 </span> c3/return -<span id="L1163" class="LineNr">1163 </span> -<span id="L1164" class="LineNr">1164 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement</span>: -<span id="L1165" class="LineNr">1165 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1166" class="LineNr">1166 </span> 55/push-ebp -<span id="L1167" class="LineNr">1167 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># setup</span> -<span id="L1169" class="LineNr">1169 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1170" class="LineNr">1170 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1171" class="LineNr">1171 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1172" class="LineNr">1172 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1173" class="LineNr">1173 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1175" class="LineNr">1175 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1176" class="LineNr">1176 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1178" class="LineNr">1178 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1180" class="LineNr">1180 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1182" class="LineNr">1182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1185" class="LineNr">1185 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1187" class="LineNr">1187 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1189" class="LineNr">1189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1190" class="LineNr">1190 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1191" class="LineNr">1191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1192" class="LineNr">1192 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1194" class="LineNr">1194 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1196" class="LineNr">1196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1197" class="LineNr">1197 </span> <span class="subxComment"># initialize input</span> -<span id="L1198" class="LineNr">1198 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 - 4)")</span> -<span id="L1199" class="LineNr">1199 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1200" class="LineNr">1200 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 - 4)"</span>/imm32 -<span id="L1201" class="LineNr">1201 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1203" class="LineNr">1203 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1205" class="LineNr">1205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1206" class="LineNr">1206 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1207" class="LineNr">1207 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1208" class="LineNr">1208 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1209" class="LineNr">1209 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L1210" class="LineNr">1210 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1211" class="LineNr">1211 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L1212" class="LineNr">1212 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1213" class="LineNr">1213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1214" class="LineNr">1214 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1217" class="LineNr">1217 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1219" class="LineNr">1219 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1221" class="LineNr">1221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1222" class="Folded">1222 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1248" class="LineNr">1248 </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="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1250" class="LineNr">1250 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement"</span>/imm32 -<span id="L1251" class="LineNr">1251 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0xfffffffc/disp32 \n"</span>/imm32 -<span id="L1252" class="LineNr">1252 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1254" class="LineNr">1254 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1257" class="LineNr">1257 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1258" class="LineNr">1258 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1259" class="LineNr">1259 </span> 5d/pop-to-ebp -<span id="L1260" class="LineNr">1260 </span> c3/return -<span id="L1261" class="LineNr">1261 </span> -<span id="L1262" class="LineNr">1262 </span><span class="subxTest">test-subx-sigils-indirect-mode-without-register</span>: -<span id="L1263" class="LineNr">1263 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1264" class="LineNr">1264 </span> 55/push-ebp -<span id="L1265" class="LineNr">1265 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1266" class="LineNr">1266 </span> <span class="subxComment"># setup</span> -<span id="L1267" class="LineNr">1267 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1268" class="LineNr">1268 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1269" class="LineNr">1269 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1271" class="LineNr">1271 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1272" class="LineNr">1272 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1273" class="LineNr">1273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1274" class="LineNr">1274 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1276" class="LineNr">1276 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1278" class="LineNr">1278 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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="LineNr">1281 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1283" class="LineNr">1283 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1285" class="LineNr">1285 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1286" class="LineNr">1286 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1287" class="LineNr">1287 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1288" class="LineNr">1288 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1289" class="LineNr">1289 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1290" class="LineNr">1290 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1291" class="LineNr">1291 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1292" class="LineNr">1292 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1294" class="LineNr">1294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1295" class="LineNr">1295 </span> <span class="subxComment"># initialize input</span> -<span id="L1296" class="LineNr">1296 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *Foo")</span> -<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1298" class="LineNr">1298 </span> 68/push <span class="Constant">"ab *Foo"</span>/imm32 -<span id="L1299" class="LineNr">1299 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1300" class="LineNr">1300 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1301" class="LineNr">1301 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1303" class="LineNr">1303 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1304" class="LineNr">1304 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1306" class="LineNr">1306 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1307" class="LineNr">1307 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 -<span id="L1308" class="LineNr">1308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1309" class="LineNr">1309 </span> e8/call <a href='sigils.subx.html#L106'>subx-sigils</a>/disp32 -<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1311" class="LineNr">1311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1312" class="LineNr">1312 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1313" class="LineNr">1313 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1314" class="LineNr">1314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1315" class="LineNr">1315 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1317" class="LineNr">1317 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1320" class="Folded">1320 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1346" class="LineNr">1346 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n", msg)</span> -<span id="L1347" class="LineNr">1347 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1348" class="LineNr">1348 </span> 68/push <span class="Constant">"F - test-subx-sigils-indirect-mode-without-register"</span>/imm32 -<span id="L1349" class="LineNr">1349 </span> 68/push <span class="Constant">"ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n"</span>/imm32 -<span id="L1350" class="LineNr">1350 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1352" class="LineNr">1352 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1355" class="LineNr">1355 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1356" class="LineNr">1356 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1357" class="LineNr">1357 </span> 5d/pop-to-ebp -<span id="L1358" class="LineNr">1358 </span> c3/return -<span id="L1359" class="LineNr">1359 </span> -<span id="L1360" class="LineNr">1360 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> -<span id="L1361" class="LineNr">1361 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1362" class="LineNr">1362 </span> 55/push-ebp -<span id="L1363" class="LineNr">1363 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1364" class="LineNr">1364 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1365" class="LineNr">1365 </span> 50/push-eax -<span id="L1366" class="LineNr">1366 </span> <span class="subxComment"># var local-slice/eax: slice = {word-slice->start, word-slice->end}</span> -<span id="L1367" class="LineNr">1367 </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="L1368" class="LineNr">1368 </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="L1369" class="LineNr">1369 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1370" class="LineNr">1370 </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="L1371" class="LineNr">1371 </span> <span class="subxComment"># ++local-slice->start to skip '%'</span> -<span id="L1372" class="LineNr">1372 </span> <span class="subxS1Comment"># . ++(*eax)</span> -<span id="L1373" class="LineNr">1373 </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="L1374" class="Folded">1374 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1400" class="LineNr">1400 </span> 50/push-eax -<span id="L1401" class="LineNr">1401 </span> 68/push 0x2f/imm32/slash -<span id="L1402" class="LineNr">1402 </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="L1403" class="LineNr">1403 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1405" class="LineNr">1405 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1407" class="LineNr">1407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1408" class="LineNr">1408 </span> <span class="subxComment"># reg-num/eax = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L1409" class="LineNr">1409 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1410" class="LineNr">1410 </span> 68/push <span class="Constant">"Registers"</span>/imm32 -<span id="L1411" class="LineNr">1411 </span> 68/push 0xc/imm32/row-size -<span id="L1412" class="LineNr">1412 </span> 50/push-eax -<span id="L1413" class="LineNr">1413 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L1414" class="LineNr">1414 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1415" class="LineNr">1415 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1417" class="LineNr">1417 </span> 81 0/subop/add 3/mod/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="L1418" class="LineNr">1418 </span> <span class="subxComment"># write-buffered(out, "3/mod/direct ")</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="Constant">"3/mod/direct "</span>/imm32 -<span id="L1421" class="LineNr">1421 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1422" class="LineNr">1422 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1423" class="LineNr">1423 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1425" class="LineNr">1425 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1426" class="LineNr">1426 </span> <span class="subxComment"># write-int32-hex-buffered(out, *reg-num)</span> -<span id="L1427" class="LineNr">1427 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1428" class="LineNr">1428 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1429" class="LineNr">1429 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1430" class="LineNr">1430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1431" class="LineNr">1431 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1433" class="LineNr">1433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1434" class="LineNr">1434 </span> <span class="subxComment"># write-buffered(out, "/rm32")</span> -<span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1436" class="LineNr">1436 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 -<span id="L1437" class="LineNr">1437 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1438" class="LineNr">1438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1439" class="LineNr">1439 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1440" class="LineNr">1440 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1441" class="LineNr">1441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1442" class="LineNr">1442 </span><span class="Constant">$emit-direct-mode:end</span>: -<span id="L1443" class="LineNr">1443 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1444" class="LineNr">1444 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1445" class="LineNr">1445 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1446" class="LineNr">1446 </span> 58/pop-to-eax -<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1448" class="LineNr">1448 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1449" class="LineNr">1449 </span> 5d/pop-to-ebp -<span id="L1450" class="LineNr">1450 </span> c3/return -<span id="L1451" class="LineNr">1451 </span> -<span id="L1452" class="LineNr">1452 </span><span class="subxTest">test-emit-direct-mode</span>: -<span id="L1453" class="LineNr">1453 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1454" class="LineNr">1454 </span> 55/push-ebp -<span id="L1455" class="LineNr">1455 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1456" class="LineNr">1456 </span> <span class="subxComment"># setup</span> -<span id="L1457" class="LineNr">1457 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1458" class="LineNr">1458 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1459" class="LineNr">1459 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1461" class="LineNr">1461 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1463" class="LineNr">1463 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1464" class="LineNr">1464 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1465" class="LineNr">1465 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1466" class="LineNr">1466 </span> 68/push $_test-output-buffered-file->buffer/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="subxComment"># var slice/ecx = "%eax"</span> -<span id="L1472" class="LineNr">1472 </span> b8/copy-to-eax <span class="Constant">"%eax"</span>/imm32 -<span id="L1473" class="LineNr">1473 </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="L1474" class="LineNr">1474 </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="L1475" class="LineNr">1475 </span> 05/add-to-eax 4/imm32 -<span id="L1476" class="LineNr">1476 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L1477" class="LineNr">1477 </span> 51/push-ecx -<span id="L1478" class="LineNr">1478 </span> 50/push-eax -<span id="L1479" class="LineNr">1479 </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="L1480" class="LineNr">1480 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str)</span> -<span id="L1481" class="LineNr">1481 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1482" class="LineNr">1482 </span> 51/push-ecx -<span id="L1483" class="LineNr">1483 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1484" class="LineNr">1484 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1485" class="LineNr">1485 </span> e8/call <a href='sigils.subx.html#L1360'>emit-direct-mode</a>/disp32 -<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1487" class="LineNr">1487 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1488" class="LineNr">1488 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1489" class="LineNr">1489 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1490" class="LineNr">1490 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1492" class="LineNr">1492 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1494" class="LineNr">1494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1495" class="Folded">1495 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1521" class="LineNr">1521 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 0/rm32", msg)</span> -<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1523" class="LineNr">1523 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1452'>test-emit-direct-mode</a>/0"</span>/imm32 -<span id="L1524" class="LineNr">1524 </span> 68/push <span class="Constant">"3/mod/direct 0x00000000/rm32"</span>/imm32 -<span id="L1525" class="LineNr">1525 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1527" class="LineNr">1527 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1529" class="LineNr">1529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1530" class="LineNr">1530 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1531" class="LineNr">1531 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1532" class="LineNr">1532 </span> 5d/pop-to-ebp -<span id="L1533" class="LineNr">1533 </span> c3/return -<span id="L1534" class="LineNr">1534 </span> -<span id="L1535" class="LineNr">1535 </span><span class="subxTest">test-emit-direct-mode-2</span>: -<span id="L1536" class="LineNr">1536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1537" class="LineNr">1537 </span> 55/push-ebp -<span id="L1538" class="LineNr">1538 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1539" class="LineNr">1539 </span> <span class="subxComment"># setup</span> -<span id="L1540" class="LineNr">1540 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1542" class="LineNr">1542 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1544" class="LineNr">1544 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1547" class="LineNr">1547 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1548" class="LineNr">1548 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1549" class="LineNr">1549 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1550" class="LineNr">1550 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1551" class="LineNr">1551 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1553" class="LineNr">1553 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1554" class="LineNr">1554 </span> <span class="subxComment"># var slice/ecx = "%edi"</span> -<span id="L1555" class="LineNr">1555 </span> b8/copy-to-eax <span class="Constant">"%edi"</span>/imm32 -<span id="L1556" class="LineNr">1556 </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="L1557" class="LineNr">1557 </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="L1558" class="LineNr">1558 </span> 05/add-to-eax 4/imm32 -<span id="L1559" class="LineNr">1559 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L1560" class="LineNr">1560 </span> 51/push-ecx -<span id="L1561" class="LineNr">1561 </span> 50/push-eax -<span id="L1562" class="LineNr">1562 </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="L1563" class="LineNr">1563 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str/ecx)</span> -<span id="L1564" class="LineNr">1564 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1565" class="LineNr">1565 </span> 51/push-ecx -<span id="L1566" class="LineNr">1566 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1567" class="LineNr">1567 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1568" class="LineNr">1568 </span> e8/call <a href='sigils.subx.html#L1360'>emit-direct-mode</a>/disp32 -<span id="L1569" class="LineNr">1569 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1570" class="LineNr">1570 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1571" class="LineNr">1571 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1572" class="LineNr">1572 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1573" class="LineNr">1573 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1575" class="LineNr">1575 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1577" class="LineNr">1577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1578" class="Folded">1578 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1604" class="LineNr">1604 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 7/rm32", msg)</span> -<span id="L1605" class="LineNr">1605 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1606" class="LineNr">1606 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1452'>test-emit-direct-mode</a>/1"</span>/imm32 -<span id="L1607" class="LineNr">1607 </span> 68/push <span class="Constant">"3/mod/direct 0x00000007/rm32"</span>/imm32 -<span id="L1608" class="LineNr">1608 </span> 68/push <a href='../115write-byte.subx.html#L285'>_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='../109stream-equal.subx.html#L194'>check-stream-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1613" class="LineNr">1613 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1614" class="LineNr">1614 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1615" class="LineNr">1615 </span> 5d/pop-to-ebp -<span id="L1616" class="LineNr">1616 </span> c3/return -<span id="L1617" class="LineNr">1617 </span> -<span id="L1618" class="LineNr">1618 </span><span class="subxComment"># (re)compute the bounds of the next word or parenthetical expression in the line</span> -<span id="L1619" class="LineNr">1619 </span><span class="subxComment"># return empty string on reaching end of file</span> -<span id="L1620" class="LineNr">1620 </span><span class="subxComment">#</span> -<span id="L1621" class="LineNr">1621 </span><span class="subxComment"># error messages considered:</span> -<span id="L1622" class="LineNr">1622 </span><span class="subxComment"># * ... -> error: no space after '*'</span> -<span id="L1623" class="LineNr">1623 </span><span class="subxComment"># *(... -> error: *(...) expression must be all on a single line</span> -<span id="L1624" class="LineNr">1624 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> -<span id="L1625" class="LineNr">1625 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1626" class="LineNr">1626 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> -<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># return</span> -<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L1631" class="LineNr">1631 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> -<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># out.end = &line->data[line->write]</span> -<span id="L1633" class="LineNr">1633 </span> <span class="subxComment"># return</span> -<span id="L1634" class="LineNr">1634 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> -<span id="L1635" class="LineNr">1635 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># else if line->data[line->read] == '*' # expression</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> -<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># abort</span> -<span id="L1639" class="LineNr">1639 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> -<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L1641" class="LineNr">1641 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> -<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># abort</span> -<span id="L1643" class="LineNr">1643 </span> <span class="subxComment"># ++line->data[line->read] to skip ')'</span> -<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line)</span> -<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L1646" class="LineNr">1646 </span> <span class="subxComment">#</span> -<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># registers:</span> -<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># ecx: often line->read</span> -<span id="L1649" class="LineNr">1649 </span> <span class="subxComment"># eax: often line->data[line->read]</span> -<span id="L1650" class="LineNr">1650 </span> <span class="subxComment">#</span> -<span id="L1651" class="LineNr">1651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1652" class="LineNr">1652 </span> 55/push-ebp -<span id="L1653" class="LineNr">1653 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1654" class="LineNr">1654 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1655" class="LineNr">1655 </span> 50/push-eax -<span id="L1656" class="LineNr">1656 </span> 51/push-ecx -<span id="L1657" class="LineNr">1657 </span> 56/push-esi -<span id="L1658" class="LineNr">1658 </span> 57/push-edi -<span id="L1659" class="LineNr">1659 </span> <span class="subxComment"># esi = line</span> -<span id="L1660" class="LineNr">1660 </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="L1661" class="LineNr">1661 </span> <span class="subxComment"># edi = out</span> -<span id="L1662" class="LineNr">1662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L1664" class="LineNr">1664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1665" class="LineNr">1665 </span> 68/push 0x20/imm32/space -<span id="L1666" class="LineNr">1666 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1667" class="LineNr">1667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1668" class="LineNr">1668 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . discard args</span> -<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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1671" class="LineNr">1671 </span><span class="Constant">$next-word-or-expression:check0</span>: -<span id="L1672" class="LineNr">1672 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> -<span id="L1673" class="LineNr">1673 </span> <span class="subxS1Comment"># . ecx = line->read</span> -<span id="L1674" class="LineNr">1674 </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="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . if (ecx < line->write) goto next check</span> -<span id="L1676" class="LineNr">1676 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> -<span id="L1677" class="LineNr">1677 </span> 7c/jump-if-< $next-word-or-expression:check-for-comment/disp8 -<span id="L1678" class="LineNr">1678 </span> <span class="subxS1Comment"># . return out = {0, 0}</span> -<span id="L1679" class="LineNr">1679 </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="L1680" class="LineNr">1680 </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="L1681" class="LineNr">1681 </span> e9/jump $next-word-or-expression:end/disp32 -<span id="L1682" class="LineNr">1682 </span><span class="Constant">$next-word-or-expression:check-for-comment</span>: -<span id="L1683" class="LineNr">1683 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L1684" class="LineNr">1684 </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="L1685" class="LineNr">1685 </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="L1686" class="LineNr">1686 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> -<span id="L1687" class="LineNr">1687 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L1688" class="LineNr">1688 </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="L1689" class="LineNr">1689 </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="L1690" class="LineNr">1690 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> -<span id="L1691" class="LineNr">1691 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L1692" class="LineNr">1692 </span> 75/jump-if-!= $next-word-or-expression:check-for-string-literal/disp8 -<span id="L1693" class="LineNr">1693 </span><span class="Constant">$next-word-or-expression:comment</span>: -<span id="L1694" class="LineNr">1694 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> -<span id="L1695" class="LineNr">1695 </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="L1696" class="LineNr">1696 </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="L1697" class="LineNr">1697 </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="L1698" class="LineNr">1698 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> -<span id="L1699" class="LineNr">1699 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1700" class="LineNr">1700 </span> 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="L1701" class="LineNr">1701 </span> <span class="subxComment"># return</span> -<span id="L1702" class="LineNr">1702 </span> eb/jump $next-word-or-expression:end/disp8 -<span id="L1703" class="LineNr">1703 </span><span class="Constant">$next-word-or-expression:check-for-string-literal</span>: -<span id="L1704" class="LineNr">1704 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> -<span id="L1705" class="LineNr">1705 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L1706" class="LineNr">1706 </span> 75/jump-if-!= $next-word-or-expression:check-for-expression/disp8 -<span id="L1707" class="LineNr">1707 </span><span class="Constant">$next-word-or-expression:string-literal</span>: -<span id="L1708" class="LineNr">1708 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L1709" class="LineNr">1709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1710" class="LineNr">1710 </span> 56/push-esi -<span id="L1711" class="LineNr">1711 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1712" class="LineNr">1712 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1714" class="LineNr">1714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1715" class="LineNr">1715 </span> <span class="subxComment"># skip rest of word</span> -<span id="L1716" class="LineNr">1716 </span> eb/jump $next-word-or-expression:regular-word/disp8 -<span id="L1717" class="LineNr">1717 </span><span class="Constant">$next-word-or-expression:check-for-expression</span>: -<span id="L1718" class="LineNr">1718 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> -<span id="L1719" class="LineNr">1719 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L1720" class="LineNr">1720 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 -<span id="L1721" class="LineNr">1721 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> -<span id="L1722" class="LineNr">1722 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xd/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12+1) to AL</span> -<span id="L1723" class="LineNr">1723 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L1724" class="LineNr">1724 </span> 74/jump-if-= $next-word-or-expression:error1/disp8 -<span id="L1725" class="LineNr">1725 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular word</span> -<span id="L1726" class="LineNr">1726 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L1727" class="LineNr">1727 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 -<span id="L1728" class="LineNr">1728 </span><span class="Constant">$next-word-or-expression:paren</span>: -<span id="L1729" class="LineNr">1729 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1731" class="LineNr">1731 </span> 56/push-esi -<span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1733" class="LineNr">1733 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1735" class="LineNr">1735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1736" class="LineNr">1736 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> -<span id="L1737" class="LineNr">1737 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L1738" class="LineNr">1738 </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="L1739" class="LineNr">1739 </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="L1740" class="LineNr">1740 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> -<span id="L1741" class="LineNr">1741 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L1742" class="LineNr">1742 </span> 75/jump-if-!= $next-word-or-expression:error2/disp8 -<span id="L1743" class="LineNr">1743 </span> <span class="subxComment"># skip ')'</span> -<span id="L1744" class="LineNr">1744 </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="L1745" class="LineNr">1745 </span> <span class="subxComment"># fall through</span> -<span id="L1746" class="LineNr">1746 </span><span class="Constant">$next-word-or-expression:regular-word</span>: -<span id="L1747" class="LineNr">1747 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> -<span id="L1748" class="LineNr">1748 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1749" class="LineNr">1749 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1750" class="LineNr">1750 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1751" class="LineNr">1751 </span> e8/call <a href='../124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1753" class="LineNr">1753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1754" class="LineNr">1754 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L1755" class="LineNr">1755 </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="L1756" class="LineNr">1756 </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="L1757" class="LineNr">1757 </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="L1758" class="LineNr">1758 </span><span class="Constant">$next-word-or-expression:end</span>: -<span id="L1759" class="LineNr">1759 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1760" class="LineNr">1760 </span> 5f/pop-to-edi -<span id="L1761" class="LineNr">1761 </span> 5e/pop-to-esi -<span id="L1762" class="LineNr">1762 </span> 59/pop-to-ecx -<span id="L1763" class="LineNr">1763 </span> 58/pop-to-eax -<span id="L1764" class="LineNr">1764 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1765" class="LineNr">1765 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1766" class="LineNr">1766 </span> 5d/pop-to-ebp -<span id="L1767" class="LineNr">1767 </span> c3/return -<span id="L1768" class="LineNr">1768 </span> -<span id="L1769" class="LineNr">1769 </span><span class="Constant">$next-word-or-expression:error1</span>: -<span id="L1770" class="LineNr">1770 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> -<span id="L1771" class="LineNr">1771 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> -<span id="L1772" class="LineNr">1772 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1773" class="LineNr">1773 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 -<span id="L1774" class="LineNr">1774 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1775" class="LineNr">1775 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1776" class="LineNr">1776 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . discard args</span> -<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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1779" class="LineNr">1779 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1781" class="LineNr">1781 </span> 56/push-esi -<span id="L1782" class="LineNr">1782 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1783" class="LineNr">1783 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1784" class="LineNr">1784 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1785" class="LineNr">1785 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1786" class="LineNr">1786 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1787" class="LineNr">1787 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1788" class="LineNr">1788 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1789" class="LineNr">1789 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1790" class="LineNr">1790 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1791" class="LineNr">1791 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1792" class="LineNr">1792 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1793" class="LineNr">1793 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1794" class="LineNr">1794 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1795" class="LineNr">1795 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1796" class="LineNr">1796 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1797" class="LineNr">1797 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1798" class="LineNr">1798 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1799" class="LineNr">1799 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1801" class="LineNr">1801 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1802" class="LineNr">1802 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1803" class="LineNr">1803 </span> bb/copy-to-ebx 1/imm32 -<span id="L1804" class="LineNr">1804 </span> e8/call syscall_exit/disp32 -<span id="L1805" class="LineNr">1805 </span> <span class="subxComment"># never gets here</span> -<span id="L1806" class="LineNr">1806 </span> -<span id="L1807" class="LineNr">1807 </span><span class="Constant">$next-word-or-expression:error2</span>: -<span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> -<span id="L1809" class="LineNr">1809 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> -<span id="L1810" class="LineNr">1810 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1811" class="LineNr">1811 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 -<span id="L1812" class="LineNr">1812 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1814" class="LineNr">1814 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1817" class="LineNr">1817 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1818" class="LineNr">1818 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1819" class="LineNr">1819 </span> 56/push-esi -<span id="L1820" class="LineNr">1820 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1822" class="LineNr">1822 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1824" class="LineNr">1824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1825" class="LineNr">1825 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1826" class="LineNr">1826 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1827" class="LineNr">1827 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1828" class="LineNr">1828 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1829" class="LineNr">1829 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1830" class="LineNr">1830 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1832" class="LineNr">1832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1833" class="LineNr">1833 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1834" class="LineNr">1834 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1835" class="LineNr">1835 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1837" class="LineNr">1837 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1840" class="LineNr">1840 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1841" class="LineNr">1841 </span> bb/copy-to-ebx 1/imm32 -<span id="L1842" class="LineNr">1842 </span> e8/call syscall_exit/disp32 -<span id="L1843" class="LineNr">1843 </span> <span class="subxComment"># never gets here</span> -<span id="L1844" class="LineNr">1844 </span> -<span id="L1845" class="LineNr">1845 </span><span class="subxTest">test-next-word-or-expression</span>: -<span id="L1846" class="LineNr">1846 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1847" class="LineNr">1847 </span> 55/push-ebp -<span id="L1848" class="LineNr">1848 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1849" class="LineNr">1849 </span> <span class="subxComment"># setup</span> -<span id="L1850" class="LineNr">1850 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1851" class="LineNr">1851 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1852" class="LineNr">1852 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1853" class="LineNr">1853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1854" class="LineNr">1854 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1855" class="LineNr">1855 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1856" class="LineNr">1856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1857" class="LineNr">1857 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1858" class="LineNr">1858 </span> 68/push 0/imm32/end -<span id="L1859" class="LineNr">1859 </span> 68/push 0/imm32/start -<span id="L1860" class="LineNr">1860 </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="L1861" class="LineNr">1861 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> -<span id="L1862" class="LineNr">1862 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1863" class="LineNr">1863 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L1864" class="LineNr">1864 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1865" class="LineNr">1865 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1866" class="LineNr">1866 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1867" class="LineNr">1867 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1868" class="LineNr">1868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1869" class="LineNr">1869 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L1870" class="LineNr">1870 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1871" class="LineNr">1871 </span> 51/push-ecx -<span id="L1872" class="LineNr">1872 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1873" class="LineNr">1873 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1874" class="LineNr">1874 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</a>/disp32 -<span id="L1875" class="LineNr">1875 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1876" class="LineNr">1876 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1877" class="LineNr">1877 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> -<span id="L1878" class="LineNr">1878 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1879" class="LineNr">1879 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1845'>test-next-word-or-expression</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1880" class="LineNr">1880 </span> 68/push 4/imm32 -<span id="L1881" class="LineNr">1881 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1882" class="LineNr">1882 </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="L1883" class="LineNr">1883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1884" class="LineNr">1884 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1886" class="LineNr">1886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1887" class="LineNr">1887 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1888" class="LineNr">1888 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1889" class="LineNr">1889 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1890" class="LineNr">1890 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1845'>test-next-word-or-expression</a>: start"</span>/imm32 -<span id="L1891" class="LineNr">1891 </span> 68/push 0xe/imm32 -<span id="L1892" class="LineNr">1892 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1893" class="LineNr">1893 </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="L1894" class="LineNr">1894 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1895" class="LineNr">1895 </span> 50/push-eax -<span id="L1896" class="LineNr">1896 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1897" class="LineNr">1897 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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(slice->end - _test-input-stream->data, 4, msg)</span> -<span id="L1901" class="LineNr">1901 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, 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='sigils.subx.html#L1845'>test-next-word-or-expression</a>: end"</span>/imm32 -<span id="L1904" class="LineNr">1904 </span> 68/push 0x10/imm32 -<span id="L1905" class="LineNr">1905 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1906" class="LineNr">1906 </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="L1907" class="LineNr">1907 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1908" class="LineNr">1908 </span> 50/push-eax -<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1910" class="LineNr">1910 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1911" class="LineNr">1911 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1912" class="LineNr">1912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1913" class="LineNr">1913 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1914" class="LineNr">1914 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1915" class="LineNr">1915 </span> 5d/pop-to-ebp -<span id="L1916" class="LineNr">1916 </span> c3/return -<span id="L1917" class="LineNr">1917 </span> -<span id="L1918" class="LineNr">1918 </span><span class="subxTest">test-next-word-or-expression-returns-whole-comment</span>: -<span id="L1919" class="LineNr">1919 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1920" class="LineNr">1920 </span> 55/push-ebp -<span id="L1921" class="LineNr">1921 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1922" class="LineNr">1922 </span> <span class="subxComment"># setup</span> -<span id="L1923" class="LineNr">1923 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1924" class="LineNr">1924 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1925" class="LineNr">1925 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1926" class="LineNr">1926 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1927" class="LineNr">1927 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1929" class="LineNr">1929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1930" class="LineNr">1930 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1931" class="LineNr">1931 </span> 68/push 0/imm32/end -<span id="L1932" class="LineNr">1932 </span> 68/push 0/imm32/start -<span id="L1933" class="LineNr">1933 </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="L1934" class="LineNr">1934 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> -<span id="L1935" class="LineNr">1935 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1936" class="LineNr">1936 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L1937" class="LineNr">1937 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1938" class="LineNr">1938 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1939" class="LineNr">1939 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1940" class="LineNr">1940 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1941" class="LineNr">1941 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1942" class="LineNr">1942 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L1943" class="LineNr">1943 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1944" class="LineNr">1944 </span> 51/push-ecx -<span id="L1945" class="LineNr">1945 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-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='sigils.subx.html#L1624'>next-word-or-expression</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1950" class="LineNr">1950 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, 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='sigils.subx.html#L1918'>test-next-word-or-expression-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1953" class="LineNr">1953 </span> 68/push 5/imm32 -<span id="L1954" class="LineNr">1954 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1955" class="LineNr">1955 </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="L1956" class="LineNr">1956 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1957" class="LineNr">1957 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1958" class="LineNr">1958 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1959" class="LineNr">1959 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1960" class="LineNr">1960 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1961" class="LineNr">1961 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1963" class="LineNr">1963 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1918'>test-next-word-or-expression-returns-whole-comment</a>: start"</span>/imm32 -<span id="L1964" class="LineNr">1964 </span> 68/push 0xe/imm32 -<span id="L1965" class="LineNr">1965 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1966" class="LineNr">1966 </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="L1967" class="LineNr">1967 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1968" class="LineNr">1968 </span> 50/push-eax -<span id="L1969" class="LineNr">1969 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1970" class="LineNr">1970 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1971" class="LineNr">1971 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1972" class="LineNr">1972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1973" class="LineNr">1973 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> -<span id="L1974" class="LineNr">1974 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> -<span id="L1975" class="LineNr">1975 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1976" class="LineNr">1976 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1918'>test-next-word-or-expression-returns-whole-comment</a>: end"</span>/imm32 -<span id="L1977" class="LineNr">1977 </span> 68/push 0x11/imm32 -<span id="L1978" class="LineNr">1978 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1979" class="LineNr">1979 </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="L1980" class="LineNr">1980 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1981" class="LineNr">1981 </span> 50/push-eax -<span id="L1982" class="LineNr">1982 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1983" class="LineNr">1983 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1984" class="LineNr">1984 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1985" class="LineNr">1985 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1986" class="LineNr">1986 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1987" class="LineNr">1987 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<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-next-word-or-expression-returns-empty-slice-on-eof</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/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1995" class="LineNr">1995 </span> <span class="subxComment"># setup</span> -<span id="L1996" class="LineNr">1996 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1997" class="LineNr">1997 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1998" class="LineNr">1998 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2000" class="LineNr">2000 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2002" class="LineNr">2002 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2003" class="LineNr">2003 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2004" class="LineNr">2004 </span> 68/push 0/imm32/end -<span id="L2005" class="LineNr">2005 </span> 68/push 0/imm32/start -<span id="L2006" class="LineNr">2006 </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="L2007" class="LineNr">2007 </span> <span class="subxComment"># write nothing to _test-input-stream</span> -<span id="L2008" class="LineNr">2008 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2009" class="LineNr">2009 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2010" class="LineNr">2010 </span> 51/push-ecx -<span id="L2011" class="LineNr">2011 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2012" class="LineNr">2012 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2013" class="LineNr">2013 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</a>/disp32 -<span id="L2014" class="LineNr">2014 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2015" class="LineNr">2015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2016" class="LineNr">2016 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> -<span id="L2017" class="LineNr">2017 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2018" class="LineNr">2018 </span> 68/push <span class="Constant">"F - test-next-word-or-expression-returns-empty-expression-on-eof"</span>/imm32 -<span id="L2019" class="LineNr">2019 </span> 68/push 0/imm32 -<span id="L2020" class="LineNr">2020 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> -<span id="L2021" class="LineNr">2021 </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="L2022" class="LineNr">2022 </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="L2023" class="LineNr">2023 </span> 50/push-eax -<span id="L2024" class="LineNr">2024 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2025" class="LineNr">2025 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-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="subxTest">test-next-word-or-expression-returns-string-literal</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="subxComment"># setup</span> -<span id="L2038" class="LineNr">2038 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2039" class="LineNr">2039 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2040" class="LineNr">2040 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2041" class="LineNr">2041 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2042" class="LineNr">2042 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2044" class="LineNr">2044 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2045" class="LineNr">2045 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2046" class="LineNr">2046 </span> 68/push 0/imm32/end -<span id="L2047" class="LineNr">2047 </span> 68/push 0/imm32/start -<span id="L2048" class="LineNr">2048 </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="L2049" class="LineNr">2049 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\"/imm32 ")</span> -<span id="L2050" class="LineNr">2050 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2051" class="LineNr">2051 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">"/imm32 "</span>/imm32 -<span id="L2052" class="LineNr">2052 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2053" class="LineNr">2053 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2054" class="LineNr">2054 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2055" class="LineNr">2055 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2056" class="LineNr">2056 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2057" class="LineNr">2057 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2058" class="LineNr">2058 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2059" class="LineNr">2059 </span> 51/push-ecx -<span id="L2060" class="LineNr">2060 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2061" class="LineNr">2061 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2062" class="LineNr">2062 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</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"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2066" class="LineNr">2066 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2068" class="LineNr">2068 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2033'>test-next-word-or-expression-returns-string-literal</a>: start"</span>/imm32 -<span id="L2069" class="LineNr">2069 </span> 68/push 0xd/imm32 -<span id="L2070" class="LineNr">2070 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2071" class="LineNr">2071 </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="L2072" class="LineNr">2072 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2073" class="LineNr">2073 </span> 50/push-eax -<span id="L2074" class="LineNr">2074 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2075" class="LineNr">2075 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2077" class="LineNr">2077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2078" class="LineNr">2078 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 12, msg)</span> -<span id="L2079" class="LineNr">2079 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 24, msg)</span> -<span id="L2080" class="LineNr">2080 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2081" class="LineNr">2081 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2033'>test-next-word-or-expression-returns-string-literal</a>: end"</span>/imm32 -<span id="L2082" class="LineNr">2082 </span> 68/push 0x18/imm32 -<span id="L2083" class="LineNr">2083 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2084" class="LineNr">2084 </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="L2085" class="LineNr">2085 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2086" class="LineNr">2086 </span> 50/push-eax -<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2088" class="LineNr">2088 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2089" class="LineNr">2089 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2090" class="LineNr">2090 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2091" class="LineNr">2091 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2092" class="LineNr">2092 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2093" class="LineNr">2093 </span> 5d/pop-to-ebp -<span id="L2094" class="LineNr">2094 </span> c3/return -<span id="L2095" class="LineNr">2095 </span> -<span id="L2096" class="LineNr">2096 </span><span class="subxTest">test-next-word-or-expression-returns-string-with-escapes</span>: -<span id="L2097" class="LineNr">2097 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2098" class="LineNr">2098 </span> 55/push-ebp -<span id="L2099" class="LineNr">2099 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2100" class="LineNr">2100 </span> <span class="subxComment"># setup</span> -<span id="L2101" class="LineNr">2101 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2102" class="LineNr">2102 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2103" class="LineNr">2103 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2104" class="LineNr">2104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2105" class="LineNr">2105 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2107" class="LineNr">2107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2108" class="LineNr">2108 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2109" class="LineNr">2109 </span> 68/push 0/imm32/end -<span id="L2110" class="LineNr">2110 </span> 68/push 0/imm32/start -<span id="L2111" class="LineNr">2111 </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="L2112" class="LineNr">2112 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"/x")</span> -<span id="L2113" class="LineNr">2113 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2114" class="LineNr">2114 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>/x"/imm32 -<span id="L2115" class="LineNr">2115 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2116" class="LineNr">2116 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2117" class="LineNr">2117 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2118" class="LineNr">2118 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2119" class="LineNr">2119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2120" class="LineNr">2120 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2121" class="LineNr">2121 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2122" class="LineNr">2122 </span> 51/push-ecx -<span id="L2123" class="LineNr">2123 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2124" class="LineNr">2124 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2125" class="LineNr">2125 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</a>/disp32 -<span id="L2126" class="LineNr">2126 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2127" class="LineNr">2127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2128" class="LineNr">2128 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2129" class="LineNr">2129 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2131" class="LineNr">2131 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2096'>test-next-word-or-expression-returns-string-with-escapes</a>: start"</span>/imm32 -<span id="L2132" class="LineNr">2132 </span> 68/push 0xd/imm32 -<span id="L2133" class="LineNr">2133 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2134" class="LineNr">2134 </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="L2135" class="LineNr">2135 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="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="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 9, msg)</span> -<span id="L2142" class="LineNr">2142 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 21, msg)</span> -<span id="L2143" class="LineNr">2143 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2144" class="LineNr">2144 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2096'>test-next-word-or-expression-returns-string-with-escapes</a>: end"</span>/imm32 -<span id="L2145" class="LineNr">2145 </span> 68/push 0x15/imm32 -<span id="L2146" class="LineNr">2146 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2147" class="LineNr">2147 </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="L2148" class="LineNr">2148 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2149" class="LineNr">2149 </span> 50/push-eax -<span id="L2150" class="LineNr">2150 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2151" class="LineNr">2151 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2153" class="LineNr">2153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2154" class="LineNr">2154 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2155" class="LineNr">2155 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2156" class="LineNr">2156 </span> 5d/pop-to-ebp -<span id="L2157" class="LineNr">2157 </span> c3/return -<span id="L2158" class="LineNr">2158 </span> -<span id="L2159" class="LineNr">2159 </span><span class="subxTest">test-next-word-or-expression-returns-whole-expression</span>: -<span id="L2160" class="LineNr">2160 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2161" class="LineNr">2161 </span> 55/push-ebp -<span id="L2162" class="LineNr">2162 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2163" class="LineNr">2163 </span> <span class="subxComment"># setup</span> -<span id="L2164" class="LineNr">2164 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2165" class="LineNr">2165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2166" class="LineNr">2166 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2167" class="LineNr">2167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2168" class="LineNr">2168 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2169" class="LineNr">2169 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2170" class="LineNr">2170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2171" class="LineNr">2171 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2172" class="LineNr">2172 </span> 68/push 0/imm32/end -<span id="L2173" class="LineNr">2173 </span> 68/push 0/imm32/start -<span id="L2174" class="LineNr">2174 </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="L2175" class="LineNr">2175 </span> <span class="subxComment"># write(_test-input-stream, " *(a b)/imm32 ")</span> -<span id="L2176" class="LineNr">2176 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2177" class="LineNr">2177 </span> 68/push <span class="Constant">" *(a b)/imm32 "</span>/imm32 -<span id="L2178" class="LineNr">2178 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2179" class="LineNr">2179 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2180" class="LineNr">2180 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2181" class="LineNr">2181 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2182" class="LineNr">2182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2183" class="LineNr">2183 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2184" class="LineNr">2184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2185" class="LineNr">2185 </span> 51/push-ecx -<span id="L2186" class="LineNr">2186 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2187" class="LineNr">2187 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2188" class="LineNr">2188 </span> e8/call <a href='sigils.subx.html#L1624'>next-word-or-expression</a>/disp32 -<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2190" class="LineNr">2190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2191" class="LineNr">2191 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2192" class="LineNr">2192 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2193" class="LineNr">2193 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2194" class="LineNr">2194 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2159'>test-next-word-or-expression-returns-whole-expression</a>: start"</span>/imm32 -<span id="L2195" class="LineNr">2195 </span> 68/push 0xd/imm32 -<span id="L2196" class="LineNr">2196 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2197" class="LineNr">2197 </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="L2198" class="LineNr">2198 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2199" class="LineNr">2199 </span> 50/push-eax -<span id="L2200" class="LineNr">2200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2201" class="LineNr">2201 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2202" class="LineNr">2202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2203" class="LineNr">2203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2204" class="LineNr">2204 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 13, msg)</span> -<span id="L2205" class="LineNr">2205 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 25, msg)</span> -<span id="L2206" class="LineNr">2206 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2207" class="LineNr">2207 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2159'>test-next-word-or-expression-returns-whole-expression</a>: end"</span>/imm32 -<span id="L2208" class="LineNr">2208 </span> 68/push 0x19/imm32 -<span id="L2209" class="LineNr">2209 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2210" class="LineNr">2210 </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="L2211" class="LineNr">2211 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2212" class="LineNr">2212 </span> 50/push-eax -<span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2214" class="LineNr">2214 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2215" class="LineNr">2215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2216" class="LineNr">2216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2217" class="LineNr">2217 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2218" class="LineNr">2218 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2219" class="LineNr">2219 </span> 5d/pop-to-ebp -<span id="L2220" class="LineNr">2220 </span> c3/return -<span id="L2221" class="LineNr">2221 </span> -<span id="L2222" class="LineNr">2222 </span><span class="subxComment"># Grammar:</span> -<span id="L2223" class="LineNr">2223 </span><span class="subxComment"># *reg -> 0/mod reg/rm32</span> -<span id="L2224" class="LineNr">2224 </span><span class="subxComment"># *(reg) -> 0/mod reg/rm32</span> -<span id="L2225" class="LineNr">2225 </span><span class="subxComment"># *(reg+disp) -> 2/mod reg/rm32 disp/disp32</span> -<span id="L2226" class="LineNr">2226 </span><span class="subxComment"># *(reg1+reg2<<s) -> 2/mod 4/rm32 reg1/base reg2/index s/scale 0/disp32</span> -<span id="L2227" class="LineNr">2227 </span><span class="subxComment"># *(reg1+reg2<<s+disp) -> 2/mod 4/rm32 reg1/base reg2/index s/scale disp/disp32</span> -<span id="L2228" class="LineNr">2228 </span><span class="subxComment"># Intermediate structure: base, index, scale, disp</span> -<span id="L2229" class="LineNr">2229 </span><span class="subxComment"># Default values: base: 0, index: 4 (none), scale: 0, disp: 0</span> -<span id="L2230" class="LineNr">2230 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice: (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span> -<span id="L2231" class="LineNr">2231 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2232" class="LineNr">2232 </span> <span class="subxComment"># var local-slice = {word-slice->start, word-slice->end}</span> -<span id="L2233" class="LineNr">2233 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L2234" class="LineNr">2234 </span> <span class="subxComment"># initialize defaults: base=0, index=4, scale=0, disp=0</span> -<span id="L2235" class="LineNr">2235 </span> <span class="subxComment"># if (*local-slice->start != '(') {</span> -<span id="L2236" class="LineNr">2236 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L2237" class="LineNr">2237 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2238" class="LineNr">2238 </span> <span class="subxComment"># return</span> -<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># }</span> -<span id="L2240" class="LineNr">2240 </span> <span class="subxComment"># # compound expressions</span> -<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2242" class="LineNr">2242 </span> <span class="subxComment"># read register into base</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># We don't support conversions to floating-point registers. In particular, so</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># far there's no %xmm1.</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment">#</span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># The code generated is sub-optimal:</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># - displacements are always disp32, even when disp8 will do</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># - *(...esp...) always uses SIB arguments even when redundant</span> +<span id="L50" class="LineNr"> 50 </span> +<span id="L51" class="LineNr"> 51 </span>== code +<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L53" class="LineNr"> 53 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L54" class="LineNr"> 54 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L55" class="LineNr"> 55 </span> +<span id="L56" class="LineNr"> 56 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L58" class="LineNr"> 58 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># initialize heap</span> +<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L63" class="LineNr"> 63 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L64" class="LineNr"> 64 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> +<span id="L66" class="LineNr"> 66 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L69" class="LineNr"> 69 </span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L72" class="LineNr"> 72 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> +<span id="L73" class="LineNr"> 73 </span> 7e/jump-if-<= $subx-sigils-main:interactive/disp8 +<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L77" class="LineNr"> 77 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L78" class="LineNr"> 78 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . call</span> +<span id="L80" class="LineNr"> 80 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L82" class="LineNr"> 82 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L84" class="LineNr"> 84 </span> 3d/compare-eax-and 0/imm32/false +<span id="L85" class="LineNr"> 85 </span> 74/jump-if-= $subx-sigils-main:interactive/disp8 +<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># run-tests()</span> +<span id="L87" class="LineNr"> 87 </span> e8/call run-tests/disp32 +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L89" class="LineNr"> 89 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L90" class="LineNr"> 90 </span> eb/jump $subx-sigils-main:end/disp8 +<span id="L91" class="LineNr"> 91 </span><span class="Constant">$subx-sigils-main:interactive</span>: +<span id="L92" class="LineNr"> 92 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># subx-sigils(Stdin, Stdout)</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L95" class="LineNr"> 95 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L96" class="LineNr"> 96 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> +<span id="L98" class="LineNr"> 98 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L100" class="LineNr"> 100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L101" class="LineNr"> 101 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L102" class="LineNr"> 102 </span> bb/copy-to-ebx 0/imm32 +<span id="L103" class="LineNr"> 103 </span><span class="Constant">$subx-sigils-main:end</span>: +<span id="L104" class="LineNr"> 104 </span> e8/call syscall_exit/disp32 +<span id="L105" class="LineNr"> 105 </span> +<span id="L106" class="LineNr"> 106 </span><span class="subxComment"># error messages considered:</span> +<span id="L107" class="LineNr"> 107 </span><span class="subxComment"># *x + 34 -> error: base+disp addressing must be within '()'</span> +<span id="L108" class="LineNr"> 108 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L109" class="LineNr"> 109 </span> <span class="subxComment"># pseudocode:</span> +<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># while true</span> +<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># while true</span> +<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># var word-slice = next-word-or-expression(line)</span> +<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># break</span> +<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># continue</span> +<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '%') # direct mode</span> +<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> +<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '*') # indirect mode</span> +<span id="L124" class="LineNr"> 124 </span> <span class="subxComment"># if disp32-mode?(word-slice)</span> +<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># emit-indirect-disp32(out, word-slice)</span> +<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># else</span> +<span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># base, index, scale, disp = parse-effective-address(word-slice)</span> +<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> +<span id="L129" class="LineNr"> 129 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '+')</span> +<span id="L130" class="LineNr"> 130 </span> <span class="subxComment"># abort("'+' only permitted within '*(...)'")</span> +<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># else</span> +<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># write(out, " ")</span> +<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># write(out, "\n")</span> +<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># flush(out)</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxComment">#</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L138" class="LineNr"> 138 </span> 55/push-ebp +<span id="L139" class="LineNr"> 139 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L140" class="LineNr"> 140 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L141" class="LineNr"> 141 </span> 50/push-eax +<span id="L142" class="LineNr"> 142 </span> 51/push-ecx +<span id="L143" class="LineNr"> 143 </span> 52/push-edx +<span id="L144" class="LineNr"> 144 </span> 53/push-ebx +<span id="L145" class="LineNr"> 145 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L146" class="LineNr"> 146 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L147" class="LineNr"> 147 </span> 68/push 0x200/imm32/length +<span id="L148" class="LineNr"> 148 </span> 68/push 0/imm32/read +<span id="L149" class="LineNr"> 149 </span> 68/push 0/imm32/write +<span id="L150" class="LineNr"> 150 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L151" class="LineNr"> 151 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L152" class="LineNr"> 152 </span> 68/push 0/imm32/end +<span id="L153" class="LineNr"> 153 </span> 68/push 0/imm32/start +<span id="L154" class="LineNr"> 154 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L155" class="LineNr"> 155 </span><span class="Constant">$subx-sigils:line-loop</span>: +<span id="L156" class="LineNr"> 156 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L158" class="LineNr"> 158 </span> 51/push-ecx +<span id="L159" class="LineNr"> 159 </span> <span class="subxS2Comment"># . . call</span> +<span id="L160" class="LineNr"> 160 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L161" class="LineNr"> 161 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L162" class="LineNr"> 162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L163" class="LineNr"> 163 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L165" class="LineNr"> 165 </span> 51/push-ecx +<span id="L166" class="LineNr"> 166 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L167" class="LineNr"> 167 </span> <span class="subxS2Comment"># . . call</span> +<span id="L168" class="LineNr"> 168 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L169" class="LineNr"> 169 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L170" class="LineNr"> 170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L171" class="LineNr"> 171 </span><span class="Constant">$subx-sigils:check0</span>: +<span id="L172" class="LineNr"> 172 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L173" class="LineNr"> 173 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L174" class="LineNr"> 174 </span> 0f 84/jump-if-= $subx-sigils:<span class="Constant">break</span>/disp32 +<span id="L175" class="LineNr"> 175 </span><span class="Constant">$subx-sigils:word-loop</span>: +<span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># next-word-or-expression(line, word-slice)</span> +<span id="L177" class="LineNr"> 177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L178" class="LineNr"> 178 </span> 52/push-edx +<span id="L179" class="LineNr"> 179 </span> 51/push-ecx +<span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . call</span> +<span id="L181" class="LineNr"> 181 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L183" class="LineNr"> 183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L184" class="LineNr"> 184 </span><span class="Constant">$subx-sigils:check1</span>: +<span id="L185" class="LineNr"> 185 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L186" class="LineNr"> 186 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L187" class="LineNr"> 187 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L188" class="LineNr"> 188 </span> 52/push-edx +<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L190" class="LineNr"> 190 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L192" class="LineNr"> 192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L193" class="LineNr"> 193 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L194" class="LineNr"> 194 </span> 3d/compare-eax-and 0/imm32/false +<span id="L195" class="LineNr"> 195 </span> 0f 85/jump-if-!= $subx-sigils:next-line/disp32 +<span id="L196" class="LineNr"> 196 </span><span class="Constant">$subx-sigils:check-for-comment</span>: +<span id="L197" class="LineNr"> 197 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span> +<span id="L198" class="LineNr"> 198 </span> <span class="subxS1Comment"># . start/ebx = word-slice->start</span> +<span id="L199" class="LineNr"> 199 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> +<span id="L200" class="LineNr"> 200 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L201" class="LineNr"> 201 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L202" class="LineNr"> 202 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> +<span id="L203" class="LineNr"> 203 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L204" class="LineNr"> 204 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L205" class="LineNr"> 205 </span> 74/jump-if-= $subx-sigils:word-loop/disp8 +<span id="L206" class="LineNr"> 206 </span><span class="Constant">$subx-sigils:check-for-direct-mode</span>: +<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "%")) goto next check</span> +<span id="L208" class="LineNr"> 208 </span> 3d/compare-eax-and 0x25/imm32/percent +<span id="L209" class="LineNr"> 209 </span> 75/jump-if-!= $subx-sigils:check-for-indirect-mode/disp8 +<span id="L210" class="LineNr"> 210 </span><span class="Constant">$subx-sigils:direct-mode</span>: +<span id="L211" class="Folded"> 211 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L251" class="LineNr"> 251 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> +<span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L253" class="LineNr"> 253 </span> 52/push-edx +<span id="L254" class="LineNr"> 254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L256" class="LineNr"> 256 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 +<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L258" class="LineNr"> 258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L259" class="LineNr"> 259 </span> <span class="subxComment"># continue</span> +<span id="L260" class="LineNr"> 260 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L261" class="LineNr"> 261 </span><span class="Constant">$subx-sigils:check-for-indirect-mode</span>: +<span id="L262" class="LineNr"> 262 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "*")) goto next check</span> +<span id="L263" class="LineNr"> 263 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L264" class="LineNr"> 264 </span> 75/jump-if-!= $subx-sigils:check-for-invalid-addition/disp8 +<span id="L265" class="LineNr"> 265 </span> <span class="subxComment"># if (!disp32-mode?(word-slice)) goto indirect mode</span> +<span id="L266" class="LineNr"> 266 </span> <span class="subxS1Comment"># . eax = disp32-mode?(word-slice)</span> +<span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L268" class="LineNr"> 268 </span> 52/push-edx +<span id="L269" class="LineNr"> 269 </span> <span class="subxS2Comment"># . . call</span> +<span id="L270" class="LineNr"> 270 </span> e8/call <a href='sigils.subx.html#L3879'>disp32-mode?</a>/disp32 +<span id="L271" class="LineNr"> 271 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L272" class="LineNr"> 272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L273" class="LineNr"> 273 </span> <span class="subxS1Comment"># . if (eax == false) goto indirect mode</span> +<span id="L274" class="LineNr"> 274 </span> 3d/compare-eax-and 0/imm32/false +<span id="L275" class="LineNr"> 275 </span> 74/jump-if-= $subx-sigils:indirect-mode/disp8 +<span id="L276" class="LineNr"> 276 </span><span class="Constant">$subx-sigils:disp32-mode</span>: +<span id="L277" class="LineNr"> 277 </span> <span class="subxComment"># emit-indirect-mode(out, word-slice)</span> +<span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L279" class="LineNr"> 279 </span> 52/push-edx +<span id="L280" class="LineNr"> 280 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L281" class="LineNr"> 281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L282" class="LineNr"> 282 </span> e8/call <a href='sigils.subx.html#L3938'>emit-indirect-disp32</a>/disp32 +<span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L284" class="LineNr"> 284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L285" class="LineNr"> 285 </span> <span class="subxComment"># continue</span> +<span id="L286" class="LineNr"> 286 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L287" class="LineNr"> 287 </span><span class="Constant">$subx-sigils:indirect-mode</span>: +<span id="L288" class="LineNr"> 288 </span> <span class="subxComment"># spill registers</span> +<span id="L289" class="LineNr"> 289 </span> 50/push-eax +<span id="L290" class="LineNr"> 290 </span> 51/push-ecx +<span id="L291" class="LineNr"> 291 </span> 52/push-edx +<span id="L292" class="LineNr"> 292 </span> 53/push-ebx +<span id="L293" class="LineNr"> 293 </span> <span class="subxComment"># base/eax, index/ecx, scale/edx, disp/ebx = parse-effective-address(word-slice)</span> +<span id="L294" class="LineNr"> 294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L295" class="LineNr"> 295 </span> 52/push-edx +<span id="L296" class="LineNr"> 296 </span> <span class="subxS2Comment"># . . call</span> +<span id="L297" class="LineNr"> 297 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L299" class="LineNr"> 299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L300" class="LineNr"> 300 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> +<span id="L301" class="LineNr"> 301 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L302" class="LineNr"> 302 </span> 53/push-ebx +<span id="L303" class="LineNr"> 303 </span> 52/push-edx +<span id="L304" class="LineNr"> 304 </span> 51/push-ecx +<span id="L305" class="LineNr"> 305 </span> 50/push-eax +<span id="L306" class="LineNr"> 306 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L307" class="LineNr"> 307 </span> <span class="subxS2Comment"># . . call</span> +<span id="L308" class="LineNr"> 308 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L309" class="LineNr"> 309 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L310" class="LineNr"> 310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L311" class="LineNr"> 311 </span> <span class="subxComment"># restore registers</span> +<span id="L312" class="LineNr"> 312 </span> 5b/pop-to-ebx +<span id="L313" class="LineNr"> 313 </span> 5a/pop-to-edx +<span id="L314" class="LineNr"> 314 </span> 59/pop-to-ecx +<span id="L315" class="LineNr"> 315 </span> 58/pop-to-eax +<span id="L316" class="LineNr"> 316 </span> <span class="subxComment"># continue</span> +<span id="L317" class="LineNr"> 317 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L318" class="LineNr"> 318 </span><span class="Constant">$subx-sigils:check-for-invalid-addition</span>: +<span id="L319" class="LineNr"> 319 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "+")) goto error1</span> +<span id="L320" class="LineNr"> 320 </span> 3d/compare-eax-and 0x2b/imm32/plus +<span id="L321" class="LineNr"> 321 </span> 74/jump-if-= $subx-sigils:error1/disp8 +<span id="L322" class="LineNr"> 322 </span><span class="Constant">$subx-sigils:check-for-invalid-left-shift</span>: +<span id="L323" class="LineNr"> 323 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "<")) goto error1</span> +<span id="L324" class="LineNr"> 324 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L325" class="LineNr"> 325 </span> 74/jump-if-= $subx-sigils:error1/disp8 +<span id="L326" class="LineNr"> 326 </span><span class="Constant">$subx-sigils:regular-word</span>: +<span id="L327" class="LineNr"> 327 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L328" class="LineNr"> 328 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L329" class="LineNr"> 329 </span> 52/push-edx +<span id="L330" class="LineNr"> 330 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L331" class="LineNr"> 331 </span> <span class="subxS2Comment"># . . call</span> +<span id="L332" class="LineNr"> 332 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L333" class="LineNr"> 333 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L334" class="LineNr"> 334 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L335" class="LineNr"> 335 </span> <span class="subxComment"># fall through</span> +<span id="L336" class="LineNr"> 336 </span><span class="Constant">$subx-sigils:<a href='../127next-word.subx.html#L10'>next-word</a></span>: +<span id="L337" class="LineNr"> 337 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L338" class="LineNr"> 338 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L339" class="LineNr"> 339 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L340" class="LineNr"> 340 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L341" class="LineNr"> 341 </span> <span class="subxS2Comment"># . . call</span> +<span id="L342" class="LineNr"> 342 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L343" class="LineNr"> 343 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L344" class="LineNr"> 344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L345" class="LineNr"> 345 </span> <span class="subxComment"># loop</span> +<span id="L346" class="LineNr"> 346 </span> e9/jump $subx-sigils:word-loop/disp32 +<span id="L347" class="LineNr"> 347 </span><span class="Constant">$subx-sigils:next-line</span>: +<span id="L348" class="LineNr"> 348 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L349" class="LineNr"> 349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L350" class="LineNr"> 350 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L351" class="LineNr"> 351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L352" class="LineNr"> 352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L353" class="LineNr"> 353 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L355" class="LineNr"> 355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L356" class="LineNr"> 356 </span> <span class="subxComment"># loop</span> +<span id="L357" class="LineNr"> 357 </span> e9/jump $subx-sigils:line-loop/disp32 +<span id="L358" class="LineNr"> 358 </span><span class="Constant">$subx-sigils:break</span>: +<span id="L359" class="LineNr"> 359 </span> <span class="subxComment"># flush(out)</span> +<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L361" class="LineNr"> 361 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> +<span id="L363" class="LineNr"> 363 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L366" class="LineNr"> 366 </span><span class="Constant">$subx-sigils:end</span>: +<span id="L367" class="LineNr"> 367 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L368" class="LineNr"> 368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L369" class="LineNr"> 369 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L370" class="LineNr"> 370 </span> 5b/pop-to-ebx +<span id="L371" class="LineNr"> 371 </span> 5a/pop-to-edx +<span id="L372" class="LineNr"> 372 </span> 59/pop-to-ecx +<span id="L373" class="LineNr"> 373 </span> 58/pop-to-eax +<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L375" class="LineNr"> 375 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L376" class="LineNr"> 376 </span> 5d/pop-to-ebp +<span id="L377" class="LineNr"> 377 </span> c3/return +<span id="L378" class="LineNr"> 378 </span> +<span id="L379" class="LineNr"> 379 </span><span class="Constant">$subx-sigils:error1</span>: +<span id="L380" class="LineNr"> 380 </span> <span class="subxComment"># print(stderr, "error: '" eax "' only permitted within '*(...)' in '" line "'")</span> +<span id="L381" class="LineNr"> 381 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '")</span> +<span id="L382" class="LineNr"> 382 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L383" class="LineNr"> 383 </span> 68/push <span class="Constant">"error: '"</span>/imm32 +<span id="L384" class="LineNr"> 384 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L385" class="LineNr"> 385 </span> <span class="subxS2Comment"># . . call</span> +<span id="L386" class="LineNr"> 386 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L387" class="LineNr"> 387 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L388" class="LineNr"> 388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L389" class="LineNr"> 389 </span> <span class="subxS1Comment"># . write-byte-buffered(Stderr, eax)</span> +<span id="L390" class="LineNr"> 390 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L391" class="LineNr"> 391 </span> 50/push-eax +<span id="L392" class="LineNr"> 392 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . call</span> +<span id="L394" class="LineNr"> 394 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L395" class="LineNr"> 395 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L396" class="LineNr"> 396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L397" class="LineNr"> 397 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "' only permitted within '*(...)' in '")</span> +<span id="L398" class="LineNr"> 398 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L399" class="LineNr"> 399 </span> 68/push <span class="Constant">"' only permitted within '*(...)' in '"</span>/imm32 +<span id="L400" class="LineNr"> 400 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . call</span> +<span id="L402" class="LineNr"> 402 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L404" class="LineNr"> 404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L405" class="LineNr"> 405 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L406" class="LineNr"> 406 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L407" class="LineNr"> 407 </span> 51/push-ecx +<span id="L408" class="LineNr"> 408 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L410" class="LineNr"> 410 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L412" class="LineNr"> 412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L413" class="LineNr"> 413 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L414" class="LineNr"> 414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L415" class="LineNr"> 415 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L416" class="LineNr"> 416 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . call</span> +<span id="L418" class="LineNr"> 418 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L420" class="LineNr"> 420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L421" class="LineNr"> 421 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L422" class="LineNr"> 422 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L423" class="LineNr"> 423 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . call</span> +<span id="L425" class="LineNr"> 425 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L427" class="LineNr"> 427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L428" class="LineNr"> 428 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L429" class="LineNr"> 429 </span> bb/copy-to-ebx 1/imm32 +<span id="L430" class="LineNr"> 430 </span> e8/call syscall_exit/disp32 +<span id="L431" class="LineNr"> 431 </span> <span class="subxComment"># never gets here</span> +<span id="L432" class="LineNr"> 432 </span> +<span id="L433" class="LineNr"> 433 </span><span class="subxTest">test-subx-sigils-passes-most-words-through</span>: +<span id="L434" class="LineNr"> 434 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L435" class="LineNr"> 435 </span> 55/push-ebp +<span id="L436" class="LineNr"> 436 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># setup</span> +<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L440" class="LineNr"> 440 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L441" class="LineNr"> 441 </span> <span class="subxS2Comment"># . . call</span> +<span id="L442" class="LineNr"> 442 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L444" class="LineNr"> 444 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L445" class="LineNr"> 445 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L446" class="LineNr"> 446 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L447" class="LineNr"> 447 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . call</span> +<span id="L449" class="LineNr"> 449 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L451" class="LineNr"> 451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L454" class="LineNr"> 454 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . call</span> +<span id="L456" class="LineNr"> 456 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L457" class="LineNr"> 457 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L458" class="LineNr"> 458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L459" class="LineNr"> 459 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L460" class="LineNr"> 460 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L461" class="LineNr"> 461 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . call</span> +<span id="L463" class="LineNr"> 463 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L465" class="LineNr"> 465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># initialize input</span> +<span id="L467" class="LineNr"> 467 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1")</span> +<span id="L468" class="LineNr"> 468 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L469" class="LineNr"> 469 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 +<span id="L470" class="LineNr"> 470 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L471" class="LineNr"> 471 </span> <span class="subxS2Comment"># . . call</span> +<span id="L472" class="LineNr"> 472 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L473" class="LineNr"> 473 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L474" class="LineNr"> 474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L476" class="LineNr"> 476 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L477" class="LineNr"> 477 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L478" class="LineNr"> 478 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L479" class="LineNr"> 479 </span> <span class="subxS2Comment"># . . call</span> +<span id="L480" class="LineNr"> 480 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L481" class="LineNr"> 481 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L482" class="LineNr"> 482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L484" class="LineNr"> 484 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L486" class="LineNr"> 486 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L487" class="LineNr"> 487 </span> <span class="subxS2Comment"># . . call</span> +<span id="L488" class="LineNr"> 488 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L489" class="LineNr"> 489 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L490" class="LineNr"> 490 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L491" class="Folded"> 491 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L517" class="LineNr"> 517 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1 \n", msg)</span> +<span id="L518" class="LineNr"> 518 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L519" class="LineNr"> 519 </span> 68/push <span class="Constant">"F - test-subx-sigils-passes-most-words-through"</span>/imm32 +<span id="L520" class="LineNr"> 520 </span> 68/push <span class="Constant">"== abcd 0x1 \n"</span>/imm32 +<span id="L521" class="LineNr"> 521 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . call</span> +<span id="L523" class="LineNr"> 523 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L524" class="LineNr"> 524 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L525" class="LineNr"> 525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L526" class="LineNr"> 526 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L527" class="LineNr"> 527 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L528" class="LineNr"> 528 </span> 5d/pop-to-ebp +<span id="L529" class="LineNr"> 529 </span> c3/return +<span id="L530" class="LineNr"> 530 </span> +<span id="L531" class="LineNr"> 531 </span><span class="subxTest">test-subx-sigils-direct-mode</span>: +<span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L533" class="LineNr"> 533 </span> 55/push-ebp +<span id="L534" class="LineNr"> 534 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L535" class="LineNr"> 535 </span> <span class="subxComment"># setup</span> +<span id="L536" class="LineNr"> 536 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L538" class="LineNr"> 538 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L539" class="LineNr"> 539 </span> <span class="subxS2Comment"># . . call</span> +<span id="L540" class="LineNr"> 540 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L541" class="LineNr"> 541 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L542" class="LineNr"> 542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L543" class="LineNr"> 543 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L544" class="LineNr"> 544 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L545" class="LineNr"> 545 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . call</span> +<span id="L547" class="LineNr"> 547 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L549" class="LineNr"> 549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L550" class="LineNr"> 550 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L551" class="LineNr"> 551 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L552" class="LineNr"> 552 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . call</span> +<span id="L554" class="LineNr"> 554 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L555" class="LineNr"> 555 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L556" class="LineNr"> 556 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L557" class="LineNr"> 557 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L559" class="LineNr"> 559 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . call</span> +<span id="L561" class="LineNr"> 561 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L562" class="LineNr"> 562 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L563" class="LineNr"> 563 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L564" class="LineNr"> 564 </span> <span class="subxComment"># initialize input</span> +<span id="L565" class="LineNr"> 565 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx")</span> +<span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L567" class="LineNr"> 567 </span> 68/push <span class="Constant">"ab %ecx"</span>/imm32 +<span id="L568" class="LineNr"> 568 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L569" class="LineNr"> 569 </span> <span class="subxS2Comment"># . . call</span> +<span id="L570" class="LineNr"> 570 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L571" class="LineNr"> 571 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L572" class="LineNr"> 572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L573" class="LineNr"> 573 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L575" class="LineNr"> 575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L576" class="LineNr"> 576 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . call</span> +<span id="L578" class="LineNr"> 578 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L580" class="LineNr"> 580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L581" class="LineNr"> 581 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L582" class="LineNr"> 582 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L584" class="LineNr"> 584 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L585" class="LineNr"> 585 </span> <span class="subxS2Comment"># . . call</span> +<span id="L586" class="LineNr"> 586 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L588" class="LineNr"> 588 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L589" class="Folded"> 589 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L615" class="LineNr"> 615 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> +<span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L617" class="LineNr"> 617 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode"</span>/imm32 +<span id="L618" class="LineNr"> 618 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 +<span id="L619" class="LineNr"> 619 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> +<span id="L621" class="LineNr"> 621 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L625" class="LineNr"> 625 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L626" class="LineNr"> 626 </span> 5d/pop-to-ebp +<span id="L627" class="LineNr"> 627 </span> c3/return +<span id="L628" class="LineNr"> 628 </span> +<span id="L629" class="LineNr"> 629 </span><span class="subxTest">test-subx-sigils-direct-mode-with-metadata</span>: +<span id="L630" class="LineNr"> 630 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L631" class="LineNr"> 631 </span> 55/push-ebp +<span id="L632" class="LineNr"> 632 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L633" class="LineNr"> 633 </span> <span class="subxComment"># setup</span> +<span id="L634" class="LineNr"> 634 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L636" class="LineNr"> 636 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . call</span> +<span id="L638" class="LineNr"> 638 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L640" class="LineNr"> 640 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L641" class="LineNr"> 641 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L643" class="LineNr"> 643 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . call</span> +<span id="L645" class="LineNr"> 645 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L647" class="LineNr"> 647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L650" class="LineNr"> 650 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> +<span id="L652" class="LineNr"> 652 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L654" class="LineNr"> 654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L655" class="LineNr"> 655 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L657" class="LineNr"> 657 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . call</span> +<span id="L659" class="LineNr"> 659 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L661" class="LineNr"> 661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L662" class="LineNr"> 662 </span> <span class="subxComment"># initialize input</span> +<span id="L663" class="LineNr"> 663 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx/foo")</span> +<span id="L664" class="LineNr"> 664 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L665" class="LineNr"> 665 </span> 68/push <span class="Constant">"ab %ecx/foo"</span>/imm32 +<span id="L666" class="LineNr"> 666 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . call</span> +<span id="L668" class="LineNr"> 668 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L669" class="LineNr"> 669 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L670" class="LineNr"> 670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L671" class="LineNr"> 671 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L673" class="LineNr"> 673 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L674" class="LineNr"> 674 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . call</span> +<span id="L676" class="LineNr"> 676 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L678" class="LineNr"> 678 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L679" class="LineNr"> 679 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L680" class="LineNr"> 680 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L681" class="LineNr"> 681 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L682" class="LineNr"> 682 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . call</span> +<span id="L684" class="LineNr"> 684 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L686" class="LineNr"> 686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L687" class="LineNr"> 687 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> +<span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L689" class="LineNr"> 689 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode-with-metadata"</span>/imm32 +<span id="L690" class="LineNr"> 690 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 +<span id="L691" class="LineNr"> 691 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . call</span> +<span id="L693" class="LineNr"> 693 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L694" class="LineNr"> 694 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L695" class="LineNr"> 695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L696" class="LineNr"> 696 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L697" class="LineNr"> 697 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L698" class="LineNr"> 698 </span> 5d/pop-to-ebp +<span id="L699" class="LineNr"> 699 </span> c3/return +<span id="L700" class="LineNr"> 700 </span> +<span id="L701" class="LineNr"> 701 </span><span class="subxTest">test-subx-sigils-register-indirect-mode</span>: +<span id="L702" class="LineNr"> 702 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L703" class="LineNr"> 703 </span> 55/push-ebp +<span id="L704" class="LineNr"> 704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxComment"># setup</span> +<span id="L706" class="LineNr"> 706 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L708" class="LineNr"> 708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> +<span id="L710" class="LineNr"> 710 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L715" class="LineNr"> 715 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . call</span> +<span id="L717" class="LineNr"> 717 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L719" class="LineNr"> 719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L720" class="LineNr"> 720 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L721" class="LineNr"> 721 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L722" class="LineNr"> 722 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . call</span> +<span id="L724" class="LineNr"> 724 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L726" class="LineNr"> 726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L727" class="LineNr"> 727 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L728" class="LineNr"> 728 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L729" class="LineNr"> 729 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . call</span> +<span id="L731" class="LineNr"> 731 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L733" class="LineNr"> 733 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L734" class="LineNr"> 734 </span> <span class="subxComment"># initialize input</span> +<span id="L735" class="LineNr"> 735 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx")</span> +<span id="L736" class="LineNr"> 736 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L737" class="LineNr"> 737 </span> 68/push <span class="Constant">"ab *ecx"</span>/imm32 +<span id="L738" class="LineNr"> 738 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L739" class="LineNr"> 739 </span> <span class="subxS2Comment"># . . call</span> +<span id="L740" class="LineNr"> 740 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L741" class="LineNr"> 741 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L742" class="LineNr"> 742 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L743" class="LineNr"> 743 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L744" class="LineNr"> 744 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L745" class="LineNr"> 745 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L746" class="LineNr"> 746 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . call</span> +<span id="L748" class="LineNr"> 748 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L749" class="LineNr"> 749 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L750" class="LineNr"> 750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L751" class="LineNr"> 751 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L752" class="LineNr"> 752 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L753" class="LineNr"> 753 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L754" class="LineNr"> 754 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L755" class="LineNr"> 755 </span> <span class="subxS2Comment"># . . call</span> +<span id="L756" class="LineNr"> 756 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L757" class="LineNr"> 757 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L758" class="LineNr"> 758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L759" class="Folded"> 759 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L785" class="LineNr"> 785 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> +<span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L787" class="LineNr"> 787 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode"</span>/imm32 +<span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L789" class="LineNr"> 789 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . call</span> +<span id="L791" class="LineNr"> 791 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L792" class="LineNr"> 792 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L793" class="LineNr"> 793 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L794" class="LineNr"> 794 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L795" class="LineNr"> 795 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L796" class="LineNr"> 796 </span> 5d/pop-to-ebp +<span id="L797" class="LineNr"> 797 </span> c3/return +<span id="L798" class="LineNr"> 798 </span> +<span id="L799" class="LineNr"> 799 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-metadata</span>: +<span id="L800" class="LineNr"> 800 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L801" class="LineNr"> 801 </span> 55/push-ebp +<span id="L802" class="LineNr"> 802 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># setup</span> +<span id="L804" class="LineNr"> 804 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L806" class="LineNr"> 806 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . call</span> +<span id="L808" class="LineNr"> 808 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L810" class="LineNr"> 810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L813" class="LineNr"> 813 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L814" class="LineNr"> 814 </span> <span class="subxS2Comment"># . . call</span> +<span id="L815" class="LineNr"> 815 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L817" class="LineNr"> 817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L818" class="LineNr"> 818 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L820" class="LineNr"> 820 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . call</span> +<span id="L822" class="LineNr"> 822 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L823" class="LineNr"> 823 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L824" class="LineNr"> 824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L825" class="LineNr"> 825 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L826" class="LineNr"> 826 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L827" class="LineNr"> 827 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L829" class="LineNr"> 829 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L830" class="LineNr"> 830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L831" class="LineNr"> 831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L832" class="LineNr"> 832 </span> <span class="subxComment"># initialize input</span> +<span id="L833" class="LineNr"> 833 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx/foo")</span> +<span id="L834" class="LineNr"> 834 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L835" class="LineNr"> 835 </span> 68/push <span class="Constant">"ab *ecx/foo"</span>/imm32 +<span id="L836" class="LineNr"> 836 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L837" class="LineNr"> 837 </span> <span class="subxS2Comment"># . . call</span> +<span id="L838" class="LineNr"> 838 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L839" class="LineNr"> 839 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L840" class="LineNr"> 840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L841" class="LineNr"> 841 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L842" class="LineNr"> 842 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L843" class="LineNr"> 843 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L844" class="LineNr"> 844 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L845" class="LineNr"> 845 </span> <span class="subxS2Comment"># . . call</span> +<span id="L846" class="LineNr"> 846 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L848" class="LineNr"> 848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L850" class="LineNr"> 850 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L851" class="LineNr"> 851 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L852" class="LineNr"> 852 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . call</span> +<span id="L854" class="LineNr"> 854 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L856" class="LineNr"> 856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L857" class="LineNr"> 857 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> +<span id="L858" class="LineNr"> 858 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L859" class="LineNr"> 859 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-metadata"</span>/imm32 +<span id="L860" class="LineNr"> 860 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L861" class="LineNr"> 861 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . call</span> +<span id="L863" class="LineNr"> 863 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L865" class="LineNr"> 865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L866" class="LineNr"> 866 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L867" class="LineNr"> 867 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L868" class="LineNr"> 868 </span> 5d/pop-to-ebp +<span id="L869" class="LineNr"> 869 </span> c3/return +<span id="L870" class="LineNr"> 870 </span> +<span id="L871" class="LineNr"> 871 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-without-displacement</span>: +<span id="L872" class="LineNr"> 872 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L873" class="LineNr"> 873 </span> 55/push-ebp +<span id="L874" class="LineNr"> 874 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L875" class="LineNr"> 875 </span> <span class="subxComment"># setup</span> +<span id="L876" class="LineNr"> 876 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L878" class="LineNr"> 878 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . call</span> +<span id="L880" class="LineNr"> 880 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L882" class="LineNr"> 882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L883" class="LineNr"> 883 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L885" class="LineNr"> 885 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . call</span> +<span id="L887" class="LineNr"> 887 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L889" class="LineNr"> 889 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L890" class="LineNr"> 890 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L892" class="LineNr"> 892 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . call</span> +<span id="L894" class="LineNr"> 894 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L895" class="LineNr"> 895 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L896" class="LineNr"> 896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L897" class="LineNr"> 897 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L899" class="LineNr"> 899 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . call</span> +<span id="L901" class="LineNr"> 901 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L902" class="LineNr"> 902 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L903" class="LineNr"> 903 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L904" class="LineNr"> 904 </span> <span class="subxComment"># initialize input</span> +<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx)")</span> +<span id="L906" class="LineNr"> 906 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L907" class="LineNr"> 907 </span> 68/push <span class="Constant">"ab *(ecx)"</span>/imm32 +<span id="L908" class="LineNr"> 908 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L909" class="LineNr"> 909 </span> <span class="subxS2Comment"># . . call</span> +<span id="L910" class="LineNr"> 910 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L912" class="LineNr"> 912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L914" class="LineNr"> 914 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L915" class="LineNr"> 915 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L916" class="LineNr"> 916 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L917" class="LineNr"> 917 </span> <span class="subxS2Comment"># . . call</span> +<span id="L918" class="LineNr"> 918 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L922" class="LineNr"> 922 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L924" class="LineNr"> 924 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . call</span> +<span id="L926" class="LineNr"> 926 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L928" class="LineNr"> 928 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L929" class="Folded"> 929 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 1/rm32 \n", msg)</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L957" class="LineNr"> 957 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-without-displacement"</span>/imm32 +<span id="L958" class="LineNr"> 958 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L959" class="LineNr"> 959 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L960" class="LineNr"> 960 </span> <span class="subxS2Comment"># . . call</span> +<span id="L961" class="LineNr"> 961 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L963" class="LineNr"> 963 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L965" class="LineNr"> 965 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L966" class="LineNr"> 966 </span> 5d/pop-to-ebp +<span id="L967" class="LineNr"> 967 </span> c3/return +<span id="L968" class="LineNr"> 968 </span> +<span id="L969" class="LineNr"> 969 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-displacement</span>: +<span id="L970" class="LineNr"> 970 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L971" class="LineNr"> 971 </span> 55/push-ebp +<span id="L972" class="LineNr"> 972 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># setup</span> +<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L975" class="LineNr"> 975 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L976" class="LineNr"> 976 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . call</span> +<span id="L978" class="LineNr"> 978 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L980" class="LineNr"> 980 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L983" class="LineNr"> 983 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . call</span> +<span id="L985" class="LineNr"> 985 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L986" class="LineNr"> 986 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L987" class="LineNr"> 987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L988" class="LineNr"> 988 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L990" class="LineNr"> 990 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . call</span> +<span id="L992" class="LineNr"> 992 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L994" class="LineNr"> 994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L995" class="LineNr"> 995 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L997" class="LineNr"> 997 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . call</span> +<span id="L999" class="LineNr"> 999 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1001" class="LineNr">1001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># initialize input</span> +<span id="L1003" class="LineNr">1003 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx+4)")</span> +<span id="L1004" class="LineNr">1004 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1005" class="LineNr">1005 </span> 68/push <span class="Constant">"ab *(ecx+4)"</span>/imm32 +<span id="L1006" class="LineNr">1006 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1008" class="LineNr">1008 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1010" class="LineNr">1010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1012" class="LineNr">1012 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1013" class="LineNr">1013 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1014" class="LineNr">1014 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1016" class="LineNr">1016 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1018" class="LineNr">1018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1019" class="LineNr">1019 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1020" class="LineNr">1020 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1021" class="LineNr">1021 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1022" class="LineNr">1022 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1024" class="LineNr">1024 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1026" class="LineNr">1026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1027" class="Folded">1027 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1053" class="LineNr">1053 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 1/rm32 4/disp32 \n", msg)</span> +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-displacement"</span>/imm32 +<span id="L1056" class="LineNr">1056 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 0x00000001/rm32 0x00000004/disp32 \n"</span>/imm32 +<span id="L1057" class="LineNr">1057 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1059" class="LineNr">1059 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1063" class="LineNr">1063 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1064" class="LineNr">1064 </span> 5d/pop-to-ebp +<span id="L1065" class="LineNr">1065 </span> c3/return +<span id="L1066" class="LineNr">1066 </span> +<span id="L1067" class="LineNr">1067 </span><span class="subxComment"># boss level</span> +<span id="L1068" class="LineNr">1068 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte</span>: +<span id="L1069" class="LineNr">1069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1070" class="LineNr">1070 </span> 55/push-ebp +<span id="L1071" class="LineNr">1071 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1072" class="LineNr">1072 </span> <span class="subxComment"># setup</span> +<span id="L1073" class="LineNr">1073 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1075" class="LineNr">1075 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1077" class="LineNr">1077 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1079" class="LineNr">1079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1080" class="LineNr">1080 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1082" class="LineNr">1082 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1084" class="LineNr">1084 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1086" class="LineNr">1086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1087" class="LineNr">1087 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1089" class="LineNr">1089 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1091" class="LineNr">1091 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1093" class="LineNr">1093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1096" class="LineNr">1096 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1098" class="LineNr">1098 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1100" class="LineNr">1100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1101" class="LineNr">1101 </span> <span class="subxComment"># initialize input</span> +<span id="L1102" class="LineNr">1102 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 + 4)")</span> +<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1104" class="LineNr">1104 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 + 4)"</span>/imm32 +<span id="L1105" class="LineNr">1105 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1107" class="LineNr">1107 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1110" class="LineNr">1110 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1111" class="LineNr">1111 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1112" class="LineNr">1112 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1113" class="LineNr">1113 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1115" class="LineNr">1115 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1117" class="LineNr">1117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1118" class="LineNr">1118 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1119" class="LineNr">1119 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1121" class="LineNr">1121 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1123" class="LineNr">1123 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1124" class="LineNr">1124 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1125" class="LineNr">1125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1126" class="Folded">1126 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1152" class="LineNr">1152 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale 4/disp32 \n", msg)</span> +<span id="L1153" class="LineNr">1153 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1154" class="LineNr">1154 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte"</span>/imm32 +<span id="L1155" class="LineNr">1155 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0x00000004/disp32 \n"</span>/imm32 +<span id="L1156" class="LineNr">1156 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1158" class="LineNr">1158 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1160" class="LineNr">1160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1161" class="LineNr">1161 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1162" class="LineNr">1162 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1163" class="LineNr">1163 </span> 5d/pop-to-ebp +<span id="L1164" class="LineNr">1164 </span> c3/return +<span id="L1165" class="LineNr">1165 </span> +<span id="L1166" class="LineNr">1166 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement</span>: +<span id="L1167" class="LineNr">1167 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1168" class="LineNr">1168 </span> 55/push-ebp +<span id="L1169" class="LineNr">1169 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1170" class="LineNr">1170 </span> <span class="subxComment"># setup</span> +<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1172" class="LineNr">1172 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1173" class="LineNr">1173 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1175" class="LineNr">1175 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1176" class="LineNr">1176 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1177" class="LineNr">1177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1178" class="LineNr">1178 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1180" class="LineNr">1180 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1182" class="LineNr">1182 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1183" class="LineNr">1183 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1184" class="LineNr">1184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1185" class="LineNr">1185 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1187" class="LineNr">1187 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1189" class="LineNr">1189 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1191" class="LineNr">1191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1192" class="LineNr">1192 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1194" class="LineNr">1194 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1196" class="LineNr">1196 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1198" class="LineNr">1198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># initialize input</span> +<span id="L1200" class="LineNr">1200 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 - 4)")</span> +<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1202" class="LineNr">1202 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 - 4)"</span>/imm32 +<span id="L1203" class="LineNr">1203 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1205" class="LineNr">1205 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1207" class="LineNr">1207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1208" class="LineNr">1208 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1210" class="LineNr">1210 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1211" class="LineNr">1211 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1212" class="LineNr">1212 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1213" class="LineNr">1213 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1215" class="LineNr">1215 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1216" class="LineNr">1216 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1217" class="LineNr">1217 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1219" class="LineNr">1219 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1221" class="LineNr">1221 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1223" class="LineNr">1223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1224" class="Folded">1224 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1250" class="LineNr">1250 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale -4/disp32 \n", msg)</span> +<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1252" class="LineNr">1252 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement"</span>/imm32 +<span id="L1253" class="LineNr">1253 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0xfffffffc/disp32 \n"</span>/imm32 +<span id="L1254" class="LineNr">1254 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1256" class="LineNr">1256 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1259" class="LineNr">1259 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1260" class="LineNr">1260 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1261" class="LineNr">1261 </span> 5d/pop-to-ebp +<span id="L1262" class="LineNr">1262 </span> c3/return +<span id="L1263" class="LineNr">1263 </span> +<span id="L1264" class="LineNr">1264 </span><span class="subxTest">test-subx-sigils-indirect-mode-without-register</span>: +<span id="L1265" class="LineNr">1265 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1266" class="LineNr">1266 </span> 55/push-ebp +<span id="L1267" class="LineNr">1267 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1268" class="LineNr">1268 </span> <span class="subxComment"># setup</span> +<span id="L1269" class="LineNr">1269 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1271" class="LineNr">1271 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1272" class="LineNr">1272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1273" class="LineNr">1273 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1275" class="LineNr">1275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1278" class="LineNr">1278 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1280" class="LineNr">1280 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1282" class="LineNr">1282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1283" class="LineNr">1283 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1285" class="LineNr">1285 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1286" class="LineNr">1286 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1287" class="LineNr">1287 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1289" class="LineNr">1289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1290" class="LineNr">1290 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1291" class="LineNr">1291 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1292" class="LineNr">1292 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1294" class="LineNr">1294 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1296" class="LineNr">1296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1297" class="LineNr">1297 </span> <span class="subxComment"># initialize input</span> +<span id="L1298" class="LineNr">1298 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *Foo")</span> +<span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1300" class="LineNr">1300 </span> 68/push <span class="Constant">"ab *Foo"</span>/imm32 +<span id="L1301" class="LineNr">1301 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1303" class="LineNr">1303 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1305" class="LineNr">1305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1306" class="LineNr">1306 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1308" class="LineNr">1308 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1309" class="LineNr">1309 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1311" class="LineNr">1311 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 +<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1313" class="LineNr">1313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1315" class="LineNr">1315 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1317" class="LineNr">1317 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1319" class="LineNr">1319 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1321" class="LineNr">1321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1322" class="Folded">1322 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1348" class="LineNr">1348 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n", msg)</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1350" class="LineNr">1350 </span> 68/push <span class="Constant">"F - test-subx-sigils-indirect-mode-without-register"</span>/imm32 +<span id="L1351" class="LineNr">1351 </span> 68/push <span class="Constant">"ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n"</span>/imm32 +<span id="L1352" class="LineNr">1352 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1354" class="LineNr">1354 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1356" class="LineNr">1356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1357" class="LineNr">1357 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1358" class="LineNr">1358 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1359" class="LineNr">1359 </span> 5d/pop-to-ebp +<span id="L1360" class="LineNr">1360 </span> c3/return +<span id="L1361" class="LineNr">1361 </span> +<span id="L1362" class="LineNr">1362 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> +<span id="L1363" class="LineNr">1363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1364" class="LineNr">1364 </span> 55/push-ebp +<span id="L1365" class="LineNr">1365 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1366" class="LineNr">1366 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1367" class="LineNr">1367 </span> 50/push-eax +<span id="L1368" class="LineNr">1368 </span> <span class="subxComment"># var local-slice/eax: slice = {word-slice->start, word-slice->end}</span> +<span id="L1369" class="LineNr">1369 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L1370" class="LineNr">1370 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1371" class="LineNr">1371 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1372" class="LineNr">1372 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> +<span id="L1373" class="LineNr">1373 </span> <span class="subxComment"># ++local-slice->start to skip '%'</span> +<span id="L1374" class="LineNr">1374 </span> <span class="subxS1Comment"># . ++(*eax)</span> +<span id="L1375" class="LineNr">1375 </span> ff 0/subop/increment 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *eax</span> +<span id="L1376" class="Folded">1376 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) -------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1402" class="LineNr">1402 </span> 50/push-eax +<span id="L1403" class="LineNr">1403 </span> 68/push 0x2f/imm32/slash +<span id="L1404" class="LineNr">1404 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1405" class="LineNr">1405 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1407" class="LineNr">1407 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1409" class="LineNr">1409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1410" class="LineNr">1410 </span> <span class="subxComment"># reg-num/eax = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1412" class="LineNr">1412 </span> 68/push <span class="Constant">"Registers"</span>/imm32 +<span id="L1413" class="LineNr">1413 </span> 68/push 0xc/imm32/row-size +<span id="L1414" class="LineNr">1414 </span> 50/push-eax +<span id="L1415" class="LineNr">1415 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1417" class="LineNr">1417 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1419" class="LineNr">1419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1420" class="LineNr">1420 </span> <span class="subxComment"># write-buffered(out, "3/mod/direct ")</span> +<span id="L1421" class="LineNr">1421 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1422" class="LineNr">1422 </span> 68/push <span class="Constant">"3/mod/direct "</span>/imm32 +<span id="L1423" class="LineNr">1423 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1425" class="LineNr">1425 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1427" class="LineNr">1427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># write-int32-hex-buffered(out, *reg-num)</span> +<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1430" class="LineNr">1430 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1431" class="LineNr">1431 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1433" class="LineNr">1433 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1435" class="LineNr">1435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1436" class="LineNr">1436 </span> <span class="subxComment"># write-buffered(out, "/rm32")</span> +<span id="L1437" class="LineNr">1437 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1438" class="LineNr">1438 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 +<span id="L1439" class="LineNr">1439 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1440" class="LineNr">1440 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1441" class="LineNr">1441 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1443" class="LineNr">1443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1444" class="LineNr">1444 </span><span class="Constant">$emit-direct-mode:end</span>: +<span id="L1445" class="LineNr">1445 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1448" class="LineNr">1448 </span> 58/pop-to-eax +<span id="L1449" class="LineNr">1449 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1450" class="LineNr">1450 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1451" class="LineNr">1451 </span> 5d/pop-to-ebp +<span id="L1452" class="LineNr">1452 </span> c3/return +<span id="L1453" class="LineNr">1453 </span> +<span id="L1454" class="LineNr">1454 </span><span class="subxTest">test-emit-direct-mode</span>: +<span id="L1455" class="LineNr">1455 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1456" class="LineNr">1456 </span> 55/push-ebp +<span id="L1457" class="LineNr">1457 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1458" class="LineNr">1458 </span> <span class="subxComment"># setup</span> +<span id="L1459" class="LineNr">1459 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1461" class="LineNr">1461 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1463" class="LineNr">1463 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1465" class="LineNr">1465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1466" class="LineNr">1466 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1468" class="LineNr">1468 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1470" class="LineNr">1470 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1472" class="LineNr">1472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1473" class="LineNr">1473 </span> <span class="subxComment"># var slice/ecx = "%eax"</span> +<span id="L1474" class="LineNr">1474 </span> b8/copy-to-eax <span class="Constant">"%eax"</span>/imm32 +<span id="L1475" class="LineNr">1475 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1476" class="LineNr">1476 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1477" class="LineNr">1477 </span> 05/add-to-eax 4/imm32 +<span id="L1478" class="LineNr">1478 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L1479" class="LineNr">1479 </span> 51/push-ecx +<span id="L1480" class="LineNr">1480 </span> 50/push-eax +<span id="L1481" class="LineNr">1481 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1482" class="LineNr">1482 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str)</span> +<span id="L1483" class="LineNr">1483 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1484" class="LineNr">1484 </span> 51/push-ecx +<span id="L1485" class="LineNr">1485 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1487" class="LineNr">1487 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 +<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1489" class="LineNr">1489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1490" class="LineNr">1490 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1492" class="LineNr">1492 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1494" class="LineNr">1494 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1496" class="LineNr">1496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1497" class="Folded">1497 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1523" class="LineNr">1523 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 0/rm32", msg)</span> +<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1525" class="LineNr">1525 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1454'>test-emit-direct-mode</a>/0"</span>/imm32 +<span id="L1526" class="LineNr">1526 </span> 68/push <span class="Constant">"3/mod/direct 0x00000000/rm32"</span>/imm32 +<span id="L1527" class="LineNr">1527 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1529" class="LineNr">1529 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1531" class="LineNr">1531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1532" class="LineNr">1532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1533" class="LineNr">1533 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1534" class="LineNr">1534 </span> 5d/pop-to-ebp +<span id="L1535" class="LineNr">1535 </span> c3/return +<span id="L1536" class="LineNr">1536 </span> +<span id="L1537" class="LineNr">1537 </span><span class="subxTest">test-emit-direct-mode-2</span>: +<span id="L1538" class="LineNr">1538 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1539" class="LineNr">1539 </span> 55/push-ebp +<span id="L1540" class="LineNr">1540 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1541" class="LineNr">1541 </span> <span class="subxComment"># setup</span> +<span id="L1542" class="LineNr">1542 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1544" class="LineNr">1544 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1545" class="LineNr">1545 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1546" class="LineNr">1546 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1548" class="LineNr">1548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1549" class="LineNr">1549 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1550" class="LineNr">1550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1551" class="LineNr">1551 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1553" class="LineNr">1553 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1556" class="LineNr">1556 </span> <span class="subxComment"># var slice/ecx = "%edi"</span> +<span id="L1557" class="LineNr">1557 </span> b8/copy-to-eax <span class="Constant">"%edi"</span>/imm32 +<span id="L1558" class="LineNr">1558 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1559" class="LineNr">1559 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1560" class="LineNr">1560 </span> 05/add-to-eax 4/imm32 +<span id="L1561" class="LineNr">1561 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L1562" class="LineNr">1562 </span> 51/push-ecx +<span id="L1563" class="LineNr">1563 </span> 50/push-eax +<span id="L1564" class="LineNr">1564 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1565" class="LineNr">1565 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str/ecx)</span> +<span id="L1566" class="LineNr">1566 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1567" class="LineNr">1567 </span> 51/push-ecx +<span id="L1568" class="LineNr">1568 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1569" class="LineNr">1569 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1570" class="LineNr">1570 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 +<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1572" class="LineNr">1572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1573" class="LineNr">1573 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1575" class="LineNr">1575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1577" class="LineNr">1577 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1579" class="LineNr">1579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1580" class="Folded">1580 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1606" class="LineNr">1606 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 7/rm32", msg)</span> +<span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1608" class="LineNr">1608 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1454'>test-emit-direct-mode</a>/1"</span>/imm32 +<span id="L1609" class="LineNr">1609 </span> 68/push <span class="Constant">"3/mod/direct 0x00000007/rm32"</span>/imm32 +<span id="L1610" class="LineNr">1610 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1612" class="LineNr">1612 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1614" class="LineNr">1614 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1616" class="LineNr">1616 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1617" class="LineNr">1617 </span> 5d/pop-to-ebp +<span id="L1618" class="LineNr">1618 </span> c3/return +<span id="L1619" class="LineNr">1619 </span> +<span id="L1620" class="LineNr">1620 </span><span class="subxComment"># (re)compute the bounds of the next word or parenthetical expression in the line</span> +<span id="L1621" class="LineNr">1621 </span><span class="subxComment"># return empty string on reaching end of file</span> +<span id="L1622" class="LineNr">1622 </span><span class="subxComment">#</span> +<span id="L1623" class="LineNr">1623 </span><span class="subxComment"># error messages considered:</span> +<span id="L1624" class="LineNr">1624 </span><span class="subxComment"># * ... -> error: no space after '*'</span> +<span id="L1625" class="LineNr">1625 </span><span class="subxComment"># *(... -> error: *(...) expression must be all on a single line</span> +<span id="L1626" class="LineNr">1626 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> +<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> +<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L1631" class="LineNr">1631 </span> <span class="subxComment"># return</span> +<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> +<span id="L1634" class="LineNr">1634 </span> <span class="subxComment"># out.end = &line->data[line->write]</span> +<span id="L1635" class="LineNr">1635 </span> <span class="subxComment"># return</span> +<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># else if line->data[line->read] == '*' # expression</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> +<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># abort</span> +<span id="L1641" class="LineNr">1641 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L1643" class="LineNr">1643 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># abort</span> +<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># ++line->data[line->read] to skip ')'</span> +<span id="L1646" class="LineNr">1646 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line)</span> +<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxComment">#</span> +<span id="L1649" class="LineNr">1649 </span> <span class="subxComment"># registers:</span> +<span id="L1650" class="LineNr">1650 </span> <span class="subxComment"># ecx: often line->read</span> +<span id="L1651" class="LineNr">1651 </span> <span class="subxComment"># eax: often line->data[line->read]</span> +<span id="L1652" class="LineNr">1652 </span> <span class="subxComment">#</span> +<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1654" class="LineNr">1654 </span> 55/push-ebp +<span id="L1655" class="LineNr">1655 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1656" class="LineNr">1656 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1657" class="LineNr">1657 </span> 50/push-eax +<span id="L1658" class="LineNr">1658 </span> 51/push-ecx +<span id="L1659" class="LineNr">1659 </span> 56/push-esi +<span id="L1660" class="LineNr">1660 </span> 57/push-edi +<span id="L1661" class="LineNr">1661 </span> <span class="subxComment"># esi = line</span> +<span id="L1662" class="LineNr">1662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># edi = out</span> +<span id="L1664" class="LineNr">1664 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L1666" class="LineNr">1666 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1667" class="LineNr">1667 </span> 68/push 0x20/imm32/space +<span id="L1668" class="LineNr">1668 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1670" class="LineNr">1670 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1672" class="LineNr">1672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1673" class="LineNr">1673 </span><span class="Constant">$next-word-or-expression:check0</span>: +<span id="L1674" class="LineNr">1674 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> +<span id="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L1676" class="LineNr">1676 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1677" class="LineNr">1677 </span> <span class="subxS1Comment"># . if (ecx < line->write) goto next check</span> +<span id="L1678" class="LineNr">1678 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> +<span id="L1679" class="LineNr">1679 </span> 7c/jump-if-< $next-word-or-expression:check-for-comment/disp8 +<span id="L1680" class="LineNr">1680 </span> <span class="subxS1Comment"># . return out = {0, 0}</span> +<span id="L1681" class="LineNr">1681 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> +<span id="L1682" class="LineNr">1682 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> +<span id="L1683" class="LineNr">1683 </span> e9/jump $next-word-or-expression:end/disp32 +<span id="L1684" class="LineNr">1684 </span><span class="Constant">$next-word-or-expression:check-for-comment</span>: +<span id="L1685" class="LineNr">1685 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L1686" class="LineNr">1686 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L1687" class="LineNr">1687 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L1688" class="LineNr">1688 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> +<span id="L1689" class="LineNr">1689 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L1690" class="LineNr">1690 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1691" class="LineNr">1691 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L1692" class="LineNr">1692 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> +<span id="L1693" class="LineNr">1693 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L1694" class="LineNr">1694 </span> 75/jump-if-!= $next-word-or-expression:check-for-string-literal/disp8 +<span id="L1695" class="LineNr">1695 </span><span class="Constant">$next-word-or-expression:comment</span>: +<span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> +<span id="L1697" class="LineNr">1697 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1698" class="LineNr">1698 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L1699" class="LineNr">1699 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L1700" class="LineNr">1700 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> +<span id="L1701" class="LineNr">1701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1702" class="LineNr">1702 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(esi+4)</span> +<span id="L1703" class="LineNr">1703 </span> <span class="subxComment"># return</span> +<span id="L1704" class="LineNr">1704 </span> eb/jump $next-word-or-expression:end/disp8 +<span id="L1705" class="LineNr">1705 </span><span class="Constant">$next-word-or-expression:check-for-string-literal</span>: +<span id="L1706" class="LineNr">1706 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> +<span id="L1707" class="LineNr">1707 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L1708" class="LineNr">1708 </span> 75/jump-if-!= $next-word-or-expression:check-for-expression/disp8 +<span id="L1709" class="LineNr">1709 </span><span class="Constant">$next-word-or-expression:string-literal</span>: +<span id="L1710" class="LineNr">1710 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L1711" class="LineNr">1711 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1712" class="LineNr">1712 </span> 56/push-esi +<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1714" class="LineNr">1714 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</a>/disp32 +<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1716" class="LineNr">1716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1717" class="LineNr">1717 </span> <span class="subxComment"># skip rest of word</span> +<span id="L1718" class="LineNr">1718 </span> eb/jump $next-word-or-expression:regular-word/disp8 +<span id="L1719" class="LineNr">1719 </span><span class="Constant">$next-word-or-expression:check-for-expression</span>: +<span id="L1720" class="LineNr">1720 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> +<span id="L1721" class="LineNr">1721 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L1722" class="LineNr">1722 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 +<span id="L1723" class="LineNr">1723 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> +<span id="L1724" class="LineNr">1724 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xd/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12+1) to AL</span> +<span id="L1725" class="LineNr">1725 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L1726" class="LineNr">1726 </span> 74/jump-if-= $next-word-or-expression:error1/disp8 +<span id="L1727" class="LineNr">1727 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular word</span> +<span id="L1728" class="LineNr">1728 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L1729" class="LineNr">1729 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 +<span id="L1730" class="LineNr">1730 </span><span class="Constant">$next-word-or-expression:paren</span>: +<span id="L1731" class="LineNr">1731 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1733" class="LineNr">1733 </span> 56/push-esi +<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1735" class="LineNr">1735 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 +<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1737" class="LineNr">1737 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1738" class="LineNr">1738 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> +<span id="L1739" class="LineNr">1739 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L1740" class="LineNr">1740 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1741" class="LineNr">1741 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L1742" class="LineNr">1742 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> +<span id="L1743" class="LineNr">1743 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L1744" class="LineNr">1744 </span> 75/jump-if-!= $next-word-or-expression:error2/disp8 +<span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># skip ')'</span> +<span id="L1746" class="LineNr">1746 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> +<span id="L1747" class="LineNr">1747 </span> <span class="subxComment"># fall through</span> +<span id="L1748" class="LineNr">1748 </span><span class="Constant">$next-word-or-expression:regular-word</span>: +<span id="L1749" class="LineNr">1749 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> +<span id="L1750" class="LineNr">1750 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1751" class="LineNr">1751 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1753" class="LineNr">1753 </span> e8/call <a href='../124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1755" class="LineNr">1755 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1756" class="LineNr">1756 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L1757" class="LineNr">1757 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1758" class="LineNr">1758 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L1759" class="LineNr">1759 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L1760" class="LineNr">1760 </span><span class="Constant">$next-word-or-expression:end</span>: +<span id="L1761" class="LineNr">1761 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1762" class="LineNr">1762 </span> 5f/pop-to-edi +<span id="L1763" class="LineNr">1763 </span> 5e/pop-to-esi +<span id="L1764" class="LineNr">1764 </span> 59/pop-to-ecx +<span id="L1765" class="LineNr">1765 </span> 58/pop-to-eax +<span id="L1766" class="LineNr">1766 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1767" class="LineNr">1767 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1768" class="LineNr">1768 </span> 5d/pop-to-ebp +<span id="L1769" class="LineNr">1769 </span> c3/return +<span id="L1770" class="LineNr">1770 </span> +<span id="L1771" class="LineNr">1771 </span><span class="Constant">$next-word-or-expression:error1</span>: +<span id="L1772" class="LineNr">1772 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> +<span id="L1773" class="LineNr">1773 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> +<span id="L1774" class="LineNr">1774 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1775" class="LineNr">1775 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 +<span id="L1776" class="LineNr">1776 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1778" class="LineNr">1778 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1780" class="LineNr">1780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1781" class="LineNr">1781 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1783" class="LineNr">1783 </span> 56/push-esi +<span id="L1784" class="LineNr">1784 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1785" class="LineNr">1785 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1786" class="LineNr">1786 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1788" class="LineNr">1788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1789" class="LineNr">1789 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1790" class="LineNr">1790 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1791" class="LineNr">1791 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1792" class="LineNr">1792 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1793" class="LineNr">1793 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1794" class="LineNr">1794 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1796" class="LineNr">1796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1797" class="LineNr">1797 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1798" class="LineNr">1798 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1799" class="LineNr">1799 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1801" class="LineNr">1801 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1802" class="LineNr">1802 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1803" class="LineNr">1803 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1804" class="LineNr">1804 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1805" class="LineNr">1805 </span> bb/copy-to-ebx 1/imm32 +<span id="L1806" class="LineNr">1806 </span> e8/call syscall_exit/disp32 +<span id="L1807" class="LineNr">1807 </span> <span class="subxComment"># never gets here</span> +<span id="L1808" class="LineNr">1808 </span> +<span id="L1809" class="LineNr">1809 </span><span class="Constant">$next-word-or-expression:error2</span>: +<span id="L1810" class="LineNr">1810 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> +<span id="L1811" class="LineNr">1811 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> +<span id="L1812" class="LineNr">1812 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1813" class="LineNr">1813 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 +<span id="L1814" class="LineNr">1814 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1815" class="LineNr">1815 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1816" class="LineNr">1816 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1818" class="LineNr">1818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1819" class="LineNr">1819 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1820" class="LineNr">1820 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1821" class="LineNr">1821 </span> 56/push-esi +<span id="L1822" class="LineNr">1822 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1824" class="LineNr">1824 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1826" class="LineNr">1826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1827" class="LineNr">1827 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1828" class="LineNr">1828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1829" class="LineNr">1829 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1830" class="LineNr">1830 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1832" class="LineNr">1832 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1834" class="LineNr">1834 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1835" class="LineNr">1835 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1837" class="LineNr">1837 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1838" class="LineNr">1838 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1839" class="LineNr">1839 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1840" class="LineNr">1840 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1841" class="LineNr">1841 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1842" class="LineNr">1842 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1843" class="LineNr">1843 </span> bb/copy-to-ebx 1/imm32 +<span id="L1844" class="LineNr">1844 </span> e8/call syscall_exit/disp32 +<span id="L1845" class="LineNr">1845 </span> <span class="subxComment"># never gets here</span> +<span id="L1846" class="LineNr">1846 </span> +<span id="L1847" class="LineNr">1847 </span><span class="subxTest">test-next-word-or-expression</span>: +<span id="L1848" class="LineNr">1848 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1849" class="LineNr">1849 </span> 55/push-ebp +<span id="L1850" class="LineNr">1850 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1851" class="LineNr">1851 </span> <span class="subxComment"># setup</span> +<span id="L1852" class="LineNr">1852 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1853" class="LineNr">1853 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1854" class="LineNr">1854 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1855" class="LineNr">1855 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1856" class="LineNr">1856 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1857" class="LineNr">1857 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1858" class="LineNr">1858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1859" class="LineNr">1859 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1860" class="LineNr">1860 </span> 68/push 0/imm32/end +<span id="L1861" class="LineNr">1861 </span> 68/push 0/imm32/start +<span id="L1862" class="LineNr">1862 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> +<span id="L1864" class="LineNr">1864 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1865" class="LineNr">1865 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L1866" class="LineNr">1866 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1867" class="LineNr">1867 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1868" class="LineNr">1868 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1870" class="LineNr">1870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1871" class="LineNr">1871 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L1872" class="LineNr">1872 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1873" class="LineNr">1873 </span> 51/push-ecx +<span id="L1874" class="LineNr">1874 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1875" class="LineNr">1875 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1876" class="LineNr">1876 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L1877" class="LineNr">1877 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1878" class="LineNr">1878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1879" class="LineNr">1879 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> +<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1881" class="LineNr">1881 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1882" class="LineNr">1882 </span> 68/push 4/imm32 +<span id="L1883" class="LineNr">1883 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1884" class="LineNr">1884 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1886" class="LineNr">1886 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1887" class="LineNr">1887 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1888" class="LineNr">1888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1889" class="LineNr">1889 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1890" class="LineNr">1890 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> +<span id="L1891" class="LineNr">1891 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1892" class="LineNr">1892 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>: start"</span>/imm32 +<span id="L1893" class="LineNr">1893 </span> 68/push 0xe/imm32 +<span id="L1894" class="LineNr">1894 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1895" class="LineNr">1895 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L1896" class="LineNr">1896 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1897" class="LineNr">1897 </span> 50/push-eax +<span id="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1899" class="LineNr">1899 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1901" class="LineNr">1901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1902" class="LineNr">1902 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> +<span id="L1903" class="LineNr">1903 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, msg)</span> +<span id="L1904" class="LineNr">1904 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1905" class="LineNr">1905 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>: end"</span>/imm32 +<span id="L1906" class="LineNr">1906 </span> 68/push 0x10/imm32 +<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1908" class="LineNr">1908 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L1909" class="LineNr">1909 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1910" class="LineNr">1910 </span> 50/push-eax +<span id="L1911" class="LineNr">1911 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1912" class="LineNr">1912 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1914" class="LineNr">1914 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1915" class="LineNr">1915 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1916" class="LineNr">1916 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1917" class="LineNr">1917 </span> 5d/pop-to-ebp +<span id="L1918" class="LineNr">1918 </span> c3/return +<span id="L1919" class="LineNr">1919 </span> +<span id="L1920" class="LineNr">1920 </span><span class="subxTest">test-next-word-or-expression-returns-whole-comment</span>: +<span id="L1921" class="LineNr">1921 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1922" class="LineNr">1922 </span> 55/push-ebp +<span id="L1923" class="LineNr">1923 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1924" class="LineNr">1924 </span> <span class="subxComment"># setup</span> +<span id="L1925" class="LineNr">1925 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1926" class="LineNr">1926 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1927" class="LineNr">1927 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1929" class="LineNr">1929 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1930" class="LineNr">1930 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1931" class="LineNr">1931 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1932" class="LineNr">1932 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1933" class="LineNr">1933 </span> 68/push 0/imm32/end +<span id="L1934" class="LineNr">1934 </span> 68/push 0/imm32/start +<span id="L1935" class="LineNr">1935 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1936" class="LineNr">1936 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> +<span id="L1937" class="LineNr">1937 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1938" class="LineNr">1938 </span> 68/push <span class="Constant">" # a"</span>/imm32 +<span id="L1939" class="LineNr">1939 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1940" class="LineNr">1940 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1941" class="LineNr">1941 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1942" class="LineNr">1942 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1943" class="LineNr">1943 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1944" class="LineNr">1944 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L1945" class="LineNr">1945 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1946" class="LineNr">1946 </span> 51/push-ecx +<span id="L1947" class="LineNr">1947 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1948" class="LineNr">1948 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1949" class="LineNr">1949 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1951" class="LineNr">1951 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1952" class="LineNr">1952 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, msg)</span> +<span id="L1953" class="LineNr">1953 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1954" class="LineNr">1954 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1955" class="LineNr">1955 </span> 68/push 5/imm32 +<span id="L1956" class="LineNr">1956 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1957" class="LineNr">1957 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1958" class="LineNr">1958 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1959" class="LineNr">1959 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1960" class="LineNr">1960 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1961" class="LineNr">1961 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1962" class="LineNr">1962 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1963" class="LineNr">1963 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> +<span id="L1964" class="LineNr">1964 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1965" class="LineNr">1965 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>: start"</span>/imm32 +<span id="L1966" class="LineNr">1966 </span> 68/push 0xe/imm32 +<span id="L1967" class="LineNr">1967 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1968" class="LineNr">1968 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L1969" class="LineNr">1969 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1970" class="LineNr">1970 </span> 50/push-eax +<span id="L1971" class="LineNr">1971 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1972" class="LineNr">1972 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1973" class="LineNr">1973 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1974" class="LineNr">1974 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1975" class="LineNr">1975 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> +<span id="L1976" class="LineNr">1976 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> +<span id="L1977" class="LineNr">1977 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1978" class="LineNr">1978 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>: end"</span>/imm32 +<span id="L1979" class="LineNr">1979 </span> 68/push 0x11/imm32 +<span id="L1980" class="LineNr">1980 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1981" class="LineNr">1981 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L1982" class="LineNr">1982 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1983" class="LineNr">1983 </span> 50/push-eax +<span id="L1984" class="LineNr">1984 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1985" class="LineNr">1985 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1986" class="LineNr">1986 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1987" class="LineNr">1987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1988" class="LineNr">1988 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1989" class="LineNr">1989 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1990" class="LineNr">1990 </span> 5d/pop-to-ebp +<span id="L1991" class="LineNr">1991 </span> c3/return +<span id="L1992" class="LineNr">1992 </span> +<span id="L1993" class="LineNr">1993 </span><span class="subxTest">test-next-word-or-expression-returns-empty-slice-on-eof</span>: +<span id="L1994" class="LineNr">1994 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1995" class="LineNr">1995 </span> 55/push-ebp +<span id="L1996" class="LineNr">1996 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1997" class="LineNr">1997 </span> <span class="subxComment"># setup</span> +<span id="L1998" class="LineNr">1998 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2000" class="LineNr">2000 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2002" class="LineNr">2002 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2003" class="LineNr">2003 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2004" class="LineNr">2004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2005" class="LineNr">2005 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2006" class="LineNr">2006 </span> 68/push 0/imm32/end +<span id="L2007" class="LineNr">2007 </span> 68/push 0/imm32/start +<span id="L2008" class="LineNr">2008 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2009" class="LineNr">2009 </span> <span class="subxComment"># write nothing to _test-input-stream</span> +<span id="L2010" class="LineNr">2010 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2011" class="LineNr">2011 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2012" class="LineNr">2012 </span> 51/push-ecx +<span id="L2013" class="LineNr">2013 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2014" class="LineNr">2014 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2015" class="LineNr">2015 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L2016" class="LineNr">2016 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2017" class="LineNr">2017 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2018" class="LineNr">2018 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2020" class="LineNr">2020 </span> 68/push <span class="Constant">"F - test-next-word-or-expression-returns-empty-expression-on-eof"</span>/imm32 +<span id="L2021" class="LineNr">2021 </span> 68/push 0/imm32 +<span id="L2022" class="LineNr">2022 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L2023" class="LineNr">2023 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2024" class="LineNr">2024 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> +<span id="L2025" class="LineNr">2025 </span> 50/push-eax +<span id="L2026" class="LineNr">2026 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2027" class="LineNr">2027 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2028" class="LineNr">2028 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2029" class="LineNr">2029 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2030" class="LineNr">2030 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2031" class="LineNr">2031 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2032" class="LineNr">2032 </span> 5d/pop-to-ebp +<span id="L2033" class="LineNr">2033 </span> c3/return +<span id="L2034" class="LineNr">2034 </span> +<span id="L2035" class="LineNr">2035 </span><span class="subxTest">test-next-word-or-expression-returns-string-literal</span>: +<span id="L2036" class="LineNr">2036 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2037" class="LineNr">2037 </span> 55/push-ebp +<span id="L2038" class="LineNr">2038 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2039" class="LineNr">2039 </span> <span class="subxComment"># setup</span> +<span id="L2040" class="LineNr">2040 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2041" class="LineNr">2041 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2042" class="LineNr">2042 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2044" class="LineNr">2044 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2045" class="LineNr">2045 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2046" class="LineNr">2046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2047" class="LineNr">2047 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2048" class="LineNr">2048 </span> 68/push 0/imm32/end +<span id="L2049" class="LineNr">2049 </span> 68/push 0/imm32/start +<span id="L2050" class="LineNr">2050 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2051" class="LineNr">2051 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\"/imm32 ")</span> +<span id="L2052" class="LineNr">2052 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2053" class="LineNr">2053 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">"/imm32 "</span>/imm32 +<span id="L2054" class="LineNr">2054 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2055" class="LineNr">2055 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2056" class="LineNr">2056 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2057" class="LineNr">2057 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2058" class="LineNr">2058 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2059" class="LineNr">2059 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2060" class="LineNr">2060 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2061" class="LineNr">2061 </span> 51/push-ecx +<span id="L2062" class="LineNr">2062 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2064" class="LineNr">2064 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L2065" class="LineNr">2065 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2066" class="LineNr">2066 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2067" class="LineNr">2067 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2068" class="LineNr">2068 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2070" class="LineNr">2070 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2035'>test-next-word-or-expression-returns-string-literal</a>: start"</span>/imm32 +<span id="L2071" class="LineNr">2071 </span> 68/push 0xd/imm32 +<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2073" class="LineNr">2073 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2074" class="LineNr">2074 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2075" class="LineNr">2075 </span> 50/push-eax +<span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2077" class="LineNr">2077 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2079" class="LineNr">2079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2080" class="LineNr">2080 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 12, msg)</span> +<span id="L2081" class="LineNr">2081 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 24, msg)</span> +<span id="L2082" class="LineNr">2082 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2083" class="LineNr">2083 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2035'>test-next-word-or-expression-returns-string-literal</a>: end"</span>/imm32 +<span id="L2084" class="LineNr">2084 </span> 68/push 0x18/imm32 +<span id="L2085" class="LineNr">2085 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2086" class="LineNr">2086 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2087" class="LineNr">2087 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2088" class="LineNr">2088 </span> 50/push-eax +<span id="L2089" class="LineNr">2089 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2090" class="LineNr">2090 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2092" class="LineNr">2092 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2093" class="LineNr">2093 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2094" class="LineNr">2094 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2095" class="LineNr">2095 </span> 5d/pop-to-ebp +<span id="L2096" class="LineNr">2096 </span> c3/return +<span id="L2097" class="LineNr">2097 </span> +<span id="L2098" class="LineNr">2098 </span><span class="subxTest">test-next-word-or-expression-returns-string-with-escapes</span>: +<span id="L2099" class="LineNr">2099 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2100" class="LineNr">2100 </span> 55/push-ebp +<span id="L2101" class="LineNr">2101 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2102" class="LineNr">2102 </span> <span class="subxComment"># setup</span> +<span id="L2103" class="LineNr">2103 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2104" class="LineNr">2104 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2105" class="LineNr">2105 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2107" class="LineNr">2107 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2109" class="LineNr">2109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2110" class="LineNr">2110 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2111" class="LineNr">2111 </span> 68/push 0/imm32/end +<span id="L2112" class="LineNr">2112 </span> 68/push 0/imm32/start +<span id="L2113" class="LineNr">2113 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2114" class="LineNr">2114 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"/x")</span> +<span id="L2115" class="LineNr">2115 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2116" class="LineNr">2116 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>/x"/imm32 +<span id="L2117" class="LineNr">2117 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2118" class="LineNr">2118 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2119" class="LineNr">2119 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2120" class="LineNr">2120 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2121" class="LineNr">2121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2122" class="LineNr">2122 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2124" class="LineNr">2124 </span> 51/push-ecx +<span id="L2125" class="LineNr">2125 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2126" class="LineNr">2126 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2127" class="LineNr">2127 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L2128" class="LineNr">2128 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2129" class="LineNr">2129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2130" class="LineNr">2130 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2131" class="LineNr">2131 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2132" class="LineNr">2132 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2133" class="LineNr">2133 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2098'>test-next-word-or-expression-returns-string-with-escapes</a>: start"</span>/imm32 +<span id="L2134" class="LineNr">2134 </span> 68/push 0xd/imm32 +<span id="L2135" class="LineNr">2135 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2136" class="LineNr">2136 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2137" class="LineNr">2137 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2138" class="LineNr">2138 </span> 50/push-eax +<span id="L2139" class="LineNr">2139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2140" class="LineNr">2140 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2142" class="LineNr">2142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 9, msg)</span> +<span id="L2144" class="LineNr">2144 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 21, msg)</span> +<span id="L2145" class="LineNr">2145 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2146" class="LineNr">2146 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2098'>test-next-word-or-expression-returns-string-with-escapes</a>: end"</span>/imm32 +<span id="L2147" class="LineNr">2147 </span> 68/push 0x15/imm32 +<span id="L2148" class="LineNr">2148 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2149" class="LineNr">2149 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2150" class="LineNr">2150 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2151" class="LineNr">2151 </span> 50/push-eax +<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2153" class="LineNr">2153 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2155" class="LineNr">2155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2156" class="LineNr">2156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2157" class="LineNr">2157 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2158" class="LineNr">2158 </span> 5d/pop-to-ebp +<span id="L2159" class="LineNr">2159 </span> c3/return +<span id="L2160" class="LineNr">2160 </span> +<span id="L2161" class="LineNr">2161 </span><span class="subxTest">test-next-word-or-expression-returns-whole-expression</span>: +<span id="L2162" class="LineNr">2162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2163" class="LineNr">2163 </span> 55/push-ebp +<span id="L2164" class="LineNr">2164 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2165" class="LineNr">2165 </span> <span class="subxComment"># setup</span> +<span id="L2166" class="LineNr">2166 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2167" class="LineNr">2167 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2168" class="LineNr">2168 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2169" class="LineNr">2169 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2170" class="LineNr">2170 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2171" class="LineNr">2171 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2172" class="LineNr">2172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2173" class="LineNr">2173 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2174" class="LineNr">2174 </span> 68/push 0/imm32/end +<span id="L2175" class="LineNr">2175 </span> 68/push 0/imm32/start +<span id="L2176" class="LineNr">2176 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2177" class="LineNr">2177 </span> <span class="subxComment"># write(_test-input-stream, " *(a b)/imm32 ")</span> +<span id="L2178" class="LineNr">2178 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2179" class="LineNr">2179 </span> 68/push <span class="Constant">" *(a b)/imm32 "</span>/imm32 +<span id="L2180" class="LineNr">2180 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2181" class="LineNr">2181 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2182" class="LineNr">2182 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2183" class="LineNr">2183 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2184" class="LineNr">2184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2185" class="LineNr">2185 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2186" class="LineNr">2186 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2187" class="LineNr">2187 </span> 51/push-ecx +<span id="L2188" class="LineNr">2188 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2190" class="LineNr">2190 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 +<span id="L2191" class="LineNr">2191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2192" class="LineNr">2192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2193" class="LineNr">2193 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2194" class="LineNr">2194 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2195" class="LineNr">2195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2196" class="LineNr">2196 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2161'>test-next-word-or-expression-returns-whole-expression</a>: start"</span>/imm32 +<span id="L2197" class="LineNr">2197 </span> 68/push 0xd/imm32 +<span id="L2198" class="LineNr">2198 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2199" class="LineNr">2199 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2200" class="LineNr">2200 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2201" class="LineNr">2201 </span> 50/push-eax +<span id="L2202" class="LineNr">2202 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2203" class="LineNr">2203 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2204" class="LineNr">2204 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2205" class="LineNr">2205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2206" class="LineNr">2206 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 13, msg)</span> +<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 25, msg)</span> +<span id="L2208" class="LineNr">2208 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2209" class="LineNr">2209 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2161'>test-next-word-or-expression-returns-whole-expression</a>: end"</span>/imm32 +<span id="L2210" class="LineNr">2210 </span> 68/push 0x19/imm32 +<span id="L2211" class="LineNr">2211 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2212" class="LineNr">2212 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2213" class="LineNr">2213 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2214" class="LineNr">2214 </span> 50/push-eax +<span id="L2215" class="LineNr">2215 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2216" class="LineNr">2216 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2218" class="LineNr">2218 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2219" class="LineNr">2219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2220" class="LineNr">2220 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2221" class="LineNr">2221 </span> 5d/pop-to-ebp +<span id="L2222" class="LineNr">2222 </span> c3/return +<span id="L2223" class="LineNr">2223 </span> +<span id="L2224" class="LineNr">2224 </span><span class="subxComment"># Grammar:</span> +<span id="L2225" class="LineNr">2225 </span><span class="subxComment"># *reg -> 0/mod reg/rm32</span> +<span id="L2226" class="LineNr">2226 </span><span class="subxComment"># *(reg) -> 0/mod reg/rm32</span> +<span id="L2227" class="LineNr">2227 </span><span class="subxComment"># *(reg+disp) -> 2/mod reg/rm32 disp/disp32</span> +<span id="L2228" class="LineNr">2228 </span><span class="subxComment"># *(reg1+reg2<<s) -> 2/mod 4/rm32 reg1/base reg2/index s/scale 0/disp32</span> +<span id="L2229" class="LineNr">2229 </span><span class="subxComment"># *(reg1+reg2<<s+disp) -> 2/mod 4/rm32 reg1/base reg2/index s/scale disp/disp32</span> +<span id="L2230" class="LineNr">2230 </span><span class="subxComment"># Intermediate structure: base, index, scale, disp</span> +<span id="L2231" class="LineNr">2231 </span><span class="subxComment"># Default values: base: 0, index: 4 (none), scale: 0, disp: 0</span> +<span id="L2232" class="LineNr">2232 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice: (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span> +<span id="L2233" class="LineNr">2233 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2234" class="LineNr">2234 </span> <span class="subxComment"># var local-slice = {word-slice->start, word-slice->end}</span> +<span id="L2235" class="LineNr">2235 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L2236" class="LineNr">2236 </span> <span class="subxComment"># initialize defaults: base=0, index=4, scale=0, disp=0</span> +<span id="L2237" class="LineNr">2237 </span> <span class="subxComment"># if (*local-slice->start != '(') {</span> +<span id="L2238" class="LineNr">2238 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2240" class="LineNr">2240 </span> <span class="subxComment"># return</span> +<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># }</span> +<span id="L2242" class="LineNr">2242 </span> <span class="subxComment"># # compound expressions</span> <span id="L2243" class="LineNr">2243 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2244" class="LineNr">2244 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2245" class="LineNr">2245 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> -<span id="L2246" class="LineNr">2246 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> -<span id="L2247" class="LineNr">2247 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> -<span id="L2248" class="LineNr">2248 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> -<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># read register into index</span> -<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># if (*local-slice->start == '<') {</span> -<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2244" class="LineNr">2244 </span> <span class="subxComment"># read register into base</span> +<span id="L2245" class="LineNr">2245 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2246" class="LineNr">2246 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2247" class="LineNr">2247 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> +<span id="L2248" class="LineNr">2248 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> +<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> +<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> +<span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># read register into index</span> +<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># if (*local-slice->start == '<') {</span> <span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># read integer into scale</span> +<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> <span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2261" class="LineNr">2261 </span> <span class="subxComment"># }</span> -<span id="L2262" class="LineNr">2262 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> -<span id="L2263" class="LineNr">2263 </span> <span class="subxComment"># displacement:</span> -<span id="L2264" class="LineNr">2264 </span> <span class="subxComment"># read integer into disp</span> -<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> -<span id="L2267" class="LineNr">2267 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2268" class="LineNr">2268 </span> 55/push-ebp -<span id="L2269" class="LineNr">2269 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2270" class="LineNr">2270 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2271" class="LineNr">2271 </span> 56/push-esi -<span id="L2272" class="LineNr">2272 </span> 57/push-edi -<span id="L2273" class="LineNr">2273 </span> <span class="subxComment"># var local-slice/esi: slice = {word-slice->start, word-slice->end}</span> -<span id="L2274" class="LineNr">2274 </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="L2275" class="LineNr">2275 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2276" class="LineNr">2276 </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="L2277" class="LineNr">2277 </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="L2278" class="LineNr">2278 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L2279" class="LineNr">2279 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2280" class="LineNr">2280 </span> <span class="subxComment"># initialize defaults</span> -<span id="L2281" class="LineNr">2281 </span> <span class="subxComment"># base is in edi; we'll move it to eax just before we return</span> -<span id="L2282" class="LineNr">2282 </span> bf/copy-to-edi 0/imm32 -<span id="L2283" class="LineNr">2283 </span> b9/copy-to-ecx 4/imm32/no-index -<span id="L2284" class="LineNr">2284 </span> ba/copy-to-edx 0/imm32/.scale -<span id="L2285" class="LineNr">2285 </span> bb/copy-to-ebx 0/imm32/disp -<span id="L2286" class="LineNr">2286 </span><span class="Constant">$parse-effective-address:check-for-simple-register</span>: -<span id="L2287" class="LineNr">2287 </span> <span class="subxComment"># if (*local-slice->start == '(') goto compound expression</span> -<span id="L2288" class="LineNr">2288 </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="L2289" class="LineNr">2289 </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="L2290" class="LineNr">2290 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2291" class="LineNr">2291 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L2292" class="LineNr">2292 </span> 74/jump-if-= $parse-effective-address:compound-expression/disp8 -<span id="L2293" class="LineNr">2293 </span><span class="Constant">$parse-effective-address:simple-register</span>: -<span id="L2294" class="LineNr">2294 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L2295" class="LineNr">2295 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2296" class="LineNr">2296 </span> 56/push-esi -<span id="L2297" class="LineNr">2297 </span> 68/push 0x2f/imm32/slash -<span id="L2298" class="LineNr">2298 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2299" class="LineNr">2299 </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="L2300" class="LineNr">2300 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2301" class="LineNr">2301 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2302" class="LineNr">2302 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2303" class="LineNr">2303 </span> 81 0/subop/add 3/mod/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="L2304" class="LineNr">2304 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2305" class="LineNr">2305 </span> <span class="subxS1Comment"># . eax = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2306" class="LineNr">2306 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2307" class="LineNr">2307 </span> 68/push <span class="Constant">"Registers"</span>/imm32 -<span id="L2308" class="LineNr">2308 </span> 68/push 0xc/imm32/row-size -<span id="L2309" class="LineNr">2309 </span> 56/push-esi -<span id="L2310" class="LineNr">2310 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2311" class="LineNr">2311 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2312" class="LineNr">2312 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L2313" class="LineNr">2313 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2314" class="LineNr">2314 </span> 81 0/subop/add 3/mod/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="L2315" class="LineNr">2315 </span> <span class="subxS1Comment"># . base = *eax</span> -<span id="L2316" class="LineNr">2316 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> -<span id="L2317" class="LineNr">2317 </span> <span class="subxComment"># return</span> -<span id="L2318" class="LineNr">2318 </span> e9/jump $parse-effective-address:end/disp32 -<span id="L2319" class="LineNr">2319 </span><span class="Constant">$parse-effective-address:compound-expression</span>: -<span id="L2320" class="LineNr">2320 </span> <span class="subxComment"># ++local-slice->start to skip '('</span> -<span id="L2321" class="LineNr">2321 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2322" class="LineNr">2322 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2323" class="LineNr">2323 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2324" class="LineNr">2324 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2325" class="LineNr">2325 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2326" class="LineNr">2326 </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="L2327" class="LineNr">2327 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2328" class="LineNr">2328 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2329" class="LineNr">2329 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2330" class="LineNr">2330 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2331" class="LineNr">2331 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2332" class="LineNr">2332 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2333" class="LineNr">2333 </span> <span class="subxComment"># read register into base</span> -<span id="L2334" class="LineNr">2334 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> -<span id="L2335" class="LineNr">2335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2336" class="LineNr">2336 </span> 56/push-esi -<span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2338" class="LineNr">2338 </span> e8/call <a href='sigils.subx.html#L2689'>next-register</a>/disp32 -<span id="L2339" class="LineNr">2339 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2340" class="LineNr">2340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2341" class="LineNr">2341 </span> <span class="subxS1Comment"># . edi = *eax</span> -<span id="L2342" class="LineNr">2342 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> -<span id="L2343" class="LineNr">2343 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2344" class="LineNr">2344 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2345" class="LineNr">2345 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2346" class="LineNr">2346 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2347" class="LineNr">2347 </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="L2348" class="LineNr">2348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2349" class="LineNr">2349 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2350" class="LineNr">2350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2351" class="LineNr">2351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2352" class="LineNr">2352 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2353" class="LineNr">2353 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2354" class="LineNr">2354 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2355" class="LineNr">2355 </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="L2356" class="LineNr">2356 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2357" class="LineNr">2357 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2358" class="LineNr">2358 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 -<span id="L2359" class="LineNr">2359 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> -<span id="L2360" class="LineNr">2360 </span> 3d/compare-eax-and 0x2d/imm32/minus -<span id="L2361" class="LineNr">2361 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 -<span id="L2362" class="LineNr">2362 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> -<span id="L2363" class="LineNr">2363 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L2364" class="LineNr">2364 </span> 0f 85/jump-if-!= $parse-effective-address:error1/disp32 -<span id="L2365" class="LineNr">2365 </span><span class="Constant">$parse-effective-address:check-for-index</span>: -<span id="L2366" class="LineNr">2366 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> -<span id="L2367" class="LineNr">2367 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2368" class="LineNr">2368 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2369" class="LineNr">2369 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2370" class="LineNr">2370 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2371" class="LineNr">2371 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2372" class="LineNr">2372 </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="L2373" class="LineNr">2373 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2374" class="LineNr">2374 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2375" class="LineNr">2375 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2376" class="LineNr">2376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2377" class="LineNr">2377 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2378" class="LineNr">2378 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2379" class="LineNr">2379 </span><span class="Constant">$parse-effective-address:resolve-ambiguity</span>: -<span id="L2380" class="LineNr">2380 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> -<span id="L2381" class="LineNr">2381 </span> <span class="subxS1Comment"># . spill ecx</span> -<span id="L2382" class="LineNr">2382 </span> 51/push-ecx -<span id="L2383" class="LineNr">2383 </span> <span class="subxS1Comment"># . var tmp/ecx = {local-slice->start, local-slice->start+3}</span> -<span id="L2384" class="LineNr">2384 </span> <span class="subxS2Comment"># . . ecx = local-slice->start</span> -<span id="L2385" class="LineNr">2385 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L2386" class="LineNr">2386 </span> <span class="subxS2Comment"># . . eax = local-slice->start+3</span> -<span id="L2387" class="LineNr">2387 </span> 05/add-to-eax 3/imm32 -<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . push</span> -<span id="L2389" class="LineNr">2389 </span> 50/push-eax -<span id="L2390" class="LineNr">2390 </span> 51/push-ecx -<span id="L2391" class="LineNr">2391 </span> <span class="subxS2Comment"># . . copy esp to ecx</span> -<span id="L2392" class="LineNr">2392 </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="L2393" class="LineNr">2393 </span> <span class="subxS1Comment"># . eax = maybe-get-slice(Register, tmp, row-size=12)</span> -<span id="L2394" class="LineNr">2394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2395" class="LineNr">2395 </span> 68/push 0xc/imm32/row-size -<span id="L2396" class="LineNr">2396 </span> 51/push-ecx -<span id="L2397" class="LineNr">2397 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2399" class="LineNr">2399 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L2400" class="LineNr">2400 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2401" class="LineNr">2401 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2402" class="LineNr">2402 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L2403" class="LineNr">2403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2404" class="LineNr">2404 </span> <span class="subxS1Comment"># . restore ecx</span> -<span id="L2405" class="LineNr">2405 </span> 59/pop-to-ecx -<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . if (eax == 0) goto displacement</span> -<span id="L2407" class="LineNr">2407 </span> 3d/compare-eax-and 0/imm32 -<span id="L2408" class="LineNr">2408 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 -<span id="L2409" class="LineNr">2409 </span><span class="Constant">$parse-effective-address:index</span>: -<span id="L2410" class="LineNr">2410 </span> <span class="subxComment"># read register into index</span> -<span id="L2411" class="LineNr">2411 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> -<span id="L2412" class="LineNr">2412 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2413" class="LineNr">2413 </span> 56/push-esi -<span id="L2414" class="LineNr">2414 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2415" class="LineNr">2415 </span> e8/call <a href='sigils.subx.html#L2689'>next-register</a>/disp32 -<span id="L2416" class="LineNr">2416 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2417" class="LineNr">2417 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2418" class="LineNr">2418 </span> <span class="subxS1Comment"># . ecx = *eax</span> -<span id="L2419" class="LineNr">2419 </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="L2420" class="LineNr">2420 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2421" class="LineNr">2421 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2422" class="LineNr">2422 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2423" class="LineNr">2423 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2424" class="LineNr">2424 </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="L2425" class="LineNr">2425 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2426" class="LineNr">2426 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2427" class="LineNr">2427 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2428" class="LineNr">2428 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2429" class="LineNr">2429 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2430" class="LineNr">2430 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2431" class="LineNr">2431 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2432" class="LineNr">2432 </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="L2433" class="LineNr">2433 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2434" class="LineNr">2434 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2435" class="LineNr">2435 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 -<span id="L2436" class="LineNr">2436 </span><span class="Constant">$parse-effective-address:check-for-scale</span>: -<span id="L2437" class="LineNr">2437 </span> <span class="subxComment"># if (*local-slice->start != '<') goto next check</span> -<span id="L2438" class="LineNr">2438 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L2439" class="LineNr">2439 </span> 75/jump-if-!= $parse-effective-address:check-for-displacement/disp8 -<span id="L2440" class="LineNr">2440 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2441" class="LineNr">2441 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2442" class="LineNr">2442 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> -<span id="L2443" class="LineNr">2443 </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="L2444" class="LineNr">2444 </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="L2445" class="LineNr">2445 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2446" class="LineNr">2446 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L2447" class="LineNr">2447 </span> 0f 85/jump-if-!= $parse-effective-address:error2/disp32 -<span id="L2448" class="LineNr">2448 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2449" class="LineNr">2449 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2450" class="LineNr">2450 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2451" class="LineNr">2451 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2452" class="LineNr">2452 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2453" class="LineNr">2453 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2454" class="LineNr">2454 </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="L2455" class="LineNr">2455 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2456" class="LineNr">2456 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2457" class="LineNr">2457 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2458" class="LineNr">2458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2459" class="LineNr">2459 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2460" class="LineNr">2460 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2461" class="LineNr">2461 </span><span class="Constant">$parse-effective-address:scale</span>: -<span id="L2462" class="LineNr">2462 </span> <span class="subxComment"># read positive integer into scale</span> -<span id="L2463" class="LineNr">2463 </span> <span class="subxS1Comment"># . eax = next-positive-hex-int(local-slice)</span> -<span id="L2464" class="LineNr">2464 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2465" class="LineNr">2465 </span> 56/push-esi -<span id="L2466" class="LineNr">2466 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2467" class="LineNr">2467 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2469" class="LineNr">2469 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2470" class="LineNr">2470 </span> <span class="subxS1Comment"># . edx = eax</span> -<span id="L2471" class="LineNr">2471 </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="L2472" class="LineNr">2472 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2473" class="LineNr">2473 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2474" class="LineNr">2474 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2475" class="LineNr">2475 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2476" class="LineNr">2476 </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="L2477" class="LineNr">2477 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2478" class="LineNr">2478 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2479" class="LineNr">2479 </span> <span class="subxS2Comment"># . . discard args</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"># . local-slice->start = eax</span> -<span id="L2482" class="LineNr">2482 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2483" class="LineNr">2483 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2484" class="LineNr">2484 </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="L2485" class="LineNr">2485 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2486" class="LineNr">2486 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2487" class="LineNr">2487 </span> 74/jump-if-= $parse-effective-address:end/disp8 -<span id="L2488" class="LineNr">2488 </span><span class="Constant">$parse-effective-address:check-for-displacement</span>: -<span id="L2489" class="LineNr">2489 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> -<span id="L2490" class="LineNr">2490 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L2491" class="LineNr">2491 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 -<span id="L2492" class="LineNr">2492 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># read integer into scale</span> +<span id="L2261" class="LineNr">2261 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2262" class="LineNr">2262 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2263" class="LineNr">2263 </span> <span class="subxComment"># }</span> +<span id="L2264" class="LineNr">2264 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> +<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># displacement:</span> +<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># read integer into disp</span> +<span id="L2267" class="LineNr">2267 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2268" class="LineNr">2268 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> +<span id="L2269" class="LineNr">2269 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2270" class="LineNr">2270 </span> 55/push-ebp +<span id="L2271" class="LineNr">2271 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2272" class="LineNr">2272 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2273" class="LineNr">2273 </span> 56/push-esi +<span id="L2274" class="LineNr">2274 </span> 57/push-edi +<span id="L2275" class="LineNr">2275 </span> <span class="subxComment"># var local-slice/esi: slice = {word-slice->start, word-slice->end}</span> +<span id="L2276" class="LineNr">2276 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2277" class="LineNr">2277 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2278" class="LineNr">2278 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2279" class="LineNr">2279 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L2280" class="LineNr">2280 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L2281" class="LineNr">2281 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2282" class="LineNr">2282 </span> <span class="subxComment"># initialize defaults</span> +<span id="L2283" class="LineNr">2283 </span> <span class="subxComment"># base is in edi; we'll move it to eax just before we return</span> +<span id="L2284" class="LineNr">2284 </span> bf/copy-to-edi 0/imm32 +<span id="L2285" class="LineNr">2285 </span> b9/copy-to-ecx 4/imm32/no-index +<span id="L2286" class="LineNr">2286 </span> ba/copy-to-edx 0/imm32/.scale +<span id="L2287" class="LineNr">2287 </span> bb/copy-to-ebx 0/imm32/disp +<span id="L2288" class="LineNr">2288 </span><span class="Constant">$parse-effective-address:check-for-simple-register</span>: +<span id="L2289" class="LineNr">2289 </span> <span class="subxComment"># if (*local-slice->start == '(') goto compound expression</span> +<span id="L2290" class="LineNr">2290 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2291" class="LineNr">2291 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2292" class="LineNr">2292 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2293" class="LineNr">2293 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L2294" class="LineNr">2294 </span> 74/jump-if-= $parse-effective-address:compound-expression/disp8 +<span id="L2295" class="LineNr">2295 </span><span class="Constant">$parse-effective-address:simple-register</span>: +<span id="L2296" class="LineNr">2296 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L2297" class="LineNr">2297 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2298" class="LineNr">2298 </span> 56/push-esi +<span id="L2299" class="LineNr">2299 </span> 68/push 0x2f/imm32/slash +<span id="L2300" class="LineNr">2300 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2301" class="LineNr">2301 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2302" class="LineNr">2302 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2303" class="LineNr">2303 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2304" class="LineNr">2304 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2305" class="LineNr">2305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2306" class="LineNr">2306 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2307" class="LineNr">2307 </span> <span class="subxS1Comment"># . eax = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2308" class="LineNr">2308 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2309" class="LineNr">2309 </span> 68/push <span class="Constant">"Registers"</span>/imm32 +<span id="L2310" class="LineNr">2310 </span> 68/push 0xc/imm32/row-size +<span id="L2311" class="LineNr">2311 </span> 56/push-esi +<span id="L2312" class="LineNr">2312 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2313" class="LineNr">2313 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2314" class="LineNr">2314 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L2315" class="LineNr">2315 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2316" class="LineNr">2316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2317" class="LineNr">2317 </span> <span class="subxS1Comment"># . base = *eax</span> +<span id="L2318" class="LineNr">2318 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> +<span id="L2319" class="LineNr">2319 </span> <span class="subxComment"># return</span> +<span id="L2320" class="LineNr">2320 </span> e9/jump $parse-effective-address:end/disp32 +<span id="L2321" class="LineNr">2321 </span><span class="Constant">$parse-effective-address:compound-expression</span>: +<span id="L2322" class="LineNr">2322 </span> <span class="subxComment"># ++local-slice->start to skip '('</span> +<span id="L2323" class="LineNr">2323 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2324" class="LineNr">2324 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2325" class="LineNr">2325 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2326" class="LineNr">2326 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2327" class="LineNr">2327 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2328" class="LineNr">2328 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2329" class="LineNr">2329 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2330" class="LineNr">2330 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2331" class="LineNr">2331 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2332" class="LineNr">2332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2333" class="LineNr">2333 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2334" class="LineNr">2334 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2335" class="LineNr">2335 </span> <span class="subxComment"># read register into base</span> +<span id="L2336" class="LineNr">2336 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> +<span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2338" class="LineNr">2338 </span> 56/push-esi +<span id="L2339" class="LineNr">2339 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2340" class="LineNr">2340 </span> e8/call <a href='sigils.subx.html#L2691'>next-register</a>/disp32 +<span id="L2341" class="LineNr">2341 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2342" class="LineNr">2342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2343" class="LineNr">2343 </span> <span class="subxS1Comment"># . edi = *eax</span> +<span id="L2344" class="LineNr">2344 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> +<span id="L2345" class="LineNr">2345 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2346" class="LineNr">2346 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2347" class="LineNr">2347 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2348" class="LineNr">2348 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2349" class="LineNr">2349 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2350" class="LineNr">2350 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2351" class="LineNr">2351 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2353" class="LineNr">2353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2354" class="LineNr">2354 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2355" class="LineNr">2355 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2356" class="LineNr">2356 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2357" class="LineNr">2357 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2358" class="LineNr">2358 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2359" class="LineNr">2359 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2360" class="LineNr">2360 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 +<span id="L2361" class="LineNr">2361 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> +<span id="L2362" class="LineNr">2362 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2363" class="LineNr">2363 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 +<span id="L2364" class="LineNr">2364 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> +<span id="L2365" class="LineNr">2365 </span> 3d/compare-eax-and 0x2b/imm32/plus +<span id="L2366" class="LineNr">2366 </span> 0f 85/jump-if-!= $parse-effective-address:error1/disp32 +<span id="L2367" class="LineNr">2367 </span><span class="Constant">$parse-effective-address:check-for-index</span>: +<span id="L2368" class="LineNr">2368 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> +<span id="L2369" class="LineNr">2369 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2370" class="LineNr">2370 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2371" class="LineNr">2371 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2372" class="LineNr">2372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2373" class="LineNr">2373 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2374" class="LineNr">2374 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2375" class="LineNr">2375 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2376" class="LineNr">2376 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2378" class="LineNr">2378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2379" class="LineNr">2379 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2380" class="LineNr">2380 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2381" class="LineNr">2381 </span><span class="Constant">$parse-effective-address:resolve-ambiguity</span>: +<span id="L2382" class="LineNr">2382 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> +<span id="L2383" class="LineNr">2383 </span> <span class="subxS1Comment"># . spill ecx</span> +<span id="L2384" class="LineNr">2384 </span> 51/push-ecx +<span id="L2385" class="LineNr">2385 </span> <span class="subxS1Comment"># . var tmp/ecx = {local-slice->start, local-slice->start+3}</span> +<span id="L2386" class="LineNr">2386 </span> <span class="subxS2Comment"># . . ecx = local-slice->start</span> +<span id="L2387" class="LineNr">2387 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . eax = local-slice->start+3</span> +<span id="L2389" class="LineNr">2389 </span> 05/add-to-eax 3/imm32 +<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . push</span> +<span id="L2391" class="LineNr">2391 </span> 50/push-eax +<span id="L2392" class="LineNr">2392 </span> 51/push-ecx +<span id="L2393" class="LineNr">2393 </span> <span class="subxS2Comment"># . . copy esp to ecx</span> +<span id="L2394" class="LineNr">2394 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2395" class="LineNr">2395 </span> <span class="subxS1Comment"># . eax = maybe-get-slice(Register, tmp, row-size=12)</span> +<span id="L2396" class="LineNr">2396 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2397" class="LineNr">2397 </span> 68/push 0xc/imm32/row-size +<span id="L2398" class="LineNr">2398 </span> 51/push-ecx +<span id="L2399" class="LineNr">2399 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2400" class="LineNr">2400 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2401" class="LineNr">2401 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2403" class="LineNr">2403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2404" class="LineNr">2404 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . restore ecx</span> +<span id="L2407" class="LineNr">2407 </span> 59/pop-to-ecx +<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . if (eax == 0) goto displacement</span> +<span id="L2409" class="LineNr">2409 </span> 3d/compare-eax-and 0/imm32 +<span id="L2410" class="LineNr">2410 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 +<span id="L2411" class="LineNr">2411 </span><span class="Constant">$parse-effective-address:index</span>: +<span id="L2412" class="LineNr">2412 </span> <span class="subxComment"># read register into index</span> +<span id="L2413" class="LineNr">2413 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> +<span id="L2414" class="LineNr">2414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2415" class="LineNr">2415 </span> 56/push-esi +<span id="L2416" class="LineNr">2416 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2417" class="LineNr">2417 </span> e8/call <a href='sigils.subx.html#L2691'>next-register</a>/disp32 +<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2419" class="LineNr">2419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2420" class="LineNr">2420 </span> <span class="subxS1Comment"># . ecx = *eax</span> +<span id="L2421" class="LineNr">2421 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2422" class="LineNr">2422 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2423" class="LineNr">2423 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2424" class="LineNr">2424 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2425" class="LineNr">2425 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2426" class="LineNr">2426 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2427" class="LineNr">2427 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2428" class="LineNr">2428 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2429" class="LineNr">2429 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2430" class="LineNr">2430 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2431" class="LineNr">2431 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2432" class="LineNr">2432 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2433" class="LineNr">2433 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2434" class="LineNr">2434 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2435" class="LineNr">2435 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2436" class="LineNr">2436 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2437" class="LineNr">2437 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 +<span id="L2438" class="LineNr">2438 </span><span class="Constant">$parse-effective-address:check-for-scale</span>: +<span id="L2439" class="LineNr">2439 </span> <span class="subxComment"># if (*local-slice->start != '<') goto next check</span> +<span id="L2440" class="LineNr">2440 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L2441" class="LineNr">2441 </span> 75/jump-if-!= $parse-effective-address:check-for-displacement/disp8 +<span id="L2442" class="LineNr">2442 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> +<span id="L2443" class="LineNr">2443 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2444" class="LineNr">2444 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2445" class="LineNr">2445 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2446" class="LineNr">2446 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2447" class="LineNr">2447 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2448" class="LineNr">2448 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L2449" class="LineNr">2449 </span> 0f 85/jump-if-!= $parse-effective-address:error2/disp32 +<span id="L2450" class="LineNr">2450 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> +<span id="L2451" class="LineNr">2451 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2452" class="LineNr">2452 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2453" class="LineNr">2453 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2454" class="LineNr">2454 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2455" class="LineNr">2455 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2456" class="LineNr">2456 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2457" class="LineNr">2457 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2458" class="LineNr">2458 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2459" class="LineNr">2459 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2460" class="LineNr">2460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2461" class="LineNr">2461 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2462" class="LineNr">2462 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2463" class="LineNr">2463 </span><span class="Constant">$parse-effective-address:scale</span>: +<span id="L2464" class="LineNr">2464 </span> <span class="subxComment"># read positive integer into scale</span> +<span id="L2465" class="LineNr">2465 </span> <span class="subxS1Comment"># . eax = next-positive-hex-int(local-slice)</span> +<span id="L2466" class="LineNr">2466 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2467" class="LineNr">2467 </span> 56/push-esi +<span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2469" class="LineNr">2469 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L2470" class="LineNr">2470 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2471" class="LineNr">2471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2472" class="LineNr">2472 </span> <span class="subxS1Comment"># . edx = eax</span> +<span id="L2473" class="LineNr">2473 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L2474" class="LineNr">2474 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2475" class="LineNr">2475 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2476" class="LineNr">2476 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2477" class="LineNr">2477 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2478" class="LineNr">2478 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2479" class="LineNr">2479 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2480" class="LineNr">2480 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2481" class="LineNr">2481 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2482" class="LineNr">2482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2483" class="LineNr">2483 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2484" class="LineNr">2484 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2485" class="LineNr">2485 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2486" class="LineNr">2486 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2487" class="LineNr">2487 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2488" class="LineNr">2488 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2489" class="LineNr">2489 </span> 74/jump-if-= $parse-effective-address:end/disp8 +<span id="L2490" class="LineNr">2490 </span><span class="Constant">$parse-effective-address:check-for-displacement</span>: +<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> +<span id="L2492" class="LineNr">2492 </span> 3d/compare-eax-and 0x2b/imm32/plus <span id="L2493" class="LineNr">2493 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 -<span id="L2494" class="LineNr">2494 </span> e9/jump $parse-effective-address:error3/disp32 -<span id="L2495" class="LineNr">2495 </span><span class="Constant">$parse-effective-address:displacement</span>: -<span id="L2496" class="LineNr">2496 </span> <span class="subxComment"># read integer into disp</span> -<span id="L2497" class="LineNr">2497 </span> <span class="subxS1Comment"># . eax = next-hex-int(local-slice)</span> -<span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2499" class="LineNr">2499 </span> 56/push-esi -<span id="L2500" class="LineNr">2500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2501" class="LineNr">2501 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L2502" class="LineNr">2502 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2503" class="LineNr">2503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2504" class="LineNr">2504 </span> <span class="subxS1Comment"># . ebx = eax</span> -<span id="L2505" class="LineNr">2505 </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="L2506" class="LineNr">2506 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2507" class="LineNr">2507 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2508" class="LineNr">2508 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2509" class="LineNr">2509 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2510" class="LineNr">2510 </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="L2511" class="LineNr">2511 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2512" class="LineNr">2512 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2513" class="LineNr">2513 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2514" class="LineNr">2514 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2515" class="LineNr">2515 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2516" class="LineNr">2516 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2517" class="LineNr">2517 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> -<span id="L2518" class="LineNr">2518 </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="L2519" class="LineNr">2519 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2520" class="LineNr">2520 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2521" class="LineNr">2521 </span> 0f 85/jump-if-!= $parse-effective-address:error4/disp32 -<span id="L2522" class="LineNr">2522 </span><span class="Constant">$parse-effective-address:end</span>: -<span id="L2523" class="LineNr">2523 </span> <span class="subxComment"># return base in eax</span> -<span id="L2524" class="LineNr">2524 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L2525" class="LineNr">2525 </span> <span class="subxS1Comment"># . reclaim locals</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2527" class="LineNr">2527 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2528" class="LineNr">2528 </span> 5f/pop-to-edi -<span id="L2529" class="LineNr">2529 </span> 5e/pop-to-esi -<span id="L2530" class="LineNr">2530 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2531" class="LineNr">2531 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2532" class="LineNr">2532 </span> 5d/pop-to-ebp -<span id="L2533" class="LineNr">2533 </span> c3/return -<span id="L2534" class="LineNr">2534 </span> -<span id="L2535" class="LineNr">2535 </span><span class="Constant">$parse-effective-address:error1</span>: -<span id="L2536" class="LineNr">2536 </span> <span class="subxComment"># print(stderr, "error: unexpected character: " eax "\n")</span> -<span id="L2537" class="LineNr">2537 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character: ")</span> -<span id="L2538" class="LineNr">2538 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2539" class="LineNr">2539 </span> 68/push <span class="Constant">"error: unexpected character: "</span>/imm32 -<span id="L2540" class="LineNr">2540 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2542" class="LineNr">2542 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2545" class="LineNr">2545 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2546" class="LineNr">2546 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2547" class="LineNr">2547 </span> 50/push-eax -<span id="L2548" class="LineNr">2548 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2549" class="LineNr">2549 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2550" class="LineNr">2550 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L2551" class="LineNr">2551 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2552" class="LineNr">2552 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2553" class="LineNr">2553 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</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="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2556" class="LineNr">2556 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2557" class="LineNr">2557 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2558" class="LineNr">2558 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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="subxS1Comment"># . flush(Stderr)</span> -<span id="L2562" class="LineNr">2562 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2563" class="LineNr">2563 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2565" class="LineNr">2565 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2567" class="LineNr">2567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2568" class="LineNr">2568 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2569" class="LineNr">2569 </span> bb/copy-to-ebx 1/imm32 -<span id="L2570" class="LineNr">2570 </span> e8/call syscall_exit/disp32 -<span id="L2571" class="LineNr">2571 </span> <span class="subxComment"># never gets here</span> -<span id="L2572" class="LineNr">2572 </span> -<span id="L2573" class="LineNr">2573 </span><span class="Constant">$parse-effective-address:error2</span>: -<span id="L2574" class="LineNr">2574 </span> <span class="subxComment"># print(stderr, "error: '<' can only be followed by '<' but got: " eax "\n")</span> -<span id="L2575" class="LineNr">2575 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '<' can only be followed by '<' but got: ")</span> -<span id="L2576" class="LineNr">2576 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2577" class="LineNr">2577 </span> 68/push <span class="Constant">"error: '<' can only be followed by '<' but got: "</span>/imm32 -<span id="L2578" class="LineNr">2578 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2579" class="LineNr">2579 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2580" class="LineNr">2580 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2581" class="LineNr">2581 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2582" class="LineNr">2582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2583" class="LineNr">2583 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2584" class="LineNr">2584 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2585" class="LineNr">2585 </span> 50/push-eax -<span id="L2586" class="LineNr">2586 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2587" class="LineNr">2587 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2588" class="LineNr">2588 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L2589" class="LineNr">2589 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2590" class="LineNr">2590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2591" class="LineNr">2591 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> -<span id="L2592" class="LineNr">2592 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2593" class="LineNr">2593 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2594" class="LineNr">2594 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2595" class="LineNr">2595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2596" class="LineNr">2596 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2598" class="LineNr">2598 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2599" class="LineNr">2599 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2600" class="LineNr">2600 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2601" class="LineNr">2601 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2602" class="LineNr">2602 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2603" class="LineNr">2603 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2604" class="LineNr">2604 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2605" class="LineNr">2605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2606" class="LineNr">2606 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2607" class="LineNr">2607 </span> bb/copy-to-ebx 1/imm32 -<span id="L2608" class="LineNr">2608 </span> e8/call syscall_exit/disp32 -<span id="L2609" class="LineNr">2609 </span> <span class="subxComment"># never gets here</span> -<span id="L2610" class="LineNr">2610 </span> -<span id="L2611" class="LineNr">2611 </span><span class="Constant">$parse-effective-address:error3</span>: -<span id="L2612" class="LineNr">2612 </span> <span class="subxComment"># print(stderr, "error: unexpected character before displacement: " eax "\n")</span> -<span id="L2613" class="LineNr">2613 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character before displacement: ")</span> -<span id="L2614" class="LineNr">2614 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2615" class="LineNr">2615 </span> 68/push <span class="Constant">"error: unexpected character before displacement: "</span>/imm32 -<span id="L2616" class="LineNr">2616 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2617" class="LineNr">2617 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2618" class="LineNr">2618 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2621" class="LineNr">2621 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2622" class="LineNr">2622 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2623" class="LineNr">2623 </span> 50/push-eax -<span id="L2624" class="LineNr">2624 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2625" class="LineNr">2625 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2626" class="LineNr">2626 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L2627" class="LineNr">2627 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2628" class="LineNr">2628 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2629" class="LineNr">2629 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> -<span id="L2630" class="LineNr">2630 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2631" class="LineNr">2631 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2632" class="LineNr">2632 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2633" class="LineNr">2633 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2634" class="LineNr">2634 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2637" class="LineNr">2637 </span> <span class="subxS1Comment"># . flush(Stderr)</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="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2640" class="LineNr">2640 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2641" class="LineNr">2641 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2643" class="LineNr">2643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2644" class="LineNr">2644 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2645" class="LineNr">2645 </span> bb/copy-to-ebx 1/imm32 -<span id="L2646" class="LineNr">2646 </span> e8/call syscall_exit/disp32 -<span id="L2647" class="LineNr">2647 </span> <span class="subxComment"># never gets here</span> -<span id="L2648" class="LineNr">2648 </span> -<span id="L2649" class="LineNr">2649 </span><span class="Constant">$parse-effective-address:error4</span>: -<span id="L2650" class="LineNr">2650 </span> <span class="subxComment"># print(stderr, "error: unexpected character after displacement: " eax "; expected ')' to wrap up\n")</span> -<span id="L2651" class="LineNr">2651 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character after displacement: ")</span> -<span id="L2652" class="LineNr">2652 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2653" class="LineNr">2653 </span> 68/push <span class="Constant">"error: unexpected character after displacement: "</span>/imm32 -<span id="L2654" class="LineNr">2654 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2655" class="LineNr">2655 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2656" class="LineNr">2656 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2657" class="LineNr">2657 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2658" class="LineNr">2658 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2659" class="LineNr">2659 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2660" class="LineNr">2660 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2661" class="LineNr">2661 </span> 50/push-eax -<span id="L2662" class="LineNr">2662 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2663" class="LineNr">2663 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2664" class="LineNr">2664 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L2665" class="LineNr">2665 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2666" class="LineNr">2666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2667" class="LineNr">2667 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "; expected ')' to wrap up\n")</span> -<span id="L2668" class="LineNr">2668 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2669" class="LineNr">2669 </span> 68/push <span class="Constant">"; expected ')' to wrap up\n"</span>/imm32 -<span id="L2670" class="LineNr">2670 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2671" class="LineNr">2671 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2672" class="LineNr">2672 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2674" class="LineNr">2674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2675" class="LineNr">2675 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2676" class="LineNr">2676 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2677" class="LineNr">2677 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2679" class="LineNr">2679 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2681" class="LineNr">2681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2682" class="LineNr">2682 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2683" class="LineNr">2683 </span> bb/copy-to-ebx 1/imm32 -<span id="L2684" class="LineNr">2684 </span> e8/call syscall_exit/disp32 -<span id="L2685" class="LineNr">2685 </span> <span class="subxComment"># never gets here</span> -<span id="L2686" class="LineNr">2686 </span> -<span id="L2687" class="LineNr">2687 </span><span class="subxComment"># assumes 'in' starts with a register name, and returns pointer to its code</span> -<span id="L2688" class="LineNr">2688 </span><span class="subxComment"># side-effect: modifies 'in' to scan past the initial register name</span> -<span id="L2689" class="LineNr">2689 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: int</span> -<span id="L2690" class="LineNr">2690 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2691" class="LineNr">2691 </span> 55/push-ebp -<span id="L2692" class="LineNr">2692 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2693" class="LineNr">2693 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2694" class="LineNr">2694 </span> 51/push-ecx -<span id="L2695" class="LineNr">2695 </span> 56/push-esi -<span id="L2696" class="LineNr">2696 </span> <span class="subxComment"># esi = in</span> -<span id="L2697" class="LineNr">2697 </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="L2698" class="LineNr">2698 </span> <span class="subxComment"># var reg-slice/ecx: slice = {in->start, in->start + 3}</span> -<span id="L2699" class="LineNr">2699 </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="L2700" class="LineNr">2700 </span> 05/add-to-eax 3/imm32 -<span id="L2701" class="LineNr">2701 </span> 50/push-eax -<span id="L2702" class="LineNr">2702 </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="L2703" class="LineNr">2703 </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="L2704" class="LineNr">2704 </span> <span class="subxComment"># in->start += 3</span> -<span id="L2705" class="LineNr">2705 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32 <span class="subxComment"># add to *esi</span> -<span id="L2706" class="LineNr">2706 </span> <span class="subxComment"># eax = get-slice(Registers, reg-slice, row-size=12)</span> -<span id="L2707" class="LineNr">2707 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2708" class="LineNr">2708 </span> 68/push <span class="Constant">"next-register"</span>/imm32 -<span id="L2709" class="LineNr">2709 </span> 68/push 0xc/imm32/row-size -<span id="L2710" class="LineNr">2710 </span> 51/push-ecx -<span id="L2711" class="LineNr">2711 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2712" class="LineNr">2712 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2713" class="LineNr">2713 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L2714" class="LineNr">2714 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2715" class="LineNr">2715 </span> 81 0/subop/add 3/mod/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="L2716" class="LineNr">2716 </span><span class="Constant">$next-register:end</span>: -<span id="L2717" class="LineNr">2717 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L2718" class="LineNr">2718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2719" class="LineNr">2719 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2720" class="LineNr">2720 </span> 5e/pop-to-esi -<span id="L2721" class="LineNr">2721 </span> 59/pop-to-ecx -<span id="L2722" class="LineNr">2722 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2723" class="LineNr">2723 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2724" class="LineNr">2724 </span> 5d/pop-to-ebp -<span id="L2725" class="LineNr">2725 </span> c3/return -<span id="L2726" class="LineNr">2726 </span> -<span id="L2727" class="LineNr">2727 </span><span class="subxTest">test-parse-effective-address-simple</span>: -<span id="L2728" class="LineNr">2728 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2729" class="LineNr">2729 </span> 55/push-ebp -<span id="L2730" class="LineNr">2730 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2731" class="LineNr">2731 </span> <span class="subxComment"># var slice/ecx = "*esi"</span> -<span id="L2732" class="LineNr">2732 </span> b8/copy-to-eax <span class="Constant">"*esi"</span>/imm32 -<span id="L2733" class="LineNr">2733 </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="L2734" class="LineNr">2734 </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="L2735" class="LineNr">2735 </span> 05/add-to-eax 4/imm32 -<span id="L2736" class="LineNr">2736 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2737" class="LineNr">2737 </span> 51/push-ecx -<span id="L2738" class="LineNr">2738 </span> 50/push-eax -<span id="L2739" class="LineNr">2739 </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="L2740" class="LineNr">2740 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2741" class="LineNr">2741 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2742" class="LineNr">2742 </span> 51/push-ecx -<span id="L2743" class="LineNr">2743 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2744" class="LineNr">2744 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2746" class="LineNr">2746 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2747" class="LineNr">2747 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2748" class="LineNr">2748 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2749" class="LineNr">2749 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2750" class="LineNr">2750 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2727'>test-parse-effective-address-simple</a>/base"</span>/imm32 -<span id="L2751" class="LineNr">2751 </span> 68/push 6/imm32/esi -<span id="L2752" class="LineNr">2752 </span> 50/push-eax -<span id="L2753" class="LineNr">2753 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2754" class="LineNr">2754 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2755" class="LineNr">2755 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2756" class="LineNr">2756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2757" class="LineNr">2757 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2758" class="LineNr">2758 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2759" class="LineNr">2759 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2727'>test-parse-effective-address-simple</a>/index"</span>/imm32 -<span id="L2760" class="LineNr">2760 </span> 68/push 4/imm32/none -<span id="L2761" class="LineNr">2761 </span> 51/push-ecx -<span id="L2762" class="LineNr">2762 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2763" class="LineNr">2763 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2765" class="LineNr">2765 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2766" class="LineNr">2766 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2767" class="LineNr">2767 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2768" class="LineNr">2768 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2727'>test-parse-effective-address-simple</a>/scale"</span>/imm32 -<span id="L2769" class="LineNr">2769 </span> 68/push 0/imm32/none -<span id="L2770" class="LineNr">2770 </span> 52/push-edx -<span id="L2771" class="LineNr">2771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2772" class="LineNr">2772 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2773" class="LineNr">2773 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2774" class="LineNr">2774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2775" class="LineNr">2775 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L2776" class="LineNr">2776 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2777" class="LineNr">2777 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2727'>test-parse-effective-address-simple</a>/displacement"</span>/imm32 -<span id="L2778" class="LineNr">2778 </span> 68/push 0/imm32/none -<span id="L2779" class="LineNr">2779 </span> 53/push-ebx -<span id="L2780" class="LineNr">2780 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2781" class="LineNr">2781 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2782" class="LineNr">2782 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2783" class="LineNr">2783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2784" class="LineNr">2784 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2785" class="LineNr">2785 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</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-parse-effective-address-base</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/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2793" class="LineNr">2793 </span> <span class="subxComment"># var slice/ecx = "*(esi )"</span> -<span id="L2794" class="LineNr">2794 </span> b8/copy-to-eax <span class="Constant">"*(esi )"</span>/imm32 -<span id="L2795" class="LineNr">2795 </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="L2796" class="LineNr">2796 </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="L2797" class="LineNr">2797 </span> 05/add-to-eax 4/imm32 -<span id="L2798" class="LineNr">2798 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2799" class="LineNr">2799 </span> 51/push-ecx -<span id="L2800" class="LineNr">2800 </span> 50/push-eax -<span id="L2801" class="LineNr">2801 </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="L2802" class="LineNr">2802 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2803" class="LineNr">2803 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2804" class="LineNr">2804 </span> 51/push-ecx -<span id="L2805" class="LineNr">2805 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2806" class="LineNr">2806 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2808" class="LineNr">2808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2809" class="LineNr">2809 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2810" class="LineNr">2810 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2811" class="LineNr">2811 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2812" class="LineNr">2812 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2789'>test-parse-effective-address-base</a>/base"</span>/imm32 -<span id="L2813" class="LineNr">2813 </span> 68/push 6/imm32/esi -<span id="L2814" class="LineNr">2814 </span> 50/push-eax -<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2816" class="LineNr">2816 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2819" class="LineNr">2819 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2820" class="LineNr">2820 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2821" class="LineNr">2821 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2789'>test-parse-effective-address-base</a>/index"</span>/imm32 -<span id="L2822" class="LineNr">2822 </span> 68/push 4/imm32/none -<span id="L2823" class="LineNr">2823 </span> 51/push-ecx -<span id="L2824" class="LineNr">2824 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2825" class="LineNr">2825 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2826" class="LineNr">2826 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2827" class="LineNr">2827 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2828" class="LineNr">2828 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2829" class="LineNr">2829 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2830" class="LineNr">2830 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2789'>test-parse-effective-address-base</a>/scale"</span>/imm32 -<span id="L2831" class="LineNr">2831 </span> 68/push 0/imm32/none -<span id="L2832" class="LineNr">2832 </span> 52/push-edx -<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2834" class="LineNr">2834 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2837" class="LineNr">2837 </span> <span class="subxComment"># check-ints-equal(ebx, 0, 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 - <a href='sigils.subx.html#L2789'>test-parse-effective-address-base</a>/displacement"</span>/imm32 -<span id="L2840" class="LineNr">2840 </span> 68/push 0/imm32/none -<span id="L2841" class="LineNr">2841 </span> 53/push-ebx -<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-parse-effective-address-base-displacement</span>: -<span id="L2852" class="LineNr">2852 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2853" class="LineNr">2853 </span> 55/push-ebp -<span id="L2854" class="LineNr">2854 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># var slice/ecx = "*(esi+3)"</span> -<span id="L2856" class="LineNr">2856 </span> b8/copy-to-eax <span class="Constant">"*(esi+3)"</span>/imm32 -<span id="L2857" class="LineNr">2857 </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="L2858" class="LineNr">2858 </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="L2859" class="LineNr">2859 </span> 05/add-to-eax 4/imm32 -<span id="L2860" class="LineNr">2860 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2861" class="LineNr">2861 </span> 51/push-ecx -<span id="L2862" class="LineNr">2862 </span> 50/push-eax -<span id="L2863" class="LineNr">2863 </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="L2864" class="LineNr">2864 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2865" class="LineNr">2865 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2866" class="LineNr">2866 </span> 51/push-ecx -<span id="L2867" class="LineNr">2867 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2868" class="LineNr">2868 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</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"># slice clobbered beyond this point</span> -<span id="L2872" class="LineNr">2872 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</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">"F - <a href='sigils.subx.html#L2851'>test-parse-effective-address-base-displacement</a>/base"</span>/imm32 -<span id="L2875" class="LineNr">2875 </span> 68/push 6/imm32/esi -<span id="L2876" class="LineNr">2876 </span> 50/push-eax -<span id="L2877" class="LineNr">2877 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2878" class="LineNr">2878 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2879" class="LineNr">2879 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2880" class="LineNr">2880 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2881" class="LineNr">2881 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2882" class="LineNr">2882 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2883" class="LineNr">2883 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2851'>test-parse-effective-address-base-displacement</a>/index"</span>/imm32 -<span id="L2884" class="LineNr">2884 </span> 68/push 4/imm32/none -<span id="L2885" class="LineNr">2885 </span> 51/push-ecx -<span id="L2886" class="LineNr">2886 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2887" class="LineNr">2887 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2889" class="LineNr">2889 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2890" class="LineNr">2890 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2891" class="LineNr">2891 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2892" class="LineNr">2892 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2851'>test-parse-effective-address-base-displacement</a>/scale"</span>/imm32 -<span id="L2893" class="LineNr">2893 </span> 68/push 0/imm32/none -<span id="L2894" class="LineNr">2894 </span> 52/push-edx -<span id="L2895" class="LineNr">2895 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2896" class="LineNr">2896 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2897" class="LineNr">2897 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2898" class="LineNr">2898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2899" class="LineNr">2899 </span> <span class="subxComment"># check-ints-equal(ebx, 3, msg)</span> -<span id="L2900" class="LineNr">2900 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2901" class="LineNr">2901 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2851'>test-parse-effective-address-base-displacement</a>/displacement"</span>/imm32 -<span id="L2902" class="LineNr">2902 </span> 68/push 3/imm32 -<span id="L2903" class="LineNr">2903 </span> 53/push-ebx -<span id="L2904" class="LineNr">2904 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2905" class="LineNr">2905 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2906" class="LineNr">2906 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2907" class="LineNr">2907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2908" class="LineNr">2908 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2909" class="LineNr">2909 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2910" class="LineNr">2910 </span> 5d/pop-to-ebp -<span id="L2911" class="LineNr">2911 </span> c3/return -<span id="L2912" class="LineNr">2912 </span> -<span id="L2913" class="LineNr">2913 </span><span class="subxTest">test-parse-effective-address-base-negative-displacement</span>: -<span id="L2914" class="LineNr">2914 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2915" class="LineNr">2915 </span> 55/push-ebp -<span id="L2916" class="LineNr">2916 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2917" class="LineNr">2917 </span> <span class="subxComment"># var slice/ecx = "*(esi-3)"</span> -<span id="L2918" class="LineNr">2918 </span> b8/copy-to-eax <span class="Constant">"*(esi-3)"</span>/imm32 -<span id="L2919" class="LineNr">2919 </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="L2920" class="LineNr">2920 </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="L2921" class="LineNr">2921 </span> 05/add-to-eax 4/imm32 -<span id="L2922" class="LineNr">2922 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2923" class="LineNr">2923 </span> 51/push-ecx -<span id="L2924" class="LineNr">2924 </span> 50/push-eax -<span id="L2925" class="LineNr">2925 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2926" class="LineNr">2926 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2927" class="LineNr">2927 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2928" class="LineNr">2928 </span> 51/push-ecx -<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2930" class="LineNr">2930 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2932" class="LineNr">2932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2933" class="LineNr">2933 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2934" class="LineNr">2934 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2935" class="LineNr">2935 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2936" class="LineNr">2936 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2913'>test-parse-effective-address-base-negative-displacement</a>/base"</span>/imm32 -<span id="L2937" class="LineNr">2937 </span> 68/push 6/imm32/esi -<span id="L2938" class="LineNr">2938 </span> 50/push-eax -<span id="L2939" class="LineNr">2939 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2940" class="LineNr">2940 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2943" class="LineNr">2943 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2944" class="LineNr">2944 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2945" class="LineNr">2945 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2913'>test-parse-effective-address-base-negative-displacement</a>/index"</span>/imm32 -<span id="L2946" class="LineNr">2946 </span> 68/push 4/imm32/none -<span id="L2947" class="LineNr">2947 </span> 51/push-ecx -<span id="L2948" class="LineNr">2948 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2949" class="LineNr">2949 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2950" class="LineNr">2950 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2951" class="LineNr">2951 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2952" class="LineNr">2952 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2953" class="LineNr">2953 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2954" class="LineNr">2954 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2913'>test-parse-effective-address-base-negative-displacement</a>/scale"</span>/imm32 -<span id="L2955" class="LineNr">2955 </span> 68/push 0/imm32/none -<span id="L2956" class="LineNr">2956 </span> 52/push-edx -<span id="L2957" class="LineNr">2957 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2958" class="LineNr">2958 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2959" class="LineNr">2959 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2960" class="LineNr">2960 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2961" class="LineNr">2961 </span> <span class="subxComment"># check-ints-equal(ebx, -3, msg)</span> -<span id="L2962" class="LineNr">2962 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2963" class="LineNr">2963 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2913'>test-parse-effective-address-base-negative-displacement</a>/displacement"</span>/imm32 -<span id="L2964" class="LineNr">2964 </span> 68/push -3/imm32 -<span id="L2965" class="LineNr">2965 </span> 53/push-ebx -<span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2967" class="LineNr">2967 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2968" class="LineNr">2968 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2969" class="LineNr">2969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2970" class="LineNr">2970 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2971" class="LineNr">2971 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2972" class="LineNr">2972 </span> 5d/pop-to-ebp -<span id="L2973" class="LineNr">2973 </span> c3/return -<span id="L2974" class="LineNr">2974 </span> -<span id="L2975" class="LineNr">2975 </span><span class="subxTest">test-parse-effective-address-base-index</span>: -<span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2977" class="LineNr">2977 </span> 55/push-ebp -<span id="L2978" class="LineNr">2978 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2979" class="LineNr">2979 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx)"</span> -<span id="L2980" class="LineNr">2980 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx)"</span>/imm32 -<span id="L2981" class="LineNr">2981 </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="L2982" class="LineNr">2982 </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="L2983" class="LineNr">2983 </span> 05/add-to-eax 4/imm32 -<span id="L2984" class="LineNr">2984 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2985" class="LineNr">2985 </span> 51/push-ecx -<span id="L2986" class="LineNr">2986 </span> 50/push-eax -<span id="L2987" class="LineNr">2987 </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="L2988" class="LineNr">2988 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2989" class="LineNr">2989 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2990" class="LineNr">2990 </span> 51/push-ecx -<span id="L2991" class="LineNr">2991 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2992" class="LineNr">2992 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L2993" class="LineNr">2993 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2994" class="LineNr">2994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2995" class="LineNr">2995 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2996" class="LineNr">2996 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2997" class="LineNr">2997 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2998" class="LineNr">2998 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2975'>test-parse-effective-address-base-index</a>/base"</span>/imm32 -<span id="L2999" class="LineNr">2999 </span> 68/push 6/imm32/esi -<span id="L3000" class="LineNr">3000 </span> 50/push-eax -<span id="L3001" class="LineNr">3001 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3002" class="LineNr">3002 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3003" class="LineNr">3003 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3004" class="LineNr">3004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3005" class="LineNr">3005 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3006" class="LineNr">3006 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3007" class="LineNr">3007 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2975'>test-parse-effective-address-base-index</a>/index"</span>/imm32 -<span id="L3008" class="LineNr">3008 </span> 68/push 1/imm32/none -<span id="L3009" class="LineNr">3009 </span> 51/push-ecx -<span id="L3010" class="LineNr">3010 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3011" class="LineNr">3011 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3012" class="LineNr">3012 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3013" class="LineNr">3013 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3014" class="LineNr">3014 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L3015" class="LineNr">3015 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3016" class="LineNr">3016 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2975'>test-parse-effective-address-base-index</a>/scale"</span>/imm32 -<span id="L3017" class="LineNr">3017 </span> 68/push 0/imm32/none -<span id="L3018" class="LineNr">3018 </span> 52/push-edx -<span id="L3019" class="LineNr">3019 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3020" class="LineNr">3020 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3021" class="LineNr">3021 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3022" class="LineNr">3022 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3023" class="LineNr">3023 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L3024" class="LineNr">3024 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3025" class="LineNr">3025 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2975'>test-parse-effective-address-base-index</a>/displacement"</span>/imm32 -<span id="L3026" class="LineNr">3026 </span> 68/push 0/imm32 -<span id="L3027" class="LineNr">3027 </span> 53/push-ebx -<span id="L3028" class="LineNr">3028 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3029" class="LineNr">3029 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3030" class="LineNr">3030 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3031" class="LineNr">3031 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3032" class="LineNr">3032 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3033" class="LineNr">3033 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3034" class="LineNr">3034 </span> 5d/pop-to-ebp -<span id="L3035" class="LineNr">3035 </span> c3/return -<span id="L3036" class="LineNr">3036 </span> -<span id="L3037" class="LineNr">3037 </span><span class="subxTest">test-parse-effective-address-base-index-scale</span>: -<span id="L3038" class="LineNr">3038 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3039" class="LineNr">3039 </span> 55/push-ebp -<span id="L3040" class="LineNr">3040 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3041" class="LineNr">3041 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx<<2)"</span> -<span id="L3042" class="LineNr">3042 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx<<2)"</span>/imm32 -<span id="L3043" class="LineNr">3043 </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="L3044" class="LineNr">3044 </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="L3045" class="LineNr">3045 </span> 05/add-to-eax 4/imm32 -<span id="L3046" class="LineNr">3046 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L3047" class="LineNr">3047 </span> 51/push-ecx -<span id="L3048" class="LineNr">3048 </span> 50/push-eax -<span id="L3049" class="LineNr">3049 </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="L3050" class="LineNr">3050 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L3051" class="LineNr">3051 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3052" class="LineNr">3052 </span> 51/push-ecx -<span id="L3053" class="LineNr">3053 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3054" class="LineNr">3054 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L3055" class="LineNr">3055 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3056" class="LineNr">3056 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3057" class="LineNr">3057 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L3058" class="LineNr">3058 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L3059" class="LineNr">3059 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3060" class="LineNr">3060 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 -<span id="L3061" class="LineNr">3061 </span> 68/push 6/imm32/esi -<span id="L3062" class="LineNr">3062 </span> 50/push-eax -<span id="L3063" class="LineNr">3063 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3064" class="LineNr">3064 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3065" class="LineNr">3065 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3066" class="LineNr">3066 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3067" class="LineNr">3067 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3068" class="LineNr">3068 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3069" class="LineNr">3069 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 -<span id="L3070" class="LineNr">3070 </span> 68/push 1/imm32/none -<span id="L3071" class="LineNr">3071 </span> 51/push-ecx -<span id="L3072" class="LineNr">3072 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3073" class="LineNr">3073 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3074" class="LineNr">3074 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3075" class="LineNr">3075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3076" class="LineNr">3076 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> -<span id="L3077" class="LineNr">3077 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3078" class="LineNr">3078 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 -<span id="L3079" class="LineNr">3079 </span> 68/push 2/imm32 -<span id="L3080" class="LineNr">3080 </span> 52/push-edx -<span id="L3081" class="LineNr">3081 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3082" class="LineNr">3082 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3083" class="LineNr">3083 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3084" class="LineNr">3084 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3085" class="LineNr">3085 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L3086" class="LineNr">3086 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3087" class="LineNr">3087 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 -<span id="L3088" class="LineNr">3088 </span> 68/push 0/imm32 -<span id="L3089" class="LineNr">3089 </span> 53/push-ebx -<span id="L3090" class="LineNr">3090 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3091" class="LineNr">3091 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3092" class="LineNr">3092 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3093" class="LineNr">3093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3094" class="LineNr">3094 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3095" class="LineNr">3095 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3096" class="LineNr">3096 </span> 5d/pop-to-ebp -<span id="L3097" class="LineNr">3097 </span> c3/return -<span id="L3098" class="LineNr">3098 </span> -<span id="L3099" class="LineNr">3099 </span><span class="subxTest">test-parse-effective-address-base-index-scale-displacement</span>: -<span id="L3100" class="LineNr">3100 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3101" class="LineNr">3101 </span> 55/push-ebp -<span id="L3102" class="LineNr">3102 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3103" class="LineNr">3103 </span> <span class="subxComment"># var slice/ecx = "*(esi + ecx<<2 - 0x34)"</span> -<span id="L3104" class="LineNr">3104 </span> b8/copy-to-eax <span class="Constant">"*(esi + ecx<<2 - 0x34)"</span>/imm32 -<span id="L3105" class="LineNr">3105 </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="L3106" class="LineNr">3106 </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="L3107" class="LineNr">3107 </span> 05/add-to-eax 4/imm32 -<span id="L3108" class="LineNr">3108 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L3109" class="LineNr">3109 </span> 51/push-ecx -<span id="L3110" class="LineNr">3110 </span> 50/push-eax -<span id="L3111" class="LineNr">3111 </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="L3112" class="LineNr">3112 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L3113" class="LineNr">3113 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3114" class="LineNr">3114 </span> 51/push-ecx -<span id="L3115" class="LineNr">3115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3116" class="LineNr">3116 </span> e8/call <a href='sigils.subx.html#L2230'>parse-effective-address</a>/disp32 -<span id="L3117" class="LineNr">3117 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3118" class="LineNr">3118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3119" class="LineNr">3119 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L3120" class="LineNr">3120 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L3121" class="LineNr">3121 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3122" class="LineNr">3122 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 -<span id="L3123" class="LineNr">3123 </span> 68/push 6/imm32/esi -<span id="L3124" class="LineNr">3124 </span> 50/push-eax -<span id="L3125" class="LineNr">3125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3126" class="LineNr">3126 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3128" class="LineNr">3128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3129" class="LineNr">3129 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3130" class="LineNr">3130 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3131" class="LineNr">3131 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 -<span id="L3132" class="LineNr">3132 </span> 68/push 1/imm32/none -<span id="L3133" class="LineNr">3133 </span> 51/push-ecx -<span id="L3134" class="LineNr">3134 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3135" class="LineNr">3135 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3136" class="LineNr">3136 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3137" class="LineNr">3137 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3138" class="LineNr">3138 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> -<span id="L3139" class="LineNr">3139 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3140" class="LineNr">3140 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 -<span id="L3141" class="LineNr">3141 </span> 68/push 2/imm32 -<span id="L3142" class="LineNr">3142 </span> 52/push-edx -<span id="L3143" class="LineNr">3143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3144" class="LineNr">3144 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3145" class="LineNr">3145 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3146" class="LineNr">3146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3147" class="LineNr">3147 </span> <span class="subxComment"># check-ints-equal(ebx, -0x34, msg)</span> -<span id="L3148" class="LineNr">3148 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3149" class="LineNr">3149 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3037'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 -<span id="L3150" class="LineNr">3150 </span> 68/push -0x34/imm32 -<span id="L3151" class="LineNr">3151 </span> 53/push-ebx -<span id="L3152" class="LineNr">3152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3153" class="LineNr">3153 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3154" class="LineNr">3154 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3155" class="LineNr">3155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3156" class="LineNr">3156 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3157" class="LineNr">3157 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3158" class="LineNr">3158 </span> 5d/pop-to-ebp -<span id="L3159" class="LineNr">3159 </span> c3/return -<span id="L3160" class="LineNr">3160 </span> -<span id="L3161" class="LineNr">3161 </span><span class="subxComment"># Code generation:</span> -<span id="L3162" class="LineNr">3162 </span><span class="subxComment"># if base is esp, then goto emit-sib</span> -<span id="L3163" class="LineNr">3163 </span><span class="subxComment"># if base is ebp, then goto emit-sib</span> -<span id="L3164" class="LineNr">3164 </span><span class="subxComment"># if index is none and disp is 0, then mod = 0 and rm32 = base</span> -<span id="L3165" class="LineNr">3165 </span><span class="subxComment"># if index is none, then mod = 2 and rm32 = base and disp32 = disp</span> -<span id="L3166" class="LineNr">3166 </span><span class="subxComment"># emit-sib:</span> -<span id="L3167" class="LineNr">3167 </span><span class="subxComment"># if index is not none, then mod = 2 and rm32 = 4 and base = base and index = index and disp32 = disp</span> -<span id="L3168" class="LineNr">3168 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out: (addr buffered-file), base: int, index: int, scale: int, disp: int</span> -<span id="L3169" class="LineNr">3169 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3170" class="LineNr">3170 </span> 55/push-ebp -<span id="L3171" class="LineNr">3171 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3172" class="LineNr">3172 </span><span class="Constant">$emit-indirect-mode:check-for-ebp</span>: -<span id="L3173" class="LineNr">3173 </span> <span class="subxComment"># if (base == 5) goto emit-sib</span> -<span id="L3174" class="LineNr">3174 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 5/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L3175" class="LineNr">3175 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 -<span id="L3176" class="LineNr">3176 </span><span class="Constant">$emit-indirect-mode:check-for-esp</span>: -<span id="L3177" class="LineNr">3177 </span> <span class="subxComment"># if (base == 4) goto emit-sib</span> -<span id="L3178" class="LineNr">3178 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 4/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L3179" class="LineNr">3179 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 -<span id="L3180" class="LineNr">3180 </span><span class="Constant">$emit-indirect-mode:check-for-sib</span>: -<span id="L3181" class="LineNr">3181 </span> <span class="subxComment"># if (index == 4/none) goto next check</span> -<span id="L3182" class="LineNr">3182 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 4/imm32 <span class="subxComment"># compare *(ebp+16)</span> -<span id="L3183" class="LineNr">3183 </span> 0f 84/jump-if-= $emit-indirect-mode:check-for-disp/disp32 -<span id="L3184" class="LineNr">3184 </span><span class="Constant">$emit-indirect-mode:emit-sib</span>: -<span id="L3185" class="LineNr">3185 </span> <span class="subxComment"># emit(out, "2/mod/indirect 4/rm32/sib " base "/base " index "/index " scale "/scale " disp "/disp32")</span> -<span id="L3186" class="LineNr">3186 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 4/rm32/sib ")</span> -<span id="L3187" class="LineNr">3187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3188" class="LineNr">3188 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib "</span>/imm32 -<span id="L3189" class="LineNr">3189 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3190" class="LineNr">3190 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3191" class="LineNr">3191 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3192" class="LineNr">3192 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3193" class="LineNr">3193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3194" class="LineNr">3194 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3195" class="LineNr">3195 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3196" class="LineNr">3196 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3197" class="LineNr">3197 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3198" class="LineNr">3198 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3199" class="LineNr">3199 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3201" class="LineNr">3201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3202" class="LineNr">3202 </span> <span class="subxS1Comment"># . write-buffered(out, "/base ")</span> -<span id="L3203" class="LineNr">3203 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3204" class="LineNr">3204 </span> 68/push <span class="Constant">"/base "</span>/imm32 -<span id="L3205" class="LineNr">3205 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3206" class="LineNr">3206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3207" class="LineNr">3207 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3208" class="LineNr">3208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3209" class="LineNr">3209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3210" class="LineNr">3210 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, index)</span> -<span id="L3211" class="LineNr">3211 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3212" class="LineNr">3212 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3213" class="LineNr">3213 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3214" class="LineNr">3214 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3215" class="LineNr">3215 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3216" class="LineNr">3216 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3217" class="LineNr">3217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3218" class="LineNr">3218 </span> <span class="subxS1Comment"># . write-buffered(out, "/index ")</span> -<span id="L3219" class="LineNr">3219 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3220" class="LineNr">3220 </span> 68/push <span class="Constant">"/index "</span>/imm32 -<span id="L3221" class="LineNr">3221 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3222" class="LineNr">3222 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3223" class="LineNr">3223 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3224" class="LineNr">3224 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3225" class="LineNr">3225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3226" class="LineNr">3226 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, scale)</span> -<span id="L3227" class="LineNr">3227 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3228" class="LineNr">3228 </span> ff 6/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="L3229" class="LineNr">3229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3230" class="LineNr">3230 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3231" class="LineNr">3231 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3232" class="LineNr">3232 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3233" class="LineNr">3233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3234" class="LineNr">3234 </span> <span class="subxS1Comment"># . write-buffered(out, "/scale ")</span> -<span id="L3235" class="LineNr">3235 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3236" class="LineNr">3236 </span> 68/push <span class="Constant">"/scale "</span>/imm32 -<span id="L3237" class="LineNr">3237 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3238" class="LineNr">3238 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3239" class="LineNr">3239 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3240" class="LineNr">3240 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3241" class="LineNr">3241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3242" class="LineNr">3242 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> -<span id="L3243" class="LineNr">3243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3244" class="LineNr">3244 </span> ff 6/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="L3245" class="LineNr">3245 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3246" class="LineNr">3246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3247" class="LineNr">3247 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3248" class="LineNr">3248 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3249" class="LineNr">3249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3250" class="LineNr">3250 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> -<span id="L3251" class="LineNr">3251 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3252" class="LineNr">3252 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3253" class="LineNr">3253 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3254" class="LineNr">3254 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3255" class="LineNr">3255 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3256" class="LineNr">3256 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3257" class="LineNr">3257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3258" class="LineNr">3258 </span> e9/jump $emit-indirect-mode:end/disp32 -<span id="L3259" class="LineNr">3259 </span><span class="Constant">$emit-indirect-mode:check-for-disp</span>: -<span id="L3260" class="LineNr">3260 </span> <span class="subxComment"># if (disp == 0) goto next check</span> -<span id="L3261" class="LineNr">3261 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 0/imm32 <span class="subxComment"># compare *(ebp+24)</span> -<span id="L3262" class="LineNr">3262 </span> 74/jump-if-= $emit-indirect-mode:emit-indirect/disp8 -<span id="L3263" class="LineNr">3263 </span><span class="Constant">$emit-indirect-mode:emit-disp</span>: -<span id="L3264" class="LineNr">3264 </span> <span class="subxComment"># emit(out, "2/mod/*+disp32 " base "/rm32 " disp "/disp32")</span> -<span id="L3265" class="LineNr">3265 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 ")</span> -<span id="L3266" class="LineNr">3266 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3267" class="LineNr">3267 </span> 68/push <span class="Constant">"2/mod/*+disp32 "</span>/imm32 -<span id="L3268" class="LineNr">3268 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3269" class="LineNr">3269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3270" class="LineNr">3270 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3271" class="LineNr">3271 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3272" class="LineNr">3272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3273" class="LineNr">3273 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3274" class="LineNr">3274 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3275" class="LineNr">3275 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3276" class="LineNr">3276 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3277" class="LineNr">3277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3278" class="LineNr">3278 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3279" class="LineNr">3279 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3280" class="LineNr">3280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3281" class="LineNr">3281 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32 ")</span> -<span id="L3282" class="LineNr">3282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3283" class="LineNr">3283 </span> 68/push <span class="Constant">"/rm32 "</span>/imm32 -<span id="L3284" class="LineNr">3284 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3285" class="LineNr">3285 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3286" class="LineNr">3286 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3287" class="LineNr">3287 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3288" class="LineNr">3288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3289" class="LineNr">3289 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> -<span id="L3290" class="LineNr">3290 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3291" class="LineNr">3291 </span> ff 6/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="L3292" class="LineNr">3292 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3294" class="LineNr">3294 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3296" class="LineNr">3296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3297" class="LineNr">3297 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> -<span id="L3298" class="LineNr">3298 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3299" class="LineNr">3299 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3300" class="LineNr">3300 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3301" class="LineNr">3301 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3302" class="LineNr">3302 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3303" class="LineNr">3303 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3304" class="LineNr">3304 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3305" class="LineNr">3305 </span> eb/jump $emit-indirect-mode:end/disp8 -<span id="L3306" class="LineNr">3306 </span><span class="Constant">$emit-indirect-mode:emit-indirect</span>: -<span id="L3307" class="LineNr">3307 </span> <span class="subxComment"># emit(out, "0/mod/indirect " base "/rm32")</span> -<span id="L3308" class="LineNr">3308 </span> <span class="subxS1Comment"># . write-buffered(out, "0/mod/indirect ")</span> -<span id="L3309" class="LineNr">3309 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3310" class="LineNr">3310 </span> 68/push <span class="Constant">"0/mod/indirect "</span>/imm32 -<span id="L3311" class="LineNr">3311 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3312" class="LineNr">3312 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3313" class="LineNr">3313 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3315" class="LineNr">3315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3316" class="LineNr">3316 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3317" class="LineNr">3317 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3318" class="LineNr">3318 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3319" class="LineNr">3319 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3320" class="LineNr">3320 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3321" class="LineNr">3321 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L3322" class="LineNr">3322 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3323" class="LineNr">3323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3324" class="LineNr">3324 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32")</span> -<span id="L3325" class="LineNr">3325 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3326" class="LineNr">3326 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 -<span id="L3327" class="LineNr">3327 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3328" class="LineNr">3328 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3329" class="LineNr">3329 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3330" class="LineNr">3330 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3331" class="LineNr">3331 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3332" class="LineNr">3332 </span><span class="Constant">$emit-indirect-mode:end</span>: -<span id="L3333" class="LineNr">3333 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3334" class="LineNr">3334 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3335" class="LineNr">3335 </span> 5d/pop-to-ebp -<span id="L3336" class="LineNr">3336 </span> c3/return -<span id="L3337" class="LineNr">3337 </span> -<span id="L3338" class="LineNr">3338 </span><span class="subxTest">test-emit-indirect-mode</span>: -<span id="L3339" class="LineNr">3339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3340" class="LineNr">3340 </span> 55/push-ebp -<span id="L3341" class="LineNr">3341 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3342" class="LineNr">3342 </span> <span class="subxComment"># setup</span> -<span id="L3343" class="LineNr">3343 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3344" class="LineNr">3344 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3345" class="LineNr">3345 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3346" class="LineNr">3346 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3347" class="LineNr">3347 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3349" class="LineNr">3349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3350" class="LineNr">3350 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3351" class="LineNr">3351 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3352" class="LineNr">3352 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3354" class="LineNr">3354 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3355" class="LineNr">3355 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3356" class="LineNr">3356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3357" class="LineNr">3357 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 0, 4/none, 0, 0)</span> -<span id="L3358" class="LineNr">3358 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3359" class="LineNr">3359 </span> 68/push 0/imm32/.disp -<span id="L3360" class="LineNr">3360 </span> 68/push 0/imm32/.scale -<span id="L3361" class="LineNr">3361 </span> 68/push 4/imm32/.index/none -<span id="L3362" class="LineNr">3362 </span> 68/push 0/imm32/.base -<span id="L3363" class="LineNr">3363 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3364" class="LineNr">3364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3365" class="LineNr">3365 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3367" class="LineNr">3367 </span> 81 0/subop/add 3/mod/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="L3368" class="LineNr">3368 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3369" class="LineNr">3369 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3370" class="LineNr">3370 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3372" class="LineNr">3372 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3373" class="LineNr">3373 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3374" class="LineNr">3374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3375" class="Folded">3375 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3401" class="LineNr">3401 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 0/rm32", msg)</span> -<span id="L3402" class="LineNr">3402 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3403" class="LineNr">3403 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode"</span>/imm32 -<span id="L3404" class="LineNr">3404 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000000/rm32"</span>/imm32 -<span id="L3405" class="LineNr">3405 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3406" class="LineNr">3406 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3407" class="LineNr">3407 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3408" class="LineNr">3408 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3409" class="LineNr">3409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3410" class="LineNr">3410 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3411" class="LineNr">3411 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3412" class="LineNr">3412 </span> 5d/pop-to-ebp -<span id="L3413" class="LineNr">3413 </span> c3/return -<span id="L3414" class="LineNr">3414 </span> -<span id="L3415" class="LineNr">3415 </span><span class="subxTest">test-emit-indirect-mode-2</span>: -<span id="L3416" class="LineNr">3416 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3417" class="LineNr">3417 </span> 55/push-ebp -<span id="L3418" class="LineNr">3418 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3419" class="LineNr">3419 </span> <span class="subxComment"># setup</span> -<span id="L3420" class="LineNr">3420 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3421" class="LineNr">3421 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3422" class="LineNr">3422 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3423" class="LineNr">3423 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3424" class="LineNr">3424 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3425" class="LineNr">3425 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3426" class="LineNr">3426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3427" class="LineNr">3427 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3428" class="LineNr">3428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3429" class="LineNr">3429 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3430" class="LineNr">3430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3431" class="LineNr">3431 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3432" class="LineNr">3432 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3433" class="LineNr">3433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3434" class="LineNr">3434 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 0)</span> -<span id="L3435" class="LineNr">3435 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3436" class="LineNr">3436 </span> 68/push 0/imm32/.disp -<span id="L3437" class="LineNr">3437 </span> 68/push 0/imm32/.scale -<span id="L3438" class="LineNr">3438 </span> 68/push 4/imm32/.index/none -<span id="L3439" class="LineNr">3439 </span> 68/push 7/imm32/.base -<span id="L3440" class="LineNr">3440 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3441" class="LineNr">3441 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3442" class="LineNr">3442 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3443" class="LineNr">3443 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3444" class="LineNr">3444 </span> 81 0/subop/add 3/mod/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="L3445" class="LineNr">3445 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3446" class="LineNr">3446 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3447" class="LineNr">3447 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3449" class="LineNr">3449 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3451" class="LineNr">3451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3452" class="Folded">3452 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3478" class="LineNr">3478 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 7/rm32", msg)</span> -<span id="L3479" class="LineNr">3479 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3480" class="LineNr">3480 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-2"</span>/imm32 -<span id="L3481" class="LineNr">3481 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000007/rm32"</span>/imm32 -<span id="L3482" class="LineNr">3482 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3483" class="LineNr">3483 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3484" class="LineNr">3484 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3485" class="LineNr">3485 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3486" class="LineNr">3486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3487" class="LineNr">3487 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3488" class="LineNr">3488 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3489" class="LineNr">3489 </span> 5d/pop-to-ebp -<span id="L3490" class="LineNr">3490 </span> c3/return -<span id="L3491" class="LineNr">3491 </span> -<span id="L3492" class="LineNr">3492 </span><span class="subxTest">test-emit-indirect-mode-with-disp</span>: -<span id="L3493" class="LineNr">3493 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3494" class="LineNr">3494 </span> 55/push-ebp -<span id="L3495" class="LineNr">3495 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3496" class="LineNr">3496 </span> <span class="subxComment"># setup</span> -<span id="L3497" class="LineNr">3497 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3498" class="LineNr">3498 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3499" class="LineNr">3499 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3501" class="LineNr">3501 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3503" class="LineNr">3503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3504" class="LineNr">3504 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3505" class="LineNr">3505 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3506" class="LineNr">3506 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3508" class="LineNr">3508 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3510" class="LineNr">3510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3511" class="LineNr">3511 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 4)</span> -<span id="L3512" class="LineNr">3512 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3513" class="LineNr">3513 </span> 68/push 4/imm32/.disp -<span id="L3514" class="LineNr">3514 </span> 68/push 0/imm32/.scale -<span id="L3515" class="LineNr">3515 </span> 68/push 4/imm32/.index/none -<span id="L3516" class="LineNr">3516 </span> 68/push 6/imm32/.base -<span id="L3517" class="LineNr">3517 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3518" class="LineNr">3518 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3519" class="LineNr">3519 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3520" class="LineNr">3520 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3521" class="LineNr">3521 </span> 81 0/subop/add 3/mod/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="L3522" class="LineNr">3522 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3523" class="LineNr">3523 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3524" class="LineNr">3524 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3526" class="LineNr">3526 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3528" class="LineNr">3528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3529" class="Folded">3529 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3555" class="LineNr">3555 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 4/disp32", msg)</span> -<span id="L3556" class="LineNr">3556 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3557" class="LineNr">3557 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 -<span id="L3558" class="LineNr">3558 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0x00000004/disp32"</span>/imm32 -<span id="L3559" class="LineNr">3559 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3560" class="LineNr">3560 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3561" class="LineNr">3561 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3562" class="LineNr">3562 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3563" class="LineNr">3563 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3564" class="LineNr">3564 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3565" class="LineNr">3565 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3566" class="LineNr">3566 </span> 5d/pop-to-ebp -<span id="L3567" class="LineNr">3567 </span> c3/return -<span id="L3568" class="LineNr">3568 </span> -<span id="L3569" class="LineNr">3569 </span><span class="subxTest">test-emit-indirect-mode-with-disp-negative</span>: -<span id="L3570" class="LineNr">3570 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3571" class="LineNr">3571 </span> 55/push-ebp -<span id="L3572" class="LineNr">3572 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3573" class="LineNr">3573 </span> <span class="subxComment"># setup</span> -<span id="L3574" class="LineNr">3574 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3575" class="LineNr">3575 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3576" class="LineNr">3576 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3577" class="LineNr">3577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3578" class="LineNr">3578 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3579" class="LineNr">3579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3580" class="LineNr">3580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3581" class="LineNr">3581 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3582" class="LineNr">3582 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3583" class="LineNr">3583 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3584" class="LineNr">3584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3585" class="LineNr">3585 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3586" class="LineNr">3586 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3587" class="LineNr">3587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3588" class="LineNr">3588 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, -4)</span> -<span id="L3589" class="LineNr">3589 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3590" class="LineNr">3590 </span> 68/push -4/imm32/.disp -<span id="L3591" class="LineNr">3591 </span> 68/push 0/imm32/.scale -<span id="L3592" class="LineNr">3592 </span> 68/push 4/imm32/.index/none -<span id="L3593" class="LineNr">3593 </span> 68/push 6/imm32/.base -<span id="L3594" class="LineNr">3594 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3595" class="LineNr">3595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3596" class="LineNr">3596 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3597" class="LineNr">3597 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3598" class="LineNr">3598 </span> 81 0/subop/add 3/mod/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="L3599" class="LineNr">3599 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3600" class="LineNr">3600 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3601" class="LineNr">3601 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3602" class="LineNr">3602 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3603" class="LineNr">3603 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3604" class="LineNr">3604 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3605" class="LineNr">3605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3606" class="Folded">3606 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3632" class="LineNr">3632 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 -4/disp32", msg)</span> -<span id="L3633" class="LineNr">3633 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3634" class="LineNr">3634 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 -<span id="L3635" class="LineNr">3635 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0xfffffffc/disp32"</span>/imm32 -<span id="L3636" class="LineNr">3636 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3638" class="LineNr">3638 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3639" class="LineNr">3639 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3640" class="LineNr">3640 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3641" class="LineNr">3641 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3642" class="LineNr">3642 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3643" class="LineNr">3643 </span> 5d/pop-to-ebp -<span id="L3644" class="LineNr">3644 </span> c3/return -<span id="L3645" class="LineNr">3645 </span> -<span id="L3646" class="LineNr">3646 </span><span class="subxTest">test-emit-indirect-mode-with-sib</span>: -<span id="L3647" class="LineNr">3647 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3648" class="LineNr">3648 </span> 55/push-ebp -<span id="L3649" class="LineNr">3649 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3650" class="LineNr">3650 </span> <span class="subxComment"># setup</span> -<span id="L3651" class="LineNr">3651 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3652" class="LineNr">3652 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3653" class="LineNr">3653 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3654" class="LineNr">3654 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3655" class="LineNr">3655 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3656" class="LineNr">3656 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3657" class="LineNr">3657 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3658" class="LineNr">3658 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3659" class="LineNr">3659 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3660" class="LineNr">3660 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3661" class="LineNr">3661 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3662" class="LineNr">3662 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3664" class="LineNr">3664 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3665" class="LineNr">3665 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6/base, 1/index, 2/scale, 4/disp)</span> -<span id="L3666" class="LineNr">3666 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3667" class="LineNr">3667 </span> 68/push 4/imm32/.disp -<span id="L3668" class="LineNr">3668 </span> 68/push 2/imm32/.scale -<span id="L3669" class="LineNr">3669 </span> 68/push 1/imm32/.index -<span id="L3670" class="LineNr">3670 </span> 68/push 6/imm32/.base -<span id="L3671" class="LineNr">3671 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3672" class="LineNr">3672 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3673" class="LineNr">3673 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3674" class="LineNr">3674 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3675" class="LineNr">3675 </span> 81 0/subop/add 3/mod/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="L3676" class="LineNr">3676 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3677" class="LineNr">3677 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3678" class="LineNr">3678 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3679" class="LineNr">3679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3680" class="LineNr">3680 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3681" class="LineNr">3681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3682" class="LineNr">3682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3683" class="Folded">3683 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3709" class="LineNr">3709 </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="L3710" class="LineNr">3710 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3711" class="LineNr">3711 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-sib"</span>/imm32 -<span id="L3712" class="LineNr">3712 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000006/base 0x00000001/index 0x00000002/scale 0x00000004/disp32"</span>/imm32 -<span id="L3713" class="LineNr">3713 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3714" class="LineNr">3714 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3715" class="LineNr">3715 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3716" class="LineNr">3716 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3717" class="LineNr">3717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3718" class="LineNr">3718 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3719" class="LineNr">3719 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3720" class="LineNr">3720 </span> 5d/pop-to-ebp -<span id="L3721" class="LineNr">3721 </span> c3/return -<span id="L3722" class="LineNr">3722 </span> -<span id="L3723" class="LineNr">3723 </span><span class="subxTest">test-emit-indirect-mode-ebp</span>: -<span id="L3724" class="LineNr">3724 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3725" class="LineNr">3725 </span> 55/push-ebp -<span id="L3726" class="LineNr">3726 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3727" class="LineNr">3727 </span> <span class="subxComment"># setup</span> -<span id="L3728" class="LineNr">3728 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3729" class="LineNr">3729 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3730" class="LineNr">3730 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3732" class="LineNr">3732 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3733" class="LineNr">3733 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3734" class="LineNr">3734 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3735" class="LineNr">3735 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3736" class="LineNr">3736 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3737" class="LineNr">3737 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3738" class="LineNr">3738 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3739" class="LineNr">3739 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3740" class="LineNr">3740 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3741" class="LineNr">3741 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3742" class="LineNr">3742 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 5/base, 0/index, 0/scale, 0/disp)</span> -<span id="L3743" class="LineNr">3743 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3744" class="LineNr">3744 </span> 68/push 0/imm32/.disp -<span id="L3745" class="LineNr">3745 </span> 68/push 0/imm32/.scale -<span id="L3746" class="LineNr">3746 </span> 68/push 0/imm32/.index -<span id="L3747" class="LineNr">3747 </span> 68/push 5/imm32/.base/ebp -<span id="L3748" class="LineNr">3748 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3749" class="LineNr">3749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3750" class="LineNr">3750 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3751" class="LineNr">3751 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3752" class="LineNr">3752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3753" class="LineNr">3753 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3754" class="LineNr">3754 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3755" class="LineNr">3755 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3756" class="LineNr">3756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3757" class="LineNr">3757 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3758" class="LineNr">3758 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3759" class="LineNr">3759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3760" class="Folded">3760 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3786" class="LineNr">3786 </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="L3787" class="LineNr">3787 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3788" class="LineNr">3788 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-ebp"</span>/imm32 -<span id="L3789" class="LineNr">3789 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000005/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 -<span id="L3790" class="LineNr">3790 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3791" class="LineNr">3791 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3792" class="LineNr">3792 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3793" class="LineNr">3793 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3794" class="LineNr">3794 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3795" class="LineNr">3795 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3796" class="LineNr">3796 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3797" class="LineNr">3797 </span> 5d/pop-to-ebp -<span id="L3798" class="LineNr">3798 </span> c3/return -<span id="L3799" class="LineNr">3799 </span> -<span id="L3800" class="LineNr">3800 </span><span class="subxTest">test-emit-indirect-mode-esp</span>: -<span id="L3801" class="LineNr">3801 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3802" class="LineNr">3802 </span> 55/push-ebp -<span id="L3803" class="LineNr">3803 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3804" class="LineNr">3804 </span> <span class="subxComment"># setup</span> -<span id="L3805" class="LineNr">3805 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3806" class="LineNr">3806 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3807" class="LineNr">3807 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3808" class="LineNr">3808 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3809" class="LineNr">3809 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3810" class="LineNr">3810 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3811" class="LineNr">3811 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3812" class="LineNr">3812 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3813" class="LineNr">3813 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3814" class="LineNr">3814 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3816" class="LineNr">3816 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3818" class="LineNr">3818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3819" class="LineNr">3819 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 4/base, 0/index, 0/scale, 0/disp)</span> -<span id="L3820" class="LineNr">3820 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3821" class="LineNr">3821 </span> 68/push 0/imm32/.disp -<span id="L3822" class="LineNr">3822 </span> 68/push 0/imm32/.scale -<span id="L3823" class="LineNr">3823 </span> 68/push 0/imm32/.index -<span id="L3824" class="LineNr">3824 </span> 68/push 4/imm32/.base/esp -<span id="L3825" class="LineNr">3825 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3826" class="LineNr">3826 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3827" class="LineNr">3827 </span> e8/call <a href='sigils.subx.html#L3168'>emit-indirect-mode</a>/disp32 -<span id="L3828" class="LineNr">3828 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3829" class="LineNr">3829 </span> 81 0/subop/add 3/mod/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="L3830" class="LineNr">3830 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3831" class="LineNr">3831 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3832" class="LineNr">3832 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L3833" class="LineNr">3833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3834" class="LineNr">3834 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3835" class="LineNr">3835 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3836" class="LineNr">3836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3837" class="Folded">3837 </span><span class="Folded">+-- 26 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3863" class="LineNr">3863 </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="L3864" class="LineNr">3864 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3865" class="LineNr">3865 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-esp"</span>/imm32 -<span id="L3866" class="LineNr">3866 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000004/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 -<span id="L3867" class="LineNr">3867 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3868" class="LineNr">3868 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3869" class="LineNr">3869 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3871" class="LineNr">3871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3872" class="LineNr">3872 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3873" class="LineNr">3873 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3874" class="LineNr">3874 </span> 5d/pop-to-ebp -<span id="L3875" class="LineNr">3875 </span> c3/return -<span id="L3876" class="LineNr">3876 </span> -<span id="L3877" class="LineNr">3877 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: boolean</span> -<span id="L3878" class="LineNr">3878 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3879" class="LineNr">3879 </span> 55/push-ebp -<span id="L3880" class="LineNr">3880 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3881" class="LineNr">3881 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3882" class="LineNr">3882 </span> 56/push-esi -<span id="L3883" class="LineNr">3883 </span> 57/push-edi -<span id="L3884" class="LineNr">3884 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> -<span id="L3885" class="LineNr">3885 </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="L3886" class="LineNr">3886 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3887" class="LineNr">3887 </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="L3888" class="LineNr">3888 </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="L3889" class="LineNr">3889 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L3890" class="LineNr">3890 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L3891" class="LineNr">3891 </span> <span class="subxComment"># if (*local-slice->start == '(') return false</span> -<span id="L3892" class="LineNr">3892 </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="L3893" class="LineNr">3893 </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="L3894" class="LineNr">3894 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L3895" class="LineNr">3895 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L3896" class="LineNr">3896 </span> 74/jump-if-= $disp32-mode?:false/disp8 -<span id="L3897" class="LineNr">3897 </span><span class="Constant">$disp32-mode?:check-for-register</span>: -<span id="L3898" class="LineNr">3898 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L3899" class="LineNr">3899 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3900" class="LineNr">3900 </span> 56/push-esi -<span id="L3901" class="LineNr">3901 </span> 68/push 0x2f/imm32/slash -<span id="L3902" class="LineNr">3902 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3903" class="LineNr">3903 </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="L3904" class="LineNr">3904 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3905" class="LineNr">3905 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L3906" class="LineNr">3906 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3907" class="LineNr">3907 </span> 81 0/subop/add 3/mod/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="L3908" class="LineNr">3908 </span> <span class="subxComment"># reg-num/eax = maybe-get-slice(Registers, local-slice, row-size=12)</span> -<span id="L3909" class="LineNr">3909 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3910" class="LineNr">3910 </span> 68/push 0xc/imm32/row-size -<span id="L3911" class="LineNr">3911 </span> 56/push-esi -<span id="L3912" class="LineNr">3912 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L3913" class="LineNr">3913 </span> <span class="subxS2Comment"># . . cal</span> -<span id="L3914" class="LineNr">3914 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L3915" class="LineNr">3915 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3916" class="LineNr">3916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3917" class="LineNr">3917 </span> <span class="subxComment"># if (eax != 0) return false</span> -<span id="L3918" class="LineNr">3918 </span> 3d/compare-eax-and 0/imm32 -<span id="L3919" class="LineNr">3919 </span> 75/jump-if-!= $disp32-mode?:false/disp8 -<span id="L3920" class="LineNr">3920 </span> <span class="subxComment"># return true</span> -<span id="L3921" class="LineNr">3921 </span> b8/copy-to-eax 1/imm32/true -<span id="L3922" class="LineNr">3922 </span> eb/jump $disp32-mode?:end/disp8 -<span id="L3923" class="LineNr">3923 </span><span class="Constant">$disp32-mode?:false</span>: -<span id="L3924" class="LineNr">3924 </span> b8/copy-to-eax 0/imm32/false -<span id="L3925" class="LineNr">3925 </span><span class="Constant">$disp32-mode?:end</span>: -<span id="L3926" class="LineNr">3926 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L3927" class="LineNr">3927 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3928" class="LineNr">3928 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3929" class="LineNr">3929 </span> 5f/pop-to-edi -<span id="L3930" class="LineNr">3930 </span> 5e/pop-to-esi -<span id="L3931" class="LineNr">3931 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3932" class="LineNr">3932 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3933" class="LineNr">3933 </span> 5d/pop-to-ebp -<span id="L3934" class="LineNr">3934 </span> c3/return -<span id="L3935" class="LineNr">3935 </span> -<span id="L3936" class="LineNr">3936 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> -<span id="L3937" class="LineNr">3937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3938" class="LineNr">3938 </span> 55/push-ebp -<span id="L3939" class="LineNr">3939 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3940" class="LineNr">3940 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3941" class="LineNr">3941 </span> 56/push-esi -<span id="L3942" class="LineNr">3942 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> -<span id="L3943" class="LineNr">3943 </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="L3944" class="LineNr">3944 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3945" class="LineNr">3945 </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="L3946" class="LineNr">3946 </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="L3947" class="LineNr">3947 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L3948" class="LineNr">3948 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L3949" class="LineNr">3949 </span> <span class="subxComment"># write-buffered(out, "0/mod/indirect 5/rm32/.disp32 ")</span> -<span id="L3950" class="LineNr">3950 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3951" class="LineNr">3951 </span> 68/push <span class="Constant">"0/mod/indirect 5/rm32/.disp32 "</span>/imm32 -<span id="L3952" class="LineNr">3952 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3953" class="LineNr">3953 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3954" class="LineNr">3954 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3955" class="LineNr">3955 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3956" class="LineNr">3956 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3957" class="LineNr">3957 </span> <span class="subxComment"># write-slice-buffered(out, local-slice)</span> -<span id="L3958" class="LineNr">3958 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3959" class="LineNr">3959 </span> 56/push-esi -<span id="L3960" class="LineNr">3960 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3961" class="LineNr">3961 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3962" class="LineNr">3962 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L3963" class="LineNr">3963 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3964" class="LineNr">3964 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3965" class="LineNr">3965 </span> <span class="subxComment"># write-buffered(out, "/disp32")</span> -<span id="L3966" class="LineNr">3966 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3967" class="LineNr">3967 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3968" class="LineNr">3968 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3969" class="LineNr">3969 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3970" class="LineNr">3970 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3972" class="LineNr">3972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3973" class="LineNr">3973 </span><span class="Constant">$emit-indirect-disp32:end</span>: -<span id="L3974" class="LineNr">3974 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L3975" class="LineNr">3975 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3976" class="LineNr">3976 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3977" class="LineNr">3977 </span> 5e/pop-to-esi -<span id="L3978" class="LineNr">3978 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3979" class="LineNr">3979 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3980" class="LineNr">3980 </span> 5d/pop-to-ebp -<span id="L3981" class="LineNr">3981 </span> c3/return -<span id="L3982" class="LineNr">3982 </span> -<span id="L3983" class="LineNr">3983 </span><span class="subxComment"># assumes 'in' starts with optional '+' or '-', optional whitespace, and an unsigned integer</span> -<span id="L3984" class="LineNr">3984 </span><span class="subxComment"># returns the value of the integer</span> -<span id="L3985" class="LineNr">3985 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> -<span id="L3986" class="LineNr">3986 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> -<span id="L3987" class="LineNr">3987 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3988" class="LineNr">3988 </span> 55/push-ebp -<span id="L3989" class="LineNr">3989 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3990" class="LineNr">3990 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3991" class="LineNr">3991 </span> 51/push-ecx -<span id="L3992" class="LineNr">3992 </span> 52/push-edx -<span id="L3993" class="LineNr">3993 </span> 53/push-ebx -<span id="L3994" class="LineNr">3994 </span> 56/push-esi -<span id="L3995" class="LineNr">3995 </span> 57/push-edi -<span id="L3996" class="LineNr">3996 </span> <span class="subxComment"># result/edi = 0</span> -<span id="L3997" class="LineNr">3997 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L3998" class="LineNr">3998 </span> <span class="subxComment"># esi = in</span> -<span id="L3999" class="LineNr">3999 </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="L4000" class="LineNr">4000 </span> <span class="subxComment"># edx = in->end</span> -<span id="L4001" class="LineNr">4001 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> -<span id="L4002" class="LineNr">4002 </span> <span class="subxComment"># curr/ecx = in->start</span> -<span id="L4003" class="LineNr">4003 </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="L4004" class="LineNr">4004 </span> <span class="subxComment"># negate?/ebx = false</span> -<span id="L4005" class="LineNr">4005 </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="L4006" class="LineNr">4006 </span> <span class="subxComment"># eax = *curr</span> -<span id="L4007" class="LineNr">4007 </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="L4008" class="LineNr">4008 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4009" class="LineNr">4009 </span><span class="Constant">$next-hex-int:positive</span>: -<span id="L4010" class="LineNr">4010 </span> <span class="subxComment"># if (*curr == '+') ++curr</span> -<span id="L4011" class="LineNr">4011 </span> 3d/compare-eax-and 0x2b/imm32/+ -<span id="L4012" class="LineNr">4012 </span> 75/jump-if-!= $next-hex-int:negative/disp8 -<span id="L4013" class="LineNr">4013 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4014" class="LineNr">4014 </span> 41/increment-ecx -<span id="L4015" class="LineNr">4015 </span> eb/jump $next-hex-int:skip-whitespace/disp8 -<span id="L4016" class="LineNr">4016 </span><span class="Constant">$next-hex-int:negative</span>: -<span id="L4017" class="LineNr">4017 </span> <span class="subxComment"># else if (*curr == '-') ++curr, negate = true</span> -<span id="L4018" class="LineNr">4018 </span> 3d/compare-eax-and 0x2d/imm32/- -<span id="L4019" class="LineNr">4019 </span> 75/jump-if-!= $next-hex-int:skip-whitespace/disp8 -<span id="L4020" class="LineNr">4020 </span><span class="Constant">$next-hex-int:need-to-negate</span>: -<span id="L4021" class="LineNr">4021 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4022" class="LineNr">4022 </span> 41/increment-ecx -<span id="L4023" class="LineNr">4023 </span> <span class="subxS1Comment"># . negate = true</span> -<span id="L4024" class="LineNr">4024 </span> bb/copy-to-ebx 1/imm32/true -<span id="L4025" class="LineNr">4025 </span> <span class="subxComment"># fall through</span> -<span id="L4026" class="LineNr">4026 </span><span class="Constant">$next-hex-int:skip-whitespace</span>: -<span id="L4027" class="LineNr">4027 </span> <span class="subxComment"># spill eax</span> -<span id="L4028" class="LineNr">4028 </span> 50/push-eax -<span id="L4029" class="LineNr">4029 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(word-slice->start, word-slice->end)</span> -<span id="L4030" class="LineNr">4030 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4031" class="LineNr">4031 </span> 52/push-edx -<span id="L4032" class="LineNr">4032 </span> 51/push-ecx -<span id="L4033" class="LineNr">4033 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4034" class="LineNr">4034 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L4035" class="LineNr">4035 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4036" class="LineNr">4036 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4037" class="LineNr">4037 </span> <span class="subxComment"># ecx = eax</span> -<span id="L4038" class="LineNr">4038 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L4039" class="LineNr">4039 </span> <span class="subxComment"># restore eax</span> -<span id="L4040" class="LineNr">4040 </span> 58/pop-to-eax -<span id="L4041" class="LineNr">4041 </span><span class="Constant">$next-hex-int:initial-0</span>: -<span id="L4042" class="LineNr">4042 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L4043" class="LineNr">4043 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> -<span id="L4044" class="LineNr">4044 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4045" class="LineNr">4045 </span> 3d/compare-eax-and 0x30/imm32/0 -<span id="L4046" class="LineNr">4046 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4047" class="LineNr">4047 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4048" class="LineNr">4048 </span> 41/increment-ecx -<span id="L4049" class="LineNr">4049 </span><span class="Constant">$next-hex-int:initial-0x</span>: -<span id="L4050" class="LineNr">4050 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> -<span id="L4051" class="LineNr">4051 </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="L4052" class="LineNr">4052 </span> 73/jump-if-addr>= $next-hex-int:end/disp8 -<span id="L4053" class="LineNr">4053 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> -<span id="L4054" class="LineNr">4054 </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="L4055" class="LineNr">4055 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4056" class="LineNr">4056 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L4057" class="LineNr">4057 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4058" class="LineNr">4058 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4059" class="LineNr">4059 </span> 41/increment-ecx -<span id="L4060" class="LineNr">4060 </span><span class="Constant">$next-hex-int:loop</span>: -<span id="L4061" class="LineNr">4061 </span> <span class="subxComment"># if (curr >= in->end) break</span> -<span id="L4062" class="LineNr">4062 </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="L4063" class="LineNr">4063 </span> 73/jump-if-addr>= $next-hex-int:<span class="Constant">break</span>/disp8 -<span id="L4064" class="LineNr">4064 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> -<span id="L4065" class="LineNr">4065 </span> <span class="subxS1Comment"># . eax = *curr</span> -<span id="L4066" class="LineNr">4066 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4067" class="LineNr">4067 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> -<span id="L4068" class="LineNr">4068 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4069" class="LineNr">4069 </span> 50/push-eax -<span id="L4070" class="LineNr">4070 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4071" class="LineNr">4071 </span> e8/call <a href='../118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 -<span id="L4072" class="LineNr">4072 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4073" class="LineNr">4073 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4074" class="LineNr">4074 </span> <span class="subxS1Comment"># . if (eax == false) break</span> -<span id="L4075" class="LineNr">4075 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4076" class="LineNr">4076 </span> 74/jump-if-= $next-hex-int:<span class="Constant">break</span>/disp8 -<span id="L4077" class="LineNr">4077 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> -<span id="L4078" class="LineNr">4078 </span> <span class="subxS2Comment"># . . copy arg to eax</span> -<span id="L4079" class="LineNr">4079 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4080" class="LineNr">4080 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4081" class="LineNr">4081 </span> e8/call <a href='../118parse-hex.subx.html#L864'>from-hex-char</a>/disp32 -<span id="L4082" class="LineNr">4082 </span> <span class="subxComment"># result = result * 16 + eax</span> -<span id="L4083" class="LineNr">4083 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> -<span id="L4084" class="LineNr">4084 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> -<span id="L4085" class="LineNr">4085 </span> <span class="subxComment"># ++curr</span> -<span id="L4086" class="LineNr">4086 </span> 41/increment-ecx -<span id="L4087" class="LineNr">4087 </span> <span class="subxComment"># loop</span> -<span id="L4088" class="LineNr">4088 </span> eb/jump $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4089" class="LineNr">4089 </span><span class="Constant">$next-hex-int:break</span>: -<span id="L4090" class="LineNr">4090 </span> <span class="subxComment"># if (negate?) result = -result</span> -<span id="L4091" class="LineNr">4091 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> -<span id="L4092" class="LineNr">4092 </span> 74/jump-if-= $next-hex-int:end/disp8 -<span id="L4093" class="LineNr">4093 </span><span class="Constant">$next-hex-int:negate</span>: -<span id="L4094" class="LineNr">4094 </span> f7 3/subop/negate 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># negate edi</span> -<span id="L4095" class="LineNr">4095 </span><span class="Constant">$next-hex-int:end</span>: -<span id="L4096" class="LineNr">4096 </span> <span class="subxComment"># word-slice->start = curr</span> -<span id="L4097" class="LineNr">4097 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> -<span id="L4098" class="LineNr">4098 </span> <span class="subxComment"># return edi</span> -<span id="L4099" class="LineNr">4099 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L4100" class="LineNr">4100 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L4101" class="LineNr">4101 </span> 5f/pop-to-edi -<span id="L4102" class="LineNr">4102 </span> 5e/pop-to-esi -<span id="L4103" class="LineNr">4103 </span> 5b/pop-to-ebx -<span id="L4104" class="LineNr">4104 </span> 5a/pop-to-edx -<span id="L4105" class="LineNr">4105 </span> 59/pop-to-ecx -<span id="L4106" class="LineNr">4106 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4107" class="LineNr">4107 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4108" class="LineNr">4108 </span> 5d/pop-to-ebp -<span id="L4109" class="LineNr">4109 </span> c3/return -<span id="L4110" class="LineNr">4110 </span> -<span id="L4111" class="LineNr">4111 </span><span class="Constant">$next-hex-int:abort</span>: -<span id="L4112" class="LineNr">4112 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L4113" class="LineNr">4113 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4114" class="LineNr">4114 </span> 68/push <span class="Constant">"next-hex-int: invalid hex char: "</span>/imm32 -<span id="L4115" class="LineNr">4115 </span> 68/push 2/imm32/stderr -<span id="L4116" class="LineNr">4116 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4117" class="LineNr">4117 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L4118" class="LineNr">4118 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4119" class="LineNr">4119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4120" class="LineNr">4120 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> -<span id="L4121" class="LineNr">4121 </span> <span class="subxS2Comment"># . . save eax</span> -<span id="L4122" class="LineNr">4122 </span> 50/push-eax -<span id="L4123" class="LineNr">4123 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4124" class="LineNr">4124 </span> 68/push $Stderr->buffer/imm32 -<span id="L4125" class="LineNr">4125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4126" class="LineNr">4126 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4127" class="LineNr">4127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4128" class="LineNr">4128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4129" class="LineNr">4129 </span> <span class="subxS2Comment"># . . restore eax</span> -<span id="L4130" class="LineNr">4130 </span> 58/pop-to-eax -<span id="L4131" class="LineNr">4131 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> -<span id="L4132" class="LineNr">4132 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4133" class="LineNr">4133 </span> 50/push-eax -<span id="L4134" class="LineNr">4134 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L4135" class="LineNr">4135 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4136" class="LineNr">4136 </span> e8/call <a href='../117write-int-hex.subx.html#L266'>write-int32-hex-buffered</a>/disp32 -<span id="L4137" class="LineNr">4137 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4138" class="LineNr">4138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4139" class="LineNr">4139 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L4140" class="LineNr">4140 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4141" class="LineNr">4141 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L4142" class="LineNr">4142 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4143" class="LineNr">4143 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4145" class="LineNr">4145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4146" class="LineNr">4146 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> -<span id="L4147" class="LineNr">4147 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4148" class="LineNr">4148 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L4149" class="LineNr">4149 </span> 68/push 2/imm32/stderr -<span id="L4150" class="LineNr">4150 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4151" class="LineNr">4151 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L4152" class="LineNr">4152 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4153" class="LineNr">4153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4154" class="LineNr">4154 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L4155" class="LineNr">4155 </span> bb/copy-to-ebx 1/imm32 -<span id="L4156" class="LineNr">4156 </span> e8/call syscall_exit/disp32 -<span id="L4157" class="LineNr">4157 </span> <span class="subxComment"># never gets here</span> -<span id="L4158" class="LineNr">4158 </span> -<span id="L4159" class="LineNr">4159 </span><span class="subxTest">test-next-hex-int-single-digit</span>: -<span id="L4160" class="LineNr">4160 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4161" class="LineNr">4161 </span> 55/push-ebp -<span id="L4162" class="LineNr">4162 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4163" class="LineNr">4163 </span> <span class="subxComment"># (eax..ecx) = "+a)"</span> -<span id="L4164" class="LineNr">4164 </span> b8/copy-to-eax <span class="Constant">"+a)"</span>/imm32 -<span id="L4165" class="LineNr">4165 </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="L4166" class="LineNr">4166 </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="L4167" class="LineNr">4167 </span> 05/add-to-eax 4/imm32 -<span id="L4168" class="LineNr">4168 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4169" class="LineNr">4169 </span> 51/push-ecx -<span id="L4170" class="LineNr">4170 </span> 50/push-eax -<span id="L4171" class="LineNr">4171 </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="L4172" class="LineNr">4172 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4173" class="LineNr">4173 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4174" class="LineNr">4174 </span> 51/push-ecx -<span id="L4175" class="LineNr">4175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4176" class="LineNr">4176 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4178" class="LineNr">4178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4179" class="LineNr">4179 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> -<span id="L4180" class="LineNr">4180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4181" class="LineNr">4181 </span> 68/push <span class="Constant">"F - test-next-hex-int-single-digit"</span>/imm32 -<span id="L4182" class="LineNr">4182 </span> 68/push 0xa/imm32 -<span id="L4183" class="LineNr">4183 </span> 50/push-eax -<span id="L4184" class="LineNr">4184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4185" class="LineNr">4185 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4186" class="LineNr">4186 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4187" class="LineNr">4187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4188" class="LineNr">4188 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4189" class="LineNr">4189 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4190" class="LineNr">4190 </span> 5d/pop-to-ebp -<span id="L4191" class="LineNr">4191 </span> c3/return -<span id="L4192" class="LineNr">4192 </span> -<span id="L4193" class="LineNr">4193 </span><span class="subxTest">test-next-hex-int-multi-digit</span>: -<span id="L4194" class="LineNr">4194 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4195" class="LineNr">4195 </span> 55/push-ebp -<span id="L4196" class="LineNr">4196 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4197" class="LineNr">4197 </span> <span class="subxComment"># (eax..ecx) = "+ 34a)"</span> -<span id="L4198" class="LineNr">4198 </span> b8/copy-to-eax <span class="Constant">"+ 34a)"</span>/imm32 -<span id="L4199" class="LineNr">4199 </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="L4200" class="LineNr">4200 </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="L4201" class="LineNr">4201 </span> 05/add-to-eax 4/imm32 -<span id="L4202" class="LineNr">4202 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4203" class="LineNr">4203 </span> 51/push-ecx -<span id="L4204" class="LineNr">4204 </span> 50/push-eax -<span id="L4205" class="LineNr">4205 </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="L4206" class="LineNr">4206 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4207" class="LineNr">4207 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4208" class="LineNr">4208 </span> 51/push-ecx -<span id="L4209" class="LineNr">4209 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4210" class="LineNr">4210 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4211" class="LineNr">4211 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4212" class="LineNr">4212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4213" class="LineNr">4213 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> -<span id="L4214" class="LineNr">4214 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4215" class="LineNr">4215 </span> 68/push <span class="Constant">"F - test-next-hex-int-multi-digit"</span>/imm32 -<span id="L4216" class="LineNr">4216 </span> 68/push 0x34a/imm32 -<span id="L4217" class="LineNr">4217 </span> 50/push-eax -<span id="L4218" class="LineNr">4218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4219" class="LineNr">4219 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4220" class="LineNr">4220 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4221" class="LineNr">4221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4222" class="LineNr">4222 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4223" class="LineNr">4223 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4224" class="LineNr">4224 </span> 5d/pop-to-ebp -<span id="L4225" class="LineNr">4225 </span> c3/return -<span id="L4226" class="LineNr">4226 </span> -<span id="L4227" class="LineNr">4227 </span><span class="subxTest">test-next-hex-int-0x-prefix</span>: -<span id="L4228" class="LineNr">4228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4229" class="LineNr">4229 </span> 55/push-ebp -<span id="L4230" class="LineNr">4230 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4231" class="LineNr">4231 </span> <span class="subxComment"># (eax..ecx) = "+0x34)"</span> -<span id="L4232" class="LineNr">4232 </span> b8/copy-to-eax <span class="Constant">"+0x34)"</span>/imm32 -<span id="L4233" class="LineNr">4233 </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="L4234" class="LineNr">4234 </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="L4235" class="LineNr">4235 </span> 05/add-to-eax 4/imm32 -<span id="L4236" class="LineNr">4236 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4237" class="LineNr">4237 </span> 51/push-ecx -<span id="L4238" class="LineNr">4238 </span> 50/push-eax -<span id="L4239" class="LineNr">4239 </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="L4240" class="LineNr">4240 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4241" class="LineNr">4241 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4242" class="LineNr">4242 </span> 51/push-ecx -<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4244" class="LineNr">4244 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4246" class="LineNr">4246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4247" class="LineNr">4247 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> -<span id="L4248" class="LineNr">4248 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4249" class="LineNr">4249 </span> 68/push <span class="Constant">"F - test-next-hex-int-0x-prefix"</span>/imm32 -<span id="L4250" class="LineNr">4250 </span> 68/push 0x34/imm32 -<span id="L4251" class="LineNr">4251 </span> 50/push-eax -<span id="L4252" class="LineNr">4252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4253" class="LineNr">4253 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4254" class="LineNr">4254 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4255" class="LineNr">4255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4256" class="LineNr">4256 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4257" class="LineNr">4257 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4258" class="LineNr">4258 </span> 5d/pop-to-ebp -<span id="L4259" class="LineNr">4259 </span> c3/return -<span id="L4260" class="LineNr">4260 </span> -<span id="L4261" class="LineNr">4261 </span><span class="subxTest">test-next-hex-int-zero</span>: -<span id="L4262" class="LineNr">4262 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4263" class="LineNr">4263 </span> 55/push-ebp -<span id="L4264" class="LineNr">4264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4265" class="LineNr">4265 </span> <span class="subxComment"># (eax..ecx) = "+0)"</span> -<span id="L4266" class="LineNr">4266 </span> b8/copy-to-eax <span class="Constant">"+0)"</span>/imm32 -<span id="L4267" class="LineNr">4267 </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="L4268" class="LineNr">4268 </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="L4269" class="LineNr">4269 </span> 05/add-to-eax 4/imm32 -<span id="L4270" class="LineNr">4270 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4271" class="LineNr">4271 </span> 51/push-ecx -<span id="L4272" class="LineNr">4272 </span> 50/push-eax -<span id="L4273" class="LineNr">4273 </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="L4274" class="LineNr">4274 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4275" class="LineNr">4275 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4276" class="LineNr">4276 </span> 51/push-ecx -<span id="L4277" class="LineNr">4277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4278" class="LineNr">4278 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4280" class="LineNr">4280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4281" class="LineNr">4281 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4282" class="LineNr">4282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4283" class="LineNr">4283 </span> 68/push <span class="Constant">"F - test-next-hex-int-zero"</span>/imm32 -<span id="L4284" class="LineNr">4284 </span> 68/push 0/imm32 -<span id="L4285" class="LineNr">4285 </span> 50/push-eax -<span id="L4286" class="LineNr">4286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4287" class="LineNr">4287 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4288" class="LineNr">4288 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4289" class="LineNr">4289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4290" class="LineNr">4290 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4291" class="LineNr">4291 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4292" class="LineNr">4292 </span> 5d/pop-to-ebp -<span id="L4293" class="LineNr">4293 </span> c3/return -<span id="L4294" class="LineNr">4294 </span> -<span id="L4295" class="LineNr">4295 </span><span class="subxTest">test-next-hex-int-0-prefix</span>: -<span id="L4296" class="LineNr">4296 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4297" class="LineNr">4297 </span> 55/push-ebp -<span id="L4298" class="LineNr">4298 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4299" class="LineNr">4299 </span> <span class="subxComment"># (eax..ecx) = "+ 03)"</span> -<span id="L4300" class="LineNr">4300 </span> b8/copy-to-eax <span class="Constant">"+ 03)"</span>/imm32 -<span id="L4301" class="LineNr">4301 </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="L4302" class="LineNr">4302 </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="L4303" class="LineNr">4303 </span> 05/add-to-eax 4/imm32 -<span id="L4304" class="LineNr">4304 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4305" class="LineNr">4305 </span> 51/push-ecx -<span id="L4306" class="LineNr">4306 </span> 50/push-eax -<span id="L4307" class="LineNr">4307 </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="L4308" class="LineNr">4308 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4309" class="LineNr">4309 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4310" class="LineNr">4310 </span> 51/push-ecx -<span id="L4311" class="LineNr">4311 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4312" class="LineNr">4312 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4313" class="LineNr">4313 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4314" class="LineNr">4314 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4315" class="LineNr">4315 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L4316" class="LineNr">4316 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4317" class="LineNr">4317 </span> 68/push <span class="Constant">"F - test-next-hex-int-0-prefix"</span>/imm32 -<span id="L4318" class="LineNr">4318 </span> 68/push 3/imm32 -<span id="L4319" class="LineNr">4319 </span> 50/push-eax -<span id="L4320" class="LineNr">4320 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4321" class="LineNr">4321 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4322" class="LineNr">4322 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4323" class="LineNr">4323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4324" class="LineNr">4324 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4325" class="LineNr">4325 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4326" class="LineNr">4326 </span> 5d/pop-to-ebp -<span id="L4327" class="LineNr">4327 </span> c3/return -<span id="L4328" class="LineNr">4328 </span> -<span id="L4329" class="LineNr">4329 </span><span class="subxTest">test-next-hex-int-negative</span>: -<span id="L4330" class="LineNr">4330 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4331" class="LineNr">4331 </span> 55/push-ebp -<span id="L4332" class="LineNr">4332 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4333" class="LineNr">4333 </span> <span class="subxComment"># (eax..ecx) = "-03)"</span> -<span id="L4334" class="LineNr">4334 </span> b8/copy-to-eax <span class="Constant">"-03)"</span>/imm32 -<span id="L4335" class="LineNr">4335 </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="L4336" class="LineNr">4336 </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="L4337" class="LineNr">4337 </span> 05/add-to-eax 4/imm32 -<span id="L4338" class="LineNr">4338 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4339" class="LineNr">4339 </span> 51/push-ecx -<span id="L4340" class="LineNr">4340 </span> 50/push-eax -<span id="L4341" class="LineNr">4341 </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="L4342" class="LineNr">4342 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4343" class="LineNr">4343 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4344" class="LineNr">4344 </span> 51/push-ecx -<span id="L4345" class="LineNr">4345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4346" class="LineNr">4346 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4347" class="LineNr">4347 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4348" class="LineNr">4348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4349" class="LineNr">4349 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> -<span id="L4350" class="LineNr">4350 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4351" class="LineNr">4351 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative"</span>/imm32 -<span id="L4352" class="LineNr">4352 </span> 68/push -3/imm32 -<span id="L4353" class="LineNr">4353 </span> 50/push-eax -<span id="L4354" class="LineNr">4354 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4355" class="LineNr">4355 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4356" class="LineNr">4356 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4357" class="LineNr">4357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4358" class="LineNr">4358 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4359" class="LineNr">4359 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4360" class="LineNr">4360 </span> 5d/pop-to-ebp -<span id="L4361" class="LineNr">4361 </span> c3/return -<span id="L4362" class="LineNr">4362 </span> -<span id="L4363" class="LineNr">4363 </span><span class="subxTest">test-next-hex-int-negative-with-space</span>: -<span id="L4364" class="LineNr">4364 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4365" class="LineNr">4365 </span> 55/push-ebp -<span id="L4366" class="LineNr">4366 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4367" class="LineNr">4367 </span> <span class="subxComment"># (eax..ecx) = "- 03)"</span> -<span id="L4368" class="LineNr">4368 </span> b8/copy-to-eax <span class="Constant">"- 03)"</span>/imm32 -<span id="L4369" class="LineNr">4369 </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="L4370" class="LineNr">4370 </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="L4371" class="LineNr">4371 </span> 05/add-to-eax 4/imm32 -<span id="L4372" class="LineNr">4372 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4373" class="LineNr">4373 </span> 51/push-ecx -<span id="L4374" class="LineNr">4374 </span> 50/push-eax -<span id="L4375" class="LineNr">4375 </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="L4376" class="LineNr">4376 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4377" class="LineNr">4377 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4378" class="LineNr">4378 </span> 51/push-ecx -<span id="L4379" class="LineNr">4379 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4380" class="LineNr">4380 </span> e8/call <a href='sigils.subx.html#L3986'>next-hex-int</a>/disp32 -<span id="L4381" class="LineNr">4381 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4382" class="LineNr">4382 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4383" class="LineNr">4383 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> -<span id="L4384" class="LineNr">4384 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4385" class="LineNr">4385 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative-with-space"</span>/imm32 -<span id="L4386" class="LineNr">4386 </span> 68/push -3/imm32 -<span id="L4387" class="LineNr">4387 </span> 50/push-eax -<span id="L4388" class="LineNr">4388 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4389" class="LineNr">4389 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4390" class="LineNr">4390 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4391" class="LineNr">4391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4392" class="LineNr">4392 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4393" class="LineNr">4393 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4394" class="LineNr">4394 </span> 5d/pop-to-ebp -<span id="L4395" class="LineNr">4395 </span> c3/return -<span id="L4396" class="LineNr">4396 </span> -<span id="L4397" class="LineNr">4397 </span><span class="subxComment"># assumes 'in' starts a positive unsigned integer</span> -<span id="L4398" class="LineNr">4398 </span><span class="subxComment"># returns the value of the integer</span> -<span id="L4399" class="LineNr">4399 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> -<span id="L4400" class="LineNr">4400 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> -<span id="L4401" class="LineNr">4401 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4402" class="LineNr">4402 </span> 55/push-ebp -<span id="L4403" class="LineNr">4403 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4404" class="LineNr">4404 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L4405" class="LineNr">4405 </span> 51/push-ecx -<span id="L4406" class="LineNr">4406 </span> 52/push-edx -<span id="L4407" class="LineNr">4407 </span> 53/push-ebx -<span id="L4408" class="LineNr">4408 </span> 56/push-esi -<span id="L4409" class="LineNr">4409 </span> 57/push-edi -<span id="L4410" class="LineNr">4410 </span> <span class="subxComment"># result/edi = 0</span> -<span id="L4411" class="LineNr">4411 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L4412" class="LineNr">4412 </span> <span class="subxComment"># esi = in</span> -<span id="L4413" class="LineNr">4413 </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="L4414" class="LineNr">4414 </span> <span class="subxComment"># edx = in->end</span> -<span id="L4415" class="LineNr">4415 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> -<span id="L4416" class="LineNr">4416 </span> <span class="subxComment"># curr/ecx = in->start</span> -<span id="L4417" class="LineNr">4417 </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="L4418" class="LineNr">4418 </span> <span class="subxComment"># negate?/ebx = false</span> -<span id="L4419" class="LineNr">4419 </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="L4420" class="LineNr">4420 </span> <span class="subxComment"># eax = *curr</span> -<span id="L4421" class="LineNr">4421 </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="L4422" class="LineNr">4422 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4423" class="LineNr">4423 </span><span class="Constant">$next-positive-hex-int:initial-0</span>: -<span id="L4424" class="LineNr">4424 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L4425" class="LineNr">4425 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> -<span id="L4426" class="LineNr">4426 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4427" class="LineNr">4427 </span> 3d/compare-eax-and 0x30/imm32/0 -<span id="L4428" class="LineNr">4428 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4429" class="LineNr">4429 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4430" class="LineNr">4430 </span> 41/increment-ecx -<span id="L4431" class="LineNr">4431 </span><span class="Constant">$next-positive-hex-int:initial-0x</span>: -<span id="L4432" class="LineNr">4432 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> -<span id="L4433" class="LineNr">4433 </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="L4434" class="LineNr">4434 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 -<span id="L4435" class="LineNr">4435 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> -<span id="L4436" class="LineNr">4436 </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="L4437" class="LineNr">4437 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4438" class="LineNr">4438 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L4439" class="LineNr">4439 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4440" class="LineNr">4440 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4441" class="LineNr">4441 </span> 41/increment-ecx -<span id="L4442" class="LineNr">4442 </span><span class="Constant">$next-positive-hex-int:loop</span>: -<span id="L4443" class="LineNr">4443 </span> <span class="subxComment"># if (curr >= in->end) break</span> -<span id="L4444" class="LineNr">4444 </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="L4445" class="LineNr">4445 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 -<span id="L4446" class="LineNr">4446 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> -<span id="L4447" class="LineNr">4447 </span> <span class="subxS1Comment"># . eax = *curr</span> -<span id="L4448" class="LineNr">4448 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4449" class="LineNr">4449 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> -<span id="L4450" class="LineNr">4450 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4451" class="LineNr">4451 </span> 50/push-eax -<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4453" class="LineNr">4453 </span> e8/call <a href='../118parse-hex.subx.html#L701'>is-hex-digit?</a>/disp32 -<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4455" class="LineNr">4455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4456" class="LineNr">4456 </span> <span class="subxS1Comment"># . if (eax == false) break</span> -<span id="L4457" class="LineNr">4457 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4458" class="LineNr">4458 </span> 74/jump-if-= $next-positive-hex-int:end/disp8 -<span id="L4459" class="LineNr">4459 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> -<span id="L4460" class="LineNr">4460 </span> <span class="subxS2Comment"># . . copy arg to eax</span> -<span id="L4461" class="LineNr">4461 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4462" class="LineNr">4462 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4463" class="LineNr">4463 </span> e8/call <a href='../118parse-hex.subx.html#L864'>from-hex-char</a>/disp32 -<span id="L4464" class="LineNr">4464 </span> <span class="subxComment"># result = result * 16 + eax</span> -<span id="L4465" class="LineNr">4465 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> -<span id="L4466" class="LineNr">4466 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> -<span id="L4467" class="LineNr">4467 </span> <span class="subxComment"># ++curr</span> -<span id="L4468" class="LineNr">4468 </span> 41/increment-ecx -<span id="L4469" class="LineNr">4469 </span> <span class="subxComment"># loop</span> -<span id="L4470" class="LineNr">4470 </span> eb/jump $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4471" class="LineNr">4471 </span><span class="Constant">$next-positive-hex-int:end</span>: -<span id="L4472" class="LineNr">4472 </span> <span class="subxComment"># word-slice->start = curr</span> -<span id="L4473" class="LineNr">4473 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> -<span id="L4474" class="LineNr">4474 </span> <span class="subxComment"># return edi</span> -<span id="L4475" class="LineNr">4475 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L4476" class="LineNr">4476 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L4477" class="LineNr">4477 </span> 5f/pop-to-edi -<span id="L4478" class="LineNr">4478 </span> 5e/pop-to-esi -<span id="L4479" class="LineNr">4479 </span> 5b/pop-to-ebx -<span id="L4480" class="LineNr">4480 </span> 5a/pop-to-edx -<span id="L4481" class="LineNr">4481 </span> 59/pop-to-ecx -<span id="L4482" class="LineNr">4482 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4483" class="LineNr">4483 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4484" class="LineNr">4484 </span> 5d/pop-to-ebp -<span id="L4485" class="LineNr">4485 </span> c3/return -<span id="L4486" class="LineNr">4486 </span> -<span id="L4487" class="LineNr">4487 </span><span class="subxTest">test-next-positive-hex-int-single-digit</span>: -<span id="L4488" class="LineNr">4488 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4489" class="LineNr">4489 </span> 55/push-ebp -<span id="L4490" class="LineNr">4490 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4491" class="LineNr">4491 </span> <span class="subxComment"># (eax..ecx) = "a)"</span> -<span id="L4492" class="LineNr">4492 </span> b8/copy-to-eax <span class="Constant">"a)"</span>/imm32 -<span id="L4493" class="LineNr">4493 </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="L4494" class="LineNr">4494 </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="L4495" class="LineNr">4495 </span> 05/add-to-eax 4/imm32 -<span id="L4496" class="LineNr">4496 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4497" class="LineNr">4497 </span> 51/push-ecx -<span id="L4498" class="LineNr">4498 </span> 50/push-eax -<span id="L4499" class="LineNr">4499 </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="L4500" class="LineNr">4500 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4501" class="LineNr">4501 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4502" class="LineNr">4502 </span> 51/push-ecx -<span id="L4503" class="LineNr">4503 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4504" class="LineNr">4504 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L4505" class="LineNr">4505 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4506" class="LineNr">4506 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4507" class="LineNr">4507 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> -<span id="L4508" class="LineNr">4508 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4509" class="LineNr">4509 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-single-digit"</span>/imm32 -<span id="L4510" class="LineNr">4510 </span> 68/push 0xa/imm32 -<span id="L4511" class="LineNr">4511 </span> 50/push-eax -<span id="L4512" class="LineNr">4512 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4513" class="LineNr">4513 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4515" class="LineNr">4515 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4516" class="LineNr">4516 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4517" class="LineNr">4517 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4518" class="LineNr">4518 </span> 5d/pop-to-ebp -<span id="L4519" class="LineNr">4519 </span> c3/return -<span id="L4520" class="LineNr">4520 </span> -<span id="L4521" class="LineNr">4521 </span><span class="subxTest">test-next-positive-hex-int-multi-digit</span>: -<span id="L4522" class="LineNr">4522 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4523" class="LineNr">4523 </span> 55/push-ebp -<span id="L4524" class="LineNr">4524 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4525" class="LineNr">4525 </span> <span class="subxComment"># (eax..ecx) = "34a)"</span> -<span id="L4526" class="LineNr">4526 </span> b8/copy-to-eax <span class="Constant">"34a)"</span>/imm32 -<span id="L4527" class="LineNr">4527 </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="L4528" class="LineNr">4528 </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="L4529" class="LineNr">4529 </span> 05/add-to-eax 4/imm32 -<span id="L4530" class="LineNr">4530 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4531" class="LineNr">4531 </span> 51/push-ecx -<span id="L4532" class="LineNr">4532 </span> 50/push-eax -<span id="L4533" class="LineNr">4533 </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="L4534" class="LineNr">4534 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4535" class="LineNr">4535 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4536" class="LineNr">4536 </span> 51/push-ecx -<span id="L4537" class="LineNr">4537 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4538" class="LineNr">4538 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L4539" class="LineNr">4539 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4540" class="LineNr">4540 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4541" class="LineNr">4541 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> -<span id="L4542" class="LineNr">4542 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4543" class="LineNr">4543 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-multi-digit"</span>/imm32 -<span id="L4544" class="LineNr">4544 </span> 68/push 0x34a/imm32 -<span id="L4545" class="LineNr">4545 </span> 50/push-eax -<span id="L4546" class="LineNr">4546 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4547" class="LineNr">4547 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4548" class="LineNr">4548 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4549" class="LineNr">4549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4550" class="LineNr">4550 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4551" class="LineNr">4551 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4552" class="LineNr">4552 </span> 5d/pop-to-ebp -<span id="L4553" class="LineNr">4553 </span> c3/return -<span id="L4554" class="LineNr">4554 </span> -<span id="L4555" class="LineNr">4555 </span><span class="subxTest">test-next-positive-hex-int-0x-prefix</span>: -<span id="L4556" class="LineNr">4556 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4557" class="LineNr">4557 </span> 55/push-ebp -<span id="L4558" class="LineNr">4558 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4559" class="LineNr">4559 </span> <span class="subxComment"># (eax..ecx) = "0x34)"</span> -<span id="L4560" class="LineNr">4560 </span> b8/copy-to-eax <span class="Constant">"0x34)"</span>/imm32 -<span id="L4561" class="LineNr">4561 </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="L4562" class="LineNr">4562 </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="L4563" class="LineNr">4563 </span> 05/add-to-eax 4/imm32 -<span id="L4564" class="LineNr">4564 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4565" class="LineNr">4565 </span> 51/push-ecx -<span id="L4566" class="LineNr">4566 </span> 50/push-eax -<span id="L4567" class="LineNr">4567 </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="L4568" class="LineNr">4568 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4569" class="LineNr">4569 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4570" class="LineNr">4570 </span> 51/push-ecx -<span id="L4571" class="LineNr">4571 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4572" class="LineNr">4572 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L4573" class="LineNr">4573 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4574" class="LineNr">4574 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4575" class="LineNr">4575 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> -<span id="L4576" class="LineNr">4576 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4577" class="LineNr">4577 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0x-prefix"</span>/imm32 -<span id="L4578" class="LineNr">4578 </span> 68/push 0x34/imm32 -<span id="L4579" class="LineNr">4579 </span> 50/push-eax -<span id="L4580" class="LineNr">4580 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4581" class="LineNr">4581 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4582" class="LineNr">4582 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4583" class="LineNr">4583 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4584" class="LineNr">4584 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4585" class="LineNr">4585 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4586" class="LineNr">4586 </span> 5d/pop-to-ebp -<span id="L4587" class="LineNr">4587 </span> c3/return -<span id="L4588" class="LineNr">4588 </span> -<span id="L4589" class="LineNr">4589 </span><span class="subxTest">test-next-positive-hex-int-zero</span>: -<span id="L4590" class="LineNr">4590 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4591" class="LineNr">4591 </span> 55/push-ebp -<span id="L4592" class="LineNr">4592 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4593" class="LineNr">4593 </span> <span class="subxComment"># (eax..ecx) = "0"</span> -<span id="L4594" class="LineNr">4594 </span> b8/copy-to-eax <span class="Constant">"0"</span>/imm32 -<span id="L4595" class="LineNr">4595 </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="L4596" class="LineNr">4596 </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="L4597" class="LineNr">4597 </span> 05/add-to-eax 4/imm32 -<span id="L4598" class="LineNr">4598 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4599" class="LineNr">4599 </span> 51/push-ecx -<span id="L4600" class="LineNr">4600 </span> 50/push-eax -<span id="L4601" class="LineNr">4601 </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="L4602" class="LineNr">4602 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4603" class="LineNr">4603 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4604" class="LineNr">4604 </span> 51/push-ecx -<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4606" class="LineNr">4606 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4608" class="LineNr">4608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4609" class="LineNr">4609 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4610" class="LineNr">4610 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4611" class="LineNr">4611 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-zero"</span>/imm32 -<span id="L4612" class="LineNr">4612 </span> 68/push 0/imm32 -<span id="L4613" class="LineNr">4613 </span> 50/push-eax -<span id="L4614" class="LineNr">4614 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4615" class="LineNr">4615 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4616" class="LineNr">4616 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4617" class="LineNr">4617 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4618" class="LineNr">4618 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4619" class="LineNr">4619 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4620" class="LineNr">4620 </span> 5d/pop-to-ebp -<span id="L4621" class="LineNr">4621 </span> c3/return -<span id="L4622" class="LineNr">4622 </span> -<span id="L4623" class="LineNr">4623 </span><span class="subxTest">test-next-positive-hex-int-0-prefix</span>: -<span id="L4624" class="LineNr">4624 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4625" class="LineNr">4625 </span> 55/push-ebp -<span id="L4626" class="LineNr">4626 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4627" class="LineNr">4627 </span> <span class="subxComment"># (eax..ecx) = "03)"</span> -<span id="L4628" class="LineNr">4628 </span> b8/copy-to-eax <span class="Constant">"03)"</span>/imm32 -<span id="L4629" class="LineNr">4629 </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="L4630" class="LineNr">4630 </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="L4631" class="LineNr">4631 </span> 05/add-to-eax 4/imm32 -<span id="L4632" class="LineNr">4632 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4633" class="LineNr">4633 </span> 51/push-ecx -<span id="L4634" class="LineNr">4634 </span> 50/push-eax -<span id="L4635" class="LineNr">4635 </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="L4636" class="LineNr">4636 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4637" class="LineNr">4637 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4638" class="LineNr">4638 </span> 51/push-ecx -<span id="L4639" class="LineNr">4639 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4640" class="LineNr">4640 </span> e8/call <a href='sigils.subx.html#L4400'>next-positive-hex-int</a>/disp32 -<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4642" class="LineNr">4642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4643" class="LineNr">4643 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L4644" class="LineNr">4644 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4645" class="LineNr">4645 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0-prefix"</span>/imm32 -<span id="L4646" class="LineNr">4646 </span> 68/push 3/imm32 -<span id="L4647" class="LineNr">4647 </span> 50/push-eax -<span id="L4648" class="LineNr">4648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4649" class="LineNr">4649 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4651" class="LineNr">4651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4652" class="LineNr">4652 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4653" class="LineNr">4653 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4654" class="LineNr">4654 </span> 5d/pop-to-ebp -<span id="L4655" class="LineNr">4655 </span> c3/return -<span id="L4656" class="LineNr">4656 </span> -<span id="L4657" class="LineNr">4657 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L2494" class="LineNr">2494 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2495" class="LineNr">2495 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 +<span id="L2496" class="LineNr">2496 </span> e9/jump $parse-effective-address:error3/disp32 +<span id="L2497" class="LineNr">2497 </span><span class="Constant">$parse-effective-address:displacement</span>: +<span id="L2498" class="LineNr">2498 </span> <span class="subxComment"># read integer into disp</span> +<span id="L2499" class="LineNr">2499 </span> <span class="subxS1Comment"># . eax = next-hex-int(local-slice)</span> +<span id="L2500" class="LineNr">2500 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2501" class="LineNr">2501 </span> 56/push-esi +<span id="L2502" class="LineNr">2502 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2503" class="LineNr">2503 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L2504" class="LineNr">2504 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2505" class="LineNr">2505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2506" class="LineNr">2506 </span> <span class="subxS1Comment"># . ebx = eax</span> +<span id="L2507" class="LineNr">2507 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> +<span id="L2508" class="LineNr">2508 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2509" class="LineNr">2509 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2511" class="LineNr">2511 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2512" class="LineNr">2512 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2513" class="LineNr">2513 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2514" class="LineNr">2514 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2515" class="LineNr">2515 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2516" class="LineNr">2516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2517" class="LineNr">2517 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2518" class="LineNr">2518 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2519" class="LineNr">2519 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> +<span id="L2520" class="LineNr">2520 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2521" class="LineNr">2521 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2522" class="LineNr">2522 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2523" class="LineNr">2523 </span> 0f 85/jump-if-!= $parse-effective-address:error4/disp32 +<span id="L2524" class="LineNr">2524 </span><span class="Constant">$parse-effective-address:end</span>: +<span id="L2525" class="LineNr">2525 </span> <span class="subxComment"># return base in eax</span> +<span id="L2526" class="LineNr">2526 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L2527" class="LineNr">2527 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2528" class="LineNr">2528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2529" class="LineNr">2529 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2530" class="LineNr">2530 </span> 5f/pop-to-edi +<span id="L2531" class="LineNr">2531 </span> 5e/pop-to-esi +<span id="L2532" class="LineNr">2532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2533" class="LineNr">2533 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2534" class="LineNr">2534 </span> 5d/pop-to-ebp +<span id="L2535" class="LineNr">2535 </span> c3/return +<span id="L2536" class="LineNr">2536 </span> +<span id="L2537" class="LineNr">2537 </span><span class="Constant">$parse-effective-address:error1</span>: +<span id="L2538" class="LineNr">2538 </span> <span class="subxComment"># print(stderr, "error: unexpected character: " eax "\n")</span> +<span id="L2539" class="LineNr">2539 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character: ")</span> +<span id="L2540" class="LineNr">2540 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2541" class="LineNr">2541 </span> 68/push <span class="Constant">"error: unexpected character: "</span>/imm32 +<span id="L2542" class="LineNr">2542 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2543" class="LineNr">2543 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2544" class="LineNr">2544 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2545" class="LineNr">2545 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2546" class="LineNr">2546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2547" class="LineNr">2547 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2548" class="LineNr">2548 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2549" class="LineNr">2549 </span> 50/push-eax +<span id="L2550" class="LineNr">2550 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2551" class="LineNr">2551 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2552" class="LineNr">2552 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2553" class="LineNr">2553 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2554" class="LineNr">2554 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2555" class="LineNr">2555 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2556" class="LineNr">2556 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2557" class="LineNr">2557 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2558" class="LineNr">2558 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2559" class="LineNr">2559 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2560" class="LineNr">2560 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2561" class="LineNr">2561 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2562" class="LineNr">2562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2563" class="LineNr">2563 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2565" class="LineNr">2565 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2567" class="LineNr">2567 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2569" class="LineNr">2569 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2570" class="LineNr">2570 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2571" class="LineNr">2571 </span> bb/copy-to-ebx 1/imm32 +<span id="L2572" class="LineNr">2572 </span> e8/call syscall_exit/disp32 +<span id="L2573" class="LineNr">2573 </span> <span class="subxComment"># never gets here</span> +<span id="L2574" class="LineNr">2574 </span> +<span id="L2575" class="LineNr">2575 </span><span class="Constant">$parse-effective-address:error2</span>: +<span id="L2576" class="LineNr">2576 </span> <span class="subxComment"># print(stderr, "error: '<' can only be followed by '<' but got: " eax "\n")</span> +<span id="L2577" class="LineNr">2577 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '<' can only be followed by '<' but got: ")</span> +<span id="L2578" class="LineNr">2578 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2579" class="LineNr">2579 </span> 68/push <span class="Constant">"error: '<' can only be followed by '<' but got: "</span>/imm32 +<span id="L2580" class="LineNr">2580 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2581" class="LineNr">2581 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2582" class="LineNr">2582 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2584" class="LineNr">2584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2585" class="LineNr">2585 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2586" class="LineNr">2586 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2587" class="LineNr">2587 </span> 50/push-eax +<span id="L2588" class="LineNr">2588 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2589" class="LineNr">2589 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2590" class="LineNr">2590 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2591" class="LineNr">2591 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2592" class="LineNr">2592 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2593" class="LineNr">2593 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2594" class="LineNr">2594 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2595" class="LineNr">2595 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2596" class="LineNr">2596 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2598" class="LineNr">2598 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2600" class="LineNr">2600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2601" class="LineNr">2601 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2602" class="LineNr">2602 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2603" class="LineNr">2603 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2604" class="LineNr">2604 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2605" class="LineNr">2605 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2606" class="LineNr">2606 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2607" class="LineNr">2607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2608" class="LineNr">2608 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2609" class="LineNr">2609 </span> bb/copy-to-ebx 1/imm32 +<span id="L2610" class="LineNr">2610 </span> e8/call syscall_exit/disp32 +<span id="L2611" class="LineNr">2611 </span> <span class="subxComment"># never gets here</span> +<span id="L2612" class="LineNr">2612 </span> +<span id="L2613" class="LineNr">2613 </span><span class="Constant">$parse-effective-address:error3</span>: +<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># print(stderr, "error: unexpected character before displacement: " eax "\n")</span> +<span id="L2615" class="LineNr">2615 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character before displacement: ")</span> +<span id="L2616" class="LineNr">2616 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2617" class="LineNr">2617 </span> 68/push <span class="Constant">"error: unexpected character before displacement: "</span>/imm32 +<span id="L2618" class="LineNr">2618 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2619" class="LineNr">2619 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2620" class="LineNr">2620 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2621" class="LineNr">2621 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2622" class="LineNr">2622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2623" class="LineNr">2623 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2624" class="LineNr">2624 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2625" class="LineNr">2625 </span> 50/push-eax +<span id="L2626" class="LineNr">2626 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2627" class="LineNr">2627 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2628" class="LineNr">2628 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2629" class="LineNr">2629 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2630" class="LineNr">2630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2631" class="LineNr">2631 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2632" class="LineNr">2632 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2633" class="LineNr">2633 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2634" class="LineNr">2634 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2635" class="LineNr">2635 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2636" class="LineNr">2636 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2637" class="LineNr">2637 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2638" class="LineNr">2638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2639" class="LineNr">2639 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2640" class="LineNr">2640 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2641" class="LineNr">2641 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2643" class="LineNr">2643 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2644" class="LineNr">2644 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2645" class="LineNr">2645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2646" class="LineNr">2646 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2647" class="LineNr">2647 </span> bb/copy-to-ebx 1/imm32 +<span id="L2648" class="LineNr">2648 </span> e8/call syscall_exit/disp32 +<span id="L2649" class="LineNr">2649 </span> <span class="subxComment"># never gets here</span> +<span id="L2650" class="LineNr">2650 </span> +<span id="L2651" class="LineNr">2651 </span><span class="Constant">$parse-effective-address:error4</span>: +<span id="L2652" class="LineNr">2652 </span> <span class="subxComment"># print(stderr, "error: unexpected character after displacement: " eax "; expected ')' to wrap up\n")</span> +<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character after displacement: ")</span> +<span id="L2654" class="LineNr">2654 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2655" class="LineNr">2655 </span> 68/push <span class="Constant">"error: unexpected character after displacement: "</span>/imm32 +<span id="L2656" class="LineNr">2656 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2657" class="LineNr">2657 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2658" class="LineNr">2658 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2659" class="LineNr">2659 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2660" class="LineNr">2660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2661" class="LineNr">2661 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2663" class="LineNr">2663 </span> 50/push-eax +<span id="L2664" class="LineNr">2664 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2665" class="LineNr">2665 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2666" class="LineNr">2666 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2667" class="LineNr">2667 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2668" class="LineNr">2668 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2669" class="LineNr">2669 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "; expected ')' to wrap up\n")</span> +<span id="L2670" class="LineNr">2670 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2671" class="LineNr">2671 </span> 68/push <span class="Constant">"; expected ')' to wrap up\n"</span>/imm32 +<span id="L2672" class="LineNr">2672 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2674" class="LineNr">2674 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2675" class="LineNr">2675 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2676" class="LineNr">2676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2677" class="LineNr">2677 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2679" class="LineNr">2679 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2681" class="LineNr">2681 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2682" class="LineNr">2682 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2683" class="LineNr">2683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2684" class="LineNr">2684 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2685" class="LineNr">2685 </span> bb/copy-to-ebx 1/imm32 +<span id="L2686" class="LineNr">2686 </span> e8/call syscall_exit/disp32 +<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># never gets here</span> +<span id="L2688" class="LineNr">2688 </span> +<span id="L2689" class="LineNr">2689 </span><span class="subxComment"># assumes 'in' starts with a register name, and returns pointer to its code</span> +<span id="L2690" class="LineNr">2690 </span><span class="subxComment"># side-effect: modifies 'in' to scan past the initial register name</span> +<span id="L2691" class="LineNr">2691 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: int</span> +<span id="L2692" class="LineNr">2692 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2693" class="LineNr">2693 </span> 55/push-ebp +<span id="L2694" class="LineNr">2694 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2695" class="LineNr">2695 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2696" class="LineNr">2696 </span> 51/push-ecx +<span id="L2697" class="LineNr">2697 </span> 56/push-esi +<span id="L2698" class="LineNr">2698 </span> <span class="subxComment"># esi = in</span> +<span id="L2699" class="LineNr">2699 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2700" class="LineNr">2700 </span> <span class="subxComment"># var reg-slice/ecx: slice = {in->start, in->start + 3}</span> +<span id="L2701" class="LineNr">2701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2702" class="LineNr">2702 </span> 05/add-to-eax 3/imm32 +<span id="L2703" class="LineNr">2703 </span> 50/push-eax +<span id="L2704" class="LineNr">2704 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2705" class="LineNr">2705 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2706" class="LineNr">2706 </span> <span class="subxComment"># in->start += 3</span> +<span id="L2707" class="LineNr">2707 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32 <span class="subxComment"># add to *esi</span> +<span id="L2708" class="LineNr">2708 </span> <span class="subxComment"># eax = get-slice(Registers, reg-slice, row-size=12)</span> +<span id="L2709" class="LineNr">2709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2710" class="LineNr">2710 </span> 68/push <span class="Constant">"next-register"</span>/imm32 +<span id="L2711" class="LineNr">2711 </span> 68/push 0xc/imm32/row-size +<span id="L2712" class="LineNr">2712 </span> 51/push-ecx +<span id="L2713" class="LineNr">2713 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2714" class="LineNr">2714 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2715" class="LineNr">2715 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L2716" class="LineNr">2716 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2717" class="LineNr">2717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2718" class="LineNr">2718 </span><span class="Constant">$next-register:end</span>: +<span id="L2719" class="LineNr">2719 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2720" class="LineNr">2720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2721" class="LineNr">2721 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2722" class="LineNr">2722 </span> 5e/pop-to-esi +<span id="L2723" class="LineNr">2723 </span> 59/pop-to-ecx +<span id="L2724" class="LineNr">2724 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2725" class="LineNr">2725 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2726" class="LineNr">2726 </span> 5d/pop-to-ebp +<span id="L2727" class="LineNr">2727 </span> c3/return +<span id="L2728" class="LineNr">2728 </span> +<span id="L2729" class="LineNr">2729 </span><span class="subxTest">test-parse-effective-address-simple</span>: +<span id="L2730" class="LineNr">2730 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2731" class="LineNr">2731 </span> 55/push-ebp +<span id="L2732" class="LineNr">2732 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># var slice/ecx = "*esi"</span> +<span id="L2734" class="LineNr">2734 </span> b8/copy-to-eax <span class="Constant">"*esi"</span>/imm32 +<span id="L2735" class="LineNr">2735 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2736" class="LineNr">2736 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2737" class="LineNr">2737 </span> 05/add-to-eax 4/imm32 +<span id="L2738" class="LineNr">2738 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2739" class="LineNr">2739 </span> 51/push-ecx +<span id="L2740" class="LineNr">2740 </span> 50/push-eax +<span id="L2741" class="LineNr">2741 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2742" class="LineNr">2742 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2743" class="LineNr">2743 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2744" class="LineNr">2744 </span> 51/push-ecx +<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2746" class="LineNr">2746 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L2747" class="LineNr">2747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2748" class="LineNr">2748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2749" class="LineNr">2749 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2750" class="LineNr">2750 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2751" class="LineNr">2751 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2752" class="LineNr">2752 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/base"</span>/imm32 +<span id="L2753" class="LineNr">2753 </span> 68/push 6/imm32/esi +<span id="L2754" class="LineNr">2754 </span> 50/push-eax +<span id="L2755" class="LineNr">2755 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2756" class="LineNr">2756 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2757" class="LineNr">2757 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2758" class="LineNr">2758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2759" class="LineNr">2759 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2760" class="LineNr">2760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2761" class="LineNr">2761 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/index"</span>/imm32 +<span id="L2762" class="LineNr">2762 </span> 68/push 4/imm32/none +<span id="L2763" class="LineNr">2763 </span> 51/push-ecx +<span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2765" class="LineNr">2765 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2767" class="LineNr">2767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2768" class="LineNr">2768 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2769" class="LineNr">2769 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2770" class="LineNr">2770 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/scale"</span>/imm32 +<span id="L2771" class="LineNr">2771 </span> 68/push 0/imm32/none +<span id="L2772" class="LineNr">2772 </span> 52/push-edx +<span id="L2773" class="LineNr">2773 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2774" class="LineNr">2774 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2776" class="LineNr">2776 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2777" class="LineNr">2777 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L2778" class="LineNr">2778 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2779" class="LineNr">2779 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/displacement"</span>/imm32 +<span id="L2780" class="LineNr">2780 </span> 68/push 0/imm32/none +<span id="L2781" class="LineNr">2781 </span> 53/push-ebx +<span id="L2782" class="LineNr">2782 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2783" class="LineNr">2783 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2784" class="LineNr">2784 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2785" class="LineNr">2785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2786" class="LineNr">2786 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2787" class="LineNr">2787 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2788" class="LineNr">2788 </span> 5d/pop-to-ebp +<span id="L2789" class="LineNr">2789 </span> c3/return +<span id="L2790" class="LineNr">2790 </span> +<span id="L2791" class="LineNr">2791 </span><span class="subxTest">test-parse-effective-address-base</span>: +<span id="L2792" class="LineNr">2792 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2793" class="LineNr">2793 </span> 55/push-ebp +<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># var slice/ecx = "*(esi )"</span> +<span id="L2796" class="LineNr">2796 </span> b8/copy-to-eax <span class="Constant">"*(esi )"</span>/imm32 +<span id="L2797" class="LineNr">2797 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2798" class="LineNr">2798 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2799" class="LineNr">2799 </span> 05/add-to-eax 4/imm32 +<span id="L2800" class="LineNr">2800 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2801" class="LineNr">2801 </span> 51/push-ecx +<span id="L2802" class="LineNr">2802 </span> 50/push-eax +<span id="L2803" class="LineNr">2803 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2804" class="LineNr">2804 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2805" class="LineNr">2805 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2806" class="LineNr">2806 </span> 51/push-ecx +<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2808" class="LineNr">2808 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L2809" class="LineNr">2809 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2810" class="LineNr">2810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2812" class="LineNr">2812 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2813" class="LineNr">2813 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2814" class="LineNr">2814 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/base"</span>/imm32 +<span id="L2815" class="LineNr">2815 </span> 68/push 6/imm32/esi +<span id="L2816" class="LineNr">2816 </span> 50/push-eax +<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2818" class="LineNr">2818 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2820" class="LineNr">2820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2821" class="LineNr">2821 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2822" class="LineNr">2822 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2823" class="LineNr">2823 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/index"</span>/imm32 +<span id="L2824" class="LineNr">2824 </span> 68/push 4/imm32/none +<span id="L2825" class="LineNr">2825 </span> 51/push-ecx +<span id="L2826" class="LineNr">2826 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2827" class="LineNr">2827 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2828" class="LineNr">2828 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2829" class="LineNr">2829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2830" class="LineNr">2830 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2831" class="LineNr">2831 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2832" class="LineNr">2832 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/scale"</span>/imm32 +<span id="L2833" class="LineNr">2833 </span> 68/push 0/imm32/none +<span id="L2834" class="LineNr">2834 </span> 52/push-edx +<span id="L2835" class="LineNr">2835 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2836" class="LineNr">2836 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2837" class="LineNr">2837 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2838" class="LineNr">2838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2839" class="LineNr">2839 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L2840" class="LineNr">2840 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2841" class="LineNr">2841 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/displacement"</span>/imm32 +<span id="L2842" class="LineNr">2842 </span> 68/push 0/imm32/none +<span id="L2843" class="LineNr">2843 </span> 53/push-ebx +<span id="L2844" class="LineNr">2844 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2845" class="LineNr">2845 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2846" class="LineNr">2846 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2847" class="LineNr">2847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2848" class="LineNr">2848 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2849" class="LineNr">2849 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2850" class="LineNr">2850 </span> 5d/pop-to-ebp +<span id="L2851" class="LineNr">2851 </span> c3/return +<span id="L2852" class="LineNr">2852 </span> +<span id="L2853" class="LineNr">2853 </span><span class="subxTest">test-parse-effective-address-base-displacement</span>: +<span id="L2854" class="LineNr">2854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2855" class="LineNr">2855 </span> 55/push-ebp +<span id="L2856" class="LineNr">2856 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># var slice/ecx = "*(esi+3)"</span> +<span id="L2858" class="LineNr">2858 </span> b8/copy-to-eax <span class="Constant">"*(esi+3)"</span>/imm32 +<span id="L2859" class="LineNr">2859 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2860" class="LineNr">2860 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2861" class="LineNr">2861 </span> 05/add-to-eax 4/imm32 +<span id="L2862" class="LineNr">2862 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2863" class="LineNr">2863 </span> 51/push-ecx +<span id="L2864" class="LineNr">2864 </span> 50/push-eax +<span id="L2865" class="LineNr">2865 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2866" class="LineNr">2866 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2867" class="LineNr">2867 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2868" class="LineNr">2868 </span> 51/push-ecx +<span id="L2869" class="LineNr">2869 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2870" class="LineNr">2870 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L2871" class="LineNr">2871 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2872" class="LineNr">2872 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2873" class="LineNr">2873 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2874" class="LineNr">2874 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2875" class="LineNr">2875 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2876" class="LineNr">2876 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/base"</span>/imm32 +<span id="L2877" class="LineNr">2877 </span> 68/push 6/imm32/esi +<span id="L2878" class="LineNr">2878 </span> 50/push-eax +<span id="L2879" class="LineNr">2879 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2880" class="LineNr">2880 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2881" class="LineNr">2881 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2882" class="LineNr">2882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2883" class="LineNr">2883 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2884" class="LineNr">2884 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2885" class="LineNr">2885 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/index"</span>/imm32 +<span id="L2886" class="LineNr">2886 </span> 68/push 4/imm32/none +<span id="L2887" class="LineNr">2887 </span> 51/push-ecx +<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2889" class="LineNr">2889 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2890" class="LineNr">2890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2891" class="LineNr">2891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2892" class="LineNr">2892 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2893" class="LineNr">2893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2894" class="LineNr">2894 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/scale"</span>/imm32 +<span id="L2895" class="LineNr">2895 </span> 68/push 0/imm32/none +<span id="L2896" class="LineNr">2896 </span> 52/push-edx +<span id="L2897" class="LineNr">2897 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2898" class="LineNr">2898 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2899" class="LineNr">2899 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2900" class="LineNr">2900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2901" class="LineNr">2901 </span> <span class="subxComment"># check-ints-equal(ebx, 3, msg)</span> +<span id="L2902" class="LineNr">2902 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2903" class="LineNr">2903 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/displacement"</span>/imm32 +<span id="L2904" class="LineNr">2904 </span> 68/push 3/imm32 +<span id="L2905" class="LineNr">2905 </span> 53/push-ebx +<span id="L2906" class="LineNr">2906 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2907" class="LineNr">2907 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2908" class="LineNr">2908 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2909" class="LineNr">2909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2910" class="LineNr">2910 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2911" class="LineNr">2911 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2912" class="LineNr">2912 </span> 5d/pop-to-ebp +<span id="L2913" class="LineNr">2913 </span> c3/return +<span id="L2914" class="LineNr">2914 </span> +<span id="L2915" class="LineNr">2915 </span><span class="subxTest">test-parse-effective-address-base-negative-displacement</span>: +<span id="L2916" class="LineNr">2916 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2917" class="LineNr">2917 </span> 55/push-ebp +<span id="L2918" class="LineNr">2918 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2919" class="LineNr">2919 </span> <span class="subxComment"># var slice/ecx = "*(esi-3)"</span> +<span id="L2920" class="LineNr">2920 </span> b8/copy-to-eax <span class="Constant">"*(esi-3)"</span>/imm32 +<span id="L2921" class="LineNr">2921 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2922" class="LineNr">2922 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2923" class="LineNr">2923 </span> 05/add-to-eax 4/imm32 +<span id="L2924" class="LineNr">2924 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2925" class="LineNr">2925 </span> 51/push-ecx +<span id="L2926" class="LineNr">2926 </span> 50/push-eax +<span id="L2927" class="LineNr">2927 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2928" class="LineNr">2928 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2930" class="LineNr">2930 </span> 51/push-ecx +<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2932" class="LineNr">2932 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L2933" class="LineNr">2933 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2934" class="LineNr">2934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2935" class="LineNr">2935 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2936" class="LineNr">2936 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2937" class="LineNr">2937 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2938" class="LineNr">2938 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/base"</span>/imm32 +<span id="L2939" class="LineNr">2939 </span> 68/push 6/imm32/esi +<span id="L2940" class="LineNr">2940 </span> 50/push-eax +<span id="L2941" class="LineNr">2941 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2942" class="LineNr">2942 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2943" class="LineNr">2943 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2944" class="LineNr">2944 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2945" class="LineNr">2945 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2946" class="LineNr">2946 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2947" class="LineNr">2947 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/index"</span>/imm32 +<span id="L2948" class="LineNr">2948 </span> 68/push 4/imm32/none +<span id="L2949" class="LineNr">2949 </span> 51/push-ecx +<span id="L2950" class="LineNr">2950 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2951" class="LineNr">2951 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2952" class="LineNr">2952 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2953" class="LineNr">2953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2954" class="LineNr">2954 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2955" class="LineNr">2955 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2956" class="LineNr">2956 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/scale"</span>/imm32 +<span id="L2957" class="LineNr">2957 </span> 68/push 0/imm32/none +<span id="L2958" class="LineNr">2958 </span> 52/push-edx +<span id="L2959" class="LineNr">2959 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2960" class="LineNr">2960 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2962" class="LineNr">2962 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2963" class="LineNr">2963 </span> <span class="subxComment"># check-ints-equal(ebx, -3, msg)</span> +<span id="L2964" class="LineNr">2964 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2965" class="LineNr">2965 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/displacement"</span>/imm32 +<span id="L2966" class="LineNr">2966 </span> 68/push -3/imm32 +<span id="L2967" class="LineNr">2967 </span> 53/push-ebx +<span id="L2968" class="LineNr">2968 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2969" class="LineNr">2969 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2970" class="LineNr">2970 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2971" class="LineNr">2971 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2972" class="LineNr">2972 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2973" class="LineNr">2973 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2974" class="LineNr">2974 </span> 5d/pop-to-ebp +<span id="L2975" class="LineNr">2975 </span> c3/return +<span id="L2976" class="LineNr">2976 </span> +<span id="L2977" class="LineNr">2977 </span><span class="subxTest">test-parse-effective-address-base-index</span>: +<span id="L2978" class="LineNr">2978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2979" class="LineNr">2979 </span> 55/push-ebp +<span id="L2980" class="LineNr">2980 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2981" class="LineNr">2981 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx)"</span> +<span id="L2982" class="LineNr">2982 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx)"</span>/imm32 +<span id="L2983" class="LineNr">2983 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2984" class="LineNr">2984 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2985" class="LineNr">2985 </span> 05/add-to-eax 4/imm32 +<span id="L2986" class="LineNr">2986 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2987" class="LineNr">2987 </span> 51/push-ecx +<span id="L2988" class="LineNr">2988 </span> 50/push-eax +<span id="L2989" class="LineNr">2989 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2990" class="LineNr">2990 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2991" class="LineNr">2991 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2992" class="LineNr">2992 </span> 51/push-ecx +<span id="L2993" class="LineNr">2993 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2994" class="LineNr">2994 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L2995" class="LineNr">2995 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2996" class="LineNr">2996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2997" class="LineNr">2997 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2998" class="LineNr">2998 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2999" class="LineNr">2999 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3000" class="LineNr">3000 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/base"</span>/imm32 +<span id="L3001" class="LineNr">3001 </span> 68/push 6/imm32/esi +<span id="L3002" class="LineNr">3002 </span> 50/push-eax +<span id="L3003" class="LineNr">3003 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3004" class="LineNr">3004 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3005" class="LineNr">3005 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3006" class="LineNr">3006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3007" class="LineNr">3007 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3008" class="LineNr">3008 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3009" class="LineNr">3009 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/index"</span>/imm32 +<span id="L3010" class="LineNr">3010 </span> 68/push 1/imm32/none +<span id="L3011" class="LineNr">3011 </span> 51/push-ecx +<span id="L3012" class="LineNr">3012 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3013" class="LineNr">3013 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3015" class="LineNr">3015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3016" class="LineNr">3016 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L3017" class="LineNr">3017 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3018" class="LineNr">3018 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/scale"</span>/imm32 +<span id="L3019" class="LineNr">3019 </span> 68/push 0/imm32/none +<span id="L3020" class="LineNr">3020 </span> 52/push-edx +<span id="L3021" class="LineNr">3021 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3022" class="LineNr">3022 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3023" class="LineNr">3023 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3024" class="LineNr">3024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3025" class="LineNr">3025 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L3026" class="LineNr">3026 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3027" class="LineNr">3027 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/displacement"</span>/imm32 +<span id="L3028" class="LineNr">3028 </span> 68/push 0/imm32 +<span id="L3029" class="LineNr">3029 </span> 53/push-ebx +<span id="L3030" class="LineNr">3030 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3031" class="LineNr">3031 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3032" class="LineNr">3032 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3033" class="LineNr">3033 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3034" class="LineNr">3034 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3035" class="LineNr">3035 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3036" class="LineNr">3036 </span> 5d/pop-to-ebp +<span id="L3037" class="LineNr">3037 </span> c3/return +<span id="L3038" class="LineNr">3038 </span> +<span id="L3039" class="LineNr">3039 </span><span class="subxTest">test-parse-effective-address-base-index-scale</span>: +<span id="L3040" class="LineNr">3040 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3041" class="LineNr">3041 </span> 55/push-ebp +<span id="L3042" class="LineNr">3042 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3043" class="LineNr">3043 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx<<2)"</span> +<span id="L3044" class="LineNr">3044 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx<<2)"</span>/imm32 +<span id="L3045" class="LineNr">3045 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3046" class="LineNr">3046 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3047" class="LineNr">3047 </span> 05/add-to-eax 4/imm32 +<span id="L3048" class="LineNr">3048 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L3049" class="LineNr">3049 </span> 51/push-ecx +<span id="L3050" class="LineNr">3050 </span> 50/push-eax +<span id="L3051" class="LineNr">3051 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3052" class="LineNr">3052 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L3053" class="LineNr">3053 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3054" class="LineNr">3054 </span> 51/push-ecx +<span id="L3055" class="LineNr">3055 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3056" class="LineNr">3056 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L3057" class="LineNr">3057 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3058" class="LineNr">3058 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3059" class="LineNr">3059 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L3060" class="LineNr">3060 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3061" class="LineNr">3061 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3062" class="LineNr">3062 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 +<span id="L3063" class="LineNr">3063 </span> 68/push 6/imm32/esi +<span id="L3064" class="LineNr">3064 </span> 50/push-eax +<span id="L3065" class="LineNr">3065 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3066" class="LineNr">3066 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3067" class="LineNr">3067 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3068" class="LineNr">3068 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3069" class="LineNr">3069 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3070" class="LineNr">3070 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3071" class="LineNr">3071 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 +<span id="L3072" class="LineNr">3072 </span> 68/push 1/imm32/none +<span id="L3073" class="LineNr">3073 </span> 51/push-ecx +<span id="L3074" class="LineNr">3074 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3075" class="LineNr">3075 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3076" class="LineNr">3076 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3077" class="LineNr">3077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3078" class="LineNr">3078 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> +<span id="L3079" class="LineNr">3079 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3080" class="LineNr">3080 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 +<span id="L3081" class="LineNr">3081 </span> 68/push 2/imm32 +<span id="L3082" class="LineNr">3082 </span> 52/push-edx +<span id="L3083" class="LineNr">3083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3084" class="LineNr">3084 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3085" class="LineNr">3085 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3086" class="LineNr">3086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3087" class="LineNr">3087 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L3088" class="LineNr">3088 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3089" class="LineNr">3089 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 +<span id="L3090" class="LineNr">3090 </span> 68/push 0/imm32 +<span id="L3091" class="LineNr">3091 </span> 53/push-ebx +<span id="L3092" class="LineNr">3092 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3093" class="LineNr">3093 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3094" class="LineNr">3094 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3095" class="LineNr">3095 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3096" class="LineNr">3096 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3097" class="LineNr">3097 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3098" class="LineNr">3098 </span> 5d/pop-to-ebp +<span id="L3099" class="LineNr">3099 </span> c3/return +<span id="L3100" class="LineNr">3100 </span> +<span id="L3101" class="LineNr">3101 </span><span class="subxTest">test-parse-effective-address-base-index-scale-displacement</span>: +<span id="L3102" class="LineNr">3102 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3103" class="LineNr">3103 </span> 55/push-ebp +<span id="L3104" class="LineNr">3104 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3105" class="LineNr">3105 </span> <span class="subxComment"># var slice/ecx = "*(esi + ecx<<2 - 0x34)"</span> +<span id="L3106" class="LineNr">3106 </span> b8/copy-to-eax <span class="Constant">"*(esi + ecx<<2 - 0x34)"</span>/imm32 +<span id="L3107" class="LineNr">3107 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3108" class="LineNr">3108 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3109" class="LineNr">3109 </span> 05/add-to-eax 4/imm32 +<span id="L3110" class="LineNr">3110 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L3111" class="LineNr">3111 </span> 51/push-ecx +<span id="L3112" class="LineNr">3112 </span> 50/push-eax +<span id="L3113" class="LineNr">3113 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3114" class="LineNr">3114 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L3115" class="LineNr">3115 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3116" class="LineNr">3116 </span> 51/push-ecx +<span id="L3117" class="LineNr">3117 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3118" class="LineNr">3118 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 +<span id="L3119" class="LineNr">3119 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3120" class="LineNr">3120 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3121" class="LineNr">3121 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L3122" class="LineNr">3122 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3123" class="LineNr">3123 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3124" class="LineNr">3124 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 +<span id="L3125" class="LineNr">3125 </span> 68/push 6/imm32/esi +<span id="L3126" class="LineNr">3126 </span> 50/push-eax +<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3128" class="LineNr">3128 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3129" class="LineNr">3129 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3130" class="LineNr">3130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3131" class="LineNr">3131 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3132" class="LineNr">3132 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3133" class="LineNr">3133 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 +<span id="L3134" class="LineNr">3134 </span> 68/push 1/imm32/none +<span id="L3135" class="LineNr">3135 </span> 51/push-ecx +<span id="L3136" class="LineNr">3136 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3137" class="LineNr">3137 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3138" class="LineNr">3138 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3139" class="LineNr">3139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3140" class="LineNr">3140 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> +<span id="L3141" class="LineNr">3141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3142" class="LineNr">3142 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 +<span id="L3143" class="LineNr">3143 </span> 68/push 2/imm32 +<span id="L3144" class="LineNr">3144 </span> 52/push-edx +<span id="L3145" class="LineNr">3145 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3146" class="LineNr">3146 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3147" class="LineNr">3147 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3148" class="LineNr">3148 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3149" class="LineNr">3149 </span> <span class="subxComment"># check-ints-equal(ebx, -0x34, msg)</span> +<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3151" class="LineNr">3151 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 +<span id="L3152" class="LineNr">3152 </span> 68/push -0x34/imm32 +<span id="L3153" class="LineNr">3153 </span> 53/push-ebx +<span id="L3154" class="LineNr">3154 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3155" class="LineNr">3155 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3157" class="LineNr">3157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3158" class="LineNr">3158 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3159" class="LineNr">3159 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3160" class="LineNr">3160 </span> 5d/pop-to-ebp +<span id="L3161" class="LineNr">3161 </span> c3/return +<span id="L3162" class="LineNr">3162 </span> +<span id="L3163" class="LineNr">3163 </span><span class="subxComment"># Code generation:</span> +<span id="L3164" class="LineNr">3164 </span><span class="subxComment"># if base is esp, then goto emit-sib</span> +<span id="L3165" class="LineNr">3165 </span><span class="subxComment"># if base is ebp, then goto emit-sib</span> +<span id="L3166" class="LineNr">3166 </span><span class="subxComment"># if index is none and disp is 0, then mod = 0 and rm32 = base</span> +<span id="L3167" class="LineNr">3167 </span><span class="subxComment"># if index is none, then mod = 2 and rm32 = base and disp32 = disp</span> +<span id="L3168" class="LineNr">3168 </span><span class="subxComment"># emit-sib:</span> +<span id="L3169" class="LineNr">3169 </span><span class="subxComment"># if index is not none, then mod = 2 and rm32 = 4 and base = base and index = index and disp32 = disp</span> +<span id="L3170" class="LineNr">3170 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out: (addr buffered-file), base: int, index: int, scale: int, disp: int</span> +<span id="L3171" class="LineNr">3171 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3172" class="LineNr">3172 </span> 55/push-ebp +<span id="L3173" class="LineNr">3173 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3174" class="LineNr">3174 </span><span class="Constant">$emit-indirect-mode:check-for-ebp</span>: +<span id="L3175" class="LineNr">3175 </span> <span class="subxComment"># if (base == 5) goto emit-sib</span> +<span id="L3176" class="LineNr">3176 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 5/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L3177" class="LineNr">3177 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 +<span id="L3178" class="LineNr">3178 </span><span class="Constant">$emit-indirect-mode:check-for-esp</span>: +<span id="L3179" class="LineNr">3179 </span> <span class="subxComment"># if (base == 4) goto emit-sib</span> +<span id="L3180" class="LineNr">3180 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 4/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L3181" class="LineNr">3181 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 +<span id="L3182" class="LineNr">3182 </span><span class="Constant">$emit-indirect-mode:check-for-sib</span>: +<span id="L3183" class="LineNr">3183 </span> <span class="subxComment"># if (index == 4/none) goto next check</span> +<span id="L3184" class="LineNr">3184 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 4/imm32 <span class="subxComment"># compare *(ebp+16)</span> +<span id="L3185" class="LineNr">3185 </span> 0f 84/jump-if-= $emit-indirect-mode:check-for-disp/disp32 +<span id="L3186" class="LineNr">3186 </span><span class="Constant">$emit-indirect-mode:emit-sib</span>: +<span id="L3187" class="LineNr">3187 </span> <span class="subxComment"># emit(out, "2/mod/indirect 4/rm32/sib " base "/base " index "/index " scale "/scale " disp "/disp32")</span> +<span id="L3188" class="LineNr">3188 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 4/rm32/sib ")</span> +<span id="L3189" class="LineNr">3189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3190" class="LineNr">3190 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib "</span>/imm32 +<span id="L3191" class="LineNr">3191 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3192" class="LineNr">3192 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3193" class="LineNr">3193 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3194" class="LineNr">3194 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3195" class="LineNr">3195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3196" class="LineNr">3196 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3197" class="LineNr">3197 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3198" class="LineNr">3198 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3199" class="LineNr">3199 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3201" class="LineNr">3201 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3203" class="LineNr">3203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3204" class="LineNr">3204 </span> <span class="subxS1Comment"># . write-buffered(out, "/base ")</span> +<span id="L3205" class="LineNr">3205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3206" class="LineNr">3206 </span> 68/push <span class="Constant">"/base "</span>/imm32 +<span id="L3207" class="LineNr">3207 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3208" class="LineNr">3208 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3209" class="LineNr">3209 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3210" class="LineNr">3210 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3211" class="LineNr">3211 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3212" class="LineNr">3212 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, index)</span> +<span id="L3213" class="LineNr">3213 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3214" class="LineNr">3214 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3215" class="LineNr">3215 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3216" class="LineNr">3216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3217" class="LineNr">3217 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3219" class="LineNr">3219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3220" class="LineNr">3220 </span> <span class="subxS1Comment"># . write-buffered(out, "/index ")</span> +<span id="L3221" class="LineNr">3221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3222" class="LineNr">3222 </span> 68/push <span class="Constant">"/index "</span>/imm32 +<span id="L3223" class="LineNr">3223 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3224" class="LineNr">3224 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3225" class="LineNr">3225 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3226" class="LineNr">3226 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3227" class="LineNr">3227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3228" class="LineNr">3228 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, scale)</span> +<span id="L3229" class="LineNr">3229 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3230" class="LineNr">3230 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L3231" class="LineNr">3231 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3232" class="LineNr">3232 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3233" class="LineNr">3233 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3234" class="LineNr">3234 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3235" class="LineNr">3235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . write-buffered(out, "/scale ")</span> +<span id="L3237" class="LineNr">3237 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3238" class="LineNr">3238 </span> 68/push <span class="Constant">"/scale "</span>/imm32 +<span id="L3239" class="LineNr">3239 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3240" class="LineNr">3240 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3241" class="LineNr">3241 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3242" class="LineNr">3242 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3243" class="LineNr">3243 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3244" class="LineNr">3244 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> +<span id="L3245" class="LineNr">3245 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3246" class="LineNr">3246 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3247" class="LineNr">3247 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3248" class="LineNr">3248 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3249" class="LineNr">3249 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3250" class="LineNr">3250 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3251" class="LineNr">3251 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3252" class="LineNr">3252 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> +<span id="L3253" class="LineNr">3253 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3254" class="LineNr">3254 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3255" class="LineNr">3255 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3256" class="LineNr">3256 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3257" class="LineNr">3257 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3258" class="LineNr">3258 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3259" class="LineNr">3259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3260" class="LineNr">3260 </span> e9/jump $emit-indirect-mode:end/disp32 +<span id="L3261" class="LineNr">3261 </span><span class="Constant">$emit-indirect-mode:check-for-disp</span>: +<span id="L3262" class="LineNr">3262 </span> <span class="subxComment"># if (disp == 0) goto next check</span> +<span id="L3263" class="LineNr">3263 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 0/imm32 <span class="subxComment"># compare *(ebp+24)</span> +<span id="L3264" class="LineNr">3264 </span> 74/jump-if-= $emit-indirect-mode:emit-indirect/disp8 +<span id="L3265" class="LineNr">3265 </span><span class="Constant">$emit-indirect-mode:emit-disp</span>: +<span id="L3266" class="LineNr">3266 </span> <span class="subxComment"># emit(out, "2/mod/*+disp32 " base "/rm32 " disp "/disp32")</span> +<span id="L3267" class="LineNr">3267 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 ")</span> +<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3269" class="LineNr">3269 </span> 68/push <span class="Constant">"2/mod/*+disp32 "</span>/imm32 +<span id="L3270" class="LineNr">3270 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3271" class="LineNr">3271 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3272" class="LineNr">3272 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3273" class="LineNr">3273 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3274" class="LineNr">3274 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3275" class="LineNr">3275 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3276" class="LineNr">3276 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3277" class="LineNr">3277 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3278" class="LineNr">3278 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3279" class="LineNr">3279 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3280" class="LineNr">3280 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3281" class="LineNr">3281 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3282" class="LineNr">3282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3283" class="LineNr">3283 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32 ")</span> +<span id="L3284" class="LineNr">3284 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3285" class="LineNr">3285 </span> 68/push <span class="Constant">"/rm32 "</span>/imm32 +<span id="L3286" class="LineNr">3286 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3287" class="LineNr">3287 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3288" class="LineNr">3288 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3290" class="LineNr">3290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3291" class="LineNr">3291 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> +<span id="L3292" class="LineNr">3292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3293" class="LineNr">3293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3294" class="LineNr">3294 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3296" class="LineNr">3296 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3297" class="LineNr">3297 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3298" class="LineNr">3298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3299" class="LineNr">3299 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> +<span id="L3300" class="LineNr">3300 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3301" class="LineNr">3301 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3302" class="LineNr">3302 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3303" class="LineNr">3303 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3304" class="LineNr">3304 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3305" class="LineNr">3305 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3306" class="LineNr">3306 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3307" class="LineNr">3307 </span> eb/jump $emit-indirect-mode:end/disp8 +<span id="L3308" class="LineNr">3308 </span><span class="Constant">$emit-indirect-mode:emit-indirect</span>: +<span id="L3309" class="LineNr">3309 </span> <span class="subxComment"># emit(out, "0/mod/indirect " base "/rm32")</span> +<span id="L3310" class="LineNr">3310 </span> <span class="subxS1Comment"># . write-buffered(out, "0/mod/indirect ")</span> +<span id="L3311" class="LineNr">3311 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3312" class="LineNr">3312 </span> 68/push <span class="Constant">"0/mod/indirect "</span>/imm32 +<span id="L3313" class="LineNr">3313 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3315" class="LineNr">3315 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3317" class="LineNr">3317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3318" class="LineNr">3318 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3319" class="LineNr">3319 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3320" class="LineNr">3320 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3321" class="LineNr">3321 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3322" class="LineNr">3322 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3323" class="LineNr">3323 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3324" class="LineNr">3324 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3325" class="LineNr">3325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3326" class="LineNr">3326 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32")</span> +<span id="L3327" class="LineNr">3327 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3328" class="LineNr">3328 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 +<span id="L3329" class="LineNr">3329 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3330" class="LineNr">3330 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3331" class="LineNr">3331 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3332" class="LineNr">3332 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3333" class="LineNr">3333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3334" class="LineNr">3334 </span><span class="Constant">$emit-indirect-mode:end</span>: +<span id="L3335" class="LineNr">3335 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3336" class="LineNr">3336 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3337" class="LineNr">3337 </span> 5d/pop-to-ebp +<span id="L3338" class="LineNr">3338 </span> c3/return +<span id="L3339" class="LineNr">3339 </span> +<span id="L3340" class="LineNr">3340 </span><span class="subxTest">test-emit-indirect-mode</span>: +<span id="L3341" class="LineNr">3341 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3342" class="LineNr">3342 </span> 55/push-ebp +<span id="L3343" class="LineNr">3343 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3344" class="LineNr">3344 </span> <span class="subxComment"># setup</span> +<span id="L3345" class="LineNr">3345 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3346" class="LineNr">3346 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3347" class="LineNr">3347 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3349" class="LineNr">3349 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3350" class="LineNr">3350 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3351" class="LineNr">3351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3352" class="LineNr">3352 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3354" class="LineNr">3354 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3355" class="LineNr">3355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3356" class="LineNr">3356 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3357" class="LineNr">3357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3358" class="LineNr">3358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3359" class="LineNr">3359 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 0, 4/none, 0, 0)</span> +<span id="L3360" class="LineNr">3360 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3361" class="LineNr">3361 </span> 68/push 0/imm32/.disp +<span id="L3362" class="LineNr">3362 </span> 68/push 0/imm32/.scale +<span id="L3363" class="LineNr">3363 </span> 68/push 4/imm32/.index/none +<span id="L3364" class="LineNr">3364 </span> 68/push 0/imm32/.base +<span id="L3365" class="LineNr">3365 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3367" class="LineNr">3367 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3369" class="LineNr">3369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3370" class="LineNr">3370 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3372" class="LineNr">3372 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3373" class="LineNr">3373 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3374" class="LineNr">3374 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3376" class="LineNr">3376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3377" class="Folded">3377 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3403" class="LineNr">3403 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 0/rm32", msg)</span> +<span id="L3404" class="LineNr">3404 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3405" class="LineNr">3405 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode"</span>/imm32 +<span id="L3406" class="LineNr">3406 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000000/rm32"</span>/imm32 +<span id="L3407" class="LineNr">3407 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3408" class="LineNr">3408 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3409" class="LineNr">3409 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3410" class="LineNr">3410 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3411" class="LineNr">3411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3412" class="LineNr">3412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3413" class="LineNr">3413 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3414" class="LineNr">3414 </span> 5d/pop-to-ebp +<span id="L3415" class="LineNr">3415 </span> c3/return +<span id="L3416" class="LineNr">3416 </span> +<span id="L3417" class="LineNr">3417 </span><span class="subxTest">test-emit-indirect-mode-2</span>: +<span id="L3418" class="LineNr">3418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3419" class="LineNr">3419 </span> 55/push-ebp +<span id="L3420" class="LineNr">3420 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3421" class="LineNr">3421 </span> <span class="subxComment"># setup</span> +<span id="L3422" class="LineNr">3422 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3423" class="LineNr">3423 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3424" class="LineNr">3424 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3425" class="LineNr">3425 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3426" class="LineNr">3426 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3427" class="LineNr">3427 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3428" class="LineNr">3428 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3430" class="LineNr">3430 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3431" class="LineNr">3431 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3432" class="LineNr">3432 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3433" class="LineNr">3433 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3435" class="LineNr">3435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3436" class="LineNr">3436 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 0)</span> +<span id="L3437" class="LineNr">3437 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3438" class="LineNr">3438 </span> 68/push 0/imm32/.disp +<span id="L3439" class="LineNr">3439 </span> 68/push 0/imm32/.scale +<span id="L3440" class="LineNr">3440 </span> 68/push 4/imm32/.index/none +<span id="L3441" class="LineNr">3441 </span> 68/push 7/imm32/.base +<span id="L3442" class="LineNr">3442 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3443" class="LineNr">3443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3444" class="LineNr">3444 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3445" class="LineNr">3445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3446" class="LineNr">3446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3447" class="LineNr">3447 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3449" class="LineNr">3449 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3451" class="LineNr">3451 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3452" class="LineNr">3452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3453" class="LineNr">3453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3454" class="Folded">3454 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3480" class="LineNr">3480 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 7/rm32", msg)</span> +<span id="L3481" class="LineNr">3481 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3482" class="LineNr">3482 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-2"</span>/imm32 +<span id="L3483" class="LineNr">3483 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000007/rm32"</span>/imm32 +<span id="L3484" class="LineNr">3484 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3485" class="LineNr">3485 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3486" class="LineNr">3486 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3487" class="LineNr">3487 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3488" class="LineNr">3488 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3489" class="LineNr">3489 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3490" class="LineNr">3490 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3491" class="LineNr">3491 </span> 5d/pop-to-ebp +<span id="L3492" class="LineNr">3492 </span> c3/return +<span id="L3493" class="LineNr">3493 </span> +<span id="L3494" class="LineNr">3494 </span><span class="subxTest">test-emit-indirect-mode-with-disp</span>: +<span id="L3495" class="LineNr">3495 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3496" class="LineNr">3496 </span> 55/push-ebp +<span id="L3497" class="LineNr">3497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3498" class="LineNr">3498 </span> <span class="subxComment"># setup</span> +<span id="L3499" class="LineNr">3499 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3501" class="LineNr">3501 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3503" class="LineNr">3503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3505" class="LineNr">3505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3506" class="LineNr">3506 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3508" class="LineNr">3508 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3510" class="LineNr">3510 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3511" class="LineNr">3511 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3512" class="LineNr">3512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3513" class="LineNr">3513 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 4)</span> +<span id="L3514" class="LineNr">3514 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3515" class="LineNr">3515 </span> 68/push 4/imm32/.disp +<span id="L3516" class="LineNr">3516 </span> 68/push 0/imm32/.scale +<span id="L3517" class="LineNr">3517 </span> 68/push 4/imm32/.index/none +<span id="L3518" class="LineNr">3518 </span> 68/push 6/imm32/.base +<span id="L3519" class="LineNr">3519 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3520" class="LineNr">3520 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3521" class="LineNr">3521 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3523" class="LineNr">3523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3524" class="LineNr">3524 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3526" class="LineNr">3526 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3528" class="LineNr">3528 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3529" class="LineNr">3529 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3530" class="LineNr">3530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3531" class="Folded">3531 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3557" class="LineNr">3557 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 4/disp32", msg)</span> +<span id="L3558" class="LineNr">3558 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3559" class="LineNr">3559 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 +<span id="L3560" class="LineNr">3560 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0x00000004/disp32"</span>/imm32 +<span id="L3561" class="LineNr">3561 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3562" class="LineNr">3562 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3563" class="LineNr">3563 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3564" class="LineNr">3564 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3565" class="LineNr">3565 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3566" class="LineNr">3566 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3567" class="LineNr">3567 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3568" class="LineNr">3568 </span> 5d/pop-to-ebp +<span id="L3569" class="LineNr">3569 </span> c3/return +<span id="L3570" class="LineNr">3570 </span> +<span id="L3571" class="LineNr">3571 </span><span class="subxTest">test-emit-indirect-mode-with-disp-negative</span>: +<span id="L3572" class="LineNr">3572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3573" class="LineNr">3573 </span> 55/push-ebp +<span id="L3574" class="LineNr">3574 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3575" class="LineNr">3575 </span> <span class="subxComment"># setup</span> +<span id="L3576" class="LineNr">3576 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3577" class="LineNr">3577 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3578" class="LineNr">3578 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3579" class="LineNr">3579 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3580" class="LineNr">3580 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3581" class="LineNr">3581 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3582" class="LineNr">3582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3583" class="LineNr">3583 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3584" class="LineNr">3584 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3585" class="LineNr">3585 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3586" class="LineNr">3586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3587" class="LineNr">3587 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3588" class="LineNr">3588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3589" class="LineNr">3589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3590" class="LineNr">3590 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, -4)</span> +<span id="L3591" class="LineNr">3591 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3592" class="LineNr">3592 </span> 68/push -4/imm32/.disp +<span id="L3593" class="LineNr">3593 </span> 68/push 0/imm32/.scale +<span id="L3594" class="LineNr">3594 </span> 68/push 4/imm32/.index/none +<span id="L3595" class="LineNr">3595 </span> 68/push 6/imm32/.base +<span id="L3596" class="LineNr">3596 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3597" class="LineNr">3597 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3598" class="LineNr">3598 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3599" class="LineNr">3599 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3600" class="LineNr">3600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3601" class="LineNr">3601 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3602" class="LineNr">3602 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3603" class="LineNr">3603 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3604" class="LineNr">3604 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3605" class="LineNr">3605 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3606" class="LineNr">3606 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3607" class="LineNr">3607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3608" class="Folded">3608 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3634" class="LineNr">3634 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 -4/disp32", msg)</span> +<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3636" class="LineNr">3636 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 +<span id="L3637" class="LineNr">3637 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0xfffffffc/disp32"</span>/imm32 +<span id="L3638" class="LineNr">3638 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3639" class="LineNr">3639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3640" class="LineNr">3640 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3641" class="LineNr">3641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3642" class="LineNr">3642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3643" class="LineNr">3643 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3644" class="LineNr">3644 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3645" class="LineNr">3645 </span> 5d/pop-to-ebp +<span id="L3646" class="LineNr">3646 </span> c3/return +<span id="L3647" class="LineNr">3647 </span> +<span id="L3648" class="LineNr">3648 </span><span class="subxTest">test-emit-indirect-mode-with-sib</span>: +<span id="L3649" class="LineNr">3649 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3650" class="LineNr">3650 </span> 55/push-ebp +<span id="L3651" class="LineNr">3651 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3652" class="LineNr">3652 </span> <span class="subxComment"># setup</span> +<span id="L3653" class="LineNr">3653 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3654" class="LineNr">3654 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3655" class="LineNr">3655 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3656" class="LineNr">3656 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3657" class="LineNr">3657 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3658" class="LineNr">3658 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3659" class="LineNr">3659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3660" class="LineNr">3660 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3661" class="LineNr">3661 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3662" class="LineNr">3662 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3664" class="LineNr">3664 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3665" class="LineNr">3665 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3666" class="LineNr">3666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3667" class="LineNr">3667 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6/base, 1/index, 2/scale, 4/disp)</span> +<span id="L3668" class="LineNr">3668 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3669" class="LineNr">3669 </span> 68/push 4/imm32/.disp +<span id="L3670" class="LineNr">3670 </span> 68/push 2/imm32/.scale +<span id="L3671" class="LineNr">3671 </span> 68/push 1/imm32/.index +<span id="L3672" class="LineNr">3672 </span> 68/push 6/imm32/.base +<span id="L3673" class="LineNr">3673 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3674" class="LineNr">3674 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3675" class="LineNr">3675 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3676" class="LineNr">3676 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3677" class="LineNr">3677 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3678" class="LineNr">3678 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3679" class="LineNr">3679 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3680" class="LineNr">3680 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3681" class="LineNr">3681 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3682" class="LineNr">3682 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3683" class="LineNr">3683 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3684" class="LineNr">3684 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3685" class="Folded">3685 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3711" class="LineNr">3711 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/indirect 4/rm32/sib 6/base 1/index 2/scale 4/disp", msg)</span> +<span id="L3712" class="LineNr">3712 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3713" class="LineNr">3713 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-sib"</span>/imm32 +<span id="L3714" class="LineNr">3714 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000006/base 0x00000001/index 0x00000002/scale 0x00000004/disp32"</span>/imm32 +<span id="L3715" class="LineNr">3715 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3716" class="LineNr">3716 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3717" class="LineNr">3717 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3718" class="LineNr">3718 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3719" class="LineNr">3719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3720" class="LineNr">3720 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3721" class="LineNr">3721 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3722" class="LineNr">3722 </span> 5d/pop-to-ebp +<span id="L3723" class="LineNr">3723 </span> c3/return +<span id="L3724" class="LineNr">3724 </span> +<span id="L3725" class="LineNr">3725 </span><span class="subxTest">test-emit-indirect-mode-ebp</span>: +<span id="L3726" class="LineNr">3726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3727" class="LineNr">3727 </span> 55/push-ebp +<span id="L3728" class="LineNr">3728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3729" class="LineNr">3729 </span> <span class="subxComment"># setup</span> +<span id="L3730" class="LineNr">3730 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3732" class="LineNr">3732 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3733" class="LineNr">3733 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3734" class="LineNr">3734 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3735" class="LineNr">3735 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3736" class="LineNr">3736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3737" class="LineNr">3737 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3738" class="LineNr">3738 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3739" class="LineNr">3739 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3740" class="LineNr">3740 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3741" class="LineNr">3741 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3742" class="LineNr">3742 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3743" class="LineNr">3743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3744" class="LineNr">3744 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 5/base, 0/index, 0/scale, 0/disp)</span> +<span id="L3745" class="LineNr">3745 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3746" class="LineNr">3746 </span> 68/push 0/imm32/.disp +<span id="L3747" class="LineNr">3747 </span> 68/push 0/imm32/.scale +<span id="L3748" class="LineNr">3748 </span> 68/push 0/imm32/.index +<span id="L3749" class="LineNr">3749 </span> 68/push 5/imm32/.base/ebp +<span id="L3750" class="LineNr">3750 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3751" class="LineNr">3751 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3752" class="LineNr">3752 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3753" class="LineNr">3753 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3754" class="LineNr">3754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3755" class="LineNr">3755 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3756" class="LineNr">3756 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3757" class="LineNr">3757 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3758" class="LineNr">3758 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3759" class="LineNr">3759 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3761" class="LineNr">3761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3762" class="Folded">3762 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3788" class="LineNr">3788 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 5/base/ebp 0/index 0/scale 0/disp32", msg)</span> +<span id="L3789" class="LineNr">3789 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3790" class="LineNr">3790 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-ebp"</span>/imm32 +<span id="L3791" class="LineNr">3791 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000005/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 +<span id="L3792" class="LineNr">3792 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3793" class="LineNr">3793 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3794" class="LineNr">3794 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3795" class="LineNr">3795 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3796" class="LineNr">3796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3797" class="LineNr">3797 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3798" class="LineNr">3798 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3799" class="LineNr">3799 </span> 5d/pop-to-ebp +<span id="L3800" class="LineNr">3800 </span> c3/return +<span id="L3801" class="LineNr">3801 </span> +<span id="L3802" class="LineNr">3802 </span><span class="subxTest">test-emit-indirect-mode-esp</span>: +<span id="L3803" class="LineNr">3803 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3804" class="LineNr">3804 </span> 55/push-ebp +<span id="L3805" class="LineNr">3805 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3806" class="LineNr">3806 </span> <span class="subxComment"># setup</span> +<span id="L3807" class="LineNr">3807 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3808" class="LineNr">3808 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3809" class="LineNr">3809 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3810" class="LineNr">3810 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3811" class="LineNr">3811 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3812" class="LineNr">3812 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3813" class="LineNr">3813 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3814" class="LineNr">3814 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3816" class="LineNr">3816 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3818" class="LineNr">3818 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3820" class="LineNr">3820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3821" class="LineNr">3821 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 4/base, 0/index, 0/scale, 0/disp)</span> +<span id="L3822" class="LineNr">3822 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3823" class="LineNr">3823 </span> 68/push 0/imm32/.disp +<span id="L3824" class="LineNr">3824 </span> 68/push 0/imm32/.scale +<span id="L3825" class="LineNr">3825 </span> 68/push 0/imm32/.index +<span id="L3826" class="LineNr">3826 </span> 68/push 4/imm32/.base/esp +<span id="L3827" class="LineNr">3827 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3828" class="LineNr">3828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3829" class="LineNr">3829 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 +<span id="L3830" class="LineNr">3830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3831" class="LineNr">3831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3832" class="LineNr">3832 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3833" class="LineNr">3833 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3834" class="LineNr">3834 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L3835" class="LineNr">3835 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3836" class="LineNr">3836 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3837" class="LineNr">3837 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3838" class="LineNr">3838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3839" class="Folded">3839 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3865" class="LineNr">3865 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 4/base/ebp 0/index 0/scale 0/disp32", msg)</span> +<span id="L3866" class="LineNr">3866 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3867" class="LineNr">3867 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-esp"</span>/imm32 +<span id="L3868" class="LineNr">3868 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000004/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 +<span id="L3869" class="LineNr">3869 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3871" class="LineNr">3871 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3873" class="LineNr">3873 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3874" class="LineNr">3874 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3875" class="LineNr">3875 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3876" class="LineNr">3876 </span> 5d/pop-to-ebp +<span id="L3877" class="LineNr">3877 </span> c3/return +<span id="L3878" class="LineNr">3878 </span> +<span id="L3879" class="LineNr">3879 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: boolean</span> +<span id="L3880" class="LineNr">3880 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3881" class="LineNr">3881 </span> 55/push-ebp +<span id="L3882" class="LineNr">3882 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3883" class="LineNr">3883 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3884" class="LineNr">3884 </span> 56/push-esi +<span id="L3885" class="LineNr">3885 </span> 57/push-edi +<span id="L3886" class="LineNr">3886 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> +<span id="L3887" class="LineNr">3887 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L3888" class="LineNr">3888 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3889" class="LineNr">3889 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3890" class="LineNr">3890 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L3891" class="LineNr">3891 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L3892" class="LineNr">3892 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L3893" class="LineNr">3893 </span> <span class="subxComment"># if (*local-slice->start == '(') return false</span> +<span id="L3894" class="LineNr">3894 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L3895" class="LineNr">3895 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L3896" class="LineNr">3896 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L3897" class="LineNr">3897 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L3898" class="LineNr">3898 </span> 74/jump-if-= $disp32-mode?:false/disp8 +<span id="L3899" class="LineNr">3899 </span><span class="Constant">$disp32-mode?:check-for-register</span>: +<span id="L3900" class="LineNr">3900 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3902" class="LineNr">3902 </span> 56/push-esi +<span id="L3903" class="LineNr">3903 </span> 68/push 0x2f/imm32/slash +<span id="L3904" class="LineNr">3904 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3905" class="LineNr">3905 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3906" class="LineNr">3906 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3907" class="LineNr">3907 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L3908" class="LineNr">3908 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3909" class="LineNr">3909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L3910" class="LineNr">3910 </span> <span class="subxComment"># reg-num/eax = maybe-get-slice(Registers, local-slice, row-size=12)</span> +<span id="L3911" class="LineNr">3911 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3912" class="LineNr">3912 </span> 68/push 0xc/imm32/row-size +<span id="L3913" class="LineNr">3913 </span> 56/push-esi +<span id="L3914" class="LineNr">3914 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L3915" class="LineNr">3915 </span> <span class="subxS2Comment"># . . cal</span> +<span id="L3916" class="LineNr">3916 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L3917" class="LineNr">3917 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3918" class="LineNr">3918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3919" class="LineNr">3919 </span> <span class="subxComment"># if (eax != 0) return false</span> +<span id="L3920" class="LineNr">3920 </span> 3d/compare-eax-and 0/imm32 +<span id="L3921" class="LineNr">3921 </span> 75/jump-if-!= $disp32-mode?:false/disp8 +<span id="L3922" class="LineNr">3922 </span> <span class="subxComment"># return true</span> +<span id="L3923" class="LineNr">3923 </span> b8/copy-to-eax 1/imm32/true +<span id="L3924" class="LineNr">3924 </span> eb/jump $disp32-mode?:end/disp8 +<span id="L3925" class="LineNr">3925 </span><span class="Constant">$disp32-mode?:false</span>: +<span id="L3926" class="LineNr">3926 </span> b8/copy-to-eax 0/imm32/false +<span id="L3927" class="LineNr">3927 </span><span class="Constant">$disp32-mode?:end</span>: +<span id="L3928" class="LineNr">3928 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3929" class="LineNr">3929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3930" class="LineNr">3930 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3931" class="LineNr">3931 </span> 5f/pop-to-edi +<span id="L3932" class="LineNr">3932 </span> 5e/pop-to-esi +<span id="L3933" class="LineNr">3933 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3934" class="LineNr">3934 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3935" class="LineNr">3935 </span> 5d/pop-to-ebp +<span id="L3936" class="LineNr">3936 </span> c3/return +<span id="L3937" class="LineNr">3937 </span> +<span id="L3938" class="LineNr">3938 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> +<span id="L3939" class="LineNr">3939 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3940" class="LineNr">3940 </span> 55/push-ebp +<span id="L3941" class="LineNr">3941 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3942" class="LineNr">3942 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3943" class="LineNr">3943 </span> 56/push-esi +<span id="L3944" class="LineNr">3944 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> +<span id="L3945" class="LineNr">3945 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L3946" class="LineNr">3946 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3947" class="LineNr">3947 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3948" class="LineNr">3948 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L3949" class="LineNr">3949 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L3950" class="LineNr">3950 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L3951" class="LineNr">3951 </span> <span class="subxComment"># write-buffered(out, "0/mod/indirect 5/rm32/.disp32 ")</span> +<span id="L3952" class="LineNr">3952 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3953" class="LineNr">3953 </span> 68/push <span class="Constant">"0/mod/indirect 5/rm32/.disp32 "</span>/imm32 +<span id="L3954" class="LineNr">3954 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3955" class="LineNr">3955 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3956" class="LineNr">3956 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3957" class="LineNr">3957 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3958" class="LineNr">3958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3959" class="LineNr">3959 </span> <span class="subxComment"># write-slice-buffered(out, local-slice)</span> +<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3961" class="LineNr">3961 </span> 56/push-esi +<span id="L3962" class="LineNr">3962 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3963" class="LineNr">3963 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3964" class="LineNr">3964 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L3965" class="LineNr">3965 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3966" class="LineNr">3966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3967" class="LineNr">3967 </span> <span class="subxComment"># write-buffered(out, "/disp32")</span> +<span id="L3968" class="LineNr">3968 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3969" class="LineNr">3969 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3970" class="LineNr">3970 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3972" class="LineNr">3972 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3973" class="LineNr">3973 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3974" class="LineNr">3974 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3975" class="LineNr">3975 </span><span class="Constant">$emit-indirect-disp32:end</span>: +<span id="L3976" class="LineNr">3976 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3977" class="LineNr">3977 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3978" class="LineNr">3978 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3979" class="LineNr">3979 </span> 5e/pop-to-esi +<span id="L3980" class="LineNr">3980 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3981" class="LineNr">3981 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3982" class="LineNr">3982 </span> 5d/pop-to-ebp +<span id="L3983" class="LineNr">3983 </span> c3/return +<span id="L3984" class="LineNr">3984 </span> +<span id="L3985" class="LineNr">3985 </span><span class="subxComment"># assumes 'in' starts with optional '+' or '-', optional whitespace, and an unsigned integer</span> +<span id="L3986" class="LineNr">3986 </span><span class="subxComment"># returns the value of the integer</span> +<span id="L3987" class="LineNr">3987 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> +<span id="L3988" class="LineNr">3988 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> +<span id="L3989" class="LineNr">3989 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3990" class="LineNr">3990 </span> 55/push-ebp +<span id="L3991" class="LineNr">3991 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3992" class="LineNr">3992 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3993" class="LineNr">3993 </span> 51/push-ecx +<span id="L3994" class="LineNr">3994 </span> 52/push-edx +<span id="L3995" class="LineNr">3995 </span> 53/push-ebx +<span id="L3996" class="LineNr">3996 </span> 56/push-esi +<span id="L3997" class="LineNr">3997 </span> 57/push-edi +<span id="L3998" class="LineNr">3998 </span> <span class="subxComment"># result/edi = 0</span> +<span id="L3999" class="LineNr">3999 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L4000" class="LineNr">4000 </span> <span class="subxComment"># esi = in</span> +<span id="L4001" class="LineNr">4001 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L4002" class="LineNr">4002 </span> <span class="subxComment"># edx = in->end</span> +<span id="L4003" class="LineNr">4003 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> +<span id="L4004" class="LineNr">4004 </span> <span class="subxComment"># curr/ecx = in->start</span> +<span id="L4005" class="LineNr">4005 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L4006" class="LineNr">4006 </span> <span class="subxComment"># negate?/ebx = false</span> +<span id="L4007" class="LineNr">4007 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4008" class="LineNr">4008 </span> <span class="subxComment"># eax = *curr</span> +<span id="L4009" class="LineNr">4009 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4010" class="LineNr">4010 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4011" class="LineNr">4011 </span><span class="Constant">$next-hex-int:positive</span>: +<span id="L4012" class="LineNr">4012 </span> <span class="subxComment"># if (*curr == '+') ++curr</span> +<span id="L4013" class="LineNr">4013 </span> 3d/compare-eax-and 0x2b/imm32/+ +<span id="L4014" class="LineNr">4014 </span> 75/jump-if-!= $next-hex-int:negative/disp8 +<span id="L4015" class="LineNr">4015 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4016" class="LineNr">4016 </span> 41/increment-ecx +<span id="L4017" class="LineNr">4017 </span> eb/jump $next-hex-int:skip-whitespace/disp8 +<span id="L4018" class="LineNr">4018 </span><span class="Constant">$next-hex-int:negative</span>: +<span id="L4019" class="LineNr">4019 </span> <span class="subxComment"># else if (*curr == '-') ++curr, negate = true</span> +<span id="L4020" class="LineNr">4020 </span> 3d/compare-eax-and 0x2d/imm32/- +<span id="L4021" class="LineNr">4021 </span> 75/jump-if-!= $next-hex-int:skip-whitespace/disp8 +<span id="L4022" class="LineNr">4022 </span><span class="Constant">$next-hex-int:need-to-negate</span>: +<span id="L4023" class="LineNr">4023 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4024" class="LineNr">4024 </span> 41/increment-ecx +<span id="L4025" class="LineNr">4025 </span> <span class="subxS1Comment"># . negate = true</span> +<span id="L4026" class="LineNr">4026 </span> bb/copy-to-ebx 1/imm32/true +<span id="L4027" class="LineNr">4027 </span> <span class="subxComment"># fall through</span> +<span id="L4028" class="LineNr">4028 </span><span class="Constant">$next-hex-int:skip-whitespace</span>: +<span id="L4029" class="LineNr">4029 </span> <span class="subxComment"># spill eax</span> +<span id="L4030" class="LineNr">4030 </span> 50/push-eax +<span id="L4031" class="LineNr">4031 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(word-slice->start, word-slice->end)</span> +<span id="L4032" class="LineNr">4032 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4033" class="LineNr">4033 </span> 52/push-edx +<span id="L4034" class="LineNr">4034 </span> 51/push-ecx +<span id="L4035" class="LineNr">4035 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4036" class="LineNr">4036 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L4037" class="LineNr">4037 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4038" class="LineNr">4038 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4039" class="LineNr">4039 </span> <span class="subxComment"># ecx = eax</span> +<span id="L4040" class="LineNr">4040 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L4041" class="LineNr">4041 </span> <span class="subxComment"># restore eax</span> +<span id="L4042" class="LineNr">4042 </span> 58/pop-to-eax +<span id="L4043" class="LineNr">4043 </span><span class="Constant">$next-hex-int:initial-0</span>: +<span id="L4044" class="LineNr">4044 </span> <span class="subxComment"># skip past leading '0x'</span> +<span id="L4045" class="LineNr">4045 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> +<span id="L4046" class="LineNr">4046 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4047" class="LineNr">4047 </span> 3d/compare-eax-and 0x30/imm32/0 +<span id="L4048" class="LineNr">4048 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4049" class="LineNr">4049 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4050" class="LineNr">4050 </span> 41/increment-ecx +<span id="L4051" class="LineNr">4051 </span><span class="Constant">$next-hex-int:initial-0x</span>: +<span id="L4052" class="LineNr">4052 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> +<span id="L4053" class="LineNr">4053 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4054" class="LineNr">4054 </span> 73/jump-if-addr>= $next-hex-int:end/disp8 +<span id="L4055" class="LineNr">4055 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> +<span id="L4056" class="LineNr">4056 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4057" class="LineNr">4057 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4058" class="LineNr">4058 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L4059" class="LineNr">4059 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4060" class="LineNr">4060 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4061" class="LineNr">4061 </span> 41/increment-ecx +<span id="L4062" class="LineNr">4062 </span><span class="Constant">$next-hex-int:loop</span>: +<span id="L4063" class="LineNr">4063 </span> <span class="subxComment"># if (curr >= in->end) break</span> +<span id="L4064" class="LineNr">4064 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4065" class="LineNr">4065 </span> 73/jump-if-addr>= $next-hex-int:<span class="Constant">break</span>/disp8 +<span id="L4066" class="LineNr">4066 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> +<span id="L4067" class="LineNr">4067 </span> <span class="subxS1Comment"># . eax = *curr</span> +<span id="L4068" class="LineNr">4068 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4069" class="LineNr">4069 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> +<span id="L4070" class="LineNr">4070 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4071" class="LineNr">4071 </span> 50/push-eax +<span id="L4072" class="LineNr">4072 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4073" class="LineNr">4073 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4075" class="LineNr">4075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4076" class="LineNr">4076 </span> <span class="subxS1Comment"># . if (eax == false) break</span> +<span id="L4077" class="LineNr">4077 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4078" class="LineNr">4078 </span> 74/jump-if-= $next-hex-int:<span class="Constant">break</span>/disp8 +<span id="L4079" class="LineNr">4079 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> +<span id="L4080" class="LineNr">4080 </span> <span class="subxS2Comment"># . . copy arg to eax</span> +<span id="L4081" class="LineNr">4081 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4083" class="LineNr">4083 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L4084" class="LineNr">4084 </span> <span class="subxComment"># result = result * 16 + eax</span> +<span id="L4085" class="LineNr">4085 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> +<span id="L4086" class="LineNr">4086 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> +<span id="L4087" class="LineNr">4087 </span> <span class="subxComment"># ++curr</span> +<span id="L4088" class="LineNr">4088 </span> 41/increment-ecx +<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># loop</span> +<span id="L4090" class="LineNr">4090 </span> eb/jump $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4091" class="LineNr">4091 </span><span class="Constant">$next-hex-int:break</span>: +<span id="L4092" class="LineNr">4092 </span> <span class="subxComment"># if (negate?) result = -result</span> +<span id="L4093" class="LineNr">4093 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> +<span id="L4094" class="LineNr">4094 </span> 74/jump-if-= $next-hex-int:end/disp8 +<span id="L4095" class="LineNr">4095 </span><span class="Constant">$next-hex-int:negate</span>: +<span id="L4096" class="LineNr">4096 </span> f7 3/subop/negate 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># negate edi</span> +<span id="L4097" class="LineNr">4097 </span><span class="Constant">$next-hex-int:end</span>: +<span id="L4098" class="LineNr">4098 </span> <span class="subxComment"># word-slice->start = curr</span> +<span id="L4099" class="LineNr">4099 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> +<span id="L4100" class="LineNr">4100 </span> <span class="subxComment"># return edi</span> +<span id="L4101" class="LineNr">4101 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L4102" class="LineNr">4102 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L4103" class="LineNr">4103 </span> 5f/pop-to-edi +<span id="L4104" class="LineNr">4104 </span> 5e/pop-to-esi +<span id="L4105" class="LineNr">4105 </span> 5b/pop-to-ebx +<span id="L4106" class="LineNr">4106 </span> 5a/pop-to-edx +<span id="L4107" class="LineNr">4107 </span> 59/pop-to-ecx +<span id="L4108" class="LineNr">4108 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4109" class="LineNr">4109 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4110" class="LineNr">4110 </span> 5d/pop-to-ebp +<span id="L4111" class="LineNr">4111 </span> c3/return +<span id="L4112" class="LineNr">4112 </span> +<span id="L4113" class="LineNr">4113 </span><span class="Constant">$next-hex-int:abort</span>: +<span id="L4114" class="LineNr">4114 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L4115" class="LineNr">4115 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4116" class="LineNr">4116 </span> 68/push <span class="Constant">"next-hex-int: invalid hex char: "</span>/imm32 +<span id="L4117" class="LineNr">4117 </span> 68/push 2/imm32/stderr +<span id="L4118" class="LineNr">4118 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4119" class="LineNr">4119 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 +<span id="L4120" class="LineNr">4120 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4121" class="LineNr">4121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4122" class="LineNr">4122 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> +<span id="L4123" class="LineNr">4123 </span> <span class="subxS2Comment"># . . save eax</span> +<span id="L4124" class="LineNr">4124 </span> 50/push-eax +<span id="L4125" class="LineNr">4125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4126" class="LineNr">4126 </span> 68/push $Stderr->buffer/imm32 +<span id="L4127" class="LineNr">4127 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4128" class="LineNr">4128 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4129" class="LineNr">4129 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4130" class="LineNr">4130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4131" class="LineNr">4131 </span> <span class="subxS2Comment"># . . restore eax</span> +<span id="L4132" class="LineNr">4132 </span> 58/pop-to-eax +<span id="L4133" class="LineNr">4133 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> +<span id="L4134" class="LineNr">4134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4135" class="LineNr">4135 </span> 50/push-eax +<span id="L4136" class="LineNr">4136 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L4137" class="LineNr">4137 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4138" class="LineNr">4138 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L4139" class="LineNr">4139 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4140" class="LineNr">4140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4141" class="LineNr">4141 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L4142" class="LineNr">4142 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4143" class="LineNr">4143 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4145" class="LineNr">4145 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4147" class="LineNr">4147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4148" class="LineNr">4148 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> +<span id="L4149" class="LineNr">4149 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4150" class="LineNr">4150 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L4151" class="LineNr">4151 </span> 68/push 2/imm32/stderr +<span id="L4152" class="LineNr">4152 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4153" class="LineNr">4153 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 +<span id="L4154" class="LineNr">4154 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4155" class="LineNr">4155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4156" class="LineNr">4156 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L4157" class="LineNr">4157 </span> bb/copy-to-ebx 1/imm32 +<span id="L4158" class="LineNr">4158 </span> e8/call syscall_exit/disp32 +<span id="L4159" class="LineNr">4159 </span> <span class="subxComment"># never gets here</span> +<span id="L4160" class="LineNr">4160 </span> +<span id="L4161" class="LineNr">4161 </span><span class="subxTest">test-next-hex-int-single-digit</span>: +<span id="L4162" class="LineNr">4162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4163" class="LineNr">4163 </span> 55/push-ebp +<span id="L4164" class="LineNr">4164 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4165" class="LineNr">4165 </span> <span class="subxComment"># (eax..ecx) = "+a)"</span> +<span id="L4166" class="LineNr">4166 </span> b8/copy-to-eax <span class="Constant">"+a)"</span>/imm32 +<span id="L4167" class="LineNr">4167 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4168" class="LineNr">4168 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4169" class="LineNr">4169 </span> 05/add-to-eax 4/imm32 +<span id="L4170" class="LineNr">4170 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4171" class="LineNr">4171 </span> 51/push-ecx +<span id="L4172" class="LineNr">4172 </span> 50/push-eax +<span id="L4173" class="LineNr">4173 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4174" class="LineNr">4174 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4175" class="LineNr">4175 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4176" class="LineNr">4176 </span> 51/push-ecx +<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4178" class="LineNr">4178 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4179" class="LineNr">4179 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4180" class="LineNr">4180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4181" class="LineNr">4181 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> +<span id="L4182" class="LineNr">4182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4183" class="LineNr">4183 </span> 68/push <span class="Constant">"F - test-next-hex-int-single-digit"</span>/imm32 +<span id="L4184" class="LineNr">4184 </span> 68/push 0xa/imm32 +<span id="L4185" class="LineNr">4185 </span> 50/push-eax +<span id="L4186" class="LineNr">4186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4187" class="LineNr">4187 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4188" class="LineNr">4188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4189" class="LineNr">4189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4190" class="LineNr">4190 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4191" class="LineNr">4191 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4192" class="LineNr">4192 </span> 5d/pop-to-ebp +<span id="L4193" class="LineNr">4193 </span> c3/return +<span id="L4194" class="LineNr">4194 </span> +<span id="L4195" class="LineNr">4195 </span><span class="subxTest">test-next-hex-int-multi-digit</span>: +<span id="L4196" class="LineNr">4196 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4197" class="LineNr">4197 </span> 55/push-ebp +<span id="L4198" class="LineNr">4198 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4199" class="LineNr">4199 </span> <span class="subxComment"># (eax..ecx) = "+ 34a)"</span> +<span id="L4200" class="LineNr">4200 </span> b8/copy-to-eax <span class="Constant">"+ 34a)"</span>/imm32 +<span id="L4201" class="LineNr">4201 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4202" class="LineNr">4202 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4203" class="LineNr">4203 </span> 05/add-to-eax 4/imm32 +<span id="L4204" class="LineNr">4204 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4205" class="LineNr">4205 </span> 51/push-ecx +<span id="L4206" class="LineNr">4206 </span> 50/push-eax +<span id="L4207" class="LineNr">4207 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4208" class="LineNr">4208 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4209" class="LineNr">4209 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4210" class="LineNr">4210 </span> 51/push-ecx +<span id="L4211" class="LineNr">4211 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4212" class="LineNr">4212 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4213" class="LineNr">4213 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4214" class="LineNr">4214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4215" class="LineNr">4215 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L4216" class="LineNr">4216 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4217" class="LineNr">4217 </span> 68/push <span class="Constant">"F - test-next-hex-int-multi-digit"</span>/imm32 +<span id="L4218" class="LineNr">4218 </span> 68/push 0x34a/imm32 +<span id="L4219" class="LineNr">4219 </span> 50/push-eax +<span id="L4220" class="LineNr">4220 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4221" class="LineNr">4221 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4222" class="LineNr">4222 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4223" class="LineNr">4223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4224" class="LineNr">4224 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4225" class="LineNr">4225 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4226" class="LineNr">4226 </span> 5d/pop-to-ebp +<span id="L4227" class="LineNr">4227 </span> c3/return +<span id="L4228" class="LineNr">4228 </span> +<span id="L4229" class="LineNr">4229 </span><span class="subxTest">test-next-hex-int-0x-prefix</span>: +<span id="L4230" class="LineNr">4230 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4231" class="LineNr">4231 </span> 55/push-ebp +<span id="L4232" class="LineNr">4232 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4233" class="LineNr">4233 </span> <span class="subxComment"># (eax..ecx) = "+0x34)"</span> +<span id="L4234" class="LineNr">4234 </span> b8/copy-to-eax <span class="Constant">"+0x34)"</span>/imm32 +<span id="L4235" class="LineNr">4235 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4236" class="LineNr">4236 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4237" class="LineNr">4237 </span> 05/add-to-eax 4/imm32 +<span id="L4238" class="LineNr">4238 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4239" class="LineNr">4239 </span> 51/push-ecx +<span id="L4240" class="LineNr">4240 </span> 50/push-eax +<span id="L4241" class="LineNr">4241 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4242" class="LineNr">4242 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4244" class="LineNr">4244 </span> 51/push-ecx +<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4246" class="LineNr">4246 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4247" class="LineNr">4247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4248" class="LineNr">4248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4249" class="LineNr">4249 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> +<span id="L4250" class="LineNr">4250 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4251" class="LineNr">4251 </span> 68/push <span class="Constant">"F - test-next-hex-int-0x-prefix"</span>/imm32 +<span id="L4252" class="LineNr">4252 </span> 68/push 0x34/imm32 +<span id="L4253" class="LineNr">4253 </span> 50/push-eax +<span id="L4254" class="LineNr">4254 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4255" class="LineNr">4255 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4256" class="LineNr">4256 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4257" class="LineNr">4257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4258" class="LineNr">4258 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4259" class="LineNr">4259 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4260" class="LineNr">4260 </span> 5d/pop-to-ebp +<span id="L4261" class="LineNr">4261 </span> c3/return +<span id="L4262" class="LineNr">4262 </span> +<span id="L4263" class="LineNr">4263 </span><span class="subxTest">test-next-hex-int-zero</span>: +<span id="L4264" class="LineNr">4264 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4265" class="LineNr">4265 </span> 55/push-ebp +<span id="L4266" class="LineNr">4266 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4267" class="LineNr">4267 </span> <span class="subxComment"># (eax..ecx) = "+0)"</span> +<span id="L4268" class="LineNr">4268 </span> b8/copy-to-eax <span class="Constant">"+0)"</span>/imm32 +<span id="L4269" class="LineNr">4269 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4270" class="LineNr">4270 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4271" class="LineNr">4271 </span> 05/add-to-eax 4/imm32 +<span id="L4272" class="LineNr">4272 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4273" class="LineNr">4273 </span> 51/push-ecx +<span id="L4274" class="LineNr">4274 </span> 50/push-eax +<span id="L4275" class="LineNr">4275 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4276" class="LineNr">4276 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4277" class="LineNr">4277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4278" class="LineNr">4278 </span> 51/push-ecx +<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4280" class="LineNr">4280 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4281" class="LineNr">4281 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4282" class="LineNr">4282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4283" class="LineNr">4283 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4284" class="LineNr">4284 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4285" class="LineNr">4285 </span> 68/push <span class="Constant">"F - test-next-hex-int-zero"</span>/imm32 +<span id="L4286" class="LineNr">4286 </span> 68/push 0/imm32 +<span id="L4287" class="LineNr">4287 </span> 50/push-eax +<span id="L4288" class="LineNr">4288 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4289" class="LineNr">4289 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4290" class="LineNr">4290 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4291" class="LineNr">4291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4292" class="LineNr">4292 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4293" class="LineNr">4293 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4294" class="LineNr">4294 </span> 5d/pop-to-ebp +<span id="L4295" class="LineNr">4295 </span> c3/return +<span id="L4296" class="LineNr">4296 </span> +<span id="L4297" class="LineNr">4297 </span><span class="subxTest">test-next-hex-int-0-prefix</span>: +<span id="L4298" class="LineNr">4298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4299" class="LineNr">4299 </span> 55/push-ebp +<span id="L4300" class="LineNr">4300 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4301" class="LineNr">4301 </span> <span class="subxComment"># (eax..ecx) = "+ 03)"</span> +<span id="L4302" class="LineNr">4302 </span> b8/copy-to-eax <span class="Constant">"+ 03)"</span>/imm32 +<span id="L4303" class="LineNr">4303 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4304" class="LineNr">4304 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4305" class="LineNr">4305 </span> 05/add-to-eax 4/imm32 +<span id="L4306" class="LineNr">4306 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4307" class="LineNr">4307 </span> 51/push-ecx +<span id="L4308" class="LineNr">4308 </span> 50/push-eax +<span id="L4309" class="LineNr">4309 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4310" class="LineNr">4310 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4311" class="LineNr">4311 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4312" class="LineNr">4312 </span> 51/push-ecx +<span id="L4313" class="LineNr">4313 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4314" class="LineNr">4314 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4315" class="LineNr">4315 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4316" class="LineNr">4316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4317" class="LineNr">4317 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L4318" class="LineNr">4318 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4319" class="LineNr">4319 </span> 68/push <span class="Constant">"F - test-next-hex-int-0-prefix"</span>/imm32 +<span id="L4320" class="LineNr">4320 </span> 68/push 3/imm32 +<span id="L4321" class="LineNr">4321 </span> 50/push-eax +<span id="L4322" class="LineNr">4322 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4323" class="LineNr">4323 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4324" class="LineNr">4324 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4325" class="LineNr">4325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4326" class="LineNr">4326 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4327" class="LineNr">4327 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4328" class="LineNr">4328 </span> 5d/pop-to-ebp +<span id="L4329" class="LineNr">4329 </span> c3/return +<span id="L4330" class="LineNr">4330 </span> +<span id="L4331" class="LineNr">4331 </span><span class="subxTest">test-next-hex-int-negative</span>: +<span id="L4332" class="LineNr">4332 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4333" class="LineNr">4333 </span> 55/push-ebp +<span id="L4334" class="LineNr">4334 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4335" class="LineNr">4335 </span> <span class="subxComment"># (eax..ecx) = "-03)"</span> +<span id="L4336" class="LineNr">4336 </span> b8/copy-to-eax <span class="Constant">"-03)"</span>/imm32 +<span id="L4337" class="LineNr">4337 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4338" class="LineNr">4338 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4339" class="LineNr">4339 </span> 05/add-to-eax 4/imm32 +<span id="L4340" class="LineNr">4340 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4341" class="LineNr">4341 </span> 51/push-ecx +<span id="L4342" class="LineNr">4342 </span> 50/push-eax +<span id="L4343" class="LineNr">4343 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4344" class="LineNr">4344 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4345" class="LineNr">4345 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4346" class="LineNr">4346 </span> 51/push-ecx +<span id="L4347" class="LineNr">4347 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4348" class="LineNr">4348 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4349" class="LineNr">4349 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4350" class="LineNr">4350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4351" class="LineNr">4351 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> +<span id="L4352" class="LineNr">4352 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4353" class="LineNr">4353 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative"</span>/imm32 +<span id="L4354" class="LineNr">4354 </span> 68/push -3/imm32 +<span id="L4355" class="LineNr">4355 </span> 50/push-eax +<span id="L4356" class="LineNr">4356 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4357" class="LineNr">4357 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4359" class="LineNr">4359 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4360" class="LineNr">4360 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4361" class="LineNr">4361 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4362" class="LineNr">4362 </span> 5d/pop-to-ebp +<span id="L4363" class="LineNr">4363 </span> c3/return +<span id="L4364" class="LineNr">4364 </span> +<span id="L4365" class="LineNr">4365 </span><span class="subxTest">test-next-hex-int-negative-with-space</span>: +<span id="L4366" class="LineNr">4366 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4367" class="LineNr">4367 </span> 55/push-ebp +<span id="L4368" class="LineNr">4368 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4369" class="LineNr">4369 </span> <span class="subxComment"># (eax..ecx) = "- 03)"</span> +<span id="L4370" class="LineNr">4370 </span> b8/copy-to-eax <span class="Constant">"- 03)"</span>/imm32 +<span id="L4371" class="LineNr">4371 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4372" class="LineNr">4372 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4373" class="LineNr">4373 </span> 05/add-to-eax 4/imm32 +<span id="L4374" class="LineNr">4374 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4375" class="LineNr">4375 </span> 51/push-ecx +<span id="L4376" class="LineNr">4376 </span> 50/push-eax +<span id="L4377" class="LineNr">4377 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4378" class="LineNr">4378 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4379" class="LineNr">4379 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4380" class="LineNr">4380 </span> 51/push-ecx +<span id="L4381" class="LineNr">4381 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4382" class="LineNr">4382 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 +<span id="L4383" class="LineNr">4383 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4384" class="LineNr">4384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4385" class="LineNr">4385 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> +<span id="L4386" class="LineNr">4386 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4387" class="LineNr">4387 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative-with-space"</span>/imm32 +<span id="L4388" class="LineNr">4388 </span> 68/push -3/imm32 +<span id="L4389" class="LineNr">4389 </span> 50/push-eax +<span id="L4390" class="LineNr">4390 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4391" class="LineNr">4391 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4392" class="LineNr">4392 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4393" class="LineNr">4393 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4394" class="LineNr">4394 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4395" class="LineNr">4395 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4396" class="LineNr">4396 </span> 5d/pop-to-ebp +<span id="L4397" class="LineNr">4397 </span> c3/return +<span id="L4398" class="LineNr">4398 </span> +<span id="L4399" class="LineNr">4399 </span><span class="subxComment"># assumes 'in' starts a positive unsigned integer</span> +<span id="L4400" class="LineNr">4400 </span><span class="subxComment"># returns the value of the integer</span> +<span id="L4401" class="LineNr">4401 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> +<span id="L4402" class="LineNr">4402 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> +<span id="L4403" class="LineNr">4403 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4404" class="LineNr">4404 </span> 55/push-ebp +<span id="L4405" class="LineNr">4405 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4406" class="LineNr">4406 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L4407" class="LineNr">4407 </span> 51/push-ecx +<span id="L4408" class="LineNr">4408 </span> 52/push-edx +<span id="L4409" class="LineNr">4409 </span> 53/push-ebx +<span id="L4410" class="LineNr">4410 </span> 56/push-esi +<span id="L4411" class="LineNr">4411 </span> 57/push-edi +<span id="L4412" class="LineNr">4412 </span> <span class="subxComment"># result/edi = 0</span> +<span id="L4413" class="LineNr">4413 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L4414" class="LineNr">4414 </span> <span class="subxComment"># esi = in</span> +<span id="L4415" class="LineNr">4415 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L4416" class="LineNr">4416 </span> <span class="subxComment"># edx = in->end</span> +<span id="L4417" class="LineNr">4417 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> +<span id="L4418" class="LineNr">4418 </span> <span class="subxComment"># curr/ecx = in->start</span> +<span id="L4419" class="LineNr">4419 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L4420" class="LineNr">4420 </span> <span class="subxComment"># negate?/ebx = false</span> +<span id="L4421" class="LineNr">4421 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4422" class="LineNr">4422 </span> <span class="subxComment"># eax = *curr</span> +<span id="L4423" class="LineNr">4423 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4424" class="LineNr">4424 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4425" class="LineNr">4425 </span><span class="Constant">$next-positive-hex-int:initial-0</span>: +<span id="L4426" class="LineNr">4426 </span> <span class="subxComment"># skip past leading '0x'</span> +<span id="L4427" class="LineNr">4427 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> +<span id="L4428" class="LineNr">4428 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4429" class="LineNr">4429 </span> 3d/compare-eax-and 0x30/imm32/0 +<span id="L4430" class="LineNr">4430 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4431" class="LineNr">4431 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4432" class="LineNr">4432 </span> 41/increment-ecx +<span id="L4433" class="LineNr">4433 </span><span class="Constant">$next-positive-hex-int:initial-0x</span>: +<span id="L4434" class="LineNr">4434 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> +<span id="L4435" class="LineNr">4435 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4436" class="LineNr">4436 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 +<span id="L4437" class="LineNr">4437 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> +<span id="L4438" class="LineNr">4438 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4439" class="LineNr">4439 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4440" class="LineNr">4440 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L4441" class="LineNr">4441 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4442" class="LineNr">4442 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4443" class="LineNr">4443 </span> 41/increment-ecx +<span id="L4444" class="LineNr">4444 </span><span class="Constant">$next-positive-hex-int:loop</span>: +<span id="L4445" class="LineNr">4445 </span> <span class="subxComment"># if (curr >= in->end) break</span> +<span id="L4446" class="LineNr">4446 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4447" class="LineNr">4447 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 +<span id="L4448" class="LineNr">4448 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> +<span id="L4449" class="LineNr">4449 </span> <span class="subxS1Comment"># . eax = *curr</span> +<span id="L4450" class="LineNr">4450 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4451" class="LineNr">4451 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> +<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4453" class="LineNr">4453 </span> 50/push-eax +<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4455" class="LineNr">4455 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L4456" class="LineNr">4456 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4457" class="LineNr">4457 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4458" class="LineNr">4458 </span> <span class="subxS1Comment"># . if (eax == false) break</span> +<span id="L4459" class="LineNr">4459 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4460" class="LineNr">4460 </span> 74/jump-if-= $next-positive-hex-int:end/disp8 +<span id="L4461" class="LineNr">4461 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> +<span id="L4462" class="LineNr">4462 </span> <span class="subxS2Comment"># . . copy arg to eax</span> +<span id="L4463" class="LineNr">4463 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4465" class="LineNr">4465 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L4466" class="LineNr">4466 </span> <span class="subxComment"># result = result * 16 + eax</span> +<span id="L4467" class="LineNr">4467 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> +<span id="L4468" class="LineNr">4468 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> +<span id="L4469" class="LineNr">4469 </span> <span class="subxComment"># ++curr</span> +<span id="L4470" class="LineNr">4470 </span> 41/increment-ecx +<span id="L4471" class="LineNr">4471 </span> <span class="subxComment"># loop</span> +<span id="L4472" class="LineNr">4472 </span> eb/jump $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4473" class="LineNr">4473 </span><span class="Constant">$next-positive-hex-int:end</span>: +<span id="L4474" class="LineNr">4474 </span> <span class="subxComment"># word-slice->start = curr</span> +<span id="L4475" class="LineNr">4475 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> +<span id="L4476" class="LineNr">4476 </span> <span class="subxComment"># return edi</span> +<span id="L4477" class="LineNr">4477 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L4478" class="LineNr">4478 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L4479" class="LineNr">4479 </span> 5f/pop-to-edi +<span id="L4480" class="LineNr">4480 </span> 5e/pop-to-esi +<span id="L4481" class="LineNr">4481 </span> 5b/pop-to-ebx +<span id="L4482" class="LineNr">4482 </span> 5a/pop-to-edx +<span id="L4483" class="LineNr">4483 </span> 59/pop-to-ecx +<span id="L4484" class="LineNr">4484 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4485" class="LineNr">4485 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4486" class="LineNr">4486 </span> 5d/pop-to-ebp +<span id="L4487" class="LineNr">4487 </span> c3/return +<span id="L4488" class="LineNr">4488 </span> +<span id="L4489" class="LineNr">4489 </span><span class="subxTest">test-next-positive-hex-int-single-digit</span>: +<span id="L4490" class="LineNr">4490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4491" class="LineNr">4491 </span> 55/push-ebp +<span id="L4492" class="LineNr">4492 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4493" class="LineNr">4493 </span> <span class="subxComment"># (eax..ecx) = "a)"</span> +<span id="L4494" class="LineNr">4494 </span> b8/copy-to-eax <span class="Constant">"a)"</span>/imm32 +<span id="L4495" class="LineNr">4495 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4496" class="LineNr">4496 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4497" class="LineNr">4497 </span> 05/add-to-eax 4/imm32 +<span id="L4498" class="LineNr">4498 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4499" class="LineNr">4499 </span> 51/push-ecx +<span id="L4500" class="LineNr">4500 </span> 50/push-eax +<span id="L4501" class="LineNr">4501 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4502" class="LineNr">4502 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4503" class="LineNr">4503 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4504" class="LineNr">4504 </span> 51/push-ecx +<span id="L4505" class="LineNr">4505 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4506" class="LineNr">4506 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L4507" class="LineNr">4507 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4508" class="LineNr">4508 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4509" class="LineNr">4509 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> +<span id="L4510" class="LineNr">4510 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4511" class="LineNr">4511 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-single-digit"</span>/imm32 +<span id="L4512" class="LineNr">4512 </span> 68/push 0xa/imm32 +<span id="L4513" class="LineNr">4513 </span> 50/push-eax +<span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4515" class="LineNr">4515 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4516" class="LineNr">4516 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4517" class="LineNr">4517 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4518" class="LineNr">4518 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4519" class="LineNr">4519 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4520" class="LineNr">4520 </span> 5d/pop-to-ebp +<span id="L4521" class="LineNr">4521 </span> c3/return +<span id="L4522" class="LineNr">4522 </span> +<span id="L4523" class="LineNr">4523 </span><span class="subxTest">test-next-positive-hex-int-multi-digit</span>: +<span id="L4524" class="LineNr">4524 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4525" class="LineNr">4525 </span> 55/push-ebp +<span id="L4526" class="LineNr">4526 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4527" class="LineNr">4527 </span> <span class="subxComment"># (eax..ecx) = "34a)"</span> +<span id="L4528" class="LineNr">4528 </span> b8/copy-to-eax <span class="Constant">"34a)"</span>/imm32 +<span id="L4529" class="LineNr">4529 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4530" class="LineNr">4530 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4531" class="LineNr">4531 </span> 05/add-to-eax 4/imm32 +<span id="L4532" class="LineNr">4532 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4533" class="LineNr">4533 </span> 51/push-ecx +<span id="L4534" class="LineNr">4534 </span> 50/push-eax +<span id="L4535" class="LineNr">4535 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4536" class="LineNr">4536 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4537" class="LineNr">4537 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4538" class="LineNr">4538 </span> 51/push-ecx +<span id="L4539" class="LineNr">4539 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4540" class="LineNr">4540 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4542" class="LineNr">4542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4543" class="LineNr">4543 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L4544" class="LineNr">4544 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4545" class="LineNr">4545 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-multi-digit"</span>/imm32 +<span id="L4546" class="LineNr">4546 </span> 68/push 0x34a/imm32 +<span id="L4547" class="LineNr">4547 </span> 50/push-eax +<span id="L4548" class="LineNr">4548 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4549" class="LineNr">4549 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4551" class="LineNr">4551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4552" class="LineNr">4552 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4553" class="LineNr">4553 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4554" class="LineNr">4554 </span> 5d/pop-to-ebp +<span id="L4555" class="LineNr">4555 </span> c3/return +<span id="L4556" class="LineNr">4556 </span> +<span id="L4557" class="LineNr">4557 </span><span class="subxTest">test-next-positive-hex-int-0x-prefix</span>: +<span id="L4558" class="LineNr">4558 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4559" class="LineNr">4559 </span> 55/push-ebp +<span id="L4560" class="LineNr">4560 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4561" class="LineNr">4561 </span> <span class="subxComment"># (eax..ecx) = "0x34)"</span> +<span id="L4562" class="LineNr">4562 </span> b8/copy-to-eax <span class="Constant">"0x34)"</span>/imm32 +<span id="L4563" class="LineNr">4563 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4564" class="LineNr">4564 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4565" class="LineNr">4565 </span> 05/add-to-eax 4/imm32 +<span id="L4566" class="LineNr">4566 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4567" class="LineNr">4567 </span> 51/push-ecx +<span id="L4568" class="LineNr">4568 </span> 50/push-eax +<span id="L4569" class="LineNr">4569 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4570" class="LineNr">4570 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4571" class="LineNr">4571 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4572" class="LineNr">4572 </span> 51/push-ecx +<span id="L4573" class="LineNr">4573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4574" class="LineNr">4574 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L4575" class="LineNr">4575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4576" class="LineNr">4576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4577" class="LineNr">4577 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> +<span id="L4578" class="LineNr">4578 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4579" class="LineNr">4579 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0x-prefix"</span>/imm32 +<span id="L4580" class="LineNr">4580 </span> 68/push 0x34/imm32 +<span id="L4581" class="LineNr">4581 </span> 50/push-eax +<span id="L4582" class="LineNr">4582 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4583" class="LineNr">4583 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4584" class="LineNr">4584 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4585" class="LineNr">4585 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4586" class="LineNr">4586 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4587" class="LineNr">4587 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4588" class="LineNr">4588 </span> 5d/pop-to-ebp +<span id="L4589" class="LineNr">4589 </span> c3/return +<span id="L4590" class="LineNr">4590 </span> +<span id="L4591" class="LineNr">4591 </span><span class="subxTest">test-next-positive-hex-int-zero</span>: +<span id="L4592" class="LineNr">4592 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4593" class="LineNr">4593 </span> 55/push-ebp +<span id="L4594" class="LineNr">4594 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4595" class="LineNr">4595 </span> <span class="subxComment"># (eax..ecx) = "0"</span> +<span id="L4596" class="LineNr">4596 </span> b8/copy-to-eax <span class="Constant">"0"</span>/imm32 +<span id="L4597" class="LineNr">4597 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4598" class="LineNr">4598 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4599" class="LineNr">4599 </span> 05/add-to-eax 4/imm32 +<span id="L4600" class="LineNr">4600 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4601" class="LineNr">4601 </span> 51/push-ecx +<span id="L4602" class="LineNr">4602 </span> 50/push-eax +<span id="L4603" class="LineNr">4603 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4604" class="LineNr">4604 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4606" class="LineNr">4606 </span> 51/push-ecx +<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4608" class="LineNr">4608 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L4609" class="LineNr">4609 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4610" class="LineNr">4610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4611" class="LineNr">4611 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4612" class="LineNr">4612 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4613" class="LineNr">4613 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-zero"</span>/imm32 +<span id="L4614" class="LineNr">4614 </span> 68/push 0/imm32 +<span id="L4615" class="LineNr">4615 </span> 50/push-eax +<span id="L4616" class="LineNr">4616 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4617" class="LineNr">4617 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4618" class="LineNr">4618 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4619" class="LineNr">4619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4620" class="LineNr">4620 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4621" class="LineNr">4621 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4622" class="LineNr">4622 </span> 5d/pop-to-ebp +<span id="L4623" class="LineNr">4623 </span> c3/return +<span id="L4624" class="LineNr">4624 </span> +<span id="L4625" class="LineNr">4625 </span><span class="subxTest">test-next-positive-hex-int-0-prefix</span>: +<span id="L4626" class="LineNr">4626 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4627" class="LineNr">4627 </span> 55/push-ebp +<span id="L4628" class="LineNr">4628 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4629" class="LineNr">4629 </span> <span class="subxComment"># (eax..ecx) = "03)"</span> +<span id="L4630" class="LineNr">4630 </span> b8/copy-to-eax <span class="Constant">"03)"</span>/imm32 +<span id="L4631" class="LineNr">4631 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4632" class="LineNr">4632 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4633" class="LineNr">4633 </span> 05/add-to-eax 4/imm32 +<span id="L4634" class="LineNr">4634 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4635" class="LineNr">4635 </span> 51/push-ecx +<span id="L4636" class="LineNr">4636 </span> 50/push-eax +<span id="L4637" class="LineNr">4637 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4638" class="LineNr">4638 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4639" class="LineNr">4639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4640" class="LineNr">4640 </span> 51/push-ecx +<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4642" class="LineNr">4642 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 +<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4644" class="LineNr">4644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4645" class="LineNr">4645 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L4646" class="LineNr">4646 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4647" class="LineNr">4647 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0-prefix"</span>/imm32 +<span id="L4648" class="LineNr">4648 </span> 68/push 3/imm32 +<span id="L4649" class="LineNr">4649 </span> 50/push-eax +<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4651" class="LineNr">4651 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4652" class="LineNr">4652 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4653" class="LineNr">4653 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4654" class="LineNr">4654 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4655" class="LineNr">4655 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4656" class="LineNr">4656 </span> 5d/pop-to-ebp +<span id="L4657" class="LineNr">4657 </span> c3/return +<span id="L4658" class="LineNr">4658 </span> +<span id="L4659" class="LineNr">4659 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/survey.subx.html b/html/apps/survey.subx.html index 2d731d1d..f0ed15c8 100644 --- a/html/apps/survey.subx.html +++ b/html/apps/survey.subx.html @@ -16,9 +16,9 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .subxS2Comment { color: #8a8a8a; } -.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } @@ -380,14 +380,14 @@ if ('onhashchange' in window) { <span id="L317" class="LineNr"> 317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 -<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L357'>_test-input-buffered-file</a>/imm32 +<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . call</span> <span id="L323" class="LineNr"> 323 </span> e8/call <a href='survey.subx.html#L115'>subx-survey</a>/disp32 <span id="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.subx.html#L222'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 @@ -546,7 +546,7 @@ if ('onhashchange' in window) { <span id="L508" class="LineNr"> 508 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> <span id="L509" class="LineNr"> 509 </span> 3d/compare-eax-and 0/imm32 <span id="L510" class="LineNr"> 510 </span> 0f 84/jump-if-= $compute-offsets:break-line-loop/disp32 -<span id="L511" class="Folded"> 511 </span><span class="Folded">+-- 33 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L511" class="Folded"> 511 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L544" class="LineNr"> 544 </span><span class="Constant">$compute-offsets:word-loop</span>: <span id="L545" class="LineNr"> 545 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L546" class="LineNr"> 546 </span> 52/push-edx @@ -697,7 +697,7 @@ if ('onhashchange' in window) { <span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . push args</span> <span id="L692" class="LineNr"> 692 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 <span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . call</span> -<span id="L694" class="LineNr"> 694 </span> e8/call <a href='../118parse-hex.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L694" class="LineNr"> 694 </span> e8/call <a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 <span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L696" class="LineNr"> 696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L697" class="LineNr"> 697 </span> <span class="subxS1Comment"># . sinfo->address = eax</span> @@ -812,7 +812,7 @@ if ('onhashchange' in window) { <span id="L806" class="LineNr"> 806 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># add eax to *segment-offset</span> <span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># file-offset += width</span> <span id="L808" class="LineNr"> 808 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># add eax to *file-offset</span> -<span id="L809" class="Folded"> 809 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset -------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L809" class="Folded"> 809 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L850" class="LineNr"> 850 </span> e9/jump $compute-offsets:word-loop/disp32 <span id="L851" class="LineNr"> 851 </span><span class="Constant">$compute-offsets:break-line-loop</span>: <span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> @@ -988,7 +988,7 @@ if ('onhashchange' in window) { <span id="L1022" class="LineNr">1022 </span> e8/call <a href='survey.subx.html#L407'>compute-offsets</a>/disp32 <span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1024" class="LineNr">1024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1025" class="Folded">1025 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1025" class="Folded">1025 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1051" class="LineNr">1051 </span> <span class="subxComment"># check trace</span> <span id="L1052" class="LineNr">1052 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' is at file offset 0x00000000.", msg)</span> <span id="L1053" class="LineNr">1053 </span> <span class="subxS2Comment"># . . push args</span> @@ -1152,7 +1152,7 @@ if ('onhashchange' in window) { <span id="L1211" class="LineNr">1211 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esi</span> <span id="L1212" class="LineNr">1212 </span> eb/jump $compute-addresses:segment-loop/disp8 <span id="L1213" class="LineNr">1213 </span><span class="Constant">$compute-addresses:segment-break</span>: -<span id="L1214" class="Folded">1214 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1214" class="Folded">1214 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1240" class="LineNr">1240 </span> <span class="subxComment"># esi = labels</span> <span id="L1241" class="LineNr">1241 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> <span id="L1242" class="LineNr">1242 </span> <span class="subxComment"># var max/ecx: (addr byte) = &labels->data[labels->write]</span> @@ -1164,7 +1164,7 @@ if ('onhashchange' in window) { <span id="L1248" class="LineNr">1248 </span> <span class="subxComment"># if (lrow >= max) break</span> <span id="L1249" class="LineNr">1249 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> <span id="L1250" class="LineNr">1250 </span> 0f 83/jump-if-addr>= $compute-addresses:end/disp32 -<span id="L1251" class="Folded">1251 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1251" class="Folded">1251 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ---------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1277" class="LineNr">1277 </span> <span class="subxComment"># var seg-name/edx: (addr array byte) = lookup(lrow->segment-name)</span> <span id="L1278" class="LineNr">1278 </span> <span class="subxS1Comment"># . eax = lookup(lrow->segment-name)</span> <span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . push args</span> @@ -1176,7 +1176,7 @@ if ('onhashchange' in window) { <span id="L1285" class="LineNr">1285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1286" class="LineNr">1286 </span> <span class="subxS1Comment"># . edx = eax</span> <span id="L1287" class="LineNr">1287 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L1288" class="Folded">1288 </span><span class="Folded">+-- 26 lines: #? # dump seg-name -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1288" class="Folded">1288 </span><span class="Folded">+-- 26 lines: #? # dump seg-name ----------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># var label-seg/edx: (addr segment-info) = get(segments, seg-name, row-size=20, "segment table")</span> <span id="L1315" class="LineNr">1315 </span> <span class="subxS1Comment"># . eax = get(segments, seg-name, row-size=20)</span> <span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> @@ -1393,7 +1393,7 @@ if ('onhashchange' in window) { <span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1528" class="LineNr">1528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1529" class="LineNr">1529 </span> <span class="subxComment"># checks</span> -<span id="L1530" class="Folded">1530 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1530" class="Folded">1530 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1556" class="LineNr">1556 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001094.", msg)</span> <span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1558" class="LineNr">1558 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/0"</span>/imm32 @@ -1556,7 +1556,7 @@ if ('onhashchange' in window) { <span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1716" class="LineNr">1716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1717" class="LineNr">1717 </span> <span class="subxComment"># checks</span> -<span id="L1718" class="Folded">1718 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1718" class="Folded">1718 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1744" class="LineNr">1744 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001074.", msg)</span> <span id="L1745" class="LineNr">1745 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1746" class="LineNr">1746 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1610'>test-compute-addresses-large-segments</a>/0"</span>/imm32 @@ -1594,7 +1594,7 @@ if ('onhashchange' in window) { <span id="L1778" class="LineNr">1778 </span> <span class="subxS1Comment"># . prologue</span> <span id="L1779" class="LineNr">1779 </span> 55/push-ebp <span id="L1780" class="LineNr">1780 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1781" class="Folded">1781 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") -----------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1781" class="Folded">1781 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") --------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1790" class="LineNr">1790 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> <span id="L1791" class="LineNr">1791 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1792" class="LineNr">1792 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> @@ -1604,7 +1604,7 @@ if ('onhashchange' in window) { <span id="L1796" class="LineNr">1796 </span> e8/call <a href='survey.subx.html#L3043'>emit-headers</a>/disp32 <span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1799" class="Folded">1799 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") ----------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1799" class="Folded">1799 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") -------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> <span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1810" class="LineNr">1810 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> @@ -1718,7 +1718,7 @@ if ('onhashchange' in window) { <span id="L1918" class="LineNr">1918 </span> e8/call <a href='../122read-line.subx.html#L218'>read-line</a>/disp32 <span id="L1919" class="LineNr">1919 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1920" class="LineNr">1920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1921" class="Folded">1921 </span><span class="Folded">+-- 33 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1921" class="Folded">1921 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1954" class="LineNr">1954 </span><span class="Constant">$emit-segments:check-for-end-of-input</span>: <span id="L1955" class="LineNr">1955 </span> <span class="subxComment"># if (line->write == 0) break</span> <span id="L1956" class="LineNr">1956 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> @@ -1742,7 +1742,7 @@ if ('onhashchange' in window) { <span id="L1974" class="LineNr">1974 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 <span id="L1975" class="LineNr">1975 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1976" class="LineNr">1976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1977" class="Folded">1977 </span><span class="Folded">+-- 33 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1977" class="Folded">1977 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2010" class="LineNr">2010 </span><span class="Constant">$emit-segments:check-for-end-of-line</span>: <span id="L2011" class="LineNr">2011 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L2012" class="LineNr">2012 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -1828,7 +1828,7 @@ if ('onhashchange' in window) { <span id="L2092" class="LineNr">2092 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 <span id="L2093" class="LineNr">2093 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2094" class="LineNr">2094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2095" class="Folded">2095 </span><span class="Folded">+-- 33 lines: #? # dump datum ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2095" class="Folded">2095 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2128" class="LineNr">2128 </span> <span class="subxComment"># info/esi = get-slice(labels, datum, row-size=24, "label table")</span> <span id="L2129" class="LineNr">2129 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> <span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . push args</span> @@ -1927,7 +1927,7 @@ if ('onhashchange' in window) { <span id="L2223" class="LineNr">2223 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2224" class="LineNr">2224 </span> 3d/compare-eax-and 0/imm32/false <span id="L2225" class="LineNr">2225 </span> 74/jump-if-= $emit-segments:check-code-label-for-disp8/disp8 -<span id="L2226" class="Folded">2226 </span><span class="Folded">+-- 33 lines: #? # dump info->address --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2226" class="Folded">2226 </span><span class="Folded">+-- 33 lines: #? # dump info->address -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2259" class="LineNr">2259 </span><span class="Constant">$emit-segments:emit-code-label-imm32</span>: <span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># emit-hex(out, info->address, 4)</span> <span id="L2261" class="LineNr">2261 </span> <span class="subxS2Comment"># . . push args</span> @@ -2220,7 +2220,7 @@ if ('onhashchange' in window) { <span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> <span id="L2549" class="LineNr">2549 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2550" class="LineNr">2550 </span> 52/push-edx -<span id="L2551" class="LineNr">2551 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2551" class="LineNr">2551 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2552" class="LineNr">2552 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2553" class="LineNr">2553 </span> <span class="subxS2Comment"># . . call</span> <span id="L2554" class="LineNr">2554 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 @@ -2229,12 +2229,12 @@ if ('onhashchange' in window) { <span id="L2557" class="LineNr">2557 </span> <span class="subxComment"># checks</span> <span id="L2558" class="LineNr">2558 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L2559" class="LineNr">2559 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2560" class="LineNr">2560 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2560" class="LineNr">2560 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2561" class="LineNr">2561 </span> <span class="subxS2Comment"># . . call</span> <span id="L2562" class="LineNr">2562 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2563" class="LineNr">2563 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2564" class="LineNr">2564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2565" class="Folded">2565 </span><span class="Folded">+-- 33 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2565" class="Folded">2565 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2598" class="LineNr">2598 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> <span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2600" class="LineNr">2600 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2409'>test-emit-segments-global-variable</a>/0"</span>/imm32 @@ -2399,7 +2399,7 @@ if ('onhashchange' in window) { <span id="L2759" class="LineNr">2759 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> <span id="L2760" class="LineNr">2760 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2761" class="LineNr">2761 </span> 52/push-edx -<span id="L2762" class="LineNr">2762 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2762" class="LineNr">2762 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2763" class="LineNr">2763 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . call</span> <span id="L2765" class="LineNr">2765 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 @@ -2408,12 +2408,12 @@ if ('onhashchange' in window) { <span id="L2768" class="LineNr">2768 </span> <span class="subxComment"># checks</span> <span id="L2769" class="LineNr">2769 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L2770" class="LineNr">2770 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2771" class="LineNr">2771 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2771" class="LineNr">2771 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2772" class="LineNr">2772 </span> <span class="subxS2Comment"># . . call</span> <span id="L2773" class="LineNr">2773 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2774" class="LineNr">2774 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2775" class="LineNr">2775 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2776" class="Folded">2776 </span><span class="Folded">+-- 33 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2776" class="Folded">2776 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2809" class="LineNr">2809 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> <span id="L2810" class="LineNr">2810 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2811" class="LineNr">2811 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2639'>test-emit-segments-code-label</a>/0"</span>/imm32 @@ -2569,7 +2569,7 @@ if ('onhashchange' in window) { <span id="L2961" class="LineNr">2961 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> <span id="L2962" class="LineNr">2962 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2963" class="LineNr">2963 </span> 52/push-edx -<span id="L2964" class="LineNr">2964 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2964" class="LineNr">2964 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2965" class="LineNr">2965 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . call</span> <span id="L2967" class="LineNr">2967 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 @@ -2578,12 +2578,12 @@ if ('onhashchange' in window) { <span id="L2970" class="LineNr">2970 </span> <span class="subxComment"># checks</span> <span id="L2971" class="LineNr">2971 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L2972" class="LineNr">2972 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2973" class="LineNr">2973 </span> 68/push <a href='../115write-byte.subx.html#L359'>_test-output-buffered-file</a>/imm32 +<span id="L2973" class="LineNr">2973 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 <span id="L2974" class="LineNr">2974 </span> <span class="subxS2Comment"># . . call</span> <span id="L2975" class="LineNr">2975 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2976" class="LineNr">2976 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2977" class="LineNr">2977 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2978" class="Folded">2978 </span><span class="Folded">+-- 33 lines: #? # dump output ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2978" class="Folded">2978 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3011" class="LineNr">3011 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> <span id="L3012" class="LineNr">3012 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3013" class="LineNr">3013 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2841'>test-emit-segments-code-label-absolute</a>/0"</span>/imm32 @@ -2653,8 +2653,8 @@ if ('onhashchange' in window) { <span id="L3077" class="LineNr">3077 </span> <span class="subxComment"># if (curr-segment >= max) break</span> <span id="L3078" class="LineNr">3078 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> <span id="L3079" class="LineNr">3079 </span> 0f 83/jump-if-addr>= $emit-headers:end/disp32 -<span id="L3080" class="Folded">3080 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3143" class="Folded">3143 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3080" class="Folded">3080 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3143" class="Folded">3143 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") -------------------------------------------------------------------------------------------------------------------------</span> <span id="L3152" class="LineNr">3152 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment)</span> <span id="L3153" class="LineNr">3153 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3154" class="LineNr">3154 </span> 50/push-eax @@ -3174,7 +3174,7 @@ if ('onhashchange' in window) { <span id="L3668" class="LineNr">3668 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 <span id="L3669" class="LineNr">3669 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3670" class="LineNr">3670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3671" class="Folded">3671 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3671" class="Folded">3671 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3697" class="LineNr">3697 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> <span id="L3698" class="LineNr">3698 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3699" class="LineNr">3699 </span> 68/push <span class="Constant">"F - test-trace-sssns"</span>/imm32 @@ -3256,7 +3256,7 @@ if ('onhashchange' in window) { <span id="L3775" class="LineNr">3775 </span> e8/call <a href='survey.subx.html#L3710'>trace-snsns</a>/disp32 <span id="L3776" class="LineNr">3776 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3777" class="LineNr">3777 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3778" class="Folded">3778 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3778" class="Folded">3778 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3804" class="LineNr">3804 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> <span id="L3805" class="LineNr">3805 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3806" class="LineNr">3806 </span> 68/push <span class="Constant">"F - test-trace-snsns"</span>/imm32 @@ -3356,7 +3356,7 @@ if ('onhashchange' in window) { <span id="L3900" class="LineNr">3900 </span> e8/call <a href='survey.subx.html#L3817'>trace-slsls</a>/disp32 <span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3902" class="LineNr">3902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3903" class="Folded">3903 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3903" class="Folded">3903 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3929" class="LineNr">3929 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> <span id="L3930" class="LineNr">3930 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3931" class="LineNr">3931 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 @@ -3447,7 +3447,7 @@ if ('onhashchange' in window) { <span id="L4016" class="LineNr">4016 </span> e8/call <a href='survey.subx.html#L3942'>trace-slsns</a>/disp32 <span id="L4017" class="LineNr">4017 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4018" class="LineNr">4018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L4019" class="Folded">4019 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4019" class="Folded">4019 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4045" class="LineNr">4045 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> <span id="L4046" class="LineNr">4046 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4047" class="LineNr">4047 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 @@ -3538,7 +3538,7 @@ if ('onhashchange' in window) { <span id="L4132" class="LineNr">4132 </span> e8/call <a href='survey.subx.html#L4058'>trace-slsss</a>/disp32 <span id="L4133" class="LineNr">4133 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4134" class="LineNr">4134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L4135" class="Folded">4135 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4135" class="Folded">4135 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4161" class="LineNr">4161 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> <span id="L4162" class="LineNr">4162 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4163" class="LineNr">4163 </span> 68/push <span class="Constant">"F - test-trace-slsss"</span>/imm32 @@ -3581,7 +3581,7 @@ if ('onhashchange' in window) { <span id="L4200" class="LineNr">4200 </span> 68/push 0/imm32/end <span id="L4201" class="LineNr">4201 </span> 68/push 0/imm32/start <span id="L4202" class="LineNr">4202 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4203" class="Folded">4203 </span><span class="Folded">+-- 26 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4203" class="Folded">4203 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4229" class="LineNr">4229 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> <span id="L4230" class="LineNr">4230 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4231" class="LineNr">4231 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> @@ -3598,7 +3598,7 @@ if ('onhashchange' in window) { <span id="L4242" class="LineNr">4242 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 <span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4244" class="LineNr">4244 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4245" class="Folded">4245 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4245" class="Folded">4245 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4285" class="LineNr">4285 </span><span class="Constant">$num-bytes:check0</span>: <span id="L4286" class="LineNr">4286 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L4287" class="LineNr">4287 </span> <span class="subxS1Comment"># . save result</span> diff --git a/html/apps/tests.subx.html b/html/apps/tests.subx.html index 731ac276..e1fbb759 100644 --- a/html/apps/tests.subx.html +++ b/html/apps/tests.subx.html @@ -140,224 +140,236 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># read-line-buffered(in, line)</span> <span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># if is-label?(word-slice)</span> -<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "test-")</span> -<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># tests-found = true</span> -<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># write(new-code-segment, " e8/call ")</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># write-slice(new-code-segment, word-slice)</span> -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># write(new-code-segment, "/disp32\n")</span> -<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># if tests-found</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># write(new-code-segment, " c3/return\n")</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># write-stream-data(out, new-code-segment)</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># flush(out)</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxComment">#</span> -<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L97" class="LineNr"> 97 </span> 55/push-ebp -<span id="L98" class="LineNr"> 98 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L100" class="LineNr">100 </span> 50/push-eax -<span id="L101" class="LineNr">101 </span> 51/push-ecx -<span id="L102" class="LineNr">102 </span> 52/push-edx -<span id="L103" class="LineNr">103 </span> 53/push-ebx -<span id="L104" class="LineNr">104 </span> 56/push-esi -<span id="L105" class="LineNr">105 </span> 57/push-edi -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L107" class="LineNr">107 </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="L108" class="LineNr">108 </span> 68/push 0x200/imm32/length -<span id="L109" class="LineNr">109 </span> 68/push 0/imm32/read -<span id="L110" class="LineNr">110 </span> 68/push 0/imm32/write -<span id="L111" class="LineNr">111 </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="L112" class="LineNr">112 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L113" class="LineNr">113 </span> 68/push 0/imm32/end -<span id="L114" class="LineNr">114 </span> 68/push 0/imm32/start -<span id="L115" class="LineNr">115 </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="L116" class="LineNr">116 </span> <span class="subxComment"># tests-found?/ebx = false</span> -<span id="L117" class="LineNr">117 </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="L118" class="LineNr">118 </span> <span class="subxComment"># var new-code-stream-handle/esi: (handle stream byte)</span> -<span id="L119" class="LineNr">119 </span> 68/push 0/imm32 -<span id="L120" class="LineNr">120 </span> 68/push 0/imm32 -<span id="L121" class="LineNr">121 </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="L122" class="LineNr">122 </span> <span class="subxComment"># new-stream(Heap, Segment-size, 1, new-code-stream-handle)</span> -<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L124" class="LineNr">124 </span> 56/push-esi -<span id="L125" class="LineNr">125 </span> 68/push 1/imm32 -<span id="L126" class="LineNr">126 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Segment-size</span>/disp32 <span class="subxComment"># push *Segment-size</span> -<span id="L127" class="LineNr">127 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L129" class="LineNr">129 </span> e8/call <a href='../121new-stream.subx.html#L8'>new-stream</a>/disp32 -<span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L131" class="LineNr">131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># var new-code-stream/edi: (addr stream byte) = lookup(*new-code-stream-handle)</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . eax = lookup(*new-code-stream-handle)</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L136" class="LineNr">136 </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="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L141" class="LineNr">141 </span> <span class="subxS1Comment"># . new-code-stream = eax</span> -<span id="L142" class="LineNr">142 </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="L143" class="LineNr">143 </span> <span class="subxComment"># write(new-code-segment, "\n== code\n")</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L145" class="LineNr">145 </span> 68/push <span class="Constant">"\n== code\n"</span>/imm32 -<span id="L146" class="LineNr">146 </span> 57/push-edi -<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L148" class="LineNr">148 </span> e8/call <a href='../108write.subx.html#L24'>write</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"># write(new-code-segment, "run-tests:\n")</span> -<span id="L152" class="LineNr">152 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L153" class="LineNr">153 </span> 68/push <span class="Constant">"run-tests:\n"</span>/imm32 -<span id="L154" class="LineNr">154 </span> 57/push-edi -<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . call</span> -<span id="L156" class="LineNr">156 </span> e8/call <a href='../108write.subx.html#L24'>write</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="Constant">$subx-gen-run-tests:loop</span>: -<span id="L160" class="LineNr">160 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L162" class="LineNr">162 </span> 51/push-ecx -<span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . call</span> -<span id="L164" class="LineNr">164 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L166" class="LineNr">166 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L167" class="LineNr">167 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L169" class="LineNr">169 </span> 51/push-ecx -<span id="L170" class="LineNr">170 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 -<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L175" class="LineNr">175 </span><span class="Constant">$subx-gen-run-tests:check0</span>: -<span id="L176" class="LineNr">176 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L177" class="LineNr">177 </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="L178" class="LineNr">178 </span> 0f 84/jump-if-= $subx-gen-run-tests:<span class="Constant">break</span>/disp32 -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L181" class="LineNr">181 </span> 52/push-edx -<span id="L182" class="LineNr">182 </span> 51/push-ecx -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . call</span> -<span id="L184" class="LineNr">184 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 -<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L186" class="LineNr">186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L187" class="LineNr">187 </span><span class="Constant">$subx-gen-run-tests:check-for-label</span>: -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># if (!is-label?(word-slice)) continue</span> -<span id="L189" class="LineNr">189 </span> <span class="subxS1Comment"># . eax = is-label?(word-slice)</span> -<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L191" class="LineNr">191 </span> 52/push-edx -<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . call</span> -<span id="L193" class="LineNr">193 </span> e8/call <a href='../128subx-words.subx.html#L535'>is-label?</a>/disp32 +<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># if slice-empty?(word-slice) # empty line</span> +<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># continue</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if is-label?(word-slice)</span> +<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "test-")</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># tests-found = true</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># write(new-code-segment, " e8/call ")</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># write-slice(new-code-segment, word-slice)</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># write(new-code-segment, "/disp32\n")</span> +<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># if tests-found</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># write(new-code-segment, " c3/return\n")</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># write-stream-data(out, new-code-segment)</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># flush(out)</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment">#</span> +<span id="L98" class="LineNr"> 98 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L99" class="LineNr"> 99 </span> 55/push-ebp +<span id="L100" class="LineNr">100 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L102" class="LineNr">102 </span> 50/push-eax +<span id="L103" class="LineNr">103 </span> 51/push-ecx +<span id="L104" class="LineNr">104 </span> 52/push-edx +<span id="L105" class="LineNr">105 </span> 53/push-ebx +<span id="L106" class="LineNr">106 </span> 56/push-esi +<span id="L107" class="LineNr">107 </span> 57/push-edi +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L109" class="LineNr">109 </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="L110" class="LineNr">110 </span> 68/push 0x200/imm32/length +<span id="L111" class="LineNr">111 </span> 68/push 0/imm32/read +<span id="L112" class="LineNr">112 </span> 68/push 0/imm32/write +<span id="L113" class="LineNr">113 </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="L114" class="LineNr">114 </span> <span class="subxComment"># var word-slice/edx: 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 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="L118" class="LineNr">118 </span> <span class="subxComment"># tests-found?/ebx = false</span> +<span id="L119" class="LineNr">119 </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="L120" class="LineNr">120 </span> <span class="subxComment"># var new-code-stream-handle/esi: (handle stream byte)</span> +<span id="L121" class="LineNr">121 </span> 68/push 0/imm32 +<span id="L122" class="LineNr">122 </span> 68/push 0/imm32 +<span id="L123" class="LineNr">123 </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="L124" class="LineNr">124 </span> <span class="subxComment"># new-stream(Heap, Segment-size, 1, new-code-stream-handle)</span> +<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L126" class="LineNr">126 </span> 56/push-esi +<span id="L127" class="LineNr">127 </span> 68/push 1/imm32 +<span id="L128" class="LineNr">128 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Segment-size</span>/disp32 <span class="subxComment"># push *Segment-size</span> +<span id="L129" class="LineNr">129 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . call</span> +<span id="L131" class="LineNr">131 </span> e8/call <a href='../121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L133" class="LineNr">133 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># var new-code-stream/edi: (addr stream byte) = lookup(*new-code-stream-handle)</span> +<span id="L135" class="LineNr">135 </span> <span class="subxS1Comment"># . eax = lookup(*new-code-stream-handle)</span> +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L138" class="LineNr">138 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L140" class="LineNr">140 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L142" class="LineNr">142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . new-code-stream = eax</span> +<span id="L144" class="LineNr">144 </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="L145" class="LineNr">145 </span> <span class="subxComment"># write(new-code-segment, "\n== code\n")</span> +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L147" class="LineNr">147 </span> 68/push <span class="Constant">"\n== code\n"</span>/imm32 +<span id="L148" class="LineNr">148 </span> 57/push-edi +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . call</span> +<span id="L150" class="LineNr">150 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L152" class="LineNr">152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L153" class="LineNr">153 </span> <span class="subxComment"># write(new-code-segment, "run-tests:\n")</span> +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"run-tests:\n"</span>/imm32 +<span id="L156" class="LineNr">156 </span> 57/push-edi +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L158" class="LineNr">158 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L161" class="LineNr">161 </span><span class="Constant">$subx-gen-run-tests:loop</span>: +<span id="L162" class="LineNr">162 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L164" class="LineNr">164 </span> 51/push-ecx +<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . call</span> +<span id="L166" class="LineNr">166 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L168" class="LineNr">168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L169" class="LineNr">169 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L171" class="LineNr">171 </span> 51/push-ecx +<span id="L172" class="LineNr">172 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . call</span> +<span id="L174" class="LineNr">174 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L177" class="LineNr">177 </span><span class="Constant">$subx-gen-run-tests:check0</span>: +<span id="L178" class="LineNr">178 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L179" class="LineNr">179 </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="L180" class="LineNr">180 </span> 0f 84/jump-if-= $subx-gen-run-tests:<span class="Constant">break</span>/disp32 +<span id="L181" class="LineNr">181 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L183" class="LineNr">183 </span> 52/push-edx +<span id="L184" class="LineNr">184 </span> 51/push-ecx +<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . call</span> +<span id="L186" class="LineNr">186 </span> e8/call <a href='../127next-word.subx.html#L10'>next-word</a>/disp32 +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L188" class="LineNr">188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L189" class="LineNr">189 </span><span class="Constant">$subx-gen-run-tests:check-empty</span>: +<span id="L190" class="LineNr">190 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L191" class="LineNr">191 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L192" class="LineNr">192 </span> 52/push-edx +<span id="L193" class="LineNr">193 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L195" class="LineNr">195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . if (eax == false) continue</span> +<span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . if (eax != false) break</span> <span id="L197" class="LineNr">197 </span> 3d/compare-eax-and 0/imm32/false -<span id="L198" class="LineNr">198 </span> 74/jump-if-= $subx-gen-run-tests:continue/disp8 -<span id="L199" class="LineNr">199 </span><span class="Constant">$subx-gen-run-tests:check-label-prefix</span>: -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> -<span id="L201" class="LineNr">201 </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="L202" class="LineNr">202 </span> <span class="subxComment"># if !slice-starts-with?(word-slice, "test-") continue</span> -<span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"test-"</span>/imm32 -<span id="L205" class="LineNr">205 </span> 52/push-edx -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L207" class="LineNr">207 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L210" class="LineNr">210 </span> <span class="subxS1Comment"># . if (eax == false) break</span> -<span id="L211" class="LineNr">211 </span> 3d/compare-eax-and 0/imm32/false -<span id="L212" class="LineNr">212 </span> 74/jump-if-= $subx-gen-run-tests:continue/disp8 -<span id="L213" class="LineNr">213 </span><span class="Constant">$subx-gen-run-tests:call-test-function</span>: -<span id="L214" class="LineNr">214 </span> <span class="subxComment"># tests-found? = true</span> -<span id="L215" class="LineNr">215 </span> bb/copy-to-ebx 1/imm32/true -<span id="L216" class="LineNr">216 </span> <span class="subxComment"># write(new-code-segment, " e8/call ")</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L218" class="LineNr">218 </span> 68/push <span class="Constant">" e8/call "</span>/imm32 -<span id="L219" class="LineNr">219 </span> 57/push-edi -<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L221" class="LineNr">221 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L223" class="LineNr">223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># write-slice(new-code-segment, word-slice)</span> -<span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L226" class="LineNr">226 </span> 52/push-edx -<span id="L227" class="LineNr">227 </span> 57/push-edi -<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . call</span> -<span id="L229" class="LineNr">229 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</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="subxComment"># write(new-code-segment, "/disp32\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">"/disp32\n"</span>/imm32 -<span id="L235" class="LineNr">235 </span> 57/push-edi -<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="Constant">$subx-gen-run-tests:continue</span>: -<span id="L241" class="LineNr">241 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L243" class="LineNr">243 </span> 51/push-ecx -<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr">245 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L248" class="LineNr">248 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L249" class="LineNr">249 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L250" class="LineNr">250 </span> 51/push-ecx -<span id="L251" class="LineNr">251 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L252" class="LineNr">252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L253" class="LineNr">253 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</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="subxComment"># loop</span> -<span id="L257" class="LineNr">257 </span> e9/jump $subx-gen-run-tests:<span class="Constant">loop</span>/disp32 -<span id="L258" class="LineNr">258 </span><span class="Constant">$subx-gen-run-tests:break</span>: -<span id="L259" class="LineNr">259 </span> <span class="subxComment"># if (!tests-found?) goto end</span> -<span id="L260" class="LineNr">260 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> -<span id="L261" class="LineNr">261 </span> 74/jump-if-= $subx-gen-run-tests:end/disp8 -<span id="L262" class="LineNr">262 </span> <span class="subxComment"># write(new-code-segment, " c3/return\n")</span> -<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L264" class="LineNr">264 </span> 68/push <span class="Constant">" c3/return\n"</span>/imm32 -<span id="L265" class="LineNr">265 </span> 57/push-edi -<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . call</span> -<span id="L267" class="LineNr">267 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L269" class="LineNr">269 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L270" class="LineNr">270 </span> <span class="subxComment"># write-stream-data(out, new-code-segment)</span> -<span id="L271" class="LineNr">271 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L272" class="LineNr">272 </span> 57/push-edi -<span id="L273" class="LineNr">273 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . call</span> -<span id="L275" class="LineNr">275 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L276" class="LineNr">276 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L277" class="LineNr">277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L278" class="LineNr">278 </span><span class="Constant">$subx-gen-run-tests:end</span>: -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># flush(out)</span> -<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L281" class="LineNr">281 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L283" class="LineNr">283 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L285" class="LineNr">285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L286" class="LineNr">286 </span> <span class="subxS1Comment"># . reclaim locals</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> 0x21c/imm32 <span class="subxComment"># add to esp</span> -<span id="L288" class="LineNr">288 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L289" class="LineNr">289 </span> 5f/pop-to-edi -<span id="L290" class="LineNr">290 </span> 5e/pop-to-esi -<span id="L291" class="LineNr">291 </span> 5b/pop-to-ebx -<span id="L292" class="LineNr">292 </span> 5a/pop-to-edx -<span id="L293" class="LineNr">293 </span> 59/pop-to-ecx -<span id="L294" class="LineNr">294 </span> 58/pop-to-eax -<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L296" class="LineNr">296 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L297" class="LineNr">297 </span> 5d/pop-to-ebp -<span id="L298" class="LineNr">298 </span> c3/return -<span id="L299" class="LineNr">299 </span> -<span id="L300" class="LineNr">300 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L198" class="LineNr">198 </span> 75/jump-if-!= $subx-gen-run-tests:<span class="Constant">loop</span>/disp8 +<span id="L199" class="LineNr">199 </span><span class="Constant">$subx-gen-run-tests:check-for-label</span>: +<span id="L200" class="LineNr">200 </span> <span class="subxComment"># if (!is-label?(word-slice)) continue</span> +<span id="L201" class="LineNr">201 </span> <span class="subxS1Comment"># . eax = is-label?(word-slice)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L203" class="LineNr">203 </span> 52/push-edx +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L205" class="LineNr">205 </span> e8/call <a href='../128subx-words.subx.html#L535'>is-label?</a>/disp32 +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . if (eax == false) continue</span> +<span id="L209" class="LineNr">209 </span> 3d/compare-eax-and 0/imm32/false +<span id="L210" class="LineNr">210 </span> 74/jump-if-= $subx-gen-run-tests:continue/disp8 +<span id="L211" class="LineNr">211 </span><span class="Constant">$subx-gen-run-tests:check-label-prefix</span>: +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L213" class="LineNr">213 </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="L214" class="LineNr">214 </span> <span class="subxComment"># if !slice-starts-with?(word-slice, "test-") continue</span> +<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L216" class="LineNr">216 </span> 68/push <span class="Constant">"test-"</span>/imm32 +<span id="L217" class="LineNr">217 </span> 52/push-edx +<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . call</span> +<span id="L219" class="LineNr">219 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L221" class="LineNr">221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L222" class="LineNr">222 </span> <span class="subxS1Comment"># . if (eax == false) break</span> +<span id="L223" class="LineNr">223 </span> 3d/compare-eax-and 0/imm32/false +<span id="L224" class="LineNr">224 </span> 74/jump-if-= $subx-gen-run-tests:continue/disp8 +<span id="L225" class="LineNr">225 </span><span class="Constant">$subx-gen-run-tests:call-test-function</span>: +<span id="L226" class="LineNr">226 </span> <span class="subxComment"># tests-found? = true</span> +<span id="L227" class="LineNr">227 </span> bb/copy-to-ebx 1/imm32/true +<span id="L228" class="LineNr">228 </span> <span class="subxComment"># write(new-code-segment, " e8/call ")</span> +<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L230" class="LineNr">230 </span> 68/push <span class="Constant">" e8/call "</span>/imm32 +<span id="L231" class="LineNr">231 </span> 57/push-edi +<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . call</span> +<span id="L233" class="LineNr">233 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L235" class="LineNr">235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L236" class="LineNr">236 </span> <span class="subxComment"># write-slice(new-code-segment, word-slice)</span> +<span id="L237" class="LineNr">237 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L238" class="LineNr">238 </span> 52/push-edx +<span id="L239" class="LineNr">239 </span> 57/push-edi +<span id="L240" class="LineNr">240 </span> <span class="subxS2Comment"># . . call</span> +<span id="L241" class="LineNr">241 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L243" class="LineNr">243 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L244" class="LineNr">244 </span> <span class="subxComment"># write(new-code-segment, "/disp32\n")</span> +<span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L246" class="LineNr">246 </span> 68/push <span class="Constant">"/disp32\n"</span>/imm32 +<span id="L247" class="LineNr">247 </span> 57/push-edi +<span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . call</span> +<span id="L249" class="LineNr">249 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L250" class="LineNr">250 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L251" class="LineNr">251 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L252" class="LineNr">252 </span><span class="Constant">$subx-gen-run-tests:continue</span>: +<span id="L253" class="LineNr">253 </span> <span class="subxComment"># rewind-stream(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> <span class="subxS2Comment"># . . call</span> +<span id="L257" class="LineNr">257 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L259" class="LineNr">259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L260" class="LineNr">260 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L262" class="LineNr">262 </span> 51/push-ecx +<span id="L263" class="LineNr">263 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> +<span id="L265" class="LineNr">265 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># loop</span> +<span id="L269" class="LineNr">269 </span> e9/jump $subx-gen-run-tests:<span class="Constant">loop</span>/disp32 +<span id="L270" class="LineNr">270 </span><span class="Constant">$subx-gen-run-tests:break</span>: +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># if (!tests-found?) goto end</span> +<span id="L272" class="LineNr">272 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> +<span id="L273" class="LineNr">273 </span> 74/jump-if-= $subx-gen-run-tests:end/disp8 +<span id="L274" class="LineNr">274 </span> <span class="subxComment"># write(new-code-segment, " c3/return\n")</span> +<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L276" class="LineNr">276 </span> 68/push <span class="Constant">" c3/return\n"</span>/imm32 +<span id="L277" class="LineNr">277 </span> 57/push-edi +<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L279" class="LineNr">279 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L281" class="LineNr">281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L282" class="LineNr">282 </span> <span class="subxComment"># write-stream-data(out, new-code-segment)</span> +<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L284" class="LineNr">284 </span> 57/push-edi +<span id="L285" class="LineNr">285 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . call</span> +<span id="L287" class="LineNr">287 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L289" class="LineNr">289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L290" class="LineNr">290 </span><span class="Constant">$subx-gen-run-tests:end</span>: +<span id="L291" class="LineNr">291 </span> <span class="subxComment"># flush(out)</span> +<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L293" class="LineNr">293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . call</span> +<span id="L295" class="LineNr">295 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L297" class="LineNr">297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L298" class="LineNr">298 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L299" class="LineNr">299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x21c/imm32 <span class="subxComment"># add to esp</span> +<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L301" class="LineNr">301 </span> 5f/pop-to-edi +<span id="L302" class="LineNr">302 </span> 5e/pop-to-esi +<span id="L303" class="LineNr">303 </span> 5b/pop-to-ebx +<span id="L304" class="LineNr">304 </span> 5a/pop-to-edx +<span id="L305" class="LineNr">305 </span> 59/pop-to-ecx +<span id="L306" class="LineNr">306 </span> 58/pop-to-eax +<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="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/tile.mu.html b/html/apps/tile.mu.html deleted file mode 100644 index fa01fcb6..00000000 --- a/html/apps/tile.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 - apps/tile.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } -.SpecialChar { color: #d70000; } -.Comment { color: #005faf; } -.Constant { color: #008787; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/master/apps/tile.mu'>https://github.com/akkartik/mu/blob/master/apps/tile.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># little example program: animate a line in text-mode</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run (on Linux and x86):</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ 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="Comment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># $ ./translate_mu apps/tile.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># $ ./a.elf</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># You should see a line drawn on a blank screen. Press a key. You should see</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># the line seem to fall down the screen. Press a second key to quit.</span> -<span id="L10" class="LineNr">10 </span><span class="Comment"># <a href="https://archive.org/details/akkartik-2min-2020-07-01">https://archive.org/details/akkartik-2min-2020-07-01</a></span> -<span id="L11" class="LineNr">11 </span> -<span id="L12" class="LineNr">12 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L13" class="LineNr">13 </span> <a href='../103screen.subx.html#L75'>clear-screen</a> -<span id="L14" class="LineNr">14 </span> <a href='../103screen.subx.html#L91'>move-cursor-on-screen</a> <span class="Constant">5</span>, <span class="Constant">5</span> -<span id="L15" class="LineNr">15 </span> <a href='../103screen.subx.html#L122'>print-string-to-screen</a> <span class="Constant">"_________"</span> -<span id="L16" class="LineNr">16 </span> <a href='../104keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../104keyboard.subx.html#L122'>read-key</a> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">5</span> -<span id="L19" class="LineNr">19 </span> <span class="Delimiter">{</span> -<span id="L20" class="LineNr">20 </span> compare row, <span class="Constant">0xe</span> <span class="Comment"># 15</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">break-if-=</span> -<span id="L22" class="LineNr">22 </span> <a href='tile.mu.html#L33'>animate</a> row -<span id="L23" class="LineNr">23 </span> row <span class="SpecialChar"><-</span> increment -<span id="L24" class="LineNr">24 </span> <a href='tile.mu.html#L56'>sleep</a> <span class="Constant">0</span> <span class="Constant">0x5f5e100</span> <span class="Comment"># 100ms</span> -<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> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../104keyboard.subx.html#L122'>read-key</a> -<span id="L28" class="LineNr">28 </span> <a href='../104keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L29" class="LineNr">29 </span> <a href='../103screen.subx.html#L75'>clear-screen</a> -<span id="L30" class="LineNr">30 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L31" class="LineNr">31 </span><span class="Delimiter">}</span> -<span id="L32" class="LineNr">32 </span> -<span id="L33" class="LineNr">33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tile.mu.html#L33'>animate</a></span> row: int <span class="Delimiter">{</span> -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">5</span> -<span id="L35" class="LineNr">35 </span> <span class="Delimiter">{</span> -<span id="L36" class="LineNr">36 </span> compare col, <span class="Constant">0xe</span> -<span id="L37" class="LineNr">37 </span> <span class="PreProc">break-if-=</span> -<span id="L38" class="LineNr">38 </span> <a href='../103screen.subx.html#L91'>move-cursor-on-screen</a> row, col -<span id="L39" class="LineNr">39 </span> <a href='../103screen.subx.html#L122'>print-string-to-screen</a> <span class="Constant">" "</span> -<span id="L40" class="LineNr">40 </span> increment row -<span id="L41" class="LineNr">41 </span> <a href='../103screen.subx.html#L91'>move-cursor-on-screen</a> row, col -<span id="L42" class="LineNr">42 </span> <a href='../103screen.subx.html#L122'>print-string-to-screen</a> <span class="Constant">"_"</span> -<span id="L43" class="LineNr">43 </span> decrement row -<span id="L44" class="LineNr">44 </span> col <span class="SpecialChar"><-</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><span class="Delimiter">}</span> -<span id="L48" class="LineNr">48 </span> -<span id="L49" class="LineNr">49 </span><span class="PreProc">type</span> <a href='tile.mu.html#L49'>timespec</a> <span class="Delimiter">{</span> -<span id="L50" class="LineNr">50 </span> tv_sec: int -<span id="L51" class="LineNr">51 </span> tv_nsec: int -<span id="L52" class="LineNr">52 </span><span class="Delimiter">}</span> -<span id="L53" class="LineNr">53 </span> -<span id="L54" class="LineNr">54 </span><span class="Comment"># prototype wrapper around syscall_nanosleep</span> -<span id="L55" class="LineNr">55 </span><span class="Comment"># nsecs must be less than 999999999 or 0x3b9ac9ff nanoseconds</span> -<span id="L56" class="LineNr">56 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tile.mu.html#L56'>sleep</a></span> secs: int, nsecs: int <span class="Delimiter">{</span> -<span id="L57" class="LineNr">57 </span> <span class="PreProc">var</span> t: <a href='tile.mu.html#L49'>timespec</a> -<span id="L58" class="LineNr">58 </span> <span class="Comment"># initialize t</span> -<span id="L59" class="LineNr">59 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../081table.subx.html#L26'>get</a> t, tv_sec -<span id="L60" class="LineNr">60 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy secs -<span id="L61" class="LineNr">61 </span> copy-to *tmp, tmp2 -<span id="L62" class="LineNr">62 </span> tmp <span class="SpecialChar"><-</span> <a href='../081table.subx.html#L26'>get</a> t, tv_nsec -<span id="L63" class="LineNr">63 </span> tmp2 <span class="SpecialChar"><-</span> copy nsecs -<span id="L64" class="LineNr">64 </span> copy-to *tmp, tmp2 -<span id="L65" class="LineNr">65 </span> <span class="Comment"># perform the syscall</span> -<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ebx</span>: (addr <a href='tile.mu.html#L49'>timespec</a>) <span class="SpecialChar"><-</span> address t -<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> rem-addr/<span class="Constant">ecx</span>: (addr <a href='tile.mu.html#L49'>timespec</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L68" class="LineNr">68 </span> syscall_nanosleep -<span id="L69" class="LineNr">69 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/box.mu.html b/html/apps/tile/box.mu.html new file mode 100644 index 00000000..689dc7bf --- /dev/null +++ b/html/apps/tile/box.mu.html @@ -0,0 +1,147 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/box.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/box.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/box.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L1'>draw-box</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='box.mu.html#L22'>draw-horizontal-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, col1, col2 +<span id="L3" class="LineNr"> 3 </span> <a href='box.mu.html#L34'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, row2, col1 +<span id="L4" class="LineNr"> 4 </span> <a href='box.mu.html#L22'>draw-horizontal-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row2, col1, col2 +<span id="L5" class="LineNr"> 5 </span> <a href='box.mu.html#L34'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, row2, col2 +<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='box.mu.html#L8'>draw-hatching</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy col1 +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> r1/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L11" class="LineNr">11 </span> r1 <span class="SpecialChar"><-</span> increment +<span id="L12" class="LineNr">12 </span> c <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> +<span id="L14" class="LineNr">14 </span> compare c, col2 +<span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if->=</span> +<span id="L16" class="LineNr">16 </span> <a href='box.mu.html#L34'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, r1, row2, c +<span id="L17" class="LineNr">17 </span> c <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">loop</span> +<span id="L19" class="LineNr">19 </span> <span class="Delimiter">}</span> +<span id="L20" class="LineNr">20 </span><span class="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='box.mu.html#L22'>draw-horizontal-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col1: int, col2: int <span class="Delimiter">{</span> +<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy col1 +<span id="L24" class="LineNr">24 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <span class="Constant">0</span>, row, col +<span id="L25" class="LineNr">25 </span> <span class="Delimiter">{</span> +<span id="L26" class="LineNr">26 </span> compare col, col2 +<span id="L27" class="LineNr">27 </span> <span class="PreProc">break-if->=</span> +<span id="L28" class="LineNr">28 </span> <a href='../../405screen.mu.html#L422'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span> +<span id="L29" class="LineNr">29 </span> col <span class="SpecialChar"><-</span> increment +<span id="L30" class="LineNr">30 </span> <span class="PreProc">loop</span> +<span id="L31" class="LineNr">31 </span> <span class="Delimiter">}</span> +<span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr">33 </span> +<span id="L34" class="LineNr">34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L34'>draw-vertical-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, row2: int, col: int <span class="Delimiter">{</span> +<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L36" class="LineNr">36 </span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr">37 </span> compare row, row2 +<span id="L38" class="LineNr">38 </span> <span class="PreProc">break-if->=</span> +<span id="L39" class="LineNr">39 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <span class="Constant">0</span>, row, col +<span id="L40" class="LineNr">40 </span> <a href='../../405screen.mu.html#L422'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2502</span> +<span id="L41" class="LineNr">41 </span> row <span class="SpecialChar"><-</span> increment +<span id="L42" class="LineNr">42 </span> <span class="PreProc">loop</span> +<span id="L43" class="LineNr">43 </span> <span class="Delimiter">}</span> +<span id="L44" class="LineNr">44 </span><span class="Delimiter">}</span> +<span id="L45" class="LineNr">45 </span> +<span id="L46" class="LineNr">46 </span><span class="muComment"># erase parts of screen the slow way</span> +<span id="L47" class="LineNr">47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L47'>clear-rect</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L49" class="LineNr">49 </span> <span class="Delimiter">{</span> +<span id="L50" class="LineNr">50 </span> compare i, row2 +<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> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy col1 +<span id="L53" class="LineNr">53 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, i, j +<span id="L54" class="LineNr">54 </span> <span class="Delimiter">{</span> +<span id="L55" class="LineNr">55 </span> compare j, col2 +<span id="L56" class="LineNr">56 </span> <span class="PreProc">break-if-></span> +<span id="L57" class="LineNr">57 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L58" class="LineNr">58 </span> j <span class="SpecialChar"><-</span> increment +<span id="L59" class="LineNr">59 </span> <span class="PreProc">loop</span> +<span id="L60" class="LineNr">60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr">61 </span> i <span class="SpecialChar"><-</span> increment +<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="Delimiter">}</span> +<span id="L65" class="LineNr">65 </span> +<span id="L66" class="LineNr">66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L66'>clear-rect2</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, w: int, h: int <span class="Delimiter">{</span> +<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L68" class="LineNr">68 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L69" class="LineNr">69 </span> <span class="Delimiter">{</span> +<span id="L70" class="LineNr">70 </span> compare i, w +<span id="L71" class="LineNr">71 </span> <span class="PreProc">break-if->=</span> +<span id="L72" class="LineNr">72 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-row, col1 +<span id="L73" class="LineNr">73 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L74" class="LineNr">74 </span> <span class="Delimiter">{</span> +<span id="L75" class="LineNr">75 </span> compare j, h +<span id="L76" class="LineNr">76 </span> <span class="PreProc">break-if->=</span> +<span id="L77" class="LineNr">77 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L78" class="LineNr">78 </span> j <span class="SpecialChar"><-</span> increment +<span id="L79" class="LineNr">79 </span> <span class="PreProc">loop</span> +<span id="L80" class="LineNr">80 </span> <span class="Delimiter">}</span> +<span id="L81" class="LineNr">81 </span> i <span class="SpecialChar"><-</span> increment +<span id="L82" class="LineNr">82 </span> curr-row <span class="SpecialChar"><-</span> increment +<span id="L83" class="LineNr">83 </span> <span class="PreProc">loop</span> +<span id="L84" class="LineNr">84 </span> <span class="Delimiter">}</span> +<span id="L85" class="LineNr">85 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/data.mu.html b/html/apps/tile/data.mu.html new file mode 100644 index 00000000..4e0c9f7d --- /dev/null +++ b/html/apps/tile/data.mu.html @@ -0,0 +1,262 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/data.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/data.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/data.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='data.mu.html#L1'>program</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> defs: (handle <a href='data.mu.html#L13'>function</a>) +<span id="L3" class="LineNr"> 3 </span> sandboxes: (handle <a href='data.mu.html#L6'>sandbox</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">type</span> <a href='data.mu.html#L6'>sandbox</a> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> setup: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L8" class="LineNr"> 8 </span> data: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L9" class="LineNr"> 9 </span> next: (handle <a href='data.mu.html#L6'>sandbox</a>) +<span id="L10" class="LineNr"> 10 </span> prev: (handle <a href='data.mu.html#L6'>sandbox</a>) +<span id="L11" class="LineNr"> 11 </span><span class="Delimiter">}</span> +<span id="L12" class="LineNr"> 12 </span> +<span id="L13" class="LineNr"> 13 </span><span class="PreProc">type</span> <a href='data.mu.html#L13'>function</a> <span class="Delimiter">{</span> +<span id="L14" class="LineNr"> 14 </span> name: (handle array byte) +<span id="L15" class="LineNr"> 15 </span> args: (handle <a href='data.mu.html#L29'>word</a>) <span class="muComment"># in reverse order</span> +<span id="L16" class="LineNr"> 16 </span> body: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># some sort of indication of spatial location</span> +<span id="L18" class="LineNr"> 18 </span> next: (handle <a href='data.mu.html#L13'>function</a>) +<span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">type</span> <a href='data.mu.html#L21'>line</a> <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> name: (handle array byte) +<span id="L23" class="LineNr"> 23 </span> data: (handle <a href='data.mu.html#L29'>word</a>) +<span id="L24" class="LineNr"> 24 </span> <a href='data.mu.html#L56'>result</a>: (handle <a href='data.mu.html#L56'>result</a>) <span class="muComment"># might be cached</span> +<span id="L25" class="LineNr"> 25 </span> next: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L26" class="LineNr"> 26 </span> prev: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L27" class="LineNr"> 27 </span><span class="Delimiter">}</span> +<span id="L28" class="LineNr"> 28 </span> +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">type</span> <a href='data.mu.html#L29'>word</a> <span class="Delimiter">{</span> +<span id="L30" class="LineNr"> 30 </span> <span class="muComment"># at most one of these will be non-null</span> +<span id="L31" class="LineNr"> 31 </span> scalar-data: (handle gap-buffer) +<span id="L32" class="LineNr"> 32 </span> text-data: (handle array byte) +<span id="L33" class="LineNr"> 33 </span> box-data: (handle <a href='data.mu.html#L21'>line</a>) <span class="muComment"># recurse</span> +<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># other metadata attached to this word</span> +<span id="L35" class="LineNr"> 35 </span> display-subsidiary-stack?: boolean +<span id="L36" class="LineNr"> 36 </span> next: (handle <a href='data.mu.html#L29'>word</a>) +<span id="L37" class="LineNr"> 37 </span> prev: (handle <a href='data.mu.html#L29'>word</a>) +<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span> +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">type</span> <a href='data.mu.html#L40'>value</a> <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> scalar-data: int +<span id="L42" class="LineNr"> 42 </span> text-data: (handle array byte) +<span id="L43" class="LineNr"> 43 </span> box-data: (handle <a href='data.mu.html#L21'>line</a>) +<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">type</span> <a href='data.mu.html#L46'>table</a> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> data: (handle array <a href='data.mu.html#L51'>bind</a>) +<span id="L48" class="LineNr"> 48 </span> next: (handle <a href='data.mu.html#L46'>table</a>) +<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">type</span> <a href='data.mu.html#L51'>bind</a> <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> key: (handle array byte) +<span id="L53" class="LineNr"> 53 </span> <a href='data.mu.html#L40'>value</a>: (handle <a href='data.mu.html#L40'>value</a>) <span class="muComment"># I'd inline this but we sometimes want to return a specific value from a table</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='data.mu.html#L56'>result</a> <span class="Delimiter">{</span> +<span id="L57" class="LineNr"> 57 </span> data: value-stack +<span id="L58" class="LineNr"> 58 </span> <a href='../../114error.subx.html#L9'>error</a>: (handle array byte) <span class="muComment"># single error message for now</span> +<span id="L59" class="LineNr"> 59 </span><span class="Delimiter">}</span> +<span id="L60" class="LineNr"> 60 </span> +<span id="L61" class="LineNr"> 61 </span><span class="muComment"># if 'out' is non-null, save the first word of the program there</span> +<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L62'>initialize-program</a></span> _program: (addr <a href='data.mu.html#L1'>program</a>), out: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="Delimiter">{</span> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>program</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>program</a>) <span class="SpecialChar"><-</span> copy _program +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> defs/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>program</a>, defs +<span id="L65" class="LineNr"> 65 </span> <a href='data.mu.html#L97'>create-primitive-defs</a> defs +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L6'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>program</a>, sandboxes +<span id="L67" class="LineNr"> 67 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> sandbox-ah +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> <a href='data.mu.html#L6'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L6'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah +<span id="L69" class="LineNr"> 69 </span> <a href='data.mu.html#L73'>initialize-sandbox</a> <a href='data.mu.html#L6'>sandbox</a>, out +<span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> +<span id="L71" class="LineNr"> 71 </span> +<span id="L72" class="LineNr"> 72 </span><span class="muComment"># if 'out' is non-null, save the first word of the sandbox there</span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L73'>initialize-sandbox</a></span> _sandbox: (addr <a href='data.mu.html#L6'>sandbox</a>), out: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> <a href='data.mu.html#L6'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L6'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L6'>sandbox</a>, data +<span id="L76" class="LineNr"> 76 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> line-ah +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah +<span id="L78" class="LineNr"> 78 </span> <a href='data.mu.html#L83'>initialize-line</a> <a href='data.mu.html#L21'>line</a>, out +<span id="L79" class="LineNr"> 79 </span><span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> +<span id="L81" class="LineNr"> 81 </span><span class="muComment"># initialize line with a single empty word</span> +<span id="L82" class="LineNr"> 82 </span><span class="muComment"># if 'out' is non-null, save the word there as well</span> +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L83'>initialize-line</a></span> _line: (addr <a href='data.mu.html#L21'>line</a>), out: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="Delimiter">{</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> copy _line +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>line</a>, data +<span id="L86" class="LineNr"> 86 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> word-ah +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span> compare out, <span class="Constant">0</span> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> copy out +<span id="L91" class="LineNr"> 91 </span> copy-object word-ah, dest +<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> <a href='data.mu.html#L29'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah +<span id="L94" class="LineNr"> 94 </span> initialize-word <a href='data.mu.html#L29'>word</a> +<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='data.mu.html#L97'>create-primitive-defs</a></span> _self: (addr handle <a href='data.mu.html#L13'>function</a>) <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="muComment"># x 2* = x 2 *</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L100" class="LineNr">100 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> self +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *self +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> copy _f +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name +<span id="L104" class="LineNr">104 </span> <a href='data.mu.html#L182'>populate-text-with</a> name-ah, <span class="Constant">"2*"</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args +<span id="L106" class="LineNr">106 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah +<span id="L108" class="LineNr">108 </span> initialize-word-with args, <span class="Constant">"x"</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body +<span id="L110" class="LineNr">110 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah +<span id="L112" class="LineNr">112 </span> <a href='data.mu.html#L83'>initialize-line</a> body, <span class="Constant">0</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data +<span id="L114" class="LineNr">114 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L116" class="LineNr">116 </span> initialize-word-with curr-word, <span class="Constant">"x"</span> +<span id="L117" class="LineNr">117 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L118" class="LineNr">118 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L119" class="LineNr">119 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L120" class="LineNr">120 </span> initialize-word-with curr-word, <span class="Constant">"2"</span> +<span id="L121" class="LineNr">121 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L122" class="LineNr">122 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L123" class="LineNr">123 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L124" class="LineNr">124 </span> initialize-word-with curr-word, <span class="Constant">"*"</span> +<span id="L125" class="LineNr">125 </span> <span class="muComment"># x 1+ = x 1 +</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next +<span id="L127" class="LineNr">127 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> copy _f +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name +<span id="L131" class="LineNr">131 </span> <a href='data.mu.html#L182'>populate-text-with</a> name-ah, <span class="Constant">"1+"</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args +<span id="L133" class="LineNr">133 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah +<span id="L135" class="LineNr">135 </span> initialize-word-with args, <span class="Constant">"x"</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body +<span id="L137" class="LineNr">137 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah +<span id="L139" class="LineNr">139 </span> <a href='data.mu.html#L83'>initialize-line</a> body, <span class="Constant">0</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data +<span id="L141" class="LineNr">141 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L143" class="LineNr">143 </span> initialize-word-with curr-word, <span class="Constant">"x"</span> +<span id="L144" class="LineNr">144 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L145" class="LineNr">145 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L146" class="LineNr">146 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L147" class="LineNr">147 </span> initialize-word-with curr-word, <span class="Constant">"1"</span> +<span id="L148" class="LineNr">148 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L149" class="LineNr">149 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L150" class="LineNr">150 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L151" class="LineNr">151 </span> initialize-word-with curr-word, <span class="Constant">"+"</span> +<span id="L152" class="LineNr">152 </span> <span class="muComment"># x 2+ = x 1+ 1+</span> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next +<span id="L154" class="LineNr">154 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> f/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L13'>function</a>) <span class="SpecialChar"><-</span> copy _f +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name +<span id="L158" class="LineNr">158 </span> <a href='data.mu.html#L182'>populate-text-with</a> name-ah, <span class="Constant">"2+"</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args +<span id="L160" class="LineNr">160 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah +<span id="L162" class="LineNr">162 </span> initialize-word-with args, <span class="Constant">"x"</span> +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body +<span id="L164" class="LineNr">164 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah +<span id="L166" class="LineNr">166 </span> <a href='data.mu.html#L83'>initialize-line</a> body, <span class="Constant">0</span> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data +<span id="L168" class="LineNr">168 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L29'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L170" class="LineNr">170 </span> initialize-word-with curr-word, <span class="Constant">"x"</span> +<span id="L171" class="LineNr">171 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L172" class="LineNr">172 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L173" class="LineNr">173 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L174" class="LineNr">174 </span> initialize-word-with curr-word, <span class="Constant">"1+"</span> +<span id="L175" class="LineNr">175 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L176" class="LineNr">176 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-word-ah +<span id="L177" class="LineNr">177 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-word-ah +<span id="L178" class="LineNr">178 </span> initialize-word-with curr-word, <span class="Constant">"1+"</span> +<span id="L179" class="LineNr">179 </span> <span class="muComment"># TODO: populate prev pointers</span> +<span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> +<span id="L181" class="LineNr">181 </span> +<span id="L182" class="LineNr">182 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L182'>populate-text-with</a></span> _out: (addr handle array byte), _in: (addr array byte) <span class="Delimiter">{</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _in +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length in +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> out/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> copy _out +<span id="L186" class="LineNr">186 </span> populate out, n +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> _out-addr/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">edx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _out-addr +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L190" class="LineNr">190 </span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> compare i, n +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if->=</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr byte) <span class="SpecialChar"><-</span> index in, i +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *src +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="SpecialChar"><-</span> index out-addr, i +<span id="L196" class="LineNr">196 </span> copy-byte-to *dest, val +<span id="L197" class="LineNr">197 </span> i <span class="SpecialChar"><-</span> increment +<span id="L198" class="LineNr">198 </span> <span class="PreProc">loop</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/environment.mu.html b/html/apps/tile/environment.mu.html new file mode 100644 index 00000000..2b375d76 --- /dev/null +++ b/html/apps/tile/environment.mu.html @@ -0,0 +1,521 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/environment.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/environment.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/environment.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='environment.mu.html#L1'>environment</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) +<span id="L3" class="LineNr"> 3 </span> program: (handle program) +<span id="L4" class="LineNr"> 4 </span> cursor-word: (handle word) +<span id="L5" class="LineNr"> 5 </span> nrows: int +<span id="L6" class="LineNr"> 6 </span> ncols: int +<span id="L7" class="LineNr"> 7 </span> code-separator-col: int +<span id="L8" class="LineNr"> 8 </span><span class="Delimiter">}</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr"> 10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L10'>initialize-environment</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> program-ah/<span class="Constant">eax</span>: (addr handle program) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, program +<span id="L13" class="LineNr"> 13 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> program-ah +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> program/<span class="Constant">eax</span>: (addr program) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *program-ah +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ecx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, cursor-word +<span id="L16" class="LineNr"> 16 </span> initialize-program program, cursor-word-ah +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># initialize screen</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, nrows +<span id="L25" class="LineNr"> 25 </span> copy-to *dest, nrows +<span id="L26" class="LineNr"> 26 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, ncols +<span id="L27" class="LineNr"> 27 </span> copy-to *dest, ncols +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy ncols +<span id="L29" class="LineNr"> 29 </span> repl-col <span class="SpecialChar"><-</span> shift-right <span class="Constant">1</span> +<span id="L30" class="LineNr"> 30 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L31" class="LineNr"> 31 </span> copy-to *dest, repl-col +<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L34'>draw-screen</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *dest +<span id="L41" class="LineNr"> 41 </span> <a href='environment.mu.html#L400'>clear-canvas</a> env +<span id="L42" class="LineNr"> 42 </span> tmp <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># repl-margin-left</span> +<span id="L43" class="LineNr"> 43 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, tmp <span class="muComment"># input-row</span> +<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L46'>initialize-environment-with-fake-screen</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), nrows: int, ncols: int <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L49" class="LineNr"> 49 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L51" class="LineNr"> 51 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols +<span id="L52" class="LineNr"> 52 </span> <a href='environment.mu.html#L10'>initialize-environment</a> self +<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L55'>process</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span>$process:body: <span class="Delimiter">{</span> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L58" class="LineNr"> 58 </span> compare key, <span class="Constant">0x445b1b</span> <span class="muComment"># left-arrow</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">{</span> +<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> cursor-word-ah/<span class="Constant">edi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr word) <span class="SpecialChar"><-</span> copy _cursor-word +<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># if not at start, move left within current word</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> cursor-at-start? cursor-word +<span id="L66" class="LineNr"> 66 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">break-if-=</span> +<span id="L69" class="LineNr"> 69 </span> cursor-left cursor-word +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break</span> $process:body +<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span> <span class="muComment"># otherwise, move to end of prev word</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> compare prev-word, <span class="Constant">0</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if-=</span> +<span id="L78" class="LineNr"> 78 </span> copy-object prev-word-ah, cursor-word-ah +<span id="L79" class="LineNr"> 79 </span> cursor-to-end prev-word +<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break</span> $process:body +<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">}</span> +<span id="L83" class="LineNr"> 83 </span> compare key, <span class="Constant">0x435b1b</span> <span class="muComment"># right-arrow</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">break-if-!=</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr word) <span class="SpecialChar"><-</span> copy _cursor-word +<span id="L89" class="LineNr"> 89 </span> <span class="muComment"># if not at end, move right within current word</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> cursor-at-end? cursor-word +<span id="L91" class="LineNr"> 91 </span> compare at-end?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-=</span> +<span id="L94" class="LineNr"> 94 </span> cursor-right cursor-word +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break</span> $process:body +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> +<span id="L97" class="LineNr"> 97 </span> <span class="muComment"># otherwise, move to start of next word</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L10'>next-word</a>/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> compare <a href='../../127next-word.subx.html#L10'>next-word</a>, <span class="Constant">0</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">break-if-=</span> +<span id="L103" class="LineNr">103 </span> copy-object next-word-ah, cursor-word-ah +<span id="L104" class="LineNr">104 </span> cursor-to-start <a href='../../127next-word.subx.html#L10'>next-word</a> +<span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break</span> $process:body +<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> compare key, <span class="Constant">0x7f</span> <span class="muComment"># del (backspace on Macs)</span> +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">break-if-!=</span> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr word) <span class="SpecialChar"><-</span> copy _cursor-word +<span id="L114" class="LineNr">114 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> cursor-at-start? cursor-word +<span id="L116" class="LineNr">116 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</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> delete-before-cursor cursor-word +<span id="L120" class="LineNr">120 </span> <span class="PreProc">break</span> $process:body +<span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> +<span id="L122" class="LineNr">122 </span> <span class="muComment"># otherwise delete current word and move to end of prev word</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah +<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> compare prev-word, <span class="Constant">0</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">break-if-=</span> +<span id="L128" class="LineNr">128 </span> copy-object prev-word-ah, cursor-word-ah +<span id="L129" class="LineNr">129 </span> cursor-to-end prev-word +<span id="L130" class="LineNr">130 </span> delete-next prev-word +<span id="L131" class="LineNr">131 </span> <span class="Delimiter">}</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">break</span> $process:body +<span id="L133" class="LineNr">133 </span> <span class="Delimiter">}</span> +<span id="L134" class="LineNr">134 </span> compare key, <span class="Constant">0x20</span> <span class="muComment"># space</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> <span class="muComment"># insert new word</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L139" class="LineNr">139 </span> append-word cursor-word-ah +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">ecx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L142" class="LineNr">142 </span> copy-object next-word-ah, cursor-word-ah +<span id="L143" class="LineNr">143 </span> <span class="PreProc">break</span> $process:body +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> compare key, <span class="Constant">0xa</span> <span class="muComment"># enter</span> +<span id="L146" class="LineNr">146 </span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if-!=</span> +<span id="L148" class="LineNr">148 </span> <span class="muComment"># toggle display of subsidiary stack</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> display-subsidiary-stack?/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, display-subsidiary-stack? +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L153" class="LineNr">153 </span> tmp <span class="SpecialChar"><-</span> subtract *display-subsidiary-stack? +<span id="L154" class="LineNr">154 </span> copy-to *display-subsidiary-stack?, tmp +<span id="L155" class="LineNr">155 </span> <span class="PreProc">break</span> $process:body +<span id="L156" class="LineNr">156 </span> <span class="Delimiter">}</span> +<span id="L157" class="LineNr">157 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy key +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L418'>real-grapheme?</a> key +<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> +<span id="L161" class="LineNr">161 </span> compare print?, <span class="Constant">0</span> <span class="muComment"># false</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> cursor-word-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-word +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L165" class="LineNr">165 </span> add-grapheme-to-word cursor-word, g +<span id="L166" class="LineNr">166 </span> <span class="PreProc">break</span> $process:body +<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> +<span id="L168" class="LineNr">168 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L172'>evaluate-environment</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>), stack: (addr value-stack) <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env +<span id="L174" class="LineNr">174 </span> <span class="muComment"># program</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> program-ah/<span class="Constant">eax</span>: (addr handle program) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, program +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> _program/<span class="Constant">eax</span>: (addr program) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *program-ah +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> program/<span class="Constant">esi</span>: (addr program) <span class="SpecialChar"><-</span> copy _program +<span id="L178" class="LineNr">178 </span> <span class="muComment"># defs</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> defs/<span class="Constant">edx</span>: (addr handle function) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> program, defs +<span id="L180" class="LineNr">180 </span> <span class="muComment"># line</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">esi</span>: (addr handle sandbox) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> program, sandboxes +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> sandbox/<span class="Constant">eax</span>: (addr sandbox) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle line) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> sandbox, data +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> _line/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> line/<span class="Constant">esi</span>: (addr line) <span class="SpecialChar"><-</span> copy _line +<span id="L186" class="LineNr">186 </span> evaluate defs, <span class="Constant">0</span>, line, <span class="Constant">0</span>, stack +<span id="L187" class="LineNr">187 </span><span class="Delimiter">}</span> +<span id="L188" class="LineNr">188 </span> +<span id="L189" class="LineNr">189 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L189'>render</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env +<span id="L191" class="LineNr">191 </span> <a href='environment.mu.html#L400'>clear-canvas</a> env +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> _repl-col/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *_repl-col +<span id="L197" class="LineNr">197 </span> repl-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># repl-margin-left</span> +<span id="L198" class="LineNr">198 </span> <span class="muComment"># cursor-word</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, cursor-word +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ebx</span>: (addr word) <span class="SpecialChar"><-</span> copy _cursor-word +<span id="L202" class="LineNr">202 </span> <span class="muComment"># program</span> +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> program-ah/<span class="Constant">eax</span>: (addr handle program) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, program +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> _program/<span class="Constant">eax</span>: (addr program) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *program-ah +<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> program/<span class="Constant">esi</span>: (addr program) <span class="SpecialChar"><-</span> copy _program +<span id="L206" class="LineNr">206 </span> <span class="muComment"># defs</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> defs/<span class="Constant">edx</span>: (addr handle function) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> program, defs +<span id="L208" class="LineNr">208 </span> <span class="muComment"># line</span> +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">esi</span>: (addr handle sandbox) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> program, sandboxes +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> sandbox/<span class="Constant">eax</span>: (addr sandbox) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle line) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> sandbox, data +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> _line/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> line/<span class="Constant">esi</span>: (addr line) <span class="SpecialChar"><-</span> copy _line +<span id="L214" class="LineNr">214 </span> <span class="muComment"># cursor-col</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> cursor-col: int +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> cursor-col-a/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> address cursor-col +<span id="L217" class="LineNr">217 </span> <span class="muComment">#</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='environment.mu.html#L222'>render-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, defs, <span class="Constant">0</span>, line, <span class="Constant">3</span>, repl-col, cursor-word, cursor-col-a <span class="muComment"># input-row=3</span> +<span id="L219" class="LineNr">219 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, cursor-col <span class="muComment"># input-row</span> +<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L222'>render-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), defs: (addr handle function), bindings: (addr table), _line: (addr line), top-row: int, left-col: int, cursor-word: (addr word), cursor-col-a: (addr int)<span class="PreProc"> -> </span>right-col/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># curr-word</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> line/<span class="Constant">esi</span>: (addr line) <span class="SpecialChar"><-</span> copy _line +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> line, data +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *first-word-ah +<span id="L227" class="LineNr">227 </span> <span class="muComment"># loop-carried dependency</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> curr-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy left-col +<span id="L229" class="LineNr">229 </span> <span class="muComment">#</span> +<span id="L230" class="LineNr">230 </span> <span class="Delimiter">{</span> +<span id="L231" class="LineNr">231 </span> compare curr-word, <span class="Constant">0</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">break-if-=</span> +<span id="L233" class="LineNr">233 </span> <span class="muComment"># if necessary, first render columns for subsidiary stack</span> +<span id="L234" class="LineNr">234 </span> $render-line:subsidiary: <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> display-subsidiary-stack?/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, display-subsidiary-stack? +<span id="L237" class="LineNr">237 </span> compare *display-subsidiary-stack?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary +<span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> +<span id="L240" class="LineNr">240 </span> <span class="muComment"># does function exist?</span> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> callee/<span class="Constant">edi</span>: (addr function) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> curr-stream-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> curr-stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream-storage +<span id="L245" class="LineNr">245 </span> emit-word curr-word, curr-stream +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> callee-h: (handle function) +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">eax</span>: (addr handle function) <span class="SpecialChar"><-</span> address callee-h +<span id="L248" class="LineNr">248 </span> find-function defs, curr-stream, callee-ah +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> _callee/<span class="Constant">eax</span>: (addr function) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-ah +<span id="L250" class="LineNr">250 </span> callee <span class="SpecialChar"><-</span> copy _callee +<span id="L251" class="LineNr">251 </span> compare callee, <span class="Constant">0</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary +<span id="L253" class="LineNr">253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, curr-col +<span id="L255" class="LineNr">255 </span> print-word <a href='../../405screen.mu.html#L9'>screen</a>, curr-word +<span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> word-length curr-word +<span id="L258" class="LineNr">258 </span> curr-col <span class="SpecialChar"><-</span> add word-len +<span id="L259" class="LineNr">259 </span> curr-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L260" class="LineNr">260 </span> add-to top-row, <span class="Constant">1</span> +<span id="L261" class="LineNr">261 </span> <span class="Delimiter">}</span> +<span id="L262" class="LineNr">262 </span> <span class="muComment"># obtain stack at call site</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> stack-storage: value-stack +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> stack/<span class="Constant">edx</span>: (addr value-stack) <span class="SpecialChar"><-</span> address stack-storage +<span id="L265" class="LineNr">265 </span> initialize-value-stack stack, <span class="Constant">0x10</span> +<span id="L266" class="LineNr">266 </span> <span class="Delimiter">{</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, prev +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah +<span id="L269" class="LineNr">269 </span> compare prev-word, <span class="Constant">0</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">break-if-=</span> +<span id="L271" class="LineNr">271 </span> evaluate defs, bindings, line, prev-word, stack +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> <span class="muComment"># construct new bindings</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> callee-bindings-storage: table +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> callee-bindings/<span class="Constant">esi</span>: (addr table) <span class="SpecialChar"><-</span> address callee-bindings-storage +<span id="L276" class="LineNr">276 </span> initialize-table callee-bindings, <span class="Constant">0x10</span> +<span id="L277" class="LineNr">277 </span> bind-args callee, stack, callee-bindings +<span id="L278" class="LineNr">278 </span> <span class="muComment"># obtain body</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> callee-body-ah/<span class="Constant">eax</span>: (addr handle line) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> callee, body +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> callee-body/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-body-ah +<span id="L281" class="LineNr">281 </span> # - render subsidiary stack +<span id="L282" class="LineNr">282 </span> curr-col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L222'>render-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, defs, callee-bindings, callee-body, top-row, curr-col, cursor-word, cursor-col-a +<span id="L283" class="LineNr">283 </span> <span class="muComment">#</span> +<span id="L284" class="LineNr">284 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, curr-col +<span id="L285" class="LineNr">285 </span> <a href='../../405screen.mu.html#L422'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x21d7</span> <span class="muComment"># ⇗</span> +<span id="L286" class="LineNr">286 </span> <span class="muComment">#</span> +<span id="L287" class="LineNr">287 </span> curr-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L288" class="LineNr">288 </span> subtract-from top-row, <span class="Constant">1</span> +<span id="L289" class="LineNr">289 </span> <span class="Delimiter">}</span> +<span id="L290" class="LineNr">290 </span> <span class="muComment"># now render main column</span> +<span id="L291" class="LineNr">291 </span> curr-col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L308'>render-column</a> <a href='../../405screen.mu.html#L9'>screen</a>, defs, bindings, line, curr-word, top-row, curr-col, cursor-word, cursor-col-a +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L293" class="LineNr">293 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L294" class="LineNr">294 </span> <span class="PreProc">loop</span> +<span id="L295" class="LineNr">295 </span> <span class="Delimiter">}</span> +<span id="L296" class="LineNr">296 </span> right-col <span class="SpecialChar"><-</span> copy curr-col +<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="muComment"># Render:</span> +<span id="L300" class="LineNr">300 </span><span class="muComment"># - starting at top-row, left-col: final-word</span> +<span id="L301" class="LineNr">301 </span><span class="muComment"># - starting somewhere below at left-col: the stack result from interpreting first-world to final-word (inclusive)</span> +<span id="L302" class="LineNr">302 </span><span class="muComment"># unless final-word is truly the final word, in which case it might be incomplete</span> +<span id="L303" class="LineNr">303 </span><span class="muComment">#</span> +<span id="L304" class="LineNr">304 </span><span class="muComment"># Outputs:</span> +<span id="L305" class="LineNr">305 </span># - Return the farthest column written. +<span id="L306" class="LineNr">306 </span># - If final-word is same as cursor-word, do some additional computation to set +<span id="L307" class="LineNr">307 </span><span class="muComment"># cursor-col-a.</span> +<span id="L308" class="LineNr">308 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L308'>render-column</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), defs: (addr handle function), bindings: (addr table), scratch: (addr line), final-word: (addr word), top-row: int, left-col: int, cursor-word: (addr word), cursor-col-a: (addr int)<span class="PreProc"> -> </span>right-col/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> max-width/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L310" class="LineNr">310 </span> <span class="Delimiter">{</span> +<span id="L311" class="LineNr">311 </span> <span class="muComment"># indent stack</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> indented-col/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy left-col +<span id="L313" class="LineNr">313 </span> indented-col <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># margin-right - 2 for padding spaces</span> +<span id="L314" class="LineNr">314 </span> <span class="muComment"># compute stack</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> stack: value-stack +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> stack-addr/<span class="Constant">edi</span>: (addr value-stack) <span class="SpecialChar"><-</span> address stack +<span id="L317" class="LineNr">317 </span> initialize-value-stack stack-addr, <span class="Constant">0x10</span> <span class="muComment"># max-words</span> +<span id="L318" class="LineNr">318 </span> evaluate defs, bindings, scratch, final-word, stack-addr +<span id="L319" class="LineNr">319 </span> <span class="muComment"># render stack</span> +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy top-row +<span id="L321" class="LineNr">321 </span> curr-row <span class="SpecialChar"><-</span> add <span class="Constant">3</span> <span class="muComment"># stack-margin-top</span> +<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> _max-width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> value-stack-max-width stack-addr +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> max-width/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy _max-width +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> value-stack-length stack-addr +<span id="L325" class="LineNr">325 </span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> compare i, <span class="Constant">0</span> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">break-if-<=</span> +<span id="L328" class="LineNr">328 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-row, indented-col +<span id="L329" class="LineNr">329 </span> <span class="Delimiter">{</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack stack-addr +<span id="L331" class="LineNr">331 </span> <a href='environment.mu.html#L372'>render-integer</a> <a href='../../405screen.mu.html#L9'>screen</a>, val, max-width +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> <a href='../../307size.subx.html#L5'>size</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L287'>decimal-size</a> val +<span id="L333" class="LineNr">333 </span> compare <a href='../../307size.subx.html#L5'>size</a>, max-width +<span id="L334" class="LineNr">334 </span> <span class="PreProc">break-if-<=</span> +<span id="L335" class="LineNr">335 </span> max-width <span class="SpecialChar"><-</span> copy <a href='../../307size.subx.html#L5'>size</a> +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> curr-row <span class="SpecialChar"><-</span> increment +<span id="L338" class="LineNr">338 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L339" class="LineNr">339 </span> <span class="PreProc">loop</span> +<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> +<span id="L342" class="LineNr">342 </span> +<span id="L343" class="LineNr">343 </span> <span class="muComment"># render word, initialize result</span> +<span id="L344" class="LineNr">344 </span> <a href='../../405screen.mu.html#L496'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L345" class="LineNr">345 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col +<span id="L346" class="LineNr">346 </span> print-word <a href='../../405screen.mu.html#L9'>screen</a>, final-word +<span id="L347" class="LineNr">347 </span> <span class="Delimiter">{</span> +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> <a href='../../307size.subx.html#L5'>size</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> word-length final-word +<span id="L349" class="LineNr">349 </span> compare <a href='../../307size.subx.html#L5'>size</a>, max-width +<span id="L350" class="LineNr">350 </span> <span class="PreProc">break-if-<=</span> +<span id="L351" class="LineNr">351 </span> max-width <span class="SpecialChar"><-</span> copy <a href='../../307size.subx.html#L5'>size</a> +<span id="L352" class="LineNr">352 </span> <span class="Delimiter">}</span> +<span id="L353" class="LineNr">353 </span> +<span id="L354" class="LineNr">354 </span> <span class="muComment"># update cursor</span> +<span id="L355" class="LineNr">355 </span> <span class="Delimiter">{</span> +<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> copy final-word +<span id="L357" class="LineNr">357 </span> compare f, cursor-word +<span id="L358" class="LineNr">358 </span> <span class="PreProc">break-if-!=</span> +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> cursor-index/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> cursor-index cursor-word +<span id="L360" class="LineNr">360 </span> cursor-index <span class="SpecialChar"><-</span> add left-col +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> copy cursor-col-a +<span id="L362" class="LineNr">362 </span> copy-to *dest, cursor-index +<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="muComment"># post-process right-col</span> +<span id="L366" class="LineNr">366 </span> right-col <span class="SpecialChar"><-</span> copy max-width +<span id="L367" class="LineNr">367 </span> right-col <span class="SpecialChar"><-</span> add left-col +<span id="L368" class="LineNr">368 </span> right-col <span class="SpecialChar"><-</span> add <span class="Constant">3</span> <span class="muComment"># margin-right</span> +<span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> +<span id="L370" class="LineNr">370 </span> +<span id="L371" class="LineNr">371 </span><span class="muComment"># synaesthesia</span> +<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L372'>render-integer</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), val: int, max-width: int <span class="Delimiter">{</span> +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='environment.mu.html#L396'>hash-color</a> val +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> fg/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">7</span> +<span id="L375" class="LineNr">375 </span> <span class="Delimiter">{</span> +<span id="L376" class="LineNr">376 </span> compare bg, <span class="Constant">2</span> +<span id="L377" class="LineNr">377 </span> <span class="PreProc">break-if-!=</span> +<span id="L378" class="LineNr">378 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L379" class="LineNr">379 </span> <span class="Delimiter">}</span> +<span id="L380" class="LineNr">380 </span> <span class="Delimiter">{</span> +<span id="L381" class="LineNr">381 </span> compare bg, <span class="Constant">3</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">break-if-!=</span> +<span id="L383" class="LineNr">383 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L384" class="LineNr">384 </span> <span class="Delimiter">}</span> +<span id="L385" class="LineNr">385 </span> <span class="Delimiter">{</span> +<span id="L386" class="LineNr">386 </span> compare bg, <span class="Constant">6</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">break-if-!=</span> +<span id="L388" class="LineNr">388 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L389" class="LineNr">389 </span> <span class="Delimiter">}</span> +<span id="L390" class="LineNr">390 </span> <a href='../../405screen.mu.html#L518'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, fg, bg +<span id="L391" class="LineNr">391 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L392" class="LineNr">392 </span> <a href='../../407print-int32-decimal-right-justified.mu.html#L2'>print-int32-decimal-right-justified</a> <a href='../../405screen.mu.html#L9'>screen</a>, val, max-width +<span id="L393" class="LineNr">393 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L394" class="LineNr">394 </span><span class="Delimiter">}</span> +<span id="L395" class="LineNr">395 </span> +<span id="L396" class="LineNr">396 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L396'>hash-color</a></span> val: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L397" class="LineNr">397 </span> result <span class="SpecialChar"><-</span> <a href='../../406try-divide.mu.html#L86'>try-modulo</a> val, <span class="Constant">7</span> <span class="muComment"># assumes that 7 is always the background color</span> +<span id="L398" class="LineNr">398 </span><span class="Delimiter">}</span> +<span id="L399" class="LineNr">399 </span> +<span id="L400" class="LineNr">400 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L400'>clear-canvas</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen +<span id="L405" class="LineNr">405 </span> <a href='../../405screen.mu.html#L80'>clear-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, nrows +<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> _repl-col/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *_repl-col +<span id="L409" class="LineNr">409 </span> draw-vertical-line <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, *nrows, repl-col +<span id="L410" class="LineNr">410 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">2</span> +<span id="L411" class="LineNr">411 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"x 2* = x 2 *"</span> +<span id="L412" class="LineNr">412 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">2</span> +<span id="L413" class="LineNr">413 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"x 1+ = x 1 +"</span> +<span id="L414" class="LineNr">414 </span> <a href='../../405screen.mu.html#L116'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">2</span> +<span id="L415" class="LineNr">415 </span> <a href='../../405screen.mu.html#L179'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"x 2+ = x 1+ 1+"</span> +<span id="L416" class="LineNr">416 </span><span class="Delimiter">}</span> +<span id="L417" class="LineNr">417 </span> +<span id="L418" class="LineNr">418 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L418'>real-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L419" class="LineNr">419 </span>$real-grapheme?:body: <span class="Delimiter">{</span> +<span id="L420" class="LineNr">420 </span> <span class="muComment"># if g == newline return true</span> +<span id="L421" class="LineNr">421 </span> compare g, <span class="Constant">0xa</span> +<span id="L422" class="LineNr">422 </span> <span class="Delimiter">{</span> +<span id="L423" class="LineNr">423 </span> <span class="PreProc">break-if-!=</span> +<span id="L424" class="LineNr">424 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L425" class="LineNr">425 </span> <span class="PreProc">break</span> $real-grapheme?:body +<span id="L426" class="LineNr">426 </span> <span class="Delimiter">}</span> +<span id="L427" class="LineNr">427 </span> <span class="muComment"># if g == tab return true</span> +<span id="L428" class="LineNr">428 </span> compare g, <span class="Constant">9</span> +<span id="L429" class="LineNr">429 </span> <span class="Delimiter">{</span> +<span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-!=</span> +<span id="L431" class="LineNr">431 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L432" class="LineNr">432 </span> <span class="PreProc">break</span> $real-grapheme?:body +<span id="L433" class="LineNr">433 </span> <span class="Delimiter">}</span> +<span id="L434" class="LineNr">434 </span> <span class="muComment"># if g < 32 return false</span> +<span id="L435" class="LineNr">435 </span> compare g, <span class="Constant">0x20</span> +<span id="L436" class="LineNr">436 </span> <span class="Delimiter">{</span> +<span id="L437" class="LineNr">437 </span> <span class="PreProc">break-if->=</span> +<span id="L438" class="LineNr">438 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L439" class="LineNr">439 </span> <span class="PreProc">break</span> $real-grapheme?:body +<span id="L440" class="LineNr">440 </span> <span class="Delimiter">}</span> +<span id="L441" class="LineNr">441 </span> <span class="muComment"># if g <= 255 return true</span> +<span id="L442" class="LineNr">442 </span> compare g, <span class="Constant">0xff</span> +<span id="L443" class="LineNr">443 </span> <span class="Delimiter">{</span> +<span id="L444" class="LineNr">444 </span> <span class="PreProc">break-if-></span> +<span id="L445" class="LineNr">445 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L446" class="LineNr">446 </span> <span class="PreProc">break</span> $real-grapheme?:body +<span id="L447" class="LineNr">447 </span> <span class="Delimiter">}</span> +<span id="L448" class="LineNr">448 </span> <span class="muComment"># if (g&0xff == Esc) it's an escape sequence</span> +<span id="L449" class="LineNr">449 </span> and-with g, <span class="Constant">0xff</span> +<span id="L450" class="LineNr">450 </span> compare g, <span class="Constant">0x1b</span> <span class="muComment"># Esc</span> +<span id="L451" class="LineNr">451 </span> <span class="Delimiter">{</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">break-if-!=</span> +<span id="L453" class="LineNr">453 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L454" class="LineNr">454 </span> <span class="PreProc">break</span> $real-grapheme?:body +<span id="L455" class="LineNr">455 </span> <span class="Delimiter">}</span> +<span id="L456" class="LineNr">456 </span> <span class="muComment"># otherwise return true</span> +<span id="L457" class="LineNr">457 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L458" class="LineNr">458 </span><span class="Delimiter">}</span> +<span id="L459" class="LineNr">459 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/gap-buffer.mu.html b/html/apps/tile/gap-buffer.mu.html new file mode 100644 index 00000000..02c71b8f --- /dev/null +++ b/html/apps/tile/gap-buffer.mu.html @@ -0,0 +1,353 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/gap-buffer.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/gap-buffer.mu'>https://github.com/akkartik/mu/blob/master/apps/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: grapheme-stack +<span id="L3" class="LineNr"> 3 </span> right: grapheme-stack +<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L9" class="LineNr"> 9 </span> initialize-grapheme-stack left, <span class="Constant">0x10</span> <span class="muComment"># max-word-size</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L11" class="LineNr"> 11 </span> initialize-grapheme-stack right, <span class="Constant">0x10</span> <span class="muComment"># max-word-size</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="muComment"># just for tests</span> +<span id="L15" class="LineNr"> 15 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L15'>initialize-gap-buffer-with</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L16" class="LineNr"> 16 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> self +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># max-word-size</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage +<span id="L19" class="LineNr"> 19 </span> <a href='../../108write.subx.html#L24'>write</a> stream, s +<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L22" class="LineNr"> 22 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if-!=</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> stream +<span id="L25" class="LineNr"> 25 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> self, g +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">loop</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">}</span> +<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='gap-buffer.mu.html#L30'>gap-buffer-to-string</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), out: (addr handle array byte) <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s-storage +<span id="L33" class="LineNr"> 33 </span> <a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a> self, s +<span id="L34" class="LineNr"> 34 </span> <a href='../../310copy-bytes.subx.html#L59'>stream-to-string</a> s, out +<span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L39" class="LineNr"> 39 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> out +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L41" class="LineNr"> 41 </span> <a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a> left, out +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</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 grapheme-stack), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> copy _self +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> +<span id="L55" class="LineNr"> 55 </span> compare i, *top-addr +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if->=</span> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L58" class="LineNr"> 58 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g +<span id="L59" class="LineNr"> 59 </span> i <span class="SpecialChar"><-</span> increment +<span id="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 grapheme-stack), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> copy _self +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L72" class="LineNr"> 72 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> compare i, <span class="Constant">0</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-<</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L77" class="LineNr"> 77 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g +<span id="L78" class="LineNr"> 78 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">loop</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> +<span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span> +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L83'>render-gap-buffer</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left +<span id="L86" class="LineNr"> 86 </span> render-stack-from-bottom left, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right +<span id="L88" class="LineNr"> 88 </span> render-stack-from-top 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>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> left-length/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> right/<span class="Constant">esi</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right +<span id="L97" class="LineNr"> 97 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L98" class="LineNr"> 98 </span> result <span class="SpecialChar"><-</span> copy *tmp +<span id="L99" class="LineNr"> 99 </span> result <span class="SpecialChar"><-</span> add left-length +<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L102'>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">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L105" class="LineNr">105 </span> push-grapheme-stack left, g +<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L108'>gap-to-start</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-left</a> self +<span id="L111" class="LineNr">111 </span> compare curr, <span class="Constant">-1</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">loop-if-!=</span> +<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> +<span id="L114" class="LineNr">114 </span><span class="Delimiter">}</span> +<span id="L115" class="LineNr">115 </span> +<span id="L116" class="LineNr">116 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L116'>gap-to-end</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L136'>gap-right</a> self +<span id="L119" class="LineNr">119 </span> compare curr, <span class="Constant">-1</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">loop-if-!=</span> +<span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> +<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> +<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L124'>gap-at-start?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L127" class="LineNr">127 </span> result <span class="SpecialChar"><-</span> grapheme-stack-empty? left +<span id="L128" class="LineNr">128 </span><span class="Delimiter">}</span> +<span id="L129" class="LineNr">129 </span> +<span id="L130" class="LineNr">130 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L130'>gap-at-end?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L133" class="LineNr">133 </span> result <span class="SpecialChar"><-</span> grapheme-stack-empty? right +<span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L136'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L137" class="LineNr">137 </span>$gap-right:body: <span class="Delimiter">{</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L142" class="LineNr">142 </span> result <span class="SpecialChar"><-</span> pop-grapheme-stack right +<span id="L143" class="LineNr">143 </span> compare result, <span class="Constant">-1</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">break-if-=</span> $gap-right:body +<span id="L145" class="LineNr">145 </span> g <span class="SpecialChar"><-</span> copy result +<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="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L149" class="LineNr">149 </span> push-grapheme-stack left, g +<span id="L150" class="LineNr">150 </span> <span class="Delimiter">}</span> +<span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> +<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L154'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L155" class="LineNr">155 </span>$gap-left:body: <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L158" class="LineNr">158 </span> <span class="Delimiter">{</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L160" class="LineNr">160 </span> result <span class="SpecialChar"><-</span> pop-grapheme-stack left +<span id="L161" class="LineNr">161 </span> compare result, <span class="Constant">-1</span> +<span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-=</span> $gap-left:body +<span id="L163" class="LineNr">163 </span> g <span class="SpecialChar"><-</span> copy result +<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> +<span id="L165" class="LineNr">165 </span> <span class="Delimiter">{</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L167" class="LineNr">167 </span> push-grapheme-stack right, g +<span id="L168" class="LineNr">168 </span> <span class="Delimiter">}</span> +<span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L172'>gap-index</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L176" class="LineNr">176 </span> result <span class="SpecialChar"><-</span> copy *top-addr +<span id="L177" class="LineNr">177 </span><span class="Delimiter">}</span> +<span id="L178" class="LineNr">178 </span> +<span id="L179" class="LineNr">179 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L179'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span>$first-grapheme-in-gap-buffer:body: <span class="Delimiter">{</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L182" class="LineNr">182 </span> <span class="muComment"># try to read from left</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L185" class="LineNr">185 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">break-if-<=</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, data +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <span class="Constant">0</span> +<span id="L191" class="LineNr">191 </span> result <span class="SpecialChar"><-</span> copy *result-addr +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break</span> $first-grapheme-in-gap-buffer:body +<span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> +<span id="L194" class="LineNr">194 </span> <span class="muComment"># try to read from right</span> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L196" class="LineNr">196 </span> top-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L197" class="LineNr">197 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-<=</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, data +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L203" class="LineNr">203 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L205" class="LineNr">205 </span> result <span class="SpecialChar"><-</span> copy *result-addr +<span id="L206" class="LineNr">206 </span> <span class="PreProc">break</span> $first-grapheme-in-gap-buffer:body +<span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> +<span id="L208" class="LineNr">208 </span> <span class="muComment"># give up</span> +<span id="L209" class="LineNr">209 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L210" class="LineNr">210 </span><span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span><span class="Delimiter">}</span> +<span id="L212" class="LineNr">212 </span> +<span id="L213" class="LineNr">213 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L213'>delete-before-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> pop-grapheme-stack left +<span id="L217" class="LineNr">217 </span><span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span> +<span id="L219" class="LineNr">219 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L219'>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>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span>$gap-buffer-equal?:body: <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L222" class="LineNr">222 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># so don't rely on length</span> +<span id="L224" class="LineNr">224 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># max-word-size</span> +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> expected-stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage +<span id="L227" class="LineNr">227 </span> <a href='../../108write.subx.html#L24'>write</a> expected-stream, s +<span id="L228" class="LineNr">228 </span> <span class="muComment"># compare left</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L230" class="LineNr">230 </span> result <span class="SpecialChar"><-</span> prefix-match? left, expected-stream +<span id="L231" class="LineNr">231 </span> compare result, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">break-if-=</span> $gap-buffer-equal?:body +<span id="L233" class="LineNr">233 </span> <span class="muComment"># compare right</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr grapheme-stack) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L235" class="LineNr">235 </span> result <span class="SpecialChar"><-</span> suffix-match? right, expected-stream +<span id="L236" class="LineNr">236 </span> compare result, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">break-if-=</span> $gap-buffer-equal?:body +<span id="L238" class="LineNr">238 </span> <span class="muComment"># ensure there's nothing left over</span> +<span id="L239" class="LineNr">239 </span> result <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> expected-stream +<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 id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L243'>test-gap-buffer-equal-from-end?</a></span> <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L246" class="LineNr">246 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g +<span id="L247" class="LineNr">247 </span> <span class="muComment">#</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L249" class="LineNr">249 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L250" class="LineNr">250 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L251" class="LineNr">251 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L252" class="LineNr">252 </span> <span class="muComment"># gap is at end (right is empty)</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L219'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result +<span id="L255" class="LineNr">255 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-end?"</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="muTest"><a href='gap-buffer.mu.html#L258'>test-gap-buffer-equal-from-middle?</a></span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L261" class="LineNr">261 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g +<span id="L262" class="LineNr">262 </span> <span class="muComment">#</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L264" class="LineNr">264 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L265" class="LineNr">265 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L266" class="LineNr">266 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-left</a> g +<span id="L268" class="LineNr">268 </span> <span class="muComment"># gap is in the middle</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L219'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result +<span id="L271" class="LineNr">271 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-middle?"</span> +<span id="L272" class="LineNr">272 </span><span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> +<span id="L274" class="LineNr">274 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L274'>test-gap-buffer-equal-from-start?</a></span> <span class="Delimiter">{</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L277" class="LineNr">277 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g +<span id="L278" class="LineNr">278 </span> <span class="muComment">#</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L280" class="LineNr">280 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L281" class="LineNr">281 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L282" class="LineNr">282 </span> <a href='gap-buffer.mu.html#L102'>add-grapheme-at-gap</a> g, c +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-left</a> g +<span id="L284" class="LineNr">284 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-left</a> g +<span id="L285" class="LineNr">285 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-left</a> g +<span id="L286" class="LineNr">286 </span> <span class="muComment"># gap is at the start</span> +<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L219'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result +<span id="L289" class="LineNr">289 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-start?"</span> +<span id="L290" class="LineNr">290 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/grapheme-stack.mu.html b/html/apps/tile/grapheme-stack.mu.html new file mode 100644 index 00000000..32f7aa0b --- /dev/null +++ b/html/apps/tile/grapheme-stack.mu.html @@ -0,0 +1,221 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/grapheme-stack.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/grapheme-stack.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> data: (handle array grapheme) +<span id="L3" class="LineNr"> 3 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L9" class="LineNr"> 9 </span> populate d, n +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L11" class="LineNr"> 11 </span> copy-to *top, <span class="Constant">0</span> +<span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> +<span id="L13" class="LineNr"> 13 </span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L14'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span>$grapheme-stack-empty?:body: <span class="Delimiter">{</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L18" class="LineNr"> 18 </span> compare *top, <span class="Constant">0</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">break-if-=</span> +<span id="L21" class="LineNr"> 21 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># false</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break</span> $grapheme-stack-empty?:body +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> +<span id="L24" class="LineNr"> 24 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> +<span id="L26" class="LineNr"> 26 </span><span class="Delimiter">}</span> +<span id="L27" class="LineNr"> 27 </span> +<span id="L28" class="LineNr"> 28 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L28'>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="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy _val +<span id="L36" class="LineNr"> 36 </span> copy-to *dest-addr, val +<span id="L37" class="LineNr"> 37 </span> add-to *top-addr, <span class="Constant">1</span> +<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span> +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L40'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>val/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span>$pop-grapheme-stack:body: <span class="Delimiter">{</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">break-if-></span> +<span id="L47" class="LineNr"> 47 </span> val <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $pop-grapheme-stack:body +<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> +<span id="L50" class="LineNr"> 50 </span> subtract-from *top-addr, <span class="Constant">1</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L55" class="LineNr"> 55 </span> val <span class="SpecialChar"><-</span> copy *result-addr +<span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> +<span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> +<span id="L58" class="LineNr"> 58 </span> +<span id="L59" class="LineNr"> 59 </span><span class="muComment"># dump stack to screen from bottom to top</span> +<span id="L60" class="LineNr"> 60 </span><span class="muComment"># don't move the cursor or anything</span> +<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L61'>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="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> compare i, *top-addr +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if->=</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L72" class="LineNr"> 72 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g +<span id="L73" class="LineNr"> 73 </span> i <span class="SpecialChar"><-</span> increment +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">loop</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">}</span> +<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> +<span id="L78" class="LineNr"> 78 </span><span class="muComment"># dump stack to screen from top to bottom</span> +<span id="L79" class="LineNr"> 79 </span><span class="muComment"># don't move the cursor or anything</span> +<span id="L80" class="LineNr"> 80 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L80'>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="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L87" class="LineNr"> 87 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> compare i, <span class="Constant">0</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-<</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L92" class="LineNr"> 92 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g +<span id="L93" class="LineNr"> 93 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> +<span id="L97" class="LineNr"> 97 </span> +<span id="L98" class="LineNr"> 98 </span><span class="muComment"># compare from bottom</span> +<span id="L99" class="LineNr"> 99 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> +<span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L100'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span>$prefix-match?:body: <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">{</span> +<span id="L109" class="LineNr">109 </span> compare i, *top-addr +<span id="L110" class="LineNr">110 </span> <span class="PreProc">break-if->=</span> +<span id="L111" class="LineNr">111 </span> <span class="muComment"># if curr != expected, return false</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">{</span> +<span id="L116" class="LineNr">116 </span> compare expected, *curr-a +<span id="L117" class="LineNr">117 </span> <span class="PreProc">break-if-=</span> +<span id="L118" class="LineNr">118 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">break</span> $prefix-match?:body +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> +<span id="L122" class="LineNr">122 </span> i <span class="SpecialChar"><-</span> increment +<span id="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> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> +<span id="L127" class="LineNr">127 </span><span class="Delimiter">}</span> +<span id="L128" class="LineNr">128 </span> +<span id="L129" class="LineNr">129 </span><span class="muComment"># compare from bottom</span> +<span id="L130" class="LineNr">130 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L131'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span>$suffix-match?:body: <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L139" class="LineNr">139 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> compare i, <span class="Constant">0</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-<</span> +<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s +<span id="L146" class="LineNr">146 </span> <span class="muComment"># if curr != expected, return false</span> +<span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span> compare expected, *curr-a +<span id="L149" class="LineNr">149 </span> <span class="PreProc">break-if-=</span> +<span id="L150" class="LineNr">150 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">break</span> $suffix-match?:body +<span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> +<span id="L154" class="LineNr">154 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L155" class="LineNr">155 </span> <span class="PreProc">loop</span> +<span id="L156" class="LineNr">156 </span> <span class="Delimiter">}</span> +<span id="L157" class="LineNr">157 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> +<span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/int-stack.mu.html b/html/apps/tile/int-stack.mu.html new file mode 100644 index 00000000..13b66b74 --- /dev/null +++ b/html/apps/tile/int-stack.mu.html @@ -0,0 +1,154 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/int-stack.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/int-stack.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/int-stack.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='int-stack.mu.html#L1'>int-stack</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> data: (handle array int) +<span id="L3" class="LineNr"> 3 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L6'>initialize-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L9" class="LineNr"> 9 </span> populate d, n +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L11" class="LineNr">11 </span> copy-to *top, <span class="Constant">0</span> +<span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> +<span id="L13" class="LineNr">13 </span> +<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L14'>clear-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="Delimiter">{</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L17" class="LineNr">17 </span> copy-to *top, <span class="Constant">0</span> +<span id="L18" class="LineNr">18 </span><span class="Delimiter">}</span> +<span id="L19" class="LineNr">19 </span> +<span id="L20" class="LineNr">20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L20'>push-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>), _val: int <span class="Delimiter">{</span> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L28" class="LineNr">28 </span> copy-to *dest-addr, val +<span id="L29" class="LineNr">29 </span> add-to *top-addr, <span class="Constant">1</span> +<span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> +<span id="L31" class="LineNr">31 </span> +<span id="L32" class="LineNr">32 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L32'>pop-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>val/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L33" class="LineNr">33 </span>$pop-int-stack:body: <span class="Delimiter">{</span> +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L36" class="LineNr">36 </span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr">37 </span> compare *top-addr, <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> val <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L40" class="LineNr">40 </span> <span class="PreProc">break</span> $pop-int-stack:body +<span id="L41" class="LineNr">41 </span> <span class="Delimiter">}</span> +<span id="L42" class="LineNr">42 </span> subtract-from *top-addr, <span class="Constant">1</span> +<span id="L43" class="LineNr">43 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L47" class="LineNr">47 </span> val <span class="SpecialChar"><-</span> copy *result-addr +<span id="L48" class="LineNr">48 </span><span class="Delimiter">}</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='int-stack.mu.html#L51'>int-stack-empty?</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L52" class="LineNr">52 </span>$int-stack-empty?:body: <span class="Delimiter">{</span> +<span id="L53" class="LineNr">53 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L55" class="LineNr">55 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L56" class="LineNr">56 </span> <span class="Delimiter">{</span> +<span id="L57" class="LineNr">57 </span> <span class="PreProc">break-if-!=</span> +<span id="L58" class="LineNr">58 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L59" class="LineNr">59 </span> <span class="PreProc">break</span> $int-stack-empty?:body +<span id="L60" class="LineNr">60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr">61 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L62" class="LineNr">62 </span><span class="Delimiter">}</span> +<span id="L63" class="LineNr">63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr">64 </span> +<span id="L65" class="LineNr">65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L65'>int-stack-length</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L68" class="LineNr">68 </span> result <span class="SpecialChar"><-</span> copy *top-addr +<span id="L69" class="LineNr">69 </span><span class="Delimiter">}</span> +<span id="L70" class="LineNr">70 </span> +<span id="L71" class="LineNr">71 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L71'>int-stack-max-width</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L72" class="LineNr">72 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L73" class="LineNr">73 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L74" class="LineNr">74 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L75" class="LineNr">75 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _data +<span id="L76" class="LineNr">76 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L77" class="LineNr">77 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L78" class="LineNr">78 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L79" class="LineNr">79 </span> <span class="Delimiter">{</span> +<span id="L80" class="LineNr">80 </span> compare i, *top-addr +<span id="L81" class="LineNr">81 </span> <span class="PreProc">break-if->=</span> +<span id="L82" class="LineNr">82 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, i +<span id="L83" class="LineNr">83 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='../../407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> *g +<span id="L84" class="LineNr">84 </span> compare w, result +<span id="L85" class="LineNr">85 </span> <span class="Delimiter">{</span> +<span id="L86" class="LineNr">86 </span> <span class="PreProc">break-if-<=</span> +<span id="L87" class="LineNr">87 </span> result <span class="SpecialChar"><-</span> copy w +<span id="L88" class="LineNr">88 </span> <span class="Delimiter">}</span> +<span id="L89" class="LineNr">89 </span> i <span class="SpecialChar"><-</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="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/main.mu.html b/html/apps/tile/main.mu.html new file mode 100644 index 00000000..8fbd435b --- /dev/null +++ b/html/apps/tile/main.mu.html @@ -0,0 +1,171 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/main.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/main.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/main.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L1'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L4" class="LineNr"> 4 </span> $main-body: <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> compare len, <span class="Constant">2</span> +<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">break-if-!=</span> +<span id="L8" class="LineNr"> 8 </span> <span class="muComment"># if single arg is 'test', run tests</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test"</span> +<span id="L11" class="LineNr"> 11 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">{</span> +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if-=</span> +<span id="L14" class="LineNr"> 14 </span> run-tests +<span id="L15" class="LineNr"> 15 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">break</span> $main-body +<span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">}</span> +<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># if single arg is 'screen', run in full-screen mode</span> +<span id="L19" class="LineNr"> 19 </span> tmp2 <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"screen"</span> +<span id="L20" class="LineNr"> 20 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break-if-=</span> +<span id="L23" class="LineNr"> 23 </span> <a href='main.mu.html#L46'>interactive</a> +<span id="L24" class="LineNr"> 24 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">break</span> $main-body +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> +<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if single arg is 'type', run in typewriter mode</span> +<span id="L28" class="LineNr"> 28 </span> tmp2 <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"type"</span> +<span id="L29" class="LineNr"> 29 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-=</span> +<span id="L32" class="LineNr"> 32 </span> <a href='main.mu.html#L65'>repl</a> +<span id="L33" class="LineNr"> 33 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break</span> $main-body +<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 class="muComment"># otherwise error message</span> +<span id="L38" class="LineNr"> 38 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"usage:\n"</span> +<span id="L39" class="LineNr"> 39 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" to run tests: tile test\n"</span> +<span id="L40" class="LineNr"> 40 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" full-screen mode: tile screen\n"</span> +<span id="L41" class="LineNr"> 41 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" regular REPL: tile type\n"</span> +<span id="L42" class="LineNr"> 42 </span> exit-status <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">}</span> +<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L46'>interactive</a></span> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <a href='../../304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L48" class="LineNr"> 48 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> env-storage: environment +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr environment) <span class="SpecialChar"><-</span> address env-storage +<span id="L51" class="LineNr"> 51 </span> initialize-environment env +<span id="L52" class="LineNr"> 52 </span> draw-screen env +<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L55" class="LineNr"> 55 </span> compare key, <span class="Constant">0x71</span> <span class="muComment"># 'q'</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> +<span id="L57" class="LineNr"> 57 </span> process env, key +<span id="L58" class="LineNr"> 58 </span> render env +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">loop</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L62" class="LineNr"> 62 </span> <a href='../../304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr"> 64 </span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L65'>repl</a></span> <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> env-storage: environment +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr environment) <span class="SpecialChar"><-</span> address env-storage +<span id="L69" class="LineNr"> 69 </span> initialize-environment env +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> stack-storage: value-stack +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr value-stack) <span class="SpecialChar"><-</span> address stack-storage +<span id="L72" class="LineNr"> 72 </span> initialize-value-stack stack, <span class="Constant">0x10</span> +<span id="L73" class="LineNr"> 73 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"> "</span> +<span id="L74" class="LineNr"> 74 </span> $repl:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L76" class="LineNr"> 76 </span> <a href='../../304screen.subx.html#L161'>print-grapheme-to-real-screen</a> key +<span id="L77" class="LineNr"> 77 </span> compare key, <span class="Constant">4</span> <span class="muComment"># ctrl-d</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break-if-=</span> +<span id="L79" class="LineNr"> 79 </span> compare key, <span class="Constant">0xa</span> <span class="muComment"># newline</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> evaluate-environment env, stack +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> value-stack-empty? stack +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> compare empty?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">break-if-!=</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack stack +<span id="L88" class="LineNr"> 88 </span> <a href='../../304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> result +<span id="L89" class="LineNr"> 89 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> +<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># clear line</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ecx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, cursor-word +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> program-ah/<span class="Constant">eax</span>: (addr handle program) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, program +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> _program/<span class="Constant">eax</span>: (addr program) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *program-ah +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> program/<span class="Constant">esi</span>: (addr program) <span class="SpecialChar"><-</span> copy _program +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">esi</span>: (addr handle sandbox) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> program, sandboxes +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> sandbox/<span class="Constant">eax</span>: (addr sandbox) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle line) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> sandbox, data +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> _line/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> line/<span class="Constant">esi</span>: (addr line) <span class="SpecialChar"><-</span> copy _line +<span id="L101" class="LineNr">101 </span> initialize-line line, cursor-word-ah +<span id="L102" class="LineNr">102 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"> "</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">loop</span> $repl:<span class="PreProc">loop</span> +<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> +<span id="L105" class="LineNr">105 </span> process env, key +<span id="L106" class="LineNr">106 </span> <span class="PreProc">loop</span> +<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/rpn.mu.html b/html/apps/tile/rpn.mu.html new file mode 100644 index 00000000..39cbea35 --- /dev/null +++ b/html/apps/tile/rpn.mu.html @@ -0,0 +1,284 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/rpn.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/rpn.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/rpn.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L1'>evaluate</a></span> defs: (addr handle function), bindings: (addr table), scratch: (addr line), end: (addr word), out: (addr value-stack) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> copy scratch +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> line, data +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> curr-stream-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> curr-stream/<span class="Constant">edi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream-storage +<span id="L7" class="LineNr"> 7 </span> clear-value-stack out +<span id="L8" class="LineNr"> 8 </span> $evaluate:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># precondition (should never hit)</span> +<span id="L10" class="LineNr"> 10 </span> compare curr, <span class="Constant">0</span> +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">break-if-=</span> +<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># update curr-stream</span> +<span id="L13" class="LineNr"> 13 </span> emit-word curr, curr-stream +<span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? print-stream-to-real-screen curr-stream</span> +<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L16" class="LineNr"> 16 </span> $evaluate:process-word: <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># if curr-stream is an operator, perform it</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">{</span> +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"+"</span> +<span id="L20" class="LineNr"> 20 </span> compare is-add?, <span class="Constant">0</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">break-if-=</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L25" class="LineNr"> 25 </span> a <span class="SpecialChar"><-</span> add b +<span id="L26" class="LineNr"> 26 </span> push-int-to-value-stack out, a +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break</span> $evaluate:process-word +<span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"-"</span> +<span id="L31" class="LineNr"> 31 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">break-if-=</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L36" class="LineNr"> 36 </span> a <span class="SpecialChar"><-</span> subtract b +<span id="L37" class="LineNr"> 37 </span> push-int-to-value-stack out, a +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break</span> $evaluate:process-word +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"*"</span> +<span id="L42" class="LineNr"> 42 </span> compare is-mul?, <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> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack out +<span id="L47" class="LineNr"> 47 </span> a <span class="SpecialChar"><-</span> multiply b +<span id="L48" class="LineNr"> 48 </span> push-int-to-value-stack out, a +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">break</span> $evaluate:process-word +<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># if curr-stream is a known function name, call it appropriately</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> callee-h: (handle function) +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">eax</span>: (addr handle function) <span class="SpecialChar"><-</span> address callee-h +<span id="L55" class="LineNr"> 55 </span> <a href='rpn.mu.html#L101'>find-function</a> defs, curr-stream, callee-ah +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> callee/<span class="Constant">eax</span>: (addr function) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-ah +<span id="L57" class="LineNr"> 57 </span> compare callee, <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> <a href='rpn.mu.html#L122'>perform-call</a> callee, out, defs +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break</span> $evaluate:process-word +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># if it's a name, push its value</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> compare bindings, <span class="Constant">0</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-=</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> tmp: (handle array byte) +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> curr-string-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address tmp +<span id="L68" class="LineNr"> 68 </span> <a href='../../310copy-bytes.subx.html#L59'>stream-to-string</a> curr-stream, curr-string-ah <span class="muComment"># unfortunate leak</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> curr-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-string-ah +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> val-storage: (handle value) +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">edi</span>: (addr handle value) <span class="SpecialChar"><-</span> address val-storage +<span id="L72" class="LineNr"> 72 </span> lookup-binding bindings, curr-string, val-ah +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah +<span id="L74" class="LineNr"> 74 </span> compare val, <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="CommentedCode">#? print-string-to-real-screen "value of "</span> +<span id="L77" class="LineNr"> 77 </span><span class="CommentedCode">#? print-string-to-real-screen curr-string</span> +<span id="L78" class="LineNr"> 78 </span><span class="CommentedCode">#? print-string-to-real-screen " is "</span> +<span id="L79" class="LineNr"> 79 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen result</span> +<span id="L80" class="LineNr"> 80 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L81" class="LineNr"> 81 </span> push-value-stack out, val +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">break</span> $evaluate:process-word +<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> <span class="muComment"># otherwise assume it's a literal int and push it</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L46'>parse-decimal-int-from-stream</a> curr-stream +<span id="L87" class="LineNr"> 87 </span> push-int-to-value-stack out, n +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> +<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># termination check</span> +<span id="L91" class="LineNr"> 91 </span> compare curr, end +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">break-if-=</span> +<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># update</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next +<span id="L95" class="LineNr"> 95 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L96" class="LineNr"> 96 </span> <span class="muComment">#</span> +<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="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L101'>find-function</a></span> first: (addr handle function), name: (addr stream byte), out: (addr handle function) <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle function) <span class="SpecialChar"><-</span> copy first +<span id="L103" class="LineNr">103 </span> $find-function:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr function) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> f/<span class="Constant">ecx</span>: (addr function) <span class="SpecialChar"><-</span> copy _f +<span id="L106" class="LineNr">106 </span> compare f, <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> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-name-ah +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> name, curr-name +<span id="L111" class="LineNr">111 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-=</span> +<span id="L114" class="LineNr">114 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> *curr, out +<span id="L115" class="LineNr">115 </span> <span class="PreProc">break</span> $find-function:<span class="PreProc">loop</span> +<span id="L116" class="LineNr">116 </span> <span class="Delimiter">}</span> +<span id="L117" class="LineNr">117 </span> curr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next +<span id="L118" class="LineNr">118 </span> <span class="PreProc">loop</span> +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> +<span id="L122" class="LineNr">122 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L122'>perform-call</a></span> _callee: (addr function), caller-stack: (addr value-stack), defs: (addr handle function) <span class="Delimiter">{</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> callee/<span class="Constant">ecx</span>: (addr function) <span class="SpecialChar"><-</span> copy _callee +<span id="L124" class="LineNr">124 </span> <span class="muComment"># create bindings for args</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> table-storage: table +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> table/<span class="Constant">esi</span>: (addr table) <span class="SpecialChar"><-</span> address table-storage +<span id="L127" class="LineNr">127 </span> initialize-table table, <span class="Constant">0x10</span> +<span id="L128" class="LineNr">128 </span> <a href='rpn.mu.html#L144'>bind-args</a> callee, caller-stack, table +<span id="L129" class="LineNr">129 </span> <span class="muComment"># obtain body</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle line) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> callee, body +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr line) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah +<span id="L132" class="LineNr">132 </span> <span class="muComment"># perform call</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> stack-storage: value-stack +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr value-stack) <span class="SpecialChar"><-</span> address stack-storage +<span id="L135" class="LineNr">135 </span> initialize-value-stack stack, <span class="Constant">0x10</span> +<span id="L136" class="LineNr">136 </span><span class="CommentedCode">#? print-string-to-real-screen "about to enter recursive eval\n"</span> +<span id="L137" class="LineNr">137 </span> <a href='rpn.mu.html#L1'>evaluate</a> defs, table, body, <span class="Constant">0</span>, stack +<span id="L138" class="LineNr">138 </span><span class="CommentedCode">#? print-string-to-real-screen "exited recursive eval\n"</span> +<span id="L139" class="LineNr">139 </span> <span class="muComment"># stitch result from stack into caller</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack stack +<span id="L141" class="LineNr">141 </span> push-int-to-value-stack caller-stack, result +<span id="L142" class="LineNr">142 </span><span class="Delimiter">}</span> +<span id="L143" class="LineNr">143 </span> +<span id="L144" class="LineNr">144 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L144'>bind-args</a></span> _callee: (addr function), caller-stack: (addr value-stack), table: (addr table) <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> callee/<span class="Constant">ecx</span>: (addr function) <span class="SpecialChar"><-</span> copy _callee +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> curr-arg-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> callee, args +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> curr-arg/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-arg-ah +<span id="L148" class="LineNr">148 </span> <span class="muComment">#</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> curr-key-storage: (handle array byte) +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address curr-key-storage +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">{</span> +<span id="L152" class="LineNr">152 </span> compare curr-arg, <span class="Constant">0</span> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">break-if-=</span> +<span id="L154" class="LineNr">154 </span> <span class="muComment"># create binding</span> +<span id="L155" class="LineNr">155 </span> word-to-string curr-arg, curr-key +<span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> +<span id="L157" class="LineNr">157 </span><span class="CommentedCode">#? var tmp/eax: (addr array byte) <- lookup *curr-key</span> +<span id="L158" class="LineNr">158 </span><span class="CommentedCode">#? print-string-to-real-screen "binding "</span> +<span id="L159" class="LineNr">159 </span><span class="CommentedCode">#? print-string-to-real-screen tmp</span> +<span id="L160" class="LineNr">160 </span><span class="CommentedCode">#? print-string-to-real-screen " to "</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> curr-val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> pop-int-from-value-stack caller-stack +<span id="L162" class="LineNr">162 </span><span class="CommentedCode">#? print-int32-decimal-to-real-screen curr-val</span> +<span id="L163" class="LineNr">163 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L164" class="LineNr">164 </span> bind-int-in-table table, curr-key, curr-val +<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> +<span id="L166" class="LineNr">166 </span> <span class="muComment">#</span> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> next-arg-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-arg, next +<span id="L168" class="LineNr">168 </span> curr-arg <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-arg-ah +<span id="L169" class="LineNr">169 </span> <span class="PreProc">loop</span> +<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span><span class="Delimiter">}</span> +<span id="L172" class="LineNr">172 </span> +<span id="L173" class="LineNr">173 </span><span class="muComment"># Copy of 'simplify' that just tracks the maximum stack depth needed</span> +<span id="L174" class="LineNr">174 </span><span class="muComment"># Doesn't actually need to simulate the stack, since every word has a predictable effect.</span> +<span id="L175" class="LineNr">175 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L175'>max-stack-depth</a></span> first-word: (addr word), final-word: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">edi</span>: int <span class="Delimiter">{</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> copy first-word +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> curr-depth/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L178" class="LineNr">178 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L179" class="LineNr">179 </span> $max-stack-depth:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span> $max-stack-depth:process-word: <span class="Delimiter">{</span> +<span id="L181" class="LineNr">181 </span> <span class="muComment"># handle operators</span> +<span id="L182" class="LineNr">182 </span> <span class="Delimiter">{</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> word-equal? curr-word, <span class="Constant">"+"</span> +<span id="L184" class="LineNr">184 </span> compare is-add?, <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> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L187" class="LineNr">187 </span> <span class="PreProc">break</span> $max-stack-depth:process-word +<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> word-equal? curr-word, <span class="Constant">"-"</span> +<span id="L191" class="LineNr">191 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-=</span> +<span id="L193" class="LineNr">193 </span> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L194" class="LineNr">194 </span> <span class="PreProc">break</span> $max-stack-depth:process-word +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> +<span id="L196" class="LineNr">196 </span> <span class="Delimiter">{</span> +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> word-equal? curr-word, <span class="Constant">"*"</span> +<span id="L198" class="LineNr">198 </span> compare is-mul?, <span class="Constant">0</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-=</span> +<span id="L200" class="LineNr">200 </span> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L201" class="LineNr">201 </span> <span class="PreProc">break</span> $max-stack-depth:process-word +<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> <span class="muComment"># otherwise it's an int (do we need error-checking?)</span> +<span id="L204" class="LineNr">204 </span> curr-depth <span class="SpecialChar"><-</span> increment +<span id="L205" class="LineNr">205 </span> <span class="muComment"># update max depth if necessary</span> +<span id="L206" class="LineNr">206 </span> <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> compare curr-depth, result +<span id="L208" class="LineNr">208 </span> <span class="PreProc">break-if-<=</span> +<span id="L209" class="LineNr">209 </span> result <span class="SpecialChar"><-</span> copy curr-depth +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> +<span id="L212" class="LineNr">212 </span> <span class="muComment"># if curr-word == final-word break</span> +<span id="L213" class="LineNr">213 </span> compare curr-word, final-word +<span id="L214" class="LineNr">214 </span> <span class="PreProc">break-if-=</span> +<span id="L215" class="LineNr">215 </span> <span class="muComment"># curr-word = curr-word->next</span> +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next +<span id="L217" class="LineNr">217 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L218" class="LineNr">218 </span> <span class="muComment">#</span> +<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><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/surface.mu.html b/html/apps/tile/surface.mu.html new file mode 100644 index 00000000..c77b1d79 --- /dev/null +++ b/html/apps/tile/surface.mu.html @@ -0,0 +1,481 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/surface.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/surface.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/surface.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># A surface is a large 2-D grid that you can only see a subset of through the</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># screen.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Imagine a pin going through both surface and screen. As we update the</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># surface contents, the pinned point stays fixed, providing a sense of</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># stability.</span> +<span id="L6" class="LineNr"> 6 </span> +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">type</span> <a href='surface.mu.html#L7'>surface</a> <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) +<span id="L9" class="LineNr"> 9 </span> data: (handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) +<span id="L10" class="LineNr"> 10 </span> nrows: int +<span id="L11" class="LineNr"> 11 </span> ncols: int +<span id="L12" class="LineNr"> 12 </span> screen-nrows: int +<span id="L13" class="LineNr"> 13 </span> screen-ncols: int +<span id="L14" class="LineNr"> 14 </span> pin-row: int <span class="muComment"># 1-indexed</span> +<span id="L15" class="LineNr"> 15 </span> pin-col: int <span class="muComment"># 1-indexed</span> +<span id="L16" class="LineNr"> 16 </span> pin-screen-row: int <span class="muComment"># 1-indexed</span> +<span id="L17" class="LineNr"> 17 </span> pin-screen-col: int <span class="muComment"># 1-indexed</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="muComment"># intended mostly for tests; could be slow</span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L21'>initialize-surface-with</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), in: (addr array byte) <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># fill in nrows, ncols</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L265'>num-lines</a> in +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows +<span id="L26" class="LineNr"> 26 </span> copy-to *dest, nrows +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> ncols/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L282'>first-line-length</a> in <span class="muComment"># assume all lines are the same length</span> +<span id="L28" class="LineNr"> 28 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols +<span id="L29" class="LineNr"> 29 </span> copy-to *dest, ncols +<span id="L30" class="LineNr"> 30 </span> <span class="muComment"># fill in data</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy nrows +<span id="L32" class="LineNr"> 32 </span> len <span class="SpecialChar"><-</span> multiply ncols +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, data +<span id="L35" class="LineNr"> 35 </span> populate data, len +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">eax</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data +<span id="L37" class="LineNr"> 37 </span> <a href='surface.mu.html#L299'>fill-in</a> data-addr, in +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># fill in screen-nrows, screen-ncols</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> _screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen-addr +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L45" class="LineNr"> 45 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> screen-addr +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-nrows +<span id="L47" class="LineNr"> 47 </span> copy-to *dest, nrows +<span id="L48" class="LineNr"> 48 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-ncols +<span id="L49" class="LineNr"> 49 </span> copy-to *dest, ncols +<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> +<span id="L51" class="LineNr"> 51 </span><span class="Delimiter">}</span> +<span id="L52" class="LineNr"> 52 </span> +<span id="L53" class="LineNr"> 53 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L53'>pin-surface-at</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), r: int, c: int <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy r +<span id="L57" class="LineNr"> 57 </span> copy-to *dest, tmp +<span id="L58" class="LineNr"> 58 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col +<span id="L59" class="LineNr"> 59 </span> tmp <span class="SpecialChar"><-</span> copy c +<span id="L60" class="LineNr"> 60 </span> copy-to *dest, tmp +<span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span> +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L63'>pin-surface-to</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), sr: int, sc: int <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy sr +<span id="L67" class="LineNr"> 67 </span> copy-to *dest, tmp +<span id="L68" class="LineNr"> 68 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L69" class="LineNr"> 69 </span> tmp <span class="SpecialChar"><-</span> copy sc +<span id="L70" class="LineNr"> 70 </span> copy-to *dest, tmp +<span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L73'>render-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span><span class="CommentedCode">#? print-string-to-real-screen "render-surface\n"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># clear screen</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L79" class="LineNr"> 79 </span> <a href='../../405screen.mu.html#L80'>clear-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L80" class="LineNr"> 80 </span> <span class="muComment">#</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> nrows/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-nrows +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-ncols +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> screen-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> compare screen-row, *nrows +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">break-if-></span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> screen-col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> compare screen-col, *ncols +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-></span> +<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? print-string-to-real-screen "X"</span> +<span id="L92" class="LineNr"> 92 </span> <a href='surface.mu.html#L102'>print-surface-cell-at</a> self, screen-row, screen-col +<span id="L93" class="LineNr"> 93 </span> screen-col <span class="SpecialChar"><-</span> increment +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L97" class="LineNr"> 97 </span> screen-row <span class="SpecialChar"><-</span> increment +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">loop</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L102'>print-surface-cell-at</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-row: int, screen-col: int <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span>$print-surface-cell-at:body: <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L196'>screen-row-to-surface</a> self, screen-row +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L237'>screen-col-to-surface</a> self, screen-col +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> _data-addr/<span class="Constant">eax</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _data-addr +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L169'>surface-screen-cell-index</a> self, row, col +<span id="L111" class="LineNr">111 </span> <span class="muComment"># if out of bounds, print ' '</span> +<span id="L112" class="LineNr">112 </span> compare idx, <span class="Constant">0</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> <span class="PreProc">var</span> space/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L118" class="LineNr">118 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, space +<span id="L119" class="LineNr">119 </span> <span class="PreProc">break</span> $print-surface-cell-at:body +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> <span class="muComment"># otherwise print the appropriate screen-cell</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data-addr, idx +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data-addr, offset +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L126" class="LineNr">126 </span> <a href='surface.mu.html#L131'>print-screen-cell</a> <a href='../../405screen.mu.html#L9'>screen</a>, src +<span id="L127" class="LineNr">127 </span><span class="Delimiter">}</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"># print a cell with all its formatting at the cursor location</span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L131'>print-screen-cell</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _cell: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> cell/<span class="Constant">esi</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _cell +<span id="L133" class="LineNr">133 </span> <a href='../../405screen.mu.html#L496'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> fg/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, color +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> bg/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, background-color +<span id="L136" class="LineNr">136 </span> <a href='../../405screen.mu.html#L518'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, *fg, *bg +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, bold? +<span id="L138" class="LineNr">138 </span> <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> compare *tmp, <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> <a href='../../405screen.mu.html#L541'>start-bold</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> +<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, underline? +<span id="L145" class="LineNr">145 </span> compare *tmp, <span class="Constant">0</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-=</span> +<span id="L147" class="LineNr">147 </span> <a href='../../405screen.mu.html#L560'>start-underline</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, reverse? +<span id="L151" class="LineNr">151 </span> compare *tmp, <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> <a href='../../405screen.mu.html#L579'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, blink? +<span id="L157" class="LineNr">157 </span> compare *tmp, <span class="Constant">0</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">break-if-=</span> +<span id="L159" class="LineNr">159 </span> <a href='../../405screen.mu.html#L598'>start-blinking</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L160" class="LineNr">160 </span> <span class="Delimiter">}</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, data +<span id="L162" class="LineNr">162 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g +<span id="L163" class="LineNr">163 </span><span class="CommentedCode">#? var g2/eax: grapheme <- copy *g</span> +<span id="L164" class="LineNr">164 </span><span class="CommentedCode">#? var g3/eax: int <- copy g2</span> +<span id="L165" class="LineNr">165 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen g3</span> +<span id="L166" class="LineNr">166 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<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='surface.mu.html#L169'>surface-screen-cell-index</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), row: int, col: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L171" class="LineNr">171 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen row</span> +<span id="L172" class="LineNr">172 </span><span class="CommentedCode">#? print-string-to-real-screen ", "</span> +<span id="L173" class="LineNr">173 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen col</span> +<span id="L174" class="LineNr">174 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L175" class="LineNr">175 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L176" class="LineNr">176 </span> compare row, <span class="Constant">1</span> +<span id="L177" class="LineNr">177 </span> <span class="PreProc">break-if-<</span> +<span id="L178" class="LineNr">178 </span> compare col, <span class="Constant">1</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">break-if-<</span> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *nrows-addr +<span id="L182" class="LineNr">182 </span> compare row, nrows +<span id="L183" class="LineNr">183 </span> <span class="PreProc">break-if-></span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *ncols-addr +<span id="L186" class="LineNr">186 </span> compare col, ncols +<span id="L187" class="LineNr">187 </span> <span class="PreProc">break-if-></span> +<span id="L188" class="LineNr">188 </span><span class="CommentedCode">#? print-string-to-real-screen "!\n"</span> +<span id="L189" class="LineNr">189 </span> result <span class="SpecialChar"><-</span> copy row +<span id="L190" class="LineNr">190 </span> result <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> +<span id="L191" class="LineNr">191 </span> result <span class="SpecialChar"><-</span> multiply ncols +<span id="L192" class="LineNr">192 </span> result <span class="SpecialChar"><-</span> add col +<span id="L193" class="LineNr">193 </span> result <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> +<span id="L194" class="LineNr">194 </span><span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> +<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L196'>screen-row-to-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-row: int<span class="PreProc"> -> </span>result/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L198" class="LineNr">198 </span> result <span class="SpecialChar"><-</span> copy screen-row +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row +<span id="L200" class="LineNr">200 </span> result <span class="SpecialChar"><-</span> add *tmp +<span id="L201" class="LineNr">201 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L202" class="LineNr">202 </span> result <span class="SpecialChar"><-</span> subtract *tmp +<span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L205'>max</a></span> a: int, b: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span>$max:body: <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> a2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy a +<span id="L208" class="LineNr">208 </span> compare a2, b +<span id="L209" class="LineNr">209 </span> <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">break-if-></span> +<span id="L211" class="LineNr">211 </span> result <span class="SpecialChar"><-</span> copy b +<span id="L212" class="LineNr">212 </span> <span class="PreProc">break</span> $max:body +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">}</span> +<span id="L214" class="LineNr">214 </span> <span class="Delimiter">{</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">break-if-<=</span> +<span id="L216" class="LineNr">216 </span> result <span class="SpecialChar"><-</span> copy a2 +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span><span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span><span class="Delimiter">}</span> +<span id="L220" class="LineNr">220 </span> +<span id="L221" class="LineNr">221 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L221'>min</a></span> a: int, b: int<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L222" class="LineNr">222 </span>$min:body: <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> a2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy a +<span id="L224" class="LineNr">224 </span> compare a2, b +<span id="L225" class="LineNr">225 </span> <span class="Delimiter">{</span> +<span id="L226" class="LineNr">226 </span> <span class="PreProc">break-if-></span> +<span id="L227" class="LineNr">227 </span> result <span class="SpecialChar"><-</span> copy a2 +<span id="L228" class="LineNr">228 </span> <span class="PreProc">break</span> $min:body +<span id="L229" class="LineNr">229 </span> <span class="Delimiter">}</span> +<span id="L230" class="LineNr">230 </span> <span class="Delimiter">{</span> +<span id="L231" class="LineNr">231 </span> <span class="PreProc">break-if-<=</span> +<span id="L232" class="LineNr">232 </span> result <span class="SpecialChar"><-</span> copy b +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> +<span id="L236" class="LineNr">236 </span> +<span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L237'>screen-col-to-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-col: int<span class="PreProc"> -> </span>result/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L239" class="LineNr">239 </span> result <span class="SpecialChar"><-</span> copy screen-col +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col +<span id="L241" class="LineNr">241 </span> result <span class="SpecialChar"><-</span> add *tmp +<span id="L242" class="LineNr">242 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L243" class="LineNr">243 </span> result <span class="SpecialChar"><-</span> subtract *tmp +<span id="L244" class="LineNr">244 </span><span class="Delimiter">}</span> +<span id="L245" class="LineNr">245 </span> +<span id="L246" class="LineNr">246 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L246'>surface-row-to-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), row: int<span class="PreProc"> -> </span>result/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L248" class="LineNr">248 </span> result <span class="SpecialChar"><-</span> copy row +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L250" class="LineNr">250 </span> result <span class="SpecialChar"><-</span> add *tmp +<span id="L251" class="LineNr">251 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row +<span id="L252" class="LineNr">252 </span> result <span class="SpecialChar"><-</span> subtract *tmp +<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='surface.mu.html#L255'>surface-col-to-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), col: int<span class="PreProc"> -> </span>result/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L257" class="LineNr">257 </span> result <span class="SpecialChar"><-</span> copy col +<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L259" class="LineNr">259 </span> result <span class="SpecialChar"><-</span> add *tmp +<span id="L260" class="LineNr">260 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col +<span id="L261" class="LineNr">261 </span> result <span class="SpecialChar"><-</span> subtract *tmp +<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> +<span id="L263" class="LineNr">263 </span> +<span id="L264" class="LineNr">264 </span><span class="muComment"># assumes last line doesn't end in '\n'</span> +<span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L265'>num-lines</a></span> in: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s +<span id="L268" class="LineNr">268 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in +<span id="L269" class="LineNr">269 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L270" class="LineNr">270 </span> <span class="Delimiter">{</span> +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L272" class="LineNr">272 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">break-if-!=</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s-addr +<span id="L275" class="LineNr">275 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L276" class="LineNr">276 </span> <span class="PreProc">loop-if-!=</span> +<span id="L277" class="LineNr">277 </span> result <span class="SpecialChar"><-</span> increment +<span id="L278" class="LineNr">278 </span> <span class="PreProc">loop</span> +<span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> +<span id="L280" class="LineNr">280 </span><span class="Delimiter">}</span> +<span id="L281" class="LineNr">281 </span> +<span id="L282" class="LineNr">282 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L282'>first-line-length</a></span> in: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) +<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s +<span id="L285" class="LineNr">285 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in +<span id="L286" class="LineNr">286 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L287" class="LineNr">287 </span> <span class="Delimiter">{</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L289" class="LineNr">289 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L290" class="LineNr">290 </span> <span class="PreProc">break-if-!=</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s-addr +<span id="L292" class="LineNr">292 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L293" class="LineNr">293 </span> <span class="PreProc">break-if-=</span> +<span id="L294" class="LineNr">294 </span> result <span class="SpecialChar"><-</span> increment +<span id="L295" class="LineNr">295 </span> <span class="PreProc">loop</span> +<span id="L296" class="LineNr">296 </span> <span class="Delimiter">}</span> +<span id="L297" class="LineNr">297 </span><span class="Delimiter">}</span> +<span id="L298" class="LineNr">298 </span> +<span id="L299" class="LineNr">299 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L299'>fill-in</a></span> _out: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>), in: (addr array byte) <span class="Delimiter">{</span> +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _out +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s +<span id="L303" class="LineNr">303 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L305" class="LineNr">305 </span> <span class="Delimiter">{</span> +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L307" class="LineNr">307 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</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> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s-addr +<span id="L310" class="LineNr">310 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">loop-if-=</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset out, idx +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index out, offset +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> dest2/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, data +<span id="L315" class="LineNr">315 </span> copy-to *dest2, g +<span id="L316" class="LineNr">316 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L317" class="LineNr">317 </span> <span class="PreProc">loop</span> +<span id="L318" class="LineNr">318 </span> <span class="Delimiter">}</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"># pin (1, 1) to (1, 1) on screen</span> +<span id="L322" class="LineNr">322 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L322'>test-surface-pin-at-origin</a></span> <span class="Delimiter">{</span> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L325" class="LineNr">325 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> +<span id="L326" class="LineNr">326 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> +<span id="L327" class="LineNr">327 </span> <a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> +<span id="L328" class="LineNr">328 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> +<span id="L329" class="LineNr">329 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> +<span id="L330" class="LineNr">330 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L333" class="LineNr">333 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L334" class="LineNr">334 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L335" class="LineNr">335 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L336" class="LineNr">336 </span><span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> +<span id="L338" class="LineNr">338 </span><span class="muComment"># pin (1, 1) to (2, 1) on screen; screen goes past edge of the universe</span> +<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L339'>test-surface-pin-2</a></span> <span class="Delimiter">{</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L342" class="LineNr">342 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> +<span id="L343" class="LineNr">343 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> +<span id="L344" class="LineNr">344 </span> <a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> +<span id="L345" class="LineNr">345 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> +<span id="L346" class="LineNr">346 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">2</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> +<span id="L347" class="LineNr">347 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L350" class="LineNr">350 </span> <span class="muComment"># surface edge reached (should seldom happen in the app)</span> +<span id="L351" class="LineNr">351 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="L352" class="LineNr">352 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="L353" class="LineNr">353 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="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="muComment"># pin (2, 1) to (1, 1) on screen</span> +<span id="L357" class="LineNr">357 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L357'>test-surface-pin-3</a></span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L360" class="LineNr">360 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> +<span id="L361" class="LineNr">361 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> +<span id="L362" class="LineNr">362 </span> <a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> +<span id="L363" class="LineNr">363 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">2</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> +<span id="L364" class="LineNr">364 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> +<span id="L365" class="LineNr">365 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L368" class="LineNr">368 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L369" class="LineNr">369 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L370" class="LineNr">370 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"stuv"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L371" class="LineNr">371 </span><span class="Delimiter">}</span> +<span id="L372" class="LineNr">372 </span> +<span id="L373" class="LineNr">373 </span><span class="muComment"># pin (1, 1) to (1, 2) on screen; screen goes past edge of the universe</span> +<span id="L374" class="LineNr">374 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L374'>test-surface-pin-4</a></span> <span class="Delimiter">{</span> +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L377" class="LineNr">377 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> +<span id="L378" class="LineNr">378 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> +<span id="L379" class="LineNr">379 </span> <a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> +<span id="L380" class="LineNr">380 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> +<span id="L381" class="LineNr">381 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">2</span> <span class="muComment"># screen row and column</span> +<span id="L382" class="LineNr">382 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L385" class="LineNr">385 </span> <span class="muComment"># surface edge reached (should seldom happen in the app)</span> +<span id="L386" class="LineNr">386 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="L387" class="LineNr">387 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ghi"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="L388" class="LineNr">388 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" mno"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="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"># pin (1, 2) to (1, 1) on screen</span> +<span id="L392" class="LineNr">392 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L392'>test-surface-pin-5</a></span> <span class="Delimiter">{</span> +<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L395" class="LineNr">395 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> +<span id="L396" class="LineNr">396 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> +<span id="L397" class="LineNr">397 </span> <a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> +<span id="L398" class="LineNr">398 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">2</span> <span class="muComment"># surface row and column</span> +<span id="L399" class="LineNr">399 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> +<span id="L400" class="LineNr">400 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L403" class="LineNr">403 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"bcde"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L404" class="LineNr">404 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"hijk"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L405" class="LineNr">405 </span> <a href='../../405screen.mu.html#L657'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"nopq"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L406" class="LineNr">406 </span><span class="Delimiter">}</span> +<span id="L407" class="LineNr">407 </span> +<span id="L408" class="LineNr">408 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L408'>initialize-surface-with-fake-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), nrows: int, ncols: int, in: (addr array byte) <span class="Delimiter">{</span> +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L410" class="LineNr">410 </span> <span class="muComment"># fill in screen</span> +<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L412" class="LineNr">412 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah +<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L414" class="LineNr">414 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols +<span id="L415" class="LineNr">415 </span> <span class="muComment"># fill in everything else</span> +<span id="L416" class="LineNr">416 </span> <a href='surface.mu.html#L21'>initialize-surface-with</a> self, in +<span id="L417" class="LineNr">417 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/table.mu.html b/html/apps/tile/table.mu.html new file mode 100644 index 00000000..03404d27 --- /dev/null +++ b/html/apps/tile/table.mu.html @@ -0,0 +1,141 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/table.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/table.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/table.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L1'>initialize-table</a></span> _self: (addr table), n: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr table) <span class="SpecialChar"><-</span> copy _self +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array bind) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L4" class="LineNr"> 4 </span> populate data-ah, n +<span id="L5" class="LineNr"> 5 </span><span class="Delimiter">}</span> +<span id="L6" class="LineNr"> 6 </span> +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L7'>bind-int-in-table</a></span> _self: (addr table), key: (addr handle array byte), val: int <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr table) <span class="SpecialChar"><-</span> copy _self +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array bind) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array bind) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array bind) <span class="SpecialChar"><-</span> copy _data +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> next-empty-slot-index/<span class="Constant">eax</span>: (offset bind) <span class="SpecialChar"><-</span> <a href='table.mu.html#L18'>next-empty-slot</a> data, key +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr bind) <span class="SpecialChar"><-</span> index data, next-empty-slot-index +<span id="L14" class="LineNr">14 </span> <a href='table.mu.html#L39'>make-binding</a> dest, key, val +<span id="L15" class="LineNr">15 </span><span class="Delimiter">}</span> +<span id="L16" class="LineNr">16 </span> +<span id="L17" class="LineNr">17 </span><span class="muComment"># manual test: full array of binds</span> +<span id="L18" class="LineNr">18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L18'>next-empty-slot</a></span> _data: (addr array bind), key: (addr handle array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: (offset bind) <span class="Delimiter">{</span> +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array bind) <span class="SpecialChar"><-</span> copy _data +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length data +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L22" class="LineNr">22 </span> $next-empty-slot:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L23" class="LineNr">23 </span> result <span class="SpecialChar"><-</span> compute-offset data, i +<span id="L24" class="LineNr">24 </span> compare i, len +<span id="L25" class="LineNr">25 </span> <span class="PreProc">break-if->=</span> +<span id="L26" class="LineNr">26 </span> <span class="Delimiter">{</span> +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr bind) <span class="SpecialChar"><-</span> index data, result +<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> target2/<span class="Constant">esi</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, key +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target2 +<span id="L30" class="LineNr">30 </span> compare target3, <span class="Constant">0</span> +<span id="L31" class="LineNr">31 </span> <span class="PreProc">break-if-=</span> $next-empty-slot:<span class="PreProc">loop</span> +<span id="L32" class="LineNr">32 </span> <span class="muComment"># TODO: how to indicate that key already exists? we don't want to permit rebinding</span> +<span id="L33" class="LineNr">33 </span> <span class="Delimiter">}</span> +<span id="L34" class="LineNr">34 </span> i <span class="SpecialChar"><-</span> increment +<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> +<span id="L38" class="LineNr">38 </span> +<span id="L39" class="LineNr">39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L39'>make-binding</a></span> _self: (addr bind), key: (addr handle array byte), _val: int <span class="Delimiter">{</span> +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr bind) <span class="SpecialChar"><-</span> copy _self +<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, key +<span id="L42" class="LineNr">42 </span> copy-object key, dest +<span id="L43" class="LineNr">43 </span> <span class="PreProc">var</span> dest2/<span class="Constant">eax</span>: (addr handle value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, value +<span id="L44" class="LineNr">44 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest2 +<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> dest3/<span class="Constant">eax</span>: (addr value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest2 +<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> dest4/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest3, scalar-data +<span id="L47" class="LineNr">47 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L48" class="LineNr">48 </span> copy-to *dest4, val +<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='table.mu.html#L51'>lookup-binding</a></span> _self: (addr table), key: (addr array byte), out: (addr handle value) <span class="Delimiter">{</span> +<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr table) <span class="SpecialChar"><-</span> copy _self +<span id="L53" class="LineNr">53 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array bind) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array bind) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L55" class="LineNr">55 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array bind) <span class="SpecialChar"><-</span> copy _data +<span id="L56" class="LineNr">56 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length data +<span id="L57" class="LineNr">57 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L58" class="LineNr">58 </span> $lookup-binding:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L59" class="LineNr">59 </span> compare i, len +<span id="L60" class="LineNr">60 </span> <span class="PreProc">break-if->=</span> +<span id="L61" class="LineNr">61 </span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset bind) <span class="SpecialChar"><-</span> compute-offset data, i +<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> target-bind/<span class="Constant">esi</span>: (addr bind) <span class="SpecialChar"><-</span> index data, offset +<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> target2/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, key +<span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target2 +<span id="L66" class="LineNr">66 </span> compare target3, <span class="Constant">0</span> +<span id="L67" class="LineNr">67 </span> <span class="PreProc">break-if-=</span> $lookup-binding:<span class="PreProc">loop</span> +<span id="L68" class="LineNr">68 </span> <span class="PreProc">var</span> is-match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> target3, key +<span id="L69" class="LineNr">69 </span> compare is-match?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L70" class="LineNr">70 </span> <span class="PreProc">break-if-=</span> +<span id="L71" class="LineNr">71 </span> <span class="muComment"># found</span> +<span id="L72" class="LineNr">72 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, value +<span id="L73" class="LineNr">73 </span> copy-object target, out +<span id="L74" class="LineNr">74 </span> <span class="PreProc">break</span> $lookup-binding:<span class="PreProc">loop</span> +<span id="L75" class="LineNr">75 </span> <span class="Delimiter">}</span> +<span id="L76" class="LineNr">76 </span> i <span class="SpecialChar"><-</span> increment +<span id="L77" class="LineNr">77 </span> <span class="PreProc">loop</span> +<span id="L78" class="LineNr">78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr">79 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/value-stack.mu.html b/html/apps/tile/value-stack.mu.html new file mode 100644 index 00000000..86117bed --- /dev/null +++ b/html/apps/tile/value-stack.mu.html @@ -0,0 +1,176 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/value-stack.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/value-stack.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/value-stack.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># support for non-int values is untested</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='value-stack.mu.html#L3'>value-stack</a> <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> data: (handle array value) +<span id="L5" class="LineNr"> 5 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L8'>initialize-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L11" class="LineNr"> 11 </span> populate d, n +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L13" class="LineNr"> 13 </span> copy-to *top, <span class="Constant">0</span> +<span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L16'>clear-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L19" class="LineNr"> 19 </span> copy-to *top, <span class="Constant">0</span> +<span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> +<span id="L21" class="LineNr"> 21 </span> +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L22'>push-int-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), _val: int <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset value) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr value) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, scalar-data +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen val</span> +<span id="L33" class="LineNr"> 33 </span> copy-to *dest-addr2, val +<span id="L34" class="LineNr"> 34 </span> increment *top-addr +<span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L37'>push-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (addr value) <span class="Delimiter">{</span> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset value) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr value) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L45" class="LineNr"> 45 </span> copy-object val, dest-addr +<span id="L46" class="LineNr"> 46 </span> increment *top-addr +<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> +<span id="L48" class="LineNr"> 48 </span> +<span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L49'>pop-int-from-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>val/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span>$pop-int-from-value-stack:body: <span class="Delimiter">{</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">break-if-></span> +<span id="L56" class="LineNr"> 56 </span> val <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break</span> $pop-int-from-value-stack:body +<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> decrement *top-addr +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset value) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr value) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> result-addr2/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-addr, scalar-data +<span id="L66" class="LineNr"> 66 </span> val <span class="SpecialChar"><-</span> copy *result-addr2 +<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> +<span id="L70" class="LineNr"> 70 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L70'>value-stack-empty?</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span>$value-stack-empty?:body: <span class="Delimiter">{</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L74" class="LineNr"> 74 </span> compare *top, <span class="Constant">0</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if-!=</span> +<span id="L77" class="LineNr"> 77 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break</span> $value-stack-empty?:body +<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> +<span id="L83" class="LineNr"> 83 </span> +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L84'>value-stack-length</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L87" class="LineNr"> 87 </span> result <span class="SpecialChar"><-</span> copy *top-addr +<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> +<span id="L89" class="LineNr"> 89 </span> +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L90'>value-stack-max-width</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array value) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array value) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array value) <span class="SpecialChar"><-</span> copy _data +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L97" class="LineNr"> 97 </span> result <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> compare i, *top-addr +<span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if->=</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> o/<span class="Constant">edx</span>: (offset value) <span class="SpecialChar"><-</span> compute-offset data, i +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr value) <span class="SpecialChar"><-</span> index data, o +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> g2/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> g, scalar-data +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='../../407print-int32-decimal-right-justified.mu.html#L16'>int-width-decimal</a> *g2 +<span id="L105" class="LineNr">105 </span> compare w, result +<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> result <span class="SpecialChar"><-</span> copy w +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">}</span> +<span id="L110" class="LineNr">110 </span> i <span class="SpecialChar"><-</span> increment +<span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> +<span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/word.mu.html b/html/apps/tile/word.mu.html new file mode 100644 index 00000000..2b93eff1 --- /dev/null +++ b/html/apps/tile/word.mu.html @@ -0,0 +1,296 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - apps/tile/word.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/master/apps/tile/word.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/word.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L1'>initialize-word</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L4" class="LineNr"> 4 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L6" class="LineNr"> 6 </span> initialize-gap-buffer data +<span id="L7" class="LineNr"> 7 </span> <span class="muComment"># TODO: sometimes initialize box-data rather than scalar-data</span> +<span id="L8" class="LineNr"> 8 </span><span class="Delimiter">}</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment">## some helpers for creating words. mostly for tests</span> +<span id="L11" class="LineNr"> 11 </span> +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L12'>initialize-word-with</a></span> _self: (addr word), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L15" class="LineNr"> 15 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L17" class="LineNr"> 17 </span> initialize-gap-buffer-with data, s +<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='word.mu.html#L20'>allocate-word-with</a></span> _out: (addr handle word), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> copy _out +<span id="L22" class="LineNr"> 22 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> out +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out +<span id="L24" class="LineNr"> 24 </span> <a href='word.mu.html#L12'>initialize-word-with</a> out-addr, s +<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="muComment"># just for tests for now</span> +<span id="L28" class="LineNr"> 28 </span><span class="muComment"># TODO: handle existing next</span> +<span id="L29" class="LineNr"> 29 </span><span class="muComment"># one implication of handles: append must take a handle</span> +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L30'>append-word-with</a></span> self-h: (handle word), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> self-h +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next +<span id="L33" class="LineNr"> 33 </span> <a href='word.mu.html#L20'>allocate-word-with</a> next-ah, s +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev +<span id="L36" class="LineNr"> 36 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, prev-ah +<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span><span class="muComment"># just for tests for now</span> +<span id="L40" class="LineNr"> 40 </span><span class="muComment"># TODO: handle existing prev</span> +<span id="L41" class="LineNr"> 41 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L41'>prepend-word-with</a></span> self-h: (handle word), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> self-h +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, prev +<span id="L44" class="LineNr"> 44 </span> <a href='word.mu.html#L20'>allocate-word-with</a> prev-ah, s +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> prev/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-ah +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> prev, next +<span id="L47" class="LineNr"> 47 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, next-ah +<span id="L48" class="LineNr"> 48 </span><span class="Delimiter">}</span> +<span id="L49" class="LineNr"> 49 </span> +<span id="L50" class="LineNr"> 50 </span><span class="muComment">## real primitives</span> +<span id="L51" class="LineNr"> 51 </span> +<span id="L52" class="LineNr"> 52 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L52'>word-equal?</a></span> _self: (addr word), s: (addr array byte)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L56" class="LineNr"> 56 </span> result <span class="SpecialChar"><-</span> gap-buffer-equal? data, s +<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='word.mu.html#L59'>word-length</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L63" class="LineNr"> 63 </span> result <span class="SpecialChar"><-</span> gap-buffer-length data +<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L66'>first-word</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: (addr word) <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr word) <span class="SpecialChar"><-</span> copy self +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> prev/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, prev +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev +<span id="L72" class="LineNr"> 72 </span> compare curr, <span class="Constant">0</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-=</span> +<span id="L74" class="LineNr"> 74 </span> out <span class="SpecialChar"><-</span> copy curr +<span id="L75" class="LineNr"> 75 </span> prev <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, prev +<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> result <span class="SpecialChar"><-</span> copy out +<span id="L79" class="LineNr"> 79 </span><span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> +<span id="L81" class="LineNr"> 81 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L81'>final-word</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: (addr word) <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr word) <span class="SpecialChar"><-</span> copy self +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next +<span id="L87" class="LineNr"> 87 </span> compare curr, <span class="Constant">0</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-=</span> +<span id="L89" class="LineNr"> 89 </span> out <span class="SpecialChar"><-</span> copy curr +<span id="L90" class="LineNr"> 90 </span> next <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next +<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> result <span class="SpecialChar"><-</span> copy out +<span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> +<span id="L95" class="LineNr"> 95 </span> +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L96'>first-grapheme</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L100" class="LineNr">100 </span> result <span class="SpecialChar"><-</span> first-grapheme-in-gap-buffer data +<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='word.mu.html#L103'>add-grapheme-to-word</a></span> _self: (addr word), c: grapheme <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L107" class="LineNr">107 </span> add-grapheme-at-gap data, c +<span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> +<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L110'>cursor-at-start?</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L114" class="LineNr">114 </span> result <span class="SpecialChar"><-</span> gap-at-start? data +<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='word.mu.html#L117'>cursor-at-end?</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L121" class="LineNr">121 </span> result <span class="SpecialChar"><-</span> gap-at-end? data +<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> +<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L124'>cursor-left</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> gap-left data +<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='word.mu.html#L131'>cursor-right</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> gap-right data +<span id="L136" class="LineNr">136 </span><span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L138'>cursor-to-start</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L142" class="LineNr">142 </span> gap-to-start data +<span id="L143" class="LineNr">143 </span><span class="Delimiter">}</span> +<span id="L144" class="LineNr">144 </span> +<span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L145'>cursor-to-end</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L149" class="LineNr">149 </span> gap-to-end data +<span id="L150" class="LineNr">150 </span><span class="Delimiter">}</span> +<span id="L151" class="LineNr">151 </span> +<span id="L152" class="LineNr">152 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L152'>cursor-index</a></span> _self: (addr word)<span class="PreProc"> -> </span>result/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L156" class="LineNr">156 </span> result <span class="SpecialChar"><-</span> gap-index data +<span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> +<span id="L158" class="LineNr">158 </span> +<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L159'>delete-before-cursor</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L163" class="LineNr">163 </span> delete-before-gap data +<span id="L164" class="LineNr">164 </span><span class="Delimiter">}</span> +<span id="L165" class="LineNr">165 </span> +<span id="L166" class="LineNr">166 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L166'>delete-next</a></span> _self: (addr word) <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span>$delete-next:body: <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah +<span id="L171" class="LineNr">171 </span> compare next, <span class="Constant">0</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if-=</span> $delete-next:body +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> next-next-ah/<span class="Constant">ecx</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, next +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev +<span id="L175" class="LineNr">175 </span> copy-object next-next-ah, next-ah +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> new-next/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-next-ah +<span id="L177" class="LineNr">177 </span> compare new-next, <span class="Constant">0</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-=</span> $delete-next:body +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-next, prev +<span id="L180" class="LineNr">180 </span> copy-object self-ah, dest +<span id="L181" class="LineNr">181 </span><span class="Delimiter">}</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="muFunction"><a href='word.mu.html#L184'>print-word</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr word) <span class="Delimiter">{</span> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L188" class="LineNr">188 </span> render-gap-buffer <a href='../../405screen.mu.html#L9'>screen</a>, data +<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="muComment"># one implication of handles: append must take a handle</span> +<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L192'>append-word</a></span> _self-ah: (addr handle word) <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> copy _self-ah +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *self-ah +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> self/<span class="Constant">ebx</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L196" class="LineNr">196 </span> <span class="muComment"># allocate new handle</span> +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> new: (handle word) +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle word) <span class="SpecialChar"><-</span> address new +<span id="L199" class="LineNr">199 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-ah +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> new-addr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> new +<span id="L201" class="LineNr">201 </span> <a href='word.mu.html#L1'>initialize-word</a> new-addr +<span id="L202" class="LineNr">202 </span> <span class="muComment"># new->next = self->next</span> +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle word) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, next +<span id="L205" class="LineNr">205 </span> copy-object src, dest +<span id="L206" class="LineNr">206 </span> <span class="muComment"># new->next->prev = new</span> +<span id="L207" class="LineNr">207 </span> <span class="Delimiter">{</span> +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> next-addr/<span class="Constant">eax</span>: (addr word) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src +<span id="L209" class="LineNr">209 </span> compare next-addr, <span class="Constant">0</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">break-if-=</span> +<span id="L211" class="LineNr">211 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next-addr, prev +<span id="L212" class="LineNr">212 </span> copy-object new-ah, dest +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">}</span> +<span id="L214" class="LineNr">214 </span> <span class="muComment"># new->prev = self</span> +<span id="L215" class="LineNr">215 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, prev +<span id="L216" class="LineNr">216 </span> copy-object _self-ah, dest +<span id="L217" class="LineNr">217 </span> <span class="muComment"># self->next = new</span> +<span id="L218" class="LineNr">218 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next +<span id="L219" class="LineNr">219 </span> copy-object new-ah, dest +<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L222'>emit-word</a></span> _self: (addr word), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L226" class="LineNr">226 </span> emit-gap-buffer data, out +<span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> +<span id="L228" class="LineNr">228 </span> +<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L229'>word-to-string</a></span> _self: (addr word), out: (addr handle array byte) <span class="Delimiter">{</span> +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr word) <span class="SpecialChar"><-</span> copy _self +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle gap-buffer) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr gap-buffer) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah +<span id="L233" class="LineNr">233 </span> gap-buffer-to-string data, out +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tui.mu.html b/html/apps/tui.mu.html index 3f320ed4..f81ce1f8 100644 --- a/html/apps/tui.mu.html +++ b/html/apps/tui.mu.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: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.muComment { color: #005faf; } .LineNr { } -.muFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.Comment { color: #005faf; } .Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } --> @@ -56,11 +56,11 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/apps/tui.mu'>https://github.com/akkartik/mu/blob/master/apps/tui.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Test some primitives for text-mode.</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># $ ./translate_mu apps/tui.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># $ ./a.elf</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Test some primitives for text-mode.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/tui.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tui.mu.html#L7'>main</a></span><span class="PreProc"> -> </span>exit-status/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> @@ -68,10 +68,10 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr">10 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../405screen.mu.html#L60'>screen-size</a> <span class="Constant">0</span> <span id="L11" class="LineNr">11 </span> <a href='../304screen.subx.html#L6'>enable-screen-grid-mode</a> <span id="L12" class="LineNr">12 </span> <a href='../405screen.mu.html#L116'>move-cursor</a> <span class="Constant">0</span>, <span class="Constant">5</span>, <span class="Constant">0x22</span> -<span id="L13" class="LineNr">13 </span> <a href='../405screen.mu.html#L464'>start-color</a> <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">0x7a</span> -<span id="L14" class="LineNr">14 </span> <a href='../405screen.mu.html#L544'>start-blinking</a> <span class="Constant">0</span> +<span id="L13" class="LineNr">13 </span> <a href='../405screen.mu.html#L518'>start-color</a> <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">0x7a</span> +<span id="L14" class="LineNr">14 </span> <a href='../405screen.mu.html#L598'>start-blinking</a> <span class="Constant">0</span> <span id="L15" class="LineNr">15 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"Hello world!"</span> -<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L442'>reset-formatting</a> <span class="Constant">0</span> +<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L496'>reset-formatting</a> <span class="Constant">0</span> <span id="L17" class="LineNr">17 </span> <a href='../405screen.mu.html#L116'>move-cursor</a> <span class="Constant">0</span>, <span class="Constant">6</span>, <span class="Constant">0x22</span> <span id="L18" class="LineNr">18 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"tty dimensions: "</span> <span id="L19" class="LineNr">19 </span> <a href='../405screen.mu.html#L427'>print-int32-hex</a> <span class="Constant">0</span>, nrows @@ -81,7 +81,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr">23 </span> <span id="L24" class="LineNr">24 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press a key to see its code: "</span> <span id="L25" class="LineNr">25 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L122'>read-key</a> +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> <span id="L27" class="LineNr">27 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> <span id="L28" class="LineNr">28 </span> <a href='../304screen.subx.html#L24'>enable-screen-type-mode</a> <span id="L29" class="LineNr">29 </span> <a href='../405screen.mu.html#L179'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"You pressed "</span> diff --git a/html/mu-init-test.subx.html b/html/mu-init-test.subx.html index 64673d0b..bbfc78c0 100644 --- a/html/mu-init-test.subx.html +++ b/html/mu-init-test.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; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } +.subxS1Comment { color: #0000af; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/mu_instructions.html b/html/mu_instructions.html deleted file mode 100644 index 3f25242f..00000000 --- a/html/mu_instructions.html +++ /dev/null @@ -1,389 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu's instructions and their table-driven translation</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="use_css,no_foldcolumn,expand_tabs,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-family: monospace; color: #000000; background-color: #c6c6c6; } -* { font-size: 1em; } -.muComment { color: #005faf; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> -</head> -<body> -<pre id='vimCodeElement'> -<span class="muComment">## Mu's instructions and their table-driven translation</span> - -See <a href="http://akkartik.name/akkartik-convivial-20200607.pdf">http://akkartik.name/akkartik-convivial-20200607.pdf</a> for the complete -story. In brief: Mu is a statement-oriented language. Blocks consist of flat -lists of instructions. Instructions can have inputs after the operation, and -outputs to the left of a '<span class="SpecialChar"><-</span>'. Inputs and outputs must be variables. They can't -include nested expressions. Variables can be literals ('n'), or live in a -register ('var/reg') or in memory ('var') at some 'stack-offset' from the 'ebp' -register. Outputs must be registers. To modify a variable in memory, pass it in -by reference as an input. (Inputs are more precisely called 'inouts'.) -Conversely, registers that are just read from must not be passed as inputs. - -The following chart shows all the instruction forms supported by Mu, along with -the SubX instruction they're translated to. - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"40/increment-eax"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"41/increment-ecx"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"42/increment-edx"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"43/increment-ebx"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"46/increment-esi"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"47/increment-edi"</span> -increment var => <span class="Constant">"ff 0/subop/increment *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -increment *var/reg => <span class="Constant">"ff 0/subop/increment *"</span> reg - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"48/decrement-eax"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"49/decrement-ecx"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4a/decrement-edx"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4b/decrement-ebx"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4e/decrement-esi"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4f/decrement-edi"</span> -decrement var => <span class="Constant">"ff 1/subop/decrement *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -decrement *var/reg => <span class="Constant">"ff 1/subop/decrement *"</span> reg - -var/reg <span class="SpecialChar"><-</span> add var2/reg2 => <span class="Constant">"01/add-to %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> add var2 => <span class="Constant">"03/add *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> add *var2/reg2 => <span class="Constant">"03/add *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -add-to var1, var2/reg => <span class="Constant">"01/add-to *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -add-to *var1/reg1, var2/reg2 => <span class="Constant">"01/add-to *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> add n => <span class="Constant">"05/add-to-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> add n => <span class="Constant">"81 0/subop/add %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -add-to var, n => <span class="Constant">"81 0/subop/add *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -add-to *var/reg, n => <span class="Constant">"81 0/subop/add *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> subtract var2/reg2 => <span class="Constant">"29/subtract-from %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> subtract var2 => <span class="Constant">"2b/subtract *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> subtract *var2/reg2 => <span class="Constant">"2b/subtract *"</span> reg2 <span class="Constant">" "</span> reg1 <span class="Constant">"/r32"</span> -subtract-from var1, var2/reg2 => <span class="Constant">"29/subtract-from *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg2 <span class="Constant">"/r32"</span> -subtract-from *var1/reg1, var2/reg2 => <span class="Constant">"29/subtract-from *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> subtract n => <span class="Constant">"2d/subtract-from-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> subtract n => <span class="Constant">"81 5/subop/subtract %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -subtract-from var, n => <span class="Constant">"81 5/subop/subtract *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -subtract-from *var/reg, n => <span class="Constant">"81 5/subop/subtract *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> and var2/reg2 => <span class="Constant">"21/and-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> and var2 => <span class="Constant">"23/and *(ebp+"</span> var2.stack-offset <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> and *var2/reg2 => <span class="Constant">"23/and *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -and-with var1, var2/reg => <span class="Constant">"21/and-with *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -and-with *var1/reg1, var2/reg2 => <span class="Constant">"21/and-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> and n => <span class="Constant">"25/and-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> and n => <span class="Constant">"81 4/subop/and %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -and-with var, n => <span class="Constant">"81 4/subop/and *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -and-with *var/reg, n => <span class="Constant">"81 4/subop/and *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> or var2/reg2 => <span class="Constant">"09/or-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> or var2 => <span class="Constant">"0b/or *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> or *var2/reg2 => <span class="Constant">"0b/or *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -or-with var1, var2/reg2 => <span class="Constant">"09/or-with *(ebp+"</span> var1.stack-offset <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -or-with *var1/reg1, var2/reg2 => <span class="Constant">"09/or-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> or n => <span class="Constant">"0d/or-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> or n => <span class="Constant">"81 1/subop/or %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -or-with var, n => <span class="Constant">"81 1/subop/or *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -or-with *var/reg, n => <span class="Constant">"81 1/subop/or *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> xor var2/reg2 => <span class="Constant">"31/xor-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> xor var2 => <span class="Constant">"33/xor *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> xor *var2/reg2 => <span class="Constant">"33/xor *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -xor-with var1, var2/reg => <span class="Constant">"31/xor-with *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -xor-with *var1/reg1, var2/reg2 => <span class="Constant">"31/xor-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> xor n => <span class="Constant">"35/xor-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> xor n => <span class="Constant">"81 6/subop/xor %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -xor-with var, n => <span class="Constant">"81 6/subop/xor *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -xor-with *var/reg, n => <span class="Constant">"81 6/subop/xor *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> negate => <span class="Constant">"f7 3/subop/negate %"</span> reg -negate var => <span class="Constant">"f7 3/subop/negate *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -negate *var/reg => <span class="Constant">"f7 3/subop/negate *"</span> reg - -var/reg <span class="SpecialChar"><-</span> shift-left n => <span class="Constant">"c1/shift 4/subop/left %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> shift-right n => <span class="Constant">"c1/shift 5/subop/right %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> shift-right-signed n => <span class="Constant">"c1/shift 7/subop/right-signed %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-left var, n => <span class="Constant">"c1/shift 4/subop/left *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-left *var/reg, n => <span class="Constant">"c1/shift 4/subop/left *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-right var, n => <span class="Constant">"c1/shift 5/subop/right *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-right *var/reg, n => <span class="Constant">"c1/shift 5/subop/right *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-right-signed var, n => <span class="Constant">"c1/shift 7/subop/right-signed *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-right-signed *var/reg, n => <span class="Constant">"c1/shift 7/subop/right-signed *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"b8/copy-to-eax "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"b9/copy-to-ecx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"ba/copy-to-edx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"bb/copy-to-ebx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"be/copy-to-esi "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"bf/copy-to-edi "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> copy var2/reg2 => <span class="Constant">"89/<- %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -copy-to var1, var2/reg => <span class="Constant">"89/<- *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -copy-to *var1/reg1, var2/reg2 => <span class="Constant">"89/<- *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy var2 => <span class="Constant">"8b/-> *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy *var2/reg2 => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy n => <span class="Constant">"c7 0/subop/copy %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -copy-to var, n => <span class="Constant">"c7 0/subop/copy *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -copy-to *var/reg, n => <span class="Constant">"c7 0/subop/copy *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> copy-byte var2/reg2 => <span class="Constant">"8a/byte-> %"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy-byte *var2/reg2 => <span class="Constant">"8a/byte-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -copy-byte-to *var1/reg1, var2/reg2 => <span class="Constant">"88/byte<- *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> - -compare var1, var2/reg2 => <span class="Constant">"39/compare *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg2 <span class="Constant">"/r32"</span> -compare *var1/reg1, var2/reg2 => <span class="Constant">"39/compare *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -compare var1/reg1, var2 => <span class="Constant">"3b/compare<- *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg1 <span class="Constant">"/r32"</span> -compare var/reg, *var2/reg2 => <span class="Constant">"3b/compare<- *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -compare var/<span class="Constant">eax</span>, n => <span class="Constant">"3d/compare-eax-with "</span> n <span class="Constant">"/imm32"</span> -compare var/reg, n => <span class="Constant">"81 7/subop/compare %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -compare var, n => <span class="Constant">"81 7/subop/compare *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -compare *var/reg, n => <span class="Constant">"81 7/subop/compare *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> multiply var2 => <span class="Constant">"0f af/multiply *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> multiply *var2/reg2 => <span class="Constant">"0f af/multiply *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -<span class="PreProc">break</span> => <span class="Constant">"e9/jump break/disp32"</span> -<span class="PreProc">break</span> label => <span class="Constant">"e9/jump "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop</span> => <span class="Constant">"e9/jump loop/disp32"</span> -<span class="PreProc">loop</span> label => <span class="Constant">"e9/jump "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-=</span> => <span class="Constant">"0f 84/jump-if-= break/disp32"</span> -<span class="PreProc">break-if-=</span> label => <span class="Constant">"0f 84/jump-if-= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-=</span> => <span class="Constant">"0f 84/jump-if-= loop/disp32"</span> -<span class="PreProc">loop-if-=</span> label => <span class="Constant">"0f 84/jump-if-= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-!=</span> => <span class="Constant">"0f 85/jump-if-!= break/disp32"</span> -<span class="PreProc">break-if-!=</span> label => <span class="Constant">"0f 85/jump-if-!= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-!=</span> => <span class="Constant">"0f 85/jump-if-!= loop/disp32"</span> -<span class="PreProc">loop-if-!=</span> label => <span class="Constant">"0f 85/jump-if-!= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-<</span> => <span class="Constant">"0f 8c/jump-if-< break/disp32"</span> -<span class="PreProc">break-if-<</span> label => <span class="Constant">"0f 8c/jump-if-< "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-<</span> => <span class="Constant">"0f 8c/jump-if-< loop/disp32"</span> -<span class="PreProc">loop-if-<</span> label => <span class="Constant">"0f 8c/jump-if-< "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-></span> => <span class="Constant">"0f 8f/jump-if-> break/disp32"</span> -<span class="PreProc">break-if-></span> label => <span class="Constant">"0f 8f/jump-if-> "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-></span> => <span class="Constant">"0f 8f/jump-if-> loop/disp32"</span> -<span class="PreProc">loop-if-></span> label => <span class="Constant">"0f 8f/jump-if-> "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-<=</span> => <span class="Constant">"0f 8e/jump-if-<= break/disp32"</span> -<span class="PreProc">break-if-<=</span> label => <span class="Constant">"0f 8e/jump-if-<= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-<=</span> => <span class="Constant">"0f 8e/jump-if-<= loop/disp32"</span> -<span class="PreProc">loop-if-<=</span> label => <span class="Constant">"0f 8e/jump-if-<= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if->=</span> => <span class="Constant">"0f 8d/jump-if->= break/disp32"</span> -<span class="PreProc">break-if->=</span> label => <span class="Constant">"0f 8d/jump-if->= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if->=</span> => <span class="Constant">"0f 8d/jump-if->= loop/disp32"</span> -<span class="PreProc">loop-if->=</span> label => <span class="Constant">"0f 8d/jump-if->= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr<</span> => <span class="Constant">"0f 82/jump-if-addr< break/disp32"</span> -<span class="PreProc">break-if-addr<</span> label => <span class="Constant">"0f 82/jump-if-addr< "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr<</span> => <span class="Constant">"0f 82/jump-if-addr< loop/disp32"</span> -<span class="PreProc">loop-if-addr<</span> label => <span class="Constant">"0f 82/jump-if-addr< "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr></span> => <span class="Constant">"0f 87/jump-if-addr> break/disp32"</span> -<span class="PreProc">break-if-addr></span> label => <span class="Constant">"0f 87/jump-if-addr> "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr></span> => <span class="Constant">"0f 87/jump-if-addr> loop/disp32"</span> -<span class="PreProc">loop-if-addr></span> label => <span class="Constant">"0f 87/jump-if-addr> "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr<=</span> => <span class="Constant">"0f 86/jump-if-addr<= break/disp32"</span> -<span class="PreProc">break-if-addr<=</span> label => <span class="Constant">"0f 86/jump-if-addr<= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr<=</span> => <span class="Constant">"0f 86/jump-if-addr<= loop/disp32"</span> -<span class="PreProc">loop-if-addr<=</span> label => <span class="Constant">"0f 86/jump-if-addr<= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr>=</span> => <span class="Constant">"0f 83/jump-if-addr>= break/disp32"</span> -<span class="PreProc">break-if-addr>=</span> label => <span class="Constant">"0f 83/jump-if-addr>= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr>=</span> => <span class="Constant">"0f 83/jump-if-addr>= loop/disp32"</span> -<span class="PreProc">loop-if-addr>=</span> label => <span class="Constant">"0f 83/jump-if-addr>= "</span> label <span class="Constant">":loop/disp32"</span> - -Similar float variants like `<span class="PreProc">break-if-float<`</span> are aliases for the corresponding -`addr` equivalents. The x86 instruction set stupidly has floating-point -operations only update a subset of flags. - ---- - -In the following instructions types are provided for clarity even if they must -be provided in an earlier 'var' declaration. - -<span class="muComment"># Address operations</span> - -var/reg: (addr T) <span class="SpecialChar"><-</span> address var2: T - => <span class="Constant">"8d/copy-address *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -<span class="muComment"># Array operations</span> -(TODO: bounds-checking) - -var/reg <span class="SpecialChar"><-</span> index arr/rega: (addr array T), idx/regi: int - | if size-of(T) is <span class="Constant">4</span> or <span class="Constant">8</span> - => <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> regi <span class="Constant">"<<"</span> log2(size-of(T)) <span class="Constant">"+4) "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> index arr: (array T sz), idx/regi: int - => <span class="Constant">"8d/copy-address *(ebp+"</span> regi <span class="Constant">"<<"</span> log2(size-of(T)) <span class="Constant">"+"</span> (arr.stack-offset + <span class="Constant">4</span>) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> index arr/rega: (addr array T), n - => <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> (n*size-of(T)+<span class="Constant">4</span>) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> index arr: (array T sz), n - => <span class="Constant">"8d/copy-address *(ebp+"</span> (arr.stack-offset+<span class="Constant">4</span>+n*size-of(T)) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -var/reg: (offset T) <span class="SpecialChar"><-</span> compute-offset arr: (addr array T), idx/regi: int <span class="muComment"># arr can be in reg or mem</span> - => <span class="Constant">"69/multiply %"</span> regi <span class="Constant">" "</span> size-of(T) <span class="Constant">"/imm32 "</span> reg <span class="Constant">"/r32"</span> -var/reg: (offset T) <span class="SpecialChar"><-</span> compute-offset arr: (addr array T), idx: int <span class="muComment"># arr can be in reg or mem</span> - => <span class="Constant">"69/multiply *(ebp+"</span> idx.stack-offset <span class="Constant">") "</span> size-of(T) <span class="Constant">"/imm32 "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> index arr/rega: (addr array T), o/rego: offset - => <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> rego <span class="Constant">"+4) "</span> reg <span class="Constant">"/r32"</span> - -Computing the length of an array is complex. - -var/reg <span class="SpecialChar"><-</span> length arr/reg2: (addr array T) - | if T is byte (TODO) - => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - | if size-of(T) is <span class="Constant">4</span> or <span class="Constant">8</span> or <span class="Constant">16</span> or <span class="Constant">32</span> or <span class="Constant">64</span> or <span class="Constant">128</span> - => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - <span class="Constant">"c1/shift 5/subop/logic-right %"</span> reg <span class="Constant">" "</span> log2(size-of(T)) <span class="Constant">"/imm8"</span> - | otherwise - x86 has no instruction to divide by a literal, so - we need up to <span class="Constant">3</span> extra registers! <span class="Constant">eax</span>/<span class="Constant">edx</span> for division and say <span class="Constant">ecx</span> - => if reg is not <span class="Constant">eax</span> - <span class="Constant">"50/push-eax"</span> - if reg is not <span class="Constant">ecx</span> - <span class="Constant">"51/push-ecx"</span> - if reg is not <span class="Constant">edx</span> - <span class="Constant">"52/push-edx"</span> - <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" eax/r32"</span> - <span class="Constant">"31/xor %edx 2/r32/edx"</span> <span class="muComment"># sign-extend, but array size can't be negative</span> - <span class="Constant">"b9/copy-to-ecx "</span> size-of(T) <span class="Constant">"/imm32"</span> - <span class="Constant">"f7 7/subop/idiv-eax-edx-by %ecx"</span> - if reg is not <span class="Constant">eax</span> - <span class="Constant">"89/<- %"</span> reg <span class="Constant">" 0/r32/eax"</span> - if reg is not <span class="Constant">edx</span> - <span class="Constant">"5a/pop-to-edx"</span> - if reg is not <span class="Constant">ecx</span> - <span class="Constant">"59/pop-to-ecx"</span> - if reg is not <span class="Constant">eax</span> - <span class="Constant">"58/pop-to-eax"</span> - -<span class="muComment"># User-defined types</span> - -If a record (product) type T was defined to have elements a, b, c, ... of -types T_a, T_b, T_c, ..., then accessing one of those elements f of type T_f: - -var/reg: (addr T_f) <span class="SpecialChar"><-</span> get var2/reg2: (addr T), f - => <span class="Constant">"8d/copy-address *("</span> reg2 <span class="Constant">"+"</span> offset(f) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T_f) <span class="SpecialChar"><-</span> get var2: T, f - => <span class="Constant">"8d/copy-address *(ebp+"</span> var2.stack-offset <span class="Constant">"+"</span> offset(f) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -<span class="muComment"># Allocating memory</span> - -allocate in: (addr handle T) - => <span class="Constant">"(allocate Heap "</span> size-of(T) <span class="Constant">" "</span> in <span class="Constant">")"</span> - -populate in: (addr handle array T), num <span class="muComment"># can be literal or variable on stack or register</span> - => <span class="Constant">"(allocate-array2 Heap "</span> size-of(T) <span class="Constant">" "</span> num <span class="Constant">" "</span> in <span class="Constant">")"</span> - -populate-stream in: (addr handle stream T), num <span class="muComment"># can be literal or variable on stack or register</span> - => <span class="Constant">"(new-stream Heap "</span> size-of(T) <span class="Constant">" "</span> num <span class="Constant">" "</span> in <span class="Constant">")"</span> - -read-from-stream s: (addr stream T), out: (addr T) - => <span class="Constant">"(read-from-stream "</span> s <span class="Constant">" "</span> out <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - -write-to-stream s: (addr stream T), in: (addr T) - => <span class="Constant">"(write-to-stream "</span> s <span class="Constant">" "</span> in <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - -<span class="muComment"># Floating-point operations</span> - -All the instructions so far use Intel's general-purpose integer registers. -However, some of them translate to different SubX if their arguments are in -floating-point registers. - -var/xreg <span class="SpecialChar"><-</span> add var2/xreg2 => <span class="Constant">"f3 0f 58/add %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> add var2 => <span class="Constant">"f3 0f 58/add *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> add *var2/reg2 => <span class="Constant">"f3 0f 58/add *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> subtract var2/xreg2 => <span class="Constant">"f3 0f 5c/subtract %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> subtract var2 => <span class="Constant">"f3 0f 5c/subtract *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> subtract *var2/reg2 => <span class="Constant">"f3 0f 5c/subtract *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> multiply var2/xreg2 => <span class="Constant">"f3 0f 59/multiply %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> multiply var2 => <span class="Constant">"f3 0f 59/multiply *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> multiply *var2/reg2 => <span class="Constant">"f3 0f 59/multiply *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> divide var2/xreg2 => <span class="Constant">"f3 0f 5e/divide %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> divide var2 => <span class="Constant">"f3 0f 5e/divide *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> divide *var2/reg2 => <span class="Constant">"f3 0f 5e/divide *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -There are also some exclusively floating-point instructions: - -var/xreg <span class="SpecialChar"><-</span> reciprocal var2/xreg2 => <span class="Constant">"f3 0f 53/reciprocal %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> reciprocal var2 => <span class="Constant">"f3 0f 53/reciprocal *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> reciprocal *var2/reg2 => <span class="Constant">"f3 0f 53/reciprocal *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> square-root var2/xreg2 => <span class="Constant">"f3 0f 51/square-root %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> square-root var2 => <span class="Constant">"f3 0f 51/square-root *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> square-root *var2/reg2 => <span class="Constant">"f3 0f 51/square-root *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> inverse-square-root var2/xreg2 => <span class="Constant">"f3 0f 52/inverse-square-root %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> inverse-square-root var2 => <span class="Constant">"f3 0f 52/inverse-square-root *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> inverse-square-root *var2/reg2 => <span class="Constant">"f3 0f 52/inverse-square-root *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> min var2/xreg2 => <span class="Constant">"f3 0f 5d/min %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> min var2 => <span class="Constant">"f3 0f 5d/min *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> min *var2/reg2 => <span class="Constant">"f3 0f 5d/min *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> max var2/xreg2 => <span class="Constant">"f3 0f 5f/max %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> max var2 => <span class="Constant">"f3 0f 5f/max *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> max *var2/reg2 => <span class="Constant">"f3 0f 5f/max *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Remember, when these instructions use indirect mode, they still use an integer -register. Floating-point registers can't hold addresses. - -Most instructions operate exclusively on integer or floating-point operands. -The only exceptions are the instructions for converting between integers and -floating-point numbers. - -var/xreg <span class="SpecialChar"><-</span> convert var2/reg2 => <span class="Constant">"f3 0f 2a/convert-to-float %"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> convert var2 => <span class="Constant">"f3 0f 2a/convert-to-float *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> convert *var2/reg2 => <span class="Constant">"f3 0f 2a/convert-to-float *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Converting floats to ints performs rounding by default. (We don't mess with the -MXCSR control register.) - -var/reg <span class="SpecialChar"><-</span> convert var2/xreg2 => <span class="Constant">"f3 0f 2d/convert-to-int %"</span> xreg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> convert var2 => <span class="Constant">"f3 0f 2d/convert-to-int *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> convert *var2/reg2 => <span class="Constant">"f3 0f 2d/convert-to-int *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -There's a separate instruction for truncating the fractional part. - -var/reg <span class="SpecialChar"><-</span> truncate var2/xreg2 => <span class="Constant">"f3 0f 2c/truncate-to-int %"</span> xreg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> truncate var2 => <span class="Constant">"f3 0f 2c/truncate-to-int *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> truncate *var2/reg2 => <span class="Constant">"f3 0f 2c/truncate-to-int *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -There are no instructions accepting floating-point literals. To obtain integer -literals in floating-point registers, copy them to general-purpose registers -and then convert them to floating-point. - -One pattern you may have noticed above is that the floating-point instructions -above always write to registers. The only exceptions are `copy` instructions, -which can write to memory locations. - -var/xreg <span class="SpecialChar"><-</span> copy var2/xreg2 => <span class="Constant">"f3 0f 11/<- %"</span> xreg <span class="Constant">" "</span> xreg2 <span class="Constant">"/x32"</span> -copy-to var1, var2/xreg => <span class="Constant">"f3 0f 11/<- *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> copy var2 => <span class="Constant">"f3 0f 10/-> *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> copy *var2/reg2 => <span class="Constant">"f3 0f 10/-> *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Comparisons must always start with a register: - -compare var1/xreg1, var2/xreg2 => <span class="Constant">"0f 2f/compare %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -compare var1/xreg1, var2 => <span class="Constant">"0f 2f/compare *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg1 <span class="Constant">"/x32"</span> - -vim:ft=mu:nowrap:textwidth=<span class="Constant">0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> |